clsnorthwindbindinglist.vb

wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重推荐,电子书,电子书下载

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50215.44
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System.Xml.Serialization
Imports System.ComponentModel
Imports Equin.BindingListView
'
'This source code was auto-generated by xsd, Version=2.0.40607.42.
'and edited to use generic (BindingList of Type)
'

'''<remarks/>
<System.SerializableAttribute(), _
 System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True), _
 System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)> _
Partial Public Class Northwind

    Private customersField As BindingList(Of NorthwindCustomers)

    Private ordersField As BindingList(Of NorthwindOrders)

    Private order_DetailsField As BindingList(Of NorthwindOrder_Details)

    <System.Xml.Serialization.XmlElementAttribute("Customers")> _
    Public Property Customers() As BindingList(Of NorthwindCustomers)
        Get
            Return Me.customersField
        End Get
        Set(ByVal value As BindingList(Of NorthwindCustomers))
            Me.customersField = value
        End Set
    End Property

    '''<remarks/>
    <System.Xml.Serialization.XmlElementAttribute("Orders")> _
    Public Property Orders() As BindingList(Of NorthwindOrders)
        Get
            Return Me.ordersField
        End Get
        Set(ByVal value As BindingList(Of NorthwindOrders))
            Me.ordersField = value
        End Set
    End Property

    '''<remarks/>
    <System.Xml.Serialization.XmlElementAttribute("Order_Details")> _
    Public Property Order_Details() As BindingList(Of NorthwindOrder_Details)
        Get
            Return Me.order_DetailsField
        End Get
        Set(ByVal value As BindingList(Of NorthwindOrder_Details))
            Me.order_DetailsField = value
        End Set
    End Property
End Class

'''<remarks/>
<System.SerializableAttribute(), _
 System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
Partial Public Class NorthwindCustomers

    Private customerIDField As String

    Private companyNameField As String

    Private contactNameField As String

    Private contactTitleField As String

    Private addressField As String

    Private cityField As String

    Private regionField As String

    Private postalCodeField As String

    Private countryField As String

    Private phoneField As String

    Private faxField As String

    '''<remarks/>
    Public Property CustomerID() As String
        Get
            Return Me.customerIDField
        End Get
        Set(ByVal value As String)
            Me.customerIDField = value
        End Set
    End Property

    '''<remarks/>
    Public Property CompanyName() As String
        Get
            Return Me.companyNameField
        End Get
        Set(ByVal value As String)
            Me.companyNameField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ContactName() As String
        Get
            Return Me.contactNameField
        End Get
        Set(ByVal value As String)
            Me.contactNameField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ContactTitle() As String
        Get
            Return Me.contactTitleField
        End Get
        Set(ByVal value As String)
            Me.contactTitleField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Address() As String
        Get
            Return Me.addressField
        End Get
        Set(ByVal value As String)
            Me.addressField = value
        End Set
    End Property

    '''<remarks/>
    Public Property City() As String
        Get
            Return Me.cityField
        End Get
        Set(ByVal value As String)
            Me.cityField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Region() As String
        Get
            Return Me.regionField
        End Get
        Set(ByVal value As String)
            Me.regionField = value
        End Set
    End Property

    '''<remarks/>
    Public Property PostalCode() As String
        Get
            Return Me.postalCodeField
        End Get
        Set(ByVal value As String)
            Me.postalCodeField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Country() As String
        Get
            Return Me.countryField
        End Get
        Set(ByVal value As String)
            Me.countryField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Phone() As String
        Get
            Return Me.phoneField
        End Get
        Set(ByVal value As String)
            Me.phoneField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Fax() As String
        Get
            Return Me.faxField
        End Get
        Set(ByVal value As String)
            Me.faxField = value
        End Set
    End Property
End Class

