reference.vb

一个管理系统

            Private columnAssignedTo As DataColumn
            
            Private columnTaskSummary As DataColumn
            
            Private columnTaskDescription As DataColumn
            
            Private columnPriorityID As DataColumn
            
            Private columnStatusID As DataColumn
            
            Private columnProgress As DataColumn
            
            Private columnIsDeleted As DataColumn
            
            Private columnDateDue As DataColumn
            
            Private columnDateModified As DataColumn
            
            Private columnDateCreated As DataColumn
            
            Private columnPriorityText As DataColumn
            
            Private columnStatusText As DataColumn
            
            Private columnAssignedToText As DataColumn
            
            Private columnModifiedByText As DataColumn
            
            Friend Sub New()
                MyBase.New("ProjectHistory")
                Me.InitClass
            End Sub
            
            Friend Sub New(ByVal table As DataTable)
                MyBase.New(table.TableName)
                If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                    Me.CaseSensitive = table.CaseSensitive
                End If
                If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                    Me.Locale = table.Locale
                End If
                If (table.Namespace <> table.DataSet.Namespace) Then
                    Me.Namespace = table.Namespace
                End If
                Me.Prefix = table.Prefix
                Me.MinimumCapacity = table.MinimumCapacity
                Me.DisplayExpression = table.DisplayExpression
            End Sub
            
            <System.ComponentModel.Browsable(false)>  _
            Public ReadOnly Property Count As Integer
                Get
                    Return Me.Rows.Count
                End Get
            End Property
            
            Friend ReadOnly Property TaskHistoryIDColumn As DataColumn
                Get
                    Return Me.columnTaskHistoryID
                End Get
            End Property
            
            Friend ReadOnly Property TaskIDColumn As DataColumn
                Get
                    Return Me.columnTaskID
                End Get
            End Property
            
            Friend ReadOnly Property ProjectIDColumn As DataColumn
                Get
                    Return Me.columnProjectID
                End Get
            End Property
            
            Friend ReadOnly Property ModifiedByColumn As DataColumn
                Get
                    Return Me.columnModifiedBy
                End Get
            End Property
            
            Friend ReadOnly Property AssignedToColumn As DataColumn
                Get
                    Return Me.columnAssignedTo
                End Get
            End Property
            
            Friend ReadOnly Property TaskSummaryColumn As DataColumn
                Get
                    Return Me.columnTaskSummary
                End Get
            End Property
            
            Friend ReadOnly Property TaskDescriptionColumn As DataColumn
                Get
                    Return Me.columnTaskDescription
                End Get
            End Property
            
            Friend ReadOnly Property PriorityIDColumn As DataColumn
                Get
                    Return Me.columnPriorityID
                End Get
            End Property
            
            Friend ReadOnly Property StatusIDColumn As DataColumn
                Get
                    Return Me.columnStatusID
                End Get
            End Property
            
            Friend ReadOnly Property ProgressColumn As DataColumn
                Get
                    Return Me.columnProgress
                End Get
            End Property
            
            Friend ReadOnly Property IsDeletedColumn As DataColumn
                Get
                    Return Me.columnIsDeleted
                End Get
            End Property
            
            Friend ReadOnly Property DateDueColumn As DataColumn
                Get
                    Return Me.columnDateDue
                End Get
            End Property
            
            Friend ReadOnly Property DateModifiedColumn As DataColumn
                Get
                    Return Me.columnDateModified
                End Get
            End Property
            
            Friend ReadOnly Property DateCreatedColumn As DataColumn
                Get
                    Return Me.columnDateCreated
                End Get
            End Property
            
            Friend ReadOnly Property PriorityTextColumn As DataColumn
                Get
                    Return Me.columnPriorityText
                End Get
            End Property
            
            Friend ReadOnly Property StatusTextColumn As DataColumn
                Get
                    Return Me.columnStatusText
                End Get
            End Property
            
            Friend ReadOnly Property AssignedToTextColumn As DataColumn
                Get
                    Return Me.columnAssignedToText
                End Get
            End Property
            
            Friend ReadOnly Property ModifiedByTextColumn As DataColumn
                Get
                    Return Me.columnModifiedByText
                End Get
            End Property
            
            Public Default ReadOnly Property Item(ByVal index As Integer) As ProjectHistoryRow
                Get
                    Return CType(Me.Rows(index),ProjectHistoryRow)
                End Get
            End Property
            
            Public Event ProjectHistoryRowChanged As ProjectHistoryRowChangeEventHandler
            
            Public Event ProjectHistoryRowChanging As ProjectHistoryRowChangeEventHandler
            
            Public Event ProjectHistoryRowDeleted As ProjectHistoryRowChangeEventHandler
            
            Public Event ProjectHistoryRowDeleting As ProjectHistoryRowChangeEventHandler
            
            Public Overloads Sub AddProjectHistoryRow(ByVal row As ProjectHistoryRow)
                Me.Rows.Add(row)
            End Sub
            
            Public Overloads Function AddProjectHistoryRow( _
                        ByVal TaskID As Integer,  _
                        ByVal ProjectID As Integer,  _
                        ByVal ModifiedBy As Integer,  _
                        ByVal AssignedTo As Integer,  _
                        ByVal TaskSummary As String,  _
                        ByVal TaskDescription As String,  _
                        ByVal PriorityID As Integer,  _
                        ByVal StatusID As Integer,  _
                        ByVal Progress As Integer,  _
                        ByVal IsDeleted As Boolean,  _
                        ByVal DateDue As Date,  _
                        ByVal DateModified As Date,  _
                        ByVal DateCreated As Date,  _
                        ByVal PriorityText As String,  _
                        ByVal StatusText As String,  _
                        ByVal AssignedToText As String,  _
                        ByVal ModifiedByText As String) As ProjectHistoryRow
                Dim rowProjectHistoryRow As ProjectHistoryRow = CType(Me.NewRow,ProjectHistoryRow)
                rowProjectHistoryRow.ItemArray = New Object() {Nothing, TaskID, ProjectID, ModifiedBy, AssignedTo, TaskSummary, TaskDescription, PriorityID, StatusID, Progress, IsDeleted, DateDue, DateModified, DateCreated, PriorityText, StatusText, AssignedToText, ModifiedByText}
                Me.Rows.Add(rowProjectHistoryRow)
                Return rowProjectHistoryRow
            End Function
            
            Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
                Return Me.Rows.GetEnumerator
            End Function
            
            Public Overrides Function Clone() As DataTable
                Dim cln As ProjectHistoryDataTable = CType(MyBase.Clone,ProjectHistoryDataTable)
                cln.InitVars
                Return cln
            End Function
            
            Protected Overrides Function CreateInstance() As DataTable
                Return New ProjectHistoryDataTable
            End Function
            
            Friend Sub InitVars()
                Me.columnTaskHistoryID = Me.Columns("TaskHistoryID")
                Me.columnTaskID = Me.Columns("TaskID")
                Me.columnProjectID = Me.Columns("ProjectID")
                Me.columnModifiedBy = Me.Columns("ModifiedBy")
                Me.columnAssignedTo = Me.Columns("AssignedTo")
                Me.columnTaskSummary = Me.Columns("TaskSummary")
                Me.columnTaskDescription = Me.Columns("TaskDescription")
                Me.columnPriorityID = Me.Columns("PriorityID")
                Me.columnStatusID = Me.Columns("StatusID")
                Me.columnProgress = Me.Columns("Progress")
                Me.columnIsDeleted = Me.Columns("IsDeleted")
                Me.columnDateDue = Me.Columns("DateDue")
                Me.columnDateModified = Me.Columns("DateModified")
                Me.columnDateCreated = Me.Columns("DateCreated")
                Me.columnPriorityText = Me.Columns("PriorityText")
                Me.columnStatusText = Me.Columns("StatusText")
                Me.columnAssignedToText = Me.Columns("AssignedToText")
                Me.columnModifiedByText = Me.Columns("ModifiedByText")
            End Sub
            
            Private Sub InitClass()
                Me.columnTaskHistoryID = New DataColumn("TaskHistoryID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnTaskHistoryID)
                Me.columnTaskID = New DataColumn("TaskID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnTaskID)
                Me.columnProjectID = New DataColumn("ProjectID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnProjectID)
                Me.columnModifiedBy = New DataColumn("ModifiedBy", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnModifiedBy)
                Me.columnAssignedTo = New DataColumn("AssignedTo", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnAssignedTo)
                Me.columnTaskSummary = New DataColumn("TaskSummary", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnTaskSummary)
                Me.columnTaskDescription = New DataColumn("TaskDescription", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnTaskDescription)
                Me.columnPriorityID = New DataColumn("PriorityID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnPriorityID)
                Me.columnStatusID = New DataColumn("StatusID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnStatusID)
                Me.columnProgress = New DataColumn("Progress", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnProgress)
                Me.columnIsDeleted = New DataColumn("IsDeleted", GetType(System.Boolean), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnIsDeleted)
                Me.columnDateDue = New DataColumn("DateDue", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnDateDue)
                Me.columnDateModified = New DataColumn("DateModified", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnDateModified)
                Me.columnDateCreated = New DataColumn("DateCreated", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnDateCreated)
                Me.columnPriorityText = New DataColumn("PriorityText", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnPriorityText)
                Me.columnStatusText = New DataColumn("StatusText", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnStatusText)
                Me.columnAssignedToText = New DataColumn("AssignedToText", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnAssignedToText)
                Me.columnModifiedByText = New DataColumn("ModifiedByText", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnModifiedByText)
                Me.columnTaskHistoryID.AutoIncrement = true
                Me.columnTaskHistoryID.AllowDBNull = false
                Me.columnTaskHistoryID.ReadOnly = true
                Me.columnPriorityText.AllowDBNull = false
                Me.columnStatusText.AllowDBNull = false
                Me.columnAssignedToText.AllowDBNull = false
                Me.columnModifiedByText.AllowDBNull = false
            End Sub