'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.34209 ' ' Ä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 DD_ECMAdmin Inherits Global.System.Data.DataSet Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable Private tableDT_VORSCHAU As DT_VORSCHAUDataTable Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID 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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) End If If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If If (Not (ds.Tables("VWTEMPQUICKVIEW")) Is Nothing) Then MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW"))) End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) 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 TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable Get Return Me.tableTBPMO_FORM_CONSTRUCTOR End Get End Property _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Get Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL End Get End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable Get Return Me.tableTBDD_CONNECTION End Get End Property _ Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable Get Return Me.tableVWTEMPQUICKVIEW End Get End Property _ Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable Get Return Me.tableDT_VORSCHAU End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set(value As Global.System.Data.SchemaSerializationMode) 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 DD_ECMAdmin = CType(MyBase.Clone, DD_ECMAdmin) 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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) End If If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If If (Not (ds.Tables("VWTEMPQUICKVIEW")) Is Nothing) Then MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW"))) End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) 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.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"), TBPMO_FORM_CONSTRUCTORDataTable) If (initTable = True) Then If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars() End If End If Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"), TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) If (initTable = True) Then If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars() End If End If Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"), TBDD_CONNECTIONDataTable) If (initTable = True) Then If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then Me.tableTBDD_CONNECTION.InitVars() End If End If Me.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"), VWTEMPQUICKVIEWDataTable) If (initTable = True) Then If (Not (Me.tableVWTEMPQUICKVIEW) Is Nothing) Then Me.tableVWTEMPQUICKVIEW.InitVars() End If End If Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"), DT_VORSCHAUDataTable) If (initTable = True) Then If (Not (Me.tableDT_VORSCHAU) Is Nothing) Then Me.tableDT_VORSCHAU.InitVars() End If End If Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") End Sub _ Private Sub InitClass() Me.DataSetName = "DD_ECMAdmin" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_ECMAdmin.xsd" Me.EnforceConstraints = True Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable() MyBase.Tables.Add(Me.tableTBDD_CONNECTION) Me.tableVWTEMPQUICKVIEW = New VWTEMPQUICKVIEWDataTable() MyBase.Tables.Add(Me.tableVWTEMPQUICKVIEW) Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable() MyBase.Tables.Add(Me.tableDT_VORSCHAU) Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) End Sub _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean Return False End Function _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean Return False End Function _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean Return False End Function _ Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean Return False End Function _ Private Function ShouldSerializeDT_VORSCHAU() 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 DD_ECMAdmin = New DD_ECMAdmin() 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 TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) _ Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) _ Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent) _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) '''

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

_ Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnSEQUENCE_MENU 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 columnMENU_IMG As Global.System.Data.DataColumn Private columnSHORT_TITLE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBPMO_FORM_CONSTRUCTOR" 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 FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE End Get End Property _ Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_MENU 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 MENU_IMGColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_IMG End Get End Property _ Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORT_TITLE 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 TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTORRow) End Get End Property _ Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As TBPMO_FORM_CONSTRUCTORRow Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE} rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) Return rowTBPMO_FORM_CONSTRUCTORRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTORRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTORDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTORDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") 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.columnMENU_IMG = MyBase.Columns("MENU_IMG") Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") 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.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE_MENU) 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.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMENU_IMG) Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHORT_TITLE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) Me.columnGUID.AutoIncrement = True Me.columnGUID.AllowDBNull = False Me.columnGUID.ReadOnly = True Me.columnGUID.Unique = True Me.columnFORM_TITLE.MaxLength = 50 Me.columnSEQUENCE_MENU.AllowDBNull = False Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHORT_TITLE.MaxLength = 50 End Sub _ Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTORRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTORRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) 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 DD_ECMAdmin = New DD_ECMAdmin() 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 = "TBPMO_FORM_CONSTRUCTORDataTable" 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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) Private columnGUID As Global.System.Data.DataColumn Private columnCONSTRUCT_ID As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnPARENT_ID As Global.System.Data.DataColumn Private columnLEVEL1_SELECT As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn Private columnSQL_SELECT_EBENE2 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 columnCOLUMN_NAME1 As Global.System.Data.DataColumn Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn Private columnLOAD_DIRECT As Global.System.Data.DataColumn Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" 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 CONSTRUCT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONSTRUCT_ID End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ID End Get End Property _ Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL1_SELECT End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE1 End Get End Property _ Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE2 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 COLUMN_NAME1Column() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_NAME1 End Get End Property _ Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_NAME2 End Get End Property _ Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDREAM_SEARCH End Get End Property _ Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN1 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN2 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN3 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN4 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN5 End Get End Property _ Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_DIRECT End Get End Property _ Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_QUICK_VIEW 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 TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Get End Property _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ ByVal FORM_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ ByVal SEARCH_PATTERN1 As String, _ ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String, _ ByVal LOAD_DIRECT As Boolean, _ ByVal SQL_QUICK_VIEW As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW} If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) End If rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") 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.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") 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.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONSTRUCT_ID) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_ID) Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLEVEL1_SELECT) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) 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.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLUMN_NAME1) Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLUMN_NAME2) Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) Me.columnLOAD_DIRECT = New Global.System.Data.DataColumn("LOAD_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOAD_DIRECT) Me.columnSQL_QUICK_VIEW = New Global.System.Data.DataColumn("SQL_QUICK_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_QUICK_VIEW) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) Me.columnGUID.AutoIncrement = True Me.columnGUID.AllowDBNull = False Me.columnGUID.ReadOnly = True Me.columnGUID.Unique = True Me.columnCONSTRUCT_ID.AllowDBNull = False Me.columnFORM_ID.AllowDBNull = False Me.columnPARENT_ID.AllowDBNull = False Me.columnLEVEL1_SELECT.AllowDBNull = False Me.columnSEQUENCE.AllowDBNull = False Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 Me.columnSQL_SELECT_EBENE2.AllowDBNull = False Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = False Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOLUMN_NAME1.AllowDBNull = False Me.columnCOLUMN_NAME1.MaxLength = 100 Me.columnCOLUMN_NAME2.AllowDBNull = False Me.columnCOLUMN_NAME2.MaxLength = 100 Me.columnWINDREAM_SEARCH.MaxLength = 300 Me.columnSEARCH_PATTERN1.MaxLength = 50 Me.columnSEARCH_PATTERN2.MaxLength = 50 Me.columnSEARCH_PATTERN3.MaxLength = 50 Me.columnSEARCH_PATTERN4.MaxLength = 50 Me.columnSEARCH_PATTERN5.MaxLength = 50 Me.columnLOAD_DIRECT.AllowDBNull = False Me.columnSQL_QUICK_VIEW.AllowDBNull = False Me.columnSQL_QUICK_VIEW.MaxLength = 2147483647 End Sub _ Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) 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 DD_ECMAdmin = New DD_ECMAdmin() 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 = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" 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 TBDD_CONNECTIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) Private columnGUID As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnSQL_PROVIDER As Global.System.Data.DataColumn Private columnSERVER As Global.System.Data.DataColumn Private columnDATENBANK As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnPASSWORD As Global.System.Data.DataColumn Private columnBEMERKUNG As Global.System.Data.DataColumn Private columnAKTIV As Global.System.Data.DataColumn Private columnERSTELLTWER As Global.System.Data.DataColumn Private columnERSTELLTWANN As Global.System.Data.DataColumn Private columnGEANDERTWER As Global.System.Data.DataColumn Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBDD_CONNECTION" 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 BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG End Get End Property _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD End Get End Property _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG End Get End Property _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV End Get End Property _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER End Get End Property _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN End Get End Property _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER End Get End Property _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN 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 TBDD_CONNECTIONRow Get Return CType(Me.Rows(index), TBDD_CONNECTIONRow) End Get End Property _ Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow, TBDD_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow End Function _ Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_CONNECTIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone, TBDD_CONNECTIONDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") Me.columnSERVER = MyBase.Columns("SERVER") Me.columnDATENBANK = MyBase.Columns("DATENBANK") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnPASSWORD = MyBase.Columns("PASSWORD") Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") Me.columnAKTIV = MyBase.Columns("AKTIV") Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_PROVIDER) Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSERVER) Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATENBANK) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPASSWORD) Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEMERKUNG) Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTIV) Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERSTELLTWER) Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERSTELLTWANN) Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEANDERTWER) Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEAENDERTWANN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) Me.columnGUID.AutoIncrement = True Me.columnGUID.AllowDBNull = False Me.columnGUID.ReadOnly = True Me.columnGUID.Unique = True Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 Me.columnDATENBANK.MaxLength = 100 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnBEMERKUNG.MaxLength = 400 Me.columnAKTIV.AllowDBNull = False Me.columnAKTIV.DefaultValue = CType(True, Boolean) Me.columnERSTELLTWER.AllowDBNull = False Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub _ Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Return CType(Me.NewRow, TBDD_CONNECTIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CONNECTIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) 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 DD_ECMAdmin = New DD_ECMAdmin() 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 = "TBDD_CONNECTIONDataTable" 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 VWTEMPQUICKVIEWDataTable Inherits Global.System.Data.TypedTableBase(Of VWTEMPQUICKVIEWRow) Private _columnRecord_ID As Global.System.Data.DataColumn Private columnAktenzeichen As Global.System.Data.DataColumn Private _columnWiedergabe_der_Marke__Bild_ As Global.System.Data.DataColumn Private columnTag_der_Eintragung_im_Register As Global.System.Data.DataColumn Private columnAktenzustand As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "VWTEMPQUICKVIEW" 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 _Record_IDColumn() As Global.System.Data.DataColumn Get Return Me._columnRecord_ID End Get End Property _ Public ReadOnly Property AktenzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnAktenzeichen End Get End Property _ Public ReadOnly Property _Wiedergabe_der_Marke__Bild_Column() As Global.System.Data.DataColumn Get Return Me._columnWiedergabe_der_Marke__Bild_ End Get End Property _ Public ReadOnly Property Tag_der_Eintragung_im_RegisterColumn() As Global.System.Data.DataColumn Get Return Me.columnTag_der_Eintragung_im_Register End Get End Property _ Public ReadOnly Property AktenzustandColumn() As Global.System.Data.DataColumn Get Return Me.columnAktenzustand 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 VWTEMPQUICKVIEWRow Get Return CType(Me.Rows(index), VWTEMPQUICKVIEWRow) End Get End Property _ Public Event VWTEMPQUICKVIEWRowChanging As VWTEMPQUICKVIEWRowChangeEventHandler _ Public Event VWTEMPQUICKVIEWRowChanged As VWTEMPQUICKVIEWRowChangeEventHandler _ Public Event VWTEMPQUICKVIEWRowDeleting As VWTEMPQUICKVIEWRowChangeEventHandler _ Public Event VWTEMPQUICKVIEWRowDeleted As VWTEMPQUICKVIEWRowChangeEventHandler _ Public Overloads Sub AddVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWTEMPQUICKVIEWRow(ByVal _Record_ID As Integer, ByVal Aktenzeichen As String, ByVal _Wiedergabe_der_Marke__Bild_() As Byte, ByVal Tag_der_Eintragung_im_Register As String, ByVal Aktenzustand As String) As VWTEMPQUICKVIEWRow Dim rowVWTEMPQUICKVIEWRow As VWTEMPQUICKVIEWRow = CType(Me.NewRow, VWTEMPQUICKVIEWRow) Dim columnValuesArray() As Object = New Object() {_Record_ID, Aktenzeichen, _Wiedergabe_der_Marke__Bild_, Tag_der_Eintragung_im_Register, Aktenzustand} rowVWTEMPQUICKVIEWRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWTEMPQUICKVIEWRow) Return rowVWTEMPQUICKVIEWRow End Function _ Public Function FindBy_Record_ID(ByVal _Record_ID As Integer) As VWTEMPQUICKVIEWRow Return CType(Me.Rows.Find(New Object() {_Record_ID}), VWTEMPQUICKVIEWRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone, VWTEMPQUICKVIEWDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWTEMPQUICKVIEWDataTable() End Function _ Friend Sub InitVars() Me._columnRecord_ID = MyBase.Columns("Record-ID") Me.columnAktenzeichen = MyBase.Columns("Aktenzeichen") Me._columnWiedergabe_der_Marke__Bild_ = MyBase.Columns("Wiedergabe der Marke (Bild)") Me.columnTag_der_Eintragung_im_Register = MyBase.Columns("Tag der Eintragung im Register") Me.columnAktenzustand = MyBase.Columns("Aktenzustand") End Sub _ Private Sub InitClass() Me._columnRecord_ID = New Global.System.Data.DataColumn("Record-ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) Me._columnRecord_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnRecord_ID") Me._columnRecord_ID.ExtendedProperties.Add("Generator_UserColumnName", "Record-ID") MyBase.Columns.Add(Me._columnRecord_ID) Me.columnAktenzeichen = New Global.System.Data.DataColumn("Aktenzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAktenzeichen) Me._columnWiedergabe_der_Marke__Bild_ = New Global.System.Data.DataColumn("Wiedergabe der Marke (Bild)", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) Me._columnWiedergabe_der_Marke__Bild_.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnWiedergabe_der_Marke__Bild_") Me._columnWiedergabe_der_Marke__Bild_.ExtendedProperties.Add("Generator_UserColumnName", "Wiedergabe der Marke (Bild)") MyBase.Columns.Add(Me._columnWiedergabe_der_Marke__Bild_) Me.columnTag_der_Eintragung_im_Register = New Global.System.Data.DataColumn("Tag der Eintragung im Register", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTag_der_Eintragung_im_Register) Me.columnAktenzustand = New Global.System.Data.DataColumn("Aktenzustand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAktenzustand) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me._columnRecord_ID}, True)) Me._columnRecord_ID.AllowDBNull = False Me._columnRecord_ID.Unique = True Me.columnAktenzeichen.ReadOnly = True Me.columnAktenzeichen.MaxLength = 2147483647 Me._columnWiedergabe_der_Marke__Bild_.ReadOnly = True Me.columnTag_der_Eintragung_im_Register.ReadOnly = True Me.columnTag_der_Eintragung_im_Register.MaxLength = 2147483647 Me.columnAktenzustand.ReadOnly = True Me.columnAktenzustand.MaxLength = 2147483647 End Sub _ Public Function NewVWTEMPQUICKVIEWRow() As VWTEMPQUICKVIEWRow Return CType(Me.NewRow, VWTEMPQUICKVIEWRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWTEMPQUICKVIEWRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWTEMPQUICKVIEWRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWTEMPQUICKVIEWRowChangedEvent) Is Nothing) Then RaiseEvent VWTEMPQUICKVIEWRowChanged(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWTEMPQUICKVIEWRowChangingEvent) Is Nothing) Then RaiseEvent VWTEMPQUICKVIEWRowChanging(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWTEMPQUICKVIEWRowDeletedEvent) Is Nothing) Then RaiseEvent VWTEMPQUICKVIEWRowDeleted(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWTEMPQUICKVIEWRowDeletingEvent) Is Nothing) Then RaiseEvent VWTEMPQUICKVIEWRowDeleting(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub _ Public Sub RemoveVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow) 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 DD_ECMAdmin = New DD_ECMAdmin() 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 = "VWTEMPQUICKVIEWDataTable" 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 DT_VORSCHAUDataTable Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) Private columnVALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "DT_VORSCHAU" 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 VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE 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 DT_VORSCHAURow Get Return CType(Me.Rows(index), DT_VORSCHAURow) End Get End Property _ Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler _ Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler _ Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler _ Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler _ Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow, DT_VORSCHAURow) Dim columnValuesArray() As Object = New Object() {VALUE} rowDT_VORSCHAURow.ItemArray = columnValuesArray Me.Rows.Add(rowDT_VORSCHAURow) Return rowDT_VORSCHAURow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone, DT_VORSCHAUDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New DT_VORSCHAUDataTable() End Function _ Friend Sub InitVars() Me.columnVALUE = MyBase.Columns("VALUE") End Sub _ Private Sub InitClass() Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) End Sub _ Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow Return CType(Me.NewRow, DT_VORSCHAURow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New DT_VORSCHAURow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(DT_VORSCHAURow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) End If End Sub _ Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) 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 DD_ECMAdmin = New DD_ECMAdmin() 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 = "DT_VORSCHAUDataTable" 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 TBPMO_FORM_CONSTRUCTORRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table, TBPMO_FORM_CONSTRUCTORDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value End Set End Property _ Public Property SEQUENCE_MENU() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value End Set End Property _ Public Property MENU_IMG() As Byte() Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn), Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set(value As Byte()) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value End Set End Property _ Public Property SHORT_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value End Set End Property _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) End Function _ Public Sub SetFORM_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMENU_IMGNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) End Function _ Public Sub SetMENU_IMGNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSHORT_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) End Function _ Public Sub SetSHORT_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTOR_DETAILRow()) End If End Function End Class '''

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

Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value End Set End Property _ Public Property CONSTRUCT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value End Set End Property _ Public Property PARENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value End Set End Property _ Public Property LEVEL1_SELECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn), Boolean) End Get Set(value As Boolean) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value End Set End Property _ Public Property SQL_SELECT_EBENE1() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is" & _ "t DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value End Set End Property _ Public Property SQL_SELECT_EBENE2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull" & _ ".", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn), Date) End Get Set(value As Date) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu" & _ "ll.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN" & _ "ull.", e) End Try End Get Set(value As Date) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value End Set End Property _ Public Property COLUMN_NAME1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value End Set End Property _ Public Property COLUMN_NAME2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value End Set End Property _ Public Property WINDREAM_SEARCH() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ "DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value End Set End Property _ Public Property SEARCH_PATTERN1() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ "DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value End Set End Property _ Public Property SEARCH_PATTERN2() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ "DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value End Set End Property _ Public Property SEARCH_PATTERN3() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ "DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value End Set End Property _ Public Property SEARCH_PATTERN4() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ "DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value End Set End Property _ Public Property SEARCH_PATTERN5() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ "DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value End Set End Property _ Public Property LOAD_DIRECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn), Boolean) End Get Set(value As Boolean) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value End Set End Property _ Public Property SQL_QUICK_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) End Get Set(value As TBPMO_FORM_CONSTRUCTORRow) Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) End Set End Property _ Public Function IsSQL_SELECT_EBENE1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) End Function _ Public Sub SetSQL_SELECT_EBENE1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWINDREAM_SEARCHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) End Function _ Public Sub SetWINDREAM_SEARCHNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) End Function _ Public Sub SetSEARCH_PATTERN1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) End Function _ Public Sub SetSEARCH_PATTERN2Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN3Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) End Function _ Public Sub SetSEARCH_PATTERN3Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN4Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) End Function _ Public Sub SetSEARCH_PATTERN4Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN5Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) End Function _ Public Sub SetSEARCH_PATTERN5Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull End Sub End Class '''

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

Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CONNECTION = CType(Me.Table, TBDD_CONNECTIONDataTable) End Sub _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn), Short) End Get Set(value As Short) Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ Public Property SQL_PROVIDER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ Public Property SERVER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ Public Property DATENBANK() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ Public Property PASSWORD() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ Public Property BEMERKUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn), Boolean) End Get Set(value As Boolean) Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn), String) End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class '''

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

