ordersbe.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 225 行

Option Explicit On
Option Strict On
Imports Microsoft.VisualBasic

Partial Public Class WSOrdersBE

	'*********************************************************************
	'Order, Detail and Details object definitions
	'Derived from Chapter 6's "Generate Serializable Classes from Schemas"
	'section, and modified to remove OrderDetails field from Orders class. 
	'All XML serialization attributes are removed. ShippedDate field
	'refactored from Nullable(Of Date) to Date for interoperability.
	'*********************************************************************

	Public Class Order
		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 shippedDateField As Nullable(Of Date)
		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 shipCountryField As String

		Public Property OrderID() As Integer
			Get
				Return Me.orderIDField
			End Get
			Set(ByVal value As Integer)
				Me.orderIDField = value
			End Set
		End Property

		Public Property CustomerID() As String
			Get
				Return Me.customerIDField
			End Get
			Set(ByVal value As String)
				Me.customerIDField = value
			End Set
		End Property

		Public Property EmployeeID() As Integer
			Get
				Return Me.employeeIDField
			End Get
			Set(ByVal value As Integer)
				Me.employeeIDField = value
			End Set
		End Property

		Public Property OrderDate() As Date
			Get
				Return Me.orderDateField
			End Get
			Set(ByVal value As Date)
				Me.orderDateField = value
			End Set
		End Property

		Public Property RequiredDate() As Date
			Get
				Return Me.requiredDateField
			End Get
			Set(ByVal value As Date)
				Me.requiredDateField = value
			End Set
		End Property

		Public Property ShippedDate() As Date
			Get
				Return Me.shippedDateField
			End Get
			Set(ByVal value As Date)
				Me.shippedDateField = value
			End Set
		End Property

		Public Property ShipVia() As Integer
			Get
				Return Me.shipViaField
			End Get
			Set(ByVal value As Integer)
				Me.shipViaField = value
			End Set
		End Property

		Public Property Freight() As Decimal
			Get
				Return Me.freightField
			End Get
			Set(ByVal value As Decimal)
				Me.freightField = value
			End Set
		End Property

		Public Property ShipName() As String
			Get
				Return Me.shipNameField
			End Get
			Set(ByVal value As String)
				Me.shipNameField = value
			End Set
		End Property

		Public Property ShipAddress() As String
			Get
				Return Me.shipAddressField
			End Get
			Set(ByVal value As String)
				Me.shipAddressField = value
			End Set
		End Property

		Public Property ShipCity() As String
			Get
				Return Me.shipCityField
			End Get
			Set(ByVal value As String)
				Me.shipCityField = value
			End Set
		End Property

		Public Property ShipRegion() As String
			Get
				Return Me.shipRegionField
			End Get
			Set(ByVal value As String)
				Me.shipRegionField = value
			End Set
		End Property

		Public Property ShipPostalCode() As String
			Get
				Return Me.shipPostalCodeField
			End Get
			Set(ByVal value As String)
				Me.shipPostalCodeField = value
			End Set
		End Property

		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

	Public Class OrderDetails
		Private orderDetailsField As OrderDetail()

		Public Property OrderDetails() As OrderDetail()
			Get
				Return Me.orderDetailsField
			End Get
			Set(ByVal value As OrderDetail())
				Me.orderDetailsField = value
			End Set
		End Property
	End Class

	Public Class OrderDetail
		Private orderIDField As Integer
		Private productIDField As Integer
		Private unitPriceField As Decimal
		Private quantityField As Short
		Private discountField As Decimal

		Public Property OrderID() As Integer
			Get
				Return Me.orderIDField
			End Get
			Set(ByVal value As Integer)
				Me.orderIDField = value
			End Set
		End Property

		Public Property ProductID() As Integer
			Get
				Return Me.productIDField
			End Get
			Set(ByVal value As Integer)
				Me.productIDField = value
			End Set
		End Property

		Public Property UnitPrice() As Decimal
			Get
				Return Me.unitPriceField
			End Get
			Set(ByVal value As Decimal)
				Me.unitPriceField = value
			End Set
		End Property

		Public Property Quantity() As Short
			Get
				Return Me.quantityField
			End Get
			Set(ByVal value As Short)
				Me.quantityField = value
			End Set
		End Property

		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
End Class