northwinddataset.designer.vb

讲解visual studio的应用

        Private columnCity As System.Data.DataColumn
        
        Private columnRegion As System.Data.DataColumn
        
        Private columnPostal_Code As System.Data.DataColumn
        
        Private columnCountry As System.Data.DataColumn
        
        Private columnPhone As System.Data.DataColumn
        
        Private columnFax As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Customers"
            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()>  _
        Public ReadOnly Property Customer_IDColumn() As System.Data.DataColumn
            Get
                Return Me.columnCustomer_ID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Company_NameColumn() As System.Data.DataColumn
            Get
                Return Me.columnCompany_Name
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Contact_NameColumn() As System.Data.DataColumn
            Get
                Return Me.columnContact_Name
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Contact_TitleColumn() As System.Data.DataColumn
            Get
                Return Me.columnContact_Title
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property AddressColumn() As System.Data.DataColumn
            Get
                Return Me.columnAddress
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property CityColumn() As System.Data.DataColumn
            Get
                Return Me.columnCity
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property RegionColumn() As System.Data.DataColumn
            Get
                Return Me.columnRegion
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Postal_CodeColumn() As System.Data.DataColumn
            Get
                Return Me.columnPostal_Code
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property CountryColumn() As System.Data.DataColumn
            Get
                Return Me.columnCountry
            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 FaxColumn() As System.Data.DataColumn
            Get
                Return Me.columnFax
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        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 CustomersRow
            Get
                Return CType(Me.Rows(index),CustomersRow)
            End Get
        End Property
        
        Public Event CustomersRowChanging As CustomersRowChangeEventHandler
        
        Public Event CustomersRowChanged As CustomersRowChangeEventHandler
        
        Public Event CustomersRowDeleting As CustomersRowChangeEventHandler
        
        Public Event CustomersRowDeleted As CustomersRowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub AddCustomersRow(ByVal row As CustomersRow)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function AddCustomersRow(ByVal Customer_ID As String, ByVal Company_Name As String, ByVal Contact_Name As String, ByVal Contact_Title As String, ByVal Address As String, ByVal City As String, ByVal _Region As String, ByVal Postal_Code As String, ByVal Country As String, ByVal Phone As String, ByVal Fax As String) As CustomersRow
            Dim rowCustomersRow As CustomersRow = CType(Me.NewRow,CustomersRow)
            rowCustomersRow.ItemArray = New Object() {Customer_ID, Company_Name, Contact_Name, Contact_Title, Address, City, _Region, Postal_Code, Country, Phone, Fax}
            Me.Rows.Add(rowCustomersRow)
            Return rowCustomersRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByCustomer_ID(ByVal Customer_ID As String) As CustomersRow
            Return CType(Me.Rows.Find(New Object() {Customer_ID}),CustomersRow)
        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 CustomersDataTable = CType(MyBase.Clone,CustomersDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New CustomersDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnCustomer_ID = MyBase.Columns("Customer ID")
            Me.columnCompany_Name = MyBase.Columns("Company Name")
            Me.columnContact_Name = MyBase.Columns("Contact Name")
            Me.columnContact_Title = MyBase.Columns("Contact Title")
            Me.columnAddress = MyBase.Columns("Address")
            Me.columnCity = MyBase.Columns("City")
            Me.columnRegion = MyBase.Columns("Region")
            Me.columnPostal_Code = MyBase.Columns("Postal Code")
            Me.columnCountry = MyBase.Columns("Country")
            Me.columnPhone = MyBase.Columns("Phone")
            Me.columnFax = MyBase.Columns("Fax")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnCustomer_ID = New System.Data.DataColumn("Customer ID", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnCustomer_ID.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Customer_ID")
            Me.columnCustomer_ID.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Customer_IDColumn")
            Me.columnCustomer_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnCustomer_ID")
            Me.columnCustomer_ID.ExtendedProperties.Add("Generator_UserColumnName", "Customer ID")
            MyBase.Columns.Add(Me.columnCustomer_ID)
            Me.columnCompany_Name = New System.Data.DataColumn("Company Name", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnCompany_Name.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Company_Name")
            Me.columnCompany_Name.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Company_NameColumn")
            Me.columnCompany_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnCompany_Name")
            Me.columnCompany_Name.ExtendedProperties.Add("Generator_UserColumnName", "Company Name")
            MyBase.Columns.Add(Me.columnCompany_Name)
            Me.columnContact_Name = New System.Data.DataColumn("Contact Name", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnContact_Name.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Contact_Name")
            Me.columnContact_Name.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Contact_NameColumn")
            Me.columnContact_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnContact_Name")
            Me.columnContact_Name.ExtendedProperties.Add("Generator_UserColumnName", "Contact Name")
            MyBase.Columns.Add(Me.columnContact_Name)
            Me.columnContact_Title = New System.Data.DataColumn("Contact Title", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnContact_Title.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Contact_Title")
            Me.columnContact_Title.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Contact_TitleColumn")
            Me.columnContact_Title.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnContact_Title")
            Me.columnContact_Title.ExtendedProperties.Add("Generator_UserColumnName", "Contact Title")
            MyBase.Columns.Add(Me.columnContact_Title)
            Me.columnAddress = New System.Data.DataColumn("Address", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnAddress)
            Me.columnCity = New System.Data.DataColumn("City", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnCity)
            Me.columnRegion = New System.Data.DataColumn("Region", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnRegion.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "_Region")
            Me.columnRegion.ExtendedProperties.Add("Generator_UserColumnName", "Region")
            MyBase.Columns.Add(Me.columnRegion)
            Me.columnPostal_Code = New System.Data.DataColumn("Postal Code", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnPostal_Code.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Postal_Code")
            Me.columnPostal_Code.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Postal_CodeColumn")
            Me.columnPostal_Code.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnPostal_Code")
            Me.columnPostal_Code.ExtendedProperties.Add("Generator_UserColumnName", "Postal Code")
            MyBase.Columns.Add(Me.columnPostal_Code)
            Me.columnCountry = New System.Data.DataColumn("Country", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnCountry)
            Me.columnPhone = New System.Data.DataColumn("Phone", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPhone)
            Me.columnFax = New System.Data.DataColumn("Fax", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnFax)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnCustomer_ID}, true))
            Me.columnCustomer_ID.AllowDBNull = false
            Me.columnCustomer_ID.Unique = true
            Me.columnCustomer_ID.MaxLength = 5
            Me.columnCompany_Name.AllowDBNull = false
            Me.columnCompany_Name.MaxLength = 40
            Me.columnContact_Name.MaxLength = 30
            Me.columnContact_Title.MaxLength = 30
            Me.columnAddress.MaxLength = 60
            Me.columnCity.MaxLength = 15
            Me.columnRegion.MaxLength = 15
            Me.columnPostal_Code.MaxLength = 10
            Me.columnCountry.MaxLength = 15
            Me.columnPhone.MaxLength = 24
            Me.columnFax.MaxLength = 24
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function NewCustomersRow() As CustomersRow
            Return CType(Me.NewRow,CustomersRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New CustomersRow(builder)
        End Function