_defaultvalues.vb

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

'===============================================================================
'  Generated From - VbNet_EasyObject_BusinessEntity.vbgen
' 
'  ** IMPORTANT  ** 
'  
'  This object is 'MustInherit' which means you need to inherit from it to be able
'  to instantiate it.  This is very easily done. You can override properties and
'  methods in your derived class, this allows you to regenerate this class at any
'  time and not worry about overwriting custom code. 
'
'  NEVER EDIT THIS FILE.
'
'  Public Class YourObject 
'      Inherits _YourObject
'
'  End Class
'
'===============================================================================

' Generated by MyGeneration Version # (1.1.4.0)

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Xml
Imports System.IO

Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports NCI.EasyObjects


#Region " Schema "

Public Class DefaultValuesSchema
	Inherits NCI.EasyObjects.Schema

    Private Shared _entries As ArrayList
	Public Shared RefNumber As New SchemaItem("RefNumber", DbType.Decimal, True, False, False, True, False, False)
	Public Shared FirstName As New SchemaItem("FirstName", DbType.AnsiString, SchemaItemJustify.None, 100, False, False, False, True)
	Public Shared Age As New SchemaItem("Age", DbType.Int32, False, False, False, False, False, True)
	Public Shared Salary As New SchemaItem("Salary", DbType.Decimal, False, False, False, False, False, True)
	Public Shared DOB As New SchemaItem("DOB", DbType.DateTime, False, False, False, False, False, True)
	Public Shared Val As New SchemaItem("Val", DbType.AnsiStringFixedLength, SchemaItemJustify.None, 1, True, False, False, False)

    Public Overrides ReadOnly Property SchemaEntries() As ArrayList
        Get
            If _entries Is Nothing Then
                _entries = New ArrayList()
				_entries.Add(DefaultValuesSchema.RefNumber)
				_entries.Add(DefaultValuesSchema.FirstName)
				_entries.Add(DefaultValuesSchema.Age)
				_entries.Add(DefaultValuesSchema.Salary)
				_entries.Add(DefaultValuesSchema.DOB)
				_entries.Add(DefaultValuesSchema.Val)

            End If
            Return _entries
        End Get
    End Property

End Class

#End Region

