mysaledataset21.designer.vb

一个商品销售管理系统

        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(),  _
         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 String, 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() {客户名称, 联系地址, 邮政编码, 联系电话, 联系人, 纳税人识别号, 开户银行, 银行帐号, 说明}
            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("说明")
        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(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.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 = 10
            Me.column联系电话.MaxLength = 50
            Me.column联系人.MaxLength = 50
            Me.column纳税人识别号.MaxLength = 50
            Me.column开户银行.MaxLength = 50
            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
            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)