_suppliers.vb

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

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

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

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

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

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

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

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

		Private _SupplierID_W As WhereParameter = Nothing
		Private _CompanyName_W As WhereParameter = Nothing
		Private _ContactName_W As WhereParameter = Nothing
		Private _ContactTitle_W As WhereParameter = Nothing
		Private _Address_W As WhereParameter = Nothing
		Private _City_W As WhereParameter = Nothing
		Private _Region_W As WhereParameter = Nothing
		Private _PostalCode_W As WhereParameter = Nothing
		Private _Country_W As WhereParameter = Nothing
		Private _Phone_W As WhereParameter = Nothing
		Private _Fax_W As WhereParameter = Nothing
		Private _HomePage_W As WhereParameter = Nothing

		Public Sub WhereClauseReset()

		_SupplierID_W = Nothing
		_CompanyName_W = Nothing
		_ContactName_W = Nothing
		_ContactTitle_W = Nothing
		_Address_W = Nothing
		_City_W = Nothing
		_Region_W = Nothing
		_PostalCode_W = Nothing
		_Country_W = Nothing
		_Phone_W = Nothing
		_Fax_W = Nothing
		_HomePage_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 SupplierID() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(SuppliersSchema.SupplierID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

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

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

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

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

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

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

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

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

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

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

			Public ReadOnly Property HomePage() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(SuppliersSchema.HomePage)
                    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 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 CompanyName() As AggregateParameter 
			Get
				If _CompanyName_W Is Nothing Then
					_CompanyName_W = TearOff.CompanyName
				End If
				Return _CompanyName_W
			End Get
		End Property

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

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

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

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

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

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

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

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

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

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

		Private _SupplierID_W As AggregateParameter = Nothing
		Private _CompanyName_W As AggregateParameter = Nothing
		Private _ContactName_W As AggregateParameter = Nothing
		Private _ContactTitle_W As AggregateParameter = Nothing
		Private _Address_W As AggregateParameter = Nothing
		Private _City_W As AggregateParameter = Nothing
		Private _Region_W As AggregateParameter = Nothing
		Private _PostalCode_W As AggregateParameter = Nothing
		Private _Country_W As AggregateParameter = Nothing
		Private _Phone_W As AggregateParameter = Nothing
		Private _Fax_W As AggregateParameter = Nothing
		Private _HomePage_W As AggregateParameter = Nothing

		Public Sub AggregateClauseReset()

		_SupplierID_W = Nothing
		_CompanyName_W = Nothing
		_ContactName_W = Nothing
		_ContactTitle_W = Nothing
		_Address_W = Nothing
		_City_W = Nothing
		_Region_W = Nothing
		_PostalCode_W = Nothing
		_Country_W = Nothing
		_Phone_W = Nothing
		_Fax_W = Nothing
		_HomePage_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