_shippers.vb

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

	Public Overridable Property Phone() As String
        Get
			Return Me.GetString(ShippersSchema.Phone.FieldName)
      End Get
        Set(ByVal Value As String)
			Me.SetString(ShippersSchema.Phone.FieldName, Value)
      End Set
    End Property

    Public Overrides ReadOnly Property TableName() As String
        Get
            Return "Shippers"
        End Get
    End Property

#End Region

#Region " String Properties "
		Public Overridable Property s_ShipperID As String
			Get
				If Me.IsColumnNull(ShippersSchema.ShipperID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetIntegerAsString(ShippersSchema.ShipperID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ShippersSchema.ShipperID.FieldName)
				Else
					Me.ShipperID = MyBase.SetIntegerAsString(ShippersSchema.ShipperID.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_CompanyName As String
			Get
				If Me.IsColumnNull(ShippersSchema.CompanyName.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(ShippersSchema.CompanyName.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ShippersSchema.CompanyName.FieldName)
				Else
					Me.CompanyName = MyBase.SetStringAsString(ShippersSchema.CompanyName.FieldName, Value)
				End If
			End Set
		End Property

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

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

			Public ReadOnly Property Phone() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(ShippersSchema.Phone)
                    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 ShipperID() As WhereParameter 
			Get
				If _ShipperID_W Is Nothing Then
					_ShipperID_W = TearOff.ShipperID
				End If
				Return _ShipperID_W
			End Get
		End Property

		Public ReadOnly Property CompanyName() As WhereParameter 
			Get
				If _CompanyName_W Is Nothing Then
					_CompanyName_W = TearOff.CompanyName
				End If
				Return _CompanyName_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

		Private _ShipperID_W As WhereParameter = Nothing
		Private _CompanyName_W As WhereParameter = Nothing
		Private _Phone_W As WhereParameter = Nothing

		Public Sub WhereClauseReset()

		_ShipperID_W = Nothing
		_CompanyName_W = Nothing
		_Phone_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 ShipperID() As AggregateParameter
				Get
					Dim ap As AggregateParameter = New AggregateParameter(ShippersSchema.ShipperID)
                    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(ShippersSchema.CompanyName)
                    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(ShippersSchema.Phone)
                    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 ShipperID() As AggregateParameter 
			Get
				If _ShipperID_W Is Nothing Then
					_ShipperID_W = TearOff.ShipperID
				End If
				Return _ShipperID_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 Phone() As AggregateParameter 
			Get
				If _Phone_W Is Nothing Then
					_Phone_W = TearOff.Phone
				End If
				Return _Phone_W
			End Get
		End Property

		Private _ShipperID_W As AggregateParameter = Nothing
		Private _CompanyName_W As AggregateParameter = Nothing
		Private _Phone_W As AggregateParameter = Nothing

		Public Sub AggregateClauseReset()

		_ShipperID_W = Nothing
		_CompanyName_W = Nothing
		_Phone_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