ds_qg_biaobao.vb

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

        Public Function Is工程编号Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.工程编号Column)
        End Function
        
        Public Sub Set工程编号Null()
            Me(Me.tableqinggou_zongbiao.工程编号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工程名称Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.工程名称Column)
        End Function
        
        Public Sub Set工程名称Null()
            Me(Me.tableqinggou_zongbiao.工程名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is订购日期Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.订购日期Column)
        End Function
        
        Public Sub Set订购日期Null()
            Me(Me.tableqinggou_zongbiao.订购日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is送货地点Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.送货地点Column)
        End Function
        
        Public Sub Set送货地点Null()
            Me(Me.tableqinggou_zongbiao.送货地点Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款期限Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.付款期限Column)
        End Function
        
        Public Sub Set付款期限Null()
            Me(Me.tableqinggou_zongbiao.付款期限Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is其它事项Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.其它事项Column)
        End Function
        
        Public Sub Set其它事项Null()
            Me(Me.tableqinggou_zongbiao.其它事项Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is请购人Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.请购人Column)
        End Function
        
        Public Sub Set请购人Null()
            Me(Me.tableqinggou_zongbiao.请购人Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is请购人提交时间Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.请购人提交时间Column)
        End Function
        
        Public Sub Set请购人提交时间Null()
            Me(Me.tableqinggou_zongbiao.请购人提交时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.项目经理Column)
        End Function
        
        Public Sub Set项目经理Null()
            Me(Me.tableqinggou_zongbiao.项目经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.项目经理审批意见Column)
        End Function
        
        Public Sub Set项目经理审批意见Null()
            Me(Me.tableqinggou_zongbiao.项目经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.项目经理审批结果Column)
        End Function
        
        Public Sub Set项目经理审批结果Null()
            Me(Me.tableqinggou_zongbiao.项目经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理审批时间Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.项目经理审批时间Column)
        End Function
        
        Public Sub Set项目经理审批时间Null()
            Me(Me.tableqinggou_zongbiao.项目经理审批时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is分公司经理Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.分公司经理Column)
        End Function
        
        Public Sub Set分公司经理Null()
            Me(Me.tableqinggou_zongbiao.分公司经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is分公司经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.分公司经理审批意见Column)
        End Function
        
        Public Sub Set分公司经理审批意见Null()
            Me(Me.tableqinggou_zongbiao.分公司经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is分公司经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.分公司经理审批结果Column)
        End Function
        
        Public Sub Set分公司经理审批结果Null()
            Me(Me.tableqinggou_zongbiao.分公司经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is分公司经理审批时间Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.分公司经理审批时间Column)
        End Function
        
        Public Sub Set分公司经理审批时间Null()
            Me(Me.tableqinggou_zongbiao.分公司经理审批时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is流程Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.流程Column)
        End Function
        
        Public Sub Set流程Null()
            Me(Me.tableqinggou_zongbiao.流程Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is选择的供应商名称Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.选择的供应商名称Column)
        End Function
        
        Public Sub Set选择的供应商名称Null()
            Me(Me.tableqinggou_zongbiao.选择的供应商名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否为退回Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.是否为退回Column)
        End Function
        
        Public Sub Set是否为退回Null()
            Me(Me.tableqinggou_zongbiao.是否为退回Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否分离Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.是否分离Column)
        End Function
        
        Public Sub Set是否分离Null()
            Me(Me.tableqinggou_zongbiao.是否分离Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否变更Null() As Boolean
            Return Me.IsNull(Me.tableqinggou_zongbiao.是否变更Column)
        End Function
        
        Public Sub Set是否变更Null()
            Me(Me.tableqinggou_zongbiao.是否变更Column) = System.Convert.DBNull
        End Sub
        
        Public Function Getqg_huowu_xiangxiqingkuangRows() As qg_huowu_xiangxiqingkuangRow()
            Return CType(Me.GetChildRows(Me.Table.ChildRelations("qinggou_zongbiaoqg_huowu_xiangxiqingkuang")),qg_huowu_xiangxiqingkuangRow())
        End Function
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class qinggou_zongbiaoRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As qinggou_zongbiaoRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As qinggou_zongbiaoRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As qinggou_zongbiaoRow
            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 qg_huowu_xiangxiqingkuangDataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column编号 As DataColumn
        
        Private column请购单编号 As DataColumn
        
        Private column费用编码 As DataColumn
        
        Private column_CD1_2编码 As DataColumn
        
        Private column_CD3_4编码 As DataColumn
        
        Private column物品名称 As DataColumn
        
        Private column参数 As DataColumn
        
        Private column单价 As DataColumn
        
        Private column数量 As DataColumn
        
        Private column金额 As DataColumn
        
        Private column_供应商_一_名称 As DataColumn
        
        Private column_供应商_一_单价 As DataColumn
        
        Private column_供应商_一_金额 As DataColumn
        
        Private column_供应商_二_名称 As DataColumn
        
        Private column_供应商_二_单价 As DataColumn
        
        Private column_供应商_二_金额 As DataColumn
        
        Private column_供应商_三_名称 As DataColumn
        
        Private column_供应商_三_单价 As DataColumn
        
        Private column_供应商_三_金额 As DataColumn
        
        Private column_供应商_四_名称 As DataColumn
        
        Private column_供应商_四_单价 As DataColumn
        
        Private column_供应商_四_金额 As DataColumn
        
        Private column最后确定供应商 As DataColumn
        
        Private column备注 As DataColumn
        
        Friend Sub New()
            MyBase.New("qg_huowu_xiangxiqingkuang")
            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 编号Column As DataColumn
            Get
                Return Me.column编号
            End Get
        End Property
        
        Friend ReadOnly Property 请购单编号Column As DataColumn