1284 lines
50 KiB
VB.net
1284 lines
50 KiB
VB.net
' This class is "generated" and will be overwritten.
|
|
' Your customizations should be made in View_PersonsRecord.vb
|
|
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data
|
|
Imports BaseClasses
|
|
Imports BaseClasses.Data
|
|
Imports BaseClasses.Data.SqlProvider
|
|
Imports Persons.Data
|
|
|
|
Namespace Persons.Business
|
|
|
|
''' <summary>
|
|
''' The generated superclass for the <see cref="View_PersonsView"></see> class.
|
|
''' Provides access to the schema information and record data of a database table or view named View_Persons.
|
|
''' </summary>
|
|
''' <remarks>
|
|
''' The connection details (name, location, etc.) of the database and table (or view) accessed by this class
|
|
''' are resolved at runtime based on the connection string in the application's Web.Config file.
|
|
''' <para>
|
|
''' This class is not intended to be instantiated directly. To obtain an instance of this class, use
|
|
''' <see cref="View_PersonsView.Instance">View_PersonsView.Instance</see>.
|
|
''' </para>
|
|
''' </remarks>
|
|
''' <seealso cref="View_PersonsView"></seealso>
|
|
|
|
<Serializable()> Public Class BaseView_PersonsView
|
|
Inherits PrimaryKeyTable
|
|
|
|
|
|
Private ReadOnly TableDefinitionString As String = View_PersonsDefinition.GetXMLString()
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Protected Sub New()
|
|
MyBase.New()
|
|
Me.Initialize()
|
|
End Sub
|
|
|
|
Protected Overridable Sub Initialize()
|
|
Dim def As New XmlTableDefinition(TableDefinitionString)
|
|
Me.TableDefinition = New TableDefinition()
|
|
Me.TableDefinition.TableClassName = System.Reflection.Assembly.CreateQualifiedName("App_Code", "Persons.Business.View_PersonsView")
|
|
def.InitializeTableDefinition(Me.TableDefinition)
|
|
Me.ConnectionName = def.GetConnectionName()
|
|
Me.RecordClassName = System.Reflection.Assembly.CreateQualifiedName("App_Code", "Persons.Business.View_PersonsRecord")
|
|
Me.ApplicationName = "App_Code"
|
|
Me.DataAdapter = New View_PersonsSqlView()
|
|
Directcast(Me.DataAdapter, View_PersonsSqlView).ConnectionName = Me.ConnectionName
|
|
|
|
Me.TableDefinition.AdapterMetaData = Me.DataAdapter.AdapterMetaData
|
|
PersonalIdColumn.CodeName = "PersonalId"
|
|
ArmyIdColumn.CodeName = "ArmyId"
|
|
ArmSNameColumn.CodeName = "ArmSName"
|
|
SectionIdColumn.CodeName = "SectionId"
|
|
SectionAbbvrNameColumn.CodeName = "SectionAbbvrName"
|
|
DeptIdColumn.CodeName = "DeptId"
|
|
DeptAbbvrColumn.CodeName = "DeptAbbvr"
|
|
RankIdColumn.CodeName = "RankId"
|
|
PersonalNameColumn.CodeName = "PersonalName"
|
|
PersonalLastNameColumn.CodeName = "PersonalLastName"
|
|
BirthDateColumn.CodeName = "BirthDate"
|
|
RetireColumn.CodeName = "Retire"
|
|
CommissionColumn.CodeName = "Commission"
|
|
BornColumn.CodeName = "Born"
|
|
DateRankColumn.CodeName = "DateRank"
|
|
DatePrevRankColumn.CodeName = "DatePrevRank"
|
|
BProvinceColumn.CodeName = "BProvince"
|
|
SAmoutColumn.CodeName = "SAmout"
|
|
CEduColumn.CodeName = "CEdu"
|
|
MobilePhoneColumn.CodeName = "MobilePhone"
|
|
pictureColumn.CodeName = "picture"
|
|
RankDateColumn.CodeName = "RankDate"
|
|
TitleColumn.CodeName = "Title"
|
|
RankLevelColumn.CodeName = "RankLevel"
|
|
RankAndNameColumn.CodeName = "RankAndName"
|
|
|
|
End Sub
|
|
|
|
#Region "Overriden methods"
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Properties for columns"
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.PersonalId column object.
|
|
''' </summary>
|
|
Public ReadOnly Property PersonalIdColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(0), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.PersonalId column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property PersonalId() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.PersonalIdColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.ArmyId column object.
|
|
''' </summary>
|
|
Public ReadOnly Property ArmyIdColumn() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(1), BaseClasses.Data.NumberColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.ArmyId column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property ArmyId() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return View_PersonsView.Instance.ArmyIdColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.ArmSName column object.
|
|
''' </summary>
|
|
Public ReadOnly Property ArmSNameColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(2), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.ArmSName column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property ArmSName() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.ArmSNameColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.SectionId column object.
|
|
''' </summary>
|
|
Public ReadOnly Property SectionIdColumn() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(3), BaseClasses.Data.NumberColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.SectionId column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property SectionId() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return View_PersonsView.Instance.SectionIdColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.SectionAbbvrName column object.
|
|
''' </summary>
|
|
Public ReadOnly Property SectionAbbvrNameColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(4), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.SectionAbbvrName column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property SectionAbbvrName() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.SectionAbbvrNameColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DeptId column object.
|
|
''' </summary>
|
|
Public ReadOnly Property DeptIdColumn() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(5), BaseClasses.Data.NumberColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DeptId column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property DeptId() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return View_PersonsView.Instance.DeptIdColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DeptAbbvr column object.
|
|
''' </summary>
|
|
Public ReadOnly Property DeptAbbvrColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(6), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DeptAbbvr column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property DeptAbbvr() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.DeptAbbvrColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankId column object.
|
|
''' </summary>
|
|
Public ReadOnly Property RankIdColumn() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(7), BaseClasses.Data.NumberColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankId column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property RankId() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return View_PersonsView.Instance.RankIdColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.PersonalName column object.
|
|
''' </summary>
|
|
Public ReadOnly Property PersonalNameColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(8), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.PersonalName column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property PersonalName() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.PersonalNameColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.PersonalLastName column object.
|
|
''' </summary>
|
|
Public ReadOnly Property PersonalLastNameColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(9), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.PersonalLastName column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property PersonalLastName() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.PersonalLastNameColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.BirthDate column object.
|
|
''' </summary>
|
|
Public ReadOnly Property BirthDateColumn() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(10), BaseClasses.Data.DateColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.BirthDate column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property BirthDate() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return View_PersonsView.Instance.BirthDateColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Retire column object.
|
|
''' </summary>
|
|
Public ReadOnly Property RetireColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(11), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Retire column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property Retire() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.RetireColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Commission column object.
|
|
''' </summary>
|
|
Public ReadOnly Property CommissionColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(12), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Commission column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property Commission() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.CommissionColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Born column object.
|
|
''' </summary>
|
|
Public ReadOnly Property BornColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(13), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Born column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property Born() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.BornColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DateRank column object.
|
|
''' </summary>
|
|
Public ReadOnly Property DateRankColumn() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(14), BaseClasses.Data.DateColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DateRank column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property DateRank() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return View_PersonsView.Instance.DateRankColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DatePrevRank column object.
|
|
''' </summary>
|
|
Public ReadOnly Property DatePrevRankColumn() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(15), BaseClasses.Data.DateColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.DatePrevRank column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property DatePrevRank() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return View_PersonsView.Instance.DatePrevRankColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.BProvince column object.
|
|
''' </summary>
|
|
Public ReadOnly Property BProvinceColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(16), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.BProvince column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property BProvince() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.BProvinceColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.SAmout column object.
|
|
''' </summary>
|
|
Public ReadOnly Property SAmoutColumn() As BaseClasses.Data.CurrencyColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(17), BaseClasses.Data.CurrencyColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.SAmout column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property SAmout() As BaseClasses.Data.CurrencyColumn
|
|
Get
|
|
Return View_PersonsView.Instance.SAmoutColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.CEdu column object.
|
|
''' </summary>
|
|
Public ReadOnly Property CEduColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(18), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.CEdu column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property CEdu() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.CEduColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.MobilePhone column object.
|
|
''' </summary>
|
|
Public ReadOnly Property MobilePhoneColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(19), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.MobilePhone column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property MobilePhone() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.MobilePhoneColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.picture column object.
|
|
''' </summary>
|
|
Public ReadOnly Property pictureColumn() As BaseClasses.Data.ImageColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(20), BaseClasses.Data.ImageColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.picture column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property picture() As BaseClasses.Data.ImageColumn
|
|
Get
|
|
Return View_PersonsView.Instance.pictureColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankDate column object.
|
|
''' </summary>
|
|
Public ReadOnly Property RankDateColumn() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(21), BaseClasses.Data.DateColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankDate column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property RankDate() As BaseClasses.Data.DateColumn
|
|
Get
|
|
Return View_PersonsView.Instance.RankDateColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Title column object.
|
|
''' </summary>
|
|
Public ReadOnly Property TitleColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(22), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.Title column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property Title() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.TitleColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankLevel column object.
|
|
''' </summary>
|
|
Public ReadOnly Property RankLevelColumn() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(23), BaseClasses.Data.NumberColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankLevel column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property RankLevel() As BaseClasses.Data.NumberColumn
|
|
Get
|
|
Return View_PersonsView.Instance.RankLevelColumn
|
|
End Get
|
|
End Property
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankAndName column object.
|
|
''' </summary>
|
|
Public ReadOnly Property RankAndNameColumn() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return CType(Me.TableDefinition.ColumnList(24), BaseClasses.Data.StringColumn)
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' This is a convenience property that provides direct access to the table's View_Persons_.RankAndName column object.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property RankAndName() As BaseClasses.Data.StringColumn
|
|
Get
|
|
Return View_PersonsView.Instance.RankAndNameColumn
|
|
End Get
|
|
End Property
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Shared helper methods"
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get an array of View_PersonsRecord records using a where clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecords(ByVal where As String) As View_PersonsRecord()
|
|
|
|
Return GetRecords(where, Nothing, BaseTable.MIN_PAGE_NUMBER, BaseTable.MAX_BATCH_SIZE)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get an array of View_PersonsRecord records using a where clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecords(ByVal join As BaseFilter, ByVal where As String) As View_PersonsRecord()
|
|
|
|
Return GetRecords(join, where, Nothing, BaseTable.MIN_PAGE_NUMBER, BaseTable.MAX_BATCH_SIZE)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get an array of View_PersonsRecord records using a where and order by clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecords( _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy) As View_PersonsRecord()
|
|
|
|
Return GetRecords(where, orderBy, BaseTable.MIN_PAGE_NUMBER, BaseTable.MAX_BATCH_SIZE)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get an array of View_PersonsRecord records using a where and order by clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecords( _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy) As View_PersonsRecord()
|
|
|
|
Return GetRecords(join, where, orderBy, BaseTable.MIN_PAGE_NUMBER, BaseTable.MAX_BATCH_SIZE)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get an array of View_PersonsRecord records using a where and order by clause clause with pagination.
|
|
''' </summary>
|
|
Public Shared Function GetRecords( _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) As View_PersonsRecord()
|
|
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
Dim join As BaseClasses.Data.BaseFilter = Nothing
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, whereFilter, Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
Return CType(recList.ToArray(GetType(Persons.Business.View_PersonsRecord)), View_PersonsRecord())
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get an array of View_PersonsRecord records using a where and order by clause clause with pagination.
|
|
''' </summary>
|
|
Public Shared Function GetRecords( _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) As View_PersonsRecord()
|
|
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, whereFilter, Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
Return CType(recList.ToArray(GetType(Persons.Business.View_PersonsRecord)), View_PersonsRecord())
|
|
End Function
|
|
|
|
Public Shared Function GetRecords( _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) As View_PersonsRecord()
|
|
Dim join As BaseClasses.Data.BaseFilter = Nothing
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
Return CType(recList.ToArray(GetType(Persons.Business.View_PersonsRecord)), View_PersonsRecord())
|
|
End Function
|
|
|
|
Public Shared Function GetRecords( _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) As View_PersonsRecord()
|
|
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
Return CType(recList.ToArray(GetType(Persons.Business.View_PersonsRecord)), View_PersonsRecord())
|
|
End Function
|
|
|
|
Public Shared Function GetRecords( _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer, _
|
|
ByRef totalRecords As Integer) As View_PersonsRecord()
|
|
Dim join As BaseClasses.Data.BaseFilter = Nothing
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize, totalRecords)
|
|
|
|
Return CType(recList.ToArray(GetType(Persons.Business.View_PersonsRecord)), View_PersonsRecord())
|
|
End Function
|
|
|
|
Public Shared Function GetRecords( _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer, _
|
|
ByRef totalRecords As Integer) As View_PersonsRecord()
|
|
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize, totalRecords)
|
|
|
|
Return CType(recList.ToArray(GetType(Persons.Business.View_PersonsRecord)), View_PersonsRecord())
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get total number of records that will be returned using the where clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecordCount(ByVal where As String) As Integer
|
|
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.Trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
|
|
Return CInt(View_PersonsView.Instance.GetRecordListCount(Nothing, whereFilter, Nothing, Nothing))
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get total number of records that will be returned using the where clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecordCount(ByVal join As BaseFilter, ByVal where As String) As Integer
|
|
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.Trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
|
|
Return CInt(View_PersonsView.Instance.GetRecordListCount(join, whereFilter, Nothing, Nothing))
|
|
End Function
|
|
|
|
Public Shared Function GetRecordCount(ByVal where As WhereClause) As Integer
|
|
Return CInt(View_PersonsView.Instance.GetRecordListCount(Nothing, where.GetFilter(), Nothing, Nothing))
|
|
End Function
|
|
|
|
Public Shared Function GetRecordCount(ByVal join As BaseFilter, ByVal where As WhereClause) As Integer
|
|
Return CInt(View_PersonsView.Instance.GetRecordListCount(join, where.GetFilter(), Nothing, Nothing))
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a View_PersonsRecord record using a where clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecord(ByVal where As String) As View_PersonsRecord
|
|
Dim orderBy As OrderBy = Nothing
|
|
Return GetRecord(where, orderBy)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a View_PersonsRecord record using a where clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecord(ByVal join As BaseFilter, ByVal where As String) As View_PersonsRecord
|
|
Dim orderBy As OrderBy = Nothing
|
|
Return GetRecord(join, where, orderBy)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a View_PersonsRecord record using a where and order by clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecord( _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy) As View_PersonsRecord
|
|
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.Trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
Dim join As BaseClasses.Data.BaseFilter = Nothing
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, whereFilter, Nothing, orderBy, BaseTable.MIN_PAGE_NUMBER, BaseTable.MIN_BATCH_SIZE)
|
|
|
|
Dim rec As View_PersonsRecord = Nothing
|
|
If recList.Count > 0 Then
|
|
rec = CType(recList(0), View_PersonsRecord)
|
|
End If
|
|
|
|
Return rec
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a View_PersonsRecord record using a where and order by clause.
|
|
''' </summary>
|
|
Public Shared Function GetRecord( _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy) As View_PersonsRecord
|
|
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.Trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
|
|
Dim recList As ArrayList = View_PersonsView.Instance.GetRecordList(join, whereFilter, Nothing, orderBy, BaseTable.MIN_PAGE_NUMBER, BaseTable.MIN_BATCH_SIZE)
|
|
|
|
Dim rec As View_PersonsRecord = Nothing
|
|
If recList.Count > 0 Then
|
|
rec = CType(recList(0), View_PersonsRecord)
|
|
End If
|
|
|
|
Return rec
|
|
End Function
|
|
|
|
|
|
Public Shared Function GetValues( _
|
|
ByVal col As BaseColumn, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal maxItems As Integer) As String()
|
|
|
|
' Create the filter list.
|
|
Dim retCol As SqlBuilderColumnSelection = New SqlBuilderColumnSelection(False, True)
|
|
retCol.AddColumn(col)
|
|
|
|
Return View_PersonsView.Instance.GetColumnValues(retCol, Nothing, where.GetFilter(), Nothing, orderBy, BaseTable.MIN_PAGE_NUMBER, maxItems)
|
|
|
|
End Function
|
|
|
|
Public Shared Function GetValues( _
|
|
ByVal col As BaseColumn, _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal maxItems As Integer) As String()
|
|
|
|
' Create the filter list.
|
|
Dim retCol As SqlBuilderColumnSelection = New SqlBuilderColumnSelection(False, True)
|
|
retCol.AddColumn(col)
|
|
|
|
Return View_PersonsView.Instance.GetColumnValues(retCol, join, where.GetFilter(), Nothing, orderBy, BaseTable.MIN_PAGE_NUMBER, maxItems)
|
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a DataTable to bound with a data bound control using a where clause.
|
|
''' </summary>
|
|
Public Shared Function GetDataTable(ByVal where As String) As System.Data.DataTable
|
|
|
|
Dim recs() As View_PersonsRecord = GetRecords(where)
|
|
Return View_PersonsView.Instance.CreateDataTable(recs, Nothing)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a DataTable to bound with a data bound control using a where clause.
|
|
''' </summary>
|
|
Public Shared Function GetDataTable(ByVal join As BaseFilter, ByVal where As String) As System.Data.DataTable
|
|
|
|
Dim recs() As View_PersonsRecord = GetRecords(join, where)
|
|
Return View_PersonsView.Instance.CreateDataTable(recs, Nothing)
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a DataTable to bound with a data bound control using a where and order by clause.
|
|
''' </summary>
|
|
Public Shared Function GetDataTable(ByVal where As String, ByVal orderBy As OrderBy) As System.Data.DataTable
|
|
|
|
Dim recs() As View_PersonsRecord = GetRecords(where, orderBy)
|
|
Return View_PersonsView.Instance.CreateDataTable(recs, Nothing)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a DataTable to bound with a data bound control using a where and order by clause.
|
|
''' </summary>
|
|
Public Shared Function GetDataTable(ByVal join As BaseFilter, ByVal where As String, ByVal orderBy As OrderBy) As System.Data.DataTable
|
|
|
|
Dim recs() As View_PersonsRecord = GetRecords(join, where, orderBy)
|
|
Return View_PersonsView.Instance.CreateDataTable(recs, Nothing)
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a DataTable to bound with a data bound control using a where and order by clause with pagination.
|
|
''' </summary>
|
|
Public Shared Function GetDataTable( _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) As System.Data.DataTable
|
|
|
|
Dim recs() As View_PersonsRecord = GetRecords(where, orderBy, pageIndex, pageSize)
|
|
Return View_PersonsView.Instance.CreateDataTable(recs, Nothing)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to get a DataTable to bound with a data bound control using a where and order by clause with pagination.
|
|
''' </summary>
|
|
Public Shared Function GetDataTable( _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As String, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) As System.Data.DataTable
|
|
|
|
Dim recs() As View_PersonsRecord = GetRecords(join, where, orderBy, pageIndex, pageSize)
|
|
Return View_PersonsView.Instance.CreateDataTable(recs, Nothing)
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to delete records using a where clause.
|
|
''' </summary>
|
|
Public Shared Sub DeleteRecords(ByVal where As String)
|
|
If where = Nothing OrElse where.Trim() = "" Then
|
|
Return
|
|
End If
|
|
|
|
Dim whereFilter As SqlFilter = New SqlFilter(where)
|
|
View_PersonsView.Instance.DeleteRecordList(whereFilter)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' This is a shared function that can be used to export records using a where clause.
|
|
''' </summary>
|
|
Public Shared Function Export(ByVal where As String) As String
|
|
Dim whereFilter As SqlFilter = Nothing
|
|
If Not where Is Nothing AndAlso where.Trim() <> "" Then
|
|
whereFilter = New SqlFilter(where)
|
|
End If
|
|
|
|
Return View_PersonsView.Instance.ExportRecordData(whereFilter)
|
|
End Function
|
|
|
|
Public Shared Function Export(ByVal where As WhereClause) As String
|
|
Dim whereFilter As BaseFilter = Nothing
|
|
If Not where Is Nothing Then
|
|
whereFilter = where.GetFilter()
|
|
End If
|
|
|
|
Return View_PersonsView.Instance.ExportRecordData(whereFilter)
|
|
End Function
|
|
|
|
Public Shared Function GetSum( _
|
|
ByVal col As BaseColumn, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) _
|
|
As String
|
|
|
|
Dim colSel As SqlBuilderColumnSelection = New SqlBuilderColumnSelection(False, False)
|
|
colSel.AddColumn(col, SqlBuilderColumnOperation.OperationType.Sum)
|
|
|
|
Return View_PersonsView.Instance.GetColumnStatistics(colSel, Nothing, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
End Function
|
|
|
|
Public Shared Function GetSum( _
|
|
ByVal col As BaseColumn, _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) _
|
|
As String
|
|
|
|
Dim colSel As SqlBuilderColumnSelection = New SqlBuilderColumnSelection(False, False)
|
|
colSel.AddColumn(col, SqlBuilderColumnOperation.OperationType.Sum)
|
|
|
|
Return View_PersonsView.Instance.GetColumnStatistics(colSel, join, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
End Function
|
|
|
|
|
|
Public Shared Function GetCount( _
|
|
ByVal col As BaseColumn, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) _
|
|
As String
|
|
|
|
Dim colSel As SqlBuilderColumnSelection = New SqlBuilderColumnSelection(False, False)
|
|
colSel.AddColumn(col, SqlBuilderColumnOperation.OperationType.Count)
|
|
|
|
Return View_PersonsView.Instance.GetColumnStatistics(colSel, Nothing, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
End Function
|
|
|
|
Public Shared Function GetCount( _
|
|
ByVal col As BaseColumn, _
|
|
ByVal join As BaseFilter, _
|
|
ByVal where As WhereClause, _
|
|
ByVal orderBy As OrderBy, _
|
|
ByVal pageIndex As Integer, _
|
|
ByVal pageSize As Integer) _
|
|
As String
|
|
|
|
Dim colSel As SqlBuilderColumnSelection = New SqlBuilderColumnSelection(False, False)
|
|
colSel.AddColumn(col, SqlBuilderColumnOperation.OperationType.Count)
|
|
|
|
Return View_PersonsView.Instance.GetColumnStatistics(colSel, join, where.GetFilter(), Nothing, orderBy, pageIndex, pageSize)
|
|
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method returns the columns in the table.
|
|
''' </summary>
|
|
Public Shared Function GetColumns() As BaseColumn()
|
|
Return View_PersonsView.Instance.TableDefinition.Columns
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method returns the columnlist in the table.
|
|
''' </summary>
|
|
Public Shared Function GetColumnList() As ColumnList
|
|
Return View_PersonsView.Instance.TableDefinition.ColumnList
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' This method creates a new record and returns it to be edited.
|
|
''' </summary>
|
|
Public Shared Function CreateNewRecord() As IRecord
|
|
Return View_PersonsView.Instance.CreateRecord()
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method creates a new record and returns it to be edited.
|
|
''' </summary>
|
|
''' <param name="tempId">ID of the new record.</param>
|
|
Public Shared Function CreateNewRecord(ByVal tempId As String) As IRecord
|
|
Return View_PersonsView.Instance.CreateRecord(tempId)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method checks if column is editable.
|
|
''' </summary>
|
|
''' <param name="columnName">Name of the column to check.</param>
|
|
Public Shared Function isReadOnlyColumn(ByVal columnName As String) As Boolean
|
|
Dim column As BaseColumn = GetColumn(columnName)
|
|
If (Not IsNothing(column)) Then
|
|
Return column.IsValuesReadOnly
|
|
Else
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method gets the specified column.
|
|
''' </summary>
|
|
''' <param name="uniqueColumnName">Unique name of the column to fetch.</param>
|
|
Public Shared Function GetColumn(ByVal uniqueColumnName As String) As BaseColumn
|
|
Dim column As BaseColumn = View_PersonsView.Instance.TableDefinition.ColumnList.GetByUniqueName(uniqueColumnName)
|
|
Return column
|
|
End Function
|
|
|
|
' Convenience method for getting a record using a string-based record identifier
|
|
Public Shared Function GetRecord(ByVal id As String, ByVal bMutable As Boolean) As View_PersonsRecord
|
|
Return CType(View_PersonsView.Instance.GetRecordData(id, bMutable), View_PersonsRecord)
|
|
End Function
|
|
|
|
' Convenience method for getting a record using a KeyValue record identifier
|
|
Public Shared Function GetRecord(ByVal id As KeyValue, ByVal bMutable As Boolean) As View_PersonsRecord
|
|
Return CType(View_PersonsView.Instance.GetRecordData(id, bMutable), View_PersonsRecord)
|
|
End Function
|
|
|
|
' Convenience method for creating a record
|
|
Public Overloads Function NewRecord( _
|
|
ByVal PersonalIdValue As String, _
|
|
ByVal ArmyIdValue As String, _
|
|
ByVal ArmSNameValue As String, _
|
|
ByVal SectionIdValue As String, _
|
|
ByVal SectionAbbvrNameValue As String, _
|
|
ByVal DeptIdValue As String, _
|
|
ByVal DeptAbbvrValue As String, _
|
|
ByVal RankIdValue As String, _
|
|
ByVal PersonalNameValue As String, _
|
|
ByVal PersonalLastNameValue As String, _
|
|
ByVal BirthDateValue As String, _
|
|
ByVal RetireValue As String, _
|
|
ByVal CommissionValue As String, _
|
|
ByVal BornValue As String, _
|
|
ByVal DateRankValue As String, _
|
|
ByVal DatePrevRankValue As String, _
|
|
ByVal BProvinceValue As String, _
|
|
ByVal SAmoutValue As String, _
|
|
ByVal CEduValue As String, _
|
|
ByVal MobilePhoneValue As String, _
|
|
ByVal pictureValue As String, _
|
|
ByVal RankDateValue As String, _
|
|
ByVal TitleValue As String, _
|
|
ByVal RankLevelValue As String, _
|
|
ByVal RankAndNameValue As String _
|
|
) As KeyValue
|
|
Dim rec As IPrimaryKeyRecord = CType(Me.CreateRecord(), IPrimaryKeyRecord)
|
|
rec.SetString(PersonalIdValue, PersonalIdColumn)
|
|
rec.SetString(ArmyIdValue, ArmyIdColumn)
|
|
rec.SetString(ArmSNameValue, ArmSNameColumn)
|
|
rec.SetString(SectionIdValue, SectionIdColumn)
|
|
rec.SetString(SectionAbbvrNameValue, SectionAbbvrNameColumn)
|
|
rec.SetString(DeptIdValue, DeptIdColumn)
|
|
rec.SetString(DeptAbbvrValue, DeptAbbvrColumn)
|
|
rec.SetString(RankIdValue, RankIdColumn)
|
|
rec.SetString(PersonalNameValue, PersonalNameColumn)
|
|
rec.SetString(PersonalLastNameValue, PersonalLastNameColumn)
|
|
rec.SetString(BirthDateValue, BirthDateColumn)
|
|
rec.SetString(RetireValue, RetireColumn)
|
|
rec.SetString(CommissionValue, CommissionColumn)
|
|
rec.SetString(BornValue, BornColumn)
|
|
rec.SetString(DateRankValue, DateRankColumn)
|
|
rec.SetString(DatePrevRankValue, DatePrevRankColumn)
|
|
rec.SetString(BProvinceValue, BProvinceColumn)
|
|
rec.SetString(SAmoutValue, SAmoutColumn)
|
|
rec.SetString(CEduValue, CEduColumn)
|
|
rec.SetString(MobilePhoneValue, MobilePhoneColumn)
|
|
rec.SetString(pictureValue, pictureColumn)
|
|
rec.SetString(RankDateValue, RankDateColumn)
|
|
rec.SetString(TitleValue, TitleColumn)
|
|
rec.SetString(RankLevelValue, RankLevelColumn)
|
|
rec.SetString(RankAndNameValue, RankAndNameColumn)
|
|
|
|
|
|
rec.Create() 'update the DB so any DB-initialized fields (like autoincrement IDs) can be initialized
|
|
|
|
Dim key As KeyValue = rec.GetID()
|
|
Return key
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method deletes a specified record
|
|
''' </summary>
|
|
''' <param name="kv">Keyvalue of the record to be deleted.</param>
|
|
Public Shared Sub DeleteRecord(ByVal kv As KeyValue)
|
|
View_PersonsView.Instance.DeleteOneRecord(kv)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' This method checks if record exist in the database using the keyvalue provided.
|
|
''' </summary>
|
|
''' <param name="kv">Key value of the record.</param>
|
|
Public Shared Function DoesRecordExist(ByVal kv As KeyValue) As Boolean
|
|
Dim recordExist As Boolean = True
|
|
Try
|
|
View_PersonsView.GetRecord(kv, False)
|
|
Catch ex As Exception
|
|
recordExist = False
|
|
End Try
|
|
Return recordExist
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method returns all the primary columns in the table.
|
|
''' </summary>
|
|
Public Shared Function GetPrimaryKeyColumns() As ColumnList
|
|
If (Not IsNothing(View_PersonsView.Instance.TableDefinition.PrimaryKey)) Then
|
|
Return View_PersonsView.Instance.TableDefinition.PrimaryKey.Columns
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method takes a key and returns a keyvalue.
|
|
''' </summary>
|
|
''' <param name="key">key could be array of primary key values in case of composite primary key or a string containing single primary key value in case of non-composite primary key.</param>
|
|
Public Shared Function GetKeyValue(ByVal key As Object) As KeyValue
|
|
Dim kv As KeyValue = Nothing
|
|
|
|
If (Not (IsNothing(View_PersonsView.Instance.TableDefinition.PrimaryKey))) Then
|
|
|
|
Dim isCompositePrimaryKey As Boolean = False
|
|
isCompositePrimaryKey = View_PersonsView.Instance.TableDefinition.PrimaryKey.IsCompositeKey
|
|
|
|
If ((isCompositePrimaryKey) AndAlso (key.GetType.IsArray())) Then
|
|
|
|
' If the key is composite, then construct a key value.
|
|
kv = New KeyValue
|
|
Dim fullKeyString As String = ""
|
|
Dim keyArray As Array = CType(key, Array)
|
|
If (Not IsNothing(keyArray)) Then
|
|
Dim length As Integer = keyArray.Length
|
|
Dim pkColumns As ColumnList = View_PersonsView.Instance.TableDefinition.PrimaryKey.Columns
|
|
Dim pkColumn As BaseColumn
|
|
Dim index As Integer = 0
|
|
For Each pkColumn In pkColumns
|
|
Dim keyString As String = CType(keyArray.GetValue(index), String)
|
|
If (View_PersonsView.Instance.TableDefinition.TableType = BaseClasses.Data.TableDefinition.TableTypes.Virtual) Then
|
|
kv.AddElement(pkColumn.UniqueName, keyString)
|
|
Else
|
|
kv.AddElement(pkColumn.InternalName, keyString)
|
|
End If
|
|
index = index + 1
|
|
Next pkColumn
|
|
End If
|
|
|
|
Else
|
|
' If the key is not composite, then get the key value.
|
|
kv = View_PersonsView.Instance.TableDefinition.PrimaryKey.ParseValue(CType(key, String))
|
|
End If
|
|
End If
|
|
Return kv
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' This method takes a record and a Column and returns an evaluated value of DFKA formula.
|
|
''' </summary>
|
|
Public Shared Function GetDFKA(ByVal rec As BaseRecord, ByVal col As BaseColumn) As String
|
|
Dim fkColumn As ForeignKey = View_PersonsView.Instance.TableDefinition.GetExpandableNonCompositeForeignKey(col)
|
|
If fkColumn Is Nothing Then
|
|
Return Nothing
|
|
End If
|
|
Dim _DFKA As String = fkColumn.PrimaryKeyDisplayColumns
|
|
If (_DFKA.Trim().StartsWith("=")) Then
|
|
' if the formula is in the format of "= <Primary table>.<Field name>, then pull out the data from the rec object instead of doing formula evaluation
|
|
Dim tableCodeName As String = fkColumn.PrimaryKeyTableDefinition.TableCodeName
|
|
Dim column As String = _DFKA.Trim("="c).Trim()
|
|
If column.StartsWith(tableCodeName & ".", StringComparison.InvariantCultureIgnoreCase) Then
|
|
column = column.Substring(tableCodeName.Length + 1)
|
|
End If
|
|
|
|
For Each c As BaseColumn In fkColumn.PrimaryKeyTableDefinition.Columns
|
|
If column = c.CodeName Then
|
|
Return rec.Format(c)
|
|
End If
|
|
Next
|
|
Dim tableName As String = fkColumn.PrimaryKeyTableDefinition.TableCodeName
|
|
Return EvaluateFormula(_DFKA, rec, Nothing, tableName)
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' This method takes a keyValue and a Column and returns an evaluated value of DFKA formula.
|
|
''' </summary>
|
|
Public Shared Function GetDFKA(ByVal keyValue As String, ByVal col As BaseColumn, ByVal formatPattern as String) As String
|
|
If keyValue Is Nothing Then
|
|
Return Nothing
|
|
End If
|
|
Dim fkColumn As ForeignKey = View_PersonsView.Instance.TableDefinition.GetExpandableNonCompositeForeignKey(col)
|
|
If fkColumn Is Nothing Then
|
|
Return Nothing
|
|
End If
|
|
Dim _DFKA As String = fkColumn.PrimaryKeyDisplayColumns
|
|
If (_DFKA.Trim().StartsWith("=")) Then
|
|
Dim tableName As String = fkColumn.PrimaryKeyTableDefinition.TableCodeName
|
|
Dim t As PrimaryKeyTable = CType(DatabaseObjects.GetTableObject(tableName), PrimaryKeyTable)
|
|
Dim rec As BaseRecord = Nothing
|
|
If Not t Is Nothing Then
|
|
Try
|
|
rec = CType(t.GetRecordData(keyValue, False), BaseRecord)
|
|
Catch
|
|
rec = Nothing
|
|
End Try
|
|
End If
|
|
If rec Is Nothing Then
|
|
Return ""
|
|
End If
|
|
|
|
' if the formula is in the format of "= <Primary table>.<Field name>, then pull out the data from the rec object instead of doing formula evaluation
|
|
Dim tableCodeName As String = fkColumn.PrimaryKeyTableDefinition.TableCodeName
|
|
Dim column As String = _DFKA.Trim("="c).Trim()
|
|
If column.StartsWith(tableCodeName & ".", StringComparison.InvariantCultureIgnoreCase) Then
|
|
column = column.Substring(tableCodeName.Length + 1)
|
|
End If
|
|
|
|
For Each c As BaseColumn In fkColumn.PrimaryKeyTableDefinition.Columns
|
|
If column = c.CodeName Then
|
|
Return rec.Format(c)
|
|
End If
|
|
Next
|
|
Return EvaluateFormula(_DFKA, rec, Nothing, tableName)
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Evaluates the formula
|
|
''' </summary>
|
|
Public Shared Function EvaluateFormula(ByVal formula As String, Optional ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord = Nothing, Optional ByVal format As String = Nothing, Optional ByVal name As String = "") As String
|
|
Dim e As BaseFormulaEvaluator = New BaseFormulaEvaluator()
|
|
If Not dataSourceForEvaluate Is Nothing Then
|
|
e.Evaluator.Variables.Add(name, dataSourceForEvaluate)
|
|
end if
|
|
e.DataSource = dataSourceForEvaluate
|
|
|
|
Dim resultObj As Object = e.Evaluate(formula)
|
|
If resultObj Is Nothing Then
|
|
Return ""
|
|
End If
|
|
If Not String.IsNullOrEmpty(format) Then
|
|
Return BaseFormulaUtils.Format(resultObj, format)
|
|
Else
|
|
Return resultObj.ToString()
|
|
End If
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
End Namespace
|