_products.vb

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

	Public Overridable Property UnitsInStock() As Short
        Get
			Return Me.GetShort(ProductsSchema.UnitsInStock.FieldName)
      End Get
        Set(ByVal Value As Short)
			Me.SetShort(ProductsSchema.UnitsInStock.FieldName, Value)
      End Set
    End Property

	Public Overridable Property UnitsOnOrder() As Short
        Get
			Return Me.GetShort(ProductsSchema.UnitsOnOrder.FieldName)
      End Get
        Set(ByVal Value As Short)
			Me.SetShort(ProductsSchema.UnitsOnOrder.FieldName, Value)
      End Set
    End Property

	Public Overridable Property ReorderLevel() As Short
        Get
			Return Me.GetShort(ProductsSchema.ReorderLevel.FieldName)
      End Get
        Set(ByVal Value As Short)
			Me.SetShort(ProductsSchema.ReorderLevel.FieldName, Value)
      End Set
    End Property

	Public Overridable Property Discontinued() As Boolean
        Get
			Return Me.GetBoolean(ProductsSchema.Discontinued.FieldName)
      End Get
        Set(ByVal Value As Boolean)
			Me.SetBoolean(ProductsSchema.Discontinued.FieldName, Value)
      End Set
    End Property

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

#End Region

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

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

		Public Overridable Property s_SupplierID As String
			Get
				If Me.IsColumnNull(ProductsSchema.SupplierID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetIntegerAsString(ProductsSchema.SupplierID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.SupplierID.FieldName)
				Else
					Me.SupplierID = MyBase.SetIntegerAsString(ProductsSchema.SupplierID.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_CategoryID As String
			Get
				If Me.IsColumnNull(ProductsSchema.CategoryID.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetIntegerAsString(ProductsSchema.CategoryID.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.CategoryID.FieldName)
				Else
					Me.CategoryID = MyBase.SetIntegerAsString(ProductsSchema.CategoryID.FieldName, Value)
				End If
			End Set
		End Property

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

		Public Overridable Property s_UnitPrice As String
			Get
				If Me.IsColumnNull(ProductsSchema.UnitPrice.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDecimalAsString(ProductsSchema.UnitPrice.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.UnitPrice.FieldName)
				Else
					Me.UnitPrice = MyBase.SetDecimalAsString(ProductsSchema.UnitPrice.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_UnitsInStock As String
			Get
				If Me.IsColumnNull(ProductsSchema.UnitsInStock.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetShortAsString(ProductsSchema.UnitsInStock.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.UnitsInStock.FieldName)
				Else
					Me.UnitsInStock = MyBase.SetShortAsString(ProductsSchema.UnitsInStock.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_UnitsOnOrder As String
			Get
				If Me.IsColumnNull(ProductsSchema.UnitsOnOrder.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetShortAsString(ProductsSchema.UnitsOnOrder.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.UnitsOnOrder.FieldName)
				Else
					Me.UnitsOnOrder = MyBase.SetShortAsString(ProductsSchema.UnitsOnOrder.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_ReorderLevel As String
			Get
				If Me.IsColumnNull(ProductsSchema.ReorderLevel.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetShortAsString(ProductsSchema.ReorderLevel.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.ReorderLevel.FieldName)
				Else
					Me.ReorderLevel = MyBase.SetShortAsString(ProductsSchema.ReorderLevel.FieldName, Value)
				End If
			End Set
		End Property

		Public Overridable Property s_Discontinued As String
			Get
				If Me.IsColumnNull(ProductsSchema.Discontinued.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetBooleanAsString(ProductsSchema.Discontinued.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(ProductsSchema.Discontinued.FieldName)
				Else
					Me.Discontinued = MyBase.SetBooleanAsString(ProductsSchema.Discontinued.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 ProductID() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(ProductsSchema.ProductID)
                    Dim query As NCI.EasyObjects.DynamicQuery = Me._clause._entity.Query
                    query.AddWhereParameter(wp)
					Return wp
				End Get
			End Property

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

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

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

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

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

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

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

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

			Public ReadOnly Property Discontinued() As WhereParameter
				Get
					Dim wp As WhereParameter = New WhereParameter(ProductsSchema.Discontinued)
                    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 ProductID() As WhereParameter 
			Get
				If _ProductID_W Is Nothing Then
					_ProductID_W = TearOff.ProductID
				End If
				Return _ProductID_W
			End Get
		End Property

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

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