reference.vb

一个管理系统

            Public Function NewProjectHistoryRow() As ProjectHistoryRow
                Return CType(Me.NewRow,ProjectHistoryRow)
            End Function
            
            Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
                Return New ProjectHistoryRow(builder)
            End Function
            
            Protected Overrides Function GetRowType() As System.Type
                Return GetType(ProjectHistoryRow)
            End Function
            
            Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowChanged(e)
                If (Not (Me.ProjectHistoryRowChangedEvent) Is Nothing) Then
                    RaiseEvent ProjectHistoryRowChanged(Me, New ProjectHistoryRowChangeEvent(CType(e.Row,ProjectHistoryRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowChanging(e)
                If (Not (Me.ProjectHistoryRowChangingEvent) Is Nothing) Then
                    RaiseEvent ProjectHistoryRowChanging(Me, New ProjectHistoryRowChangeEvent(CType(e.Row,ProjectHistoryRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowDeleted(e)
                If (Not (Me.ProjectHistoryRowDeletedEvent) Is Nothing) Then
                    RaiseEvent ProjectHistoryRowDeleted(Me, New ProjectHistoryRowChangeEvent(CType(e.Row,ProjectHistoryRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowDeleting(e)
                If (Not (Me.ProjectHistoryRowDeletingEvent) Is Nothing) Then
                    RaiseEvent ProjectHistoryRowDeleting(Me, New ProjectHistoryRowChangeEvent(CType(e.Row,ProjectHistoryRow), e.Action))
                End If
            End Sub
            
            Public Sub RemoveProjectHistoryRow(ByVal row As ProjectHistoryRow)
                Me.Rows.Remove(row)
            End Sub
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class ProjectHistoryRow
            Inherits DataRow
            
            Private tableProjectHistory As ProjectHistoryDataTable
            
            Friend Sub New(ByVal rb As DataRowBuilder)
                MyBase.New(rb)
                Me.tableProjectHistory = CType(Me.Table,ProjectHistoryDataTable)
            End Sub
            
            Public Property TaskHistoryID As Integer
                Get
                    Return CType(Me(Me.tableProjectHistory.TaskHistoryIDColumn),Integer)
                End Get
                Set
                    Me(Me.tableProjectHistory.TaskHistoryIDColumn) = value
                End Set
            End Property
            
            Public Property TaskID As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.TaskIDColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.TaskIDColumn) = value
                End Set
            End Property
            
            Public Property ProjectID As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.ProjectIDColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.ProjectIDColumn) = value
                End Set
            End Property
            
            Public Property ModifiedBy As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.ModifiedByColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.ModifiedByColumn) = value
                End Set
            End Property
            
            Public Property AssignedTo As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.AssignedToColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.AssignedToColumn) = value
                End Set
            End Property
            
            Public Property TaskSummary As String
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.TaskSummaryColumn),String)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.TaskSummaryColumn) = value
                End Set
            End Property
            
            Public Property TaskDescription As String
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.TaskDescriptionColumn),String)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.TaskDescriptionColumn) = value
                End Set
            End Property
            
            Public Property PriorityID As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.PriorityIDColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.PriorityIDColumn) = value
                End Set
            End Property
            
            Public Property StatusID As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.StatusIDColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.StatusIDColumn) = value
                End Set
            End Property
            
            Public Property Progress As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.ProgressColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.ProgressColumn) = value
                End Set
            End Property
            
            Public Property IsDeleted As Boolean
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.IsDeletedColumn),Boolean)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.IsDeletedColumn) = value
                End Set
            End Property
            
            Public Property DateDue As Date
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.DateDueColumn),Date)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.DateDueColumn) = value
                End Set
            End Property
            
            Public Property DateModified As Date
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.DateModifiedColumn),Date)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.DateModifiedColumn) = value
                End Set
            End Property
            
            Public Property DateCreated As Date
                Get
                    Try 
                        Return CType(Me(Me.tableProjectHistory.DateCreatedColumn),Date)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableProjectHistory.DateCreatedColumn) = value
                End Set
            End Property
            
            Public Property PriorityText As String
                Get
                    Return CType(Me(Me.tableProjectHistory.PriorityTextColumn),String)
                End Get
                Set
                    Me(Me.tableProjectHistory.PriorityTextColumn) = value
                End Set
            End Property
            
            Public Property StatusText As String
                Get
                    Return CType(Me(Me.tableProjectHistory.StatusTextColumn),String)
                End Get
                Set
                    Me(Me.tableProjectHistory.StatusTextColumn) = value
                End Set
            End Property
            
            Public Property AssignedToText As String
                Get
                    Return CType(Me(Me.tableProjectHistory.AssignedToTextColumn),String)
                End Get
                Set
                    Me(Me.tableProjectHistory.AssignedToTextColumn) = value
                End Set
            End Property
            
            Public Property ModifiedByText As String
                Get
                    Return CType(Me(Me.tableProjectHistory.ModifiedByTextColumn),String)
                End Get
                Set
                    Me(Me.tableProjectHistory.ModifiedByTextColumn) = value
                End Set
            End Property
            
            Public Function IsTaskIDNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.TaskIDColumn)
            End Function
            
            Public Sub SetTaskIDNull()
                Me(Me.tableProjectHistory.TaskIDColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsProjectIDNull() As Boolean
                Return Me.IsNull(Me.tableProjectHistory.ProjectIDColumn)
            End Function
            
            Public Sub SetProjectIDNull()
                Me(Me.tableProjectHistory.ProjectIDColumn) = System.Convert.DBNull
            End Sub
            
            Public Function IsModifiedByNull() As Boolean