_employees.vb

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

				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 EmployeeID() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(EmployeesSchema.EmployeeID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

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

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

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

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

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

			Public ReadOnly Property HireDate() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(EmployeesSchema.HireDate)
                    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(EmployeesSchema.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(EmployeesSchema.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(EmployeesSchema.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(EmployeesSchema.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(EmployeesSchema.Country)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

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

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

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

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

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

			Public ReadOnly Property PhotoPath() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(EmployeesSchema.PhotoPath)
                    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 EmployeeID() As AggregateParameter 
			Get
				If _EmployeeID_W Is Nothing Then
					_EmployeeID_W = TearOff.EmployeeID
				End If
				Return _EmployeeID_W
			End Get
		End Property

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

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

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

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

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

		Public ReadOnly Property HireDate() As AggregateParameter 
			Get
				If _HireDate_W Is Nothing Then
					_HireDate_W = TearOff.HireDate
				End If
				Return _HireDate_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 HomePhone() As AggregateParameter 
			Get
				If _HomePhone_W Is Nothing Then
					_HomePhone_W = TearOff.HomePhone
				End If
				Return _HomePhone_W
			End Get
		End Property

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

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

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

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

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

		Private _EmployeeID_W As AggregateParameter = Nothing
		Private _LastName_W As AggregateParameter = Nothing
		Private _FirstName_W As AggregateParameter = Nothing
		Private _Title_W As AggregateParameter = Nothing
		Private _TitleOfCourtesy_W As AggregateParameter = Nothing
		Private _BirthDate_W As AggregateParameter = Nothing
		Private _HireDate_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 _HomePhone_W As AggregateParameter = Nothing
		Private _Extension_W As AggregateParameter = Nothing
		Private _Photo_W As AggregateParameter = Nothing
		Private _Notes_W As AggregateParameter = Nothing
		Private _ReportsTo_W As AggregateParameter = Nothing
		Private _PhotoPath_W As AggregateParameter = Nothing

		Public Sub AggregateClauseReset()

		_EmployeeID_W = Nothing
		_LastName_W = Nothing
		_FirstName_W = Nothing
		_Title_W = Nothing
		_TitleOfCourtesy_W = Nothing
		_BirthDate_W = Nothing
		_HireDate_W = Nothing
		_Address_W = Nothing
		_City_W = Nothing
		_Region_W = Nothing
		_PostalCode_W = Nothing
		_Country_W = Nothing
		_HomePhone_W = Nothing
		_Extension_W = Nothing
		_Photo_W = Nothing
		_Notes_W = Nothing
		_ReportsTo_W = Nothing
		_PhotoPath_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