dataset1.vb

生产管理系统。vb.net sql2

            Get
                Return Me.column生产车间
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 物料主文件Row
            Get
                Return CType(Me.Rows(index),物料主文件Row)
            End Get
        End Property
        
        Public Event 物料主文件RowChanged As 物料主文件RowChangeEventHandler
        
        Public Event 物料主文件RowChanging As 物料主文件RowChangeEventHandler
        
        Public Event 物料主文件RowDeleted As 物料主文件RowChangeEventHandler
        
        Public Event 物料主文件RowDeleting As 物料主文件RowChangeEventHandler
        
        Public Overloads Sub Add物料主文件Row(ByVal row As 物料主文件Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add物料主文件Row( _
                    ByVal 物料编号 As String,  _
                    ByVal 条码 As String,  _
                    ByVal 物料名称 As String,  _
                    ByVal 拼音编码 As String,  _
                    ByVal 计量单位 As String,  _
                    ByVal 规格型号 As String,  _
                    ByVal 计划类别 As String,  _
                    ByVal 状态类别 As String,  _
                    ByVal 归属类别 As String,  _
                    ByVal 价值类别 As String,  _
                    ByVal 物料特性a As String,  _
                    ByVal 物料特性b As String,  _
                    ByVal 物料特性c As String,  _
                    ByVal 物料特性d As String,  _
                    ByVal 长 As Decimal,  _
                    ByVal 宽 As Decimal,  _
                    ByVal 高 As Decimal,  _
                    ByVal 净重 As Decimal,  _
                    ByVal 品牌 As String,  _
                    ByVal 颜色 As String,  _
                    ByVal 等级 As String,  _
                    ByVal 进货提前期 As Integer,  _
                    ByVal 准备周期 As Integer,  _
                    ByVal 生产周期 As Integer,  _
                    ByVal 最小包装量 As Decimal,  _
                    ByVal 最低销售量 As Decimal,  _
                    ByVal 批量 As Decimal,  _
                    ByVal 最高库存 As Decimal,  _
                    ByVal 最低库存 As Decimal,  _
                    ByVal 库存期限 As Integer,  _
                    ByVal 录入者 As String,  _
                    ByVal 录入日期 As Integer,  _
                    ByVal 低层码 As Integer,  _
                    ByVal 指定供货商 As String,  _
                    ByVal 定货策略 As String,  _
                    ByVal 生产车间 As String) As 物料主文件Row
            Dim row物料主文件Row As 物料主文件Row = CType(Me.NewRow,物料主文件Row)
            row物料主文件Row.ItemArray = New Object() {物料编号, 条码, 物料名称, 拼音编码, 计量单位, 规格型号, 计划类别, 状态类别, 归属类别, 价值类别, 物料特性a, 物料特性b, 物料特性c, 物料特性d, 长, 宽, 高, 净重, 品牌, 颜色, 等级, 进货提前期, 准备周期, 生产周期, 最小包装量, 最低销售量, 批量, 最高库存, 最低库存, 库存期限, 录入者, 录入日期, 低层码, 指定供货商, 定货策略, 生产车间}
            Me.Rows.Add(row物料主文件Row)
            Return row物料主文件Row
        End Function
        
        Public Function FindBy物料编号(ByVal 物料编号 As String) As 物料主文件Row
            Return CType(Me.Rows.Find(New Object() {物料编号}),物料主文件Row)
        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 物料主文件DataTable = CType(MyBase.Clone,物料主文件DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 物料主文件DataTable
        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物料特性a = Me.Columns("物料特性a")
            Me.column物料特性b = Me.Columns("物料特性b")
            Me.column物料特性c = Me.Columns("物料特性c")
            Me.column物料特性d = Me.Columns("物料特性d")
            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.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物料特性a = New DataColumn("物料特性a", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column物料特性a)
            Me.column物料特性b = New DataColumn("物料特性b", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column物料特性b)
            Me.column物料特性c = New DataColumn("物料特性c", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column物料特性c)
            Me.column物料特性d = New DataColumn("物料特性d", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column物料特性d)
            Me.column长 = New DataColumn("长", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column长)
            Me.column宽 = New DataColumn("宽", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column宽)
            Me.column高 = New DataColumn("高", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column高)
            Me.column净重 = New DataColumn("净重", GetType(System.Decimal), 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.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column进货提前期)
            Me.column准备周期 = New DataColumn("准备周期", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column准备周期)
            Me.column生产周期 = New DataColumn("生产周期", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column生产周期)
            Me.column最小包装量 = New DataColumn("最小包装量", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column最小包装量)
            Me.column最低销售量 = New DataColumn("最低销售量", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column最低销售量)
            Me.column批量 = New DataColumn("批量", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column批量)
            Me.column最高库存 = New DataColumn("最高库存", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column最高库存)
            Me.column最低库存 = New DataColumn("最低库存", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column最低库存)
            Me.column库存期限 = New DataColumn("库存期限", GetType(System.Int32), 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.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column录入日期)
            Me.column低层码 = New DataColumn("低层码", GetType(System.Int32), 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("Constraint1", New DataColumn() {Me.column物料编号}, true))
            Me.column物料编号.AllowDBNull = false
            Me.column物料编号.Unique = true
            Me.column物料名称.AllowDBNull = false
            Me.column计量单位.AllowDBNull = false
        End Sub
        
        Public Function New物料主文件Row() As 物料主文件Row
            Return CType(Me.NewRow,物料主文件Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 物料主文件Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(物料主文件Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.物料主文件RowChangedEvent) Is Nothing) Then
                RaiseEvent 物料主文件RowChanged(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.物料主文件RowChangingEvent) Is Nothing) Then
                RaiseEvent 物料主文件RowChanging(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.物料主文件RowDeletedEvent) Is Nothing) Then
                RaiseEvent 物料主文件RowDeleted(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.物料主文件RowDeletingEvent) Is Nothing) Then
                RaiseEvent 物料主文件RowDeleting(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove物料主文件Row(ByVal row As 物料主文件Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 物料主文件Row
        Inherits DataRow
        
        Private table物料主文件 As 物料主文件DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table物料主文件 = CType(Me.Table,物料主文件DataTable)
        End Sub
        
        Public Property 物料编号 As String
            Get
                Return CType(Me(Me.table物料主文件.物料编号Column),String)
            End Get
            Set
                Me(Me.table物料主文件.物料编号Column) = value
            End Set
        End Property
        
        Public Property 条码 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.条码Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.条码Column) = value
            End Set
        End Property
        
        Public Property 物料名称 As String
            Get
                Return CType(Me(Me.table物料主文件.物料名称Column),String)
            End Get
            Set
                Me(Me.table物料主文件.物料名称Column) = value
            End Set
        End Property
        
        Public Property 拼音编码 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.拼音编码Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.拼音编码Column) = value
            End Set
        End Property
        
        Public Property 计量单位 As String
            Get
                Return CType(Me(Me.table物料主文件.计量单位Column),String)
            End Get
            Set
                Me(Me.table物料主文件.计量单位Column) = value
            End Set
        End Property