'''<remarks/>
<System.SerializableAttribute(), _
 System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
Partial Public Class NorthwindOrder_Details

    Private orderIDField As Integer

    Private productIDField As Integer

    Private unitPriceField As Decimal

    Private quantityField As Short

    Private discountField As Decimal

    '''<remarks/>
    Public Property OrderID() As Integer
        Get
            Return Me.orderIDField
        End Get
        Set(ByVal value As Integer)
            Me.orderIDField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ProductID() As Integer
        Get
            Return Me.productIDField
        End Get
        Set(ByVal value As Integer)
            Me.productIDField = value
        End Set
    End Property

    '''<remarks/>
    Public Property UnitPrice() As Decimal
        Get
            Return Me.unitPriceField
        End Get
        Set(ByVal value As Decimal)
            Me.unitPriceField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Quantity() As Short
        Get
            Return Me.quantityField
        End Get
        Set(ByVal value As Short)
            Me.quantityField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Discount() As Decimal
        Get
            Return Me.discountField
        End Get
        Set(ByVal value As Decimal)
            Me.discountField = value
        End Set
    End Property
End Class

'''<remarks/>
<System.SerializableAttribute(), _
 System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
Partial Public Class NorthwindOrders

    Private orderIDField As Integer

    Private customerIDField As String

    Private employeeIDField As Integer

    Private orderDateField As Date

    Private requiredDateField As Date

    Private shippedDateField As Date

    Private shippedDateFieldSpecified As Boolean

    Private shipViaField As Integer

    Private freightField As Decimal

    Private shipNameField As String

    Private shipAddressField As String

    Private shipCityField As String

    Private shipRegionField As String

    Private shipPostalCodeField As String

    'Private shipPostalCodeFieldSpecified As Boolean

    Private shipCountryField As String

    '''<remarks/>
    Public Property OrderID() As Integer
        Get
            Return Me.orderIDField
        End Get
        Set(ByVal value As Integer)
            Me.orderIDField = value
        End Set
    End Property

    '''<remarks/>
    Public Property CustomerID() As String
        Get
            Return Me.customerIDField
        End Get
        Set(ByVal value As String)
            Me.customerIDField = value
        End Set
    End Property

    '''<remarks/>
    Public Property EmployeeID() As Integer
        Get
            Return Me.employeeIDField
        End Get
        Set(ByVal value As Integer)
            Me.employeeIDField = value
        End Set
    End Property

    '''<remarks/>
    Public Property OrderDate() As Date
        Get
            Return Me.orderDateField
        End Get
        Set(ByVal value As Date)
            Me.orderDateField = value
        End Set
    End Property

    '''<remarks/>
    Public Property RequiredDate() As Date
        Get
            Return Me.requiredDateField
        End Get
        Set(ByVal value As Date)
            Me.requiredDateField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShippedDate() As Date
        Get
            Return Me.shippedDateField
        End Get
        Set(ByVal value As Date)
            Me.shippedDateField = value
        End Set
    End Property

    '''<remarks/>
    <System.Xml.Serialization.XmlIgnoreAttribute()> _
    Public Property ShippedDateSpecified() As Boolean
        Get
            Return Me.shippedDateFieldSpecified
        End Get
        Set(ByVal value As Boolean)
            Me.shippedDateFieldSpecified = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShipVia() As Integer
        Get
            Return Me.shipViaField
        End Get
        Set(ByVal value As Integer)
            Me.shipViaField = value
        End Set
    End Property

    '''<remarks/>
    Public Property Freight() As Decimal
        Get
            Return Me.freightField
        End Get
        Set(ByVal value As Decimal)
            Me.freightField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShipName() As String
        Get
            Return Me.shipNameField
        End Get
        Set(ByVal value As String)
            Me.shipNameField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShipAddress() As String
        Get
            Return Me.shipAddressField
        End Get
        Set(ByVal value As String)
            Me.shipAddressField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShipCity() As String
        Get
            Return Me.shipCityField
        End Get
        Set(ByVal value As String)
            Me.shipCityField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShipRegion() As String
        Get
            Return Me.shipRegionField
        End Get
        Set(ByVal value As String)
            Me.shipRegionField = value
        End Set
    End Property

    '''<remarks/>
    Public Property ShipPostalCode() As String
        Get
            Return Me.shipPostalCodeField
        End Get
        Set(ByVal value As String)
            Me.shipPostalCodeField = Value
        End Set
    End Property


    '''<remarks/>
    Public Property ShipCountry() As String
        Get
            Return Me.shipCountryField
        End Get
        Set(ByVal value As String)
            Me.shipCountryField = value
        End Set
    End Property

End Class