'------------------------------------------------------------------------------
'
' 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.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
Default Public 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
Default Public 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
Default Public 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
Default Public 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
Try
Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e)
End Try
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 IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn)
End Function
Public Sub SetCOMMENTNull()
Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
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