_employees.vb

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

      End Get
        Set(ByVal Value As String)
			Me.SetString(EmployeesSchema.City.FieldName, Value)
      End Set
    End Property

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

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

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

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

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

	Public Overridable Property Photo() As Byte()
        Get
			Return Me.GetByteArray(EmployeesSchema.Photo.FieldName)
      End Get
        Set(ByVal Value As Byte())
			Me.SetByteArray(EmployeesSchema.Photo.FieldName, Value)
      End Set
    End Property

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

	Public Overridable Property ReportsTo() As Integer
        Get
			Return Me.GetInteger(EmployeesSchema.ReportsTo.FieldName)
      End Get
        Set(ByVal Value As Integer)
			Me.SetInteger(EmployeesSchema.ReportsTo.FieldName, Value)
      End Set
    End Property

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

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

#End Region

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

		Public Overridable Property s_PhotoPath As String
			Get
				If Me.IsColumnNull(EmployeesSchema.PhotoPath.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetStringAsString(EmployeesSchema.PhotoPath.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(EmployeesSchema.PhotoPath.FieldName)
				Else
					Me.PhotoPath = MyBase.SetStringAsString(EmployeesSchema.PhotoPath.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