_defaultvalues.vb

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

					Me.Salary = MyBase.SetDecimalAsString(DefaultValuesSchema.Salary.FieldName, Value)
				End If
			End Set
		End Property

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

		Public Overridable Property s_Val As String
			Get
				If Me.IsColumnNull(DefaultValuesSchema.Val.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(DefaultValuesSchema.Val.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(DefaultValuesSchema.Val.FieldName)
				Else
					Me.Val = MyBase.SetStringAsString(DefaultValuesSchema.Val.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 RefNumber() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(DefaultValuesSchema.RefNumber)
                    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(DefaultValuesSchema.FirstName)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

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

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

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

			Public ReadOnly Property Val() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(DefaultValuesSchema.Val)
                    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 RefNumber() As WhereParameter 
			Get
				If _RefNumber_W Is Nothing Then
					_RefNumber_W = TearOff.RefNumber
				End If
				Return _RefNumber_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 Age() As WhereParameter 
			Get
				If _Age_W Is Nothing Then
					_Age_W = TearOff.Age
				End If
				Return _Age_W
			End Get
		End Property

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

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

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

		Private _RefNumber_W As WhereParameter = Nothing
		Private _FirstName_W As WhereParameter = Nothing
		Private _Age_W As WhereParameter = Nothing
		Private _Salary_W As WhereParameter = Nothing
		Private _DOB_W As WhereParameter = Nothing
		Private _Val_W As WhereParameter = Nothing

		Public Sub WhereClauseReset()

		_RefNumber_W = Nothing
		_FirstName_W = Nothing
		_Age_W = Nothing
		_Salary_W = Nothing
		_DOB_W = Nothing
		_Val_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 RefNumber() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(DefaultValuesSchema.RefNumber)
                    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(DefaultValuesSchema.FirstName)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddAggregateParameter(ap)
					Return ap
				End Get
			End Property

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

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

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

			Public ReadOnly Property Val() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(DefaultValuesSchema.Val)
                    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 RefNumber() As AggregateParameter 
			Get
				If _RefNumber_W Is Nothing Then
					_RefNumber_W = TearOff.RefNumber
				End If
				Return _RefNumber_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 Age() As AggregateParameter 
			Get
				If _Age_W Is Nothing Then
					_Age_W = TearOff.Age
				End If
				Return _Age_W
			End Get
		End Property

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

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

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

		Private _RefNumber_W As AggregateParameter = Nothing
		Private _FirstName_W As AggregateParameter = Nothing
		Private _Age_W As AggregateParameter = Nothing
		Private _Salary_W As AggregateParameter = Nothing
		Private _DOB_W As AggregateParameter = Nothing
		Private _Val_W As AggregateParameter = Nothing

		Public Sub AggregateClauseReset()

		_RefNumber_W = Nothing
		_FirstName_W = Nothing
		_Age_W = Nothing
		_Salary_W = Nothing
		_DOB_W = Nothing
		_Val_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