northwinddataset.designer.vb

讲解visual studio的应用

            Me.Rows.Add(rowOrdersRow)
            Return rowOrdersRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByOrder_ID(ByVal Order_ID As Integer) As OrdersRow
            Return CType(Me.Rows.Find(New Object() {Order_ID}),OrdersRow)
        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 OrdersDataTable = CType(MyBase.Clone,OrdersDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New OrdersDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnOrder_ID = MyBase.Columns("Order ID")
            Me.columnCustomer_ID = MyBase.Columns("Customer ID")
            Me.columnEmployee_ID = MyBase.Columns("Employee ID")
            Me.columnShip_Name = MyBase.Columns("Ship Name")
            Me.columnShip_Address = MyBase.Columns("Ship Address")
            Me.columnShip_City = MyBase.Columns("Ship City")
            Me.columnShip_Region = MyBase.Columns("Ship Region")
            Me.columnShip_Postal_Code = MyBase.Columns("Ship Postal Code")
            Me.columnShip_Country = MyBase.Columns("Ship Country")
            Me.columnShip_Via = MyBase.Columns("Ship Via")
            Me.columnOrder_Date = MyBase.Columns("Order Date")
            Me.columnRequired_Date = MyBase.Columns("Required Date")
            Me.columnShipped_Date = MyBase.Columns("Shipped Date")
            Me.columnFreight = MyBase.Columns("Freight")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnOrder_ID = New System.Data.DataColumn("Order ID", GetType(Integer), Nothing, System.Data.MappingType.Element)
            Me.columnOrder_ID.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Order_ID")
            Me.columnOrder_ID.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Order_IDColumn")
            Me.columnOrder_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOrder_ID")
            Me.columnOrder_ID.ExtendedProperties.Add("Generator_UserColumnName", "Order ID")
            MyBase.Columns.Add(Me.columnOrder_ID)
            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.columnEmployee_ID = New System.Data.DataColumn("Employee ID", GetType(Integer), Nothing, System.Data.MappingType.Element)
            Me.columnEmployee_ID.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Employee_ID")
            Me.columnEmployee_ID.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Employee_IDColumn")
            Me.columnEmployee_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnEmployee_ID")
            Me.columnEmployee_ID.ExtendedProperties.Add("Generator_UserColumnName", "Employee ID")
            MyBase.Columns.Add(Me.columnEmployee_ID)
            Me.columnShip_Name = New System.Data.DataColumn("Ship Name", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnShip_Name.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_Name")
            Me.columnShip_Name.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_NameColumn")
            Me.columnShip_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_Name")
            Me.columnShip_Name.ExtendedProperties.Add("Generator_UserColumnName", "Ship Name")
            MyBase.Columns.Add(Me.columnShip_Name)
            Me.columnShip_Address = New System.Data.DataColumn("Ship Address", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnShip_Address.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_Address")
            Me.columnShip_Address.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_AddressColumn")
            Me.columnShip_Address.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_Address")
            Me.columnShip_Address.ExtendedProperties.Add("Generator_UserColumnName", "Ship Address")
            MyBase.Columns.Add(Me.columnShip_Address)
            Me.columnShip_City = New System.Data.DataColumn("Ship City", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnShip_City.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_City")
            Me.columnShip_City.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_CityColumn")
            Me.columnShip_City.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_City")
            Me.columnShip_City.ExtendedProperties.Add("Generator_UserColumnName", "Ship City")
            MyBase.Columns.Add(Me.columnShip_City)
            Me.columnShip_Region = New System.Data.DataColumn("Ship Region", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnShip_Region.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_Region")
            Me.columnShip_Region.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_RegionColumn")
            Me.columnShip_Region.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_Region")
            Me.columnShip_Region.ExtendedProperties.Add("Generator_UserColumnName", "Ship Region")
            MyBase.Columns.Add(Me.columnShip_Region)
            Me.columnShip_Postal_Code = New System.Data.DataColumn("Ship Postal Code", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnShip_Postal_Code.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_Postal_Code")
            Me.columnShip_Postal_Code.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_Postal_CodeColumn")
            Me.columnShip_Postal_Code.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_Postal_Code")
            Me.columnShip_Postal_Code.ExtendedProperties.Add("Generator_UserColumnName", "Ship Postal Code")
            MyBase.Columns.Add(Me.columnShip_Postal_Code)
            Me.columnShip_Country = New System.Data.DataColumn("Ship Country", GetType(String), Nothing, System.Data.MappingType.Element)
            Me.columnShip_Country.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_Country")
            Me.columnShip_Country.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_CountryColumn")
            Me.columnShip_Country.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_Country")
            Me.columnShip_Country.ExtendedProperties.Add("Generator_UserColumnName", "Ship Country")
            MyBase.Columns.Add(Me.columnShip_Country)
            Me.columnShip_Via = New System.Data.DataColumn("Ship Via", GetType(Integer), Nothing, System.Data.MappingType.Element)
            Me.columnShip_Via.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Ship_Via")
            Me.columnShip_Via.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Ship_ViaColumn")
            Me.columnShip_Via.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShip_Via")
            Me.columnShip_Via.ExtendedProperties.Add("Generator_UserColumnName", "Ship Via")
            MyBase.Columns.Add(Me.columnShip_Via)
            Me.columnOrder_Date = New System.Data.DataColumn("Order Date", GetType(Date), Nothing, System.Data.MappingType.Element)
            Me.columnOrder_Date.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Order_Date")
            Me.columnOrder_Date.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Order_DateColumn")
            Me.columnOrder_Date.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOrder_Date")
            Me.columnOrder_Date.ExtendedProperties.Add("Generator_UserColumnName", "Order Date")
            MyBase.Columns.Add(Me.columnOrder_Date)
            Me.columnRequired_Date = New System.Data.DataColumn("Required Date", GetType(Date), Nothing, System.Data.MappingType.Element)
            Me.columnRequired_Date.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Required_Date")
            Me.columnRequired_Date.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Required_DateColumn")
            Me.columnRequired_Date.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnRequired_Date")
            Me.columnRequired_Date.ExtendedProperties.Add("Generator_UserColumnName", "Required Date")
            MyBase.Columns.Add(Me.columnRequired_Date)
            Me.columnShipped_Date = New System.Data.DataColumn("Shipped Date", GetType(Date), Nothing, System.Data.MappingType.Element)
            Me.columnShipped_Date.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Shipped_Date")
            Me.columnShipped_Date.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Shipped_DateColumn")
            Me.columnShipped_Date.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnShipped_Date")
            Me.columnShipped_Date.ExtendedProperties.Add("Generator_UserColumnName", "Shipped Date")
            MyBase.Columns.Add(Me.columnShipped_Date)
            Me.columnFreight = New System.Data.DataColumn("Freight", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnFreight)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnOrder_ID}, true))
            Me.columnOrder_ID.AllowDBNull = false
            Me.columnOrder_ID.Unique = true
            Me.columnCustomer_ID.AllowDBNull = false
            Me.columnCustomer_ID.MaxLength = 5
            Me.columnShip_Name.MaxLength = 40
            Me.columnShip_Address.MaxLength = 60
            Me.columnShip_City.MaxLength = 15
            Me.columnShip_Region.MaxLength = 15
            Me.columnShip_Postal_Code.MaxLength = 10
            Me.columnShip_Country.MaxLength = 15
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function NewOrdersRow() As OrdersRow
            Return CType(Me.NewRow,OrdersRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New OrdersRow(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(OrdersRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.OrdersRowChangedEvent) Is Nothing) Then
                RaiseEvent OrdersRowChanged(Me, New OrdersRowChangeEvent(CType(e.Row,OrdersRow), 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.OrdersRowChangingEvent) Is Nothing) Then
                RaiseEvent OrdersRowChanging(Me, New OrdersRowChangeEvent(CType(e.Row,OrdersRow), 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.OrdersRowDeletedEvent) Is Nothing) Then
                RaiseEvent OrdersRowDeleted(Me, New OrdersRowChangeEvent(CType(e.Row,OrdersRow), 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.OrdersRowDeletingEvent) Is Nothing) Then
                RaiseEvent OrdersRowDeleting(Me, New OrdersRowChangeEvent(CType(e.Row,OrdersRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub RemoveOrdersRow(ByVal row As OrdersRow)
            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 NorthwindDataSet = New NorthwindDataSet
            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 = "OrdersDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    <System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class EmployeesDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnEmployee_ID As System.Data.DataColumn
        
        Private columnName As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Employees"
            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 Employee_IDColumn() As System.Data.DataColumn
            Get
                Return Me.columnEmployee_ID