dataset1.designer.vb

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

        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,  _
                    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,  _
                    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("地区")
            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(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.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拼音编码.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()>  _
        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 DataSet1 = New DataSet1
            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
        
        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
        
        Private column业务员 As System.Data.DataColumn
        
        Private column业务部门 As System.Data.DataColumn
        
        Private column授信额度 As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()