Partial Public Class VWTEMPQUICKVIEWRow Inherits Global.System.Data.DataRow Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWTEMPQUICKVIEW = CType(Me.Table, VWTEMPQUICKVIEWDataTable) End Sub _ Public Property _Record_ID() As Integer Get Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value End Set End Property _ Public Property Aktenzeichen() As String Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value End Set End Property _ Public Property _Wiedergabe_der_Marke__Bild_() As Byte() Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column), Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB" & _ "Null.", e) End Try End Get Set(value As Byte()) Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value End Set End Property _ Public Property Tag_der_Eintragung_im_Register() As String Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist" & _ " DBNull.", e) End Try End Get Set(value As String) Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value End Set End Property _ Public Property Aktenzustand() As String Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value End Set End Property _ Public Function IsAktenzeichenNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) End Function _ Public Sub SetAktenzeichenNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) End Function _ Public Sub Set_Wiedergabe_der_Marke__Bild_Null() Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull End Sub _ Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) End Function _ Public Sub SetTag_der_Eintragung_im_RegisterNull() Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAktenzustandNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) End Function _ Public Sub SetAktenzustandNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull End Sub End Class '''

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

Partial Public Class DT_VORSCHAURow Inherits Global.System.Data.DataRow Private tableDT_VORSCHAU As DT_VORSCHAUDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDT_VORSCHAU = CType(Me.Table, DT_VORSCHAUDataTable) End Sub _ Public Property VALUE() As String Get Try Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle DT_VORSCHAU ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableDT_VORSCHAU.VALUEColumn) = value End Set End Property _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableDT_VORSCHAU.VALUEColumn) End Function _ Public Sub SetVALUENull() Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull End Sub End Class '''