ordersbe.vb

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

Option Explicit On
Option Strict On
Imports Microsoft.VisualBasic

Partial Public Class OrdersBE

	'*********************************************************************
	'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 changed to
	'Nullable(Of Date) to support missing dates and 1/1/0001 defaults.
	'*********************************************************************

	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 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 Nullable(Of Date)
			Get
				Return Me.shippedDateField
			End Get
			Set(ByVal value As Nullable(Of Date))
				'Workaround for Beta 1 templated field Null problem
				If value.HasValue Then
					If value.ToString = "1/1/0001 12:00:00 AM" Then
						Me.shippedDateField = Nothing
					Else
						Me.shippedDateField = value
					End If
				Else
					Me.shippedDateField = value
				End If
			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