initial commit

This commit is contained in:
Siwat Sirichai 2025-06-08 16:22:20 +07:00
commit 252dac3143
1516 changed files with 694271 additions and 0 deletions

View file

@ -0,0 +1,126 @@
Namespace Persons.Business
''' <summary>
''' Contains embedded schema and configuration data that is used by the
''' <see cref="ArmyTable">Persons.ArmyTable</see> class
''' to initialize the class's TableDefinition.
''' </summary>
''' <seealso cref="ArmyTable"></seealso>
Public Class ArmyDefinition
#Region "Definition (XML) for ArmyDefinition table"
'Next 93 lines contain Table Definition (XML) for table "ArmyDefinition"
Private Shared _DefinitionString As String = ""
#End Region
''' <summary>
''' Gets the embedded schema and configuration data for the
''' <see cref="ArmyTable"></see>
''' class's TableDefinition.
''' </summary>
''' <remarks>This function is only called once at runtime.</remarks>
''' <returns>An XML string.</returns>
Public Shared Function GetXMLString() As String
If _DefinitionString = "" Then
Dim tbf As System.Text.StringBuilder = New System.Text.StringBuilder()
tbf.Append("<XMLDefinition Generator=""Iron Speed Designer"" Version=""9.2"" Type=""GENERIC"">")
tbf.Append( "<ColumnDefinition>")
tbf.Append( "<Column InternalName=""0"" Priority=""1"" ColumnNum=""0"">")
tbf.Append( "<columnName>ArmyId</columnName>")
tbf.Append( "<columnUIName>Army</columnUIName>")
tbf.Append( "<columnType>Number</columnType>")
tbf.Append( "<columnDBType>tinyint</columnDBType>")
tbf.Append( "<columnLengthSet>3.0</columnLengthSet>")
tbf.Append( "<columnDefault></columnDefault>")
tbf.Append( "<columnDBDefault></columnDBDefault>")
tbf.Append( "<columnIndex>Y</columnIndex>")
tbf.Append( "<columnUnique>Y</columnUnique>")
tbf.Append( "<columnFunction></columnFunction>")
tbf.Append( "<columnDBFormat></columnDBFormat>")
tbf.Append( "<columnPK>Y</columnPK>")
tbf.Append( "<columnPermanent>N</columnPermanent>")
tbf.Append( "<columnComputed>N</columnComputed>")
tbf.Append( "<columnIdentity>N</columnIdentity>")
tbf.Append( "<columnReadOnly>N</columnReadOnly>")
tbf.Append( "<columnRequired>Y</columnRequired>")
tbf.Append( "<columnNotNull>Y</columnNotNull>")
tbf.Append( "<columnCaseSensitive>N</columnCaseSensitive>")
tbf.Append( "<columnCollation></columnCollation>")
tbf.Append( "<columnFullText>N</columnFullText>")
tbf.Append( "<columnVisibleWidth>%ISD_DEFAULT%</columnVisibleWidth>")
tbf.Append( "<columnTableAliasName></columnTableAliasName>")
tbf.Append( "<applyLabelText>Y</applyLabelText>")
tbf.Append( "<applyDFKA>N</applyDFKA>")
tbf.Append( "<applyInitializeInsertingRecord>N</applyInitializeInsertingRecord>")
tbf.Append( "<applyInitializeReadingRecord>N</applyInitializeReadingRecord>")
tbf.Append( "<applyInitializeUpdatingRecord>N</applyInitializeUpdatingRecord>")
tbf.Append( "<applyValidateInsertingRecord>N</applyValidateInsertingRecord>")
tbf.Append( "<applyValidateUpdatingRecord>N</applyValidateUpdatingRecord>")
tbf.Append( "<applyDefaultValue>N</applyDefaultValue>")
tbf.Append( "<insertingRecordFormula></insertingRecordFormula>")
tbf.Append( "<readingRecordFormula></readingRecordFormula>")
tbf.Append( "<updatingRecordFormula></updatingRecordFormula>")
tbf.Append( "<insertingFormula></insertingFormula>")
tbf.Append( "<updatingFormula></updatingFormula>")
tbf.Append( "</Column>")
tbf.Append( "<Column InternalName=""1"" Priority=""2"" ColumnNum=""1"">")
tbf.Append( "<columnName>Army</columnName>")
tbf.Append( "<columnUIName Source=""User"">เหล่าทัพ</columnUIName>")
tbf.Append( "<columnType>String</columnType>")
tbf.Append( "<columnDBType>nvarchar</columnDBType>")
tbf.Append( "<columnLengthSet>50</columnLengthSet>")
tbf.Append( "<columnDefault></columnDefault>")
tbf.Append( "<columnDBDefault></columnDBDefault>")
tbf.Append( "<columnIndex>N</columnIndex>")
tbf.Append( "<columnUnique>N</columnUnique>")
tbf.Append( "<columnFunction></columnFunction>")
tbf.Append( "<columnDBFormat></columnDBFormat>")
tbf.Append( "<columnPK>N</columnPK>")
tbf.Append( "<columnPermanent>N</columnPermanent>")
tbf.Append( "<columnComputed>N</columnComputed>")
tbf.Append( "<columnIdentity>N</columnIdentity>")
tbf.Append( "<columnReadOnly>N</columnReadOnly>")
tbf.Append( "<columnRequired>N</columnRequired>")
tbf.Append( "<columnNotNull>N</columnNotNull>")
tbf.Append( "<columnCaseSensitive Source=""Database"">N</columnCaseSensitive>")
tbf.Append( "<columnCollation>Thai_CI_AS</columnCollation>")
tbf.Append( "<columnFullText>N</columnFullText>")
tbf.Append( "<columnVisibleWidth>%ISD_DEFAULT%</columnVisibleWidth>")
tbf.Append( "<columnTableAliasName></columnTableAliasName>")
tbf.Append( "<applyLabelText>Y</applyLabelText>")
tbf.Append( "<applyDFKA>N</applyDFKA>")
tbf.Append( "<applyInitializeInsertingRecord>N</applyInitializeInsertingRecord>")
tbf.Append( "<applyInitializeReadingRecord>N</applyInitializeReadingRecord>")
tbf.Append( "<applyInitializeUpdatingRecord>N</applyInitializeUpdatingRecord>")
tbf.Append( "<applyValidateInsertingRecord>N</applyValidateInsertingRecord>")
tbf.Append( "<applyValidateUpdatingRecord>N</applyValidateUpdatingRecord>")
tbf.Append( "<applyDefaultValue>N</applyDefaultValue>")
tbf.Append( "<insertingRecordFormula></insertingRecordFormula>")
tbf.Append( "<readingRecordFormula></readingRecordFormula>")
tbf.Append( "<updatingRecordFormula></updatingRecordFormula>")
tbf.Append( "<insertingFormula></insertingFormula>")
tbf.Append( "<updatingFormula></updatingFormula>")
tbf.Append( "</Column>")
tbf.Append( "</ColumnDefinition>")
tbf.Append( "<TableName>Army</TableName>")
tbf.Append( "<Version>1</Version>")
tbf.Append( "<Owner>dbo</Owner>")
tbf.Append( "<TableCodeName>Army</TableCodeName>")
tbf.Append( "<TableAliasName>Army_</TableAliasName>")
tbf.Append( "<ConnectionName>DatabasePersons1</ConnectionName>")
tbf.Append( "<PagingMethod>RowNum</PagingMethod>")
tbf.Append( "<canCreateRecords Source=""Database"">Y</canCreateRecords>")
tbf.Append( "<canEditRecords Source=""Database"">Y</canEditRecords>")
tbf.Append( "<canDeleteRecords Source=""Database"">Y</canDeleteRecords>")
tbf.Append( "<canViewRecords Source=""Database"">Y</canViewRecords>")
tbf.Append( "<ConcurrencyMethod>BinaryChecksum</ConcurrencyMethod>")
tbf.Append( "<AppShortName>Persons</AppShortName>")
tbf.Append("</XMLDefinition>")
_DefinitionString = tbf.ToString()
End If
Return _DefinitionString
End Function
End Class
End Namespace