_employees.vb

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

		
			Private _clause as WhereClause
			
			Public Sub New(ByVal clause As WhereClause)
				Me._clause = clause
			End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

			Public ReadOnly Property PhotoPath() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(EmployeesSchema.PhotoPath)
                    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 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 LastName() As WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 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 HomePhone() As WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			Get
				If _PhotoPath_W Is Nothing Then
					_PhotoPath_W = TearOff.PhotoPath
				End If
				Return _PhotoPath_W
			End Get
		End Property

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

		Public Sub WhereClauseReset()

		_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.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