Public MustInherit Class _DefaultValues
    Inherits EasyObject

    Sub New()
        Dim _schema As New DefaultValuesSchema()
        Me.SchemaEntries = _schema.SchemaEntries
		Me.SchemaGlobal = "dbo"
    End Sub

	Public Overrides Sub FlushData()
		Me._whereClause = Nothing
		Me._aggregateClause = Nothing
		MyBase.FlushData()
	End Sub
		
	''' <summary>
	''' Loads the business object with info from the database, based on the requested primary key.
	''' </summary>
	''' <param name="RefNumber"></param>
	''' <returns>A Boolean indicating success or failure of the query</returns>
	Public Function LoadByPrimaryKey(ByVal RefNumber As Decimal) As Boolean
		
		Select Case Me.DefaultCommandType
			Case CommandType.StoredProcedure
				Dim parameters As ListDictionary = New ListDictionary

				' Add in parameters
				parameters.Add(DefaultValuesSchema.RefNumber.FieldName, RefNumber)

				Return MyBase.LoadFromSql(Me.SchemaStoredProcedureWithSeparator & "daab_GetDefaultValues", parameters, CommandType.StoredProcedure)
				
			Case CommandType.Text
				Me.Where.RefNumber.Value = RefNumber
				Return Me.Query.Load()

			Case Else
				Throw New ArgumentException("Invalid CommandType", "commandType")
				
		End Select
		
	End Function

    ''' <summary>
    ''' Loads all records from the table.
    ''' </summary>
    ''' <returns>A Boolean indicating success or failure of the query</returns>
    Public Function LoadAll() As Boolean
	
		Select Case Me.DefaultCommandType
		
			Case CommandType.StoredProcedure
				Dim parameters As ListDictionary = Nothing
				Return MyBase.LoadFromSql(Me.SchemaStoredProcedureWithSeparator & "daab_GetAllDefaultValues", parameters, CommandType.StoredProcedure)
				
			Case CommandType.Text
				Return Me.Query.Load()
			
			Case Else
				Throw New ArgumentException("Invalid CommandType", "commandType")
				
		End Select

    End Function

    ''' <summary>
    ''' Adds a new record to the internal table.
    ''' </summary>
	Public Overrides Sub AddNew()
		MyBase.AddNew()

	End Sub

    Protected Shadows Function GetInsertCommand(commandType As CommandType) As DBCommandWrapper
	
		Dim dbCommandWrapper As DBCommandWrapper
		
        ' Create the Database object, using the default database service. The
        ' default database service is determined through configuration.
        Dim db As Database = GetDatabase()
	
		Select Case commandType
		
			Case CommandType.StoredProcedure
				Dim sqlCommand As String = Me.SchemaStoredProcedureWithSeparator & "daab_AddDefaultValues"
				dbCommandWrapper = db.GetStoredProcCommandWrapper(sqlCommand)
		
				CreateParameters(dbCommandWrapper)
				
				' Add autokey parameters
				dbCommandWrapper.AddParameter("RefNumber", DbType.Decimal, 0, ParameterDirection.Output, True, 0, 0, "RefNumber", DataRowVersion.Default, Convert.DBNull)
				
			Case CommandType.Text
				Me.Where.WhereClauseReset()
				For Each item As SchemaItem In Me.SchemaEntries
					If Not (item.IsAutoKey OrElse item.IsComputed)
						Me.Query.AddInsertColumn(item)
					End If
				Next
				dbCommandWrapper = Me.Query.GetInsertCommandWrapper()

				dbCommandWrapper.Command.Parameters.Clear()
				dbCommandWrapper.AddParameter("RefNumber", DbType.Decimal, 0, ParameterDirection.Output, True, 0, 0, "RefNumber", DataRowVersion.Default, Convert.DBNull)
				CreateParameters(dbCommandWrapper)

			Case Else
				Throw New ArgumentException("Invalid CommandType", "commandType")
				
		End Select

        Return dbCommandWrapper

    End Function

    Protected Shadows Function GetUpdateCommand(commandType As CommandType) As DBCommandWrapper
	
		Dim dbCommandWrapper As DBCommandWrapper

        ' Create the Database object, using the default database service. The
        ' default database service is determined through configuration.
        Dim db As Database = GetDatabase()
	
		Select Case commandType
		
			Case CommandType.StoredProcedure
				Dim sqlCommand As String = Me.SchemaStoredProcedureWithSeparator & "daab_UpdateDefaultValues"
				dbCommandWrapper = db.GetStoredProcCommandWrapper(sqlCommand)
		
				CreateParameters(dbCommandWrapper)
		
				' Add autokey parameters
				dbCommandWrapper.AddInParameter("RefNumber", DbType.Decimal, "RefNumber", DataRowVersion.Current)

			Case CommandType.Text
				Me.Where.WhereClauseReset()
				For Each item As SchemaItem In Me.SchemaEntries
					If Not (item.IsAutoKey OrElse item.IsComputed)
						Me.Query.AddInsertColumn(item)
					End If
				Next

				Me.Where.WhereClauseReset()
				Me.Where.RefNumber.Operator = WhereParameter.Operand.Equal
				dbCommandWrapper = Me.Query.GetUpdateCommandWrapper()

				dbCommandWrapper.Command.Parameters.Clear()
				CreateParameters(dbCommandWrapper)
				dbCommandWrapper.AddInParameter("RefNumber", DbType.Decimal, "RefNumber", DataRowVersion.Current)

			Case Else
				Throw New ArgumentException("Invalid CommandType", "commandType")
				
		End Select

        Return dbCommandWrapper

    End Function

    Protected Shadows Function GetDeleteCommand(commandType As CommandType) As DBCommandWrapper
	
		Dim dbCommandWrapper As DBCommandWrapper

        ' Create the Database object, using the default database service. The
        ' default database service is determined through configuration.
        Dim db As Database = GetDatabase()
	
		Select Case commandType
		
			Case CommandType.StoredProcedure
				Dim sqlCommand As String = Me.SchemaStoredProcedureWithSeparator & "daab_DeleteDefaultValues"
				dbCommandWrapper = db.GetStoredProcCommandWrapper(sqlCommand)
		
				' Add primary key parameters
				dbCommandWrapper.AddInParameter("RefNumber", DbType.Decimal, "RefNumber", DataRowVersion.Current)

			Case CommandType.Text
				Me.Where.WhereClauseReset()
				Me.Where.RefNumber.Operator = WhereParameter.Operand.Equal
			dbCommandWrapper = Me.Query.GetDeleteCommandWrapper()

			dbCommandWrapper.Command.Parameters.Clear()
				dbCommandWrapper.AddInParameter("RefNumber", DbType.Decimal, "RefNumber", DataRowVersion.Current)

			Case Else
				Throw New ArgumentException("Invalid CommandType", "commandType")
				
		End Select

        Return dbCommandWrapper

    End Function

    Private Sub CreateParameters(ByVal dbCommandWrapper As DBCommandWrapper)
		
		dbCommandWrapper.AddInParameter("FirstName", DbType.AnsiString, "FirstName", DataRowVersion.Current)
		dbCommandWrapper.AddInParameter("Age", DbType.Int32, "Age", DataRowVersion.Current)
		dbCommandWrapper.AddInParameter("Salary", DbType.Decimal, "Salary", DataRowVersion.Current)
		dbCommandWrapper.AddInParameter("DOB", DbType.DateTime, "DOB", DataRowVersion.Current)
		dbCommandWrapper.AddInParameter("Val", DbType.AnsiStringFixedLength, "Val", DataRowVersion.Current)

    End Sub

