mysaledataset21.designer.vb

一个商品销售管理系统

            End If
            If (Not (ds.Tables("采购商信息")) Is Nothing) Then
                MyBase.Tables.Add(New 采购商信息DataTable(ds.Tables("采购商信息")))
            End If
            If (Not (ds.Tables("采购信息")) Is Nothing) Then
                MyBase.Tables.Add(New 采购信息DataTable(ds.Tables("采购信息")))
            End If
            If (Not (ds.Tables("操作用户")) Is Nothing) Then
                MyBase.Tables.Add(New 操作用户DataTable(ds.Tables("操作用户")))
            End If
            If (Not (ds.Tables("公司信息")) Is Nothing) Then
                MyBase.Tables.Add(New 公司信息DataTable(ds.Tables("公司信息")))
            End If
            If (Not (ds.Tables("供应商信息")) Is Nothing) Then
                MyBase.Tables.Add(New 供应商信息DataTable(ds.Tables("供应商信息")))
            End If
            If (Not (ds.Tables("商品信息")) Is Nothing) Then
                MyBase.Tables.Add(New 商品信息DataTable(ds.Tables("商品信息")))
            End If
            If (Not (ds.Tables("销售明细")) Is Nothing) Then
                MyBase.Tables.Add(New 销售明细DataTable(ds.Tables("销售明细")))
            End If
            If (Not (ds.Tables("销售信息")) Is Nothing) Then
                MyBase.Tables.Add(New 销售信息DataTable(ds.Tables("销售信息")))
            End If
            Me.DataSetName = ds.DataSetName
            Me.Prefix = ds.Prefix
            Me.Namespace = ds.Namespace
            Me.Locale = ds.Locale
            Me.CaseSensitive = ds.CaseSensitive
            Me.EnforceConstraints = ds.EnforceConstraints
            Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
            Me.InitVars
        Else
            Me.ReadXml(reader)
            Me.InitVars
        End If
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Me.WriteXmlSchema(New System.Xml.XmlTextWriter(stream, Nothing))
        stream.Position = 0
        Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(stream), Nothing)
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Friend Overloads Sub InitVars()
        Me.InitVars(true)
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Friend Overloads Sub InitVars(ByVal initTable As Boolean)
        Me.table采购明细 = CType(MyBase.Tables("采购明细"),采购明细DataTable)
        If (initTable = true) Then
            If (Not (Me.table采购明细) Is Nothing) Then
                Me.table采购明细.InitVars
            End If
        End If
        Me.table采购商信息 = CType(MyBase.Tables("采购商信息"),采购商信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table采购商信息) Is Nothing) Then
                Me.table采购商信息.InitVars
            End If
        End If
        Me.table采购信息 = CType(MyBase.Tables("采购信息"),采购信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table采购信息) Is Nothing) Then
                Me.table采购信息.InitVars
            End If
        End If
        Me.table操作用户 = CType(MyBase.Tables("操作用户"),操作用户DataTable)
        If (initTable = true) Then
            If (Not (Me.table操作用户) Is Nothing) Then
                Me.table操作用户.InitVars
            End If
        End If
        Me.table公司信息 = CType(MyBase.Tables("公司信息"),公司信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table公司信息) Is Nothing) Then
                Me.table公司信息.InitVars
            End If
        End If
        Me.table供应商信息 = CType(MyBase.Tables("供应商信息"),供应商信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table供应商信息) Is Nothing) Then
                Me.table供应商信息.InitVars
            End If
        End If
        Me.table商品信息 = CType(MyBase.Tables("商品信息"),商品信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table商品信息) Is Nothing) Then
                Me.table商品信息.InitVars
            End If
        End If
        Me.table销售明细 = CType(MyBase.Tables("销售明细"),销售明细DataTable)
        If (initTable = true) Then
            If (Not (Me.table销售明细) Is Nothing) Then
                Me.table销售明细.InitVars
            End If
        End If
        Me.table销售信息 = CType(MyBase.Tables("销售信息"),销售信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table销售信息) Is Nothing) Then
                Me.table销售信息.InitVars
            End If
        End If
        Me.relationFK_采购明细_商品信息 = Me.Relations("FK_采购明细_商品信息")
        Me.relationFK_采购信息_供应商信息 = Me.Relations("FK_采购信息_供应商信息")
        Me.relationFK_销售明细_商品信息 = Me.Relations("FK_销售明细_商品信息")
        Me.relationFK_销售信息_采购商信息 = Me.Relations("FK_销售信息_采购商信息")
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub InitClass()
        Me.DataSetName = "MySaleDataSet2"
        Me.Prefix = ""
        Me.Namespace = "http://tempuri.org/MySaleDataSet21.xsd"
        Me.EnforceConstraints = true
        Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        Me.table采购明细 = New 采购明细DataTable
        MyBase.Tables.Add(Me.table采购明细)
        Me.table采购商信息 = New 采购商信息DataTable
        MyBase.Tables.Add(Me.table采购商信息)
        Me.table采购信息 = New 采购信息DataTable
        MyBase.Tables.Add(Me.table采购信息)
        Me.table操作用户 = New 操作用户DataTable
        MyBase.Tables.Add(Me.table操作用户)
        Me.table公司信息 = New 公司信息DataTable
        MyBase.Tables.Add(Me.table公司信息)
        Me.table供应商信息 = New 供应商信息DataTable
        MyBase.Tables.Add(Me.table供应商信息)
        Me.table商品信息 = New 商品信息DataTable
        MyBase.Tables.Add(Me.table商品信息)
        Me.table销售明细 = New 销售明细DataTable
        MyBase.Tables.Add(Me.table销售明细)
        Me.table销售信息 = New 销售信息DataTable
        MyBase.Tables.Add(Me.table销售信息)
        Me.relationFK_采购明细_商品信息 = New System.Data.DataRelation("FK_采购明细_商品信息", New System.Data.DataColumn() {Me.table商品信息.商品编号Column}, New System.Data.DataColumn() {Me.table采购明细.商品编号Column}, false)
        Me.Relations.Add(Me.relationFK_采购明细_商品信息)
        Me.relationFK_采购信息_供应商信息 = New System.Data.DataRelation("FK_采购信息_供应商信息", New System.Data.DataColumn() {Me.table供应商信息.客户名称Column}, New System.Data.DataColumn() {Me.table采购信息.客户名称Column}, false)
        Me.Relations.Add(Me.relationFK_采购信息_供应商信息)
        Me.relationFK_销售明细_商品信息 = New System.Data.DataRelation("FK_销售明细_商品信息", New System.Data.DataColumn() {Me.table商品信息.商品编号Column}, New System.Data.DataColumn() {Me.table销售明细.商品编号Column}, false)
        Me.Relations.Add(Me.relationFK_销售明细_商品信息)
        Me.relationFK_销售信息_采购商信息 = New System.Data.DataRelation("FK_销售信息_采购商信息", New System.Data.DataColumn() {Me.table采购商信息.客户名称Column}, New System.Data.DataColumn() {Me.table销售信息.客户名称Column}, false)
        Me.Relations.Add(Me.relationFK_销售信息_采购商信息)
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize采购明细() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize采购商信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize采购信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize操作用户() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize公司信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize供应商信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize商品信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize销售明细() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize销售信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitVars
        End If
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
        Dim ds As MySaleDataSet2 = New MySaleDataSet2
        Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
        Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
        xs.Add(ds.GetSchemaSerializable)
        Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
        any.Namespace = ds.Namespace
        sequence.Items.Add(any)
        type.Particle = sequence
        Return type
    End Function
    
    Public Delegate Sub 采购明细RowChangeEventHandler(ByVal sender As Object, ByVal e As 采购明细RowChangeEvent)
    
    Public Delegate Sub 采购商信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 采购商信息RowChangeEvent)
    
    Public Delegate Sub 采购信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 采购信息RowChangeEvent)
    
    Public Delegate Sub 操作用户RowChangeEventHandler(ByVal sender As Object, ByVal e As 操作用户RowChangeEvent)
    
    Public Delegate Sub 公司信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 公司信息RowChangeEvent)
    
    Public Delegate Sub 供应商信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 供应商信息RowChangeEvent)
    
    Public Delegate Sub 商品信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 商品信息RowChangeEvent)
    
    Public Delegate Sub 销售明细RowChangeEventHandler(ByVal sender As Object, ByVal e As 销售明细RowChangeEvent)
    
    Public Delegate Sub 销售信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 销售信息RowChangeEvent)
    
    <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
        
        <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