ds_shouhuodan.vb

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

            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 fk_cailiao_shouhuo_zhudanRow
            Get
                Return CType(Me.Rows(index),fk_cailiao_shouhuo_zhudanRow)
            End Get
        End Property
        
        Public Event fk_cailiao_shouhuo_zhudanRowChanged As fk_cailiao_shouhuo_zhudanRowChangeEventHandler
        
        Public Event fk_cailiao_shouhuo_zhudanRowChanging As fk_cailiao_shouhuo_zhudanRowChangeEventHandler
        
        Public Event fk_cailiao_shouhuo_zhudanRowDeleted As fk_cailiao_shouhuo_zhudanRowChangeEventHandler
        
        Public Event fk_cailiao_shouhuo_zhudanRowDeleting As fk_cailiao_shouhuo_zhudanRowChangeEventHandler
        
        Public Overloads Sub Addfk_cailiao_shouhuo_zhudanRow(ByVal row As fk_cailiao_shouhuo_zhudanRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addfk_cailiao_shouhuo_zhudanRow(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 Date, ByVal 项目经理 As String, ByVal 项目经理审批时间 As Date, ByVal 项目经理审批意见 As String, ByVal 项目经理审批结果 As String) As fk_cailiao_shouhuo_zhudanRow
            Dim rowfk_cailiao_shouhuo_zhudanRow As fk_cailiao_shouhuo_zhudanRow = CType(Me.NewRow,fk_cailiao_shouhuo_zhudanRow)
            rowfk_cailiao_shouhuo_zhudanRow.ItemArray = New Object() {收货单编号, 工程名称, 收货日期, 订购单编号, 供应商, 收货人, 日期, 备注, 标志, 录入时间, 项目经理, 项目经理审批时间, 项目经理审批意见, 项目经理审批结果}
            Me.Rows.Add(rowfk_cailiao_shouhuo_zhudanRow)
            Return rowfk_cailiao_shouhuo_zhudanRow
        End Function
        
        Public Function FindBy收货单编号(ByVal 收货单编号 As String) As fk_cailiao_shouhuo_zhudanRow
            Return CType(Me.Rows.Find(New Object() {收货单编号}),fk_cailiao_shouhuo_zhudanRow)
        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 fk_cailiao_shouhuo_zhudanDataTable = CType(MyBase.Clone,fk_cailiao_shouhuo_zhudanDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New fk_cailiao_shouhuo_zhudanDataTable
        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("项目经理审批结果")
        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.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.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.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.Constraints.Add(New UniqueConstraint("Ds_shouhuodanKey1", New DataColumn() {Me.column收货单编号}, true))
            Me.column收货单编号.AllowDBNull = false
            Me.column收货单编号.Unique = true
        End Sub
        
        Public Function Newfk_cailiao_shouhuo_zhudanRow() As fk_cailiao_shouhuo_zhudanRow
            Return CType(Me.NewRow,fk_cailiao_shouhuo_zhudanRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New fk_cailiao_shouhuo_zhudanRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(fk_cailiao_shouhuo_zhudanRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.fk_cailiao_shouhuo_zhudanRowChangedEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_zhudanRowChanged(Me, New fk_cailiao_shouhuo_zhudanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_zhudanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.fk_cailiao_shouhuo_zhudanRowChangingEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_zhudanRowChanging(Me, New fk_cailiao_shouhuo_zhudanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_zhudanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.fk_cailiao_shouhuo_zhudanRowDeletedEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_zhudanRowDeleted(Me, New fk_cailiao_shouhuo_zhudanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_zhudanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.fk_cailiao_shouhuo_zhudanRowDeletingEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_zhudanRowDeleting(Me, New fk_cailiao_shouhuo_zhudanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_zhudanRow), e.Action))
            End If
        End Sub
        
        Public Sub Removefk_cailiao_shouhuo_zhudanRow(ByVal row As fk_cailiao_shouhuo_zhudanRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shouhuo_zhudanRow
        Inherits DataRow
        
        Private tablefk_cailiao_shouhuo_zhudan As fk_cailiao_shouhuo_zhudanDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablefk_cailiao_shouhuo_zhudan = CType(Me.Table,fk_cailiao_shouhuo_zhudanDataTable)
        End Sub
        
        Public Property 收货单编号 As String
            Get
                Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.收货单编号Column),String)
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.收货单编号Column) = value
            End Set
        End Property
        
        Public Property 工程名称 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.工程名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.工程名称Column) = value
            End Set
        End Property
        
        Public Property 收货日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.收货日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.收货日期Column) = value
            End Set
        End Property
        
        Public Property 订购单编号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.订购单编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.订购单编号Column) = value
            End Set
        End Property
        
        Public Property 供应商 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.供应商Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.供应商Column) = value
            End Set
        End Property
        
        Public Property 收货人 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.收货人Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.收货人Column) = value
            End Set
        End Property
        
        Public Property 日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.日期Column) = value
            End Set
        End Property
        
        Public Property 备注 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.备注Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.备注Column) = value
            End Set
        End Property
        
        Public Property 标志 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.标志Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.标志Column) = value
            End Set
        End Property
        
        Public Property 录入时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.录入时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.录入时间Column) = value
            End Set
        End Property
        
        Public Property 项目经理 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理Column) = value
            End Set
        End Property
        
        Public Property 项目经理审批时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批时间Column) = value
            End Set