_customers.vb

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

    End Property

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

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

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

#End Region

#Region " String Properties "
		Public Overridable Property s_CustomerID As String
			Get
				If Me.IsColumnNull(CustomersSchema.CustomerID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(CustomersSchema.CustomerID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(CustomersSchema.CustomerID.FieldName)
				Else
					Me.CustomerID = MyBase.SetStringAsString(CustomersSchema.CustomerID.FieldName, Value)
				End If
			End Set
		End Property

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

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

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

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

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

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

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

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

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

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

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

			Public ReadOnly Property ContactTitle() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(CustomersSchema.ContactTitle)
                    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(CustomersSchema.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(CustomersSchema.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(CustomersSchema.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(CustomersSchema.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(CustomersSchema.Country)
                    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(CustomersSchema.Phone)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

			Public ReadOnly Property Fax() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(CustomersSchema.Fax)
                    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 CustomerID() As WhereParameter 
			Get
				If _CustomerID_W Is Nothing Then
					_CustomerID_W = TearOff.CustomerID
				End If
				Return _CustomerID_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 ContactName() As WhereParameter 
			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 WhereParameter 
			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 WhereParameter 
			Get