_orders.vb

EasyObjects 是ORM的典型应用的例子是学习研究的很好的范例

			Get
				If Me.IsColumnNull(OrdersSchema.OrderID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetIntegerAsString(OrdersSchema.OrderID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.OrderID.FieldName)
				Else
					Me.OrderID = MyBase.SetIntegerAsString(OrdersSchema.OrderID.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_CustomerID As String
			Get
				If Me.IsColumnNull(OrdersSchema.CustomerID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.CustomerID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.CustomerID.FieldName)
				Else
					Me.CustomerID = MyBase.SetStringAsString(OrdersSchema.CustomerID.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_EmployeeID As String
			Get
				If Me.IsColumnNull(OrdersSchema.EmployeeID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetIntegerAsString(OrdersSchema.EmployeeID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.EmployeeID.FieldName)
				Else
					Me.EmployeeID = MyBase.SetIntegerAsString(OrdersSchema.EmployeeID.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_OrderDate As String
			Get
				If Me.IsColumnNull(OrdersSchema.OrderDate.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDateTimeAsString(OrdersSchema.OrderDate.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.OrderDate.FieldName)
				Else
					Me.OrderDate = MyBase.SetDateTimeAsString(OrdersSchema.OrderDate.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_RequiredDate As String
			Get
				If Me.IsColumnNull(OrdersSchema.RequiredDate.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDateTimeAsString(OrdersSchema.RequiredDate.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.RequiredDate.FieldName)
				Else
					Me.RequiredDate = MyBase.SetDateTimeAsString(OrdersSchema.RequiredDate.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShippedDate As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShippedDate.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDateTimeAsString(OrdersSchema.ShippedDate.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShippedDate.FieldName)
				Else
					Me.ShippedDate = MyBase.SetDateTimeAsString(OrdersSchema.ShippedDate.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipVia As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipVia.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetIntegerAsString(OrdersSchema.ShipVia.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipVia.FieldName)
				Else
					Me.ShipVia = MyBase.SetIntegerAsString(OrdersSchema.ShipVia.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_Freight As String
			Get
				If Me.IsColumnNull(OrdersSchema.Freight.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDecimalAsString(OrdersSchema.Freight.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.Freight.FieldName)
				Else
					Me.Freight = MyBase.SetDecimalAsString(OrdersSchema.Freight.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipName As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipName.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.ShipName.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipName.FieldName)
				Else
					Me.ShipName = MyBase.SetStringAsString(OrdersSchema.ShipName.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipAddress As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipAddress.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.ShipAddress.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipAddress.FieldName)
				Else
					Me.ShipAddress = MyBase.SetStringAsString(OrdersSchema.ShipAddress.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipCity As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipCity.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.ShipCity.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipCity.FieldName)
				Else
					Me.ShipCity = MyBase.SetStringAsString(OrdersSchema.ShipCity.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipRegion As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipRegion.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.ShipRegion.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipRegion.FieldName)
				Else
					Me.ShipRegion = MyBase.SetStringAsString(OrdersSchema.ShipRegion.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipPostalCode As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipPostalCode.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.ShipPostalCode.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipPostalCode.FieldName)
				Else
					Me.ShipPostalCode = MyBase.SetStringAsString(OrdersSchema.ShipPostalCode.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ShipCountry As String
			Get
				If Me.IsColumnNull(OrdersSchema.ShipCountry.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(OrdersSchema.ShipCountry.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(OrdersSchema.ShipCountry.FieldName)
				Else
					Me.ShipCountry = MyBase.SetStringAsString(OrdersSchema.ShipCountry.FieldName, Value)
				End If
			End Set
		End Property


#End Region

#Region " Where Clause "
    Public Class WhereClause

        Public Sub New(ByVal entity As EasyObject)
            Me._entity = entity
        End Sub
		
		Public ReadOnly Property TearOff As TearOffWhereParameter
			Get
				If _tearOff Is Nothing Then
					_tearOff = new TearOffWhereParameter(Me)
				End If

				Return _tearOff
			End Get
		End Property

		#Region " TearOff's "
		Public class TearOffWhereParameter
		
			Private _clause as WhereClause
			
			Public Sub New(ByVal clause As WhereClause)
				Me._clause = clause
			End Sub

			Public ReadOnly Property OrderID() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.OrderID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property CustomerID() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.CustomerID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property EmployeeID() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.EmployeeID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property OrderDate() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.OrderDate)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property RequiredDate() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.RequiredDate)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShippedDate() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShippedDate)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipVia() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipVia)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property Freight() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.Freight)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipName() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipName)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipAddress() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipAddress)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipCity() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipCity)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipRegion() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipRegion)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipPostalCode() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipPostalCode)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property ShipCountry() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(OrdersSchema.ShipCountry)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

	End Class
	
	#End Region	

		Public ReadOnly Property OrderID() As WhereParameter 
			Get
				If _OrderID_W Is Nothing Then
					_OrderID_W = TearOff.OrderID
				End If
				Return _OrderID_W
			End Get
		End Property

		Public ReadOnly Property CustomerID() As WhereParameter 
			Get
				If _CustomerID_W Is Nothing Then
					_CustomerID_W = TearOff.CustomerID
				End If
				Return _CustomerID_W
			End Get
		End Property

		Public ReadOnly Property EmployeeID() As WhereParameter 
			Get
				If _EmployeeID_W Is Nothing Then
					_EmployeeID_W = TearOff.EmployeeID
				End If
				Return _EmployeeID_W
			End Get
		End Property

		Public ReadOnly Property OrderDate() As WhereParameter 
			Get
				If _OrderDate_W Is Nothing Then
					_OrderDate_W = TearOff.OrderDate
				End If
				Return _OrderDate_W
			End Get
		End Property

		Public ReadOnly Property RequiredDate() As WhereParameter 
			Get
				If _RequiredDate_W Is Nothing Then
					_RequiredDate_W = TearOff.RequiredDate
				End If
				Return _RequiredDate_W
			End Get
		End Property

		Public ReadOnly Property ShippedDate() As WhereParameter 
			Get
				If _ShippedDate_W Is Nothing Then
					_ShippedDate_W = TearOff.ShippedDate
				End If
				Return _ShippedDate_W
			End Get
		End Property

		Public ReadOnly Property ShipVia() As WhereParameter 
			Get
				If _ShipVia_W Is Nothing Then
					_ShipVia_W = TearOff.ShipVia
				End If
				Return _ShipVia_W
			End Get