ds_dinggou_baobiao.vb

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

        
        Public Function Is付款期限Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.付款期限Column)
        End Function
        
        Public Sub Set付款期限Null()
            Me(Me.tabledinggou_zongbiao.付款期限Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购文员Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购文员Column)
        End Function
        
        Public Sub Set采购文员Null()
            Me(Me.tabledinggou_zongbiao.采购文员Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购文员录入价格时间Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购文员录入价格时间Column)
        End Function
        
        Public Sub Set采购文员录入价格时间Null()
            Me(Me.tabledinggou_zongbiao.采购文员录入价格时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购经理Column)
        End Function
        
        Public Sub Set采购经理Null()
            Me(Me.tabledinggou_zongbiao.采购经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购经理审批意见Column)
        End Function
        
        Public Sub Set采购经理审批意见Null()
            Me(Me.tabledinggou_zongbiao.采购经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购经理审批结果Column)
        End Function
        
        Public Sub Set采购经理审批结果Null()
            Me(Me.tabledinggou_zongbiao.采购经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is采购经理审批时间Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购经理审批时间Column)
        End Function
        
        Public Sub Set采购经理审批时间Null()
            Me(Me.tabledinggou_zongbiao.采购经理审批时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.总经理Column)
        End Function
        
        Public Sub Set总经理Null()
            Me(Me.tabledinggou_zongbiao.总经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.总经理审批意见Column)
        End Function
        
        Public Sub Set总经理审批意见Null()
            Me(Me.tabledinggou_zongbiao.总经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.总经理审批结果Column)
        End Function
        
        Public Sub Set总经理审批结果Null()
            Me(Me.tabledinggou_zongbiao.总经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总经理审批时间Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.总经理审批时间Column)
        End Function
        
        Public Sub Set总经理审批时间Null()
            Me(Me.tabledinggou_zongbiao.总经理审批时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is回传确认时间Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.回传确认时间Column)
        End Function
        
        Public Sub Set回传确认时间Null()
            Me(Me.tabledinggou_zongbiao.回传确认时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is流程Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.流程Column)
        End Function
        
        Public Sub Set流程Null()
            Me(Me.tabledinggou_zongbiao.流程Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is选择的供应商名称Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.选择的供应商名称Column)
        End Function
        
        Public Sub Set选择的供应商名称Null()
            Me(Me.tabledinggou_zongbiao.选择的供应商名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否为退回Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.是否为退回Column)
        End Function
        
        Public Sub Set是否为退回Null()
            Me(Me.tabledinggou_zongbiao.是否为退回Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否为变更Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.是否为变更Column)
        End Function
        
        Public Sub Set是否为变更Null()
            Me(Me.tabledinggou_zongbiao.是否为变更Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class dinggou_zongbiaoRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As dinggou_zongbiaoRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As dinggou_zongbiaoRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As dinggou_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 gongyingshangxinxiDataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        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("gongyingshangxinxi")
            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
            Get
                Return Me.column名称
            End Get
        End Property
        
        Friend ReadOnly Property 地址Column As DataColumn
            Get
                Return Me.column地址
            End Get
        End Property
        
        Friend ReadOnly Property 联系人Column As DataColumn
            Get
                Return Me.column联系人
            End Get
        End Property
        
        Friend ReadOnly Property 联系电话Column As DataColumn
            Get
                Return Me.column联系电话
            End Get
        End Property
        
        Friend ReadOnly Property 添加时间Column As DataColumn
            Get
                Return Me.column添加时间
            End Get
        End Property
        
        Friend ReadOnly Property 备注Column As DataColumn
            Get
                Return Me.column备注
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As gongyingshangxinxiRow
            Get
                Return CType(Me.Rows(index),gongyingshangxinxiRow)
            End Get
        End Property
        
        Public Event gongyingshangxinxiRowChanged As gongyingshangxinxiRowChangeEventHandler
        
        Public Event gongyingshangxinxiRowChanging As gongyingshangxinxiRowChangeEventHandler
        
        Public Event gongyingshangxinxiRowDeleted As gongyingshangxinxiRowChangeEventHandler
        
        Public Event gongyingshangxinxiRowDeleting As gongyingshangxinxiRowChangeEventHandler
        
        Public Overloads Sub AddgongyingshangxinxiRow(ByVal row As gongyingshangxinxiRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddgongyingshangxinxiRow(ByVal 供应商编号 As String, ByVal 名称 As String, ByVal 地址 As String, ByVal 联系人 As String, ByVal 联系电话 As String, ByVal 添加时间 As Date, ByVal 备注 As String) As gongyingshangxinxiRow
            Dim rowgongyingshangxinxiRow As gongyingshangxinxiRow = CType(Me.NewRow,gongyingshangxinxiRow)
            rowgongyingshangxinxiRow.ItemArray = New Object() {供应商编号, 名称, 地址, 联系人, 联系电话, 添加时间, 备注}
            Me.Rows.Add(rowgongyingshangxinxiRow)
            Return rowgongyingshangxinxiRow
        End Function
        
        Public Function FindBy供应商编号(ByVal 供应商编号 As String) As gongyingshangxinxiRow
            Return CType(Me.Rows.Find(New Object() {供应商编号}),gongyingshangxinxiRow)
        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 gongyingshangxinxiDataTable = CType(MyBase.Clone,gongyingshangxinxiDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New gongyingshangxinxiDataTable
        End Function
        
        Friend Sub InitVars()
            Me.column供应商编号 = Me.Columns("供应商编号")
            Me.column名称 = Me.Columns("名称")
            Me.column地址 = Me.Columns("地址")
            Me.column联系人 = Me.Columns("联系人")
            Me.column联系电话 = Me.Columns("联系电话")
            Me.column添加时间 = Me.Columns("添加时间")
            Me.column备注 = Me.Columns("备注")
        End Sub
        
        Private Sub InitClass()