'------------------------------------------------------------------------------ ' ' 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 tableTBWH_ENTITIES As TBWH_ENTITIESDataTable Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable Private tableDT_VORSCHAU As DT_VORSCHAUDataTable Private tableTBAD_Users As TBAD_UsersDataTable Private tableTBWH_Users1 As TBWH_Users1DataTable Private tableTBWH_Users2 As TBWH_Users2DataTable 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("TBWH_ENTITIES")) Is Nothing) Then MyBase.Tables.Add(New TBWH_ENTITIESDataTable(ds.Tables("TBWH_ENTITIES"))) End If If (Not (ds.Tables("TBWH_USER_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBWH_USER_GROUPSDataTable(ds.Tables("TBWH_USER_GROUPS"))) End If If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA"))) End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) End If If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users"))) End If If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1"))) End If If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2"))) 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 TBWH_ENTITIES() As TBWH_ENTITIESDataTable Get Return Me.tableTBWH_ENTITIES End Get End Property _ Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable Get Return Me.tableTBWH_USER_GROUPS End Get End Property _ Public ReadOnly Property TBPMO_SAP_FUBA() As TBPMO_SAP_FUBADataTable Get Return Me.tableTBPMO_SAP_FUBA End Get End Property _ Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable Get Return Me.tableDT_VORSCHAU End Get End Property _ Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable Get Return Me.tableTBAD_Users End Get End Property _ Public ReadOnly Property TBWH_Users1() As TBWH_Users1DataTable Get Return Me.tableTBWH_Users1 End Get End Property _ Public ReadOnly Property TBWH_Users2() As TBWH_Users2DataTable Get Return Me.tableTBWH_Users2 End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As 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("TBWH_ENTITIES")) Is Nothing) Then MyBase.Tables.Add(New TBWH_ENTITIESDataTable(ds.Tables("TBWH_ENTITIES"))) End If If (Not (ds.Tables("TBWH_USER_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBWH_USER_GROUPSDataTable(ds.Tables("TBWH_USER_GROUPS"))) End If If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA"))) End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) End If If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users"))) End If If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1"))) End If If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2"))) 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.tableTBWH_ENTITIES = CType(MyBase.Tables("TBWH_ENTITIES"),TBWH_ENTITIESDataTable) If (initTable = true) Then If (Not (Me.tableTBWH_ENTITIES) Is Nothing) Then Me.tableTBWH_ENTITIES.InitVars End If End If Me.tableTBWH_USER_GROUPS = CType(MyBase.Tables("TBWH_USER_GROUPS"),TBWH_USER_GROUPSDataTable) If (initTable = true) Then If (Not (Me.tableTBWH_USER_GROUPS) Is Nothing) Then Me.tableTBWH_USER_GROUPS.InitVars End If End If Me.tableTBPMO_SAP_FUBA = CType(MyBase.Tables("TBPMO_SAP_FUBA"),TBPMO_SAP_FUBADataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_SAP_FUBA) Is Nothing) Then Me.tableTBPMO_SAP_FUBA.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.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"),TBAD_UsersDataTable) If (initTable = true) Then If (Not (Me.tableTBAD_Users) Is Nothing) Then Me.tableTBAD_Users.InitVars End If End If Me.tableTBWH_Users1 = CType(MyBase.Tables("TBWH_Users1"),TBWH_Users1DataTable) If (initTable = true) Then If (Not (Me.tableTBWH_Users1) Is Nothing) Then Me.tableTBWH_Users1.InitVars End If End If Me.tableTBWH_Users2 = CType(MyBase.Tables("TBWH_Users2"),TBWH_Users2DataTable) If (initTable = true) Then If (Not (Me.tableTBWH_Users2) Is Nothing) Then Me.tableTBWH_Users2.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.tableTBWH_ENTITIES = New TBWH_ENTITIESDataTable() MyBase.Tables.Add(Me.tableTBWH_ENTITIES) Me.tableTBWH_USER_GROUPS = New TBWH_USER_GROUPSDataTable() MyBase.Tables.Add(Me.tableTBWH_USER_GROUPS) Me.tableTBPMO_SAP_FUBA = New TBPMO_SAP_FUBADataTable() MyBase.Tables.Add(Me.tableTBPMO_SAP_FUBA) Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable() MyBase.Tables.Add(Me.tableDT_VORSCHAU) Me.tableTBAD_Users = New TBAD_UsersDataTable() MyBase.Tables.Add(Me.tableTBAD_Users) Me.tableTBWH_Users1 = New TBWH_Users1DataTable() MyBase.Tables.Add(Me.tableTBWH_Users1) Me.tableTBWH_Users2 = New TBWH_Users2DataTable() MyBase.Tables.Add(Me.tableTBWH_Users2) 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 ShouldSerializeTBWH_ENTITIES() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_SAP_FUBA() As Boolean Return false End Function _ Private Function ShouldSerializeDT_VORSCHAU() As Boolean Return false End Function _ Private Function ShouldSerializeTBAD_Users() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_Users1() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_Users2() 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 TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent) _ Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent) _ Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent) _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) _ Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) _ Public Delegate Sub TBWH_Users1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users1RowChangeEvent) _ Public Delegate Sub TBWH_Users2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users2RowChangeEvent) ''' '''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 Private columnLANGUAGE 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 LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As 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, ByVal LANGUAGE 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, LANGUAGE} 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") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") 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.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) 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.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHORT_TITLE.MaxLength = 50 Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.MaxLength = 5 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 Private columnCONTROL_DOCTYPE_MATCH As Global.System.Data.DataColumn Private columnSQL_RIGHT_READ_AND_VIEW_ONLY As Global.System.Data.DataColumn Private columnSQL_RIGHT_WINDREAM_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 CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_DOCTYPE_MATCH End Get End Property _ Public ReadOnly Property SQL_RIGHT_READ_AND_VIEW_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY End Get End Property _ Public ReadOnly Property SQL_RIGHT_WINDREAM_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RIGHT_WINDREAM_VIEW End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As 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, _ ByVal CONTROL_DOCTYPE_MATCH As Integer, _ ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ ByVal SQL_RIGHT_WINDREAM_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, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_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") Me.columnCONTROL_DOCTYPE_MATCH = MyBase.Columns("CONTROL_DOCTYPE_MATCH") Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY = MyBase.Columns("SQL_RIGHT_READ_AND_VIEW_ONLY") Me.columnSQL_RIGHT_WINDREAM_VIEW = MyBase.Columns("SQL_RIGHT_WINDREAM_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.columnCONTROL_DOCTYPE_MATCH = New Global.System.Data.DataColumn("CONTROL_DOCTYPE_MATCH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_DOCTYPE_MATCH) Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY = New Global.System.Data.DataColumn("SQL_RIGHT_READ_AND_VIEW_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY) Me.columnSQL_RIGHT_WINDREAM_VIEW = New Global.System.Data.DataColumn("SQL_RIGHT_WINDREAM_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RIGHT_WINDREAM_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.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 Me.columnCONTROL_DOCTYPE_MATCH.AllowDBNull = false Me.columnCONTROL_DOCTYPE_MATCH.DefaultValue = CType(0,Integer) Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY.AllowDBNull = false Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY.MaxLength = 5000 Me.columnSQL_RIGHT_WINDREAM_VIEW.AllowDBNull = false Me.columnSQL_RIGHT_WINDREAM_VIEW.MaxLength = 5000 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 _ Public Default 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 _ Public Default 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 TBWH_ENTITIESDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_ENTITIESRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnCAPTION As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_ENTITIES" 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 CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCAPTION End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow Get Return CType(Me.Rows(index),TBWH_ENTITIESRow) End Get End Property _ Public Event TBWH_ENTITIESRowChanging As TBWH_ENTITIESRowChangeEventHandler _ Public Event TBWH_ENTITIESRowChanged As TBWH_ENTITIESRowChangeEventHandler _ Public Event TBWH_ENTITIESRowDeleting As TBWH_ENTITIESRowChangeEventHandler _ Public Event TBWH_ENTITIESRowDeleted As TBWH_ENTITIESRowChangeEventHandler _ Public Overloads Sub AddTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_ENTITIESRow(ByVal FORM_TITLE As String, ByVal CAPTION As String) As TBWH_ENTITIESRow Dim rowTBWH_ENTITIESRow As TBWH_ENTITIESRow = CType(Me.NewRow,TBWH_ENTITIESRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, CAPTION} rowTBWH_ENTITIESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_ENTITIESRow) Return rowTBWH_ENTITIESRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_ENTITIESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ENTITIESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_ENTITIESDataTable = CType(MyBase.Clone,TBWH_ENTITIESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_ENTITIESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnCAPTION = MyBase.Columns("CAPTION") 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.columnCAPTION = New Global.System.Data.DataColumn("CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCAPTION) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORM_TITLE.AllowDBNull = false Me.columnFORM_TITLE.MaxLength = 50 Me.columnCAPTION.ReadOnly = true Me.columnCAPTION.MaxLength = 100 End Sub _ Public Function NewTBWH_ENTITIESRow() As TBWH_ENTITIESRow Return CType(Me.NewRow,TBWH_ENTITIESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_ENTITIESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_ENTITIESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_ENTITIESRowChangedEvent) Is Nothing) Then RaiseEvent TBWH_ENTITIESRowChanged(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_ENTITIESRowChangingEvent) Is Nothing) Then RaiseEvent TBWH_ENTITIESRowChanging(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_ENTITIESRowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_ENTITIESRowDeleted(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_ENTITIESRowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_ENTITIESRowDeleting(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) 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 = "TBWH_ENTITIESDataTable" 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 TBWH_USER_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_USER_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_USER_GROUPS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow Get Return CType(Me.Rows(index),TBWH_USER_GROUPSRow) End Get End Property _ Public Event TBWH_USER_GROUPSRowChanging As TBWH_USER_GROUPSRowChangeEventHandler _ Public Event TBWH_USER_GROUPSRowChanged As TBWH_USER_GROUPSRowChangeEventHandler _ Public Event TBWH_USER_GROUPSRowDeleting As TBWH_USER_GROUPSRowChangeEventHandler _ Public Event TBWH_USER_GROUPSRowDeleted As TBWH_USER_GROUPSRowChangeEventHandler _ Public Overloads Sub AddTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_USER_GROUPSRow(ByVal NAME As String) As TBWH_USER_GROUPSRow Dim rowTBWH_USER_GROUPSRow As TBWH_USER_GROUPSRow = CType(Me.NewRow,TBWH_USER_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} rowTBWH_USER_GROUPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_USER_GROUPSRow) Return rowTBWH_USER_GROUPSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_USER_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_USER_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_USER_GROUPSDataTable = CType(MyBase.Clone,TBWH_USER_GROUPSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_USER_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.MaxLength = 50 End Sub _ Public Function NewTBWH_USER_GROUPSRow() As TBWH_USER_GROUPSRow Return CType(Me.NewRow,TBWH_USER_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_USER_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_USER_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_USER_GROUPSRowChangedEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowChanged(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_USER_GROUPSRowChangingEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowChanging(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_USER_GROUPSRowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowDeleted(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_USER_GROUPSRowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowDeleting(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) 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 = "TBWH_USER_GROUPSDataTable" 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_SAP_FUBADataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_SAP_FUBARow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnTableName As Global.System.Data.DataColumn Private columnHost As Global.System.Data.DataColumn Private columnSystemNumber As Global.System.Data.DataColumn Private columnUserName As Global.System.Data.DataColumn Private columnPassword As Global.System.Data.DataColumn Private columnClient As Global.System.Data.DataColumn Private columnLanguage As Global.System.Data.DataColumn Private columnTempTableName As Global.System.Data.DataColumn Private columnACTIVE 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 columnWHERE_CLAUSE As Global.System.Data.DataColumn Private columnMethod As Global.System.Data.DataColumn Private columnFuBa_SplitCharacter As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBPMO_SAP_FUBA" Me.BeginInit() Me.InitClass() Me.EndInit() End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars() End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property TableNameColumn() As Global.System.Data.DataColumn Get Return Me.columnTableName End Get End Property _ Public ReadOnly Property HostColumn() As Global.System.Data.DataColumn Get Return Me.columnHost End Get End Property _ Public ReadOnly Property SystemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnSystemNumber 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 ClientColumn() As Global.System.Data.DataColumn Get Return Me.columnClient End Get End Property _ Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn Get Return Me.columnLanguage End Get End Property _ Public ReadOnly Property TempTableNameColumn() As Global.System.Data.DataColumn Get Return Me.columnTempTableName End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE 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 WHERE_CLAUSEColumn() As Global.System.Data.DataColumn Get Return Me.columnWHERE_CLAUSE End Get End Property _ Public ReadOnly Property MethodColumn() As Global.System.Data.DataColumn Get Return Me.columnMethod End Get End Property _ Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn Get Return Me.columnFuBa_SplitCharacter 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_SAP_FUBARow Get Return CType(Me.Rows(index), TBPMO_SAP_FUBARow) End Get End Property _ Public Event TBPMO_SAP_FUBARowChanging As TBPMO_SAP_FUBARowChangeEventHandler _ Public Event TBPMO_SAP_FUBARowChanged As TBPMO_SAP_FUBARowChangeEventHandler _ Public Event TBPMO_SAP_FUBARowDeleting As TBPMO_SAP_FUBARowChangeEventHandler _ Public Event TBPMO_SAP_FUBARowDeleted As TBPMO_SAP_FUBARowChangeEventHandler _ Public Overloads Sub AddTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_SAP_FUBARow( _ ByVal NAME As String, _ ByVal COMMENT As String, _ ByVal TableName As String, _ ByVal Host As String, _ ByVal SystemNumber As String, _ ByVal UserName As String, _ ByVal Password As String, _ ByVal Client As String, _ ByVal Language As String, _ ByVal TempTableName As String, _ ByVal ACTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal WHERE_CLAUSE As String, _ ByVal Method As String, _ ByVal FuBa_SplitCharacter As String) As TBPMO_SAP_FUBARow Dim rowTBPMO_SAP_FUBARow As TBPMO_SAP_FUBARow = CType(Me.NewRow, TBPMO_SAP_FUBARow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE, Method, FuBa_SplitCharacter} rowTBPMO_SAP_FUBARow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_SAP_FUBARow) Return rowTBPMO_SAP_FUBARow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_SAP_FUBARow Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_SAP_FUBARow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_SAP_FUBADataTable = CType(MyBase.Clone, TBPMO_SAP_FUBADataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_SAP_FUBADataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnTableName = MyBase.Columns("TableName") Me.columnHost = MyBase.Columns("Host") Me.columnSystemNumber = MyBase.Columns("SystemNumber") Me.columnUserName = MyBase.Columns("UserName") Me.columnPassword = MyBase.Columns("Password") Me.columnClient = MyBase.Columns("Client") Me.columnLanguage = MyBase.Columns("Language") Me.columnTempTableName = MyBase.Columns("TempTableName") Me.columnACTIVE = MyBase.Columns("ACTIVE") 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.columnWHERE_CLAUSE = MyBase.Columns("WHERE_CLAUSE") Me.columnMethod = MyBase.Columns("Method") Me.columnFuBa_SplitCharacter = MyBase.Columns("FuBa_SplitCharacter") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnTableName = New Global.System.Data.DataColumn("TableName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTableName) Me.columnHost = New Global.System.Data.DataColumn("Host", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHost) Me.columnSystemNumber = New Global.System.Data.DataColumn("SystemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSystemNumber) 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.columnClient = New Global.System.Data.DataColumn("Client", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnClient) Me.columnLanguage = New Global.System.Data.DataColumn("Language", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLanguage) Me.columnTempTableName = New Global.System.Data.DataColumn("TempTableName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTempTableName) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) 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.columnWHERE_CLAUSE = New Global.System.Data.DataColumn("WHERE_CLAUSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWHERE_CLAUSE) Me.columnMethod = New Global.System.Data.DataColumn("Method", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMethod) Me.columnFuBa_SplitCharacter = New Global.System.Data.DataColumn("FuBa_SplitCharacter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFuBa_SplitCharacter) 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.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnTableName.AllowDBNull = False Me.columnTableName.MaxLength = 100 Me.columnHost.AllowDBNull = False Me.columnHost.MaxLength = 100 Me.columnSystemNumber.AllowDBNull = False Me.columnSystemNumber.MaxLength = 30 Me.columnUserName.AllowDBNull = False Me.columnUserName.MaxLength = 50 Me.columnPassword.AllowDBNull = False Me.columnPassword.MaxLength = 100 Me.columnClient.AllowDBNull = False Me.columnClient.MaxLength = 100 Me.columnLanguage.AllowDBNull = False Me.columnLanguage.MaxLength = 20 Me.columnTempTableName.AllowDBNull = False Me.columnTempTableName.MaxLength = 100 Me.columnACTIVE.AllowDBNull = False Me.columnACTIVE.DefaultValue = CType(False, Boolean) Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnWHERE_CLAUSE.MaxLength = 500 Me.columnMethod.AllowDBNull = False Me.columnMethod.DefaultValue = CType("TABLE", String) Me.columnMethod.MaxLength = 50 Me.columnFuBa_SplitCharacter.AllowDBNull = False Me.columnFuBa_SplitCharacter.DefaultValue = CType(";", String) Me.columnFuBa_SplitCharacter.MaxLength = 1 End Sub _ Public Function NewTBPMO_SAP_FUBARow() As TBPMO_SAP_FUBARow Return CType(Me.NewRow, TBPMO_SAP_FUBARow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_SAP_FUBARow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_SAP_FUBARow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_SAP_FUBARowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowChanged(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_SAP_FUBARowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowChanging(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_SAP_FUBARowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowDeleted(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_SAP_FUBARowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowDeleting(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow) 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_SAP_FUBADataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBAD_UsersDataTable Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBAD_Users" 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 SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID 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 TBAD_UsersRow Get Return CType(Me.Rows(index), TBAD_UsersRow) End Get End Property _ Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler _ Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler _ Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler _ Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler _ Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow, TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBAD_UsersRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBAD_UsersRow) Return rowTBAD_UsersRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone, TBAD_UsersDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBAD_UsersDataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub _ Public Function NewTBAD_UsersRow() As TBAD_UsersRow Return CType(Me.NewRow, TBAD_UsersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBAD_UsersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBAD_UsersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub _ Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) 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 = "TBAD_UsersDataTable" 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 TBWH_Users1DataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBWH_Users1" 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 SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID 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 TBWH_Users1Row Get Return CType(Me.Rows(index), TBWH_Users1Row) End Get End Property _ Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler _ Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler _ Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler _ Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler _ Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow, TBWH_Users1Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_Users1Row.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_Users1Row) Return rowTBWH_Users1Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone, TBWH_Users1DataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users1DataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub _ Public Function NewTBWH_Users1Row() As TBWH_Users1Row Return CType(Me.NewRow, TBWH_Users1Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users1Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users1Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub _ Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) 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 = "TBWH_Users1DataTable" 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 TBWH_Users2DataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBWH_Users2" 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 SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID 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 TBWH_Users2Row Get Return CType(Me.Rows(index), TBWH_Users2Row) End Get End Property _ Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler _ Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler _ Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler _ Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler _ Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow, TBWH_Users2Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_Users2Row.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_Users2Row) Return rowTBWH_Users2Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone, TBWH_Users2DataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users2DataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub _ Public Function NewTBWH_Users2Row() As TBWH_Users2Row Return CType(Me.NewRow, TBWH_Users2Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users2Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users2Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub _ Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) 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 = "TBWH_Users2DataTable" 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 Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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 ist DBNull.", e) End Try 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 Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = 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_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = 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 Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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_DETAIL ist DBNul" & _ "l.", e) End Try 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 CONTROL_DOCTYPE_MATCH() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value End Set End Property _ Public Property SQL_RIGHT_READ_AND_VIEW_ONLY() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn) = value End Set End Property _ Public Property SQL_RIGHT_WINDREAM_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_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 IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = 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 TBWH_ENTITIESRow Inherits Global.System.Data.DataRow Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_ENTITIES = CType(Me.Table, TBWH_ENTITIESDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBWH_ENTITIES.GUIDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn), String) End Get Set(value As String) Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn) = value End Set End Property _ Public Property CAPTION() As String Get Try Return CType(Me(Me.tableTBWH_ENTITIES.CAPTIONColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAPTION in Tabelle TBWH_ENTITIES ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = value End Set End Property _ Public Function IsCAPTIONNull() As Boolean Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) End Function _ Public Sub SetCAPTIONNull() Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_USER_GROUPSRow Inherits Global.System.Data.DataRow Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_USER_GROUPS = CType(Me.Table, TBWH_USER_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBWH_USER_GROUPS.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBWH_USER_GROUPS.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_USER_GROUPS ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_SAP_FUBARow Inherits Global.System.Data.DataRow Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_SAP_FUBA = CType(Me.Table, TBPMO_SAP_FUBADataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = value End Set End Property _ Public Property TableName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn) = value End Set End Property _ Public Property Host() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.HostColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.HostColumn) = value End Set End Property _ Public Property SystemNumber() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn) = value End Set End Property _ Public Property UserName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn) = value End Set End Property _ Public Property Password() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn) = value End Set End Property _ Public Property Client() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ClientColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.ClientColumn) = value End Set End Property _ Public Property Language() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn) = value End Set End Property _ Public Property TempTableName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn), Boolean) End Get Set(value As Boolean) Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.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_SAP_FUBA ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.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_SAP_FUBA ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.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_SAP_FUBA ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = value End Set End Property _ Public Property WHERE_CLAUSE() As String Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WHERE_CLAUSE in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = value End Set End Property _ Public Property Method() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.MethodColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.MethodColumn) = value End Set End Property _ Public Property FuBa_SplitCharacter() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn), String) End Get Set(value As String) Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWHERE_CLAUSENull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) End Function _ Public Sub SetWHERE_CLAUSENull() Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = 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 ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBAD_UsersRow Inherits Global.System.Data.DataRow Private tableTBAD_Users As TBAD_UsersDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBAD_Users = CType(Me.Table, TBAD_UsersDataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBAD_Users.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As Boolean) Me(Me.tableTBAD_Users.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBAD_Users.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBAD_Users.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBAD_Users.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBAD_Users.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBAD_Users.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBAD_Users.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBAD_Users.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBAD_Users.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBAD_Users.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As Short) Me(Me.tableTBAD_Users.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_Users1Row Inherits Global.System.Data.DataRow Private tableTBWH_Users1 As TBWH_Users1DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_Users1 = CType(Me.Table, TBWH_Users1DataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBWH_Users1.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set(value As Boolean) Me(Me.tableTBWH_Users1.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBWH_Users1.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users1.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBWH_Users1.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users1.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBWH_Users1.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users1.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBWH_Users1.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users1.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBWH_Users1.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set(value As Short) Me(Me.tableTBWH_Users1.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users1.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users1.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users1.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users1.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users1.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_Users1.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_Users2Row Inherits Global.System.Data.DataRow Private tableTBWH_Users2 As TBWH_Users2DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_Users2 = CType(Me.Table, TBWH_Users2DataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBWH_Users2.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set(value As Boolean) Me(Me.tableTBWH_Users2.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBWH_Users2.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users2.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBWH_Users2.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users2.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBWH_Users2.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users2.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBWH_Users2.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_Users2.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBWH_Users2.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set(value As Short) Me(Me.tableTBWH_Users2.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users2.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users2.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users2.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users2.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users2.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_Users2.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTORRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_CONNECTIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWTEMPQUICKVIEWRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWTEMPQUICKVIEWRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_ENTITIESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_ENTITIESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_ENTITIESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_ENTITIESRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_USER_GROUPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_USER_GROUPSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_USER_GROUPSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_SAP_FUBARowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_SAP_FUBARow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_SAP_FUBARow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_SAP_FUBARow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class DT_VORSCHAURowChangeEvent Inherits Global.System.EventArgs Private eventRow As DT_VORSCHAURow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As DT_VORSCHAURow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As DT_VORSCHAURow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBAD_UsersRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBAD_UsersRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_Users1RowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_Users1Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_Users1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_Users1Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_Users2RowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_Users2Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_Users2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_Users2Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace DD_ECMAdminTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (FORM_TITLE, SEQUENC" & _ "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE," & _ "@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FOR" & _ "M_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_I" & _ "MG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET FORM_TITLE = @FORM_TITLE," & _ " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM" & _ "G, SHORT_TITLE = @SHORT_TITLE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " LANGUAGE = @LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _ "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FORM_TITLE, SEQUENCE_MENU" & _ ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM T" & _ "BPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER" & _ "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_" & _ "WHEN, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, MENU_IMG, SHORT_TITL" & _ "E, LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO, String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE, String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID, Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") tableMapping.ColumnMappings.Add("CONTROL_DOCTYPE_MATCH", "CONTROL_DOCTYPE_MATCH") tableMapping.ColumnMappings.Add("SQL_RIGHT_READ_AND_VIEW_ONLY", "SQL_RIGHT_READ_AND_VIEW_ONLY") tableMapping.ColumnMappings.Add("SQL_RIGHT_WINDREAM_VIEW", "SQL_RIGHT_WINDREAM_VIEW") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (CONSTRUCT_ID" & _ ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR" & _ "CH_PATTERN5, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WIND" & _ "REAM_VIEW)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQ" & _ "UENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAM" & _ "E2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_P" & _ "ATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY,@S" & _ "QL_RIGHT_WINDREAM_VIEW); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEV" & _ "EL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHE" & _ "N, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARC" & _ "H_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 F" & _ "ROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CONTROL_DO" & _ "CTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_" & _ "READ_AND_VIEW_ONLY, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_RIGHT_WINDREAM_VIEW = @SQL_RI" & _ "GHT_WINDREAM_VIEW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONS" & _ "TRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SE" & _ "LECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COL" & _ "UMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, S" & _ "EARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID =" & _ " @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ" & _ "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_" & _ "WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE" & _ "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN" & _ "5, LOAD_DIRECT, SQL_QUICK_VIEW, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CONTROL_DOCTYPE_MATCH" & _ ", SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_F" & _ "ORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert( _ ByVal CONSTRUCT_ID As Integer, _ 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 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 CONTROL_DOCTYPE_MATCH As Integer, _ ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ ByVal SQL_RIGHT_WINDREAM_VIEW As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) End If Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(SQL_RIGHT_WINDREAM_VIEW, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal CONSTRUCT_ID As Integer, _ 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 CHANGED_WHO As String, _ 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 CONTROL_DOCTYPE_MATCH As Integer, _ ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ ByVal SQL_RIGHT_WINDREAM_VIEW As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT, Boolean) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SQL_RIGHT_WINDREAM_VIEW, String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID, Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") tableMapping.ColumnMappings.Add("SERVER", "SERVER") tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, SQL_PROVIDER," & _ " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & _ " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK" & _ "UNG,@AKTIV,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE" & _ "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT" & _ "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, SQL_" & _ "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @" & _ "USERNAME, PASSWORD = @PASSWORD, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " BEMERKUNG = @BEMERKUN" & _ "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GU" & _ "ID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS" & _ "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR" & _ "OM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable = New DD_ECMAdmin.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert(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) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If If (SERVER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER, String) End If If (DATENBANK Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK, String) End If If (USERNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME, String) End If If (PASSWORD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD, String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV, Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update(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 GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If If (SERVER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER, String) End If If (DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK, String) End If If (USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME, String) End If If (PASSWORD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD, String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV, Boolean) If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER, String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Short) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWTEMPQUICKVIEWTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWTEMPQUICKVIEW" tableMapping.ColumnMappings.Add("Record-ID", "Record-ID") tableMapping.ColumnMappings.Add("Aktenzeichen", "Aktenzeichen") tableMapping.ColumnMappings.Add("Wiedergabe der Marke (Bild)", "Wiedergabe der Marke (Bild)") tableMapping.ColumnMappings.Add("Tag der Eintragung im Register", "Tag der Eintragung im Register") tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der " & _ "Eintragung im Register], Aktenzustand" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWTEMPQUICKVIEW" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBWH_ENTITIESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBWH_ENTITIES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV" & _ "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ " TBPMO_FORM AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM_VIEW AS T1 ON " & _ "T.GUID = T1.FORM_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.GUID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELE" & _ "CT DISTINCT ENTITY_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FROM TBPMO_CLIE" & _ "NT_ENTITY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHERE (CLIENT_ID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ " (SELECT CLIENT_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ " FROM TBDD" & _ "_CLIENT_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHE" & _ "RE (USER_ID = @USER_ID)))))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY 'CAPTION'" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) Dim dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable = New DD_ECMAdmin.TBWH_ENTITIESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBWH_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBWH_USER_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_USER_GROUPS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable = New DD_ECMAdmin.TBWH_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_SAP_FUBATableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_SAP_FUBA" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("TableName", "TableName") tableMapping.ColumnMappings.Add("Host", "Host") tableMapping.ColumnMappings.Add("SystemNumber", "SystemNumber") tableMapping.ColumnMappings.Add("UserName", "UserName") tableMapping.ColumnMappings.Add("Password", "Password") tableMapping.ColumnMappings.Add("Client", "Client") tableMapping.ColumnMappings.Add("Language", "Language") tableMapping.ColumnMappings.Add("TempTableName", "TempTableName") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("WHERE_CLAUSE", "WHERE_CLAUSE") tableMapping.ColumnMappings.Add("Method", "Method") tableMapping.ColumnMappings.Add("FuBa_SplitCharacter", "FuBa_SplitCharacter") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, COMMENT, TableName, H" & _ "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, " & _ "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COM" & _ "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT" & _ "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SE" & _ "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli" & _ "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE" & _ "D_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME, COMMENT = @COMMENT," & _ " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = " & _ "@UserName, Password = @Password, Client = @Client, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " La" & _ "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH" & _ "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ " FuBa_SplitCharacter = @FuBa_SplitCharacter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @O" & _ "riginal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U" & _ "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE" & _ "N, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw" & _ "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE" & _ "N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, Method, FuBa_SplitChara" & _ "cter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_SAP_FUBA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable = New DD_ECMAdmin.TBPMO_SAP_FUBADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_SAP_FUBA") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(TableName, String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Host, String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SystemNumber, String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UserName, String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password, String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Client, String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Language, String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(TempTableName, String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(ACTIVE, Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHO, String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method, String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal NAME As String, _ ByVal COMMENT As String, _ ByVal TableName As String, _ ByVal Host As String, _ ByVal SystemNumber As String, _ ByVal UserName As String, _ ByVal Password As String, _ ByVal Client As String, _ ByVal Language As String, _ ByVal TempTableName As String, _ ByVal ACTIVE As Boolean, _ ByVal CHANGED_WHO As String, _ ByVal WHERE_CLAUSE As String, _ ByVal Method As String, _ ByVal FuBa_SplitCharacter As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TableName, String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Host, String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SystemNumber, String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UserName, String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password, String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Client, String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Language, String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TempTableName, String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ACTIVE, Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO, String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method, String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID, Integer) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter Private _tBPMO_SAP_FUBATableAdapter As TBPMO_SAP_FUBATableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set(value As UpdateOrderOption) Me._updateOrder = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter End Get Set(value As TBPMO_FORM_CONSTRUCTORTableAdapter) Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter End Get Set(value As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value End Set End Property _ Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter Get Return Me._tBDD_CONNECTIONTableAdapter End Get Set(value As TBDD_CONNECTIONTableAdapter) Me._tBDD_CONNECTIONTableAdapter = value End Set End Property _ Public Property TBPMO_SAP_FUBATableAdapter() As TBPMO_SAP_FUBATableAdapter Get Return Me._tBPMO_SAP_FUBATableAdapter End Get Set(value As TBPMO_SAP_FUBATableAdapter) Me._tBPMO_SAP_FUBATableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set(value As Boolean) Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection End If If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CONNECTIONTableAdapter.Connection End If If ((Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_SAP_FUBATableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_SAP_FUBATableAdapter.Connection End If Return Nothing End Get Set(value As Global.System.Data.IDbConnection) Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As DD_ECMAdmin, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = False) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As DD_ECMAdmin) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = False) Then Return 0 End If If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = False)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = False)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = False)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_SAP_FUBATableAdapter.Connection) = False)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ "t.") End If Dim workConnOpened As Boolean = False If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then workConnection.Close() End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then workConnection.Open() workConnOpened = True End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ "ion nicht zu.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() Dim result As Integer = 0 Dim backupDataSet As Global.System.Data.DataSet = Nothing If Me.BackupDataSetBeforeUpdate Then backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If Try '---- Prepare for update ----------- ' If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_SAP_FUBATableAdapter, Me._tBPMO_SAP_FUBATableAdapter.Connection) Me._tBPMO_SAP_FUBATableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_SAP_FUBATableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_SAP_FUBATableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_SAP_FUBATableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_SAP_FUBATableAdapter.Adapter) End If End If ' '---- Perform updates ----------- ' If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) Else result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) End If result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) ' '---- Commit updates ----------- ' workTransaction.Commit() If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges() i = (i + 1) Loop End If If (0 < allChangedRows.Count) Then Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow allChangedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges() i = (i + 1) Loop End If Catch ex As Global.System.Exception workTransaction.Rollback() '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) dataSet.Clear() dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges() row.SetAdded() i = (i + 1) Loop End If End If Throw ex Finally If workConnOpened Then workConnection.Close() End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Me._tBPMO_SAP_FUBATableAdapter.Connection = CType(revertConnections(Me._tBPMO_SAP_FUBATableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_SAP_FUBATableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) adapter.AcceptChangesDuringUpdate = True i = (i + 1) Loop End If End Try Return result End Function _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return True End If If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then Return True End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then Return True End If Return False End Function ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New() Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = False)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear() traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = False)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace