invoicebe.vb

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

Imports Microsoft.VisualBasic

Partial Public Class WSOrdersBE
	'Version 1.2: Adds Invoice with Customer and PurchaseData classes
	Public Class Invoice
		'Represents a single, printable invoice
		'Refactors Order and OrderDetail objects from SalesOrder
		Private billToField As Customer
		Private invoiceDataField As InvoiceData
		Private salesOrderField As SalesOrder

		Public Property BillTo() As Customer
			Get
				Return Me.billToField
			End Get
			Set(ByVal value As Customer)
				Me.billToField = value
			End Set
		End Property

		Public Property Order() As SalesOrder
			Get
				Return Me.salesOrderField
			End Get
			Set(ByVal value As SalesOrder)
				Me.salesOrderField = value
			End Set
		End Property
	End Class

	Public Class Customer
		'Represents a Northwind customer
		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

		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 CompanyName() As String
			Get
				Return Me.companyNameField
			End Get
			Set(ByVal value As String)
				Me.companyNameField = value
			End Set
		End Property

		Public Property ContactName() As String
			Get
				Return Me.contactNameField
			End Get
			Set(ByVal value As String)
				Me.contactNameField = value
			End Set
		End Property

		Public Property ContactTitle() As String
			Get
				Return Me.contactTitleField
			End Get
			Set(ByVal value As String)
				Me.contactTitleField = value
			End Set
		End Property

		Public Property Address() As String
			Get
				Return Me.addressField
			End Get
			Set(ByVal value As String)
				Me.addressField = value
			End Set
		End Property

		Public Property City() As String
			Get
				Return Me.cityField
			End Get
			Set(ByVal value As String)
				Me.cityField = value
			End Set
		End Property

		Public Property Region() As String
			Get
				Return Me.regionField
			End Get
			Set(ByVal value As String)
				Me.regionField = value
			End Set
		End Property

		Public Property PostalCode() As String
			Get
				Return Me.postalCodeField
			End Get
			Set(ByVal value As String)
				Me.postalCodeField = value
			End Set
		End Property

		Public Property Country() As String
			Get
				Return Me.countryField
			End Get
			Set(ByVal value As String)
				Me.countryField = value
			End Set
		End Property

		Public Property Phone() As String
			Get
				Return Me.phoneField
			End Get
			Set(ByVal value As String)
				Me.phoneField = value
			End Set
		End Property

		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

	Public Class InvoiceData
		'Contains 
		Private invoiceNumberField As Integer
		Private invoiceDateField As Date
		Private termsField As TermsEnum
		Private salesOrderNumberField As Integer
		Private salesOrderDateField As Date
		Private purchaseOrderNumberField As String
		Private purchaseOrderDateField As Date

		Public Property InvoiceNumber() As Integer
			Get
				Return Me.invoiceNumberField
			End Get
			Set(ByVal value As Integer)
				Me.invoiceNumberField = value
			End Set
		End Property

		Public Property InvoiceDate() As Date
			Get
				Return Me.invoiceDateField
			End Get
			Set(ByVal value As Date)
				Me.invoiceDateField = value
			End Set
		End Property

		Public Property Terms() As TermsEnum
			Get
				Return Me.termsField
			End Get
			Set(ByVal value As TermsEnum)
				Me.termsField = value
			End Set
		End Property

		Public Property SalesOrderNumber() As Integer
			Get
				Return Me.salesOrderNumberField
			End Get
			Set(ByVal value As Integer)
				Me.salesOrderNumberField = value
			End Set
		End Property

		Public Property SalesOrderDate() As Date
			Get
				Return Me.salesOrderDateField
			End Get
			Set(ByVal value As Date)
				Me.salesOrderDateField = value
			End Set
		End Property

		Public Property PurchaseOrderNumber() As String
			Get
				Return Me.purchaseOrderNumberField
			End Get
			Set(ByVal value As String)
				Me.purchaseOrderNumberField = value
			End Set
		End Property

		Public Property PurchaseOrderDate() As Date
			Get
				Return Me.purchaseorderDateField
			End Get
			Set(ByVal value As Date)
				Me.purchaseOrderDateField = value
			End Set
		End Property
	End Class

	Public Enum TermsEnum
		Net30Days
		Net15Days
		CODCash
		CODCheckOK
		AMEX
		VISA
		MC
		DISC
		LetterOfCredit
	End Enum
End Class