mysaledataset1.designer.vb

一个商品销售管理系统

            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(Integer), 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 = 50
            Me.column服务电话.MaxLength = 50
            Me.column邮政编码.MaxLength = 10
            Me.column电子邮件.MaxLength = 50
            Me.column公司网站.MaxLength = 50
            Me.column管理系统背景照片.MaxLength = 100
            Me.column管理系统显示名称.MaxLength = 50
        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 MySaleDataSet1 = New MySaleDataSet1
            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")>  _
    Partial Public Class 公司信息Row
        Inherits System.Data.DataRow
        
        Private table公司信息 As 公司信息DataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.table公司信息 = CType(Me.Table,公司信息DataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 公司名称() As String
            Get
                Return CType(Me(Me.table公司信息.公司名称Column),String)
            End Get
            Set
                Me(Me.table公司信息.公司名称Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 法人代表() As String
            Get
                Try 
                    Return CType(Me(Me.table公司信息.法人代表Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““公司信息””中列““法人代表””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table公司信息.法人代表Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 公司地址() As String
            Get
                Try 
                    Return CType(Me(Me.table公司信息.公司地址Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““公司信息””中列““公司地址””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table公司信息.公司地址Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 服务电话() As String
            Get
                Try 
                    Return CType(Me(Me.table公司信息.服务电话Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““公司信息””中列““服务电话””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table公司信息.服务电话Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 邮政编码() As String
            Get
                Try 
                    Return CType(Me(Me.table公司信息.邮政编码Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““公司信息””中列““邮政编码””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table公司信息.邮政编码Column) = value