ds_shouhuodan.vb

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

        
        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("收货单编号")
        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.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column单位)
            Me.column数量 = New DataColumn("数量", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column数量)
            Me.column单价 = New DataColumn("单价", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column单价)
            Me.column总价 = New DataColumn("总价", GetType(System.Double), 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_shouhuodanKey2", 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 Newfk_cailiao_shouhuo_xiangdanRow() As fk_cailiao_shouhuo_xiangdanRow
            Return CType(Me.NewRow,fk_cailiao_shouhuo_xiangdanRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New fk_cailiao_shouhuo_xiangdanRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(fk_cailiao_shouhuo_xiangdanRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.fk_cailiao_shouhuo_xiangdanRowChangedEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_xiangdanRowChanged(Me, New fk_cailiao_shouhuo_xiangdanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_xiangdanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.fk_cailiao_shouhuo_xiangdanRowChangingEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_xiangdanRowChanging(Me, New fk_cailiao_shouhuo_xiangdanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_xiangdanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.fk_cailiao_shouhuo_xiangdanRowDeletedEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_xiangdanRowDeleted(Me, New fk_cailiao_shouhuo_xiangdanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_xiangdanRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.fk_cailiao_shouhuo_xiangdanRowDeletingEvent) Is Nothing) Then
                RaiseEvent fk_cailiao_shouhuo_xiangdanRowDeleting(Me, New fk_cailiao_shouhuo_xiangdanRowChangeEvent(CType(e.Row,fk_cailiao_shouhuo_xiangdanRow), e.Action))
            End If
        End Sub
        
        Public Sub Removefk_cailiao_shouhuo_xiangdanRow(ByVal row As fk_cailiao_shouhuo_xiangdanRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shouhuo_xiangdanRow
        Inherits DataRow
        
        Private tablefk_cailiao_shouhuo_xiangdan As fk_cailiao_shouhuo_xiangdanDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablefk_cailiao_shouhuo_xiangdan = CType(Me.Table,fk_cailiao_shouhuo_xiangdanDataTable)
        End Sub
        
        Public Property 编号 As Long
            Get
                Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.编号Column),Long)
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.编号Column) = value
            End Set
        End Property
        
        Public Property 序号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.序号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.序号Column) = value
            End Set
        End Property
        
        Public Property 物料名称 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.物料名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.物料名称Column) = value
            End Set
        End Property
        
        Public Property 描述 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.描述Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.描述Column) = value
            End Set
        End Property
        
        Public Property 单位 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.单位Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.单位Column) = value
            End Set
        End Property
        
        Public Property 数量 As Double
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.数量Column),Double)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.数量Column) = value
            End Set
        End Property
        
        Public Property 单价 As Double
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.单价Column),Double)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.单价Column) = value
            End Set
        End Property
        
        Public Property 总价 As Double
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.总价Column),Double)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.总价Column) = value
            End Set
        End Property
        
        Public Property 收货单编号 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_xiangdan.收货单编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_xiangdan.收货单编号Column) = value
            End Set
        End Property
        
        Public Property fk_cailiao_shouhuo_zhudanRow As fk_cailiao_shouhuo_zhudanRow
            Get
                Return CType(Me.GetParentRow(Me.Table.ParentRelations("fk_cailiao_shouhuo_zhudanfk_cailiao_shouhuo_xiangdan1")),fk_cailiao_shouhuo_zhudanRow)
            End Get
            Set
                Me.SetParentRow(value, Me.Table.ParentRelations("fk_cailiao_shouhuo_zhudanfk_cailiao_shouhuo_xiangdan1"))
            End Set
        End Property
        
        Public Function Is序号Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.序号Column)
        End Function
        
        Public Sub Set序号Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.序号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is物料名称Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.物料名称Column)
        End Function
        
        Public Sub Set物料名称Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.物料名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is描述Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.描述Column)
        End Function
        
        Public Sub Set描述Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.描述Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is单位Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.单位Column)
        End Function
        
        Public Sub Set单位Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.单位Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is数量Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.数量Column)
        End Function
        
        Public Sub Set数量Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.数量Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is单价Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.单价Column)
        End Function
        
        Public Sub Set单价Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.单价Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总价Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.总价Column)
        End Function
        
        Public Sub Set总价Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.总价Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is收货单编号Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_xiangdan.收货单编号Column)
        End Function
        
        Public Sub Set收货单编号Null()
            Me(Me.tablefk_cailiao_shouhuo_xiangdan.收货单编号Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shouhuo_xiangdanRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As fk_cailiao_shouhuo_xiangdanRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As fk_cailiao_shouhuo_xiangdanRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As fk_cailiao_shouhuo_xiangdanRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class