ds_cailiaofukuan.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

            Me.column收款单位名称 = New DataColumn("收款单位名称", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column收款单位名称)
            Me.column开户银行 = New DataColumn("开户银行", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column开户银行)
            Me.column银行帐号 = New DataColumn("银行帐号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column银行帐号)
            Me.column付款依据 = New DataColumn("付款依据", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column付款依据)
            Me.column付款方式 = New DataColumn("付款方式", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column付款方式)
            Me.column合同金额 = New DataColumn("合同金额", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column合同金额)
            Me.column已付金额 = New DataColumn("已付金额", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column已付金额)
            Me.column本次申请金额 = New DataColumn("本次申请金额", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column本次申请金额)
            Me.column余额 = New DataColumn("余额", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column余额)
            Me.column付款说明 = New DataColumn("付款说明", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column付款说明)
            Me.column备注 = New DataColumn("备注", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column备注)
            Me.column采购文员 = New DataColumn("采购文员", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column采购文员)
            Me.column录入时间 = New DataColumn("录入时间", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column录入时间)
            Me.column采购经理 = New DataColumn("采购经理", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column采购经理)
            Me.column采购经理审批意见 = New DataColumn("采购经理审批意见", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column采购经理审批意见)
            Me.column采购经理审批结果 = New DataColumn("采购经理审批结果", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column采购经理审批结果)
            Me.column采购经理审批时间 = New DataColumn("采购经理审批时间", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column采购经理审批时间)
            Me.column财务经理 = New DataColumn("财务经理", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column财务经理)
            Me.column财务经理审批意见 = New DataColumn("财务经理审批意见", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column财务经理审批意见)
            Me.column财务经理审批结果 = New DataColumn("财务经理审批结果", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column财务经理审批结果)
            Me.column财务经理审批日期 = New DataColumn("财务经理审批日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column财务经理审批日期)
            Me.column总经理 = New DataColumn("总经理", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column总经理)
            Me.column总经理审批意见 = New DataColumn("总经理审批意见", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column总经理审批意见)
            Me.column总经理审批结果 = New DataColumn("总经理审批结果", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column总经理审批结果)
            Me.column总经理审批日期 = New DataColumn("总经理审批日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column总经理审批日期)
            Me.column标志 = New DataColumn("标志", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column标志)
            Me.column是否为退回 = New DataColumn("是否为退回", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column是否为退回)
            Me.column是否为变更 = New DataColumn("是否为变更", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column是否为变更)
            Me.Constraints.Add(New UniqueConstraint("Ds_cailiaofukuanKey1", New DataColumn() {Me.column申请单编号}, true))
            Me.column申请单编号.AllowDBNull = false
            Me.column申请单编号.Unique = true
        End Sub
        
        Public Function Newfk_cailiao_shenqingdanRow() As fk_cailiao_shenqingdanRow
            Return CType(Me.NewRow,fk_cailiao_shenqingdanRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New fk_cailiao_shenqingdanRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(fk_cailiao_shenqingdanRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.fk_cailiao_shenqingdanRowChangedEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shenqingdanRowChanged(Me, New fk_cailiao_shenqingdanRowChangeEvent(CType(e.Row,fk_cailiao_shenqingdanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.fk_cailiao_shenqingdanRowChangingEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shenqingdanRowChanging(Me, New fk_cailiao_shenqingdanRowChangeEvent(CType(e.Row,fk_cailiao_shenqingdanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.fk_cailiao_shenqingdanRowDeletedEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shenqingdanRowDeleted(Me, New fk_cailiao_shenqingdanRowChangeEvent(CType(e.Row,fk_cailiao_shenqingdanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.fk_cailiao_shenqingdanRowDeletingEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shenqingdanRowDeleting(Me, New fk_cailiao_shenqingdanRowChangeEvent(CType(e.Row,fk_cailiao_shenqingdanRow), e.Action))
            End If
        End Sub
        
        Public Sub Removefk_cailiao_shenqingdanRow(ByVal row As fk_cailiao_shenqingdanRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shenqingdanRow
        Inherits DataRow
        
        Private tablefk_cailiao_shenqingdan As fk_cailiao_shenqingdanDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablefk_cailiao_shenqingdan = CType(Me.Table,fk_cailiao_shenqingdanDataTable)
        End Sub
        
        Public Property 申请单编号 As String
            Get
                Return CType(Me(Me.tablefk_cailiao_shenqingdan.申请单编号Column),String)
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.申请单编号Column) = value
            End Set
        End Property
        
        Public Property 订购单编号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.订购单编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.订购单编号Column) = value
            End Set
        End Property
        
        Public Property 收货单编号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.收货单编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.收货单编号Column) = value
            End Set
        End Property
        
        Public Property 工程名称 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.工程名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.工程名称Column) = value
            End Set
        End Property
        
        Public Property 工程编号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.工程编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.工程编号Column) = value
            End Set
        End Property
        
        Public Property 发文日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.发文日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.发文日期Column) = value
            End Set
        End Property
        
        Public Property 付款内容 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.付款内容Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.付款内容Column) = value
            End Set
        End Property
        
        Public Property 付款日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.付款日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.付款日期Column) = value
            End Set
        End Property
        
        Public Property 收款单位名称 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.收款单位名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.收款单位名称Column) = value
            End Set
        End Property
        
        Public Property 开户银行 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.开户银行Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.开户银行Column) = value
            End Set
        End Property
        
        Public Property 银行帐号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.银行帐号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.银行帐号Column) = value
            End Set
        End Property
        
        Public Property 付款依据 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.付款依据Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.付款依据Column) = value
            End Set
        End Property
        
        Public Property 付款方式 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.付款方式Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.付款方式Column) = value
            End Set
        End Property
        
        Public Property 合同金额 As Double
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shenqingdan.合同金额Column),Double)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shenqingdan.合同金额Column) = value
            End Set
        End Property
        
        Public Property 已付金额 As Double
            Get