dscust.vb

Visual Basic Oracle数据库联接

            Me.columnCallID.Unique = true
        End Sub
        
        Public Function NewCallsRow() As CallsRow
            Return CType(Me.NewRow,CallsRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New CallsRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(CallsRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.CallsRowChangedEvent) Is Nothing) Then
                RaiseEvent CallsRowChanged(Me, New CallsRowChangeEvent(CType(e.Row,CallsRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.CallsRowChangingEvent) Is Nothing) Then
                RaiseEvent CallsRowChanging(Me, New CallsRowChangeEvent(CType(e.Row,CallsRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.CallsRowDeletedEvent) Is Nothing) Then
                RaiseEvent CallsRowDeleted(Me, New CallsRowChangeEvent(CType(e.Row,CallsRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.CallsRowDeletingEvent) Is Nothing) Then
                RaiseEvent CallsRowDeleting(Me, New CallsRowChangeEvent(CType(e.Row,CallsRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveCallsRow(ByVal row As CallsRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class CallsRow
        Inherits DataRow
        
        Private tableCalls As CallsDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableCalls = CType(Me.Table,CallsDataTable)
        End Sub
        
        Public Property CallID As Integer
            Get
                Return CType(Me(Me.tableCalls.CallIDColumn),Integer)
            End Get
            Set
                Me(Me.tableCalls.CallIDColumn) = value
            End Set
        End Property
        
        Public Property ProjectID As Integer
            Get
                Try 
                    Return CType(Me(Me.tableCalls.ProjectIDColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.ProjectIDColumn) = value
            End Set
        End Property
        
        Public Property ModifiedBy As Integer
            Get
                Try 
                    Return CType(Me(Me.tableCalls.ModifiedByColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.ModifiedByColumn) = value
            End Set
        End Property
        
        Public Property AssignedTo As Integer
            Get
                Try 
                    Return CType(Me(Me.tableCalls.AssignedToColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.AssignedToColumn) = value
            End Set
        End Property
        
        Public Property CallSummary As String
            Get
                Try 
                    Return CType(Me(Me.tableCalls.CallSummaryColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.CallSummaryColumn) = value
            End Set
        End Property
        
        Public Property CallDescription As String
            Get
                Try 
                    Return CType(Me(Me.tableCalls.CallDescriptionColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.CallDescriptionColumn) = value
            End Set
        End Property
        
        Public Property PriorityID As Integer
            Get
                Try 
                    Return CType(Me(Me.tableCalls.PriorityIDColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.PriorityIDColumn) = value
            End Set
        End Property
        
        Public Property StatusID As Integer
            Get
                Try 
                    Return CType(Me(Me.tableCalls.StatusIDColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.StatusIDColumn) = value
            End Set
        End Property
        
        Public Property Progress As Integer
            Get
                Try 
                    Return CType(Me(Me.tableCalls.ProgressColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.ProgressColumn) = value
            End Set
        End Property
        
        Public Property IsDeleted As Boolean
            Get
                Try 
                    Return CType(Me(Me.tableCalls.IsDeletedColumn),Boolean)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.IsDeletedColumn) = value
            End Set
        End Property
        
        Public Property DateDue As Date
            Get
                Try 
                    Return CType(Me(Me.tableCalls.DateDueColumn),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.DateDueColumn) = value
            End Set
        End Property
        
        Public Property DateModified As Date
            Get
                Try 
                    Return CType(Me(Me.tableCalls.DateModifiedColumn),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.DateModifiedColumn) = value
            End Set
        End Property
        
        Public Property DateCreated As Date
            Get
                Try 
                    Return CType(Me(Me.tableCalls.DateCreatedColumn),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCalls.DateCreatedColumn) = value
            End Set
        End Property
        
        Public Function IsProjectIDNull() As Boolean
            Return Me.IsNull(Me.tableCalls.ProjectIDColumn)
        End Function
        
        Public Sub SetProjectIDNull()
            Me(Me.tableCalls.ProjectIDColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsModifiedByNull() As Boolean
            Return Me.IsNull(Me.tableCalls.ModifiedByColumn)
        End Function
        
        Public Sub SetModifiedByNull()
            Me(Me.tableCalls.ModifiedByColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsAssignedToNull() As Boolean
            Return Me.IsNull(Me.tableCalls.AssignedToColumn)
        End Function
        
        Public Sub SetAssignedToNull()
            Me(Me.tableCalls.AssignedToColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsCallSummaryNull() As Boolean
            Return Me.IsNull(Me.tableCalls.CallSummaryColumn)
        End Function
        
        Public Sub SetCallSummaryNull()
            Me(Me.tableCalls.CallSummaryColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsCallDescriptionNull() As Boolean
            Return Me.IsNull(Me.tableCalls.CallDescriptionColumn)
        End Function
        
        Public Sub SetCallDescriptionNull()
            Me(Me.tableCalls.CallDescriptionColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsPriorityIDNull() As Boolean
            Return Me.IsNull(Me.tableCalls.PriorityIDColumn)
        End Function
        
        Public Sub SetPriorityIDNull()
            Me(Me.tableCalls.PriorityIDColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsStatusIDNull() As Boolean
            Return Me.IsNull(Me.tableCalls.StatusIDColumn)
        End Function
        
        Public Sub SetStatusIDNull()
            Me(Me.tableCalls.StatusIDColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsProgressNull() As Boolean
            Return Me.IsNull(Me.tableCalls.ProgressColumn)
        End Function
        
        Public Sub SetProgressNull()
            Me(Me.tableCalls.ProgressColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsIsDeletedNull() As Boolean
            Return Me.IsNull(Me.tableCalls.IsDeletedColumn)
        End Function
        
        Public Sub SetIsDeletedNull()
            Me(Me.tableCalls.IsDeletedColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsDateDueNull() As Boolean
            Return Me.IsNull(Me.tableCalls.DateDueColumn)
        End Function
        
        Public Sub SetDateDueNull()
            Me(Me.tableCalls.DateDueColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsDateModifiedNull() As Boolean
            Return Me.IsNull(Me.tableCalls.DateModifiedColumn)
        End Function
        
        Public Sub SetDateModifiedNull()
            Me(Me.tableCalls.DateModifiedColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsDateCreatedNull() As Boolean
            Return Me.IsNull(Me.tableCalls.DateCreatedColumn)
        End Function
        
        Public Sub SetDateCreatedNull()
            Me(Me.tableCalls.DateCreatedColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class CallsRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As CallsRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As CallsRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As CallsRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class