clsnorthwind.vb

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

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version:2.0.40607.42
'
'     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
'
'This source code was auto-generated by xsd, Version=2.0.40607.42.
'

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

	Private customersField() As NorthwindCustomers

	Private ordersField() As NorthwindOrders

	Private order_DetailsField() As NorthwindOrder_Details

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

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

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

'''<remarks/>
<System.SerializableAttribute()>  _
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
            Me.customerIDField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property CompanyName() As String
        Get
            Return Me.companyNameField
        End Get
        Set
            Me.companyNameField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ContactName() As String
        Get
            Return Me.contactNameField
        End Get
        Set
            Me.contactNameField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ContactTitle() As String
        Get
            Return Me.contactTitleField
        End Get
        Set
            Me.contactTitleField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Address() As String
        Get
            Return Me.addressField
        End Get
        Set
            Me.addressField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property City() As String
        Get
            Return Me.cityField
        End Get
        Set
            Me.cityField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Region() As String
        Get
            Return Me.regionField
        End Get
        Set
            Me.regionField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property PostalCode() As String
        Get
            Return Me.postalCodeField
        End Get
        Set
            Me.postalCodeField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Country() As String
        Get
            Return Me.countryField
        End Get
        Set
            Me.countryField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Phone() As String
        Get
            Return Me.phoneField
        End Get
        Set
            Me.phoneField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Fax() As String
        Get
            Return Me.faxField
        End Get
        Set
            Me.faxField = value
        End Set
    End Property
End Class

'''<remarks/>
<System.SerializableAttribute()>  _
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
            Me.orderIDField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ProductID() As Integer
        Get
            Return Me.productIDField
        End Get
        Set
            Me.productIDField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property UnitPrice() As Decimal
        Get
            Return Me.unitPriceField
        End Get
        Set
            Me.unitPriceField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Quantity() As Short
        Get
            Return Me.quantityField
        End Get
        Set
            Me.quantityField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Discount() As Decimal
        Get
            Return Me.discountField
        End Get
        Set
            Me.discountField = value
        End Set
    End Property
End Class

'''<remarks/>
<System.SerializableAttribute()>  _
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 UInteger
    
    Private shipPostalCodeFieldSpecified As Boolean
    
    Private shipCountryField As String
    
    '''<remarks/>
    Public Property OrderID() As Integer
        Get
            Return Me.orderIDField
        End Get
        Set
            Me.orderIDField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property CustomerID() As String
        Get
            Return Me.customerIDField
        End Get
        Set
            Me.customerIDField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property EmployeeID() As Integer
        Get
            Return Me.employeeIDField
        End Get
        Set
            Me.employeeIDField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property OrderDate() As Date
        Get
            Return Me.orderDateField
        End Get
        Set
            Me.orderDateField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property RequiredDate() As Date
        Get
            Return Me.requiredDateField
        End Get
        Set
            Me.requiredDateField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShippedDate() As Date
        Get
            Return Me.shippedDateField
        End Get
        Set
            Me.shippedDateField = value
        End Set
    End Property
    
    '''<remarks/>
    <System.Xml.Serialization.XmlIgnoreAttribute()>  _
    Public Property ShippedDateSpecified() As Boolean
        Get
            Return Me.shippedDateFieldSpecified
        End Get
        Set
            Me.shippedDateFieldSpecified = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipVia() As Integer
        Get
            Return Me.shipViaField
        End Get
        Set
            Me.shipViaField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property Freight() As Decimal
        Get
            Return Me.freightField
        End Get
        Set
            Me.freightField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipName() As String
        Get
            Return Me.shipNameField
        End Get
        Set
            Me.shipNameField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipAddress() As String
        Get
            Return Me.shipAddressField
        End Get
        Set
            Me.shipAddressField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipCity() As String
        Get
            Return Me.shipCityField
        End Get
        Set
            Me.shipCityField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipRegion() As String
        Get
            Return Me.shipRegionField
        End Get
        Set
            Me.shipRegionField = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipPostalCode() As UInteger
        Get
            Return Me.shipPostalCodeField
        End Get
        Set
            Me.shipPostalCodeField = value
        End Set
    End Property
    
    '''<remarks/>
    <System.Xml.Serialization.XmlIgnoreAttribute()>  _
    Public Property ShipPostalCodeSpecified() As Boolean
        Get
            Return Me.shipPostalCodeFieldSpecified
        End Get
        Set
            Me.shipPostalCodeFieldSpecified = value
        End Set
    End Property
    
    '''<remarks/>
    Public Property ShipCountry() As String
        Get
            Return Me.shipCountryField
        End Get
        Set
            Me.shipCountryField = value
        End Set
    End Property
End Class