ds_dinggou_baobiao.vb

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

            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.Int64), 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.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.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.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.Constraints.Add(New UniqueConstraint("Ds_dinggou_baobiaoKey1", New DataColumn() {Me.column编号}, true))
            Me.column编号.AutoIncrement = true
            Me.column编号.AllowDBNull = false
            Me.column编号.ReadOnly = true
            Me.column编号.Unique = true
        End Sub
        
        Public Function Newdinggou_zongbiaoRow() As dinggou_zongbiaoRow
            Return CType(Me.NewRow,dinggou_zongbiaoRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New dinggou_zongbiaoRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(dinggou_zongbiaoRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.dinggou_zongbiaoRowChangedEvent) Is Nothing) Then
                RaiseEvent dinggou_zongbiaoRowChanged(Me, New dinggou_zongbiaoRowChangeEvent(CType(e.Row,dinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.dinggou_zongbiaoRowChangingEvent) Is Nothing) Then
                RaiseEvent dinggou_zongbiaoRowChanging(Me, New dinggou_zongbiaoRowChangeEvent(CType(e.Row,dinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.dinggou_zongbiaoRowDeletedEvent) Is Nothing) Then
                RaiseEvent dinggou_zongbiaoRowDeleted(Me, New dinggou_zongbiaoRowChangeEvent(CType(e.Row,dinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.dinggou_zongbiaoRowDeletingEvent) Is Nothing) Then
                RaiseEvent dinggou_zongbiaoRowDeleting(Me, New dinggou_zongbiaoRowChangeEvent(CType(e.Row,dinggou_zongbiaoRow), e.Action))
            End If
        End Sub
        
        Public Sub Removedinggou_zongbiaoRow(ByVal row As dinggou_zongbiaoRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class dinggou_zongbiaoRow
        Inherits DataRow
        
        Private tabledinggou_zongbiao As dinggou_zongbiaoDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tabledinggou_zongbiao = CType(Me.Table,dinggou_zongbiaoDataTable)
        End Sub
        
        Public Property 编号 As Long
            Get
                Return CType(Me(Me.tabledinggou_zongbiao.编号Column),Long)
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.编号Column) = value
            End Set
        End Property
        
        Public Property 采购单编号 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购单编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购单编号Column) = value
            End Set
        End Property
        
        Public Property 工程编号 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.工程编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.工程编号Column) = value
            End Set
        End Property
        
        Public Property 工程名称 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.工程名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.工程名称Column) = value
            End Set
        End Property
        
        Public Property 订购日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.订购日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.订购日期Column) = value
            End Set
        End Property
        
        Public Property 是否含运费 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.是否含运费Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.是否含运费Column) = value
            End Set
        End Property
        
        Public Property 发票方式 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.发票方式Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.发票方式Column) = value
            End Set
        End Property
        
        Public Property 需货日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.需货日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.需货日期Column) = value
            End Set
        End Property
        
        Public Property 付款方式 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.付款方式Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.付款方式Column) = value
            End Set
        End Property
        
        Public Property 送货地点 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.送货地点Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.送货地点Column) = value
            End Set
        End Property
        
        Public Property 工地收货人 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.工地收货人Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.工地收货人Column) = value
            End Set
        End Property
        
        Public Property 收货人联系方式 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.收货人联系方式Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.收货人联系方式Column) = value
            End Set
        End Property
        
        Public Property 备注 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.备注Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.备注Column) = value
            End Set
        End Property
        
        Public Property 付款期限 As String