_products.vb

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

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

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

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

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

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

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

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

		Private _ProductID_W As WhereParameter = Nothing
		Private _ProductName_W As WhereParameter = Nothing
		Private _SupplierID_W As WhereParameter = Nothing
		Private _CategoryID_W As WhereParameter = Nothing
		Private _QuantityPerUnit_W As WhereParameter = Nothing
		Private _UnitPrice_W As WhereParameter = Nothing
		Private _UnitsInStock_W As WhereParameter = Nothing
		Private _UnitsOnOrder_W As WhereParameter = Nothing
		Private _ReorderLevel_W As WhereParameter = Nothing
		Private _Discontinued_W As WhereParameter = Nothing

		Public Sub WhereClauseReset()

		_ProductID_W = Nothing
		_ProductName_W = Nothing
		_SupplierID_W = Nothing
		_CategoryID_W = Nothing
		_QuantityPerUnit_W = Nothing
		_UnitPrice_W = Nothing
		_UnitsInStock_W = Nothing
		_UnitsOnOrder_W = Nothing
		_ReorderLevel_W = Nothing
		_Discontinued_W = Nothing
			Me._entity.Query.FlushWhereParameters()

		End Sub
	
		Private _entity As EasyObject
		Private _tearOff As TearOffWhereParameter
    End Class	

	Public ReadOnly Property Where() As WhereClause
		Get
			If _whereClause Is Nothing Then
				_whereClause = New WhereClause(Me)
			End If
	
			Return _whereClause
		End Get
	End Property
	
	Private _whereClause As WhereClause = Nothing	
#End Region	

#Region " Aggregate Clause "
    Public Class AggregateClause

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

				Return _tearOff
			End Get
		End Property

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

			Public ReadOnly Property ProductID() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.ProductID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property ProductName() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.ProductName)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property SupplierID() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.SupplierID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property CategoryID() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.CategoryID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property QuantityPerUnit() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.QuantityPerUnit)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property UnitPrice() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.UnitPrice)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property UnitsInStock() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.UnitsInStock)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property UnitsOnOrder() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.UnitsOnOrder)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property ReorderLevel() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.ReorderLevel)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

			Public ReadOnly Property Discontinued() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ProductsSchema.Discontinued)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

	End Class
	
	#End Region	

		Public ReadOnly Property ProductID() As AggregateParameter 
			Get
				If _ProductID_W Is Nothing Then
					_ProductID_W = TearOff.ProductID
				End If
				Return _ProductID_W
			End Get
		End Property

		Public ReadOnly Property ProductName() As AggregateParameter 
			Get
				If _ProductName_W Is Nothing Then
					_ProductName_W = TearOff.ProductName
				End If
				Return _ProductName_W
			End Get
		End Property

		Public ReadOnly Property SupplierID() As AggregateParameter 
			Get
				If _SupplierID_W Is Nothing Then
					_SupplierID_W = TearOff.SupplierID
				End If
				Return _SupplierID_W
			End Get
		End Property

		Public ReadOnly Property CategoryID() As AggregateParameter 
			Get
				If _CategoryID_W Is Nothing Then
					_CategoryID_W = TearOff.CategoryID
				End If
				Return _CategoryID_W
			End Get
		End Property

		Public ReadOnly Property QuantityPerUnit() As AggregateParameter 
			Get
				If _QuantityPerUnit_W Is Nothing Then
					_QuantityPerUnit_W = TearOff.QuantityPerUnit
				End If
				Return _QuantityPerUnit_W
			End Get
		End Property

		Public ReadOnly Property UnitPrice() As AggregateParameter 
			Get
				If _UnitPrice_W Is Nothing Then
					_UnitPrice_W = TearOff.UnitPrice
				End If
				Return _UnitPrice_W
			End Get
		End Property

		Public ReadOnly Property UnitsInStock() As AggregateParameter 
			Get
				If _UnitsInStock_W Is Nothing Then
					_UnitsInStock_W = TearOff.UnitsInStock
				End If
				Return _UnitsInStock_W
			End Get
		End Property

		Public ReadOnly Property UnitsOnOrder() As AggregateParameter 
			Get
				If _UnitsOnOrder_W Is Nothing Then
					_UnitsOnOrder_W = TearOff.UnitsOnOrder
				End If
				Return _UnitsOnOrder_W
			End Get
		End Property

		Public ReadOnly Property ReorderLevel() As AggregateParameter 
			Get
				If _ReorderLevel_W Is Nothing Then
					_ReorderLevel_W = TearOff.ReorderLevel
				End If
				Return _ReorderLevel_W
			End Get
		End Property

		Public ReadOnly Property Discontinued() As AggregateParameter 
			Get
				If _Discontinued_W Is Nothing Then
					_Discontinued_W = TearOff.Discontinued
				End If
				Return _Discontinued_W
			End Get
		End Property

		Private _ProductID_W As AggregateParameter = Nothing
		Private _ProductName_W As AggregateParameter = Nothing
		Private _SupplierID_W As AggregateParameter = Nothing
		Private _CategoryID_W As AggregateParameter = Nothing
		Private _QuantityPerUnit_W As AggregateParameter = Nothing
		Private _UnitPrice_W As AggregateParameter = Nothing
		Private _UnitsInStock_W As AggregateParameter = Nothing
		Private _UnitsOnOrder_W As AggregateParameter = Nothing
		Private _ReorderLevel_W As AggregateParameter = Nothing
		Private _Discontinued_W As AggregateParameter = Nothing

		Public Sub AggregateClauseReset()

		_ProductID_W = Nothing
		_ProductName_W = Nothing
		_SupplierID_W = Nothing
		_CategoryID_W = Nothing
		_QuantityPerUnit_W = Nothing
		_UnitPrice_W = Nothing
		_UnitsInStock_W = Nothing
		_UnitsOnOrder_W = Nothing
		_ReorderLevel_W = Nothing
		_Discontinued_W = Nothing
			Me._entity.Query.FlushAggregateParameters()

		End Sub
	
		Private _entity As EasyObject
		Private _tearOff As TearOffAggregateParameter
    End Class	

	Public ReadOnly Property Aggregate() As AggregateClause
		Get
			If _aggregateClause Is Nothing Then
				_aggregateClause = New AggregateClause(Me)
			End If
	
			Return _aggregateClause
		End Get
	End Property
	
	Private _aggregateClause As AggregateClause = Nothing	
#End Region	

End Class