dscust.vb

Visual Basic Oracle数据库联接

    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class CallDetailsRow
        Inherits DataRow
        
        Private tableCallDetails As CallDetailsDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableCallDetails = CType(Me.Table,CallDetailsDataTable)
        End Sub
        
        Public Property OrderID As Integer
            Get
                Return CType(Me(Me.tableCallDetails.OrderIDColumn),Integer)
            End Get
            Set
                Me(Me.tableCallDetails.OrderIDColumn) = value
            End Set
        End Property
        
        Public Property ProductID As Integer
            Get
                Return CType(Me(Me.tableCallDetails.ProductIDColumn),Integer)
            End Get
            Set
                Me(Me.tableCallDetails.ProductIDColumn) = value
            End Set
        End Property
        
        Public Property UnitPrice As Decimal
            Get
                Try 
                    Return CType(Me(Me.tableCallDetails.UnitPriceColumn),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCallDetails.UnitPriceColumn) = value
            End Set
        End Property
        
        Public Property Quantity As Short
            Get
                Try 
                    Return CType(Me(Me.tableCallDetails.QuantityColumn),Short)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCallDetails.QuantityColumn) = value
            End Set
        End Property
        
        Public Property Discount As Single
            Get
                Try 
                    Return CType(Me(Me.tableCallDetails.DiscountColumn),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                End Try
            End Get
            Set
                Me(Me.tableCallDetails.DiscountColumn) = value
            End Set
        End Property
        
        Public Function IsUnitPriceNull() As Boolean
            Return Me.IsNull(Me.tableCallDetails.UnitPriceColumn)
        End Function
        
        Public Sub SetUnitPriceNull()
            Me(Me.tableCallDetails.UnitPriceColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsQuantityNull() As Boolean
            Return Me.IsNull(Me.tableCallDetails.QuantityColumn)
        End Function
        
        Public Sub SetQuantityNull()
            Me(Me.tableCallDetails.QuantityColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsDiscountNull() As Boolean
            Return Me.IsNull(Me.tableCallDetails.DiscountColumn)
        End Function
        
        Public Sub SetDiscountNull()
            Me(Me.tableCallDetails.DiscountColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class CallDetailsRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As CallDetailsRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As CallDetailsRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As CallDetailsRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class CallsDataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private columnCallID As DataColumn
        
        Private columnProjectID As DataColumn
        
        Private columnModifiedBy As DataColumn
        
        Private columnAssignedTo As DataColumn
        
        Private columnCallSummary As DataColumn
        
        Private columnCallDescription 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
        
        Friend Sub New()
            MyBase.New("Calls")
            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 CallIDColumn As DataColumn
            Get
                Return Me.columnCallID
            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 CallSummaryColumn As DataColumn
            Get
                Return Me.columnCallSummary
            End Get
        End Property
        
        Friend ReadOnly Property CallDescriptionColumn As DataColumn
            Get
                Return Me.columnCallDescription
            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
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As CallsRow
            Get
                Return CType(Me.Rows(index),CallsRow)
            End Get
        End Property
        
        Public Event CallsRowChanged As CallsRowChangeEventHandler
        
        Public Event CallsRowChanging As CallsRowChangeEventHandler
        
        Public Event CallsRowDeleted As CallsRowChangeEventHandler
        
        Public Event CallsRowDeleting As CallsRowChangeEventHandler
        
        Public Overloads Sub AddCallsRow(ByVal row As CallsRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddCallsRow(ByVal ProjectID As Integer, ByVal ModifiedBy As Integer, ByVal AssignedTo As Integer, ByVal CallSummary As String, ByVal CallDescription 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) As CallsRow
            Dim rowCallsRow As CallsRow = CType(Me.NewRow,CallsRow)
            rowCallsRow.ItemArray = New Object() {Nothing, ProjectID, ModifiedBy, AssignedTo, CallSummary, CallDescription, PriorityID, StatusID, Progress, IsDeleted, DateDue, DateModified, DateCreated}
            Me.Rows.Add(rowCallsRow)
            Return rowCallsRow
        End Function
        
        Public Function FindByCallID(ByVal CallID As Integer) As CallsRow
            Return CType(Me.Rows.Find(New Object() {CallID}),CallsRow)
        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 CallsDataTable = CType(MyBase.Clone,CallsDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New CallsDataTable
        End Function
        
        Friend Sub InitVars()
            Me.columnCallID = Me.Columns("CallID")
            Me.columnProjectID = Me.Columns("ProjectID")
            Me.columnModifiedBy = Me.Columns("ModifiedBy")
            Me.columnAssignedTo = Me.Columns("AssignedTo")
            Me.columnCallSummary = Me.Columns("CallSummary")
            Me.columnCallDescription = Me.Columns("CallDescription")
            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")
        End Sub
        
        Private Sub InitClass()
            Me.columnCallID = New DataColumn("CallID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnCallID)
            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.columnCallSummary = New DataColumn("CallSummary", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnCallSummary)
            Me.columnCallDescription = New DataColumn("CallDescription", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnCallDescription)
            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.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnCallID}, true))
            Me.columnCallID.AutoIncrement = true
            Me.columnCallID.AllowDBNull = false
            Me.columnCallID.ReadOnly = true