ds_qg_biaobao.vb

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

        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 qinggou_zongbiaoRow
            Get
                Return CType(Me.Rows(index),qinggou_zongbiaoRow)
            End Get
        End Property
        
        Public Event qinggou_zongbiaoRowChanged As qinggou_zongbiaoRowChangeEventHandler
        
        Public Event qinggou_zongbiaoRowChanging As qinggou_zongbiaoRowChangeEventHandler
        
        Public Event qinggou_zongbiaoRowDeleted As qinggou_zongbiaoRowChangeEventHandler
        
        Public Event qinggou_zongbiaoRowDeleting As qinggou_zongbiaoRowChangeEventHandler
        
        Public Overloads Sub Addqinggou_zongbiaoRow(ByVal row As qinggou_zongbiaoRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addqinggou_zongbiaoRow( _
                    ByVal 请购单编号 As String,  _
                    ByVal 工程编号 As String,  _
                    ByVal 工程名称 As String,  _
                    ByVal 订购日期 As Date,  _
                    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 String,  _
                    ByVal 选择的供应商名称 As String,  _
                    ByVal 是否为退回 As String,  _
                    ByVal 是否分离 As String,  _
                    ByVal 是否变更 As String) As qinggou_zongbiaoRow
            Dim rowqinggou_zongbiaoRow As qinggou_zongbiaoRow = CType(Me.NewRow,qinggou_zongbiaoRow)
            rowqinggou_zongbiaoRow.ItemArray = New Object() {请购单编号, 工程编号, 工程名称, 订购日期, 送货地点, 付款期限, 其它事项, 请购人, 请购人提交时间, 项目经理, 项目经理审批意见, 项目经理审批结果, 项目经理审批时间, 分公司经理, 分公司经理审批意见, 分公司经理审批结果, 分公司经理审批时间, 流程, 选择的供应商名称, 是否为退回, 是否分离, 是否变更}
            Me.Rows.Add(rowqinggou_zongbiaoRow)
            Return rowqinggou_zongbiaoRow
        End Function
        
        Public Function FindBy请购单编号(ByVal 请购单编号 As String) As qinggou_zongbiaoRow
            Return CType(Me.Rows.Find(New Object() {请购单编号}),qinggou_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 qinggou_zongbiaoDataTable = CType(MyBase.Clone,qinggou_zongbiaoDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New qinggou_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("分公司经理审批时间")
            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()
            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.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.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_qg_biaobaoKey1", New DataColumn() {Me.column请购单编号}, true))
            Me.column请购单编号.AllowDBNull = false
            Me.column请购单编号.Unique = true
        End Sub
        
        Public Function Newqinggou_zongbiaoRow() As qinggou_zongbiaoRow
            Return CType(Me.NewRow,qinggou_zongbiaoRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New qinggou_zongbiaoRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(qinggou_zongbiaoRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.qinggou_zongbiaoRowChangedEvent) Is Nothing) Then
                RaiseEvent qinggou_zongbiaoRowChanged(Me, New qinggou_zongbiaoRowChangeEvent(CType(e.Row,qinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.qinggou_zongbiaoRowChangingEvent) Is Nothing) Then
                RaiseEvent qinggou_zongbiaoRowChanging(Me, New qinggou_zongbiaoRowChangeEvent(CType(e.Row,qinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.qinggou_zongbiaoRowDeletedEvent) Is Nothing) Then
                RaiseEvent qinggou_zongbiaoRowDeleted(Me, New qinggou_zongbiaoRowChangeEvent(CType(e.Row,qinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.qinggou_zongbiaoRowDeletingEvent) Is Nothing) Then
                RaiseEvent qinggou_zongbiaoRowDeleting(Me, New qinggou_zongbiaoRowChangeEvent(CType(e.Row,qinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Public Sub Removeqinggou_zongbiaoRow(ByVal row As qinggou_zongbiaoRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class qinggou_zongbiaoRow
        Inherits DataRow
        
        Private tableqinggou_zongbiao As qinggou_zongbiaoDataTable