clsnorthwindds.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 NorthwindDS

	Private itemsField() As NorthwindDSCustomers

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute("Customers", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Customers() As NorthwindDSCustomers()
		'Property name was 'Items'
		Get
			Return Me.itemsField
		End Get
		Set(ByVal value As NorthwindDSCustomers())
			Me.itemsField = value
		End Set
	End Property
End Class

'''<remarks/>
<System.SerializableAttribute()> _
Public Class NorthwindDSCustomers

	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

	Private ordersField() As NorthwindDSCustomersOrders

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property CustomerID() As String
		Get
			Return Me.customerIDField
		End Get
		Set(ByVal value As String)
			Me.customerIDField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property CompanyName() As String
		Get
			Return Me.companyNameField
		End Get
		Set(ByVal value As String)
			Me.companyNameField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ContactName() As String
		Get
			Return Me.contactNameField
		End Get
		Set(ByVal value As String)
			Me.contactNameField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ContactTitle() As String
		Get
			Return Me.contactTitleField
		End Get
		Set(ByVal value As String)
			Me.contactTitleField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Address() As String
		Get
			Return Me.addressField
		End Get
		Set(ByVal value As String)
			Me.addressField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property City() As String
		Get
			Return Me.cityField
		End Get
		Set(ByVal value As String)
			Me.cityField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Region() As String
		Get
			Return Me.regionField
		End Get
		Set(ByVal value As String)
			Me.regionField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property PostalCode() As String
		Get
			Return Me.postalCodeField
		End Get
		Set(ByVal value As String)
			Me.postalCodeField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Country() As String
		Get
			Return Me.countryField
		End Get
		Set(ByVal value As String)
			Me.countryField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Phone() As String
		Get
			Return Me.phoneField
		End Get
		Set(ByVal value As String)
			Me.phoneField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Fax() As String
		Get
			Return Me.faxField
		End Get
		Set(ByVal value As String)
			Me.faxField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute("Orders", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Orders() As NorthwindDSCustomersOrders()
		Get
			Return Me.ordersField
		End Get
		Set(ByVal value As NorthwindDSCustomersOrders())
			Me.ordersField = Value
		End Set
	End Property
End Class

'''<remarks/>
<System.SerializableAttribute()> _
Public Class NorthwindDSCustomersOrders

	Private orderIDField As Integer

	Private customerIDField As String

	Private employeeIDField As Integer

	Private orderDateField As Date

	Private requiredDateField As Date

	Private requiredDateFieldSpecified As Boolean

	Private shippedDateField As Date

	Private shippedDateFieldSpecified As Boolean

	Private shipViaField As Integer

	Private freightField As Decimal

	Private freightFieldSpecified As Boolean

	Private shipNameField As String

	Private shipAddressField As String

	Private shipCityField As String

	Private shipRegionField As String

	Private shipPostalCodeField As String

	Private shipCountryField As String

	Private order_DetailsField() As NorthwindDSCustomersOrdersOrder_Details

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property OrderID() As Integer
		Get
			Return Me.orderIDField
		End Get
		Set(ByVal value As Integer)
			Me.orderIDField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property CustomerID() As String
		Get
			Return Me.customerIDField
		End Get
		Set(ByVal value As String)
			Me.customerIDField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property EmployeeID() As Integer
		Get
			Return Me.employeeIDField
		End Get
		Set(ByVal value As Integer)
			Me.employeeIDField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property OrderDate() As Date
		Get
			Return Me.orderDateField
		End Get
		Set(ByVal value As Date)
			Me.orderDateField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property RequiredDate() As Date
		Get
			Return Me.requiredDateField
		End Get
		Set(ByVal value As Date)
			Me.requiredDateField = Value
		End Set
	End Property

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

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	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/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipVia() As Integer
		Get
			Return Me.shipViaField
		End Get
		Set(ByVal value As Integer)
			Me.shipViaField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Freight() As Decimal
		Get
			Return Me.freightField
		End Get
		Set(ByVal value As Decimal)
			Me.freightField = Value
		End Set
	End Property

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

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipName() As String
		Get
			Return Me.shipNameField
		End Get
		Set(ByVal value As String)
			Me.shipNameField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipAddress() As String
		Get
			Return Me.shipAddressField
		End Get
		Set(ByVal value As String)
			Me.shipAddressField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipCity() As String
		Get
			Return Me.shipCityField
		End Get
		Set(ByVal value As String)
			Me.shipCityField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipRegion() As String
		Get
			Return Me.shipRegionField
		End Get
		Set(ByVal value As String)
			Me.shipRegionField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipPostalCode() As String
		Get
			Return Me.shipPostalCodeField
		End Get
		Set(ByVal value As String)
			Me.shipPostalCodeField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ShipCountry() As String
		Get
			Return Me.shipCountryField
		End Get
		Set(ByVal value As String)
			Me.shipCountryField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute("Order_Details", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Order_Details() As NorthwindDSCustomersOrdersOrder_Details()
		Get
			Return Me.order_DetailsField
		End Get
		Set(ByVal value As NorthwindDSCustomersOrdersOrder_Details())
			Me.order_DetailsField = Value
		End Set
	End Property
End Class

'''<remarks/>
<System.SerializableAttribute()> _
Public Class NorthwindDSCustomersOrdersOrder_Details

	Private orderIDField As Integer

	Private productIDField As Integer

	Private unitPriceField As Decimal

	Private quantityField As Short

	Private discountField As Decimal

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property OrderID() As Integer
		Get
			Return Me.orderIDField
		End Get
		Set(ByVal value As Integer)
			Me.orderIDField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property ProductID() As Integer
		Get
			Return Me.productIDField
		End Get
		Set(ByVal value As Integer)
			Me.productIDField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property UnitPrice() As Decimal
		Get
			Return Me.unitPriceField
		End Get
		Set(ByVal value As Decimal)
			Me.unitPriceField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	Public Property Quantity() As Short
		Get
			Return Me.quantityField
		End Get
		Set(ByVal value As Short)
			Me.quantityField = Value
		End Set
	End Property

	'''<remarks/>
	<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
	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