ordersprivate.vb

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

Public Class OrdersPrivate
	Private m_OrderID As Integer
	Public Property OrderID() As Integer
		Get
			Return m_OrderID
		End Get
		Set(ByVal value As Integer)
			m_OrderID = value
		End Set
	End Property

	Private m_CustomerID As String
	Public Property CustomerID() As String
		Get
			Return m_CustomerID
		End Get
		Set(ByVal value As String)
			m_CustomerID = value
		End Set
	End Property

	Private m_EmployeeID As Integer
	Public Property EmployeeID() As Integer
		Get
			Return m_EmployeeID
		End Get
		Set(ByVal value As Integer)
			m_EmployeeID = value
		End Set
	End Property

	Private m_OrderDate As Date
	Public Property OrderDate() As Date
		Get
			Return m_OrderDate
		End Get
		Set(ByVal value As Date)
			m_OrderDate = value
		End Set
	End Property

	Private m_RequiredDate As Nullable(Of Date)
	Public Property RequiredDate() As Nullable(Of Date)
		Get
			Return m_RequiredDate
		End Get
		Set(ByVal value As Nullable(Of Date))
			m_RequiredDate = value
		End Set
	End Property

	Private m_ShippedDate As Nullable(Of Date)
	Public Property ShippedDate() As Nullable(Of Date)
		Get
			Return m_ShippedDate
		End Get
		Set(ByVal value As Nullable(Of Date))
			m_ShippedDate = value
		End Set
	End Property

	Private m_ShipVia As Integer
	Public Property ShipVia() As Integer
		Get
			Return m_ShipVia
		End Get
		Set(ByVal value As Integer)
			m_ShipVia = value
		End Set
	End Property

	Private m_Freight As Nullable(Of Decimal)
	Public Property Freight() As Nullable(Of Decimal)
		Get
			Return m_Freight
		End Get
		Set(ByVal value As Nullable(Of Decimal))
			m_Freight = value
		End Set
	End Property

	Private m_ShipName As String
	Public Property ShipName() As String
		Get
			Return m_ShipName
		End Get
		Set(ByVal value As String)
			m_ShipName = value
		End Set
	End Property

	Private m_ShipAddress As String
	Public Property ShipAddress() As String
		Get
			Return m_ShipAddress
		End Get
		Set(ByVal value As String)
			m_ShipAddress = value
		End Set
	End Property

	Private m_ShipCity As String
	Public Property ShipCity() As String
		Get
			Return m_ShipCity
		End Get
		Set(ByVal value As String)
			m_ShipCity = value
		End Set
	End Property

    Private m_ShipRegion As String
    Public Property ShipRegion() As String
        Get
            Return m_ShipRegion
        End Get
        Set(ByVal value As String)
            m_ShipRegion = value
        End Set
    End Property

    Private m_ShipPostalCode As String
    Public Property ShipPostalCode() As String
        Get
            Return m_ShipPostalCode
        End Get
        Set(ByVal value As String)
            m_ShipPostalCode = value
        End Set
    End Property

	Private m_ShipCountry As String
	Public Property ShipCountry() As String
		Get
			Return m_ShipCountry
		End Get
		Set(ByVal value As String)
			m_ShipCountry = value
		End Set
	End Property
End Class