ds_dinggou_baobiao.vb

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

        
        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("dinggou_zongbiao")
            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
        
        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
        
        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
        
        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
        
        Friend ReadOnly Property 是否为变更Column As DataColumn
            Get
                Return Me.column是否为变更
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As dinggou_zongbiaoRow
            Get
                Return CType(Me.Rows(index),dinggou_zongbiaoRow)
            End Get
        End Property
        
        Public Event dinggou_zongbiaoRowChanged As dinggou_zongbiaoRowChangeEventHandler
        
        Public Event dinggou_zongbiaoRowChanging As dinggou_zongbiaoRowChangeEventHandler
        
        Public Event dinggou_zongbiaoRowDeleted As dinggou_zongbiaoRowChangeEventHandler
        
        Public Event dinggou_zongbiaoRowDeleting As dinggou_zongbiaoRowChangeEventHandler
        
        Public Overloads Sub Adddinggou_zongbiaoRow(ByVal row As dinggou_zongbiaoRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Adddinggou_zongbiaoRow( _
                    ByVal 采购单编号 As String,  _
                    ByVal 工程编号 As String,  _
                    ByVal 工程名称 As String,  _
                    ByVal 订购日期 As Date,  _
                    ByVal 是否含运费 As String,  _
                    ByVal 发票方式 As String,  _
                    ByVal 需货日期 As Date,  _
                    ByVal 付款方式 As String,  _
                    ByVal 送货地点 As String,  _
                    ByVal 工地收货人 As String,  _
                    ByVal 收货人联系方式 As String,  _
                    ByVal 备注 As String,  _
                    ByVal 付款期限 As String,  _
                    ByVal 采购文员 As String,  _
                    ByVal 采购文员录入价格时间 As Date,  _
                    ByVal 采购经理 As String,  _
                    ByVal 采购经理审批意见 As String,  _
                    ByVal 采购经理审批结果 As String,  _
                    ByVal 采购经理审批时间 As Date,  _
                    ByVal 总经理 As String,  _
                    ByVal 总经理审批意见 As String,  _
                    ByVal 总经理审批结果 As String,  _
                    ByVal 总经理审批时间 As Date,  _
                    ByVal 回传确认时间 As Date,  _
                    ByVal 流程 As String,  _
                    ByVal 选择的供应商名称 As String,  _
                    ByVal 是否为退回 As String,  _
                    ByVal 是否为变更 As String) As dinggou_zongbiaoRow
            Dim rowdinggou_zongbiaoRow As dinggou_zongbiaoRow = CType(Me.NewRow,dinggou_zongbiaoRow)
            rowdinggou_zongbiaoRow.ItemArray = New Object() {Nothing, 采购单编号, 工程编号, 工程名称, 订购日期, 是否含运费, 发票方式, 需货日期, 付款方式, 送货地点, 工地收货人, 收货人联系方式, 备注, 付款期限, 采购文员, 采购文员录入价格时间, 采购经理, 采购经理审批意见, 采购经理审批结果, 采购经理审批时间, 总经理, 总经理审批意见, 总经理审批结果, 总经理审批时间, 回传确认时间, 流程, 选择的供应商名称, 是否为退回, 是否为变更}
            Me.Rows.Add(rowdinggou_zongbiaoRow)
            Return rowdinggou_zongbiaoRow
        End Function
        
        Public Function FindBy编号(ByVal 编号 As Long) As dinggou_zongbiaoRow
            Return CType(Me.Rows.Find(New Object() {编号}),dinggou_zongbiaoRow)
        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 dinggou_zongbiaoDataTable = CType(MyBase.Clone,dinggou_zongbiaoDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New dinggou_zongbiaoDataTable
        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("发票方式")
            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("付款期限")
            Me.column采购文员 = Me.Columns("采购文员")
            Me.column采购文员录入价格时间 = Me.Columns("采购文员录入价格时间")
            Me.column采购经理 = Me.Columns("采购经理")