Namespace Persons.Business ''' ''' Contains embedded schema and configuration data that is used by the ''' Persons.StatusTable class ''' to initialize the class's TableDefinition. ''' ''' Public Class StatusDefinition #Region "Definition (XML) for StatusDefinition table" 'Next 93 lines contain Table Definition (XML) for table "StatusDefinition" Private Shared _DefinitionString As String = "" #End Region ''' ''' Gets the embedded schema and configuration data for the ''' ''' class's TableDefinition. ''' ''' This function is only called once at runtime. ''' An XML string. Public Shared Function GetXMLString() As String If _DefinitionString = "" Then Dim tbf As System.Text.StringBuilder = New System.Text.StringBuilder() tbf.Append("") tbf.Append( "") tbf.Append( "") tbf.Append( "StatusId") tbf.Append( "Status") tbf.Append( "Number") tbf.Append( "tinyint") tbf.Append( "3.0") tbf.Append( "") tbf.Append( "") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "") tbf.Append( "") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "") tbf.Append( "N") tbf.Append( "%ISD_DEFAULT%") tbf.Append( "") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "Status") tbf.Append( "Status") tbf.Append( "String") tbf.Append( "nvarchar") tbf.Append( "50") tbf.Append( "") tbf.Append( "") tbf.Append( "N") tbf.Append( "N") tbf.Append( "") tbf.Append( "") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "Thai_CI_AS") tbf.Append( "N") tbf.Append( "%ISD_DEFAULT%") tbf.Append( "") tbf.Append( "Y") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "N") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "") tbf.Append( "Status") tbf.Append( "1") tbf.Append( "dbo") tbf.Append( "Status") tbf.Append( "Status_") tbf.Append( "DatabasePersons1") tbf.Append( "RowNum") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "Y") tbf.Append( "BinaryChecksum") tbf.Append( "Persons") tbf.Append("") _DefinitionString = tbf.ToString() End If Return _DefinitionString End Function End Class End Namespace