mysaledataset21.designer.vb

一个商品销售管理系统

            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 生产日期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 parent商品信息RowByFK_采购明细_商品信息 As 商品信息Row, ByVal 数量 As Double, ByVal 单价 As Double, ByVal 金额 As Double, ByVal 生产日期 As Date) As 采购明细Row
            Dim row采购明细Row As 采购明细Row = CType(Me.NewRow,采购明细Row)
            row采购明细Row.ItemArray = New Object() {自编号, 采购单号, parent商品信息RowByFK_采购明细_商品信息(0), 数量, 单价, 金额, 生产日期}
            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生产日期 = 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(Double), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column数量)
            Me.column单价 = New System.Data.DataColumn("单价", GetType(Double), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column单价)
            Me.column金额 = New System.Data.DataColumn("金额", GetType(Double), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column金额)
            Me.column生产日期 = New System.Data.DataColumn("生产日期", GetType(Date), 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自编号.MaxLength = 50
            Me.column采购单号.MaxLength = 50
            Me.column商品编号.MaxLength = 50
        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()>  _
        Protected Overrides Sub OnRowChanging(ByVal e As System.Data.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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Remove采购明细Row(ByVal row As 采购明细Row)
            Me.Rows.Remove(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
            Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
            Dim ds As MySaleDataSet2 = New MySaleDataSet2
            xs.Add(ds.GetSchemaSerializable)
            Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "采购明细DataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    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开户银行 As System.Data.DataColumn