adventureworksdataset.designer.vb

讲解visual studio的应用

                Me.tableCustomer.InitVars
            End If
        End If
        Me.tableIndividual = CType(MyBase.Tables("Individual"),IndividualDataTable)
        If (initTable = true) Then
            If (Not (Me.tableIndividual) Is Nothing) Then
                Me.tableIndividual.InitVars
            End If
        End If
        Me.tableSalesOrderHeader = CType(MyBase.Tables("SalesOrderHeader"),SalesOrderHeaderDataTable)
        If (initTable = true) Then
            If (Not (Me.tableSalesOrderHeader) Is Nothing) Then
                Me.tableSalesOrderHeader.InitVars
            End If
        End If
        Me.tableSalesTerritory = CType(MyBase.Tables("SalesTerritory"),SalesTerritoryDataTable)
        If (initTable = true) Then
            If (Not (Me.tableSalesTerritory) Is Nothing) Then
                Me.tableSalesTerritory.InitVars
            End If
        End If
        Me.relationFK_Customer_SalesTerritory_TerritoryID = Me.Relations("FK_Customer_SalesTerritory_TerritoryID")
        Me.relationFK_Individual_Contact_ContactID = Me.Relations("FK_Individual_Contact_ContactID")
        Me.relationFK_Individual_Customer_CustomerID = Me.Relations("FK_Individual_Customer_CustomerID")
        Me.relationFK_SalesOrderHeader_Contact_ContactID = Me.Relations("FK_SalesOrderHeader_Contact_ContactID")
        Me.relationFK_SalesOrderHeader_Customer_CustomerID = Me.Relations("FK_SalesOrderHeader_Customer_CustomerID")
        Me.relationFK_SalesOrderHeader_SalesTerritory_TerritoryID = Me.Relations("FK_SalesOrderHeader_SalesTerritory_TerritoryID")
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub InitClass()
        Me.DataSetName = "AdventureWorksDataSet"
        Me.Prefix = ""
        Me.Namespace = "http://tempuri.org/AdventureWorksDataSet.xsd"
        Me.EnforceConstraints = true
        Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        Me.tableContact = New ContactDataTable
        MyBase.Tables.Add(Me.tableContact)
        Me.tableCustomer = New CustomerDataTable
        MyBase.Tables.Add(Me.tableCustomer)
        Me.tableIndividual = New IndividualDataTable
        MyBase.Tables.Add(Me.tableIndividual)
        Me.tableSalesOrderHeader = New SalesOrderHeaderDataTable
        MyBase.Tables.Add(Me.tableSalesOrderHeader)
        Me.tableSalesTerritory = New SalesTerritoryDataTable
        MyBase.Tables.Add(Me.tableSalesTerritory)
        Me.relationFK_Customer_SalesTerritory_TerritoryID = New System.Data.DataRelation("FK_Customer_SalesTerritory_TerritoryID", New System.Data.DataColumn() {Me.tableSalesTerritory.TerritoryIDColumn}, New System.Data.DataColumn() {Me.tableCustomer.TerritoryIDColumn}, false)
        Me.Relations.Add(Me.relationFK_Customer_SalesTerritory_TerritoryID)
        Me.relationFK_Individual_Contact_ContactID = New System.Data.DataRelation("FK_Individual_Contact_ContactID", New System.Data.DataColumn() {Me.tableContact.ContactIDColumn}, New System.Data.DataColumn() {Me.tableIndividual.ContactIDColumn}, false)
        Me.Relations.Add(Me.relationFK_Individual_Contact_ContactID)
        Me.relationFK_Individual_Customer_CustomerID = New System.Data.DataRelation("FK_Individual_Customer_CustomerID", New System.Data.DataColumn() {Me.tableCustomer.CustomerIDColumn}, New System.Data.DataColumn() {Me.tableIndividual.CustomerIDColumn}, false)
        Me.Relations.Add(Me.relationFK_Individual_Customer_CustomerID)
        Me.relationFK_SalesOrderHeader_Contact_ContactID = New System.Data.DataRelation("FK_SalesOrderHeader_Contact_ContactID", New System.Data.DataColumn() {Me.tableContact.ContactIDColumn}, New System.Data.DataColumn() {Me.tableSalesOrderHeader.ContactIDColumn}, false)
        Me.Relations.Add(Me.relationFK_SalesOrderHeader_Contact_ContactID)
        Me.relationFK_SalesOrderHeader_Customer_CustomerID = New System.Data.DataRelation("FK_SalesOrderHeader_Customer_CustomerID", New System.Data.DataColumn() {Me.tableCustomer.CustomerIDColumn}, New System.Data.DataColumn() {Me.tableSalesOrderHeader.CustomerIDColumn}, false)
        Me.Relations.Add(Me.relationFK_SalesOrderHeader_Customer_CustomerID)
        Me.relationFK_SalesOrderHeader_SalesTerritory_TerritoryID = New System.Data.DataRelation("FK_SalesOrderHeader_SalesTerritory_TerritoryID", New System.Data.DataColumn() {Me.tableSalesTerritory.TerritoryIDColumn}, New System.Data.DataColumn() {Me.tableSalesOrderHeader.TerritoryIDColumn}, false)
        Me.Relations.Add(Me.relationFK_SalesOrderHeader_SalesTerritory_TerritoryID)
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeContact() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeCustomer() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeIndividual() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeSalesOrderHeader() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeSalesTerritory() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitVars
        End If
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
        Dim ds As AdventureWorksDataSet = New AdventureWorksDataSet
        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 ContactRowChangeEventHandler(ByVal sender As Object, ByVal e As ContactRowChangeEvent)
    
    Public Delegate Sub CustomerRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomerRowChangeEvent)
    
    Public Delegate Sub IndividualRowChangeEventHandler(ByVal sender As Object, ByVal e As IndividualRowChangeEvent)
    
    Public Delegate Sub SalesOrderHeaderRowChangeEventHandler(ByVal sender As Object, ByVal e As SalesOrderHeaderRowChangeEvent)
    
    Public Delegate Sub SalesTerritoryRowChangeEventHandler(ByVal sender As Object, ByVal e As SalesTerritoryRowChangeEvent)
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class ContactDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnContactID As System.Data.DataColumn
        
        Private columnNameStyle As System.Data.DataColumn
        
        Private columnTitle As System.Data.DataColumn
        
        Private columnFirstName As System.Data.DataColumn
        
        Private columnMiddleName As System.Data.DataColumn
        
        Private columnLastName As System.Data.DataColumn
        
        Private columnSuffix As System.Data.DataColumn
        
        Private columnEmailAddress As System.Data.DataColumn
        
        Private columnEmailPromotion As System.Data.DataColumn
        
        Private columnPhone As System.Data.DataColumn
        
        Private columnPasswordHash As System.Data.DataColumn
        
        Private columnPasswordSalt As System.Data.DataColumn
        
        Private columnAdditionalContactInfo As System.Data.DataColumn
        
        Private columnrowguid As System.Data.DataColumn
        
        Private columnModifiedDate As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Contact"
            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 ContactIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnContactID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property NameStyleColumn() As System.Data.DataColumn
            Get
                Return Me.columnNameStyle
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property TitleColumn() As System.Data.DataColumn
            Get
                Return Me.columnTitle
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property FirstNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnFirstName
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property MiddleNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnMiddleName
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property LastNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnLastName
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property SuffixColumn() As System.Data.DataColumn
            Get
                Return Me.columnSuffix
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property EmailAddressColumn() As System.Data.DataColumn
            Get
                Return Me.columnEmailAddress
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property EmailPromotionColumn() As System.Data.DataColumn
            Get
                Return Me.columnEmailPromotion
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property PhoneColumn() As System.Data.DataColumn
            Get
                Return Me.columnPhone
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property PasswordHashColumn() As System.Data.DataColumn
            Get
                Return Me.columnPasswordHash
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property PasswordSaltColumn() As System.Data.DataColumn
            Get