dataset1.designer.vb

VB.NET开发的进销存系统,数据库SQLSERVER

    Partial Public Class 商品清单DataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private column货号 As System.Data.DataColumn
        
        Private column条码 As System.Data.DataColumn
        
        Private column拼音编码 As System.Data.DataColumn
        
        Private column品名 As System.Data.DataColumn
        
        Private column单位 As System.Data.DataColumn
        
        Private column进货价 As System.Data.DataColumn
        
        Private column销售价1 As System.Data.DataColumn
        
        Private column销售价2 As System.Data.DataColumn
        
        Private column规格 As System.Data.DataColumn
        
        Private column产地 As System.Data.DataColumn
        
        Private column类别 As System.Data.DataColumn
        
        Private column最低售价 As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "商品清单"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal table As System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 货号Column() As System.Data.DataColumn
            Get
                Return Me.column货号
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 条码Column() As System.Data.DataColumn
            Get
                Return Me.column条码
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 拼音编码Column() As System.Data.DataColumn
            Get
                Return Me.column拼音编码
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 品名Column() As System.Data.DataColumn
            Get
                Return Me.column品名
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 单位Column() As System.Data.DataColumn
            Get
                Return Me.column单位
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 进货价Column() As System.Data.DataColumn
            Get
                Return Me.column进货价
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 销售价1Column() As System.Data.DataColumn
            Get
                Return Me.column销售价1
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 销售价2Column() As System.Data.DataColumn
            Get
                Return Me.column销售价2
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 规格Column() As System.Data.DataColumn
            Get
                Return Me.column规格
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 产地Column() As System.Data.DataColumn
            Get
                Return Me.column产地
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 类别Column() As System.Data.DataColumn
            Get
                Return Me.column类别
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 最低售价Column() As System.Data.DataColumn
            Get
                Return Me.column最低售价
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As 商品清单Row
            Get
                Return CType(Me.Rows(index),商品清单Row)
            End Get
        End Property
        
        Public Event 商品清单RowChanging As 商品清单RowChangeEventHandler
        
        Public Event 商品清单RowChanged As 商品清单RowChangeEventHandler
        
        Public Event 商品清单RowDeleting As 商品清单RowChangeEventHandler
        
        Public Event 商品清单RowDeleted As 商品清单RowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub Add商品清单Row(ByVal row As 商品清单Row)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function Add商品清单Row(ByVal 货号 As String, ByVal 条码 As String, ByVal 拼音编码 As String, ByVal 品名 As String, ByVal 单位 As String, ByVal 进货价 As Decimal, ByVal 销售价1 As Decimal, ByVal 销售价2 As Decimal, ByVal 规格 As String, ByVal 产地 As String, ByVal 类别 As String, ByVal 最低售价 As Decimal) As 商品清单Row
            Dim row商品清单Row As 商品清单Row = CType(Me.NewRow,商品清单Row)
            row商品清单Row.ItemArray = New Object() {货号, 条码, 拼音编码, 品名, 单位, 进货价, 销售价1, 销售价2, 规格, 产地, 类别, 最低售价}
            Me.Rows.Add(row商品清单Row)
            Return row商品清单Row
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindBy货号(ByVal 货号 As String) As 商品清单Row
            Return CType(Me.Rows.Find(New Object() {货号}),商品清单Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataTable
            Dim cln As 商品清单DataTable = CType(MyBase.Clone,商品清单DataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New 商品清单DataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.column货号 = MyBase.Columns("货号")
            Me.column条码 = MyBase.Columns("条码")
            Me.column拼音编码 = MyBase.Columns("拼音编码")
            Me.column品名 = MyBase.Columns("品名")
            Me.column单位 = MyBase.Columns("单位")
            Me.column进货价 = MyBase.Columns("进货价")
            Me.column销售价1 = MyBase.Columns("销售价1")
            Me.column销售价2 = MyBase.Columns("销售价2")
            Me.column规格 = MyBase.Columns("规格")
            Me.column产地 = MyBase.Columns("产地")
            Me.column类别 = MyBase.Columns("类别")
            Me.column最低售价 = MyBase.Columns("最低售价")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.column货号 = New System.Data.DataColumn("货号", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column货号)
            Me.column条码 = New System.Data.DataColumn("条码", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column条码)
            Me.column拼音编码 = New System.Data.DataColumn("拼音编码", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column拼音编码)
            Me.column品名 = New System.Data.DataColumn("品名", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column品名)
            Me.column单位 = New System.Data.DataColumn("单位", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column单位)
            Me.column进货价 = New System.Data.DataColumn("进货价", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column进货价)
            Me.column销售价1 = New System.Data.DataColumn("销售价1", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column销售价1)
            Me.column销售价2 = New System.Data.DataColumn("销售价2", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column销售价2)
            Me.column规格 = New System.Data.DataColumn("规格", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column规格)
            Me.column产地 = New System.Data.DataColumn("产地", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column产地)
            Me.column类别 = New System.Data.DataColumn("类别", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column类别)
            Me.column最低售价 = New System.Data.DataColumn("最低售价", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column最低售价)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.column货号}, true))
            Me.column货号.AllowDBNull = false
            Me.column货号.Unique = true
            Me.column单位.AllowDBNull = false
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function New商品清单Row() As 商品清单Row
            Return CType(Me.NewRow,商品清单Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New 商品清单Row(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(商品清单Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _