'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On '''

'''Represents a strongly typed in-memory cache of data. '''

_ Partial Public Class DBCW_Stammdaten Inherits Global.System.Data.DataSet Private tableTBCW_PROFILES As TBCW_PROFILESDataTable Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) End If If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH"))) End If If (Not (ds.Tables("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH"))) End If If (Not (ds.Tables("TBLOCAL_SEARCH_POSITION")) Is Nothing) Then MyBase.Tables.Add(New TBLOCAL_SEARCH_POSITIONDataTable(ds.Tables("TBLOCAL_SEARCH_POSITION"))) End If If (Not (ds.Tables("TBLOCAL_PROFILE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBLOCAL_PROFILE_TYPEDataTable(ds.Tables("TBLOCAL_PROFILE_TYPE"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If Me.GetSerializationData(info, context) Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub _ Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable Get Return Me.tableTBCW_PROFILES End Get End Property _ Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable Get Return Me.tableTBCW_PROF_DOC_SEARCH End Get End Property _ Public ReadOnly Property TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable Get Return Me.tableTBCW_PROF_DATA_SEARCH End Get End Property _ Public ReadOnly Property TBLOCAL_SEARCH_POSITION() As TBLOCAL_SEARCH_POSITIONDataTable Get Return Me.tableTBLOCAL_SEARCH_POSITION End Get End Property _ Public ReadOnly Property TBLOCAL_PROFILE_TYPE() As TBLOCAL_PROFILE_TYPEDataTable Get Return Me.tableTBLOCAL_PROFILE_TYPE End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DBCW_Stammdaten = CType(MyBase.Clone,DBCW_Stammdaten) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) End If If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH"))) End If If (Not (ds.Tables("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH"))) End If If (Not (ds.Tables("TBLOCAL_SEARCH_POSITION")) Is Nothing) Then MyBase.Tables.Add(New TBLOCAL_SEARCH_POSITIONDataTable(ds.Tables("TBLOCAL_SEARCH_POSITION"))) End If If (Not (ds.Tables("TBLOCAL_PROFILE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBLOCAL_PROFILE_TYPEDataTable(ds.Tables("TBLOCAL_PROFILE_TYPE"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXml(reader) Me.InitVars End If End Sub _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable) If (initTable = true) Then If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then Me.tableTBCW_PROFILES.InitVars End If End If Me.tableTBCW_PROF_DOC_SEARCH = CType(MyBase.Tables("TBCW_PROF_DOC_SEARCH"),TBCW_PROF_DOC_SEARCHDataTable) If (initTable = true) Then If (Not (Me.tableTBCW_PROF_DOC_SEARCH) Is Nothing) Then Me.tableTBCW_PROF_DOC_SEARCH.InitVars End If End If Me.tableTBCW_PROF_DATA_SEARCH = CType(MyBase.Tables("TBCW_PROF_DATA_SEARCH"),TBCW_PROF_DATA_SEARCHDataTable) If (initTable = true) Then If (Not (Me.tableTBCW_PROF_DATA_SEARCH) Is Nothing) Then Me.tableTBCW_PROF_DATA_SEARCH.InitVars End If End If Me.tableTBLOCAL_SEARCH_POSITION = CType(MyBase.Tables("TBLOCAL_SEARCH_POSITION"),TBLOCAL_SEARCH_POSITIONDataTable) If (initTable = true) Then If (Not (Me.tableTBLOCAL_SEARCH_POSITION) Is Nothing) Then Me.tableTBLOCAL_SEARCH_POSITION.InitVars End If End If Me.tableTBLOCAL_PROFILE_TYPE = CType(MyBase.Tables("TBLOCAL_PROFILE_TYPE"),TBLOCAL_PROFILE_TYPEDataTable) If (initTable = true) Then If (Not (Me.tableTBLOCAL_PROFILE_TYPE) Is Nothing) Then Me.tableTBLOCAL_PROFILE_TYPE.InitVars End If End If Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") End Sub _ Private Sub InitClass() Me.DataSetName = "DBCW_Stammdaten" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DBCW_Stammdaten.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBCW_PROFILES = New TBCW_PROFILESDataTable() MyBase.Tables.Add(Me.tableTBCW_PROFILES) Me.tableTBCW_PROF_DOC_SEARCH = New TBCW_PROF_DOC_SEARCHDataTable() MyBase.Tables.Add(Me.tableTBCW_PROF_DOC_SEARCH) Me.tableTBCW_PROF_DATA_SEARCH = New TBCW_PROF_DATA_SEARCHDataTable() MyBase.Tables.Add(Me.tableTBCW_PROF_DATA_SEARCH) Me.tableTBLOCAL_SEARCH_POSITION = New TBLOCAL_SEARCH_POSITIONDataTable() MyBase.Tables.Add(Me.tableTBLOCAL_SEARCH_POSITION) Me.tableTBLOCAL_PROFILE_TYPE = New TBLOCAL_PROFILE_TYPEDataTable() MyBase.Tables.Add(Me.tableTBLOCAL_PROFILE_TYPE) Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF) End Sub _ Private Function ShouldSerializeTBCW_PROFILES() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean Return false End Function _ Private Function ShouldSerializeTBLOCAL_SEARCH_POSITION() As Boolean Return false End Function _ Private Function ShouldSerializeTBLOCAL_PROFILE_TYPE() As Boolean Return false End Function _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars End If End Sub _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any.Namespace = ds.Namespace sequence.Items.Add(any) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function _ Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) _ Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent) _ Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent) _ Public Delegate Sub TBLOCAL_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_SEARCH_POSITIONRowChangeEvent) _ Public Delegate Sub TBLOCAL_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_PROFILE_TYPERowChangeEvent) '''

'''Represents the strongly named DataTable class. '''

_ Partial Public Class TBCW_PROFILESDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILESRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnPROFILE_TYPE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROFILES" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_EXPRESSION End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_TYPE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILESRow Get Return CType(Me.Rows(index),TBCW_PROFILESRow) End Get End Property _ Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler _ Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler _ Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler _ Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As TBCW_PROFILESRow Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE} rowTBCW_PROFILESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_PROFILESRow) Return rowTBCW_PROFILESRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROFILESDataTable = CType(MyBase.Clone,TBCW_PROFILESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROFILESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_TYPE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 Me.columnCOMMENT.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 Me.columnREGEX_EXPRESSION.AllowDBNull = false Me.columnREGEX_EXPRESSION.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnACTIVE.AllowDBNull = false Me.columnPROFILE_TYPE.AllowDBNull = false End Sub _ Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow Return CType(Me.NewRow,TBCW_PROFILESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROFILESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROFILESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_PROFILESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class '''

'''Represents the strongly named DataTable class. '''

_ Partial Public Class TBCW_PROF_DOC_SEARCHDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnCONN_ID As Global.System.Data.DataColumn Private columnSQL_COMMAND As Global.System.Data.DataColumn Private columnTAB_INDEX As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnTAB_TITLE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCOUNT_COMMAND As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_DOC_SEARCH" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONN_ID End Get End Property _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property _ Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_INDEX End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_TITLE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOUNT_COMMAND End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow Get Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) End Get End Property _ Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) End If rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) Return rowTBCW_PROF_DOC_SEARCHRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_DOC_SEARCHDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnCONN_ID = MyBase.Columns("CONN_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONN_ID) Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_COMMAND) Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTAB_INDEX) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTAB_TITLE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOUNT_COMMAND) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnPROFILE_ID.AllowDBNull = false Me.columnCONN_ID.AllowDBNull = false Me.columnSQL_COMMAND.AllowDBNull = false Me.columnSQL_COMMAND.MaxLength = 2147483647 Me.columnTAB_INDEX.AllowDBNull = false Me.columnACTIVE.AllowDBNull = false Me.columnTAB_TITLE.AllowDBNull = false Me.columnTAB_TITLE.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOUNT_COMMAND.AllowDBNull = false Me.columnCOUNT_COMMAND.MaxLength = 2147483647 End Sub _ Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_DOC_SEARCHRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_DOC_SEARCHRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_PROF_DOC_SEARCHDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class '''

'''Represents the strongly named DataTable class. '''

_ Partial Public Class TBCW_PROF_DATA_SEARCHDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnCONN_ID As Global.System.Data.DataColumn Private columnSQL_COMMAND As Global.System.Data.DataColumn Private columnTAB_INDEX As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnTAB_TITLE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCOUNT_COMMAND As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_DATA_SEARCH" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONN_ID End Get End Property _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property _ Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_INDEX End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_TITLE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOUNT_COMMAND End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow Get Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) End Get End Property _ Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) End If rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) Return rowTBCW_PROF_DATA_SEARCHRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_DATA_SEARCHDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnCONN_ID = MyBase.Columns("CONN_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONN_ID) Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_COMMAND) Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTAB_INDEX) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTAB_TITLE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOUNT_COMMAND) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnPROFILE_ID.AllowDBNull = false Me.columnCONN_ID.AllowDBNull = false Me.columnSQL_COMMAND.AllowDBNull = false Me.columnSQL_COMMAND.MaxLength = 2147483647 Me.columnTAB_INDEX.AllowDBNull = false Me.columnACTIVE.AllowDBNull = false Me.columnTAB_TITLE.AllowDBNull = false Me.columnTAB_TITLE.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOUNT_COMMAND.AllowDBNull = false Me.columnCOUNT_COMMAND.MaxLength = 2147483647 End Sub _ Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_DATA_SEARCHRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_DATA_SEARCHRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class '''

'''Represents the strongly named DataTable class. '''

_ Partial Public Class TBLOCAL_SEARCH_POSITIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_SEARCH_POSITIONRow) Private columnID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBLOCAL_SEARCH_POSITION" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_SEARCH_POSITIONRow Get Return CType(Me.Rows(index),TBLOCAL_SEARCH_POSITIONRow) End Get End Property _ Public Event TBLOCAL_SEARCH_POSITIONRowChanging As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler _ Public Event TBLOCAL_SEARCH_POSITIONRowChanged As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler _ Public Event TBLOCAL_SEARCH_POSITIONRowDeleting As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler _ Public Event TBLOCAL_SEARCH_POSITIONRowDeleted As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler _ Public Overloads Sub AddTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBLOCAL_SEARCH_POSITIONRow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_SEARCH_POSITIONRow Dim rowTBLOCAL_SEARCH_POSITIONRow As TBLOCAL_SEARCH_POSITIONRow = CType(Me.NewRow,TBLOCAL_SEARCH_POSITIONRow) Dim columnValuesArray() As Object = New Object() {ID, NAME} rowTBLOCAL_SEARCH_POSITIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBLOCAL_SEARCH_POSITIONRow) Return rowTBLOCAL_SEARCH_POSITIONRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBLOCAL_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBLOCAL_SEARCH_POSITIONDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_SEARCH_POSITIONDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) End Sub _ Public Function NewTBLOCAL_SEARCH_POSITIONRow() As TBLOCAL_SEARCH_POSITIONRow Return CType(Me.NewRow,TBLOCAL_SEARCH_POSITIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_SEARCH_POSITIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_SEARCH_POSITIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanged(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanging(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleted(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleting(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBLOCAL_SEARCH_POSITIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class '''

