ds_cailiaofukuan.vb

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

            Me(Me.tablefk_cailiao_shenqingdan.收货单编号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工程名称Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.工程名称Column)
        End Function
        
        Public Sub Set工程名称Null()
            Me(Me.tablefk_cailiao_shenqingdan.工程名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工程编号Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.工程编号Column)
        End Function
        
        Public Sub Set工程编号Null()
            Me(Me.tablefk_cailiao_shenqingdan.工程编号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is发文日期Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.发文日期Column)
        End Function
        
        Public Sub Set发文日期Null()
            Me(Me.tablefk_cailiao_shenqingdan.发文日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款内容Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.付款内容Column)
        End Function
        
        Public Sub Set付款内容Null()
            Me(Me.tablefk_cailiao_shenqingdan.付款内容Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款日期Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.付款日期Column)
        End Function
        
        Public Sub Set付款日期Null()
            Me(Me.tablefk_cailiao_shenqingdan.付款日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is收款单位名称Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.收款单位名称Column)
        End Function
        
        Public Sub Set收款单位名称Null()
            Me(Me.tablefk_cailiao_shenqingdan.收款单位名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is开户银行Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.开户银行Column)
        End Function
        
        Public Sub Set开户银行Null()
            Me(Me.tablefk_cailiao_shenqingdan.开户银行Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is银行帐号Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.银行帐号Column)
        End Function
        
        Public Sub Set银行帐号Null()
            Me(Me.tablefk_cailiao_shenqingdan.银行帐号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款依据Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.付款依据Column)
        End Function
        
        Public Sub Set付款依据Null()
            Me(Me.tablefk_cailiao_shenqingdan.付款依据Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款方式Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.付款方式Column)
        End Function
        
        Public Sub Set付款方式Null()
            Me(Me.tablefk_cailiao_shenqingdan.付款方式Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is合同金额Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.合同金额Column)
        End Function
        
        Public Sub Set合同金额Null()
            Me(Me.tablefk_cailiao_shenqingdan.合同金额Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is已付金额Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.已付金额Column)
        End Function
        
        Public Sub Set已付金额Null()
            Me(Me.tablefk_cailiao_shenqingdan.已付金额Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is本次申请金额Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.本次申请金额Column)
        End Function
        
        Public Sub Set本次申请金额Null()
            Me(Me.tablefk_cailiao_shenqingdan.本次申请金额Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is余额Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.余额Column)
        End Function
        
        Public Sub Set余额Null()
            Me(Me.tablefk_cailiao_shenqingdan.余额Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款说明Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.付款说明Column)
        End Function
        
        Public Sub Set付款说明Null()
            Me(Me.tablefk_cailiao_shenqingdan.付款说明Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.备注Column)
        End Function
        
        Public Sub Set备注Null()
            Me(Me.tablefk_cailiao_shenqingdan.备注Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购文员Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.采购文员Column)
        End Function
        
        Public Sub Set采购文员Null()
            Me(Me.tablefk_cailiao_shenqingdan.采购文员Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is录入时间Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.录入时间Column)
        End Function
        
        Public Sub Set录入时间Null()
            Me(Me.tablefk_cailiao_shenqingdan.录入时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.采购经理Column)
        End Function
        
        Public Sub Set采购经理Null()
            Me(Me.tablefk_cailiao_shenqingdan.采购经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.采购经理审批意见Column)
        End Function
        
        Public Sub Set采购经理审批意见Null()
            Me(Me.tablefk_cailiao_shenqingdan.采购经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.采购经理审批结果Column)
        End Function
        
        Public Sub Set采购经理审批结果Null()
            Me(Me.tablefk_cailiao_shenqingdan.采购经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理审批时间Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.采购经理审批时间Column)
        End Function
        
        Public Sub Set采购经理审批时间Null()
            Me(Me.tablefk_cailiao_shenqingdan.采购经理审批时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is财务经理Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.财务经理Column)
        End Function
        
        Public Sub Set财务经理Null()
            Me(Me.tablefk_cailiao_shenqingdan.财务经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is财务经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.财务经理审批意见Column)
        End Function
        
        Public Sub Set财务经理审批意见Null()
            Me(Me.tablefk_cailiao_shenqingdan.财务经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is财务经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.财务经理审批结果Column)
        End Function
        
        Public Sub Set财务经理审批结果Null()
            Me(Me.tablefk_cailiao_shenqingdan.财务经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is财务经理审批日期Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.财务经理审批日期Column)
        End Function
        
        Public Sub Set财务经理审批日期Null()
            Me(Me.tablefk_cailiao_shenqingdan.财务经理审批日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.总经理Column)
        End Function
        
        Public Sub Set总经理Null()
            Me(Me.tablefk_cailiao_shenqingdan.总经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.总经理审批意见Column)
        End Function
        
        Public Sub Set总经理审批意见Null()
            Me(Me.tablefk_cailiao_shenqingdan.总经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.总经理审批结果Column)
        End Function
        
        Public Sub Set总经理审批结果Null()
            Me(Me.tablefk_cailiao_shenqingdan.总经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理审批日期Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.总经理审批日期Column)
        End Function
        
        Public Sub Set总经理审批日期Null()
            Me(Me.tablefk_cailiao_shenqingdan.总经理审批日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is标志Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.标志Column)
        End Function
        
        Public Sub Set标志Null()
            Me(Me.tablefk_cailiao_shenqingdan.标志Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否为退回Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.是否为退回Column)
        End Function
        
        Public Sub Set是否为退回Null()
            Me(Me.tablefk_cailiao_shenqingdan.是否为退回Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否为变更Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shenqingdan.是否为变更Column)
        End Function
        
        Public Sub Set是否为变更Null()
            Me(Me.tablefk_cailiao_shenqingdan.是否为变更Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shenqingdanRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As fk_cailiao_shenqingdanRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As fk_cailiao_shenqingdanRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As fk_cailiao_shenqingdanRow
            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