'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class GlobixDataset Inherits Global.System.Data.DataSet Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable Private tableTBGI_REGEX_DOCTYPE As TBGI_REGEX_DOCTYPEDataTable Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation Private relationFK_TBGI_REGEX_DOCTYPE_DTID 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("TBDD_DOKUMENTART")) Is Nothing) Then MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) End If If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN"))) End If If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) End If If (Not (ds.Tables("TBGI_REGEX_DOCTYPE")) Is Nothing) Then MyBase.Tables.Add(New TBGI_REGEX_DOCTYPEDataTable(ds.Tables("TBGI_REGEX_DOCTYPE"))) End If If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) 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 TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable Get Return Me.tableTBDD_DOKUMENTART End Get End Property _ Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable Get Return Me.tableTBDD_INDEX_MAN End Get End Property _ Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable Get Return Me.tableTBDD_INDEX_AUTOM End Get End Property _ Public ReadOnly Property TBGI_REGEX_DOCTYPE() As TBGI_REGEX_DOCTYPEDataTable Get Return Me.tableTBGI_REGEX_DOCTYPE End Get End Property _ Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable Get Return Me.tableTBTEMP_INDEXRESULTS 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 GlobixDataset = CType(MyBase.Clone,GlobixDataset) 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("TBDD_DOKUMENTART")) Is Nothing) Then MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) End If If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN"))) End If If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) End If If (Not (ds.Tables("TBGI_REGEX_DOCTYPE")) Is Nothing) Then MyBase.Tables.Add(New TBGI_REGEX_DOCTYPEDataTable(ds.Tables("TBGI_REGEX_DOCTYPE"))) End If If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) 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.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then Me.tableTBDD_DOKUMENTART.InitVars End If End If Me.tableTBDD_INDEX_MAN = CType(MyBase.Tables("TBDD_INDEX_MAN"),TBDD_INDEX_MANDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_INDEX_MAN) Is Nothing) Then Me.tableTBDD_INDEX_MAN.InitVars End If End If Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then Me.tableTBDD_INDEX_AUTOM.InitVars End If End If Me.tableTBGI_REGEX_DOCTYPE = CType(MyBase.Tables("TBGI_REGEX_DOCTYPE"),TBGI_REGEX_DOCTYPEDataTable) If (initTable = true) Then If (Not (Me.tableTBGI_REGEX_DOCTYPE) Is Nothing) Then Me.tableTBGI_REGEX_DOCTYPE.InitVars End If End If Me.tableTBTEMP_INDEXRESULTS = CType(MyBase.Tables("TBTEMP_INDEXRESULTS"),TBTEMP_INDEXRESULTSDataTable) If (initTable = true) Then If (Not (Me.tableTBTEMP_INDEXRESULTS) Is Nothing) Then Me.tableTBTEMP_INDEXRESULTS.InitVars End If End If Me.relationFK_TBDD_INDEX_MAN_DAID = Me.Relations("FK_TBDD_INDEX_MAN_DAID") Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID") Me.relationFK_TBGI_REGEX_DOCTYPE_DTID = Me.Relations("FK_TBGI_REGEX_DOCTYPE_DTID") End Sub _ Private Sub InitClass() Me.DataSetName = "GlobixDataset" Me.Prefix = "" Me.Namespace = "http://tempuri.org/GlobixDataset.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) Me.tableTBDD_INDEX_MAN = New TBDD_INDEX_MANDataTable() MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN) Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable() MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM) Me.tableTBGI_REGEX_DOCTYPE = New TBGI_REGEX_DOCTYPEDataTable() MyBase.Tables.Add(Me.tableTBGI_REGEX_DOCTYPE) Me.tableTBTEMP_INDEXRESULTS = New TBTEMP_INDEXRESULTSDataTable() MyBase.Tables.Add(Me.tableTBTEMP_INDEXRESULTS) Me.relationFK_TBDD_INDEX_MAN_DAID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_DAID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.DOK_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_INDEX_MAN_DAID) Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID) Me.relationFK_TBGI_REGEX_DOCTYPE_DTID = New Global.System.Data.DataRelation("FK_TBGI_REGEX_DOCTYPE_DTID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBGI_REGEX_DOCTYPE_DTID) End Sub _ Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean Return false End Function _ Private Function ShouldSerializeTBGI_REGEX_DOCTYPE() As Boolean Return false End Function _ Private Function ShouldSerializeTBTEMP_INDEXRESULTS() 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 GlobixDataset = New GlobixDataset() 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 TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) _ Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent) _ Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) _ Public Delegate Sub TBGI_REGEX_DOCTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_REGEX_DOCTYPERowChangeEvent) _ Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBDD_DOKUMENTARTDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) Private columnGUID As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnOBJEKTTYP As Global.System.Data.DataColumn Private columnEINGANGSART_ID As Global.System.Data.DataColumn Private columnKURZNAME As Global.System.Data.DataColumn Private columnZIEL_PFAD As Global.System.Data.DataColumn Private columnBESCHREIBUNG As Global.System.Data.DataColumn Private columnWINDREAM_DIRECT As Global.System.Data.DataColumn Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn Private columnAKTIV As Global.System.Data.DataColumn Private columnLANGUAGE As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnNAMENKONVENTION 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 Private columnIDB_OBJECT_STORE_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_DOKUMENTART" 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 OBJEKTTYPColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJEKTTYP End Get End Property _ Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEINGANGSART_ID End Get End Property _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME End Get End Property _ Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn Get Return Me.columnZIEL_PFAD End Get End Property _ Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG End Get End Property _ Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDREAM_DIRECT End Get End Property _ Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLDER_FOR_INDEX End Get End Property _ Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn Get Return Me.columnDUPLICATE_HANDLING End Get End Property _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV End Get End Property _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnNAMENKONVENTION 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 IDB_OBJECT_STORE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDB_OBJECT_STORE_ID 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_DOKUMENTARTRow Get Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) End Get End Property _ Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_DOKUMENTARTRow( _ ByVal BEZEICHNUNG As String, _ ByVal OBJEKTTYP As String, _ ByVal EINGANGSART_ID As Byte, _ ByVal KURZNAME As String, _ ByVal ZIEL_PFAD As String, _ ByVal BESCHREIBUNG As String, _ ByVal WINDREAM_DIRECT As Boolean, _ ByVal FOLDER_FOR_INDEX As String, _ ByVal DUPLICATE_HANDLING As String, _ ByVal AKTIV As Boolean, _ ByVal LANGUAGE As String, _ ByVal SEQUENCE As Integer, _ ByVal NAMENKONVENTION As String, _ ByVal ERSTELLTWER As String, _ ByVal ERSTELLTWANN As Date, _ ByVal GEANDERTWER As String, _ ByVal GEAENDERTWANN As Date, _ ByVal IDB_OBJECT_STORE_ID As Integer) As TBDD_DOKUMENTARTRow Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID} rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_DOKUMENTARTRow) Return rowTBDD_DOKUMENTARTRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_DOKUMENTARTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") Me.columnKURZNAME = MyBase.Columns("KURZNAME") Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT") Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") Me.columnDUPLICATE_HANDLING = MyBase.Columns("DUPLICATE_HANDLING") Me.columnAKTIV = MyBase.Columns("AKTIV") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") Me.columnIDB_OBJECT_STORE_ID = MyBase.Columns("IDB_OBJECT_STORE_ID") 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.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBJEKTTYP) Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEINGANGSART_ID) Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKURZNAME) Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZIEL_PFAD) Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBESCHREIBUNG) Me.columnWINDREAM_DIRECT = New Global.System.Data.DataColumn("WINDREAM_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWINDREAM_DIRECT) Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) Me.columnDUPLICATE_HANDLING = New Global.System.Data.DataColumn("DUPLICATE_HANDLING", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDUPLICATE_HANDLING) Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTIV) Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAMENKONVENTION) 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.columnIDB_OBJECT_STORE_ID = New Global.System.Data.DataColumn("IDB_OBJECT_STORE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDB_OBJECT_STORE_ID) 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.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnBEZEICHNUNG.AllowDBNull = false Me.columnBEZEICHNUNG.MaxLength = 50 Me.columnOBJEKTTYP.AllowDBNull = false Me.columnOBJEKTTYP.DefaultValue = CType("IDB_DRIVEN",String) Me.columnOBJEKTTYP.MaxLength = 50 Me.columnEINGANGSART_ID.AllowDBNull = false Me.columnKURZNAME.AllowDBNull = false Me.columnKURZNAME.DefaultValue = CType("",String) Me.columnKURZNAME.MaxLength = 50 Me.columnZIEL_PFAD.AllowDBNull = false Me.columnZIEL_PFAD.DefaultValue = CType("IDB_STORE",String) Me.columnZIEL_PFAD.MaxLength = 250 Me.columnBESCHREIBUNG.MaxLength = 250 Me.columnWINDREAM_DIRECT.AllowDBNull = false Me.columnWINDREAM_DIRECT.DefaultValue = CType(false,Boolean) Me.columnFOLDER_FOR_INDEX.AllowDBNull = false Me.columnFOLDER_FOR_INDEX.MaxLength = 500 Me.columnDUPLICATE_HANDLING.AllowDBNull = false Me.columnDUPLICATE_HANDLING.DefaultValue = CType("Default",String) Me.columnDUPLICATE_HANDLING.MaxLength = 30 Me.columnAKTIV.AllowDBNull = false Me.columnAKTIV.DefaultValue = CType(false,Boolean) Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.DefaultValue = CType("de-DE",String) Me.columnLANGUAGE.MaxLength = 5 Me.columnSEQUENCE.AllowDBNull = false Me.columnSEQUENCE.DefaultValue = CType(1,Integer) Me.columnNAMENKONVENTION.AllowDBNull = false Me.columnNAMENKONVENTION.MaxLength = 500 Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub _ Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_DOKUMENTARTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_DOKUMENTARTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) 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 GlobixDataset = New GlobixDataset() 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_DOKUMENTARTDataTable" 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_INDEX_MANDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MANRow) Private columnGUID As Global.System.Data.DataColumn Private columnDOK_ID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnWD_INDEX As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDATATYPE As Global.System.Data.DataColumn Private columnSUGGESTION As Global.System.Data.DataColumn Private columnDEFAULT_VALUE As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnSQL_RESULT As Global.System.Data.DataColumn Private columnSQL_CHECK As Global.System.Data.DataColumn Private columnOPTIONAL As Global.System.Data.DataColumn Private columnSAVE_VALUE 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 columnMULTISELECT As Global.System.Data.DataColumn Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_INDEX_MAN" 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 DOK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOK_ID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_INDEX End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnDATATYPE End Get End Property _ Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSUGGESTION End Get End Property _ Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT_VALUE End Get End Property _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID 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_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT End Get End Property _ Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_CHECK End Get End Property _ Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn Get Return Me.columnOPTIONAL End Get End Property _ Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnSAVE_VALUE 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 MULTISELECTColumn() As Global.System.Data.DataColumn Get Return Me.columnMULTISELECT End Get End Property _ Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn Get Return Me.columnVKT_ADD_ITEM End Get End Property _ Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn Get Return Me.columnVKT_PREVENT_MULTIPLE_VALUES 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_INDEX_MANRow Get Return CType(Me.Rows(index),TBDD_INDEX_MANRow) End Get End Property _ Public Event TBDD_INDEX_MANRowChanging As TBDD_INDEX_MANRowChangeEventHandler _ Public Event TBDD_INDEX_MANRowChanged As TBDD_INDEX_MANRowChangeEventHandler _ Public Event TBDD_INDEX_MANRowDeleting As TBDD_INDEX_MANRowChangeEventHandler _ Public Event TBDD_INDEX_MANRowDeleted As TBDD_INDEX_MANRowChangeEventHandler _ Public Overloads Sub AddTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_INDEX_MANRow( _ ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID As TBDD_DOKUMENTARTRow, _ ByVal NAME As String, _ ByVal WD_INDEX As String, _ ByVal COMMENT As String, _ ByVal DATATYPE As String, _ ByVal SUGGESTION As Boolean, _ ByVal DEFAULT_VALUE As String, _ ByVal CONNECTION_ID As Short, _ ByVal SEQUENCE As Integer, _ ByVal SQL_RESULT As String, _ ByVal SQL_CHECK As String, _ ByVal _OPTIONAL As Boolean, _ ByVal SAVE_VALUE As Boolean, _ 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 MULTISELECT As Boolean, _ ByVal VKT_ADD_ITEM As Boolean, _ ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As TBDD_INDEX_MANRow Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, _OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0) End If rowTBDD_INDEX_MANRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_INDEX_MANRow) Return rowTBDD_INDEX_MANRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MANRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MANRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_INDEX_MANDataTable = CType(MyBase.Clone,TBDD_INDEX_MANDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_INDEX_MANDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOK_ID = MyBase.Columns("DOK_ID") Me.columnNAME = MyBase.Columns("NAME") Me.columnWD_INDEX = MyBase.Columns("WD_INDEX") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDATATYPE = MyBase.Columns("DATATYPE") Me.columnSUGGESTION = MyBase.Columns("SUGGESTION") Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") Me.columnSQL_CHECK = MyBase.Columns("SQL_CHECK") Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE") 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.columnMULTISELECT = MyBase.Columns("MULTISELECT") Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM") Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") 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.columnDOK_ID = New Global.System.Data.DataColumn("DOK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOK_ID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnWD_INDEX = New Global.System.Data.DataColumn("WD_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWD_INDEX) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnDATATYPE = New Global.System.Data.DataColumn("DATATYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATATYPE) Me.columnSUGGESTION = New Global.System.Data.DataColumn("SUGGESTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSUGGESTION) Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDEFAULT_VALUE) Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONNECTION_ID) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RESULT) Me.columnSQL_CHECK = New Global.System.Data.DataColumn("SQL_CHECK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_CHECK) Me.columnOPTIONAL = New Global.System.Data.DataColumn("OPTIONAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "OPTIONALColumn") Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL") Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL") MyBase.Columns.Add(Me.columnOPTIONAL) Me.columnSAVE_VALUE = New Global.System.Data.DataColumn("SAVE_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSAVE_VALUE) 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.columnMULTISELECT = New Global.System.Data.DataColumn("MULTISELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMULTISELECT) Me.columnVKT_ADD_ITEM = New Global.System.Data.DataColumn("VKT_ADD_ITEM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVKT_ADD_ITEM) Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES) 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.columnDOK_ID.AllowDBNull = false Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 50 Me.columnWD_INDEX.MaxLength = 50 Me.columnCOMMENT.MaxLength = 150 Me.columnDATATYPE.DefaultValue = CType("VARCHAR",String) Me.columnDATATYPE.MaxLength = 50 Me.columnSUGGESTION.AllowDBNull = false Me.columnSUGGESTION.DefaultValue = CType(false,Boolean) Me.columnDEFAULT_VALUE.AllowDBNull = false Me.columnDEFAULT_VALUE.DefaultValue = CType("",String) Me.columnDEFAULT_VALUE.MaxLength = 50 Me.columnCONNECTION_ID.DefaultValue = CType(1,Short) Me.columnSEQUENCE.AllowDBNull = false Me.columnSEQUENCE.DefaultValue = CType(1,Integer) Me.columnSQL_RESULT.AllowDBNull = false Me.columnSQL_RESULT.DefaultValue = CType("",String) Me.columnSQL_RESULT.MaxLength = 2000 Me.columnSQL_CHECK.AllowDBNull = false Me.columnSQL_CHECK.DefaultValue = CType("",String) Me.columnSQL_CHECK.MaxLength = 2000 Me.columnOPTIONAL.AllowDBNull = false Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) Me.columnSAVE_VALUE.AllowDBNull = false Me.columnSAVE_VALUE.DefaultValue = CType(true,Boolean) 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.columnMULTISELECT.AllowDBNull = false Me.columnMULTISELECT.DefaultValue = CType(false,Boolean) Me.columnVKT_ADD_ITEM.AllowDBNull = false Me.columnVKT_ADD_ITEM.DefaultValue = CType(false,Boolean) Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow Return CType(Me.NewRow,TBDD_INDEX_MANRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_INDEX_MANRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_INDEX_MANRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_INDEX_MANRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_MANRowChanged(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_INDEX_MANRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_MANRowChanging(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_INDEX_MANRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_MANRowDeleted(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_INDEX_MANRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_MANRowDeleting(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) 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 GlobixDataset = New GlobixDataset() 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_INDEX_MANDataTable" 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_INDEX_AUTOMDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) Private columnGUID As Global.System.Data.DataColumn Private columnDOCTYPE_ID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnINDEXNAME As Global.System.Data.DataColumn Private columnVALUE As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnSQL_RESULT As Global.System.Data.DataColumn Private columnSQL_ACTIVE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnSEQUENCE 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 _ Public Sub New() MyBase.New Me.TableName = "TBDD_INDEX_AUTOM" 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 DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE End Get End Property _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID End Get End Property _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT End Get End Property _ Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ACTIVE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow Get Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) End Get End Property _ Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) End If rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) Return rowTBDD_INDEX_AUTOMRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_INDEX_AUTOMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnVALUE = MyBase.Columns("VALUE") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") 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") 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.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOCTYPE_ID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONNECTION_ID) Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RESULT) Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_ACTIVE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) 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.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.columnDOCTYPE_ID.AllowDBNull = false Me.columnENTITY_ID.AllowDBNull = false Me.columnENTITY_ID.DefaultValue = CType(0,Integer) Me.columnINDEXNAME.AllowDBNull = false Me.columnINDEXNAME.MaxLength = 50 Me.columnVALUE.MaxLength = 2000 Me.columnCONNECTION_ID.AllowDBNull = false Me.columnCONNECTION_ID.DefaultValue = CType(1,Short) Me.columnSQL_RESULT.AllowDBNull = false Me.columnSQL_RESULT.DefaultValue = CType("",String) Me.columnSQL_RESULT.MaxLength = 2000 Me.columnSQL_ACTIVE.AllowDBNull = false Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean) Me.columnCOMMENT.MaxLength = 400 Me.columnACTIVE.AllowDBNull = false Me.columnACTIVE.DefaultValue = CType(true,Boolean) Me.columnSEQUENCE.AllowDBNull = false Me.columnSEQUENCE.DefaultValue = CType(1,Byte) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_INDEX_AUTOMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_INDEX_AUTOMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) 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 GlobixDataset = New GlobixDataset() 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_INDEX_AUTOMDataTable" 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 TBGI_REGEX_DOCTYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBGI_REGEX_DOCTYPERow) Private columnGUID As Global.System.Data.DataColumn Private columnREGEX As Global.System.Data.DataColumn Private columnDOCTYPE_ID 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 _ Public Sub New() MyBase.New Me.TableName = "TBGI_REGEX_DOCTYPE" 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 REGEXColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX End Get End Property _ Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_REGEX_DOCTYPERow Get Return CType(Me.Rows(index),TBGI_REGEX_DOCTYPERow) End Get End Property _ Public Event TBGI_REGEX_DOCTYPERowChanging As TBGI_REGEX_DOCTYPERowChangeEventHandler _ Public Event TBGI_REGEX_DOCTYPERowChanged As TBGI_REGEX_DOCTYPERowChangeEventHandler _ Public Event TBGI_REGEX_DOCTYPERowDeleting As TBGI_REGEX_DOCTYPERowChangeEventHandler _ Public Event TBGI_REGEX_DOCTYPERowDeleted As TBGI_REGEX_DOCTYPERowChangeEventHandler _ Public Overloads Sub AddTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBGI_REGEX_DOCTYPERow(ByVal REGEX As String, ByVal parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID As TBDD_DOKUMENTARTRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_REGEX_DOCTYPERow Dim rowTBGI_REGEX_DOCTYPERow As TBGI_REGEX_DOCTYPERow = CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) Dim columnValuesArray() As Object = New Object() {Nothing, REGEX, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID) Is Nothing) Then columnValuesArray(2) = parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID(0) End If rowTBGI_REGEX_DOCTYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBGI_REGEX_DOCTYPERow) Return rowTBGI_REGEX_DOCTYPERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBGI_REGEX_DOCTYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_REGEX_DOCTYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBGI_REGEX_DOCTYPEDataTable = CType(MyBase.Clone,TBGI_REGEX_DOCTYPEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGI_REGEX_DOCTYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnREGEX = MyBase.Columns("REGEX") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") 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") 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.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREGEX) Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOCTYPE_ID) 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.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.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnREGEX.AllowDBNull = false Me.columnREGEX.MaxLength = 500 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBGI_REGEX_DOCTYPERow() As TBGI_REGEX_DOCTYPERow Return CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGI_REGEX_DOCTYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGI_REGEX_DOCTYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGI_REGEX_DOCTYPERowChangedEvent) Is Nothing) Then RaiseEvent TBGI_REGEX_DOCTYPERowChanged(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGI_REGEX_DOCTYPERowChangingEvent) Is Nothing) Then RaiseEvent TBGI_REGEX_DOCTYPERowChanging(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGI_REGEX_DOCTYPERowDeletedEvent) Is Nothing) Then RaiseEvent TBGI_REGEX_DOCTYPERowDeleted(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGI_REGEX_DOCTYPERowDeletingEvent) Is Nothing) Then RaiseEvent TBGI_REGEX_DOCTYPERowDeleting(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub _ Public Sub RemoveTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) 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 GlobixDataset = New GlobixDataset() 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 = "TBGI_REGEX_DOCTYPEDataTable" 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 TBTEMP_INDEXRESULTSDataTable Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) Private columnIndexname As Global.System.Data.DataColumn Private columnValue As Global.System.Data.DataColumn Private columnDokumentart As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBTEMP_INDEXRESULTS" 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 IndexnameColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexname End Get End Property _ Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn Get Return Me.columnValue End Get End Property _ Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentart 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 TBTEMP_INDEXRESULTSRow Get Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) End Get End Property _ Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler _ Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler _ Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler _ Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler _ Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) Return rowTBTEMP_INDEXRESULTSRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBTEMP_INDEXRESULTSDataTable() End Function _ Friend Sub InitVars() Me.columnIndexname = MyBase.Columns("Indexname") Me.columnValue = MyBase.Columns("Value") Me.columnDokumentart = MyBase.Columns("Dokumentart") End Sub _ Private Sub InitClass() Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexname) Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnValue) Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokumentart) End Sub _ Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBTEMP_INDEXRESULTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBTEMP_INDEXRESULTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub _ Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) 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 GlobixDataset = New GlobixDataset() 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 = "TBTEMP_INDEXRESULTSDataTable" 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 TBDD_DOKUMENTARTRow Inherits Global.System.Data.DataRow Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value End Set End Property _ Public Property OBJEKTTYP() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value End Set End Property _ Public Property EINGANGSART_ID() As Byte Get Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) End Get Set Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value End Set End Property _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value End Set End Property _ Public Property ZIEL_PFAD() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value End Set End Property _ Public Property BESCHREIBUNG() As String Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value End Set End Property _ Public Property WINDREAM_DIRECT() As Boolean Get Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) End Get Set Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value End Set End Property _ Public Property FOLDER_FOR_INDEX() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value End Set End Property _ Public Property DUPLICATE_HANDLING() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value End Set End Property _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) End Get Set Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value End Set End Property _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) End Get Set Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value End Set End Property _ Public Property NAMENKONVENTION() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value End Set End Property _ Public Property IDB_OBJECT_STORE_ID() As Integer Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDB_OBJECT_STORE_ID in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = value End Set End Property _ Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) End Function _ Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) End Function _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDB_OBJECT_STORE_IDNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) End Function _ Public Sub SetIDB_OBJECT_STORE_IDNull() Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then Return New TBDD_INDEX_MANRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow()) End If End Function _ Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then Return New TBDD_INDEX_AUTOMRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) End If End Function _ Public Function GetTBGI_REGEX_DOCTYPERows() As TBGI_REGEX_DOCTYPERow() If (Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID") Is Nothing) Then Return New TBGI_REGEX_DOCTYPERow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBGI_REGEX_DOCTYPERow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_INDEX_MANRow Inherits Global.System.Data.DataRow Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value End Set End Property _ Public Property DOK_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String) End Get Set Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value End Set End Property _ Public Property WD_INDEX() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value End Set End Property _ Public Property DATATYPE() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value End Set End Property _ Public Property SUGGESTION() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value End Set End Property _ Public Property DEFAULT_VALUE() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) End Get Set Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value End Set End Property _ Public Property CONNECTION_ID() As Short Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value End Set End Property _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) End Get Set Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value End Set End Property _ Public Property SQL_CHECK() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) End Get Set Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value End Set End Property _ Public Property _OPTIONAL() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value End Set End Property _ Public Property SAVE_VALUE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value End Set End Property _ Public Property MULTISELECT() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value End Set End Property _ Public Property VKT_ADD_ITEM() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value End Set End Property _ Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value End Set End Property _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")) End Set End Property _ Public Function IsWD_INDEXNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) End Function _ Public Sub SetWD_INDEXNull() Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATATYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) End Function _ Public Sub SetDATATYPENull() Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) End Function _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_INDEX_AUTOMRow Inherits Global.System.Data.DataRow Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value End Set End Property _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn) = value End Set End Property _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value End Set End Property _ Public Property VALUE() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value End Set End Property _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value End Set End Property _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value End Set End Property _ Public Property SQL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value End Set End Property _ Public Property SEQUENCE() As Byte Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn),Byte) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) End Set End Property _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) End Function _ Public Sub SetVALUENull() Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBGI_REGEX_DOCTYPERow Inherits Global.System.Data.DataRow Private tableTBGI_REGEX_DOCTYPE As TBGI_REGEX_DOCTYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBGI_REGEX_DOCTYPE = CType(Me.Table,TBGI_REGEX_DOCTYPEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn),Integer) End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn) = value End Set End Property _ Public Property REGEX() As String Get Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn),String) End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn) = value End Set End Property _ Public Property DOCTYPE_ID() As Integer Get Try Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOCTYPE_ID in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBDD_DOKUMENTARTRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")) End Set End Property _ Public Function IsDOCTYPE_IDNull() As Boolean Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) End Function _ Public Sub SetDOCTYPE_IDNull() Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBTEMP_INDEXRESULTSRow Inherits Global.System.Data.DataRow Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) End Sub _ Public Property Indexname() As String Get Try Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value End Set End Property _ Public Property Value() As String Get Try Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value End Set End Property _ Public Property Dokumentart() As String Get Try Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value End Set End Property _ Public Function IsIndexnameNull() As Boolean Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) End Function _ Public Sub SetIndexnameNull() Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsValueNull() As Boolean Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) End Function _ Public Sub SetValueNull() Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokumentartNull() As Boolean Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) End Function _ Public Sub SetDokumentartNull() Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBDD_DOKUMENTARTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_DOKUMENTARTRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow 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_INDEX_MANRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_INDEX_MANRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_INDEX_MANRow 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_INDEX_AUTOMRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_INDEX_AUTOMRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow 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 TBGI_REGEX_DOCTYPERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBGI_REGEX_DOCTYPERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBGI_REGEX_DOCTYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBGI_REGEX_DOCTYPERow 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 TBTEMP_INDEXRESULTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBTEMP_INDEXRESULTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow 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 GlobixDatasetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_DOKUMENTARTTableAdapter 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 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 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 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_DOKUMENTART" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING") tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") tableMapping.ColumnMappings.Add("IDB_OBJECT_STORE_ID", "IDB_OBJECT_STORE_ID") 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_DOKUMENTART"&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 TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@"& _ "NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQU"& _ "ENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_"& _ "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLIC"& _ "ATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTW"& _ "ANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTI"& _ "TY())" 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, 50, 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("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", 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("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", 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("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ "NDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _ "G"&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, BEZEICHNUNG, OBJEKTTYP"& _ ", EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR"& _ "_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLT"& _ "WER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART 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, 50, 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("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", 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("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", 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("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", 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("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, "& _ "BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANG"& _ "UAGE, SEQUENCE, NAMENKONVENTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ERSTELLTWER, ERSTELL"& _ "TWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOK"& _ "UMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).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.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTA"& _ "RT.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_D"& _ "OKUMENTART.ZIEL_PFAD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART.BESCHREIBUNG, "& _ "TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUME"& _ "NTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBD"& _ "D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _ "ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_"& _ "DOKUMENTART.IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_D"& _ "OKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON"& _ " TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODUL"& _ "ES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal GUID As Integer) As GlobixDataset.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillAllDoctypes(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetDataDoctypes() As GlobixDataset.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable 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 Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (EINGANGSART_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) End If If (ZIEL_PFAD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) If (NAMENKONVENTION Is Nothing) Then Throw New Global.System.ArgumentNullException("NAMENKONVENTION") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) End If If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) End If If (OBJEKTTYP Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) If (FOLDER_FOR_INDEX Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) If (DUPLICATE_HANDLING Is Nothing) Then Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,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 Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (EINGANGSART_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) End If If (ZIEL_PFAD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) If (NAMENKONVENTION Is Nothing) Then Throw New Global.System.ArgumentNullException("NAMENKONVENTION") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) End If If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) End If If (OBJEKTTYP Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) If (FOLDER_FOR_INDEX Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) If (DUPLICATE_HANDLING Is Nothing) Then Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(14).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_INDEX_MANTableAdapter 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 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 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 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_INDEX_MAN" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") 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("MULTISELECT", "MULTISELECT") tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") 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_INDEX_MAN"&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 TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ "SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _ "NAME,@WD_INDEX,@COMMENT,@DATATYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 1,@DEFAULT_VALUE,@"& _ "CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@AD"& _ "DED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ ", DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTI"& _ "ON_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO,"& _ " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_M"& _ "ULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQU"& _ "ENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, 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("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, 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("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", 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_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", 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("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = 1, D"& _ "EFAULT_VALUE = @DEFAULT_VALUE, CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK"& _ ", OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, CHANGED_WHO "& _ "= @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MULTISELECT = @MULTISELECT, VKT_ADD_I"& _ "TEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES"&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, DOK_ID, NAME, WD_INDEX, C"& _ "OMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT"& _ ", SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ "HANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_IN"& _ "DEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, 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("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, 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("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", 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_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", 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("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT 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, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, A"& _ "CTIVE, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO, CHANGED_WH"& _ "EN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _ "_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOKID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable, ByVal DOKID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_MANDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) Dim dataTable As GlobixDataset.TBDD_INDEX_MANDataTable = New GlobixDataset.TBDD_INDEX_MANDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable 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 Overloads Overridable Function Insert( _ ByVal DOK_ID As Integer, _ ByVal NAME As String, _ ByVal WD_INDEX As String, _ ByVal COMMENT As String, _ ByVal DATATYPE As String, _ ByVal DEFAULT_VALUE As String, _ ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ ByVal SEQUENCE As Integer, _ ByVal SQL_RESULT As String, _ ByVal SQL_CHECK As String, _ ByVal _OPTIONAL As Boolean, _ ByVal SAVE_VALUE As Boolean, _ ByVal ACTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal MULTISELECT As Boolean, _ ByVal VKT_ADD_ITEM As Boolean, _ ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If If (WD_INDEX Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If If (DATATYPE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) End If If (DEFAULT_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String) End If If (CONNECTION_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(SEQUENCE,Integer) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_RESULT,String) End If If (SQL_CHECK Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_CHECK") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_CHECK,String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(_OPTIONAL,Boolean) Me.Adapter.InsertCommand.Parameters(11).Value = CType(SAVE_VALUE,Boolean) Me.Adapter.InsertCommand.Parameters(12).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(ADDED_WHO,String) End If Me.Adapter.InsertCommand.Parameters(14).Value = CType(MULTISELECT,Boolean) Me.Adapter.InsertCommand.Parameters(15).Value = CType(VKT_ADD_ITEM,Boolean) Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) 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 Overloads Overridable Function Update( _ ByVal DOK_ID As Integer, _ ByVal NAME As String, _ ByVal WD_INDEX As String, _ ByVal COMMENT As String, _ ByVal DATATYPE As String, _ ByVal DEFAULT_VALUE As String, _ ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ ByVal SEQUENCE As Integer, _ ByVal SQL_RESULT As String, _ ByVal SQL_CHECK As String, _ ByVal _OPTIONAL As Boolean, _ ByVal SAVE_VALUE As Boolean, _ ByVal ACTIVE As Boolean, _ ByVal CHANGED_WHO As String, _ ByVal MULTISELECT As Boolean, _ ByVal VKT_ADD_ITEM As Boolean, _ ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If If (WD_INDEX Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If If (DATATYPE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) End If If (DEFAULT_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String) End If If (CONNECTION_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SEQUENCE,Integer) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_RESULT,String) End If If (SQL_CHECK Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_CHECK") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_CHECK,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(_OPTIONAL,Boolean) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SAVE_VALUE,Boolean) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MULTISELECT,Boolean) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(VKT_ADD_ITEM,Boolean) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(18).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_INDEX_AUTOMTableAdapter 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 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 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 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_INDEX_AUTOM" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") tableMapping.ColumnMappings.Add("VALUE", "VALUE") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") 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") 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_INDEX_AUTOM"&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 TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, ENTITY_ID, IN"& _ "DEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE"& _ ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTIO"& _ "N_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ "ID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTI"& _ "VE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ "FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, 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("@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("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, 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("@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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, ENTIT"& _ "Y_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONN"& _ "ECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WH"& _ "O = @CHANGED_WHO"&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, DOCTYPE_I"& _ "D, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, "& _ "ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_IND"& _ "EX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, 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("@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("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, 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("@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("@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.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT 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, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_R"& _ "ESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ ", CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DO"& _ "KID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOKID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) Dim dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable = New GlobixDataset.TBDD_INDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable 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 Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEXNAME,String) End If If (VALUE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(VALUE,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(CONNECTION_ID,Short) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_RESULT,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(ACTIVE,Boolean) Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,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 Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEXNAME,String) End If If (VALUE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VALUE,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CONNECTION_ID,Short) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_RESULT,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ACTIVE,Boolean) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(12).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 TBGI_REGEX_DOCTYPETableAdapter 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 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 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 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 = "TBGI_REGEX_DOCTYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("REGEX", "REGEX") tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") 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") 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 TBGI_REGEX_DOCTYPE"&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 TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (REGEX, DOCTYPE_ID, ADDE"& _ "D_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@REGEX,@DOCTYPE_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, REGEX, DOC"& _ "TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_REGEX_DOCTYP"& _ "E WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET REGEX = @REGEX, DOCTYPE_ID = "& _ "@DOCTYPE_ID, CHANGED_WHO = @CHANGED_WHO"&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, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ "N FROM TBGI_REGEX_DOCTYPE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", 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("@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.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT 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, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ "D_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @DOCTYPEID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPEID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable, ByVal DOCTYPEID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPEID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal DOCTYPEID As Integer) As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPEID,Integer) Dim dataTable As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable = New GlobixDataset.TBGI_REGEX_DOCTYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGI_REGEX_DOCTYPE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable 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 Overloads Overridable Function Insert(ByVal REGEX As String, ByVal DOCTYPE_ID As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(REGEX,String) End If If (DOCTYPE_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(DOCTYPE_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If 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 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 Overloads Overridable Function Update(ByVal REGEX As String, ByVal DOCTYPE_ID As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(REGEX,String) End If If (DOCTYPE_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DOCTYPE_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If 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 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(4).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 _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter Private _tBDD_INDEX_MANTableAdapter As TBDD_INDEX_MANTableAdapter Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter Private _tBGI_REGEX_DOCTYPETableAdapter As TBGI_REGEX_DOCTYPETableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter Get Return Me._tBDD_DOKUMENTARTTableAdapter End Get Set Me._tBDD_DOKUMENTARTTableAdapter = value End Set End Property _ Public Property TBDD_INDEX_MANTableAdapter() As TBDD_INDEX_MANTableAdapter Get Return Me._tBDD_INDEX_MANTableAdapter End Get Set Me._tBDD_INDEX_MANTableAdapter = value End Set End Property _ Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter Get Return Me._tBDD_INDEX_AUTOMTableAdapter End Get Set Me._tBDD_INDEX_AUTOMTableAdapter = value End Set End Property _ Public Property TBGI_REGEX_DOCTYPETableAdapter() As TBGI_REGEX_DOCTYPETableAdapter Get Return Me._tBGI_REGEX_DOCTYPETableAdapter End Get Set Me._tBGI_REGEX_DOCTYPETableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set 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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_DOKUMENTARTTableAdapter.Connection End If If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_INDEX_MANTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_INDEX_MANTableAdapter.Connection End If If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection End If If ((Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBGI_REGEX_DOCTYPETableAdapter.Connection) Is Nothing)) Then Return Me._tBGI_REGEX_DOCTYPETableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) 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 GlobixDataset, 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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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_DOKUMENTARTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.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_INDEX_MANTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.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_INDEX_AUTOMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGI_REGEX_DOCTYPE.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._tBGI_REGEX_DOCTYPETableAdapter.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 GlobixDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGI_REGEX_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBGI_REGEX_DOCTYPETableAdapter.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 GlobixDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_REGEX_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBGI_REGEX_DOCTYPETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_DOKUMENTARTTableAdapter.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 GlobixDataset) 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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.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_INDEX_MANTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_MANTableAdapter.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_INDEX_AUTOMTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.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._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBGI_REGEX_DOCTYPETableAdapter.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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) End If End If If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_INDEX_MANTableAdapter, Me._tBDD_INDEX_MANTableAdapter.Connection) Me._tBDD_INDEX_MANTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_INDEX_MANTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MANTableAdapter.Adapter) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) End If End If If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBGI_REGEX_DOCTYPETableAdapter, Me._tBGI_REGEX_DOCTYPETableAdapter.Connection) Me._tBGI_REGEX_DOCTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBGI_REGEX_DOCTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBGI_REGEX_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBGI_REGEX_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGI_REGEX_DOCTYPETableAdapter.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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then Me._tBDD_INDEX_MANTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MANTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_INDEX_MANTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing End If If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then Me._tBGI_REGEX_DOCTYPETableAdapter.Connection = CType(revertConnections(Me._tBGI_REGEX_DOCTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBGI_REGEX_DOCTYPETableAdapter.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