dsap110.vb

通用进销存-visual basic编写

        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New AccountPayableDetailRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(AccountPayableDetailRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.AccountPayableDetailRowChangedEvent) Is Nothing) Then
                RaiseEvent AccountPayableDetailRowChanged(Me, New AccountPayableDetailRowChangeEvent(CType(e.Row,AccountPayableDetailRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.AccountPayableDetailRowChangingEvent) Is Nothing) Then
                RaiseEvent AccountPayableDetailRowChanging(Me, New AccountPayableDetailRowChangeEvent(CType(e.Row,AccountPayableDetailRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.AccountPayableDetailRowDeletedEvent) Is Nothing) Then
                RaiseEvent AccountPayableDetailRowDeleted(Me, New AccountPayableDetailRowChangeEvent(CType(e.Row,AccountPayableDetailRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.AccountPayableDetailRowDeletingEvent) Is Nothing) Then
                RaiseEvent AccountPayableDetailRowDeleting(Me, New AccountPayableDetailRowChangeEvent(CType(e.Row,AccountPayableDetailRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveAccountPayableDetailRow(ByVal row As AccountPayableDetailRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class AccountPayableDetailRow
        Inherits DataRow
        
        Private tableAccountPayableDetail As AccountPayableDetailDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableAccountPayableDetail = CType(Me.Table,AccountPayableDetailDataTable)
        End Sub
        
        Public Property PaymentID As String
            Get
                Return CType(Me(Me.tableAccountPayableDetail.PaymentIDColumn),String)
            End Get
            Set
                Me(Me.tableAccountPayableDetail.PaymentIDColumn) = value
            End Set
        End Property
        
        Public Property PurchaseID As String
            Get
                Return CType(Me(Me.tableAccountPayableDetail.PurchaseIDColumn),String)
            End Get
            Set
                Me(Me.tableAccountPayableDetail.PurchaseIDColumn) = value
            End Set
        End Property
        
        Public Property Balance As Decimal
            Get
                Return CType(Me(Me.tableAccountPayableDetail.BalanceColumn),Decimal)
            End Get
            Set
                Me(Me.tableAccountPayableDetail.BalanceColumn) = value
            End Set
        End Property
        
        Public Property AccountPayableMasterRow As AccountPayableMasterRow
            Get
                Return CType(Me.GetParentRow(Me.Table.ParentRelations("AccountPayableMasterAccountPayableDetail")),AccountPayableMasterRow)
            End Get
            Set
                Me.SetParentRow(value, Me.Table.ParentRelations("AccountPayableMasterAccountPayableDetail"))
            End Set
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class AccountPayableDetailRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As AccountPayableDetailRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As AccountPayableDetailRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As AccountPayableDetailRow
            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 AccountPayableMasterDataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private columnPaymentID As DataColumn
        
        Private columnPayDate As DataColumn
        
        Private columnSupplierID As DataColumn
        
        Private columnPayCash As DataColumn
        
        Private columnPayCheck 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 columnPrepaid As DataColumn
        
        Private columnOthers As DataColumn
        
        Private columnPayAmount As DataColumn
        
        Private columnTotalBalance As DataColumn
        
        Friend Sub New()
            MyBase.New("AccountPayableMaster")
            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 PaymentIDColumn As DataColumn
            Get
                Return Me.columnPaymentID
            End Get
        End Property
        
        Friend ReadOnly Property PayDateColumn As DataColumn
            Get
                Return Me.columnPayDate
            End Get
        End Property
        
        Friend ReadOnly Property SupplierIDColumn As DataColumn
            Get
                Return Me.columnSupplierID
            End Get
        End Property
        
        Friend ReadOnly Property PayCashColumn As DataColumn
            Get
                Return Me.columnPayCash
            End Get
        End Property
        
        Friend ReadOnly Property PayCheckColumn As DataColumn
            Get
                Return Me.columnPayCheck
            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 PrepaidColumn As DataColumn
            Get
                Return Me.columnPrepaid
            End Get
        End Property
        
        Friend ReadOnly Property OthersColumn As DataColumn
            Get
                Return Me.columnOthers
            End Get
        End Property
        
        Friend ReadOnly Property PayAmountColumn As DataColumn
            Get
                Return Me.columnPayAmount
            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 AccountPayableMasterRow
            Get
                Return CType(Me.Rows(index),AccountPayableMasterRow)
            End Get
        End Property
        
        Public Event AccountPayableMasterRowChanged As AccountPayableMasterRowChangeEventHandler
        
        Public Event AccountPayableMasterRowChanging As AccountPayableMasterRowChangeEventHandler
        
        Public Event AccountPayableMasterRowDeleted As AccountPayableMasterRowChangeEventHandler
        
        Public Event AccountPayableMasterRowDeleting As AccountPayableMasterRowChangeEventHandler
        
        Public Overloads Sub AddAccountPayableMasterRow(ByVal row As AccountPayableMasterRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddAccountPayableMasterRow(ByVal PaymentID As String, ByVal PayDate As Date, ByVal SupplierID As String, ByVal PayCash As Decimal, ByVal PayCheck 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 Prepaid As Decimal, ByVal Others As Decimal, ByVal PayAmount As Decimal, ByVal TotalBalance As Decimal) As AccountPayableMasterRow
            Dim rowAccountPayableMasterRow As AccountPayableMasterRow = CType(Me.NewRow,AccountPayableMasterRow)
            rowAccountPayableMasterRow.ItemArray = New Object() {PaymentID, PayDate, SupplierID, PayCash, PayCheck, NoteNo, DueDate, BankID, AccountNo, Discount, Remittance, Prepaid, Others, PayAmount, TotalBalance}
            Me.Rows.Add(rowAccountPayableMasterRow)
            Return rowAccountPayableMasterRow
        End Function
        
        Public Function FindByPaymentID(ByVal PaymentID As String) As AccountPayableMasterRow
            Return CType(Me.Rows.Find(New Object() {PaymentID}),AccountPayableMasterRow)
        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 AccountPayableMasterDataTable = CType(MyBase.Clone,AccountPayableMasterDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Friend Sub InitVars()
            Me.columnPaymentID = Me.Columns("PaymentID")
            Me.columnPayDate = Me.Columns("PayDate")
            Me.columnSupplierID = Me.Columns("SupplierID")
            Me.columnPayCash = Me.Columns("PayCash")
            Me.columnPayCheck = Me.Columns("PayCheck")
            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.columnPrepaid = Me.Columns("Prepaid")
            Me.columnOthers = Me.Columns("Others")
            Me.columnPayAmount = Me.Columns("PayAmount")
            Me.columnTotalBalance = Me.Columns("TotalBalance")
        End Sub
        
        Private Sub InitClass()
            Me.columnPaymentID = New DataColumn("PaymentID", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnPaymentID)
            Me.columnPayDate = New DataColumn("PayDate", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnPayDate)
            Me.columnSupplierID = New DataColumn("SupplierID", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnSupplierID)
            Me.columnPayCash = New DataColumn("PayCash", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnPayCash)
            Me.columnPayCheck = New DataColumn("PayCheck", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnPayCheck)
            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)