| 天极软件专题专区精选 | ||
| Google专区 | POPO专区 | QQ专区 |
| Flash MX 视频教程 | Photoshop视频教程 | 网页设计视频教程 |
| PowerPoint动画演示教程 | Excel动画教程集 | Word动画演示教程 |
| 特洛伊木马专区 | 黑客知识教程专区 | 注册表应用专区 |
| Windows API开发专区 | 网络编程专区 | VB数据库编程专区 |
| 图像与多媒体编程 | ||
![]() |
| Column | Name | Property |
| 1 | activityid | DataType=System.Int32 Autoincrement=True AutoincrementSeed=1 AutoincrementStep=1 Unique=True |
| 2 | taskid | DataType=System.Int32 |
| 3 | description | DataType=System.String |
| 4 | startime | DataType=System.DateTime |
| 5 | endtime | DataType=System.DateTime |
| Column | Name | Property |
| 1 | taskid | DataType=System.Int32 Autoincrement=True AutoincrementSeed=1 AutoincrementStep=1 Unique=True AllowDBNull=False |
| 2 | task | DataType=System.String AllowDBNull=False |
![]() |
![]() |
| Column | Property |
| activityid | Visible=False |
| Taskid | ColumnType= DataGridViewComboBoxColumn DataSource= DsActivitiesTasks DataMember= tasks.task ValueMember=tasks.taskid |
| description | Width=180 |
| If CheckFileExistence() Then LoadDataSet() Else ’如果两个xml文件不存在,则创建这两个xml文件 CreateXMLFile() End If |
| Dim myDocumentsFolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments Dim activitiesFileName As String = "\Activities.xml" Dim tasksFileName As String = "\Tasks.xml" Public activitiesFile As String = String.Concat(myDocumentsFolder, activitiesFileName) Public tasksFile As String = String.Concat(myDocumentsFolder, tasksFileName) |
| Public Function CheckFileExistence() As Boolean ’检查两个xml文件是否存在 If My.Computer.FileSystem.FileExists(activitiesFile) And _ My.Computer.FileSystem.FileExists(tasksFile) Then Return True Else Return False End If End Function Public Sub CreateXMLFile() DsActivitiesTasks.Tasks.AddTasksRow("Email") DsActivitiesTasks.Tasks.AddTasksRow("Browsing") DsActivitiesTasks.Tasks.WriteXml(tasksFile, System.Data.XmlWriteMode.WriteSchema) DsActivitiesTasks.activities.WriteXml(activitiesFile, System.Data.XmlWriteMode.WriteSchema) End Sub |
| Public Sub LoadDataSet() DsActivitiesTasks.tasks.ReadXml(tasksFile) DsActivitiesTasks.activities.ReadXml(activitiesFile) End Sub |
| Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnSave.Click Me.DsActivitiesTasks.activities.AcceptChanges() Me.DsActivitiesTasks.activities.WriteXml(activitiesFile, System.Data.XmlWriteMode.WriteSchema) End Sub Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnDelete.Click Me.DataGridView1.Rows.RemoveAt(Me.DataGridView1.CurrentRow.Index) btnSave_Click(sender, e) End Sub |
![]() |
| DataGridView1.DataSource = frmActivities.DsActivitiesTasks DataGridView1.DataMember = frmActivities.DsActivitiesTasks.tasks.TableName |
| frmActivities.DsActivitiesTasks.tasks.AcceptChanges() frmActivities.DsActivitiesTasks.tasks.WriteXml(frmActivities.tasksFile, _ System.Data.XmlWriteMode.WriteSchema) |
| Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Me.DataGridView1.Rows.RemoveAt(Me.DataGridView1.CurrentRow.Index) btnSave_Click(sender, e) End Sub |
| Dim frmtasks As New frmEditAddTasks frmtasks.ShowDialog() |
![]() |
关注此文的读者还看过: