mysaledataset.designer.vb

一个商品销售管理系统

            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
        
        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 应付帐款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 String, ByVal 应付帐款 As Double, ByVal 经办人 As String, ByVal 入库日期 As Date, ByVal 说明 As String) 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("应付帐款")
            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(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(String), 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.column说明 = New System.Data.DataColumn("说明", GetType(String), 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采购单号.AllowDBNull = false
            Me.column采购单号.MaxLength = 50
            Me.column客户名称.MaxLength = 50
            Me.column支付方式.MaxLength = 50
            Me.column应付帐款.ReadOnly = true
            Me.column经办人.MaxLength = 50
            Me.column说明.MaxLength = 250
        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