#Region " Properties "

	Public Overridable Property RefNumber() As Decimal
        Get
			Return Me.GetDecimal(DefaultValuesSchema.RefNumber.FieldName)
      End Get
        Set(ByVal Value As Decimal)
			Me.SetDecimal(DefaultValuesSchema.RefNumber.FieldName, Value)
      End Set
    End Property

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

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

	Public Overridable Property Salary() As Decimal
        Get
			Return Me.GetDecimal(DefaultValuesSchema.Salary.FieldName)
      End Get
        Set(ByVal Value As Decimal)
			Me.SetDecimal(DefaultValuesSchema.Salary.FieldName, Value)
      End Set
    End Property

	Public Overridable Property DOB() As DateTime
        Get
			Return Me.GetDateTime(DefaultValuesSchema.DOB.FieldName)
      End Get
        Set(ByVal Value As DateTime)
			Me.SetDateTime(DefaultValuesSchema.DOB.FieldName, Value)
      End Set
    End Property

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

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

#End Region

#Region " String Properties "
		Public Overridable Property s_RefNumber As String
			Get
				If Me.IsColumnNull(DefaultValuesSchema.RefNumber.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDecimalAsString(DefaultValuesSchema.RefNumber.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(DefaultValuesSchema.RefNumber.FieldName)
				Else
					Me.RefNumber = MyBase.SetDecimalAsString(DefaultValuesSchema.RefNumber.FieldName, Value)
				End If
			End Set
		End Property

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

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

		Public Overridable Property s_Salary As String
			Get
				If Me.IsColumnNull(DefaultValuesSchema.Salary.FieldName) Then
					Return String.Empty
				Else
					Return MyBase.GetDecimalAsString(DefaultValuesSchema.Salary.FieldName)
				End If
			End Get
			Set(ByVal Value As String)
				If String.Empty = value Then
					Me.SetColumnNull(DefaultValuesSchema.Salary.FieldName)
				Else