dsar110.vb

通用进销存-visual basic编写

        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New AccountReceivableDetailRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(AccountReceivableDetailRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.AccountReceivableDetailRowChangedEvent) Is Nothing) Then
                RaiseEvent AccountReceivableDetailRowChanged(Me, New AccountReceivableDetailRowChangeEvent(CType(e.Row,AccountReceivableDetailRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.AccountReceivableDetailRowChangingEvent) Is Nothing) Then
                RaiseEvent AccountReceivableDetailRowChanging(Me, New AccountReceivableDetailRowChangeEvent(CType(e.Row,AccountReceivableDetailRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.AccountReceivableDetailRowDeletedEvent) Is Nothing) Then
                RaiseEvent AccountReceivableDetailRowDeleted(Me, New AccountReceivableDetailRowChangeEvent(CType(e.Row,AccountReceivableDetailRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.AccountReceivableDetailRowDeletingEvent) Is Nothing) Then
                RaiseEvent AccountReceivableDetailRowDeleting(Me, New AccountReceivableDetailRowChangeEvent(CType(e.Row,AccountReceivableDetailRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveAccountReceivableDetailRow(ByVal row As AccountReceivableDetailRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class AccountReceivableDetailRow
        Inherits DataRow
        
        Private tableAccountReceivableDetail As AccountReceivableDetailDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableAccountReceivableDetail = CType(Me.Table,AccountReceivableDetailDataTable)
        End Sub
        
        Public Property ReceiveID As String
            Get
                Return CType(Me(Me.tableAccountReceivableDetail.ReceiveIDColumn),String)
            End Get
            Set
                Me(Me.tableAccountReceivableDetail.ReceiveIDColumn) = value
            End Set
        End Property
        
        Public Property DeliveryID As String
            Get
                Return CType(Me(Me.tableAccountReceivableDetail.DeliveryIDColumn),String)
            End Get
            Set
                Me(Me.tableAccountReceivableDetail.DeliveryIDColumn) = value
            End Set
        End Property
        
        Public Property Balance As Decimal
            Get
                Return CType(Me(Me.tableAccountReceivableDetail.BalanceColumn),Decimal)
            End Get
            Set
                Me(Me.tableAccountReceivableDetail.BalanceColumn) = value
            End Set
        End Property
        
        Public Property AccountReceivableMasterRow As AccountReceivableMasterRow
            Get
                Return CType(Me.GetParentRow(Me.Table.ParentRelations("AccountReceivableMasterAccountReceivableDetail")),AccountReceivableMasterRow)
            End Get
            Set
                Me.SetParentRow(value, Me.Table.ParentRelations("AccountReceivableMasterAccountReceivableDetail"))
            End Set
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class AccountReceivableDetailRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As AccountReceivableDetailRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As AccountReceivableDetailRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As AccountReceivableDetailRow
            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 AccountReceivableMasterDataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private columnReceiveID As DataColumn
        
        Private columnReceiveDate As DataColumn
        
        Private columnCustomerID As DataColumn
        
        Private columnReceiveCash As DataColumn
        
        Private columnReceiveCheck As DataColumn
        
        Private columnNoteNo As DataColumn
        
        Private columnDueDate As DataColumn
        
        Private columnBankID As DataColumn
        
        Private columnAccountNo As DataColumn
        
        Private columnDiscount As DataColumn
        
        Private columnRemittance As DataColumn
        
        Private columnAdvance As DataColumn
        
        Private columnOthers As DataColumn
        
        Private columnReceiveAmount As DataColumn
        
        Private columnTotalBalance As DataColumn
        
        Friend Sub New()
            MyBase.New("AccountReceivableMaster")
            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 ReceiveIDColumn As DataColumn
            Get
                Return Me.columnReceiveID
            End Get
        End Property
        
        Friend ReadOnly Property ReceiveDateColumn As DataColumn
            Get
                Return Me.columnReceiveDate
            End Get
        End Property
        
        Friend ReadOnly Property CustomerIDColumn As DataColumn
            Get
                Return Me.columnCustomerID
            End Get
        End Property
        
        Friend ReadOnly Property ReceiveCashColumn As DataColumn
            Get
                Return Me.columnReceiveCash
            End Get
        End Property
        
        Friend ReadOnly Property ReceiveCheckColumn As DataColumn
            Get
                Return Me.columnReceiveCheck
            End Get
        End Property
        
        Friend ReadOnly Property NoteNoColumn As DataColumn
            Get
                Return Me.columnNoteNo
            End Get
        End Property
        
        Friend ReadOnly Property DueDateColumn As DataColumn
            Get
                Return Me.columnDueDate
            End Get
        End Property
        
        Friend ReadOnly Property BankIDColumn As DataColumn
            Get
                Return Me.columnBankID
            End Get
        End Property
        
        Friend ReadOnly Property AccountNoColumn As DataColumn
            Get
                Return Me.columnAccountNo
            End Get
        End Property
        
        Friend ReadOnly Property DiscountColumn As DataColumn
            Get
                Return Me.columnDiscount
            End Get
        End Property
        
        Friend ReadOnly Property RemittanceColumn As DataColumn
            Get
                Return Me.columnRemittance
            End Get
        End Property
        
        Friend ReadOnly Property AdvanceColumn As DataColumn
            Get
                Return Me.columnAdvance
            End Get
        End Property
        
        Friend ReadOnly Property OthersColumn As DataColumn
            Get
                Return Me.columnOthers
            End Get
        End Property
        
        Friend ReadOnly Property ReceiveAmountColumn As DataColumn
            Get
                Return Me.columnReceiveAmount
            End Get
        End Property
        
        Friend ReadOnly Property TotalBalanceColumn As DataColumn
            Get
                Return Me.columnTotalBalance
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As AccountReceivableMasterRow
            Get
                Return CType(Me.Rows(index),AccountReceivableMasterRow)
            End Get
        End Property
        
        Public Event AccountReceivableMasterRowChanged As AccountReceivableMasterRowChangeEventHandler
        
        Public Event AccountReceivableMasterRowChanging As AccountReceivableMasterRowChangeEventHandler
        
        Public Event AccountReceivableMasterRowDeleted As AccountReceivableMasterRowChangeEventHandler
        
        Public Event AccountReceivableMasterRowDeleting As AccountReceivableMasterRowChangeEventHandler
        
        Public Overloads Sub AddAccountReceivableMasterRow(ByVal row As AccountReceivableMasterRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddAccountReceivableMasterRow(ByVal ReceiveID As String, ByVal ReceiveDate As Date, ByVal CustomerID As String, ByVal ReceiveCash As Decimal, ByVal ReceiveCheck As Decimal, ByVal NoteNo As String, ByVal DueDate As Date, ByVal BankID As String, ByVal AccountNo As String, ByVal Discount As Decimal, ByVal Remittance As Decimal, ByVal Advance As Decimal, ByVal Others As Decimal, ByVal ReceiveAmount As Decimal, ByVal TotalBalance As Decimal) As AccountReceivableMasterRow
            Dim rowAccountReceivableMasterRow As AccountReceivableMasterRow = CType(Me.NewRow,AccountReceivableMasterRow)
            rowAccountReceivableMasterRow.ItemArray = New Object() {ReceiveID, ReceiveDate, CustomerID, ReceiveCash, ReceiveCheck, NoteNo, DueDate, BankID, AccountNo, Discount, Remittance, Advance, Others, ReceiveAmount, TotalBalance}
            Me.Rows.Add(rowAccountReceivableMasterRow)
            Return rowAccountReceivableMasterRow
        End Function
        
        Public Function FindByReceiveID(ByVal ReceiveID As String) As AccountReceivableMasterRow
            Return CType(Me.Rows.Find(New Object() {ReceiveID}),AccountReceivableMasterRow)
        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 AccountReceivableMasterDataTable = CType(MyBase.Clone,AccountReceivableMasterDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Friend Sub InitVars()
            Me.columnReceiveID = Me.Columns("ReceiveID")
            Me.columnReceiveDate = Me.Columns("ReceiveDate")
            Me.columnCustomerID = Me.Columns("CustomerID")
            Me.columnReceiveCash = Me.Columns("ReceiveCash")
            Me.columnReceiveCheck = Me.Columns("ReceiveCheck")
            Me.columnNoteNo = Me.Columns("NoteNo")
            Me.columnDueDate = Me.Columns("DueDate")
            Me.columnBankID = Me.Columns("BankID")
            Me.columnAccountNo = Me.Columns("AccountNo")
            Me.columnDiscount = Me.Columns("Discount")
            Me.columnRemittance = Me.Columns("Remittance")
            Me.columnAdvance = Me.Columns("Advance")
            Me.columnOthers = Me.Columns("Others")
            Me.columnReceiveAmount = Me.Columns("ReceiveAmount")
            Me.columnTotalBalance = Me.Columns("TotalBalance")
        End Sub
        
        Private Sub InitClass()
            Me.columnReceiveID = New DataColumn("ReceiveID", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnReceiveID)
            Me.columnReceiveDate = New DataColumn("ReceiveDate", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnReceiveDate)
            Me.columnCustomerID = New DataColumn("CustomerID", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnCustomerID)
            Me.columnReceiveCash = New DataColumn("ReceiveCash", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnReceiveCash)
            Me.columnReceiveCheck = New DataColumn("ReceiveCheck", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnReceiveCheck)
            Me.columnNoteNo = New DataColumn("NoteNo", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnNoteNo)
            Me.columnDueDate = New DataColumn("DueDate", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnDueDate)
            Me.columnBankID = New DataColumn("BankID", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBankID)
            Me.columnAccountNo = New DataColumn("AccountNo", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnAccountNo)
            Me.columnDiscount = New DataColumn("Discount", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnDiscount)
            Me.columnRemittance = New DataColumn("Remittance", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)