'''Represents the strongly named DataTable class. '''

_ Partial Public Class TBLOCAL_PROFILE_TYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_PROFILE_TYPERow) Private columnID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBLOCAL_PROFILE_TYPE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_PROFILE_TYPERow Get Return CType(Me.Rows(index),TBLOCAL_PROFILE_TYPERow) End Get End Property _ Public Event TBLOCAL_PROFILE_TYPERowChanging As TBLOCAL_PROFILE_TYPERowChangeEventHandler _ Public Event TBLOCAL_PROFILE_TYPERowChanged As TBLOCAL_PROFILE_TYPERowChangeEventHandler _ Public Event TBLOCAL_PROFILE_TYPERowDeleting As TBLOCAL_PROFILE_TYPERowChangeEventHandler _ Public Event TBLOCAL_PROFILE_TYPERowDeleted As TBLOCAL_PROFILE_TYPERowChangeEventHandler _ Public Overloads Sub AddTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBLOCAL_PROFILE_TYPERow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_PROFILE_TYPERow Dim rowTBLOCAL_PROFILE_TYPERow As TBLOCAL_PROFILE_TYPERow = CType(Me.NewRow,TBLOCAL_PROFILE_TYPERow) Dim columnValuesArray() As Object = New Object() {ID, NAME} rowTBLOCAL_PROFILE_TYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBLOCAL_PROFILE_TYPERow) Return rowTBLOCAL_PROFILE_TYPERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBLOCAL_PROFILE_TYPEDataTable = CType(MyBase.Clone,TBLOCAL_PROFILE_TYPEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_PROFILE_TYPEDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) End Sub _ Public Function NewTBLOCAL_PROFILE_TYPERow() As TBLOCAL_PROFILE_TYPERow Return CType(Me.NewRow,TBLOCAL_PROFILE_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_PROFILE_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_PROFILE_TYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowChangedEvent) Is Nothing) Then RaiseEvent TBLOCAL_PROFILE_TYPERowChanged(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowChangingEvent) Is Nothing) Then RaiseEvent TBLOCAL_PROFILE_TYPERowChanging(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletedEvent) Is Nothing) Then RaiseEvent TBLOCAL_PROFILE_TYPERowDeleted(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletingEvent) Is Nothing) Then RaiseEvent TBLOCAL_PROFILE_TYPERowDeleting(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub _ Public Sub RemoveTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBLOCAL_PROFILE_TYPEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class '''

'''Represents strongly named DataRow class. '''

Partial Public Class TBCW_PROFILESRow Inherits Global.System.Data.DataRow Private tableTBCW_PROFILES As TBCW_PROFILESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer) End Get Set Me(Me.tableTBCW_PROFILES.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String) End Get Set Me(Me.tableTBCW_PROFILES.NAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) End Get Set Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value End Set End Property _ Public Property REGEX_EXPRESSION() As String Get Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String) End Get Set Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value End Set End Property _ Public Property PROFILE_TYPE() As Short Get Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) End Get Set Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBCW_PROF_DOC_SEARCHRows() As TBCW_PROF_DOC_SEARCHRow() If (Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Is Nothing) Then Return New TBCW_PROF_DOC_SEARCHRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROF_DOC_SEARCHRow()) End If End Function _ Public Function GetTBCW_PROF_DATA_SEARCHRows() As TBCW_PROF_DATA_SEARCHRow() If (Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Is Nothing) Then Return New TBCW_PROF_DATA_SEARCHRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROF_DATA_SEARCHRow()) End If End Function End Class '''

'''Represents strongly named DataRow class. '''

Partial Public Class TBCW_PROF_DOC_SEARCHRow Inherits Global.System.Data.DataRow Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value End Set End Property _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value End Set End Property _ Public Property CONN_ID() As Byte Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value End Set End Property _ Public Property SQL_COMMAND() As String Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value End Set End Property _ Public Property TAB_INDEX() As Byte Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value End Set End Property _ Public Property TAB_TITLE() As String Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value End Set End Property _ Public Property COUNT_COMMAND() As String Get Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value End Set End Property _ Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class '''

'''Represents strongly named DataRow class. '''

Partial Public Class TBCW_PROF_DATA_SEARCHRow Inherits Global.System.Data.DataRow Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value End Set End Property _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value End Set End Property _ Public Property CONN_ID() As Byte Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value End Set End Property _ Public Property SQL_COMMAND() As String Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value End Set End Property _ Public Property TAB_INDEX() As Byte Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value End Set End Property _ Public Property TAB_TITLE() As String Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value End Set End Property _ Public Property COUNT_COMMAND() As String Get Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String) End Get Set Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value End Set End Property _ Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class '''

'''Represents strongly named DataRow class. '''

Partial Public Class TBLOCAL_SEARCH_POSITIONRow Inherits Global.System.Data.DataRow Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBLOCAL_SEARCH_POSITION = CType(Me.Table,TBLOCAL_SEARCH_POSITIONDataTable) End Sub _ Public Property ID() As String Get Try Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) End Try End Get Set Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) End Try End Get Set Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = value End Set End Property _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class '''

'''Represents strongly named DataRow class. '''

Partial Public Class TBLOCAL_PROFILE_TYPERow Inherits Global.System.Data.DataRow Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBLOCAL_PROFILE_TYPE = CType(Me.Table,TBLOCAL_PROFILE_TYPEDataTable) End Sub _ Public Property ID() As String Get Try Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = value End Set End Property _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class '''