⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mysaledataset1.designer.vb

📁 一个商品销售管理系统
💻 VB
📖 第 1 页 / 共 5 页
字号:
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
        Dim ds As MySaleDataSet1 = New MySaleDataSet1
        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)
    
    <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 公司地址 As String, ByVal 服务电话 As String, ByVal 邮政编码 As String, ByVal 电子邮件 As String, ByVal 公司网站 As String, ByVal 管理系统背景照片 As String, ByVal 管理系统显示名称 As String, ByVal 显示优先级 As Integer) 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()

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -