diff --git a/Global_Indexer/ClassFormFunctions.vb b/Global_Indexer/ClassFormFunctions.vb index 14923a2..39ace87 100644 --- a/Global_Indexer/ClassFormFunctions.vb +++ b/Global_Indexer/ClassFormFunctions.vb @@ -7,7 +7,7 @@ Public Class ClassFormFunctions Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) If DTConnection.Rows.Count = 1 Then Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper - Case "MS-SQLServer".ToUpper + Case "MS-SQL".ToUpper If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;" Else diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb index 5429c7e..456544b 100644 --- a/Global_Indexer/MyDataset.Designer.vb +++ b/Global_Indexer/MyDataset.Designer.vb @@ -388,219 +388,219 @@ Partial Public Class MyDataset _ + Global.System.ComponentModel.Browsable(false), + Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable Get Return Me.tableTBDD_USER_GROUPS End Get End Property - - _ + + Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable Get Return Me.tableTBDD_GROUPS_USER End Get End Property - - _ + + Public ReadOnly Property VWGI_USER_GROUPS_RELATION() As VWGI_USER_GROUPS_RELATIONDataTable Get Return Me.tableVWGI_USER_GROUPS_RELATION End Get End Property - - _ + + Public ReadOnly Property VWGI_DOCTYPE_GROUP() As VWGI_DOCTYPE_GROUPDataTable Get Return Me.tableVWGI_DOCTYPE_GROUP End Get End Property - - _ + + Public ReadOnly Property TBHOTKEY_PROFILE() As TBHOTKEY_PROFILEDataTable Get Return Me.tableTBHOTKEY_PROFILE End Get End Property - - _ + + Public ReadOnly Property TBHOTKEY_PATTERNS() As TBHOTKEY_PATTERNSDataTable Get Return Me.tableTBHOTKEY_PATTERNS End Get End Property - - _ + + Public ReadOnly Property TBMYHOTKEYS() As TBMYHOTKEYSDataTable Get Return Me.tableTBMYHOTKEYS End Get End Property - - _ + + Public ReadOnly Property TBHOTKEY_USER_PROFILE() As TBHOTKEY_USER_PROFILEDataTable Get Return Me.tableTBHOTKEY_USER_PROFILE End Get End Property - - _ + + Public ReadOnly Property TBHOTKEY_PATTERNS_REWORK() As TBHOTKEY_PATTERNS_REWORKDataTable Get Return Me.tableTBHOTKEY_PATTERNS_REWORK End Get End Property - - _ + + Public ReadOnly Property TBHOTKEY_WINDOW_HOOK() As TBHOTKEY_WINDOW_HOOKDataTable Get Return Me.tableTBHOTKEY_WINDOW_HOOK End Get End Property - - _ + + Public ReadOnly Property TBGI_FILES_USER() As TBGI_FILES_USERDataTable Get Return Me.tableTBGI_FILES_USER End Get End Property - - _ + + Public ReadOnly Property TBGI_HISTORY() As TBGI_HISTORYDataTable Get Return Me.tableTBGI_HISTORY End Get End Property - - _ + + Public ReadOnly Property TBTempFiles2Index() As TBTempFiles2IndexDataTable Get Return Me.tableTBTempFiles2Index End Get End Property - - _ + + Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable Get Return Me.tableTBTEMP_INDEXRESULTS End Get End Property - - _ + + Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable Get Return Me.tableTBAD_Users End Get End Property - - _ + + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set - Me._schemaSerializationMode = value + 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 + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) - cln.InitVars + Dim cln As MyDataset = CType(MyBase.Clone, MyDataset) + cln.InitVars() cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + Protected Overrides Function ShouldSerializeTables() As Boolean - Return false + Return False End Function - - _ + + Protected Overrides Function ShouldSerializeRelations() As Boolean - Return false + 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 + Me.Reset() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then @@ -696,204 +696,204 @@ Partial Public Class MyDataset Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXml(reader) - Me.InitVars + 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) + Me.InitVars(True) End Sub - - _ + + Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) - If (initTable = true) Then + Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"), TBDD_USERDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_USER) Is Nothing) Then - Me.tableTBDD_USER.InitVars + Me.tableTBDD_USER.InitVars() End If End If - Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) - If (initTable = true) Then + 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 + Me.tableTBDD_DOKUMENTART.InitVars() End If End If - Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"),TBDD_EINGANGSARTENDataTable) - If (initTable = true) Then + Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"), TBDD_EINGANGSARTENDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_EINGANGSARTEN) Is Nothing) Then - Me.tableTBDD_EINGANGSARTEN.InitVars + Me.tableTBDD_EINGANGSARTEN.InitVars() End If End If - Me.tableTBDD_DOKART_MODULE = CType(MyBase.Tables("TBDD_DOKART_MODULE"),TBDD_DOKART_MODULEDataTable) - If (initTable = true) Then + Me.tableTBDD_DOKART_MODULE = CType(MyBase.Tables("TBDD_DOKART_MODULE"), TBDD_DOKART_MODULEDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_DOKART_MODULE) Is Nothing) Then - Me.tableTBDD_DOKART_MODULE.InitVars + Me.tableTBDD_DOKART_MODULE.InitVars() End If End If - Me.tableTBDD_MODULES = CType(MyBase.Tables("TBDD_MODULES"),TBDD_MODULESDataTable) - If (initTable = true) Then + Me.tableTBDD_MODULES = CType(MyBase.Tables("TBDD_MODULES"), TBDD_MODULESDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_MODULES) Is Nothing) Then - Me.tableTBDD_MODULES.InitVars + Me.tableTBDD_MODULES.InitVars() End If End If - Me.tableTBDD_INDEX_MAN = CType(MyBase.Tables("TBDD_INDEX_MAN"),TBDD_INDEX_MANDataTable) - If (initTable = true) Then + 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 + Me.tableTBDD_INDEX_MAN.InitVars() End If End If - Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) - If (initTable = true) Then + Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"), TBDD_CONNECTIONDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then - Me.tableTBDD_CONNECTION.InitVars + Me.tableTBDD_CONNECTION.InitVars() End If End If - Me.tableVWDDINDEX_MAN = CType(MyBase.Tables("VWDDINDEX_MAN"),VWDDINDEX_MANDataTable) - If (initTable = true) Then + Me.tableVWDDINDEX_MAN = CType(MyBase.Tables("VWDDINDEX_MAN"), VWDDINDEX_MANDataTable) + If (initTable = True) Then If (Not (Me.tableVWDDINDEX_MAN) Is Nothing) Then - Me.tableVWDDINDEX_MAN.InitVars + Me.tableVWDDINDEX_MAN.InitVars() End If End If - Me.tableVWDDINDEX_AUTOM = CType(MyBase.Tables("VWDDINDEX_AUTOM"),VWDDINDEX_AUTOMDataTable) - If (initTable = true) Then + Me.tableVWDDINDEX_AUTOM = CType(MyBase.Tables("VWDDINDEX_AUTOM"), VWDDINDEX_AUTOMDataTable) + If (initTable = True) Then If (Not (Me.tableVWDDINDEX_AUTOM) Is Nothing) Then - Me.tableVWDDINDEX_AUTOM.InitVars + Me.tableVWDDINDEX_AUTOM.InitVars() End If End If - Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) - If (initTable = true) Then + 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 + Me.tableTBDD_INDEX_AUTOM.InitVars() End If End If - Me.tableTBGI_CONFIGURATION = CType(MyBase.Tables("TBGI_CONFIGURATION"),TBGI_CONFIGURATIONDataTable) - If (initTable = true) Then + Me.tableTBGI_CONFIGURATION = CType(MyBase.Tables("TBGI_CONFIGURATION"), TBGI_CONFIGURATIONDataTable) + If (initTable = True) Then If (Not (Me.tableTBGI_CONFIGURATION) Is Nothing) Then - Me.tableTBGI_CONFIGURATION.InitVars + Me.tableTBGI_CONFIGURATION.InitVars() End If End If - Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(MyBase.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX"),TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) - If (initTable = true) Then + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(MyBase.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX"), TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + If (initTable = True) Then If (Not (Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX) Is Nothing) Then - Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.InitVars + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.InitVars() End If End If - Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(MyBase.Tables("TBDD_INDEX_MAN_POSTPROCESSING"),TBDD_INDEX_MAN_POSTPROCESSINGDataTable) - If (initTable = true) Then + Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(MyBase.Tables("TBDD_INDEX_MAN_POSTPROCESSING"), TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_INDEX_MAN_POSTPROCESSING) Is Nothing) Then - Me.tableTBDD_INDEX_MAN_POSTPROCESSING.InitVars + Me.tableTBDD_INDEX_MAN_POSTPROCESSING.InitVars() End If End If - Me.tableTBWHDD_INDEX_MAN = CType(MyBase.Tables("TBWHDD_INDEX_MAN"),TBWHDD_INDEX_MANDataTable) - If (initTable = true) Then + Me.tableTBWHDD_INDEX_MAN = CType(MyBase.Tables("TBWHDD_INDEX_MAN"), TBWHDD_INDEX_MANDataTable) + If (initTable = True) Then If (Not (Me.tableTBWHDD_INDEX_MAN) Is Nothing) Then - Me.tableTBWHDD_INDEX_MAN.InitVars + Me.tableTBWHDD_INDEX_MAN.InitVars() End If End If - Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable) - If (initTable = true) Then + Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"), TBDD_USER_GROUPSDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then - Me.tableTBDD_USER_GROUPS.InitVars + Me.tableTBDD_USER_GROUPS.InitVars() End If End If - Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) - If (initTable = true) Then + Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"), TBDD_GROUPS_USERDataTable) + If (initTable = True) Then If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then - Me.tableTBDD_GROUPS_USER.InitVars + Me.tableTBDD_GROUPS_USER.InitVars() End If End If - Me.tableVWGI_USER_GROUPS_RELATION = CType(MyBase.Tables("VWGI_USER_GROUPS_RELATION"),VWGI_USER_GROUPS_RELATIONDataTable) - If (initTable = true) Then + Me.tableVWGI_USER_GROUPS_RELATION = CType(MyBase.Tables("VWGI_USER_GROUPS_RELATION"), VWGI_USER_GROUPS_RELATIONDataTable) + If (initTable = True) Then If (Not (Me.tableVWGI_USER_GROUPS_RELATION) Is Nothing) Then - Me.tableVWGI_USER_GROUPS_RELATION.InitVars + Me.tableVWGI_USER_GROUPS_RELATION.InitVars() End If End If - Me.tableVWGI_DOCTYPE_GROUP = CType(MyBase.Tables("VWGI_DOCTYPE_GROUP"),VWGI_DOCTYPE_GROUPDataTable) - If (initTable = true) Then + Me.tableVWGI_DOCTYPE_GROUP = CType(MyBase.Tables("VWGI_DOCTYPE_GROUP"), VWGI_DOCTYPE_GROUPDataTable) + If (initTable = True) Then If (Not (Me.tableVWGI_DOCTYPE_GROUP) Is Nothing) Then - Me.tableVWGI_DOCTYPE_GROUP.InitVars + Me.tableVWGI_DOCTYPE_GROUP.InitVars() End If End If - Me.tableTBHOTKEY_PROFILE = CType(MyBase.Tables("TBHOTKEY_PROFILE"),TBHOTKEY_PROFILEDataTable) - If (initTable = true) Then + Me.tableTBHOTKEY_PROFILE = CType(MyBase.Tables("TBHOTKEY_PROFILE"), TBHOTKEY_PROFILEDataTable) + If (initTable = True) Then If (Not (Me.tableTBHOTKEY_PROFILE) Is Nothing) Then - Me.tableTBHOTKEY_PROFILE.InitVars + Me.tableTBHOTKEY_PROFILE.InitVars() End If End If - Me.tableTBHOTKEY_PATTERNS = CType(MyBase.Tables("TBHOTKEY_PATTERNS"),TBHOTKEY_PATTERNSDataTable) - If (initTable = true) Then + Me.tableTBHOTKEY_PATTERNS = CType(MyBase.Tables("TBHOTKEY_PATTERNS"), TBHOTKEY_PATTERNSDataTable) + If (initTable = True) Then If (Not (Me.tableTBHOTKEY_PATTERNS) Is Nothing) Then - Me.tableTBHOTKEY_PATTERNS.InitVars + Me.tableTBHOTKEY_PATTERNS.InitVars() End If End If - Me.tableTBMYHOTKEYS = CType(MyBase.Tables("TBMYHOTKEYS"),TBMYHOTKEYSDataTable) - If (initTable = true) Then + Me.tableTBMYHOTKEYS = CType(MyBase.Tables("TBMYHOTKEYS"), TBMYHOTKEYSDataTable) + If (initTable = True) Then If (Not (Me.tableTBMYHOTKEYS) Is Nothing) Then - Me.tableTBMYHOTKEYS.InitVars + Me.tableTBMYHOTKEYS.InitVars() End If End If - Me.tableTBHOTKEY_USER_PROFILE = CType(MyBase.Tables("TBHOTKEY_USER_PROFILE"),TBHOTKEY_USER_PROFILEDataTable) - If (initTable = true) Then + Me.tableTBHOTKEY_USER_PROFILE = CType(MyBase.Tables("TBHOTKEY_USER_PROFILE"), TBHOTKEY_USER_PROFILEDataTable) + If (initTable = True) Then If (Not (Me.tableTBHOTKEY_USER_PROFILE) Is Nothing) Then - Me.tableTBHOTKEY_USER_PROFILE.InitVars + Me.tableTBHOTKEY_USER_PROFILE.InitVars() End If End If - Me.tableTBHOTKEY_PATTERNS_REWORK = CType(MyBase.Tables("TBHOTKEY_PATTERNS_REWORK"),TBHOTKEY_PATTERNS_REWORKDataTable) - If (initTable = true) Then + Me.tableTBHOTKEY_PATTERNS_REWORK = CType(MyBase.Tables("TBHOTKEY_PATTERNS_REWORK"), TBHOTKEY_PATTERNS_REWORKDataTable) + If (initTable = True) Then If (Not (Me.tableTBHOTKEY_PATTERNS_REWORK) Is Nothing) Then - Me.tableTBHOTKEY_PATTERNS_REWORK.InitVars + Me.tableTBHOTKEY_PATTERNS_REWORK.InitVars() End If End If - Me.tableTBHOTKEY_WINDOW_HOOK = CType(MyBase.Tables("TBHOTKEY_WINDOW_HOOK"),TBHOTKEY_WINDOW_HOOKDataTable) - If (initTable = true) Then + Me.tableTBHOTKEY_WINDOW_HOOK = CType(MyBase.Tables("TBHOTKEY_WINDOW_HOOK"), TBHOTKEY_WINDOW_HOOKDataTable) + If (initTable = True) Then If (Not (Me.tableTBHOTKEY_WINDOW_HOOK) Is Nothing) Then - Me.tableTBHOTKEY_WINDOW_HOOK.InitVars + Me.tableTBHOTKEY_WINDOW_HOOK.InitVars() End If End If - Me.tableTBGI_FILES_USER = CType(MyBase.Tables("TBGI_FILES_USER"),TBGI_FILES_USERDataTable) - If (initTable = true) Then + Me.tableTBGI_FILES_USER = CType(MyBase.Tables("TBGI_FILES_USER"), TBGI_FILES_USERDataTable) + If (initTable = True) Then If (Not (Me.tableTBGI_FILES_USER) Is Nothing) Then - Me.tableTBGI_FILES_USER.InitVars + Me.tableTBGI_FILES_USER.InitVars() End If End If - Me.tableTBGI_HISTORY = CType(MyBase.Tables("TBGI_HISTORY"),TBGI_HISTORYDataTable) - If (initTable = true) Then + Me.tableTBGI_HISTORY = CType(MyBase.Tables("TBGI_HISTORY"), TBGI_HISTORYDataTable) + If (initTable = True) Then If (Not (Me.tableTBGI_HISTORY) Is Nothing) Then - Me.tableTBGI_HISTORY.InitVars + Me.tableTBGI_HISTORY.InitVars() End If End If - Me.tableTBTempFiles2Index = CType(MyBase.Tables("TBTempFiles2Index"),TBTempFiles2IndexDataTable) - If (initTable = true) Then + Me.tableTBTempFiles2Index = CType(MyBase.Tables("TBTempFiles2Index"), TBTempFiles2IndexDataTable) + If (initTable = True) Then If (Not (Me.tableTBTempFiles2Index) Is Nothing) Then - Me.tableTBTempFiles2Index.InitVars + Me.tableTBTempFiles2Index.InitVars() End If End If - Me.tableTBTEMP_INDEXRESULTS = CType(MyBase.Tables("TBTEMP_INDEXRESULTS"),TBTEMP_INDEXRESULTSDataTable) - If (initTable = true) Then + 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 + Me.tableTBTEMP_INDEXRESULTS.InitVars() End If End If - Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"),TBAD_UsersDataTable) - If (initTable = true) Then + Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"), TBAD_UsersDataTable) + If (initTable = True) Then If (Not (Me.tableTBAD_Users) Is Nothing) Then - Me.tableTBAD_Users.InitVars + Me.tableTBAD_Users.InitVars() End If End If Me.relationFK_TBDD_DOKUMENTART_EINGID = Me.Relations("FK_TBDD_DOKUMENTART_EINGID") @@ -912,14 +912,14 @@ Partial Public Class MyDataset Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID = Me.Relations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID = Me.Relations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") End Sub - - _ + + Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" Me.Namespace = "http://tempuri.org/MyDataset.xsd" - Me.EnforceConstraints = true + Me.EnforceConstraints = True Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBDD_USER = New TBDD_USERDataTable() MyBase.Tables.Add(Me.tableTBDD_USER) @@ -979,222 +979,222 @@ Partial Public Class MyDataset MyBase.Tables.Add(Me.tableTBTEMP_INDEXRESULTS) Me.tableTBAD_Users = New TBAD_UsersDataTable() MyBase.Tables.Add(Me.tableTBAD_Users) - Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, false) + Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBDD_DOKUMENTART_EINGID) - Me.relationFK_TBDD_INDEX_MAN_CID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_CID", New Global.System.Data.DataColumn() {Me.tableTBDD_CONNECTION.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn}, false) + Me.relationFK_TBDD_INDEX_MAN_CID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_CID", New Global.System.Data.DataColumn() {Me.tableTBDD_CONNECTION.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBDD_INDEX_MAN_CID) - 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.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.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID", New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false) + Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID", New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, False) Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID) - Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1", New Global.System.Data.DataColumn() {Me.tableTBWHDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false) + Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1", New Global.System.Data.DataColumn() {Me.tableTBWHDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, False) Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1) - Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) - Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) + Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) - 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.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_TBHOTKEY_PATTERNS_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn}, false) + Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID) - Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_PROFILE_ID1", New Global.System.Data.DataColumn() {Me.tableTBMYHOTKEYS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn}, false) + Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_PROFILE_ID1", New Global.System.Data.DataColumn() {Me.tableTBMYHOTKEYS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1) - Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn}, false) + Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID) - Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1", New Global.System.Data.DataColumn() {Me.tableTBMYHOTKEYS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn}, false) + Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1", New Global.System.Data.DataColumn() {Me.tableTBMYHOTKEYS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1) - Me.relationFK_TBHOTKEY_USER_PROFILE_USER_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn}, false) + Me.relationFK_TBHOTKEY_USER_PROFILE_USER_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_USER_PROFILE_USER_ID) - Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn}, false) + Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID) - Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn}, false) + Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID) End Sub - - _ + + Private Function ShouldSerializeTBDD_USER() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_DOKART_MODULE() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_MODULES() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_CONNECTION() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeVWDDINDEX_MAN() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBGI_CONFIGURATION() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBGI_OBJECTTYPE_EMAIL_INDEX() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_INDEX_MAN_POSTPROCESSING() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBWHDD_INDEX_MAN() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeVWGI_USER_GROUPS_RELATION() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeVWGI_DOCTYPE_GROUP() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBHOTKEY_PROFILE() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBHOTKEY_PATTERNS() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBMYHOTKEYS() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBHOTKEY_USER_PROFILE() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBHOTKEY_PATTERNS_REWORK() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBHOTKEY_WINDOW_HOOK() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBGI_FILES_USER() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBGI_HISTORY() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBTempFiles2Index() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBAD_Users() As Boolean - Return false + 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 + 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 MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -1207,179 +1207,179 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If xs.Add(dsSchema) Return type End Function - - _ + + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) - - _ + + Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) - - _ + + Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent) - - _ + + Public Delegate Sub TBDD_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKART_MODULERowChangeEvent) - - _ + + Public Delegate Sub TBDD_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_MODULESRowChangeEvent) - - _ + + Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent) - - _ + + Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) - - _ + + Public Delegate Sub VWDDINDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_MANRowChangeEvent) - - _ + + Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent) - - _ + + Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) - - _ + + Public Delegate Sub TBGI_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_CONFIGURATIONRowChangeEvent) - - _ + + Public Delegate Sub TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent) - - _ + + Public Delegate Sub TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent) - - _ + + Public Delegate Sub TBWHDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWHDD_INDEX_MANRowChangeEvent) - - _ + + Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) - - _ + + Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) - - _ + + Public Delegate Sub VWGI_USER_GROUPS_RELATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_USER_GROUPS_RELATIONRowChangeEvent) - - _ + + Public Delegate Sub VWGI_DOCTYPE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_DOCTYPE_GROUPRowChangeEvent) - - _ + + Public Delegate Sub TBHOTKEY_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PROFILERowChangeEvent) - - _ + + Public Delegate Sub TBHOTKEY_PATTERNSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNSRowChangeEvent) - - _ + + Public Delegate Sub TBMYHOTKEYSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMYHOTKEYSRowChangeEvent) - - _ + + Public Delegate Sub TBHOTKEY_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_USER_PROFILERowChangeEvent) - - _ + + Public Delegate Sub TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNS_REWORKRowChangeEvent) - - _ + + Public Delegate Sub TBHOTKEY_WINDOW_HOOKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_WINDOW_HOOKRowChangeEvent) - - _ + + Public Delegate Sub TBGI_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_FILES_USERRowChangeEvent) - - _ + + Public Delegate Sub TBGI_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_HISTORYRowChangeEvent) - - _ + + Public Delegate Sub TBTempFiles2IndexRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTempFiles2IndexRowChangeEvent) - - _ + + Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) - - _ + + Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnPRENAME As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnUSERNAME As Global.System.Data.DataColumn - + Private columnEMAIL As Global.System.Data.DataColumn - + Private columnLOGGED_IN As Global.System.Data.DataColumn - + Private columnLOGGED_WHERE As Global.System.Data.DataColumn - + Private columnLOG_IN_WHEN As Global.System.Data.DataColumn - + Private columnLOG_OUT_WHEN 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 columnSHORTNAME As Global.System.Data.DataColumn - + Private columnLANGUAGE As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_USER" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1395,201 +1395,201 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property - - _ + + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL End Get End Property - - _ + + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGGED_IN End Get End Property - - _ + + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGGED_WHERE End Get End Property - - _ + + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_IN_WHEN End Get End Property - - _ + + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_OUT_WHEN 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 SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME End Get End Property - - _ + + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get - Return CType(Me.Rows(index),TBDD_USERRow) + Return CType(Me.Rows(index), TBDD_USERRow) End Get End Property - - _ + + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - - _ + + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - - _ + + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - - _ + + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHORTNAME As String, ByVal LANGUAGE As String) As TBDD_USERRow - Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) + Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow, TBDD_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE} rowTBDD_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_USERRow) Return rowTBDD_USERRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_USERRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) - cln.InitVars + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone, TBDD_USERDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USERDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -1607,9 +1607,9 @@ Partial Public Class MyDataset Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1641,89 +1641,89 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnSHORTNAME) Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true + Me.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.columnPRENAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 - Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.AllowDBNull = False Me.columnUSERNAME.MaxLength = 50 Me.columnEMAIL.MaxLength = 100 - Me.columnLOGGED_IN.AllowDBNull = false - Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean) + Me.columnLOGGED_IN.AllowDBNull = False + Me.columnLOGGED_IN.DefaultValue = CType(False, Boolean) Me.columnLOGGED_WHERE.MaxLength = 50 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHORTNAME.MaxLength = 30 - Me.columnLANGUAGE.AllowDBNull = false + Me.columnLANGUAGE.AllowDBNull = False Me.columnLANGUAGE.MaxLength = 5 End Sub - - _ + + Public Function NewTBDD_USERRow() As TBDD_USERRow - Return CType(Me.NewRow,TBDD_USERRow) + Return CType(Me.NewRow, TBDD_USERRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USERRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USERRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row, TBDD_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row, TBDD_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row, TBDD_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row, TBDD_USERRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) 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() @@ -1752,35 +1752,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1788,61 +1788,61 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''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 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 columnAKTIV 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 columnOBJEKTTYP As Global.System.Data.DataColumn - + Private columnWINDREAM_DIRECT As Global.System.Data.DataColumn - + Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_DOKUMENTART" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1858,205 +1858,205 @@ Partial Public Class MyDataset 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 + 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 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 AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV 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 OBJEKTTYPColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJEKTTYP 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 SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow Get - Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + 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 parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, _ - 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 ERSTELLTWANN As Date, _ - ByVal GEANDERTWER As String, _ - ByVal GEAENDERTWANN As Date, _ - ByVal OBJEKTTYP As String, _ - ByVal WINDREAM_DIRECT As Boolean, _ - ByVal FOLDER_FOR_INDEX As String, _ - ByVal SEQUENCE As Integer, _ + + + Public Overloads Function AddTBDD_DOKUMENTARTRow( + ByVal BEZEICHNUNG As String, + ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, + 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 ERSTELLTWANN As Date, + ByVal GEANDERTWER As String, + ByVal GEAENDERTWANN As Date, + 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 TBDD_DOKUMENTARTRow - Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow, TBDD_DOKUMENTARTRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING} If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) @@ -2065,29 +2065,29 @@ Partial Public Class MyDataset 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) + 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 + 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") @@ -2107,9 +2107,9 @@ Partial Public Class MyDataset Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnDUPLICATE_HANDLING = MyBase.Columns("DUPLICATE_HANDLING") 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) @@ -2145,105 +2145,105 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnSEQUENCE) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnBEZEICHNUNG.AllowDBNull = False Me.columnBEZEICHNUNG.MaxLength = 50 - Me.columnEINGANGSART_ID.AllowDBNull = false - Me.columnEINGANGSART_ID.DefaultValue = CType(2,Byte) - Me.columnKURZNAME.AllowDBNull = false - Me.columnKURZNAME.DefaultValue = CType("",String) + Me.columnEINGANGSART_ID.AllowDBNull = False + Me.columnEINGANGSART_ID.DefaultValue = CType(2, Byte) + Me.columnKURZNAME.AllowDBNull = False + Me.columnKURZNAME.DefaultValue = CType("", String) Me.columnKURZNAME.MaxLength = 50 - Me.columnZIEL_PFAD.AllowDBNull = false + Me.columnZIEL_PFAD.AllowDBNull = False Me.columnZIEL_PFAD.MaxLength = 250 Me.columnBESCHREIBUNG.MaxLength = 250 - Me.columnAKTIV.AllowDBNull = false - Me.columnAKTIV.DefaultValue = CType(false,Boolean) - Me.columnNAMENKONVENTION.AllowDBNull = false + Me.columnAKTIV.AllowDBNull = False + Me.columnAKTIV.DefaultValue = CType(False, Boolean) + Me.columnNAMENKONVENTION.AllowDBNull = False Me.columnNAMENKONVENTION.MaxLength = 500 - Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = False Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 - Me.columnOBJEKTTYP.AllowDBNull = false + Me.columnOBJEKTTYP.AllowDBNull = False Me.columnOBJEKTTYP.MaxLength = 50 - Me.columnWINDREAM_DIRECT.AllowDBNull = false - Me.columnWINDREAM_DIRECT.DefaultValue = CType(false,Boolean) - Me.columnFOLDER_FOR_INDEX.AllowDBNull = false - Me.columnFOLDER_FOR_INDEX.DefaultValue = CType("",String) + Me.columnWINDREAM_DIRECT.AllowDBNull = False + Me.columnWINDREAM_DIRECT.DefaultValue = CType(False, Boolean) + Me.columnFOLDER_FOR_INDEX.AllowDBNull = False + Me.columnFOLDER_FOR_INDEX.DefaultValue = CType("", String) Me.columnFOLDER_FOR_INDEX.MaxLength = 500 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnSEQUENCE.DefaultValue = CType(1,Integer) - Me.columnDUPLICATE_HANDLING.AllowDBNull = false - Me.columnDUPLICATE_HANDLING.DefaultValue = CType("Default",String) + Me.columnSEQUENCE.AllowDBNull = False + Me.columnSEQUENCE.DefaultValue = CType(1, Integer) + Me.columnDUPLICATE_HANDLING.AllowDBNull = False + Me.columnDUPLICATE_HANDLING.DefaultValue = CType("Default", String) Me.columnDUPLICATE_HANDLING.MaxLength = 30 End Sub - - _ + + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow - Return CType(Me.NewRow,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)) + 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)) + 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)) + 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)) + 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() @@ -2272,35 +2272,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2308,41 +2308,41 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_EINGANGSARTENDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - + Private columnBESCHREIBUNG As Global.System.Data.DataColumn - + Private columnERSTELLTWER As Global.System.Data.DataColumn - + Private columnERSTELLTWANN As Global.System.Data.DataColumn - + Private columnGEANDERTWER As Global.System.Data.DataColumn - + Private columnGEAENDERTWANN As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_EINGANGSARTEN" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2358,137 +2358,137 @@ Partial Public Class MyDataset 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 + 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 BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG End Get End Property - - _ + + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER End Get End Property - - _ + + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN End Get End Property - - _ + + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER End Get End Property - - _ + + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EINGANGSARTENRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_EINGANGSARTENRow Get - Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) + Return CType(Me.Rows(index), TBDD_EINGANGSARTENRow) End Get End Property - - _ + + Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler - - _ + + Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler - - _ + + Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler - - _ + + Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow - Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow, TBDD_EINGANGSARTENRow) Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_EINGANGSARTENRow) Return rowTBDD_EINGANGSARTENRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_EINGANGSARTENRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) - cln.InitVars + Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone, TBDD_EINGANGSARTENDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EINGANGSARTENDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -2498,9 +2498,9 @@ Partial Public Class MyDataset Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2516,80 +2516,80 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnGEANDERTWER) Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEAENDERTWANN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnBEZEICHNUNG.AllowDBNull = false + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnBEZEICHNUNG.AllowDBNull = False Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnBESCHREIBUNG.MaxLength = 500 - Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = False Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub - - _ + + Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow - Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Return CType(Me.NewRow, TBDD_EINGANGSARTENRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EINGANGSARTENRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EINGANGSARTENRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row, TBDD_EINGANGSARTENRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row, TBDD_EINGANGSARTENRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row, TBDD_EINGANGSARTENRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row, TBDD_EINGANGSARTENRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) 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() @@ -2618,35 +2618,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2654,31 +2654,31 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_DOKART_MODULEDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKART_MODULERow) - + Private columnID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_DOKART_MODULE" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2694,181 +2694,181 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKART_MODULERow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKART_MODULERow Get - Return CType(Me.Rows(index),TBDD_DOKART_MODULERow) + Return CType(Me.Rows(index), TBDD_DOKART_MODULERow) End Get End Property - - _ + + Public Event TBDD_DOKART_MODULERowChanging As TBDD_DOKART_MODULERowChangeEventHandler - - _ + + Public Event TBDD_DOKART_MODULERowChanged As TBDD_DOKART_MODULERowChangeEventHandler - - _ + + Public Event TBDD_DOKART_MODULERowDeleting As TBDD_DOKART_MODULERowChangeEventHandler - - _ + + Public Event TBDD_DOKART_MODULERowDeleted As TBDD_DOKART_MODULERowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_DOKART_MODULERow(ByVal row As TBDD_DOKART_MODULERow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_DOKART_MODULERow(ByVal NAME As String) As TBDD_DOKART_MODULERow - Dim rowTBDD_DOKART_MODULERow As TBDD_DOKART_MODULERow = CType(Me.NewRow,TBDD_DOKART_MODULERow) + Dim rowTBDD_DOKART_MODULERow As TBDD_DOKART_MODULERow = CType(Me.NewRow, TBDD_DOKART_MODULERow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} rowTBDD_DOKART_MODULERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_DOKART_MODULERow) Return rowTBDD_DOKART_MODULERow End Function - - _ + + Public Function FindByID(ByVal ID As Integer) As TBDD_DOKART_MODULERow - Return CType(Me.Rows.Find(New Object() {ID}),TBDD_DOKART_MODULERow) + Return CType(Me.Rows.Find(New Object() {ID}), TBDD_DOKART_MODULERow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_DOKART_MODULEDataTable = CType(MyBase.Clone,TBDD_DOKART_MODULEDataTable) - cln.InitVars + Dim cln As TBDD_DOKART_MODULEDataTable = CType(MyBase.Clone, TBDD_DOKART_MODULEDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_DOKART_MODULEDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub - - _ + + Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) - Me.columnID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, True)) + Me.columnID.AutoIncrement = True Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 - Me.columnID.AllowDBNull = false - Me.columnID.ReadOnly = true - Me.columnID.Unique = true + Me.columnID.AllowDBNull = False + Me.columnID.ReadOnly = True + Me.columnID.Unique = True Me.columnNAME.MaxLength = 50 End Sub - - _ + + Public Function NewTBDD_DOKART_MODULERow() As TBDD_DOKART_MODULERow - Return CType(Me.NewRow,TBDD_DOKART_MODULERow) + Return CType(Me.NewRow, TBDD_DOKART_MODULERow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_DOKART_MODULERow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_DOKART_MODULERow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_DOKART_MODULERowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_DOKART_MODULERowChanged(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + RaiseEvent TBDD_DOKART_MODULERowChanged(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row, TBDD_DOKART_MODULERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_DOKART_MODULERowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_DOKART_MODULERowChanging(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + RaiseEvent TBDD_DOKART_MODULERowChanging(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row, TBDD_DOKART_MODULERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_DOKART_MODULERowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_DOKART_MODULERowDeleted(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + RaiseEvent TBDD_DOKART_MODULERowDeleted(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row, TBDD_DOKART_MODULERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_DOKART_MODULERowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_DOKART_MODULERowDeleting(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + RaiseEvent TBDD_DOKART_MODULERowDeleting(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row, TBDD_DOKART_MODULERow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_DOKART_MODULERow(ByVal row As TBDD_DOKART_MODULERow) 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() @@ -2897,35 +2897,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2933,31 +2933,31 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_MODULESDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_MODULESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_MODULES" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2973,181 +2973,181 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_MODULESRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_MODULESRow Get - Return CType(Me.Rows(index),TBDD_MODULESRow) + Return CType(Me.Rows(index), TBDD_MODULESRow) End Get End Property - - _ + + Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler - - _ + + Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler - - _ + + Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler - - _ + + Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_MODULESRow(ByVal NAME As String) As TBDD_MODULESRow - Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) + Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow, TBDD_MODULESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} rowTBDD_MODULESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_MODULESRow) Return rowTBDD_MODULESRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_MODULESRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) - cln.InitVars + Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone, TBDD_MODULESDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_MODULESDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True Me.columnNAME.MaxLength = 50 End Sub - - _ + + Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow - Return CType(Me.NewRow,TBDD_MODULESRow) + Return CType(Me.NewRow, TBDD_MODULESRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_MODULESRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_MODULESRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row, TBDD_MODULESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row, TBDD_MODULESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row, TBDD_MODULESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row, TBDD_MODULESRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) 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() @@ -3176,35 +3176,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -3212,65 +3212,65 @@ Partial Public Class MyDataset 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 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 columnOPTIONAL As Global.System.Data.DataColumn - + Private columnSAVE_VALUE As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_INDEX_MAN" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3286,223 +3286,223 @@ Partial Public Class MyDataset 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 + 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 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 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 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 + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MANRow Get - Return CType(Me.Rows(index),TBDD_INDEX_MANRow) + 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 parentTBDD_CONNECTIONRowByFK_TBDD_INDEX_MAN_CID As TBDD_CONNECTIONRow, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_RESULT As String, _ - ByVal SQL_CHECK As String, _ - ByVal ACTIVE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal _OPTIONAL As Boolean, _ + + + 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 parentTBDD_CONNECTIONRowByFK_TBDD_INDEX_MAN_CID As TBDD_CONNECTIONRow, + ByVal SEQUENCE As Integer, + ByVal SQL_RESULT As String, + ByVal SQL_CHECK As String, + ByVal ACTIVE As Boolean, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Date, + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Date, + ByVal _OPTIONAL As Boolean, ByVal SAVE_VALUE As Boolean) As TBDD_INDEX_MANRow - Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,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, Nothing, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _OPTIONAL, SAVE_VALUE} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0) @@ -3514,29 +3514,29 @@ Partial Public Class MyDataset 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) + 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 + 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") @@ -3558,9 +3558,9 @@ Partial Public Class MyDataset Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE") 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) @@ -3603,104 +3603,104 @@ Partial Public Class MyDataset 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.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.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.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.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.columnSEQUENCE.AllowDBNull = false - Me.columnSEQUENCE.DefaultValue = CType(1,Integer) - Me.columnSQL_RESULT.AllowDBNull = false - Me.columnSQL_RESULT.DefaultValue = CType("",String) + 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.AllowDBNull = False + Me.columnSQL_CHECK.DefaultValue = CType("", String) Me.columnSQL_CHECK.MaxLength = 2000 - Me.columnACTIVE.AllowDBNull = false - Me.columnACTIVE.DefaultValue = CType(true,Boolean) - Me.columnADDED_WHO.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = False + Me.columnACTIVE.DefaultValue = CType(True, Boolean) + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnOPTIONAL.AllowDBNull = false - Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) - Me.columnSAVE_VALUE.AllowDBNull = false - Me.columnSAVE_VALUE.DefaultValue = CType(false,Boolean) + Me.columnOPTIONAL.AllowDBNull = False + Me.columnOPTIONAL.DefaultValue = CType(False, Boolean) + Me.columnSAVE_VALUE.AllowDBNull = False + Me.columnSAVE_VALUE.DefaultValue = CType(False, Boolean) End Sub - - _ + + Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow - Return CType(Me.NewRow,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)) + 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)) + 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)) + 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)) + 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() @@ -3729,35 +3729,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -3765,53 +3765,53 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_CONNECTIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - + Private columnSERVER As Global.System.Data.DataColumn - + Private columnDATENBANK As Global.System.Data.DataColumn - + Private columnUSERNAME As Global.System.Data.DataColumn - + Private columnPASSWORD As Global.System.Data.DataColumn - + Private columnBEMERKUNG As Global.System.Data.DataColumn - + Private columnAKTIV As Global.System.Data.DataColumn - + Private columnERSTELLTWER As Global.System.Data.DataColumn - + Private columnERSTELLTWANN As Global.System.Data.DataColumn - + Private columnGEANDERTWER As Global.System.Data.DataColumn - + Private columnGEAENDERTWANN As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_CONNECTION" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3827,185 +3827,185 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG End Get End Property - - _ + + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property - - _ + + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property - - _ + + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property - - _ + + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property - - _ + + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD End Get End Property - - _ + + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG End Get End Property - - _ + + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV End Get End Property - - _ + + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER End Get End Property - - _ + + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN End Get End Property - - _ + + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER End Get End Property - - _ + + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get - Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + Return CType(Me.Rows(index), TBDD_CONNECTIONRow) End Get End Property - - _ + + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler - - _ + + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler - - _ + + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler - - _ + + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow - Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow, TBDD_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_CONNECTIONRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) - cln.InitVars + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone, TBDD_CONNECTIONDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -4021,9 +4021,9 @@ Partial Public Class MyDataset Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4051,11 +4051,11 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnGEANDERTWER) Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEAENDERTWANN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 @@ -4063,75 +4063,75 @@ Partial Public Class MyDataset Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnBEMERKUNG.MaxLength = 400 - Me.columnAKTIV.AllowDBNull = false - Me.columnAKTIV.DefaultValue = CType(true,Boolean) - Me.columnERSTELLTWER.AllowDBNull = false + Me.columnAKTIV.AllowDBNull = False + Me.columnAKTIV.DefaultValue = CType(True, Boolean) + Me.columnERSTELLTWER.AllowDBNull = False Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub - - _ + + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow - Return CType(Me.NewRow,TBDD_CONNECTIONRow) + Return CType(Me.NewRow, TBDD_CONNECTIONRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CONNECTIONRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub - - _ + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4160,35 +4160,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -4196,73 +4196,73 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class VWDDINDEX_MANDataTable Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_MANRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnINDEXNAME 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 columnDOK_ID As Global.System.Data.DataColumn - + Private columnDOKUMENTART As Global.System.Data.DataColumn - + Private columnKURZNAME As Global.System.Data.DataColumn - + Private columnSUGGESTION As Global.System.Data.DataColumn - + Private columnCONNECTION_ID As Global.System.Data.DataColumn - + Private columnCONNECTION As Global.System.Data.DataColumn - + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - + Private columnSERVER As Global.System.Data.DataColumn - + Private columnDATENBANK As Global.System.Data.DataColumn - + Private columnUSERNAME As Global.System.Data.DataColumn - + Private columnPASSWORD As Global.System.Data.DataColumn - + Private columnSQL_RESULT As Global.System.Data.DataColumn - + Private columnSQL_CHECK As Global.System.Data.DataColumn - + Private columnIndexiert As Global.System.Data.DataColumn - + Private columnIndexwert As Global.System.Data.DataColumn - + Private columnOPTIONAL As Global.System.Data.DataColumn - + Private columnIndexwert_File As Global.System.Data.DataColumn - + Private columnSAVE_VALUE As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "VWDDINDEX_MAN" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4278,288 +4278,288 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME 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 DOK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOK_ID End Get End Property - - _ + + Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART End Get End Property - - _ + + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME End Get End Property - - _ + + Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSUGGESTION 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 CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION End Get End Property - - _ + + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property - - _ + + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property - - _ + + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property - - _ + + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property - - _ + + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD End Get End Property - - _ + + Public ReadOnly Property 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 IndexiertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexiert End Get End Property - - _ + + Public ReadOnly Property IndexwertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexwert End Get End Property - - _ + + Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn Get Return Me.columnOPTIONAL End Get End Property - - _ + + Public ReadOnly Property Indexwert_FileColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexwert_File 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_MANRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_MANRow Get - Return CType(Me.Rows(index),VWDDINDEX_MANRow) + Return CType(Me.Rows(index), VWDDINDEX_MANRow) End Get End Property - - _ + + Public Event VWDDINDEX_MANRowChanging As VWDDINDEX_MANRowChangeEventHandler - - _ + + Public Event VWDDINDEX_MANRowChanged As VWDDINDEX_MANRowChangeEventHandler - - _ + + Public Event VWDDINDEX_MANRowDeleting As VWDDINDEX_MANRowChangeEventHandler - - _ + + Public Event VWDDINDEX_MANRowDeleted As VWDDINDEX_MANRowChangeEventHandler - - _ + + Public Overloads Sub AddVWDDINDEX_MANRow(ByVal row As VWDDINDEX_MANRow) Me.Rows.Add(row) End Sub - - _ - Public Overloads Function AddVWDDINDEX_MANRow( _ - ByVal GUID As Integer, _ - ByVal INDEXNAME As String, _ - ByVal WD_INDEX As String, _ - ByVal COMMENT As String, _ - ByVal DATATYPE As String, _ - ByVal DOK_ID As Integer, _ - ByVal DOKUMENTART As String, _ - ByVal KURZNAME As String, _ - ByVal SUGGESTION As Boolean, _ - ByVal CONNECTION_ID As Short, _ - ByVal CONNECTION As String, _ - ByVal SQL_PROVIDER As String, _ - ByVal SERVER As String, _ - ByVal DATENBANK As String, _ - ByVal USERNAME As String, _ - ByVal PASSWORD As String, _ - ByVal SQL_RESULT As String, _ - ByVal SQL_CHECK As String, _ - ByVal Indexiert As Boolean, _ - ByVal Indexwert As String, _ - ByVal _OPTIONAL As Boolean, _ - ByVal Indexwert_File As String, _ + + + Public Overloads Function AddVWDDINDEX_MANRow( + ByVal GUID As Integer, + ByVal INDEXNAME As String, + ByVal WD_INDEX As String, + ByVal COMMENT As String, + ByVal DATATYPE As String, + ByVal DOK_ID As Integer, + ByVal DOKUMENTART As String, + ByVal KURZNAME As String, + ByVal SUGGESTION As Boolean, + ByVal CONNECTION_ID As Short, + ByVal CONNECTION As String, + ByVal SQL_PROVIDER As String, + ByVal SERVER As String, + ByVal DATENBANK As String, + ByVal USERNAME As String, + ByVal PASSWORD As String, + ByVal SQL_RESULT As String, + ByVal SQL_CHECK As String, + ByVal Indexiert As Boolean, + ByVal Indexwert As String, + ByVal _OPTIONAL As Boolean, + ByVal Indexwert_File As String, ByVal SAVE_VALUE As Boolean) As VWDDINDEX_MANRow - Dim rowVWDDINDEX_MANRow As VWDDINDEX_MANRow = CType(Me.NewRow,VWDDINDEX_MANRow) + Dim rowVWDDINDEX_MANRow As VWDDINDEX_MANRow = CType(Me.NewRow, VWDDINDEX_MANRow) Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_CHECK, Indexiert, Indexwert, _OPTIONAL, Indexwert_File, SAVE_VALUE} rowVWDDINDEX_MANRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWDDINDEX_MANRow) Return rowVWDDINDEX_MANRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_MANRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_MANRow) + Return CType(Me.Rows.Find(New Object() {GUID}), VWDDINDEX_MANRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWDDINDEX_MANDataTable = CType(MyBase.Clone,VWDDINDEX_MANDataTable) - cln.InitVars + Dim cln As VWDDINDEX_MANDataTable = CType(MyBase.Clone, VWDDINDEX_MANDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWDDINDEX_MANDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") @@ -4585,9 +4585,9 @@ Partial Public Class MyDataset Me.columnIndexwert_File = MyBase.Columns("Indexwert_File") Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE") 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) @@ -4638,103 +4638,103 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnIndexwert_File) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnINDEXNAME.AllowDBNull = false + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.Unique = True + Me.columnINDEXNAME.AllowDBNull = False Me.columnINDEXNAME.MaxLength = 50 Me.columnWD_INDEX.MaxLength = 50 Me.columnCOMMENT.MaxLength = 150 Me.columnDATATYPE.MaxLength = 50 - Me.columnDOK_ID.AllowDBNull = false - Me.columnDOKUMENTART.AllowDBNull = false + Me.columnDOK_ID.AllowDBNull = False + Me.columnDOKUMENTART.AllowDBNull = False Me.columnDOKUMENTART.MaxLength = 50 - Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.AllowDBNull = False Me.columnKURZNAME.MaxLength = 50 - Me.columnSUGGESTION.AllowDBNull = false + Me.columnSUGGESTION.AllowDBNull = False Me.columnCONNECTION.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 Me.columnDATENBANK.MaxLength = 100 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 - Me.columnSQL_RESULT.AllowDBNull = false - Me.columnSQL_RESULT.DefaultValue = CType("",String) + 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.AllowDBNull = False + Me.columnSQL_CHECK.DefaultValue = CType("", String) Me.columnSQL_CHECK.MaxLength = 2000 - Me.columnIndexiert.DefaultValue = CType(false,Boolean) - Me.columnIndexwert.DefaultValue = CType("",String) - Me.columnOPTIONAL.AllowDBNull = false - Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) - Me.columnIndexwert_File.DefaultValue = CType("",String) - Me.columnSAVE_VALUE.AllowDBNull = false - Me.columnSAVE_VALUE.DefaultValue = CType(false,Boolean) + Me.columnIndexiert.DefaultValue = CType(False, Boolean) + Me.columnIndexwert.DefaultValue = CType("", String) + Me.columnOPTIONAL.AllowDBNull = False + Me.columnOPTIONAL.DefaultValue = CType(False, Boolean) + Me.columnIndexwert_File.DefaultValue = CType("", String) + Me.columnSAVE_VALUE.AllowDBNull = False + Me.columnSAVE_VALUE.DefaultValue = CType(False, Boolean) End Sub - - _ + + Public Function NewVWDDINDEX_MANRow() As VWDDINDEX_MANRow - Return CType(Me.NewRow,VWDDINDEX_MANRow) + Return CType(Me.NewRow, VWDDINDEX_MANRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWDDINDEX_MANRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWDDINDEX_MANRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWDDINDEX_MANRowChangedEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_MANRowChanged(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + RaiseEvent VWDDINDEX_MANRowChanged(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row, VWDDINDEX_MANRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWDDINDEX_MANRowChangingEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_MANRowChanging(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + RaiseEvent VWDDINDEX_MANRowChanging(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row, VWDDINDEX_MANRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWDDINDEX_MANRowDeletedEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_MANRowDeleted(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + RaiseEvent VWDDINDEX_MANRowDeleted(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row, VWDDINDEX_MANRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWDDINDEX_MANRowDeletingEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_MANRowDeleting(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + RaiseEvent VWDDINDEX_MANRowDeleting(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row, VWDDINDEX_MANRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveVWDDINDEX_MANRow(ByVal row As VWDDINDEX_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() @@ -4763,35 +4763,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -4799,63 +4799,63 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class VWDDINDEX_AUTOMDataTable Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_AUTOMRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnINDEXNAME As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnDOCTYPE_ID As Global.System.Data.DataColumn - + Private columnDOKUMENTART As Global.System.Data.DataColumn - + Private columnKURZNAME As Global.System.Data.DataColumn - + Private columnCONNECTION_ID As Global.System.Data.DataColumn - + Private columnCONNECTION As Global.System.Data.DataColumn - + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - + Private columnSERVER As Global.System.Data.DataColumn - + Private columnDATENBANK As Global.System.Data.DataColumn - + Private columnUSERNAME As Global.System.Data.DataColumn - + Private columnPASSWORD As Global.System.Data.DataColumn - + Private columnSQL_RESULT As Global.System.Data.DataColumn - + Private columnIndexiert As Global.System.Data.DataColumn - + Private columnIndexwert As Global.System.Data.DataColumn - + Private columnVALUE As Global.System.Data.DataColumn - + Private columnSQL_ACTIVE As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "VWDDINDEX_AUTOM" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4871,243 +4871,243 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property - - _ + + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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 DOKUMENTARTColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART End Get End Property - - _ + + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME 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 CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION End Get End Property - - _ + + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property - - _ + + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property - - _ + + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property - - _ + + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property - - _ + + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD End Get End Property - - _ + + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT End Get End Property - - _ + + Public ReadOnly Property IndexiertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexiert End Get End Property - - _ + + Public ReadOnly Property IndexwertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexwert End Get End Property - - _ + + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_AUTOMRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_AUTOMRow Get - Return CType(Me.Rows(index),VWDDINDEX_AUTOMRow) + Return CType(Me.Rows(index), VWDDINDEX_AUTOMRow) End Get End Property - - _ + + Public Event VWDDINDEX_AUTOMRowChanging As VWDDINDEX_AUTOMRowChangeEventHandler - - _ + + Public Event VWDDINDEX_AUTOMRowChanged As VWDDINDEX_AUTOMRowChangeEventHandler - - _ + + Public Event VWDDINDEX_AUTOMRowDeleting As VWDDINDEX_AUTOMRowChangeEventHandler - - _ + + Public Event VWDDINDEX_AUTOMRowDeleted As VWDDINDEX_AUTOMRowChangeEventHandler - - _ + + Public Overloads Sub AddVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) Me.Rows.Add(row) End Sub - - _ - Public Overloads Function AddVWDDINDEX_AUTOMRow( _ - ByVal GUID As Integer, _ - ByVal INDEXNAME As String, _ - ByVal COMMENT As String, _ - ByVal DOCTYPE_ID As Integer, _ - ByVal DOKUMENTART As String, _ - ByVal KURZNAME As String, _ - ByVal CONNECTION_ID As Short, _ - ByVal CONNECTION As String, _ - ByVal SQL_PROVIDER As String, _ - ByVal SERVER As String, _ - ByVal DATENBANK As String, _ - ByVal USERNAME As String, _ - ByVal PASSWORD As String, _ - ByVal SQL_RESULT As String, _ - ByVal Indexiert As Boolean, _ - ByVal Indexwert As String, _ - ByVal VALUE As String, _ + + + Public Overloads Function AddVWDDINDEX_AUTOMRow( + ByVal GUID As Integer, + ByVal INDEXNAME As String, + ByVal COMMENT As String, + ByVal DOCTYPE_ID As Integer, + ByVal DOKUMENTART As String, + ByVal KURZNAME As String, + ByVal CONNECTION_ID As Short, + ByVal CONNECTION As String, + ByVal SQL_PROVIDER As String, + ByVal SERVER As String, + ByVal DATENBANK As String, + ByVal USERNAME As String, + ByVal PASSWORD As String, + ByVal SQL_RESULT As String, + ByVal Indexiert As Boolean, + ByVal Indexwert As String, + ByVal VALUE As String, ByVal SQL_ACTIVE As Boolean) As VWDDINDEX_AUTOMRow - Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow) + Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow, VWDDINDEX_AUTOMRow) Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE} rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWDDINDEX_AUTOMRow) Return rowVWDDINDEX_AUTOMRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_AUTOMRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_AUTOMRow) + Return CType(Me.Rows.Find(New Object() {GUID}), VWDDINDEX_AUTOMRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone,VWDDINDEX_AUTOMDataTable) - cln.InitVars + Dim cln As VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone, VWDDINDEX_AUTOMDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWDDINDEX_AUTOMDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") @@ -5128,9 +5128,9 @@ Partial Public Class MyDataset Me.columnVALUE = MyBase.Columns("VALUE") Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") 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) @@ -5168,94 +5168,94 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnVALUE) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnINDEXNAME.AllowDBNull = false + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.Unique = True + Me.columnINDEXNAME.AllowDBNull = False Me.columnINDEXNAME.MaxLength = 50 Me.columnCOMMENT.MaxLength = 400 - Me.columnDOCTYPE_ID.AllowDBNull = false - Me.columnDOKUMENTART.AllowDBNull = false + Me.columnDOCTYPE_ID.AllowDBNull = False + Me.columnDOKUMENTART.AllowDBNull = False Me.columnDOKUMENTART.MaxLength = 50 - Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.AllowDBNull = False Me.columnKURZNAME.MaxLength = 50 - Me.columnCONNECTION_ID.AllowDBNull = false + Me.columnCONNECTION_ID.AllowDBNull = False Me.columnCONNECTION.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 Me.columnDATENBANK.MaxLength = 100 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 - Me.columnSQL_RESULT.AllowDBNull = false + Me.columnSQL_RESULT.AllowDBNull = False Me.columnSQL_RESULT.MaxLength = 2000 - Me.columnIndexiert.DefaultValue = CType(false,Boolean) - Me.columnIndexwert.DefaultValue = CType("",String) + Me.columnIndexiert.DefaultValue = CType(False, Boolean) + Me.columnIndexwert.DefaultValue = CType("", String) Me.columnVALUE.MaxLength = 2000 - Me.columnSQL_ACTIVE.AllowDBNull = false + Me.columnSQL_ACTIVE.AllowDBNull = False End Sub - - _ + + Public Function NewVWDDINDEX_AUTOMRow() As VWDDINDEX_AUTOMRow - Return CType(Me.NewRow,VWDDINDEX_AUTOMRow) + Return CType(Me.NewRow, VWDDINDEX_AUTOMRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWDDINDEX_AUTOMRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWDDINDEX_AUTOMRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWDDINDEX_AUTOMRowChangedEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowChanged(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + RaiseEvent VWDDINDEX_AUTOMRowChanged(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row, VWDDINDEX_AUTOMRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWDDINDEX_AUTOMRowChangingEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowChanging(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + RaiseEvent VWDDINDEX_AUTOMRowChanging(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row, VWDDINDEX_AUTOMRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWDDINDEX_AUTOMRowDeletedEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowDeleted(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + RaiseEvent VWDDINDEX_AUTOMRowDeleted(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row, VWDDINDEX_AUTOMRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWDDINDEX_AUTOMRowDeletingEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowDeleting(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + RaiseEvent VWDDINDEX_AUTOMRowDeleting(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row, VWDDINDEX_AUTOMRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_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() @@ -5284,35 +5284,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -5320,53 +5320,53 @@ Partial Public Class MyDataset 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 columnINDEXNAME As Global.System.Data.DataColumn - + Private columnVALUE As Global.System.Data.DataColumn - + Private columnCONNECTION_ID As Global.System.Data.DataColumn - + Private columnCOMMENT 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 columnSQL_RESULT As Global.System.Data.DataColumn - + Private columnSQL_ACTIVE As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_INDEX_AUTOM" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5382,157 +5382,157 @@ Partial Public Class MyDataset 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 + 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 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 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 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 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 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 + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow Get - Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) + 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 INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As TBDD_INDEX_AUTOMRow - Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,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, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) @@ -5541,29 +5541,29 @@ Partial Public Class MyDataset 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) + 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 + 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") @@ -5579,9 +5579,9 @@ Partial Public Class MyDataset Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") 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) @@ -5609,91 +5609,91 @@ Partial Public Class MyDataset 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.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.columnINDEXNAME.AllowDBNull = false - Me.columnINDEXNAME.DefaultValue = CType("Auto-Index wählen",String) + 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.columnINDEXNAME.AllowDBNull = False + Me.columnINDEXNAME.DefaultValue = CType("Auto-Index wählen", String) Me.columnINDEXNAME.MaxLength = 50 Me.columnVALUE.MaxLength = 2000 - Me.columnCONNECTION_ID.DefaultValue = CType(0,Short) + Me.columnCONNECTION_ID.DefaultValue = CType(0, Short) Me.columnCOMMENT.MaxLength = 400 - Me.columnACTIVE.AllowDBNull = false - Me.columnACTIVE.DefaultValue = CType(true,Boolean) - Me.columnADDED_WHO.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = False + Me.columnACTIVE.DefaultValue = CType(True, Boolean) + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnSQL_RESULT.DefaultValue = CType("",String) + Me.columnSQL_RESULT.DefaultValue = CType("", String) Me.columnSQL_RESULT.MaxLength = 2000 - Me.columnSQL_ACTIVE.AllowDBNull = false - Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean) + Me.columnSQL_ACTIVE.AllowDBNull = False + Me.columnSQL_ACTIVE.DefaultValue = CType(False, Boolean) End Sub - - _ + + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow - Return CType(Me.NewRow,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)) + 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)) + 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)) + 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)) + 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() @@ -5722,35 +5722,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -5758,43 +5758,43 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBGI_CONFIGURATIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBGI_CONFIGURATIONRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_ID As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_FROM As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_TO As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_SUBJECT As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_DATE_IN 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_CONFIGURATION" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5810,145 +5810,145 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_ID End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_FROM End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_TOColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_TO End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_SUBJECT End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_DATE_INColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_DATE_IN 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_CONFIGURATIONRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBGI_CONFIGURATIONRow Get - Return CType(Me.Rows(index),TBGI_CONFIGURATIONRow) + Return CType(Me.Rows(index), TBGI_CONFIGURATIONRow) End Get End Property - - _ + + Public Event TBGI_CONFIGURATIONRowChanging As TBGI_CONFIGURATIONRowChangeEventHandler - - _ + + Public Event TBGI_CONFIGURATIONRowChanged As TBGI_CONFIGURATIONRowChangeEventHandler - - _ + + Public Event TBGI_CONFIGURATIONRowDeleting As TBGI_CONFIGURATIONRowChangeEventHandler - - _ + + Public Event TBGI_CONFIGURATIONRowDeleted As TBGI_CONFIGURATIONRowChangeEventHandler - - _ + + Public Overloads Sub AddTBGI_CONFIGURATIONRow(ByVal row As TBGI_CONFIGURATIONRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBGI_CONFIGURATIONRow(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_CONFIGURATIONRow - Dim rowTBGI_CONFIGURATIONRow As TBGI_CONFIGURATIONRow = CType(Me.NewRow,TBGI_CONFIGURATIONRow) + Dim rowTBGI_CONFIGURATIONRow As TBGI_CONFIGURATIONRow = CType(Me.NewRow, TBGI_CONFIGURATIONRow) Dim columnValuesArray() As Object = New Object() {GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN} rowTBGI_CONFIGURATIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBGI_CONFIGURATIONRow) Return rowTBGI_CONFIGURATIONRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Byte) As TBGI_CONFIGURATIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_CONFIGURATIONRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBGI_CONFIGURATIONRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_CONFIGURATIONDataTable = CType(MyBase.Clone,TBGI_CONFIGURATIONDataTable) - cln.InitVars + Dim cln As TBGI_CONFIGURATIONDataTable = CType(MyBase.Clone, TBGI_CONFIGURATIONDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGI_CONFIGURATIONDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnIDX_EMAIL_ID = MyBase.Columns("IDX_EMAIL_ID") @@ -5959,9 +5959,9 @@ Partial Public Class MyDataset 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(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -5979,85 +5979,85 @@ Partial Public Class MyDataset 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.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnGUID.DefaultValue = CType(1,Byte) - Me.columnIDX_EMAIL_ID.AllowDBNull = false + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.Unique = True + Me.columnGUID.DefaultValue = CType(1, Byte) + Me.columnIDX_EMAIL_ID.AllowDBNull = False Me.columnIDX_EMAIL_ID.MaxLength = 50 - Me.columnIDX_EMAIL_FROM.AllowDBNull = false + Me.columnIDX_EMAIL_FROM.AllowDBNull = False Me.columnIDX_EMAIL_FROM.MaxLength = 50 - Me.columnIDX_EMAIL_TO.AllowDBNull = false + Me.columnIDX_EMAIL_TO.AllowDBNull = False Me.columnIDX_EMAIL_TO.MaxLength = 50 - Me.columnIDX_EMAIL_SUBJECT.AllowDBNull = false + Me.columnIDX_EMAIL_SUBJECT.AllowDBNull = False Me.columnIDX_EMAIL_SUBJECT.MaxLength = 50 - Me.columnIDX_EMAIL_DATE_IN.AllowDBNull = false + Me.columnIDX_EMAIL_DATE_IN.AllowDBNull = False Me.columnIDX_EMAIL_DATE_IN.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBGI_CONFIGURATIONRow() As TBGI_CONFIGURATIONRow - Return CType(Me.NewRow,TBGI_CONFIGURATIONRow) + Return CType(Me.NewRow, TBGI_CONFIGURATIONRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGI_CONFIGURATIONRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGI_CONFIGURATIONRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGI_CONFIGURATIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_CONFIGURATIONRowChanged(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + RaiseEvent TBGI_CONFIGURATIONRowChanged(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row, TBGI_CONFIGURATIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGI_CONFIGURATIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_CONFIGURATIONRowChanging(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + RaiseEvent TBGI_CONFIGURATIONRowChanging(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row, TBGI_CONFIGURATIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGI_CONFIGURATIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_CONFIGURATIONRowDeleted(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + RaiseEvent TBGI_CONFIGURATIONRowDeleted(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row, TBGI_CONFIGURATIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGI_CONFIGURATIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_CONFIGURATIONRowDeleting(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + RaiseEvent TBGI_CONFIGURATIONRowDeleting(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row, TBGI_CONFIGURATIONRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBGI_CONFIGURATIONRow(ByVal row As TBGI_CONFIGURATIONRow) 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() @@ -6086,35 +6086,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -6122,51 +6122,51 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXDataTable Inherits Global.System.Data.TypedTableBase(Of TBGI_OBJECTTYPE_EMAIL_INDEXRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnOBJECTTYPE As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_ID As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_FROM As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_TO As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_SUBJECT As Global.System.Data.DataColumn - + Private columnIDX_EMAIL_DATE_IN 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 columnIDX_CHECK_ATTACHMENT As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBGI_OBJECTTYPE_EMAIL_INDEX" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6182,177 +6182,177 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECTTYPE End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_ID End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_FROM End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_TOColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_TO End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_SUBJECT End Get End Property - - _ + + Public ReadOnly Property IDX_EMAIL_DATE_INColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_DATE_IN 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 IDX_CHECK_ATTACHMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_CHECK_ATTACHMENT 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_OBJECTTYPE_EMAIL_INDEXRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBGI_OBJECTTYPE_EMAIL_INDEXRow Get - Return CType(Me.Rows(index),TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Return CType(Me.Rows(index), TBGI_OBJECTTYPE_EMAIL_INDEXRow) End Get End Property - - _ + + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - - _ + + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - - _ + + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - - _ + + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - - _ + + Public Overloads Sub AddTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDX_CHECK_ATTACHMENT As String) As TBGI_OBJECTTYPE_EMAIL_INDEXRow - Dim rowTBGI_OBJECTTYPE_EMAIL_INDEXRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow = CType(Me.NewRow,TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Dim rowTBGI_OBJECTTYPE_EMAIL_INDEXRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow = CType(Me.NewRow, TBGI_OBJECTTYPE_EMAIL_INDEXRow) Dim columnValuesArray() As Object = New Object() {Nothing, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDX_CHECK_ATTACHMENT} rowTBGI_OBJECTTYPE_EMAIL_INDEXRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBGI_OBJECTTYPE_EMAIL_INDEXRow) Return rowTBGI_OBJECTTYPE_EMAIL_INDEXRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_OBJECTTYPE_EMAIL_INDEXRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBGI_OBJECTTYPE_EMAIL_INDEXRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = CType(MyBase.Clone,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) - cln.InitVars + Dim cln As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = CType(MyBase.Clone, TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnOBJECTTYPE = MyBase.Columns("OBJECTTYPE") @@ -6367,9 +6367,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnIDX_CHECK_ATTACHMENT = MyBase.Columns("IDX_CHECK_ATTACHMENT") 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) @@ -6395,93 +6395,93 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnIDX_CHECK_ATTACHMENT = New Global.System.Data.DataColumn("IDX_CHECK_ATTACHMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDX_CHECK_ATTACHMENT) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnOBJECTTYPE.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnOBJECTTYPE.AllowDBNull = False Me.columnOBJECTTYPE.MaxLength = 100 - Me.columnIDX_EMAIL_ID.AllowDBNull = false + Me.columnIDX_EMAIL_ID.AllowDBNull = False Me.columnIDX_EMAIL_ID.MaxLength = 50 - Me.columnIDX_EMAIL_FROM.AllowDBNull = false + Me.columnIDX_EMAIL_FROM.AllowDBNull = False Me.columnIDX_EMAIL_FROM.MaxLength = 50 - Me.columnIDX_EMAIL_TO.AllowDBNull = false + Me.columnIDX_EMAIL_TO.AllowDBNull = False Me.columnIDX_EMAIL_TO.MaxLength = 50 - Me.columnIDX_EMAIL_SUBJECT.AllowDBNull = false + Me.columnIDX_EMAIL_SUBJECT.AllowDBNull = False Me.columnIDX_EMAIL_SUBJECT.MaxLength = 50 - Me.columnIDX_EMAIL_DATE_IN.AllowDBNull = false + Me.columnIDX_EMAIL_DATE_IN.AllowDBNull = False Me.columnIDX_EMAIL_DATE_IN.MaxLength = 50 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnIDX_CHECK_ATTACHMENT.AllowDBNull = false + Me.columnIDX_CHECK_ATTACHMENT.AllowDBNull = False Me.columnIDX_CHECK_ATTACHMENT.MaxLength = 50 End Sub - - _ + + Public Function NewTBGI_OBJECTTYPE_EMAIL_INDEXRow() As TBGI_OBJECTTYPE_EMAIL_INDEXRow - Return CType(Me.NewRow,TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Return CType(Me.NewRow, TBGI_OBJECTTYPE_EMAIL_INDEXRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGI_OBJECTTYPE_EMAIL_INDEXRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGI_OBJECTTYPE_EMAIL_INDEXRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row, TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row, TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row, TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row, TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow) 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() @@ -6510,35 +6510,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -6546,57 +6546,57 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MAN_POSTPROCESSINGRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnIDXMAN_ID As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnTYPE As Global.System.Data.DataColumn - + Private columnFUNCTION1 As Global.System.Data.DataColumn - + Private columnFUNCTION2 As Global.System.Data.DataColumn - + Private columnTEXT1 As Global.System.Data.DataColumn - + Private columnTEXT2 As Global.System.Data.DataColumn - + Private columnTEXT3 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 - + Private columnVARIANT As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBDD_INDEX_MAN_POSTPROCESSING" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6612,173 +6612,173 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property IDXMAN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXMAN_ID End Get End Property - - _ + + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property - - _ + + Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE End Get End Property - - _ + + Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION1 End Get End Property - - _ + + Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION2 End Get End Property - - _ + + Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT1 End Get End Property - - _ + + Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT2 End Get End Property - - _ + + Public ReadOnly Property TEXT3Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT3 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 VARIANTColumn() As Global.System.Data.DataColumn Get Return Me.columnVARIANT 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_MAN_POSTPROCESSINGRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MAN_POSTPROCESSINGRow Get - Return CType(Me.Rows(index),TBDD_INDEX_MAN_POSTPROCESSINGRow) + Return CType(Me.Rows(index), TBDD_INDEX_MAN_POSTPROCESSINGRow) End Get End Property - - _ + + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowChanging As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - - _ + + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowChanged As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - - _ + + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - - _ + + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID As TBDD_INDEX_MANRow, ByVal COMMENT As String, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal TEXT3 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _VARIANT As String) As TBDD_INDEX_MAN_POSTPROCESSINGRow - Dim rowTBDD_INDEX_MAN_POSTPROCESSINGRow As TBDD_INDEX_MAN_POSTPROCESSINGRow = CType(Me.NewRow,TBDD_INDEX_MAN_POSTPROCESSINGRow) + Dim rowTBDD_INDEX_MAN_POSTPROCESSINGRow As TBDD_INDEX_MAN_POSTPROCESSINGRow = CType(Me.NewRow, TBDD_INDEX_MAN_POSTPROCESSINGRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _VARIANT} If (Not (parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID) Is Nothing) Then columnValuesArray(1) = parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID(0) @@ -6787,29 +6787,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBDD_INDEX_MAN_POSTPROCESSINGRow) Return rowTBDD_INDEX_MAN_POSTPROCESSINGRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MAN_POSTPROCESSINGRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MAN_POSTPROCESSINGRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_INDEX_MAN_POSTPROCESSINGRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_INDEX_MAN_POSTPROCESSINGDataTable = CType(MyBase.Clone,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) - cln.InitVars + Dim cln As TBDD_INDEX_MAN_POSTPROCESSINGDataTable = CType(MyBase.Clone, TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_INDEX_MAN_POSTPROCESSINGDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnIDXMAN_ID = MyBase.Columns("IDXMAN_ID") @@ -6827,9 +6827,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnVARIANT = MyBase.Columns("VARIANT") 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) @@ -6864,12 +6864,12 @@ Partial Public Class MyDataset Me.columnVARIANT.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnVARIANT") Me.columnVARIANT.ExtendedProperties.Add("Generator_UserColumnName", "VARIANT") MyBase.Columns.Add(Me.columnVARIANT) - 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.columnIDXMAN_ID.AllowDBNull = false + 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.columnIDXMAN_ID.AllowDBNull = False Me.columnCOMMENT.MaxLength = 250 Me.columnTYPE.MaxLength = 50 Me.columnFUNCTION1.MaxLength = 250 @@ -6877,77 +6877,77 @@ Partial Public Class MyDataset Me.columnTEXT1.MaxLength = 100 Me.columnTEXT2.MaxLength = 100 Me.columnTEXT3.MaxLength = 100 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnVARIANT.AllowDBNull = false - Me.columnVARIANT.DefaultValue = CType("FILE AND INDEX",String) + Me.columnVARIANT.AllowDBNull = False + Me.columnVARIANT.DefaultValue = CType("FILE AND INDEX", String) Me.columnVARIANT.MaxLength = 20 End Sub - - _ + + Public Function NewTBDD_INDEX_MAN_POSTPROCESSINGRow() As TBDD_INDEX_MAN_POSTPROCESSINGRow - Return CType(Me.NewRow,TBDD_INDEX_MAN_POSTPROCESSINGRow) + Return CType(Me.NewRow, TBDD_INDEX_MAN_POSTPROCESSINGRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_INDEX_MAN_POSTPROCESSINGRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_INDEX_MAN_POSTPROCESSINGRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowChanged(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowChanged(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row, TBDD_INDEX_MAN_POSTPROCESSINGRow), 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_MAN_POSTPROCESSINGRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowChanging(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowChanging(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row, TBDD_INDEX_MAN_POSTPROCESSINGRow), 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_MAN_POSTPROCESSINGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row, TBDD_INDEX_MAN_POSTPROCESSINGRow), 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_MAN_POSTPROCESSINGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row, TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow) 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() @@ -6976,35 +6976,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -7012,31 +7012,31 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBWHDD_INDEX_MANDataTable Inherits Global.System.Data.TypedTableBase(Of TBWHDD_INDEX_MANRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBWHDD_INDEX_MAN" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7052,182 +7052,182 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWHDD_INDEX_MANRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWHDD_INDEX_MANRow Get - Return CType(Me.Rows(index),TBWHDD_INDEX_MANRow) + Return CType(Me.Rows(index), TBWHDD_INDEX_MANRow) End Get End Property - - _ + + Public Event TBWHDD_INDEX_MANRowChanging As TBWHDD_INDEX_MANRowChangeEventHandler - - _ + + Public Event TBWHDD_INDEX_MANRowChanged As TBWHDD_INDEX_MANRowChangeEventHandler - - _ + + Public Event TBWHDD_INDEX_MANRowDeleting As TBWHDD_INDEX_MANRowChangeEventHandler - - _ + + Public Event TBWHDD_INDEX_MANRowDeleted As TBWHDD_INDEX_MANRowChangeEventHandler - - _ + + Public Overloads Sub AddTBWHDD_INDEX_MANRow(ByVal row As TBWHDD_INDEX_MANRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBWHDD_INDEX_MANRow(ByVal NAME As String) As TBWHDD_INDEX_MANRow - Dim rowTBWHDD_INDEX_MANRow As TBWHDD_INDEX_MANRow = CType(Me.NewRow,TBWHDD_INDEX_MANRow) + Dim rowTBWHDD_INDEX_MANRow As TBWHDD_INDEX_MANRow = CType(Me.NewRow, TBWHDD_INDEX_MANRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} rowTBWHDD_INDEX_MANRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWHDD_INDEX_MANRow) Return rowTBWHDD_INDEX_MANRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBWHDD_INDEX_MANRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBWHDD_INDEX_MANRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBWHDD_INDEX_MANRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWHDD_INDEX_MANDataTable = CType(MyBase.Clone,TBWHDD_INDEX_MANDataTable) - cln.InitVars + Dim cln As TBWHDD_INDEX_MANDataTable = CType(MyBase.Clone, TBWHDD_INDEX_MANDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWHDD_INDEX_MANDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnNAME.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 50 End Sub - - _ + + Public Function NewTBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow - Return CType(Me.NewRow,TBWHDD_INDEX_MANRow) + Return CType(Me.NewRow, TBWHDD_INDEX_MANRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWHDD_INDEX_MANRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWHDD_INDEX_MANRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWHDD_INDEX_MANRowChangedEvent) Is Nothing) Then - RaiseEvent TBWHDD_INDEX_MANRowChanged(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + RaiseEvent TBWHDD_INDEX_MANRowChanged(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row, TBWHDD_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.TBWHDD_INDEX_MANRowChangingEvent) Is Nothing) Then - RaiseEvent TBWHDD_INDEX_MANRowChanging(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + RaiseEvent TBWHDD_INDEX_MANRowChanging(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row, TBWHDD_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.TBWHDD_INDEX_MANRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWHDD_INDEX_MANRowDeleted(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + RaiseEvent TBWHDD_INDEX_MANRowDeleted(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row, TBWHDD_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.TBWHDD_INDEX_MANRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWHDD_INDEX_MANRowDeleting(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + RaiseEvent TBWHDD_INDEX_MANRowDeleting(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row, TBWHDD_INDEX_MANRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBWHDD_INDEX_MANRow(ByVal row As TBWHDD_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() @@ -7256,35 +7256,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -7292,39 +7292,39 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_USER_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME 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_USER_GROUPS" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7340,129 +7340,129 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + Public ReadOnly Property 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_USER_GROUPSRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow Get - Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) + Return CType(Me.Rows(index), TBDD_USER_GROUPSRow) End Get End Property - - _ + + Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler - - _ + + Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler - - _ + + Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler - - _ + + Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow - Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) + Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow, TBDD_USER_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_USER_GROUPSRow) Return rowTBDD_USER_GROUPSRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_USER_GROUPSRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) - cln.InitVars + Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone, TBDD_USER_GROUPSDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USER_GROUPSDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -7471,9 +7471,9 @@ Partial Public Class MyDataset 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) @@ -7487,79 +7487,78 @@ Partial Public Class MyDataset 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True Me.columnNAME.MaxLength = 50 - Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow - Return CType(Me.NewRow,TBDD_USER_GROUPSRow) + Return CType(Me.NewRow, TBDD_USER_GROUPSRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USER_GROUPSRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USER_GROUPSRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row, TBDD_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row, TBDD_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row, TBDD_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row, TBDD_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Remove(row) End Sub - - _ + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7588,35 +7587,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -7624,41 +7623,41 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBDD_GROUPS_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnUSER_ID As Global.System.Data.DataColumn - + Private columnGROUP_ID As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnADDED_WHO 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_GROUPS_USER" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7674,109 +7673,109 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID End Get End Property - - _ + + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID 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 ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO 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_GROUPS_USERRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow Get - Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + Return CType(Me.Rows(index), TBDD_GROUPS_USERRow) End Get End Property - - _ + + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler - - _ + + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler - - _ + + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler - - _ + + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler - - _ + + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow - Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) + Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow, TBDD_GROUPS_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) @@ -7788,29 +7787,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBDD_GROUPS_USERRow) Return rowTBDD_GROUPS_USERRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_GROUPS_USERRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) - cln.InitVars + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone, TBDD_GROUPS_USERDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPS_USERDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -7820,9 +7819,9 @@ Partial Public Class MyDataset 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) @@ -7838,81 +7837,81 @@ Partial Public Class MyDataset 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementStep = 2 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnGROUP_ID.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnUSER_ID.AllowDBNull = False + Me.columnGROUP_ID.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow - Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + Return CType(Me.NewRow, TBDD_GROUPS_USERRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPS_USERRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPS_USERRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row, TBDD_GROUPS_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row, TBDD_GROUPS_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row, TBDD_GROUPS_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row, TBDD_GROUPS_USERRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) 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() @@ -7941,35 +7940,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -7977,45 +7976,45 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class VWGI_USER_GROUPS_RELATIONDataTable Inherits Global.System.Data.TypedTableBase(Of VWGI_USER_GROUPS_RELATIONRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnUSER_ID As Global.System.Data.DataColumn - + Private columnUSERNAME As Global.System.Data.DataColumn - + Private columnGROUP_ID As Global.System.Data.DataColumn - + Private columnNAME 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 = "VWGI_USER_GROUPS_RELATION" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8031,153 +8030,153 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID End Get End Property - - _ + + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property - - _ + + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_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 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 VWGI_USER_GROUPS_RELATIONRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As VWGI_USER_GROUPS_RELATIONRow Get - Return CType(Me.Rows(index),VWGI_USER_GROUPS_RELATIONRow) + Return CType(Me.Rows(index), VWGI_USER_GROUPS_RELATIONRow) End Get End Property - - _ + + Public Event VWGI_USER_GROUPS_RELATIONRowChanging As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - - _ + + Public Event VWGI_USER_GROUPS_RELATIONRowChanged As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - - _ + + Public Event VWGI_USER_GROUPS_RELATIONRowDeleting As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - - _ + + Public Event VWGI_USER_GROUPS_RELATIONRowDeleted As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - - _ + + Public Overloads Sub AddVWGI_USER_GROUPS_RELATIONRow(ByVal row As VWGI_USER_GROUPS_RELATIONRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddVWGI_USER_GROUPS_RELATIONRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal USERNAME As String, ByVal GROUP_ID As Integer, ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWGI_USER_GROUPS_RELATIONRow - Dim rowVWGI_USER_GROUPS_RELATIONRow As VWGI_USER_GROUPS_RELATIONRow = CType(Me.NewRow,VWGI_USER_GROUPS_RELATIONRow) + Dim rowVWGI_USER_GROUPS_RELATIONRow As VWGI_USER_GROUPS_RELATIONRow = CType(Me.NewRow, VWGI_USER_GROUPS_RELATIONRow) Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, USERNAME, GROUP_ID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowVWGI_USER_GROUPS_RELATIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWGI_USER_GROUPS_RELATIONRow) Return rowVWGI_USER_GROUPS_RELATIONRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As VWGI_USER_GROUPS_RELATIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWGI_USER_GROUPS_RELATIONRow) + Return CType(Me.Rows.Find(New Object() {GUID}), VWGI_USER_GROUPS_RELATIONRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWGI_USER_GROUPS_RELATIONDataTable = CType(MyBase.Clone,VWGI_USER_GROUPS_RELATIONDataTable) - cln.InitVars + Dim cln As VWGI_USER_GROUPS_RELATIONDataTable = CType(MyBase.Clone, VWGI_USER_GROUPS_RELATIONDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWGI_USER_GROUPS_RELATIONDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -8189,9 +8188,9 @@ Partial Public Class MyDataset 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) @@ -8211,81 +8210,81 @@ Partial Public Class MyDataset 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.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnUSERNAME.AllowDBNull = false + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.Unique = True + Me.columnUSER_ID.AllowDBNull = False + Me.columnUSERNAME.AllowDBNull = False Me.columnUSERNAME.MaxLength = 50 - Me.columnGROUP_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = False Me.columnNAME.MaxLength = 50 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewVWGI_USER_GROUPS_RELATIONRow() As VWGI_USER_GROUPS_RELATIONRow - Return CType(Me.NewRow,VWGI_USER_GROUPS_RELATIONRow) + Return CType(Me.NewRow, VWGI_USER_GROUPS_RELATIONRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWGI_USER_GROUPS_RELATIONRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWGI_USER_GROUPS_RELATIONRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWGI_USER_GROUPS_RELATIONRowChangedEvent) Is Nothing) Then - RaiseEvent VWGI_USER_GROUPS_RELATIONRowChanged(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + RaiseEvent VWGI_USER_GROUPS_RELATIONRowChanged(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row, VWGI_USER_GROUPS_RELATIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWGI_USER_GROUPS_RELATIONRowChangingEvent) Is Nothing) Then - RaiseEvent VWGI_USER_GROUPS_RELATIONRowChanging(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + RaiseEvent VWGI_USER_GROUPS_RELATIONRowChanging(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row, VWGI_USER_GROUPS_RELATIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWGI_USER_GROUPS_RELATIONRowDeletedEvent) Is Nothing) Then - RaiseEvent VWGI_USER_GROUPS_RELATIONRowDeleted(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + RaiseEvent VWGI_USER_GROUPS_RELATIONRowDeleted(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row, VWGI_USER_GROUPS_RELATIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWGI_USER_GROUPS_RELATIONRowDeletingEvent) Is Nothing) Then - RaiseEvent VWGI_USER_GROUPS_RELATIONRowDeleting(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + RaiseEvent VWGI_USER_GROUPS_RELATIONRowDeleting(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row, VWGI_USER_GROUPS_RELATIONRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveVWGI_USER_GROUPS_RELATIONRow(ByVal row As VWGI_USER_GROUPS_RELATIONRow) 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() @@ -8314,35 +8313,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -8350,43 +8349,43 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class VWGI_DOCTYPE_GROUPDataTable Inherits Global.System.Data.TypedTableBase(Of VWGI_DOCTYPE_GROUPRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnDOCTYPE_ID As Global.System.Data.DataColumn - + Private columnDOCTYPE As Global.System.Data.DataColumn - + Private columnGROUP_ID As Global.System.Data.DataColumn - + Private columnGROUP As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "VWGI_DOCTYPE_GROUP" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8402,145 +8401,145 @@ Partial Public Class MyDataset 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 + 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 DOCTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE End Get End Property - - _ + + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID End Get End Property - - _ + + Public ReadOnly Property GROUPColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP 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_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 VWGI_DOCTYPE_GROUPRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As VWGI_DOCTYPE_GROUPRow Get - Return CType(Me.Rows(index),VWGI_DOCTYPE_GROUPRow) + Return CType(Me.Rows(index), VWGI_DOCTYPE_GROUPRow) End Get End Property - - _ + + Public Event VWGI_DOCTYPE_GROUPRowChanging As VWGI_DOCTYPE_GROUPRowChangeEventHandler - - _ + + Public Event VWGI_DOCTYPE_GROUPRowChanged As VWGI_DOCTYPE_GROUPRowChangeEventHandler - - _ + + Public Event VWGI_DOCTYPE_GROUPRowDeleting As VWGI_DOCTYPE_GROUPRowChangeEventHandler - - _ + + Public Event VWGI_DOCTYPE_GROUPRowDeleted As VWGI_DOCTYPE_GROUPRowChangeEventHandler - - _ + + Public Overloads Sub AddVWGI_DOCTYPE_GROUPRow(ByVal row As VWGI_DOCTYPE_GROUPRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddVWGI_DOCTYPE_GROUPRow(ByVal GUID As Integer, ByVal DOCTYPE_ID As Integer, ByVal DOCTYPE As String, ByVal GROUP_ID As Integer, ByVal GROUP As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As VWGI_DOCTYPE_GROUPRow - Dim rowVWGI_DOCTYPE_GROUPRow As VWGI_DOCTYPE_GROUPRow = CType(Me.NewRow,VWGI_DOCTYPE_GROUPRow) + Dim rowVWGI_DOCTYPE_GROUPRow As VWGI_DOCTYPE_GROUPRow = CType(Me.NewRow, VWGI_DOCTYPE_GROUPRow) Dim columnValuesArray() As Object = New Object() {GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, GROUP, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN} rowVWGI_DOCTYPE_GROUPRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWGI_DOCTYPE_GROUPRow) Return rowVWGI_DOCTYPE_GROUPRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As VWGI_DOCTYPE_GROUPRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWGI_DOCTYPE_GROUPRow) + Return CType(Me.Rows.Find(New Object() {GUID}), VWGI_DOCTYPE_GROUPRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWGI_DOCTYPE_GROUPDataTable = CType(MyBase.Clone,VWGI_DOCTYPE_GROUPDataTable) - cln.InitVars + Dim cln As VWGI_DOCTYPE_GROUPDataTable = CType(MyBase.Clone, VWGI_DOCTYPE_GROUPDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWGI_DOCTYPE_GROUPDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") @@ -8551,9 +8550,9 @@ Partial Public Class MyDataset Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") 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) @@ -8571,80 +8570,80 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnADDED_WHEN) 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.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnDOCTYPE_ID.AllowDBNull = false - Me.columnDOCTYPE.AllowDBNull = false + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.Unique = True + Me.columnDOCTYPE_ID.AllowDBNull = False + Me.columnDOCTYPE.AllowDBNull = False Me.columnDOCTYPE.MaxLength = 50 - Me.columnGROUP_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = False Me.columnGROUP.MaxLength = 50 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewVWGI_DOCTYPE_GROUPRow() As VWGI_DOCTYPE_GROUPRow - Return CType(Me.NewRow,VWGI_DOCTYPE_GROUPRow) + Return CType(Me.NewRow, VWGI_DOCTYPE_GROUPRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWGI_DOCTYPE_GROUPRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWGI_DOCTYPE_GROUPRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWGI_DOCTYPE_GROUPRowChangedEvent) Is Nothing) Then - RaiseEvent VWGI_DOCTYPE_GROUPRowChanged(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + RaiseEvent VWGI_DOCTYPE_GROUPRowChanged(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row, VWGI_DOCTYPE_GROUPRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWGI_DOCTYPE_GROUPRowChangingEvent) Is Nothing) Then - RaiseEvent VWGI_DOCTYPE_GROUPRowChanging(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + RaiseEvent VWGI_DOCTYPE_GROUPRowChanging(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row, VWGI_DOCTYPE_GROUPRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWGI_DOCTYPE_GROUPRowDeletedEvent) Is Nothing) Then - RaiseEvent VWGI_DOCTYPE_GROUPRowDeleted(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + RaiseEvent VWGI_DOCTYPE_GROUPRowDeleted(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row, VWGI_DOCTYPE_GROUPRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWGI_DOCTYPE_GROUPRowDeletingEvent) Is Nothing) Then - RaiseEvent VWGI_DOCTYPE_GROUPRowDeleting(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + RaiseEvent VWGI_DOCTYPE_GROUPRowDeleting(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row, VWGI_DOCTYPE_GROUPRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveVWGI_DOCTYPE_GROUPRow(ByVal row As VWGI_DOCTYPE_GROUPRow) 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() @@ -8673,35 +8672,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -8709,51 +8708,51 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBHOTKEY_PROFILEDataTable Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PROFILERow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnOBJECTTYPE As Global.System.Data.DataColumn - + Private columnWD_SEARCH As Global.System.Data.DataColumn - + Private columnHOTKEY1 As Global.System.Data.DataColumn - + Private columnHOTKEY2 As Global.System.Data.DataColumn - + Private columnWINDOW_NAME 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 columnString As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBHOTKEY_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8769,177 +8768,177 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECTTYPE End Get End Property - - _ + + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH End Get End Property - - _ + + Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY1 End Get End Property - - _ + + Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY2 End Get End Property - - _ + + Public ReadOnly Property WINDOW_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDOW_NAME 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 StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString 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 TBHOTKEY_PROFILERow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PROFILERow Get - Return CType(Me.Rows(index),TBHOTKEY_PROFILERow) + Return CType(Me.Rows(index), TBHOTKEY_PROFILERow) End Get End Property - - _ + + Public Event TBHOTKEY_PROFILERowChanging As TBHOTKEY_PROFILERowChangeEventHandler - - _ + + Public Event TBHOTKEY_PROFILERowChanged As TBHOTKEY_PROFILERowChangeEventHandler - - _ + + Public Event TBHOTKEY_PROFILERowDeleting As TBHOTKEY_PROFILERowChangeEventHandler - - _ + + Public Event TBHOTKEY_PROFILERowDeleted As TBHOTKEY_PROFILERowChangeEventHandler - - _ + + Public Overloads Sub AddTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBHOTKEY_PROFILERow(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _String As String) As TBHOTKEY_PROFILERow - Dim rowTBHOTKEY_PROFILERow As TBHOTKEY_PROFILERow = CType(Me.NewRow,TBHOTKEY_PROFILERow) + Dim rowTBHOTKEY_PROFILERow As TBHOTKEY_PROFILERow = CType(Me.NewRow, TBHOTKEY_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _String} rowTBHOTKEY_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBHOTKEY_PROFILERow) Return rowTBHOTKEY_PROFILERow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PROFILERow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBHOTKEY_PROFILERow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_PROFILEDataTable) - cln.InitVars + Dim cln As TBHOTKEY_PROFILEDataTable = CType(MyBase.Clone, TBHOTKEY_PROFILEDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBHOTKEY_PROFILEDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -8954,9 +8953,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnString = MyBase.Columns("String") 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) @@ -8985,94 +8984,94 @@ Partial Public Class MyDataset Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") MyBase.Columns.Add(Me.columnString) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnNAME.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 50 - Me.columnOBJECTTYPE.AllowDBNull = false + Me.columnOBJECTTYPE.AllowDBNull = False Me.columnOBJECTTYPE.MaxLength = 100 - Me.columnWD_SEARCH.AllowDBNull = false + Me.columnWD_SEARCH.AllowDBNull = False Me.columnWD_SEARCH.MaxLength = 250 - Me.columnHOTKEY1.AllowDBNull = false + Me.columnHOTKEY1.AllowDBNull = False Me.columnHOTKEY1.MaxLength = 10 - Me.columnHOTKEY2.AllowDBNull = false + Me.columnHOTKEY2.AllowDBNull = False Me.columnHOTKEY2.MaxLength = 5 - Me.columnWINDOW_NAME.AllowDBNull = false + Me.columnWINDOW_NAME.AllowDBNull = False Me.columnWINDOW_NAME.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnString.ReadOnly = true + Me.columnString.ReadOnly = True Me.columnString.MaxLength = 78 End Sub - - _ + + Public Function NewTBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Return CType(Me.NewRow,TBHOTKEY_PROFILERow) + Return CType(Me.NewRow, TBHOTKEY_PROFILERow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBHOTKEY_PROFILERow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBHOTKEY_PROFILERow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBHOTKEY_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowChanged(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_PROFILERowChanged(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_PROFILERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBHOTKEY_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowChanging(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_PROFILERowChanging(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_PROFILERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBHOTKEY_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowDeleted(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_PROFILERowDeleted(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_PROFILERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBHOTKEY_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowDeleting(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_PROFILERowDeleting(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_PROFILERow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) 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() @@ -9101,35 +9100,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -9137,45 +9136,45 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBHOTKEY_PATTERNSDataTable Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnHKPROFILE_ID As Global.System.Data.DataColumn - + Private columnPATTERN_WDSEARCH As Global.System.Data.DataColumn - + Private columnWINDOW_CONTROL 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 columnSEQUENCE_NUMBER As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBHOTKEY_PATTERNS" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9191,125 +9190,125 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPROFILE_ID End Get End Property - - _ + + Public ReadOnly Property PATTERN_WDSEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnPATTERN_WDSEARCH End Get End Property - - _ + + Public ReadOnly Property WINDOW_CONTROLColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDOW_CONTROL 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 SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_NUMBER 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 TBHOTKEY_PATTERNSRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNSRow Get - Return CType(Me.Rows(index),TBHOTKEY_PATTERNSRow) + Return CType(Me.Rows(index), TBHOTKEY_PATTERNSRow) End Get End Property - - _ + + Public Event TBHOTKEY_PATTERNSRowChanging As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ + + Public Event TBHOTKEY_PATTERNSRowChanged As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ + + Public Event TBHOTKEY_PATTERNSRowDeleting As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ + + Public Event TBHOTKEY_PATTERNSRowDeleted As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ + + Public Overloads Sub AddTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBHOTKEY_PATTERNSRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SEQUENCE_NUMBER As Integer) As TBHOTKEY_PATTERNSRow - Dim rowTBHOTKEY_PATTERNSRow As TBHOTKEY_PATTERNSRow = CType(Me.NewRow,TBHOTKEY_PATTERNSRow) + Dim rowTBHOTKEY_PATTERNSRow As TBHOTKEY_PATTERNSRow = CType(Me.NewRow, TBHOTKEY_PATTERNSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER} If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID) Is Nothing) Then columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID(0) @@ -9318,29 +9317,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBHOTKEY_PATTERNSRow) Return rowTBHOTKEY_PATTERNSRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNSRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBHOTKEY_PATTERNSRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PATTERNSDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNSDataTable) - cln.InitVars + Dim cln As TBHOTKEY_PATTERNSDataTable = CType(MyBase.Clone, TBHOTKEY_PATTERNSDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBHOTKEY_PATTERNSDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") @@ -9352,9 +9351,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") 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) @@ -9374,86 +9373,86 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnSEQUENCE_NUMBER = New Global.System.Data.DataColumn("SEQUENCE_NUMBER", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE_NUMBER) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnPATTERN_WDSEARCH.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnHKPROFILE_ID.AllowDBNull = False + Me.columnPATTERN_WDSEARCH.AllowDBNull = False Me.columnPATTERN_WDSEARCH.MaxLength = 50 - Me.columnWINDOW_CONTROL.AllowDBNull = false + Me.columnWINDOW_CONTROL.AllowDBNull = False Me.columnWINDOW_CONTROL.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnSEQUENCE_NUMBER.AllowDBNull = false + Me.columnSEQUENCE_NUMBER.AllowDBNull = False End Sub - - _ + + Public Function NewTBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow - Return CType(Me.NewRow,TBHOTKEY_PATTERNSRow) + Return CType(Me.NewRow, TBHOTKEY_PATTERNSRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBHOTKEY_PATTERNSRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBHOTKEY_PATTERNSRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBHOTKEY_PATTERNSRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowChanged(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNSRowChanged(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBHOTKEY_PATTERNSRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowChanging(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNSRowChanging(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBHOTKEY_PATTERNSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowDeleted(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNSRowDeleted(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBHOTKEY_PATTERNSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowDeleting(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNSRowDeleting(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNSRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) 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() @@ -9482,35 +9481,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -9518,31 +9517,31 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBMYHOTKEYSDataTable Inherits Global.System.Data.TypedTableBase(Of TBMYHOTKEYSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnString As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBMYHOTKEYS" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9558,104 +9557,104 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString 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 TBMYHOTKEYSRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBMYHOTKEYSRow Get - Return CType(Me.Rows(index),TBMYHOTKEYSRow) + Return CType(Me.Rows(index), TBMYHOTKEYSRow) End Get End Property - - _ + + Public Event TBMYHOTKEYSRowChanging As TBMYHOTKEYSRowChangeEventHandler - - _ + + Public Event TBMYHOTKEYSRowChanged As TBMYHOTKEYSRowChangeEventHandler - - _ + + Public Event TBMYHOTKEYSRowDeleting As TBMYHOTKEYSRowChangeEventHandler - - _ + + Public Event TBMYHOTKEYSRowDeleted As TBMYHOTKEYSRowChangeEventHandler - - _ + + Public Overloads Sub AddTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBMYHOTKEYSRow(ByVal _String As String) As TBMYHOTKEYSRow - Dim rowTBMYHOTKEYSRow As TBMYHOTKEYSRow = CType(Me.NewRow,TBMYHOTKEYSRow) + Dim rowTBMYHOTKEYSRow As TBMYHOTKEYSRow = CType(Me.NewRow, TBMYHOTKEYSRow) Dim columnValuesArray() As Object = New Object() {Nothing, _String} rowTBMYHOTKEYSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMYHOTKEYSRow) Return rowTBMYHOTKEYSRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBMYHOTKEYSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMYHOTKEYSRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBMYHOTKEYSRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMYHOTKEYSDataTable = CType(MyBase.Clone,TBMYHOTKEYSDataTable) - cln.InitVars + Dim cln As TBMYHOTKEYSDataTable = CType(MyBase.Clone, TBMYHOTKEYSDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMYHOTKEYSDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnString = MyBase.Columns("String") 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) @@ -9664,79 +9663,79 @@ Partial Public Class MyDataset Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") MyBase.Columns.Add(Me.columnString) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnString.ReadOnly = true + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnString.ReadOnly = True Me.columnString.MaxLength = 78 End Sub - - _ + + Public Function NewTBMYHOTKEYSRow() As TBMYHOTKEYSRow - Return CType(Me.NewRow,TBMYHOTKEYSRow) + Return CType(Me.NewRow, TBMYHOTKEYSRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMYHOTKEYSRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMYHOTKEYSRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMYHOTKEYSRowChangedEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowChanged(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + RaiseEvent TBMYHOTKEYSRowChanged(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row, TBMYHOTKEYSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMYHOTKEYSRowChangingEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowChanging(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + RaiseEvent TBMYHOTKEYSRowChanging(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row, TBMYHOTKEYSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMYHOTKEYSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowDeleted(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + RaiseEvent TBMYHOTKEYSRowDeleted(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row, TBMYHOTKEYSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMYHOTKEYSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowDeleting(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + RaiseEvent TBMYHOTKEYSRowDeleting(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row, TBMYHOTKEYSRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) 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() @@ -9765,35 +9764,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -9801,47 +9800,47 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBHOTKEY_USER_PROFILEDataTable Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_USER_PROFILERow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnHKPROFILE_ID As Global.System.Data.DataColumn - + Private columnUSER_ID As Global.System.Data.DataColumn - + Private columnWD_SEARCH As Global.System.Data.DataColumn - + Private columnHOTKEY1 As Global.System.Data.DataColumn - + Private columnHOTKEY2 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 = "TBHOTKEY_USER_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9857,133 +9856,133 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPROFILE_ID End Get End Property - - _ + + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID End Get End Property - - _ + + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH End Get End Property - - _ + + Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY1 End Get End Property - - _ + + Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY2 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 TBHOTKEY_USER_PROFILERow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_USER_PROFILERow Get - Return CType(Me.Rows(index),TBHOTKEY_USER_PROFILERow) + Return CType(Me.Rows(index), TBHOTKEY_USER_PROFILERow) End Get End Property - - _ + + Public Event TBHOTKEY_USER_PROFILERowChanging As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ + + Public Event TBHOTKEY_USER_PROFILERowChanged As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ + + Public Event TBHOTKEY_USER_PROFILERowDeleting As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ + + Public Event TBHOTKEY_USER_PROFILERowDeleted As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ + + Public Overloads Sub AddTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBHOTKEY_USER_PROFILERow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID As TBDD_USERRow, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_USER_PROFILERow - Dim rowTBHOTKEY_USER_PROFILERow As TBHOTKEY_USER_PROFILERow = CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) + Dim rowTBHOTKEY_USER_PROFILERow As TBHOTKEY_USER_PROFILERow = CType(Me.NewRow, TBHOTKEY_USER_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID) Is Nothing) Then columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID(0) @@ -9995,29 +9994,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBHOTKEY_USER_PROFILERow) Return rowTBHOTKEY_USER_PROFILERow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_USER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_USER_PROFILERow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBHOTKEY_USER_PROFILERow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_USER_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_USER_PROFILEDataTable) - cln.InitVars + Dim cln As TBHOTKEY_USER_PROFILEDataTable = CType(MyBase.Clone, TBHOTKEY_USER_PROFILEDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBHOTKEY_USER_PROFILEDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") @@ -10030,9 +10029,9 @@ Partial Public Class MyDataset 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) @@ -10054,89 +10053,89 @@ Partial Public Class MyDataset 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.columnHKPROFILE_ID.AllowDBNull = false - Me.columnUSER_ID.AllowDBNull = false - Me.columnWD_SEARCH.AllowDBNull = false - Me.columnWD_SEARCH.DefaultValue = CType("",String) + 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.columnHKPROFILE_ID.AllowDBNull = False + Me.columnUSER_ID.AllowDBNull = False + Me.columnWD_SEARCH.AllowDBNull = False + Me.columnWD_SEARCH.DefaultValue = CType("", String) Me.columnWD_SEARCH.MaxLength = 250 - Me.columnHOTKEY1.AllowDBNull = false - Me.columnHOTKEY1.DefaultValue = CType("",String) + Me.columnHOTKEY1.AllowDBNull = False + Me.columnHOTKEY1.DefaultValue = CType("", String) Me.columnHOTKEY1.MaxLength = 10 - Me.columnHOTKEY2.AllowDBNull = false - Me.columnHOTKEY2.DefaultValue = CType("",String) + Me.columnHOTKEY2.AllowDBNull = False + Me.columnHOTKEY2.DefaultValue = CType("", String) Me.columnHOTKEY2.MaxLength = 5 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBHOTKEY_USER_PROFILERow() As TBHOTKEY_USER_PROFILERow - Return CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) + Return CType(Me.NewRow, TBHOTKEY_USER_PROFILERow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBHOTKEY_USER_PROFILERow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBHOTKEY_USER_PROFILERow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBHOTKEY_USER_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowChanged(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_USER_PROFILERowChanged(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_USER_PROFILERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBHOTKEY_USER_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowChanging(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_USER_PROFILERowChanging(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_USER_PROFILERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBHOTKEY_USER_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowDeleted(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_USER_PROFILERowDeleted(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_USER_PROFILERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBHOTKEY_USER_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowDeleting(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + RaiseEvent TBHOTKEY_USER_PROFILERowDeleting(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row, TBHOTKEY_USER_PROFILERow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) 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() @@ -10165,35 +10164,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -10201,51 +10200,51 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBHOTKEY_PATTERNS_REWORKDataTable Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNS_REWORKRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnHKPATTERN_ID As Global.System.Data.DataColumn - + Private columnTYPE As Global.System.Data.DataColumn - + Private columnFUNCTION1 As Global.System.Data.DataColumn - + Private columnFUNCTION2 As Global.System.Data.DataColumn - + Private columnTEXT1 As Global.System.Data.DataColumn - + Private columnTEXT2 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 = "TBHOTKEY_PATTERNS_REWORK" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -10261,149 +10260,149 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property HKPATTERN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPATTERN_ID End Get End Property - - _ + + Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE End Get End Property - - _ + + Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION1 End Get End Property - - _ + + Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION2 End Get End Property - - _ + + Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT1 End Get End Property - - _ + + Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT2 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 TBHOTKEY_PATTERNS_REWORKRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNS_REWORKRow Get - Return CType(Me.Rows(index),TBHOTKEY_PATTERNS_REWORKRow) + Return CType(Me.Rows(index), TBHOTKEY_PATTERNS_REWORKRow) End Get End Property - - _ + + Public Event TBHOTKEY_PATTERNS_REWORKRowChanging As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ + + Public Event TBHOTKEY_PATTERNS_REWORKRowChanged As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ + + Public Event TBHOTKEY_PATTERNS_REWORKRowDeleting As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ + + Public Event TBHOTKEY_PATTERNS_REWORKRowDeleted As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ + + Public Overloads Sub AddTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBHOTKEY_PATTERNS_REWORKRow(ByVal parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As TBHOTKEY_PATTERNSRow, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_PATTERNS_REWORKRow - Dim rowTBHOTKEY_PATTERNS_REWORKRow As TBHOTKEY_PATTERNS_REWORKRow = CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) + Dim rowTBHOTKEY_PATTERNS_REWORKRow As TBHOTKEY_PATTERNS_REWORKRow = CType(Me.NewRow, TBHOTKEY_PATTERNS_REWORKRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID) Is Nothing) Then columnValuesArray(1) = parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID(0) @@ -10412,29 +10411,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBHOTKEY_PATTERNS_REWORKRow) Return rowTBHOTKEY_PATTERNS_REWORKRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNS_REWORKRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNS_REWORKRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBHOTKEY_PATTERNS_REWORKRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PATTERNS_REWORKDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNS_REWORKDataTable) - cln.InitVars + Dim cln As TBHOTKEY_PATTERNS_REWORKDataTable = CType(MyBase.Clone, TBHOTKEY_PATTERNS_REWORKDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBHOTKEY_PATTERNS_REWORKDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPATTERN_ID = MyBase.Columns("HKPATTERN_ID") @@ -10449,9 +10448,9 @@ Partial Public Class MyDataset 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) @@ -10477,89 +10476,89 @@ Partial Public Class MyDataset 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPATTERN_ID.AllowDBNull = false - Me.columnTYPE.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnHKPATTERN_ID.AllowDBNull = False + Me.columnTYPE.AllowDBNull = False Me.columnTYPE.MaxLength = 30 Me.columnFUNCTION1.MaxLength = 250 Me.columnFUNCTION2.MaxLength = 250 Me.columnTEXT1.MaxLength = 100 Me.columnTEXT2.MaxLength = 100 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnSEQUENCE.DefaultValue = CType(1,Integer) - Me.columnADDED_WHO.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = False + Me.columnSEQUENCE.DefaultValue = CType(1, Integer) + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBHOTKEY_PATTERNS_REWORKRow() As TBHOTKEY_PATTERNS_REWORKRow - Return CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) + Return CType(Me.NewRow, TBHOTKEY_PATTERNS_REWORKRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBHOTKEY_PATTERNS_REWORKRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBHOTKEY_PATTERNS_REWORKRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanged(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanged(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNS_REWORKRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanging(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanging(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNS_REWORKRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleted(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleted(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNS_REWORKRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleting(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleting(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row, TBHOTKEY_PATTERNS_REWORKRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) 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() @@ -10588,35 +10587,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -10624,43 +10623,43 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBHOTKEY_WINDOW_HOOKDataTable Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_WINDOW_HOOKRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnHKPROFILE_ID As Global.System.Data.DataColumn - + Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn - + Private columnCONTROL_VALUE 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 = "TBHOTKEY_WINDOW_HOOK" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -10676,117 +10675,117 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPROFILE_ID End Get End Property - - _ + + Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_NUMBER End Get End Property - - _ + + Public ReadOnly Property CONTROL_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_VALUE 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 TBHOTKEY_WINDOW_HOOKRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_WINDOW_HOOKRow Get - Return CType(Me.Rows(index),TBHOTKEY_WINDOW_HOOKRow) + Return CType(Me.Rows(index), TBHOTKEY_WINDOW_HOOKRow) End Get End Property - - _ + + Public Event TBHOTKEY_WINDOW_HOOKRowChanging As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ + + Public Event TBHOTKEY_WINDOW_HOOKRowChanged As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ + + Public Event TBHOTKEY_WINDOW_HOOKRowDeleting As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ + + Public Event TBHOTKEY_WINDOW_HOOKRowDeleted As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ + + Public Overloads Sub AddTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBHOTKEY_WINDOW_HOOKRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_WINDOW_HOOKRow - Dim rowTBHOTKEY_WINDOW_HOOKRow As TBHOTKEY_WINDOW_HOOKRow = CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) + Dim rowTBHOTKEY_WINDOW_HOOKRow As TBHOTKEY_WINDOW_HOOKRow = CType(Me.NewRow, TBHOTKEY_WINDOW_HOOKRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID) Is Nothing) Then columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID(0) @@ -10795,29 +10794,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBHOTKEY_WINDOW_HOOKRow) Return rowTBHOTKEY_WINDOW_HOOKRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_WINDOW_HOOKRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_WINDOW_HOOKRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBHOTKEY_WINDOW_HOOKRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_WINDOW_HOOKDataTable = CType(MyBase.Clone,TBHOTKEY_WINDOW_HOOKDataTable) - cln.InitVars + Dim cln As TBHOTKEY_WINDOW_HOOKDataTable = CType(MyBase.Clone, TBHOTKEY_WINDOW_HOOKDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBHOTKEY_WINDOW_HOOKDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") @@ -10828,9 +10827,9 @@ Partial Public Class MyDataset 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) @@ -10848,84 +10847,84 @@ Partial Public Class MyDataset 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnSEQUENCE_NUMBER.AllowDBNull = false - Me.columnCONTROL_VALUE.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnHKPROFILE_ID.AllowDBNull = False + Me.columnSEQUENCE_NUMBER.AllowDBNull = False + Me.columnCONTROL_VALUE.AllowDBNull = False Me.columnCONTROL_VALUE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBHOTKEY_WINDOW_HOOKRow() As TBHOTKEY_WINDOW_HOOKRow - Return CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) + Return CType(Me.NewRow, TBHOTKEY_WINDOW_HOOKRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBHOTKEY_WINDOW_HOOKRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBHOTKEY_WINDOW_HOOKRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanged(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanged(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row, TBHOTKEY_WINDOW_HOOKRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanging(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanging(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row, TBHOTKEY_WINDOW_HOOKRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleted(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleted(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row, TBHOTKEY_WINDOW_HOOKRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleting(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleting(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row, TBHOTKEY_WINDOW_HOOKRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) 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() @@ -10954,35 +10953,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -10990,43 +10989,43 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBGI_FILES_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBGI_FILES_USERRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnFILENAME2WORK As Global.System.Data.DataColumn - + Private _columnUSER_WORK As Global.System.Data.DataColumn - + Private columnWORKED As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnHANDLE_TYPE As Global.System.Data.DataColumn - + Private columnDelete As Global.System.Data.DataColumn - + Private columnFILENAME_ONLY As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBGI_FILES_USER" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11042,145 +11041,145 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME2WORK End Get End Property - - _ + + Public ReadOnly Property _USER_WORKColumn() As Global.System.Data.DataColumn Get Return Me._columnUSER_WORK End Get End Property - - _ + + Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn Get Return Me.columnWORKED 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 HANDLE_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnHANDLE_TYPE End Get End Property - - _ + + Public ReadOnly Property DeleteColumn() As Global.System.Data.DataColumn Get Return Me.columnDelete End Get End Property - - _ + + Public ReadOnly Property FILENAME_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME_ONLY 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_FILES_USERRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBGI_FILES_USERRow Get - Return CType(Me.Rows(index),TBGI_FILES_USERRow) + Return CType(Me.Rows(index), TBGI_FILES_USERRow) End Get End Property - - _ + + Public Event TBGI_FILES_USERRowChanging As TBGI_FILES_USERRowChangeEventHandler - - _ + + Public Event TBGI_FILES_USERRowChanged As TBGI_FILES_USERRowChangeEventHandler - - _ + + Public Event TBGI_FILES_USERRowDeleting As TBGI_FILES_USERRowChangeEventHandler - - _ + + Public Event TBGI_FILES_USERRowDeleted As TBGI_FILES_USERRowChangeEventHandler - - _ + + Public Overloads Sub AddTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow - Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow) + Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow, TBGI_FILES_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY} rowTBGI_FILES_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBGI_FILES_USERRow) Return rowTBGI_FILES_USERRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_FILES_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_FILES_USERRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBGI_FILES_USERRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_FILES_USERDataTable = CType(MyBase.Clone,TBGI_FILES_USERDataTable) - cln.InitVars + Dim cln As TBGI_FILES_USERDataTable = CType(MyBase.Clone, TBGI_FILES_USERDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGI_FILES_USERDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") @@ -11191,9 +11190,9 @@ Partial Public Class MyDataset Me.columnDelete = MyBase.Columns("Delete") Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY") 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) @@ -11213,87 +11212,87 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnDelete) Me.columnFILENAME_ONLY = New Global.System.Data.DataColumn("FILENAME_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFILENAME_ONLY) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnFILENAME2WORK.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnFILENAME2WORK.AllowDBNull = False Me.columnFILENAME2WORK.MaxLength = 500 - Me._columnUSER_WORK.AllowDBNull = false + Me._columnUSER_WORK.AllowDBNull = False Me._columnUSER_WORK.MaxLength = 50 - Me.columnWORKED.AllowDBNull = false - Me.columnADDED_WHEN.AllowDBNull = false + Me.columnWORKED.AllowDBNull = False + Me.columnADDED_WHEN.AllowDBNull = False Me.columnHANDLE_TYPE.MaxLength = 50 - Me.columnDelete.DefaultValue = CType(false,Boolean) - Me.columnFILENAME_ONLY.AllowDBNull = false + Me.columnDelete.DefaultValue = CType(False, Boolean) + Me.columnFILENAME_ONLY.AllowDBNull = False Me.columnFILENAME_ONLY.MaxLength = 250 End Sub - - _ + + Public Function NewTBGI_FILES_USERRow() As TBGI_FILES_USERRow - Return CType(Me.NewRow,TBGI_FILES_USERRow) + Return CType(Me.NewRow, TBGI_FILES_USERRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGI_FILES_USERRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGI_FILES_USERRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGI_FILES_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowChanged(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) + RaiseEvent TBGI_FILES_USERRowChanged(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row, TBGI_FILES_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGI_FILES_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowChanging(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) + RaiseEvent TBGI_FILES_USERRowChanging(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row, TBGI_FILES_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGI_FILES_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowDeleted(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) + RaiseEvent TBGI_FILES_USERRowDeleted(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row, TBGI_FILES_USERRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGI_FILES_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowDeleting(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) + RaiseEvent TBGI_FILES_USERRowDeleting(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row, TBGI_FILES_USERRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) 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() @@ -11322,35 +11321,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -11358,35 +11357,35 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBGI_HISTORYDataTable Inherits Global.System.Data.TypedTableBase(Of TBGI_HISTORYRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnFILENAME_ORIGINAL As Global.System.Data.DataColumn - + Private columnFILENAME_NEW As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBGI_HISTORY" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11402,122 +11401,122 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + Public ReadOnly Property FILENAME_ORIGINALColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME_ORIGINAL End Get End Property - - _ + + Public ReadOnly Property FILENAME_NEWColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME_NEW 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_HISTORYRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBGI_HISTORYRow Get - Return CType(Me.Rows(index),TBGI_HISTORYRow) + Return CType(Me.Rows(index), TBGI_HISTORYRow) End Get End Property - - _ + + Public Event TBGI_HISTORYRowChanging As TBGI_HISTORYRowChangeEventHandler - - _ + + Public Event TBGI_HISTORYRowChanged As TBGI_HISTORYRowChangeEventHandler - - _ + + Public Event TBGI_HISTORYRowDeleting As TBGI_HISTORYRowChangeEventHandler - - _ + + Public Event TBGI_HISTORYRowDeleted As TBGI_HISTORYRowChangeEventHandler - - _ + + Public Overloads Sub AddTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBGI_HISTORYRow(ByVal FILENAME_ORIGINAL As String, ByVal FILENAME_NEW As String, ByVal ADDED_WHEN As Date) As TBGI_HISTORYRow - Dim rowTBGI_HISTORYRow As TBGI_HISTORYRow = CType(Me.NewRow,TBGI_HISTORYRow) + Dim rowTBGI_HISTORYRow As TBGI_HISTORYRow = CType(Me.NewRow, TBGI_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN} rowTBGI_HISTORYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBGI_HISTORYRow) Return rowTBGI_HISTORYRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_HISTORYRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_HISTORYRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBGI_HISTORYRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_HISTORYDataTable = CType(MyBase.Clone,TBGI_HISTORYDataTable) - cln.InitVars + Dim cln As TBGI_HISTORYDataTable = CType(MyBase.Clone, TBGI_HISTORYDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGI_HISTORYDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILENAME_ORIGINAL = MyBase.Columns("FILENAME_ORIGINAL") Me.columnFILENAME_NEW = MyBase.Columns("FILENAME_NEW") Me.columnADDED_WHEN = MyBase.Columns("ADDED_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) @@ -11527,80 +11526,80 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnFILENAME_NEW) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True Me.columnFILENAME_ORIGINAL.MaxLength = 250 Me.columnFILENAME_NEW.MaxLength = 250 - Me.columnADDED_WHEN.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = False End Sub - - _ + + Public Function NewTBGI_HISTORYRow() As TBGI_HISTORYRow - Return CType(Me.NewRow,TBGI_HISTORYRow) + Return CType(Me.NewRow, TBGI_HISTORYRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGI_HISTORYRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGI_HISTORYRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGI_HISTORYRowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowChanged(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) + RaiseEvent TBGI_HISTORYRowChanged(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row, TBGI_HISTORYRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGI_HISTORYRowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowChanging(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) + RaiseEvent TBGI_HISTORYRowChanging(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row, TBGI_HISTORYRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGI_HISTORYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowDeleted(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) + RaiseEvent TBGI_HISTORYRowDeleted(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row, TBGI_HISTORYRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGI_HISTORYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowDeleting(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) + RaiseEvent TBGI_HISTORYRowDeleting(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row, TBGI_HISTORYRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) 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() @@ -11629,35 +11628,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -11665,31 +11664,31 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBTempFiles2IndexDataTable Inherits Global.System.Data.TypedTableBase(Of TBTempFiles2IndexRow) - + Private columnFilestring As Global.System.Data.DataColumn - + Private columnWorked As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBTempFiles2Index" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11705,168 +11704,168 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property FilestringColumn() As Global.System.Data.DataColumn Get Return Me.columnFilestring End Get End Property - - _ + + Public ReadOnly Property WorkedColumn() As Global.System.Data.DataColumn Get Return Me.columnWorked 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 TBTempFiles2IndexRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBTempFiles2IndexRow Get - Return CType(Me.Rows(index),TBTempFiles2IndexRow) + Return CType(Me.Rows(index), TBTempFiles2IndexRow) End Get End Property - - _ + + Public Event TBTempFiles2IndexRowChanging As TBTempFiles2IndexRowChangeEventHandler - - _ + + Public Event TBTempFiles2IndexRowChanged As TBTempFiles2IndexRowChangeEventHandler - - _ + + Public Event TBTempFiles2IndexRowDeleting As TBTempFiles2IndexRowChangeEventHandler - - _ + + Public Event TBTempFiles2IndexRowDeleted As TBTempFiles2IndexRowChangeEventHandler - - _ + + Public Overloads Sub AddTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBTempFiles2IndexRow(ByVal Filestring As String, ByVal Worked As Boolean) As TBTempFiles2IndexRow - Dim rowTBTempFiles2IndexRow As TBTempFiles2IndexRow = CType(Me.NewRow,TBTempFiles2IndexRow) + Dim rowTBTempFiles2IndexRow As TBTempFiles2IndexRow = CType(Me.NewRow, TBTempFiles2IndexRow) Dim columnValuesArray() As Object = New Object() {Filestring, Worked} rowTBTempFiles2IndexRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBTempFiles2IndexRow) Return rowTBTempFiles2IndexRow End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTempFiles2IndexDataTable = CType(MyBase.Clone,TBTempFiles2IndexDataTable) - cln.InitVars + Dim cln As TBTempFiles2IndexDataTable = CType(MyBase.Clone, TBTempFiles2IndexDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBTempFiles2IndexDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnFilestring = MyBase.Columns("Filestring") Me.columnWorked = MyBase.Columns("Worked") End Sub - - _ + + Private Sub InitClass() Me.columnFilestring = New Global.System.Data.DataColumn("Filestring", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilestring) Me.columnWorked = New Global.System.Data.DataColumn("Worked", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWorked) - Me.columnWorked.DefaultValue = CType(false,Boolean) + Me.columnWorked.DefaultValue = CType(False, Boolean) End Sub - - _ + + Public Function NewTBTempFiles2IndexRow() As TBTempFiles2IndexRow - Return CType(Me.NewRow,TBTempFiles2IndexRow) + Return CType(Me.NewRow, TBTempFiles2IndexRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBTempFiles2IndexRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBTempFiles2IndexRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBTempFiles2IndexRowChangedEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowChanged(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + RaiseEvent TBTempFiles2IndexRowChanged(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row, TBTempFiles2IndexRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBTempFiles2IndexRowChangingEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowChanging(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + RaiseEvent TBTempFiles2IndexRowChanging(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row, TBTempFiles2IndexRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBTempFiles2IndexRowDeletedEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowDeleted(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + RaiseEvent TBTempFiles2IndexRowDeleted(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row, TBTempFiles2IndexRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBTempFiles2IndexRowDeletingEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowDeleting(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + RaiseEvent TBTempFiles2IndexRowDeleting(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row, TBTempFiles2IndexRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) 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() @@ -11895,35 +11894,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -11931,33 +11930,33 @@ Partial Public Class MyDataset 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 + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11973,107 +11972,107 @@ Partial Public Class MyDataset 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 + 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 + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow Get - Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) + 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 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 + 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) @@ -12082,69 +12081,69 @@ Partial Public Class MyDataset 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) + 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)) + 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)) + 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)) + 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)) + 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() @@ -12173,35 +12172,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -12209,39 +12208,39 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBAD_UsersDataTable Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) - + Private columnSelect As Global.System.Data.DataColumn - + Private columnUsername As Global.System.Data.DataColumn - + Private columnPrename As Global.System.Data.DataColumn - + Private columnSurname As Global.System.Data.DataColumn - + Private columnEmail As Global.System.Data.DataColumn - + Private columnID As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBAD_Users" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -12257,123 +12256,123 @@ Partial Public Class MyDataset 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property - - _ + + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property - - _ + + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property - - _ + + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property - - _ + + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property - - _ + + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property - - _ + + Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get - Return CType(Me.Rows(index),TBAD_UsersRow) + Return CType(Me.Rows(index), TBAD_UsersRow) End Get End Property - - _ + + Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler - - _ + + Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler - - _ + + Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler - - _ + + Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler - - _ + + Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow - Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow, TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBAD_UsersRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBAD_UsersRow) Return rowTBAD_UsersRow End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) - cln.InitVars + Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone, TBAD_UsersDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBAD_UsersDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -12382,9 +12381,9 @@ Partial Public Class MyDataset Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub - - _ + + Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") @@ -12401,71 +12400,71 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub - - _ + + Public Function NewTBAD_UsersRow() As TBAD_UsersRow - Return CType(Me.NewRow,TBAD_UsersRow) + Return CType(Me.NewRow, TBAD_UsersRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBAD_UsersRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBAD_UsersRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Remove(row) End Sub - - _ + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -12494,35 +12493,35 @@ Partial Public Class MyDataset 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -12530,6936 +12529,6952 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_USERRow Inherits Global.System.Data.DataRow - + Private tableTBDD_USER As TBDD_USERDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + Me.tableTBDD_USER = CType(Me.Table, TBDD_USERDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_USER.GUIDColumn) = value + Me(Me.tableTBDD_USER.GUIDColumn) = Value End Set End Property - - _ + + Public Property PRENAME() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.PRENAMEColumn) = value + Me(Me.tableTBDD_USER.PRENAMEColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.NAMEColumn) = value + Me(Me.tableTBDD_USER.NAMEColumn) = Value End Set End Property - - _ + + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn), String) End Get Set - Me(Me.tableTBDD_USER.USERNAMEColumn) = value + Me(Me.tableTBDD_USER.USERNAMEColumn) = Value End Set End Property - - _ + + Public Property EMAIL() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.EMAILColumn) = value + Me(Me.tableTBDD_USER.EMAILColumn) = Value End Set End Property - - _ + + Public Property LOGGED_IN() As Boolean Get - Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) + Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn), Boolean) End Get Set - Me(Me.tableTBDD_USER.LOGGED_INColumn) = value + Me(Me.tableTBDD_USER.LOGGED_INColumn) = Value End Set End Property - - _ + + Public Property LOGGED_WHERE() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Value End Set End Property - - _ + + Public Property LOG_IN_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Value End Set End Property - - _ + + Public Property LOG_OUT_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_USER.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_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER.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_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_USER.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_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property SHORTNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Value End Set End Property - - _ + + Public Property LANGUAGE() As String Get - Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) + Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn), String) End Get Set - Me(Me.tableTBDD_USER.LANGUAGEColumn) = value + Me(Me.tableTBDD_USER.LANGUAGEColumn) = Value End Set End Property - - _ + + Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function - - _ + + Public Sub SetPRENAMENull() Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function - - _ + + Public Sub SetEMAILNull() Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsLOGGED_WHERENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) End Function - - _ + + Public Sub SetLOGGED_WHERENull() Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsLOG_IN_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) End Function - - _ + + Public Sub SetLOG_IN_WHENNull() Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsLOG_OUT_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) End Function - - _ + + Public Sub SetLOG_OUT_WHENNull() Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function - - _ + + Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")), TBDD_GROUPS_USERRow()) End If End Function - - _ + + Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID") Is Nothing) Then Return New TBHOTKEY_USER_PROFILERow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBHOTKEY_USER_PROFILERow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")), TBHOTKEY_USER_PROFILERow()) End If 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) + Me.tableTBDD_DOKUMENTART = CType(Me.Table, TBDD_DOKUMENTARTDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = Value End Set End Property - - _ + + Public Property BEZEICHNUNG() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = Value End Set End Property - - _ + + Public Property EINGANGSART_ID() As Byte Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn), Byte) End Get Set - Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + 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) + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + 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) + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + 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) + 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 + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Value End Set End Property - - _ + + Public Property AKTIV() As Boolean Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn), Boolean) End Get Set - Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = Value End Set End Property - - _ + + Public Property NAMENKONVENTION() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Value End Set End Property - - _ + + Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + 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) + 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 + 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) + 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 + 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) + 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 + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Value End Set End Property - - _ + + Public Property OBJEKTTYP() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = Value End Set End Property - - _ + + Public Property WINDREAM_DIRECT() As Boolean Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn), Boolean) End Get Set - Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value + 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) + Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value + Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = Value End Set End Property - - _ + + Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn), Integer) End Get Set - Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value + Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = Value End Set End Property - - _ + + Public Property DUPLICATE_HANDLING() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) + Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn), String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value + Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = Value End Set End Property - - _ + + Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")), TBDD_EINGANGSARTENRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) 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 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()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")), TBDD_INDEX_AUTOMRow()) End If End Function - - _ + + 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()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")), TBDD_INDEX_MANRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_EINGANGSARTENRow Inherits Global.System.Data.DataRow - + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) + Me.tableTBDD_EINGANGSARTEN = CType(Me.Table, TBDD_EINGANGSARTENDataTable) End Sub - - _ + + Public Property GUID() As Byte Get - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn), Byte) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = Value End Set End Property - - _ + + Public Property BEZEICHNUNG() As String Get - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn), String) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = Value End Set End Property - - _ + + Public Property BESCHREIBUNG() As String Get - Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Value End Set End Property - - _ + + Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn), String) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = Value End Set End Property - - _ + + Public Property ERSTELLTWANN() As Date Get - Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Value End Set End Property - - _ + + Public Property GEANDERTWER() As String Get - Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Value End Set End Property - - _ + + Public Property GEAENDERTWANN() As Date Get - Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Value End Set End Property - - _ + + Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) End Function - - _ + + Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) End Function - - _ + + Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) End Function - - _ + + Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) End Function - - _ + + Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then Return New TBDD_DOKUMENTARTRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")), TBDD_DOKUMENTARTRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_DOKART_MODULERow Inherits Global.System.Data.DataRow - + Private tableTBDD_DOKART_MODULE As TBDD_DOKART_MODULEDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_DOKART_MODULE = CType(Me.Table,TBDD_DOKART_MODULEDataTable) + Me.tableTBDD_DOKART_MODULE = CType(Me.Table, TBDD_DOKART_MODULEDataTable) End Sub - - _ + + Public Property ID() As Integer Get - Return CType(Me(Me.tableTBDD_DOKART_MODULE.IDColumn),Integer) + Return CType(Me(Me.tableTBDD_DOKART_MODULE.IDColumn), Integer) End Get Set - Me(Me.tableTBDD_DOKART_MODULE.IDColumn) = value + Me(Me.tableTBDD_DOKART_MODULE.IDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_DOKART_MODULE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = value + Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = Value End Set End Property - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKART_MODULE.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_MODULESRow Inherits Global.System.Data.DataRow - + Private tableTBDD_MODULES As TBDD_MODULESDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) + Me.tableTBDD_MODULES = CType(Me.Table, TBDD_MODULESDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_MODULES.GUIDColumn) = value + Me(Me.tableTBDD_MODULES.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_MODULES.NAMEColumn) = value + Me(Me.tableTBDD_MODULES.NAMEColumn) = Value End Set End Property - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull End Sub 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) + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value + 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) + 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 + 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) + 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 + 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) + 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 + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn), Boolean) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value + 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) + 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 + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value + Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value + 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) + 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 + 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) + 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 + 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) + 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 + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property _OPTIONAL() As Boolean Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) + Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn), Boolean) End Get Set - Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn), Boolean) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value + Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = Value End Set End Property - - _ + + Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_CONNECTIONRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")), TBDD_CONNECTIONRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")) 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) + 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")) + 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 - - _ + + Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID") Is Nothing) Then Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")), TBDD_INDEX_MAN_POSTPROCESSINGRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow - + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + Me.tableTBDD_CONNECTION = CType(Me.Table, TBDD_CONNECTIONDataTable) End Sub - - _ + + Public Property GUID() As Short Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn), Short) End Get Set - Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = Value End Set End Property - - _ + + Public Property BEZEICHNUNG() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Value End Set End Property - - _ + + Public Property SQL_PROVIDER() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Value End Set End Property - - _ + + Public Property SERVER() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Value End Set End Property - - _ + + Public Property DATENBANK() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Value End Set End Property - - _ + + Public Property USERNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Value End Set End Property - - _ + + Public Property PASSWORD() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Value End Set End Property - - _ + + Public Property BEMERKUNG() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Value End Set End Property - - _ + + Public Property AKTIV() As Boolean Get - Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn), Boolean) End Get Set - Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = Value End Set End Property - - _ + + Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn), String) End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = Value End Set End Property - - _ + + Public Property ERSTELLTWANN() As Date Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Value End Set End Property - - _ + + Public Property GEANDERTWER() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Value End Set End Property - - _ + + Public Property GEAENDERTWANN() As Date Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Value End Set End Property - - _ + + Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function - - _ + + Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function - - _ + + Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function - - _ + + Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function - - _ + + Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function - - _ + + Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function - - _ + + Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function - - _ + + Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function - - _ + + Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function - - _ + + Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function - - _ + + Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID") Is Nothing) Then Return New TBDD_INDEX_MANRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_INDEX_MANRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID")), TBDD_INDEX_MANRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWDDINDEX_MANRow Inherits Global.System.Data.DataRow - + Private tableVWDDINDEX_MAN As VWDDINDEX_MANDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWDDINDEX_MAN = CType(Me.Table,VWDDINDEX_MANDataTable) + Me.tableVWDDINDEX_MAN = CType(Me.Table, VWDDINDEX_MANDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_MAN.GUIDColumn),Integer) + Return CType(Me(Me.tableVWDDINDEX_MAN.GUIDColumn), Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.GUIDColumn) = value + Me(Me.tableVWDDINDEX_MAN.GUIDColumn) = Value End Set End Property - - _ + + Public Property INDEXNAME() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn), String) End Get Set - Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn) = Value End Set End Property - - _ + + Public Property WD_INDEX() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_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 VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = value + Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.COMMENTColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = value + Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = Value End Set End Property - - _ + + Public Property DATATYPE() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = value + Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = Value End Set End Property - - _ + + Public Property DOK_ID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn),Integer) + Return CType(Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn), Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn) = value + Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn) = Value End Set End Property - - _ + + Public Property DOKUMENTART() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn), String) End Get Set - Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn) = value + Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn) = Value End Set End Property - - _ + + Public Property KURZNAME() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn), String) End Get Set - Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn) = Value End Set End Property - - _ + + Public Property SUGGESTION() As Boolean Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn),Boolean) + Return CType(Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn), Boolean) End Get Set - Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn) = value + Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn) = Value End Set End Property - - _ + + Public Property CONNECTION_ID() As Short Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn),Short) + Try + Return CType(Me(Me.tableVWDDINDEX_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 VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = value + Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = Value End Set End Property - - _ + + Public Property CONNECTION() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = value + Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = Value End Set End Property - - _ + + Public Property SQL_PROVIDER() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = value + Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = Value End Set End Property - - _ + + Public Property SERVER() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.SERVERColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.SERVERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = value + Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = Value End Set End Property - - _ + + Public Property DATENBANK() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = value + Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = Value End Set End Property - - _ + + Public Property USERNAME() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = Value End Set End Property - - _ + + Public Property PASSWORD() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = value + Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = Value End Set End Property - - _ + + Public Property SQL_RESULT() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn), String) End Get Set - Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn) = value + Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn) = Value End Set End Property - - _ + + Public Property SQL_CHECK() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn), String) End Get Set - Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn) = value + Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn) = Value End Set End Property - - _ + + Public Property Indexiert() As Boolean Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.IndexiertColumn),Boolean) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.IndexiertColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = value + Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = Value End Set End Property - - _ + + Public Property Indexwert() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.IndexwertColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.IndexwertColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = value + Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = Value End Set End Property - - _ + + Public Property _OPTIONAL() As Boolean Get - Return CType(Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn),Boolean) + Return CType(Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn), Boolean) End Get Set - Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn) = value + Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn) = Value End Set End Property - - _ + + Public Property Indexwert_File() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert_File in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = value + Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = Value End Set End Property - - _ + + Public Property SAVE_VALUE() As Boolean Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn),Boolean) + Return CType(Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn), Boolean) End Get Set - Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn) = value + Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn) = Value End Set End Property - - _ + + Public Function IsWD_INDEXNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) End Function - - _ + + Public Sub SetWD_INDEXNull() Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.COMMENTColumn) End Function - - _ + + Public Sub SetCOMMENTNull() Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsDATATYPENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATATYPEColumn) End Function - - _ + + Public Sub SetDATATYPENull() Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) End Function - - _ + + Public Sub SetCONNECTION_IDNull() Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCONNECTIONNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) End Function - - _ + + Public Sub SetCONNECTIONNull() Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) End Function - - _ + + Public Sub SetSQL_PROVIDERNull() Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.SERVERColumn) End Function - - _ + + Public Sub SetSERVERNull() Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATENBANKColumn) End Function - - _ + + Public Sub SetDATENBANKNull() Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.USERNAMEColumn) End Function - - _ + + Public Sub SetUSERNAMENull() Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.PASSWORDColumn) End Function - - _ + + Public Sub SetPASSWORDNull() Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsIndexiertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexiertColumn) End Function - - _ + + Public Sub SetIndexiertNull() Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsIndexwertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexwertColumn) End Function - - _ + + Public Sub SetIndexwertNull() Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsIndexwert_FileNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) End Function - - _ + + Public Sub SetIndexwert_FileNull() Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWDDINDEX_AUTOMRow Inherits Global.System.Data.DataRow - + Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWDDINDEX_AUTOM = CType(Me.Table,VWDDINDEX_AUTOMDataTable) + Me.tableVWDDINDEX_AUTOM = CType(Me.Table, VWDDINDEX_AUTOMDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn),Integer) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn), Integer) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn) = Value End Set End Property - - _ + + Public Property INDEXNAME() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn), String) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Value End Set End Property - - _ + + Public Property DOCTYPE_ID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn),Integer) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn), Integer) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn) = Value End Set End Property - - _ + + Public Property DOKUMENTART() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn), String) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn) = Value End Set End Property - - _ + + Public Property KURZNAME() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn), String) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn) = Value End Set End Property - - _ + + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn), Short) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn) = Value End Set End Property - - _ + + Public Property CONNECTION() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = Value End Set End Property - - _ + + Public Property SQL_PROVIDER() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = Value End Set End Property - - _ + + Public Property SERVER() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = Value End Set End Property - - _ + + Public Property DATENBANK() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = Value End Set End Property - - _ + + Public Property USERNAME() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = Value End Set End Property - - _ + + Public Property PASSWORD() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Value End Set End Property - - _ + + Public Property SQL_RESULT() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn), String) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn) = Value End Set End Property - - _ + + Public Property Indexiert() As Boolean Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn),Boolean) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = Value End Set End Property - - _ + + Public Property Indexwert() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = Value End Set End Property - - _ + + Public Property VALUE() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = Value End Set End Property - - _ + + Public Property SQL_ACTIVE() As Boolean Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn),Boolean) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn), Boolean) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn) = Value End Set End Property - - _ + + Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) End Function - - _ + + Public Sub SetCOMMENTNull() Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCONNECTIONNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) End Function - - _ + + Public Sub SetCONNECTIONNull() Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) End Function - - _ + + Public Sub SetSQL_PROVIDERNull() Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SERVERColumn) End Function - - _ + + Public Sub SetSERVERNull() Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) End Function - - _ + + Public Sub SetDATENBANKNull() Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) End Function - - _ + + Public Sub SetUSERNAMENull() Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) End Function - - _ + + Public Sub SetPASSWORDNull() Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsIndexiertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) End Function - - _ + + Public Sub SetIndexiertNull() Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsIndexwertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) End Function - - _ + + Public Sub SetIndexwertNull() Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.VALUEColumn) End Function - - _ + + Public Sub SetVALUENull() Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = 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) + 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) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = Value End Set End Property - - _ + + Public Property INDEXNAME() As String Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value + 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) + 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 + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Value End Set End Property - - _ + + Public Property CONNECTION_ID() As Short Get - Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.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_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + 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 + 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) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + 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) + 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 + 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) + 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 + 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) + 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 + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property SQL_RESULT() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_RESULT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value + 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) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = 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) + 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")) + 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 IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) End Function - - _ + + Public Sub SetCONNECTION_IDNull() Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = 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 - - _ + + Public Function IsSQL_RESULTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) End Function - - _ + + Public Sub SetSQL_RESULTNull() Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBGI_CONFIGURATIONRow Inherits Global.System.Data.DataRow - + Private tableTBGI_CONFIGURATION As TBGI_CONFIGURATIONDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBGI_CONFIGURATION = CType(Me.Table,TBGI_CONFIGURATIONDataTable) + Me.tableTBGI_CONFIGURATION = CType(Me.Table, TBGI_CONFIGURATIONDataTable) End Sub - - _ + + Public Property GUID() As Byte Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.GUIDColumn),Byte) + Return CType(Me(Me.tableTBGI_CONFIGURATION.GUIDColumn), Byte) End Get Set - Me(Me.tableTBGI_CONFIGURATION.GUIDColumn) = value + Me(Me.tableTBGI_CONFIGURATION.GUIDColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_ID() As String Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn),String) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn), String) End Get Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_FROM() As String Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn),String) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn), String) End Get Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_TO() As String Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn),String) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn), String) End Get Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_SUBJECT() As String Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn),String) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn), String) End Get Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_DATE_IN() As String Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn),String) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn), String) End Get Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.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_CONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = value + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.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_CONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = value + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRow Inherits Global.System.Data.DataRow - + Private tableTBGI_OBJECTTYPE_EMAIL_INDEX As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(Me.Table,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(Me.Table, TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn),Integer) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn), Integer) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn) = Value End Set End Property - - _ + + Public Property OBJECTTYPE() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_ID() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_FROM() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_TO() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_SUBJECT() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn) = Value End Set End Property - - _ + + Public Property IDX_EMAIL_DATE_IN() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.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_OBJECTTYPE_EMAIL_INDEX ist DBNull."& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull." & "", e) End Try End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.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_OBJECTTYPE_EMAIL_INDEX ist DBNull"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull" & ".", e) End Try End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.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_OBJECTTYPE_EMAIL_INDEX ist DBNul"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNul" & "l.", e) End Try End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property IDX_CHECK_ATTACHMENT() As String Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn), String) End Get Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn) = Value End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGRow Inherits Global.System.Data.DataRow - + Private tableTBDD_INDEX_MAN_POSTPROCESSING As TBDD_INDEX_MAN_POSTPROCESSINGDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(Me.Table,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(Me.Table, TBDD_INDEX_MAN_POSTPROCESSINGDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn) = Value End Set End Property - - _ + + Public Property IDXMAN_ID() As Integer Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = Value End Set End Property - - _ + + Public Property TYPE() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = Value End Set End Property - - _ + + Public Property FUNCTION1() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull" & ".", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = Value End Set End Property - - _ + + Public Property FUNCTION2() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull" & ".", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = Value End Set End Property - - _ + + Public Property TEXT1() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = Value End Set End Property - - _ + + Public Property TEXT2() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = Value End Set End Property - - _ + + Public Property TEXT3() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT3 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = Value End Set End Property - - _ + + Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn), Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_POSTPROCESSING ist DBNul"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNul" & "l.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_POSTPROCESSING ist DBNu"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNu" & "ll.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_POSTPROCESSING ist DBN"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBN" & "ull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property _VARIANT() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn), String) End Get Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn) = Value End Set End Property - - _ + + Public Property TBDD_INDEX_MANRow() As TBDD_INDEX_MANRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MANRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")), TBDD_INDEX_MANRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")) End Set End Property - - _ + + Public Property TBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBWHDD_INDEX_MANRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")), TBWHDD_INDEX_MANRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")) End Set End Property - - _ + + Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) End Function - - _ + + Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) End Function - - _ + + Public Sub SetTYPENull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsFUNCTION1Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) End Function - - _ + + Public Sub SetFUNCTION1Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsFUNCTION2Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) End Function - - _ + + Public Sub SetFUNCTION2Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTEXT1Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) End Function - - _ + + Public Sub SetTEXT1Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTEXT2Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) End Function - - _ + + Public Sub SetTEXT2Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTEXT3Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) End Function - - _ + + Public Sub SetTEXT3Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWHDD_INDEX_MANRow Inherits Global.System.Data.DataRow - + Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWHDD_INDEX_MAN = CType(Me.Table,TBWHDD_INDEX_MANDataTable) + Me.tableTBWHDD_INDEX_MAN = CType(Me.Table, TBWHDD_INDEX_MANDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn), Integer) End Get Set - Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn) = value + Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn),String) + Return CType(Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn), String) End Get Set - Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn) = value + Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn) = Value End Set End Property - - _ + + Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1") Is Nothing) Then Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")), TBDD_INDEX_MAN_POSTPROCESSINGRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_USER_GROUPSRow Inherits Global.System.Data.DataRow - + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) + Me.tableTBDD_USER_GROUPS = CType(Me.Table, TBDD_USER_GROUPSDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value + Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.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_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.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_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.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_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) + End Function + + + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")), TBDD_GROUPS_USERRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_GROUPS_USERRow Inherits Global.System.Data.DataRow - + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + Me.tableTBDD_GROUPS_USER = CType(Me.Table, TBDD_GROUPS_USERDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn), Integer) End Get Set - Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = Value End Set End Property - - _ + + Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn), Integer) End Get Set - Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = Value End Set End Property - - _ + + Public Property GROUP_ID() As Integer Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn), Integer) End Get Set - Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")), TBDD_USER_GROUPSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) End Set End Property - - _ + + Public Property TBDD_USERRow() As TBDD_USERRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")), TBDD_USERRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWGI_USER_GROUPS_RELATIONRow Inherits Global.System.Data.DataRow - + Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWGI_USER_GROUPS_RELATION = CType(Me.Table,VWGI_USER_GROUPS_RELATIONDataTable) + Me.tableVWGI_USER_GROUPS_RELATION = CType(Me.Table, VWGI_USER_GROUPS_RELATIONDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn),Integer) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn), Integer) End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn) = Value End Set End Property - - _ + + Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn),Integer) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn), Integer) End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn) = Value End Set End Property - - _ + + Public Property USERNAME() As String Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn),String) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn), String) End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn) = Value End Set End Property - - _ + + Public Property GROUP_ID() As Integer Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn),Integer) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn), Integer) End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn),String) + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn),String) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn), String) End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull."& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull." & "", e) End Try End Get Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWGI_DOCTYPE_GROUPRow Inherits Global.System.Data.DataRow - + Private tableVWGI_DOCTYPE_GROUP As VWGI_DOCTYPE_GROUPDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWGI_DOCTYPE_GROUP = CType(Me.Table,VWGI_DOCTYPE_GROUPDataTable) + Me.tableVWGI_DOCTYPE_GROUP = CType(Me.Table, VWGI_DOCTYPE_GROUPDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GUIDColumn),Integer) + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GUIDColumn), Integer) End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.GUIDColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.GUIDColumn) = Value End Set End Property - - _ + + Public Property DOCTYPE_ID() As Integer Get - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn),Integer) + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn), Integer) End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn) = Value End Set End Property - - _ + + Public Property DOCTYPE() As String Get - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn),String) + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn), String) End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn) = Value End Set End Property - - _ + + Public Property GROUP_ID() As Integer Get - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn),Integer) + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn), Integer) End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn) = Value End Set End Property - - _ + + Public Property GROUP() As String Get - Try - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn),String) + Try + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP in Tabelle VWGI_DOCTYPE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn),String) + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn), String) End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWGI_DOCTYPE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_DOCTYPE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) = value + Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Function IsGROUPNull() As Boolean Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) End Function - - _ + + Public Sub SetGROUPNull() Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBHOTKEY_PROFILERow Inherits Global.System.Data.DataRow - + Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBHOTKEY_PROFILE = CType(Me.Table,TBHOTKEY_PROFILEDataTable) + Me.tableTBHOTKEY_PROFILE = CType(Me.Table, TBHOTKEY_PROFILEDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn) = Value End Set End Property - - _ + + Public Property OBJECTTYPE() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn) = Value End Set End Property - - _ + + Public Property WD_SEARCH() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn) = Value End Set End Property - - _ + + Public Property HOTKEY1() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column) = value + Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column) = Value End Set End Property - - _ + + Public Property HOTKEY2() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column) = value + Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column) = Value End Set End Property - - _ + + Public Property WINDOW_NAME() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property _String() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.StringColumn),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.StringColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = value + Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = Value End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.StringColumn) End Function - - _ + + Public Sub Set_StringNull() Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID") Is Nothing) Then Return New TBHOTKEY_PATTERNSRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PATTERNSRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")), TBHOTKEY_PATTERNSRow()) End If End Function - - _ + + Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID") Is Nothing) Then Return New TBHOTKEY_USER_PROFILERow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_USER_PROFILERow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")), TBHOTKEY_USER_PROFILERow()) End If End Function - - _ + + Public Function GetTBHOTKEY_WINDOW_HOOKRows() As TBHOTKEY_WINDOW_HOOKRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") Is Nothing) Then Return New TBHOTKEY_WINDOW_HOOKRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_WINDOW_HOOKRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")), TBHOTKEY_WINDOW_HOOKRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBHOTKEY_PATTERNSRow Inherits Global.System.Data.DataRow - + Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBHOTKEY_PATTERNS = CType(Me.Table,TBHOTKEY_PATTERNSDataTable) + Me.tableTBHOTKEY_PATTERNS = CType(Me.Table, TBHOTKEY_PATTERNSDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn) = Value End Set End Property - - _ + + Public Property HKPROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn) = Value End Set End Property - - _ + + Public Property PATTERN_WDSEARCH() As String Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn) = Value End Set End Property - - _ + + Public Property WINDOW_CONTROL() As String Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property SEQUENCE_NUMBER() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn) = Value End Set End Property - - _ + + Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PROFILERow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")), TBHOTKEY_PROFILERow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")) End Set End Property - - _ + + Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBMYHOTKEYSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")), TBMYHOTKEYSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")) End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBHOTKEY_PATTERNS_REWORKRows() As TBHOTKEY_PATTERNS_REWORKRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") Is Nothing) Then Return New TBHOTKEY_PATTERNS_REWORKRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNS_REWORKRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")), TBHOTKEY_PATTERNS_REWORKRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBMYHOTKEYSRow Inherits Global.System.Data.DataRow - + Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBMYHOTKEYS = CType(Me.Table,TBMYHOTKEYSDataTable) + Me.tableTBMYHOTKEYS = CType(Me.Table, TBMYHOTKEYSDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBMYHOTKEYS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMYHOTKEYS.GUIDColumn), Integer) End Get Set - Me(Me.tableTBMYHOTKEYS.GUIDColumn) = value + Me(Me.tableTBMYHOTKEYS.GUIDColumn) = Value End Set End Property - - _ + + Public Property _String() As String Get - Try - Return CType(Me(Me.tableTBMYHOTKEYS.StringColumn),String) + Try + Return CType(Me(Me.tableTBMYHOTKEYS.StringColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBMYHOTKEYS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMYHOTKEYS.StringColumn) = value + Me(Me.tableTBMYHOTKEYS.StringColumn) = Value End Set End Property - - _ + + Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableTBMYHOTKEYS.StringColumn) End Function - - _ + + Public Sub Set_StringNull() Me(Me.tableTBMYHOTKEYS.StringColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1") Is Nothing) Then Return New TBHOTKEY_PATTERNSRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBHOTKEY_PATTERNSRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")), TBHOTKEY_PATTERNSRow()) End If End Function - - _ + + Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1") Is Nothing) Then Return New TBHOTKEY_USER_PROFILERow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBHOTKEY_USER_PROFILERow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")), TBHOTKEY_USER_PROFILERow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBHOTKEY_USER_PROFILERow Inherits Global.System.Data.DataRow - + Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBHOTKEY_USER_PROFILE = CType(Me.Table,TBHOTKEY_USER_PROFILEDataTable) + Me.tableTBHOTKEY_USER_PROFILE = CType(Me.Table, TBHOTKEY_USER_PROFILEDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn) = Value End Set End Property - - _ + + Public Property HKPROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn) = Value End Set End Property - - _ + + Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn) = Value End Set End Property - - _ + + Public Property WD_SEARCH() As String Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn),String) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn), String) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn) = Value End Set End Property - - _ + + Public Property HOTKEY1() As String Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column),String) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column), String) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column) = Value End Set End Property - - _ + + Public Property HOTKEY2() As String Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column),String) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column), String) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = value + Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_PROFILERow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")), TBHOTKEY_PROFILERow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")) End Set End Property - - _ + + Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBMYHOTKEYSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")), TBMYHOTKEYSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")) End Set End Property - - _ + + Public Property TBDD_USERRow() As TBDD_USERRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBDD_USERRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")), TBDD_USERRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")) End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBHOTKEY_PATTERNS_REWORKRow Inherits Global.System.Data.DataRow - + Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBHOTKEY_PATTERNS_REWORK = CType(Me.Table,TBHOTKEY_PATTERNS_REWORKDataTable) + Me.tableTBHOTKEY_PATTERNS_REWORK = CType(Me.Table, TBHOTKEY_PATTERNS_REWORKDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn) = Value End Set End Property - - _ + + Public Property HKPATTERN_ID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn) = Value End Set End Property - - _ + + Public Property TYPE() As String Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn) = Value End Set End Property - - _ + + Public Property FUNCTION1() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = Value End Set End Property - - _ + + Public Property FUNCTION2() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = Value End Set End Property - - _ + + Public Property TEXT1() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = Value End Set End Property - - _ + + Public Property TEXT2() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = Value End Set End Property - - _ + + Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = value + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property TBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")), TBHOTKEY_PATTERNSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")) End Set End Property - - _ + + Public Function IsFUNCTION1Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) End Function - - _ + + Public Sub SetFUNCTION1Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsFUNCTION2Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) End Function - - _ + + Public Sub SetFUNCTION2Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTEXT1Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) End Function - - _ + + Public Sub SetTEXT1Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTEXT2Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) End Function - - _ + + Public Sub SetTEXT2Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBHOTKEY_WINDOW_HOOKRow Inherits Global.System.Data.DataRow - + Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBHOTKEY_WINDOW_HOOK = CType(Me.Table,TBHOTKEY_WINDOW_HOOKDataTable) + Me.tableTBHOTKEY_WINDOW_HOOK = CType(Me.Table, TBHOTKEY_WINDOW_HOOKDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn) = Value End Set End Property - - _ + + Public Property HKPROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn) = Value End Set End Property - - _ + + Public Property SEQUENCE_NUMBER() As Integer Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn),Integer) + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn), Integer) End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn) = Value End Set End Property - - _ + + Public Property CONTROL_VALUE() As String Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn),String) + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn), String) End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) End Try End Get Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = value + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_PROFILERow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")), TBHOTKEY_PROFILERow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")) End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBGI_FILES_USERRow Inherits Global.System.Data.DataRow - + Private tableTBGI_FILES_USER As TBGI_FILES_USERDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBGI_FILES_USER = CType(Me.Table,TBGI_FILES_USERDataTable) + Me.tableTBGI_FILES_USER = CType(Me.Table, TBGI_FILES_USERDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBGI_FILES_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBGI_FILES_USER.GUIDColumn), Integer) End Get Set - Me(Me.tableTBGI_FILES_USER.GUIDColumn) = value + Me(Me.tableTBGI_FILES_USER.GUIDColumn) = Value End Set End Property - - _ + + Public Property FILENAME2WORK() As String Get - Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn),String) + Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn), String) End Get Set - Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn) = value + Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn) = Value End Set End Property - - _ + + Public Property _USER_WORK() As String Get - Return CType(Me(Me.tableTBGI_FILES_USER._USER_WORKColumn),String) + Return CType(Me(Me.tableTBGI_FILES_USER._USER_WORKColumn), String) End Get Set - Me(Me.tableTBGI_FILES_USER._USER_WORKColumn) = value + Me(Me.tableTBGI_FILES_USER._USER_WORKColumn) = Value End Set End Property - - _ + + Public Property WORKED() As Boolean Get - Return CType(Me(Me.tableTBGI_FILES_USER.WORKEDColumn),Boolean) + Return CType(Me(Me.tableTBGI_FILES_USER.WORKEDColumn), Boolean) End Get Set - Me(Me.tableTBGI_FILES_USER.WORKEDColumn) = value + Me(Me.tableTBGI_FILES_USER.WORKEDColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn), Date) End Get Set - Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn) = value + Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property HANDLE_TYPE() As String Get - Try - Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String) + Try + Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HANDLE_TYPE in Tabelle TBGI_FILES_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value + Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Value End Set End Property - - _ + + Public Property Delete() As Boolean Get - Try - Return CType(Me(Me.tableTBGI_FILES_USER.DeleteColumn),Boolean) + Try + Return CType(Me(Me.tableTBGI_FILES_USER.DeleteColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Delete in Tabelle TBGI_FILES_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBGI_FILES_USER.DeleteColumn) = value + Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Value End Set End Property - - _ + + Public Property FILENAME_ONLY() As String Get - Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn),String) + Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn), String) End Get Set - Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn) = value + Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn) = Value End Set End Property - - _ + + Public Function IsHANDLE_TYPENull() As Boolean Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) End Function - - _ + + Public Sub SetHANDLE_TYPENull() Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsDeleteNull() As Boolean Return Me.IsNull(Me.tableTBGI_FILES_USER.DeleteColumn) End Function - - _ + + Public Sub SetDeleteNull() Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBGI_HISTORYRow Inherits Global.System.Data.DataRow - + Private tableTBGI_HISTORY As TBGI_HISTORYDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBGI_HISTORY = CType(Me.Table,TBGI_HISTORYDataTable) + Me.tableTBGI_HISTORY = CType(Me.Table, TBGI_HISTORYDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBGI_HISTORY.GUIDColumn),Integer) + Return CType(Me(Me.tableTBGI_HISTORY.GUIDColumn), Integer) End Get Set - Me(Me.tableTBGI_HISTORY.GUIDColumn) = value + Me(Me.tableTBGI_HISTORY.GUIDColumn) = Value End Set End Property - - _ + + Public Property FILENAME_ORIGINAL() As String Get - Try - Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn),String) + Try + Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_ORIGINAL in Tabelle TBGI_HISTORY ist DBNull.", e) End Try End Get Set - Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = value + Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = Value End Set End Property - - _ + + Public Property FILENAME_NEW() As String Get - Try - Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn),String) + Try + Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_NEW in Tabelle TBGI_HISTORY ist DBNull.", e) End Try End Get Set - Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = value + Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn), Date) End Get Set - Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn) = value + Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Function IsFILENAME_ORIGINALNull() As Boolean Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) End Function - - _ + + Public Sub SetFILENAME_ORIGINALNull() Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsFILENAME_NEWNull() As Boolean Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) End Function - - _ + + Public Sub SetFILENAME_NEWNull() Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBTempFiles2IndexRow Inherits Global.System.Data.DataRow - + Private tableTBTempFiles2Index As TBTempFiles2IndexDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBTempFiles2Index = CType(Me.Table,TBTempFiles2IndexDataTable) + Me.tableTBTempFiles2Index = CType(Me.Table, TBTempFiles2IndexDataTable) End Sub - - _ + + Public Property Filestring() As String Get - Try - Return CType(Me(Me.tableTBTempFiles2Index.FilestringColumn),String) + Try + Return CType(Me(Me.tableTBTempFiles2Index.FilestringColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filestring in Tabelle TBTempFiles2Index ist DBNull.", e) End Try End Get Set - Me(Me.tableTBTempFiles2Index.FilestringColumn) = value + Me(Me.tableTBTempFiles2Index.FilestringColumn) = Value End Set End Property - - _ + + Public Property Worked() As Boolean Get - Try - Return CType(Me(Me.tableTBTempFiles2Index.WorkedColumn),Boolean) + Try + Return CType(Me(Me.tableTBTempFiles2Index.WorkedColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Worked in Tabelle TBTempFiles2Index ist DBNull.", e) End Try End Get Set - Me(Me.tableTBTempFiles2Index.WorkedColumn) = value + Me(Me.tableTBTempFiles2Index.WorkedColumn) = Value End Set End Property - - _ + + Public Function IsFilestringNull() As Boolean Return Me.IsNull(Me.tableTBTempFiles2Index.FilestringColumn) End Function - - _ + + Public Sub SetFilestringNull() Me(Me.tableTBTempFiles2Index.FilestringColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsWorkedNull() As Boolean Return Me.IsNull(Me.tableTBTempFiles2Index.WorkedColumn) End Function - - _ + + Public Sub SetWorkedNull() Me(Me.tableTBTempFiles2Index.WorkedColumn) = 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) + 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) + 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 + 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) + 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 + 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) + 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 + 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 - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBAD_UsersRow Inherits Global.System.Data.DataRow - + Private tableTBAD_Users As TBAD_UsersDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) + Me.tableTBAD_Users = CType(Me.Table, TBAD_UsersDataTable) End Sub - - _ + + Public Property _Select() As Boolean Get - Try - Return CType(Me(Me.tableTBAD_Users.SelectColumn),Boolean) + Try + Return CType(Me(Me.tableTBAD_Users.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBAD_Users.SelectColumn) = value + Me(Me.tableTBAD_Users.SelectColumn) = Value End Set End Property - - _ + + Public Property Username() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.UsernameColumn),String) + Try + Return CType(Me(Me.tableTBAD_Users.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBAD_Users.UsernameColumn) = value + Me(Me.tableTBAD_Users.UsernameColumn) = Value End Set End Property - - _ + + Public Property Prename() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.PrenameColumn),String) + Try + Return CType(Me(Me.tableTBAD_Users.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBAD_Users.PrenameColumn) = value + Me(Me.tableTBAD_Users.PrenameColumn) = Value End Set End Property - - _ + + Public Property Surname() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.SurnameColumn),String) + Try + Return CType(Me(Me.tableTBAD_Users.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBAD_Users.SurnameColumn) = value + Me(Me.tableTBAD_Users.SurnameColumn) = Value End Set End Property - - _ + + Public Property Email() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.EmailColumn),String) + Try + Return CType(Me(Me.tableTBAD_Users.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBAD_Users.EmailColumn) = value + Me(Me.tableTBAD_Users.EmailColumn) = Value End Set End Property - - _ + + Public Property ID() As Short Get - Try - Return CType(Me(Me.tableTBAD_Users.IDColumn),Short) + Try + Return CType(Me(Me.tableTBAD_Users.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBAD_Users.IDColumn) = value + Me(Me.tableTBAD_Users.IDColumn) = Value End Set End Property - - _ + + Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) End Function - - _ + + Public Sub Set_SelectNull() Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function - - _ + + Public Sub SetUsernameNull() Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function - - _ + + Public Sub SetPrenameNull() Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function - - _ + + Public Sub SetSurnameNull() Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) End Function - - _ + + Public Sub SetEmailNull() Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.IDColumn) End Function - - _ + + Public Sub SetIDNull() Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - _ + Public Class TBDD_USERRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_USERRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_USERRow 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_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_EINGANGSARTENRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_EINGANGSARTENRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow 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_DOKART_MODULERowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_DOKART_MODULERow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_DOKART_MODULERow 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_MODULESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_MODULESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_MODULESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_MODULESRow 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_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_CONNECTIONRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class VWDDINDEX_MANRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As VWDDINDEX_MANRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As VWDDINDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As VWDDINDEX_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 VWDDINDEX_AUTOMRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As VWDDINDEX_AUTOMRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As VWDDINDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As VWDDINDEX_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 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_CONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBGI_CONFIGURATIONRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBGI_CONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBGI_CONFIGURATIONRow 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_OBJECTTYPE_EMAIL_INDEXRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBGI_OBJECTTYPE_EMAIL_INDEXRow 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_MAN_POSTPROCESSINGRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_INDEX_MAN_POSTPROCESSINGRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_INDEX_MAN_POSTPROCESSINGRow 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 TBWHDD_INDEX_MANRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBWHDD_INDEX_MANRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBWHDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBWHDD_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_USER_GROUPSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_USER_GROUPSRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_USER_GROUPSRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBDD_GROUPS_USERRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_GROUPS_USERRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBDD_GROUPS_USERRow 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 VWGI_USER_GROUPS_RELATIONRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As VWGI_USER_GROUPS_RELATIONRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As VWGI_USER_GROUPS_RELATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As VWGI_USER_GROUPS_RELATIONRow 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 VWGI_DOCTYPE_GROUPRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As VWGI_DOCTYPE_GROUPRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As VWGI_DOCTYPE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As VWGI_DOCTYPE_GROUPRow 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 TBHOTKEY_PROFILERowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBHOTKEY_PROFILERow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBHOTKEY_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBHOTKEY_PROFILERow 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 TBHOTKEY_PATTERNSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBHOTKEY_PATTERNSRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBHOTKEY_PATTERNSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBHOTKEY_PATTERNSRow 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 TBMYHOTKEYSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBMYHOTKEYSRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBMYHOTKEYSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBMYHOTKEYSRow 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 TBHOTKEY_USER_PROFILERowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBHOTKEY_USER_PROFILERow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBHOTKEY_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBHOTKEY_USER_PROFILERow 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 TBHOTKEY_PATTERNS_REWORKRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBHOTKEY_PATTERNS_REWORKRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBHOTKEY_PATTERNS_REWORKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBHOTKEY_PATTERNS_REWORKRow 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 TBHOTKEY_WINDOW_HOOKRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBHOTKEY_WINDOW_HOOKRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBHOTKEY_WINDOW_HOOKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBHOTKEY_WINDOW_HOOKRow 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_FILES_USERRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBGI_FILES_USERRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBGI_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBGI_FILES_USERRow 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_HISTORYRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBGI_HISTORYRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBGI_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBGI_HISTORYRow 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 TBTempFiles2IndexRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBTempFiles2IndexRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBTempFiles2IndexRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBTempFiles2IndexRow 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 - + ''' '''Row event argument class ''' - _ + Public Class TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBAD_UsersRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBAD_UsersRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -19469,129 +19484,129 @@ Partial Public Class MyDataset End Class Namespace MyDatasetTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBDD_USERTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -19615,402 +19630,402 @@ Namespace MyDatasetTableAdapters 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER" & 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.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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ - "ADDED_WHO, LANGUAGE, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,"& _ - "@ADDED_WHO,@LANGUAGE,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMA"& _ - "IL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADD"& _ - "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PRENAME, NAME, USERNAME, EMAIL, " & + "ADDED_WHO, LANGUAGE, SHORTNAME)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL," & + "@ADDED_WHO,@LANGUAGE,@SHORTNAME); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PRENAME, NAME, USERNAME, EMA" & + "IL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADD" & + "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()" & ")" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ - "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUA"& _ - "GE, SHORTNAME = @SHORTNAME"&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 GU"& _ - "ID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OU"& _ - "T_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USE"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET PRENAME = @PRENAME, NAME = @NAME, USER" & + "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUA" & + "GE, SHORTNAME = @SHORTNAME" & 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 GU" & + "ID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OU" & + "T_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USE" & "R WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ - "IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNA"& _ - "ME, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_" & + "IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNA" & + "ME, LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ - "IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAG"& _ - "E, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + Me._commandCollection(1).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_" & + "IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAG" & + "E, SHORTNAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_USER" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBDD_USERDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + + + Public Overridable Overloads Function FillByAll(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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 GetDataByAll() As MyDataset.TBDD_USERDataTable + + + Public Overridable Overloads Function GetDataByAll() As MyDataset.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String) As Integer + + + Public Overridable Overloads Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String) As Integer If (PRENAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME, String) End If If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME, String) End If If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME, String) End If If (EMAIL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO, String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, String) End If If (SHORTNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME, 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + + + Public Overridable Overloads Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (PRENAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME, String) End If If (NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME, String) End If If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME, String) End If If (EMAIL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO, String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE, String) End If If (SHORTNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME, String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(8).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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_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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -20036,497 +20051,497 @@ Namespace MyDatasetTableAdapters 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.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.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, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" D"& _ - "UPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_"& _ - "PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIR"& _ - "ECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _ - "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _ - " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKU"& _ + 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, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " D" & + "UPLICATE_HANDLING)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_" & + "PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIR" & + "ECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICH" & + "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION," & + " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKU" & "MENTART WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 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.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, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX = "& _ - "@FOLDER_FOR_INDEX, 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, EINGAN"& _ - "GSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER"& _ - ", ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHER"& _ + 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, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FOLDER_FOR_INDEX = " & + "@FOLDER_FOR_INDEX, 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, EINGAN" & + "GSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER" & + ", ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHER" & "E (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, "", "", "")) + 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ - "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ - "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ - "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BE"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_" & + "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW" & + "ER, GEAENDERTWANN, OBJEKTTYP, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FOLDER_FOR_INDEX, SEQUE" & + "NCE, DUPLICATE_HANDLING" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_DOKUMENTART" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY SEQUENCE, BE" & "ZEICHNUNG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWER, FOL"& _ - "DER_FOR_INDEX = @FOLDER_FOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET GEANDERTWER = @GEANDERTWER, FOL" & + "DER_FOR_INDEX = @FOLDER_FOR_INDEX" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ - "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ - "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ - "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT T.DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_MODULES AS T1 ON T.MODULE_ID = "& _ - "T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'Global-Indexer'"& _ - ")))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" + Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_" & + "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW" & + "ER, GEAENDERTWANN, OBJEKTTYP, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FOLDER_FOR_INDEX, SEQUE" & + "NCE, DUPLICATE_HANDLING" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_DOKUMENTART" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID IN" & + "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELECT T.DOKART_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " TBDD_MODULES AS T1 ON T.MODULE_ID = " & + "T1.GUID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHERE (T1.NAME = 'Global-Indexer'" & + ")))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY SEQUENCE, BEZEICHNUNG" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBDD_DOKUMENTARTDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillByModuleGI(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + + + Public Overridable Overloads Function FillByModuleGI(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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 GetDataBy1() As MyDataset.TBDD_DOKUMENTARTDataTable + + + Public Overridable Overloads Function GetDataBy1() As MyDataset.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(2) Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) 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 + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As 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 + + + Public Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As 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) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID, Byte) If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME, String) End If If (ZIEL_PFAD Is Nothing) Then Throw New Global.System.ArgumentNullException("ZIEL_PFAD") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + 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) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG, String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV, Boolean) If (NAMENKONVENTION Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + 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) + 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) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP, String) End If - Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT, Boolean) If (FOLDER_FOR_INDEX Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX, String) End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + 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) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As 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 + + + Public Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As 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) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID, Byte) If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME, String) End If If (ZIEL_PFAD Is Nothing) Then Throw New Global.System.ArgumentNullException("ZIEL_PFAD") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + 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) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG, String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV, Boolean) If (NAMENKONVENTION Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + 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) + 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) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP, String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT, Boolean) If (FOLDER_FOR_INDEX Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX, String) End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + 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) + 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) + 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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function cmdUpdateFolderIndex(ByVal GEANDERTWER As String, ByVal FOLDER_FOR_INDEX As String, ByVal Original_GUID As Integer) As Integer + + + Public Overridable Overloads Function cmdUpdateFolderIndex(ByVal GEANDERTWER As String, ByVal FOLDER_FOR_INDEX As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (GEANDERTWER Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value Else - command.Parameters(0).Value = CType(GEANDERTWER,String) + command.Parameters(0).Value = CType(GEANDERTWER, String) End If If (FOLDER_FOR_INDEX Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") Else - command.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) + command.Parameters(1).Value = CType(FOLDER_FOR_INDEX, String) End If - command.Parameters(2).Value = CType(Original_GUID,Integer) + command.Parameters(2).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBDD_EINGANGSARTENTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -20542,318 +20557,318 @@ Namespace MyDatasetTableAdapters 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_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN" & 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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ - "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, BESCHREIBU" & + "NG, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SEL" & + "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA" & "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, 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("@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("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, 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("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, B"& _ - "ESCHREIBUNG = @BESCHREIBUNG, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ - "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWA"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EINGANGSARTEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, B" & + "ESCHREIBUNG = @BESCHREIBUNG, GEANDERTWER = @GEANDERTWER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @O" & + "riginal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWA" & "NN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, 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("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, 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("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, 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("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_EINGANGSARTEN.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" + Me._commandCollection(0).CommandText = "SELECT TBDD_EINGANGSARTEN.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_EINGANGSARTEN" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBDD_EINGANGSARTENDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBDD_EINGANGSARTENDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_EINGANGSARTENDataTable = New MyDataset.TBDD_EINGANGSARTENDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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 Byte) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Byte) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer + + + Public Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER 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) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG, String) End If If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal GEANDERTWER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer + + + Public Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal GEANDERTWER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG, String) End If If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GEANDERTWER,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GEANDERTWER, String) End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Byte) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Byte) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID, Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID, Byte) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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_DOKART_MODULETableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -20863,213 +20878,213 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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 T.GUID AS ID, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART_MODULE AS T"& _ - " INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUI"& _ - "D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.DOKART_ID = @DOKARTID)" + Me._commandCollection(0).CommandText = "SELECT T.GUID AS ID, T1.NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_DOKUMENTART_MODULE AS T" & + " INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUI" & + "D" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.DOKART_ID = @DOKARTID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKARTID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKARTID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", 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 = "INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID,ADDED_WHO) VALUES (@DOKA"& _ + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID,ADDED_WHO) VALUES (@DOKA" & "RT_ID,@MODUL_EID,@WHO)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKART_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODUL_EID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKART_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODUL_EID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKART_MODULEDataTable, ByVal DOKARTID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_DOKART_MODULEDataTable, ByVal DOKARTID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID, 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 DOKARTID As Integer) As MyDataset.TBDD_DOKART_MODULEDataTable + + + Public Overridable Overloads Function GetData(ByVal DOKARTID As Integer) As MyDataset.TBDD_DOKART_MODULEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID, Integer) Dim dataTable As MyDataset.TBDD_DOKART_MODULEDataTable = New MyDataset.TBDD_DOKART_MODULEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function cmdInsertDokartModule(ByVal DOKART_ID As Integer, ByVal MODUL_EID As Integer, ByVal WHO As String) As Integer + + + Public Overridable Overloads Function cmdInsertDokartModule(ByVal DOKART_ID As Integer, ByVal MODUL_EID As Integer, ByVal WHO As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(DOKART_ID,Integer) - command.Parameters(1).Value = CType(MODUL_EID,Integer) + command.Parameters(0).Value = CType(DOKART_ID, Integer) + command.Parameters(1).Value = CType(MODUL_EID, Integer) If (WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("WHO") Else - command.Parameters(2).Value = CType(WHO,String) + command.Parameters(2).Value = CType(WHO, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBDD_MODULESTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -21079,171 +21094,171 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_MODULES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_MODULESDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_MODULESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBDD_MODULESDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBDD_MODULESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_MODULESDataTable = New MyDataset.TBDD_MODULESDataTable() Me.Adapter.Fill(dataTable) Return dataTable 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -21271,449 +21286,449 @@ Namespace MyDatasetTableAdapters 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.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.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, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@NAM"& _ - "E,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUEN"& _ - "CE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ - "UID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNE"& _ - "CTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()"& _ + 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, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@DOK_ID,@NAM" & + "E,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUEN" & + "CE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT G" & + "UID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNE" & + "CTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE" & + "D_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()" & ")" 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("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", 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("@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("@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("@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("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", 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("@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("@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.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 = @SUG"& _ - "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ - "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ - "@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ - "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION"& _ - ", DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_W"& _ - "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (G"& _ + 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 = @SUG" & + "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CONNECTION_I" & + "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = " & + "@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Origi" & + "nal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION" & + ", DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_W" & + "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (G" & "UID = @GUID)" 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("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", 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("@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("@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("@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, "", "", "")) + 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("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", 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("@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("@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("@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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, ACTIVE, ADDED_WHO, ADDE"& _ - "D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL, SAVE_VAL"& _ - "UE"&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 = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SE"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL" & + "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE" & + "D_WHEN, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, OPTIONAL, SAVE_VAL" & + "UE" & 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 = @DOK_ID)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY SE" & "QUENCE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).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._commandCollection(0).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, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID, 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 DOK_ID As Integer) As MyDataset.TBDD_INDEX_MANDataTable + + + Public Overridable Overloads Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MANDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID, Integer) Dim dataTable As MyDataset.TBDD_INDEX_MANDataTable = New MyDataset.TBDD_INDEX_MANDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) 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 + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + 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 SUGGESTION As Boolean, 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 ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean, ByVal SAVE_VALUE As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) + + + Public Overridable Overloads 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 SUGGESTION As Boolean, 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 ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean, ByVal SAVE_VALUE 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) + 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) + 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) + 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) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE, String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION, Boolean) If (DEFAULT_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE, String) End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + If (CONNECTION_ID.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value, Short) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE, Integer) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String) + Me.Adapter.InsertCommand.Parameters(9).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(10).Value = CType(SQL_CHECK,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK, String) End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ACTIVE, Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO, String) End If - Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) - Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL, Boolean) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE, 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + 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 SUGGESTION As Boolean, _ - 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 ACTIVE As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal _OPTIONAL As Boolean, _ - ByVal SAVE_VALUE As Boolean, _ - ByVal Original_GUID As Integer, _ + + + Public Overridable Overloads 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 SUGGESTION As Boolean, + 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 ACTIVE As Boolean, + ByVal CHANGED_WHO As String, + ByVal _OPTIONAL As Boolean, + ByVal SAVE_VALUE As Boolean, + ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,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) + 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) + 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) + 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) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE, String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION, Boolean) If (DEFAULT_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE, String) End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + If (CONNECTION_ID.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value, Short) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE, Integer) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String) + Me.Adapter.UpdateCommand.Parameters(9).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(10).Value = CType(SQL_CHECK,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK, String) End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ACTIVE, Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL, Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE, Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + Public Sub New() MyBase.New - Me.ClearBeforeFill = true + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -21735,387 +21750,387 @@ Namespace MyDatasetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ - "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ - "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, SQL_PROVIDER," & + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & + " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK" & + "UNG,@AKTIV,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE" & + "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT" & "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ - "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ - "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ - "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ - "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ - "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, SQL_" & + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @" & + "USERNAME, PASSWORD = @PASSWORD, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " BEMERKUNG = @BEMERKUN" & + "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GU" & + "ID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS" & + "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR" & "OM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBDD_CONNECTIONDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_CONNECTIONDataTable = New MyDataset.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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 Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + + + Public Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If If (SERVER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER, String) End If If (DATENBANK Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK, String) End If If (USERNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME, String) End If If (PASSWORD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD, String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV, Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + + + Public Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If If (SERVER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER, String) End If If (DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK, String) End If If (USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME, String) End If If (PASSWORD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD, String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV, Boolean) If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER, String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Short) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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 VWDDINDEX_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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -22143,177 +22158,177 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, "& _ - "KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK"& _ - ", USERNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL"& _ - ", SAVE_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DokID)" + Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, " & + "KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK" & + ", USERNAME, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL" & + ", SAVE_VALUE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWDDINDEX_MAN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (DOK_ID = @DokID)" 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, "", "", "")) + 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 MyDataset.VWDDINDEX_MANDataTable, ByVal DokID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_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 + 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 MyDataset.VWDDINDEX_MANDataTable + + + Public Overridable Overloads Function GetData(ByVal DokID As Integer) As MyDataset.VWDDINDEX_MANDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID, Integer) Dim dataTable As MyDataset.VWDDINDEX_MANDataTable = New MyDataset.VWDDINDEX_MANDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class VWDDINDEX_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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -22337,177 +22352,177 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ - "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ - "SULT, VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AU"& _ - "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)" + Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC" & + "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE" & + "SULT, VALUE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_ACTIVE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWDDINDEX_AU" & + "TOM" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (DOCTYPE_ID = @DOCTYPE)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", 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 MyDataset.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE, 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 DOCTYPE As Integer) As MyDataset.VWDDINDEX_AUTOMDataTable + + + Public Overridable Overloads Function GetData(ByVal DOCTYPE As Integer) As MyDataset.VWDDINDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE, Integer) Dim dataTable As MyDataset.VWDDINDEX_AUTOMDataTable = New MyDataset.VWDDINDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -22529,376 +22544,376 @@ Namespace MyDatasetTableAdapters 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.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.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, INDEXNAME, VA"& _ - "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ - ",@SQL_RESULT,@SQL_ACTIVE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT"& _ - "ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (DOCTYPE_ID, INDEXNAME, VA" & + "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & + " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO" & + ",@SQL_RESULT,@SQL_ACTIVE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT" & + "ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R" & "ESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" 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("@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("@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("@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("@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("@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("@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("@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("@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("@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.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, INDEX"& _ - "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ - "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ - "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, "& _ - "ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET DOCTYPE_ID = @DOCTYPE_ID, INDEX" & + "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO" & + "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Origin" & + "al_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, " & + "ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I" & "NDEX_AUTOM WHERE (GUID = @GUID)" 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("@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("@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("@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("@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("@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, "", "", "")) + 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("@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("@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("@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("@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("@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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ - " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE"&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 = @DOCTYPE_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE," & + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE" & 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 = @DOCTYPE_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).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._commandCollection(0).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, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID, 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 DOCTYPE_ID As Integer) As MyDataset.TBDD_INDEX_AUTOMDataTable + + + Public Overridable Overloads Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.TBDD_INDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID, Integer) Dim dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable = New MyDataset.TBDD_INDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) 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 + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + + + Public Overridable Overloads Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID, Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME, String) End If If (VALUE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE, String) End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) + If (CONNECTION_ID.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value, Short) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT, String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE, Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO, String) End If If (SQL_RESULT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT, String) End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE, 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + + + Public Overridable Overloads Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID, Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME, String) End If If (VALUE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE, String) End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) + If (CONNECTION_ID.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value, Short) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT, String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE, Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO, String) End If If (SQL_RESULT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT, String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE, Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(10).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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_CONFIGURATIONTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -22915,267 +22930,267 @@ Namespace MyDatasetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GUID = @GUID, IDX_EMAIL_ID = "& _ - "@IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, I"& _ - "DX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_EMAIL_DATE"& _ - "_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX"& _ - "_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_CONFIGURATION WHERE (GUID = "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_CONFIGURATION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET GUID = @GUID, IDX_EMAIL_ID = " & + "@IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, I" & + "DX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " IDX_EMAIL_DATE" & + "_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = 1); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX" & + "_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_CONFIGURATION WHERE (GUID = " & "@GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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, "", "", "")) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT"& _ - ", IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_CONFIGURATI"& _ - "ON"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" + Me._commandCollection(0).CommandText = "SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT" & + ", IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBGI_CONFIGURATI" & + "ON" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = 1)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBGI_CONFIGURATIONDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBGI_CONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBGI_CONFIGURATIONDataTable = New MyDataset.TBGI_CONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGI_CONFIGURATION") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Update(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID,Byte) + + + Public Overridable Overloads Function Update(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID, Byte) If (IDX_EMAIL_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID, String) End If If (IDX_EMAIL_FROM Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM, String) End If If (IDX_EMAIL_TO Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO, String) End If If (IDX_EMAIL_SUBJECT Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT, String) End If If (IDX_EMAIL_DATE_IN Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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_OBJECTTYPE_EMAIL_INDEXTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -23196,406 +23211,406 @@ Namespace MyDatasetTableAdapters 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_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX" & 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.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_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECTTYPE, ID"& _ - "X_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, "& _ - "ADDED_WHO, CHANGED_WHO, IDX_CHECK_ATTACHMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECTTYPE,@IDX_E"& _ - "MAIL_ID,@IDX_EMAIL_FROM,@IDX_EMAIL_TO,@IDX_EMAIL_SUBJECT,@IDX_EMAIL_DATE_IN,@ADD"& _ - "ED_WHO,@CHANGED_WHO,@IDX_CHECK_ATTACHMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECTTYPE, IDX_E"& _ - "MAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADD"& _ - "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX W"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGI_OBJECTTYPE_EMAIL_INDEX" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (OBJECTTYPE, ID" & + "X_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, " & + "ADDED_WHO, CHANGED_WHO, IDX_CHECK_ATTACHMENT)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@OBJECTTYPE,@IDX_E" & + "MAIL_ID,@IDX_EMAIL_FROM,@IDX_EMAIL_TO,@IDX_EMAIL_SUBJECT,@IDX_EMAIL_DATE_IN,@ADD" & + "ED_WHO,@CHANGED_WHO,@IDX_CHECK_ATTACHMENT); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, OBJECTTYPE, IDX_E" & + "MAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADD" & + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX W" & "HERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECTTYPE = @OBJECT"& _ - "TYPE, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_"& _ - "TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO, IDX_C"& _ - "HECK_ATTACHMENT = @IDX_CHECK_ATTACHMENT"&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, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMA"& _ - "IL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_OBJECTTYPE_EMAIL_INDEX" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET OBJECTTYPE = @OBJECT" & + "TYPE, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_" & + "TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO, IDX_C" & + "HECK_ATTACHMENT = @IDX_CHECK_ATTACHMENT" & 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, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMA" & + "IL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN " & "FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_E"& _ - "MAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_CHECK_ATTACHMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_OBJECTT"& _ - "YPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (OBJECTTYPE = @Objecttype)" + Me._commandCollection(0).CommandText = "SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_E" & + "MAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE" & + "N, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " IDX_CHECK_ATTACHMENT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBGI_OBJECTT" & + "YPE_EMAIL_INDEX" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (OBJECTTYPE = @Objecttype)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Objecttype", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Objecttype", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable, ByVal Objecttype As String) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable, ByVal Objecttype As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Objecttype Is Nothing) Then Throw New Global.System.ArgumentNullException("Objecttype") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype, String) End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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 Objecttype As String) As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + + + Public Overridable Overloads Function GetData(ByVal Objecttype As String) As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Objecttype Is Nothing) Then Throw New Global.System.ArgumentNullException("Objecttype") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype, String) End If Dim dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = New MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGI_OBJECTTYPE_EMAIL_INDEX") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String) As Integer + + + Public Overridable Overloads Function Insert(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String) As Integer If (OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECTTYPE") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECTTYPE,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECTTYPE, String) End If If (IDX_EMAIL_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDX_EMAIL_ID, String) End If If (IDX_EMAIL_FROM Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM, String) End If If (IDX_EMAIL_TO Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(IDX_EMAIL_TO, String) End If If (IDX_EMAIL_SUBJECT Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT, String) End If If (IDX_EMAIL_DATE_IN Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If If (IDX_CHECK_ATTACHMENT Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(IDX_CHECK_ATTACHMENT,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(IDX_CHECK_ATTACHMENT, 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + + + Public Overridable Overloads Function Update(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECTTYPE") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECTTYPE,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECTTYPE, String) End If If (IDX_EMAIL_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID, String) End If If (IDX_EMAIL_FROM Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM, String) End If If (IDX_EMAIL_TO Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO, String) End If If (IDX_EMAIL_SUBJECT Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT, String) End If If (IDX_EMAIL_DATE_IN Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO, String) End If If (IDX_CHECK_ATTACHMENT Is Nothing) Then Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IDX_CHECK_ATTACHMENT,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IDX_CHECK_ATTACHMENT, String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(9).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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_MAN_POSTPROCESSINGTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -23619,255 +23634,255 @@ Namespace MyDatasetTableAdapters 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_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.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, "", "", "")) + Me._adapter.DeleteCommand.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, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (IDXMAN_ID, C"& _ - "OMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, VA"& _ - "RIANT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@T"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (IDXMAN_ID, C" & + "OMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, VA" & + "RIANT)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@T" & "EXT2,@TEXT3,@SEQUENCE,@ADDED_WHO,@VARIANT)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, 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("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", 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("@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("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, 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("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", 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("@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("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", 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_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET IDXMAN_ID = @IDXMA"& _ - "N_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUN"& _ - "CTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, VARIANT = @VARIANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN_POSTPROCESSING" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET IDXMAN_ID = @IDXMA" & + "N_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUN" & + "CTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, VARIANT = @VARIANT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE " & " (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, 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("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", 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("@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("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, 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("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", 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("@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("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.I"& _ - "DXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.T"& _ - "YPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_IN"& _ - "DEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDE"& _ - "X_MAN_POSTPROCESSING.TEXT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCES"& _ - "SING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSIN"& _ - "G.ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN"& _ - ", TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANG"& _ - "ED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCESSING.VARIANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TB"& _ - "DD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + Me._commandCollection(0).CommandText = "SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.I" & + "DXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.T" & + "YPE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_IN" & + "DEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDE" & + "X_MAN_POSTPROCESSING.TEXT2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_INDEX_MAN_POSTPROCES" & + "SING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSIN" & + "G.ADDED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN" & + ", TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANG" & + "ED_WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_INDEX_MAN_POSTPROCESSING.VARIANT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & + " TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TB" & + "DD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "W" & "HERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).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._commandCollection(0).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, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable, ByVal DOK_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable, ByVal DOK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID, 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 DOK_ID As Integer) As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable + + + Public Overridable Overloads Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID, Integer) Dim dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable = New MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN_POSTPROCESSING") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBWHDD_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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -23877,175 +23892,175 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = "& _ - "@DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME" & 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 = " & + "@DOK_ID)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).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._commandCollection(0).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, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWHDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBWHDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID, 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 DOK_ID As Integer) As MyDataset.TBWHDD_INDEX_MANDataTable + + + Public Overridable Overloads Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBWHDD_INDEX_MANDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID, Integer) Dim dataTable As MyDataset.TBWHDD_INDEX_MANDataTable = New MyDataset.TBWHDD_INDEX_MANDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBDD_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + Public Sub New() MyBase.New - Me.ClearBeforeFill = true + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -24060,353 +24075,222 @@ Namespace MyDatasetTableAdapters 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_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAM"& _ - "E = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ADDED_WHO] = @Orig"& _ - "inal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDE"& _ - "D_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO]"& _ - " IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN"& _ - " = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS" & 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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + 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_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ - "HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, ECM_FK_ID, AD_SYNC, INTE" & + "RNAL, ACTIVE, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME, 0, 0, 0, 1,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT" & + " GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS W" & + "HERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@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("@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("@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_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ - "ANGED_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, NAME, ADDED_WHO,"& _ - " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _ - ")" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME" & 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, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED" & + "_WHEN FROM TBDD_GROUPS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@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, "", "", "")) + 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("@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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_USER_GROUPS" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & + " TBDD_GROUPS WHERE INTERNAL = 0" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBDD_USER_GROUPSDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBDD_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_USER_GROUPSDataTable = New MyDataset.TBDD_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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, ByVal Original_NAME As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - 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 NAME As String, ByVal ADDED_WHO As String) As Integer - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(1).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 NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).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_GROUPS_USERTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -24422,343 +24306,343 @@ Namespace MyDatasetTableAdapters 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_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER" & 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.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_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ - "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GRO"& _ - "UP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WH"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (USER_ID, GROUP_ID, ADDED_" & + "WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, USER_ID, GRO" & + "UP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WH" & "ERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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 TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ - "@GROUP_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)&"S"& _ - "ELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET USER_ID = @USER_ID, GROUP_ID = " & + "@GROUP_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) & "S" & + "ELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN " & "FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGE"& _ - "D_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGE" & + "D_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_GROUPS_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (USER_ID = @USER_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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 = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ - "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO)" + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_GROUPS_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (USER_ID, GROUP_ID, ADDED_" & + "WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).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, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable, ByVal USER_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.TBDD_GROUPS_USERDataTable + + + Public Overridable Overloads Function GetData(ByVal USER_ID As Integer) As MyDataset.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID, Integer) Dim dataTable As MyDataset.TBDD_GROUPS_USERDataTable = New MyDataset.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + + + Public Overridable Overloads Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID 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(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + + + Public Overridable Overloads Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID 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(USER_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID, Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + 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) + 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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function cmdinsert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + + + Public Overridable Overloads Function cmdinsert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(USER_ID,Integer) - command.Parameters(1).Value = CType(GROUP_ID,Integer) + command.Parameters(0).Value = CType(USER_ID, Integer) + command.Parameters(1).Value = CType(GROUP_ID, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - command.Parameters(2).Value = CType(ADDED_WHO,String) + command.Parameters(2).Value = CType(ADDED_WHO, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class VWGI_USER_GROUPS_RELATIONTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -24775,175 +24659,175 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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 VWGI_USER_GROUPS_RELATION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGI_USER_GROUPS_RELAT"& _ - "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID) ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT VWGI_USER_GROUPS_RELATION.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWGI_USER_GROUPS_RELAT" & + "ION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (USER_ID = @USER_ID) ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable, ByVal USER_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable + + + Public Overridable Overloads Function GetData(ByVal USER_ID As Integer) As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID, Integer) Dim dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable = New MyDataset.VWGI_USER_GROUPS_RELATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class VWGI_DOCTYPE_GROUPTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -24959,241 +24843,241 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, [GROUP], ADDED_WHO, ADDED_WHEN"& _ - ", CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGI_DOCTYPE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @"& _ - "DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DOCTYPE" + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, [GROUP], ADDED_WHO, ADDED_WHEN" & + ", CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWGI_DOCTYPE_GROUP" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (DOCTYPE_ID = @" & + "DOCTYPE_ID)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY DOCTYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).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._commandCollection(0).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._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBDD_USRGRP_DOKTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(1).CommandText = "DELETE FROM TBDD_USRGRP_DOKTYPE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "INSERT INTO TBDD_USRGRP_DOKTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, GROUP_ID, "& _ - "ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@GROUP_ID,@ADDED_WHO)" + Me._commandCollection(2).CommandText = "INSERT INTO TBDD_USRGRP_DOKTYPE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (DOCTYPE_ID, GROUP_ID, " & + "ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@DOCTYPE_ID,@GROUP_ID,@ADDED_WHO)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).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._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).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._commandCollection(2).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._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(2).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, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_DOCTYPE_GROUPDataTable, ByVal DOCTYPE_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWGI_DOCTYPE_GROUPDataTable, ByVal DOCTYPE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID, 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 DOCTYPE_ID As Integer) As MyDataset.VWGI_DOCTYPE_GROUPDataTable + + + Public Overridable Overloads Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.VWGI_DOCTYPE_GROUPDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID, Integer) Dim dataTable As MyDataset.VWGI_DOCTYPE_GROUPDataTable = New MyDataset.VWGI_DOCTYPE_GROUPDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function cmdDelete(ByVal ID As Integer) As Integer + + + Public Overridable Overloads Function cmdDelete(ByVal ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(ID,Integer) + command.Parameters(0).Value = CType(ID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function - - _ - Public Overloads Overridable Function cmdInsert(ByVal DOCTYPE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + + + Public Overridable Overloads Function cmdInsert(ByVal DOCTYPE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - command.Parameters(1).Value = CType(GROUP_ID,Integer) + command.Parameters(0).Value = CType(DOCTYPE_ID, Integer) + command.Parameters(1).Value = CType(GROUP_ID, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - command.Parameters(2).Value = CType(ADDED_WHO,String) + command.Parameters(2).Value = CType(ADDED_WHO, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBHOTKEY_PROFILETableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -25214,702 +25098,702 @@ Namespace MyDatasetTableAdapters 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 [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Or"& _ - "iginal_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Origi"& _ - "nal_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HO"& _ - "TKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_"& _ - "ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHE"& _ - "N] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ - "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Or" & + "iginal_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Origi" & + "nal_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HO" & + "TKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_" & + "ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHE" & + "N] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N" & + "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 " & "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" 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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, OBJECTTYPE, WD_SEAR"& _ - "CH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@OBJECTTYPE,"& _ - "@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME"& _ - " + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HO"& _ - "TKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, OBJECTTYPE, WD_SEAR" & + "CH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@OBJECTTYPE," & + "@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, NAME" & + " + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HO" & + "TKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR" & "OM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", 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("@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("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", 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 [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEA"& _ - "RCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @"& _ - "WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO]"& _ - " = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID)"& _ - " AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([W"& _ - "D_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKE"& _ - "Y2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED"& _ - "_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ - "LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND "& _ - "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _ - "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _ - "NGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY"& _ - "2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, AD"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEA" & + "RCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @" & + "WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO]" & + " = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID)" & + " AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([W" & + "D_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKE" & + "Y2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED" & + "_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU" & + "LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND " & + "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull" & + "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA" & + "NGED_WHEN)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY" & + "2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, AD" & "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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, 0, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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, 0, 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("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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, 0, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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, 0, 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("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, False, Nothing, "", "", "")) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ - "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri" & + "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN," & + " CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_" & "PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, OBJECTTYPE = @OBJ"& _ - "ECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_"& _ - "NAME = @WINDOW_NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ + Me._commandCollection(1).CommandText = "UPDATE TBHOTKEY_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME, OBJECTTYPE = @OBJ" & + "ECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_" & + "NAME = @WINDOW_NAME, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHO = @CHANGED_WHO" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHER" & "E (GUID = @Original_GUID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).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._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ - "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ + Me._commandCollection(2).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri" & + "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN," & + " CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_" & "PROFILE where GUID = @HK_ID" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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() As MyDataset.TBHOTKEY_PROFILEDataTable + + + Public Overridable Overloads Function GetData() As MyDataset.TBHOTKEY_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillByID(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable, ByVal HK_ID As Integer) As Integer + + + Public Overridable Overloads Function FillByID(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable, ByVal HK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID, 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 GetDataByID(ByVal HK_ID As Integer) As MyDataset.TBHOTKEY_PROFILEDataTable + + + Public Overridable Overloads Function GetDataByID(ByVal HK_ID As Integer) As MyDataset.TBHOTKEY_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID, Integer) Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_PROFILE") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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, ByVal Original_NAME As String, ByVal Original_OBJECTTYPE As String, ByVal Original_WD_SEARCH As String, ByVal Original_HOTKEY1 As String, ByVal Original_HOTKEY2 As String, ByVal Original_WINDOW_NAME As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_OBJECTTYPE As String, ByVal Original_WD_SEARCH As String, ByVal Original_HOTKEY1 As String, ByVal Original_HOTKEY2 As String, ByVal Original_WINDOW_NAME As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) If (Original_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME, String) End If If (Original_OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_OBJECTTYPE,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_OBJECTTYPE, String) End If If (Original_WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_WD_SEARCH,String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_WD_SEARCH, String) End If If (Original_HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HOTKEY1") Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HOTKEY1,String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HOTKEY1, String) End If If (Original_HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HOTKEY2") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_HOTKEY2,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_HOTKEY2, String) End If If (Original_WINDOW_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_WINDOW_NAME,String) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_WINDOW_NAME, String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String) As Integer + + + Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) End If If (OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECTTYPE") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(OBJECTTYPE,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(OBJECTTYPE, String) End If If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH, String) End If If (HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY1") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1, String) End If If (HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY2") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2, String) End If If (WINDOW_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("WINDOW_NAME") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(WINDOW_NAME,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(WINDOW_NAME, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal OBJECTTYPE As String, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal WINDOW_NAME As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_OBJECTTYPE As String, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_WINDOW_NAME As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + + + Public Overridable Overloads Function Update( + ByVal NAME As String, + ByVal OBJECTTYPE As String, + ByVal WD_SEARCH As String, + ByVal HOTKEY1 As String, + ByVal HOTKEY2 As String, + ByVal WINDOW_NAME As String, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_GUID As Integer, + ByVal Original_NAME As String, + ByVal Original_OBJECTTYPE As String, + ByVal Original_WD_SEARCH As String, + ByVal Original_HOTKEY1 As String, + ByVal Original_HOTKEY2 As String, + ByVal Original_WINDOW_NAME As String, + ByVal Original_ADDED_WHO As String, + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_CHANGED_WHO As String, + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) End If If (OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECTTYPE") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OBJECTTYPE,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OBJECTTYPE, String) End If If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH, String) End If If (HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY1") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1, String) End If If (HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY2") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2, String) End If If (WINDOW_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("WINDOW_NAME") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WINDOW_NAME,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WINDOW_NAME, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID, Integer) If (Original_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME") Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME, String) End If If (Original_OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_OBJECTTYPE,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_OBJECTTYPE, String) End If If (Original_WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_WD_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_WD_SEARCH, String) End If If (Original_HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HOTKEY1") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY1,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY1, String) End If If (Original_HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HOTKEY2") Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HOTKEY2, String) End If If (Original_WINDOW_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_WINDOW_NAME,String) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_WINDOW_NAME, String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(24).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal OBJECTTYPE As String, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal WINDOW_NAME As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_OBJECTTYPE As String, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_WINDOW_NAME As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ + + + Public Overridable Overloads Function Update( + ByVal NAME As String, + ByVal OBJECTTYPE As String, + ByVal WD_SEARCH As String, + ByVal HOTKEY1 As String, + ByVal HOTKEY2 As String, + ByVal WINDOW_NAME As String, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_GUID As Integer, + ByVal Original_NAME As String, + ByVal Original_OBJECTTYPE As String, + ByVal Original_WD_SEARCH As String, + ByVal Original_HOTKEY1 As String, + ByVal Original_HOTKEY2 As String, + ByVal Original_WINDOW_NAME As String, + ByVal Original_ADDED_WHO As String, + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_OBJECTTYPE, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_WINDOW_NAME, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function - - _ - Public Overloads Overridable Function cmdUpdate(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer) As Integer + + + Public Overridable Overloads Function cmdUpdate(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - command.Parameters(0).Value = CType(NAME,String) + command.Parameters(0).Value = CType(NAME, String) End If If (OBJECTTYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECTTYPE") Else - command.Parameters(1).Value = CType(OBJECTTYPE,String) + command.Parameters(1).Value = CType(OBJECTTYPE, String) End If If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else - command.Parameters(2).Value = CType(WD_SEARCH,String) + command.Parameters(2).Value = CType(WD_SEARCH, String) End If If (HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY1") Else - command.Parameters(3).Value = CType(HOTKEY1,String) + command.Parameters(3).Value = CType(HOTKEY1, String) End If If (HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY2") Else - command.Parameters(4).Value = CType(HOTKEY2,String) + command.Parameters(4).Value = CType(HOTKEY2, String) End If If (WINDOW_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("WINDOW_NAME") Else - command.Parameters(5).Value = CType(WINDOW_NAME,String) + command.Parameters(5).Value = CType(WINDOW_NAME, String) End If If (CHANGED_WHO Is Nothing) Then command.Parameters(6).Value = Global.System.DBNull.Value Else - command.Parameters(6).Value = CType(CHANGED_WHO,String) + command.Parameters(6).Value = CType(CHANGED_WHO, String) End If - command.Parameters(7).Value = CType(Original_GUID,Integer) + command.Parameters(7).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBHOTKEY_PATTERNSTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -25927,347 +25811,347 @@ Namespace MyDatasetTableAdapters 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 TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_PATTERNS" & 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.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 TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, PATTERN_WD"& _ - "SEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_I"& _ - "D,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (HKPROFILE_ID, PATTERN_WD" & + "SEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@HKPROFILE_I" & + "D,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID" & + ", HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED" & "_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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 TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_ID, "& _ - "PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WH"& _ - "O = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO"& _ - " = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ - "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_"& _ - "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_PATTERNS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET HKPROFILE_ID = @HKPROFILE_ID, " & + "PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WH" & + "O = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHO" & + " = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Origi" & + "nal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_" & + "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = " & "@GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.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.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.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.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, AD"& _ - "DED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_P"& _ - "ATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (HKPROFILE_ID = @ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, AD" & + "DED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_P" & + "ATTERNS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (HKPROFILE_ID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable, ByVal ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_PATTERNSDataTable + + + Public Overridable Overloads Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_PATTERNSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) Dim dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable = New MyDataset.TBHOTKEY_PATTERNSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal SEQUENCE_NUMBER As Integer) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + + + Public Overridable Overloads Function Insert(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal SEQUENCE_NUMBER As Integer) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID, Integer) If (PATTERN_WDSEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH, String) End If If (WINDOW_CONTROL Is Nothing) Then Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WINDOW_CONTROL, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO, String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE_NUMBER,Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE_NUMBER, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal SEQUENCE_NUMBER As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + + + Public Overridable Overloads Function Update(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal SEQUENCE_NUMBER As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID, Integer) If (PATTERN_WDSEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH, String) End If If (WINDOW_CONTROL Is Nothing) Then Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WINDOW_CONTROL, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE_NUMBER,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE_NUMBER, Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(8).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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 TBMYHOTKEYSTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -26277,179 +26161,179 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("String", "String") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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 T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS"& _ - " String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUI"& _ - "D IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT HKPROFILE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + Me._commandCollection(0).CommandText = "SELECT T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS" & + " String" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_PROFILE AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.GUI" & + "D IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELECT HKPROFILE_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " FROM TBHOTKEY_USER_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & " WHERE (USER_ID = @USERID))) AND (T1.USER_ID = @USERID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMYHOTKEYSDataTable, ByVal USERID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBMYHOTKEYSDataTable, ByVal USERID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID, 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 USERID As Integer) As MyDataset.TBMYHOTKEYSDataTable + + + Public Overridable Overloads Function GetData(ByVal USERID As Integer) As MyDataset.TBMYHOTKEYSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID, Integer) Dim dataTable As MyDataset.TBMYHOTKEYSDataTable = New MyDataset.TBMYHOTKEYSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBHOTKEY_USER_PROFILETableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -26468,562 +26352,562 @@ Namespace MyDatasetTableAdapters 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 TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_USER_PROFILE" & 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.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 [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOT"& _ - "KEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALU"& _ - "ES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_"& _ - "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEAR"& _ - "CH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHO"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOT" & + "KEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALU" & + "ES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_" & + "WHEN, @CHANGED_WHO, @CHANGED_WHEN);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEAR" & + "CH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHO" & "TKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", 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, 0, 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", 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, 0, 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @U"& _ - "SER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [A"& _ - "DDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO"& _ - ", [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFIL"& _ - "E_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEA"& _ - "RCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] ="& _ - " @Original_HOTKEY2) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_"& _ - "WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND"& _ - " ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origi"& _ - "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ - "([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID"& _ - ", WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @U" & + "SER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [A" & + "DDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO" & + ", [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFIL" & + "E_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEA" & + "RCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] =" & + " @Original_HOTKEY2) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_" & + "WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND" & + " ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origi" & + "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR " & + "([CHANGED_WHEN] = @Original_CHANGED_WHEN)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, HKPROFILE_ID, USER_ID" & + ", WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN " & "FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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, 0, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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, 0, 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("@Original_HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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, 0, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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, 0, 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("@Original_HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, False, Nothing, "", "", "")) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO" & + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_USER_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TBHOTKEY_USER_PROFILE_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TBHOTKEY_USER_PROFILE_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 = "INSERT INTO TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, USER_I"& _ - "D, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, @USER_ID AS Expr"& _ - "1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHO"& _ - "TKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @PROFILE_ID)" + Me._commandCollection(1).CommandText = "INSERT INTO TBHOTKEY_USER_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (HKPROFILE_ID, USER_I" & + "D, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, @USER_ID AS Expr" & + "1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHO" & + "TKEY_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @PROFILE_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTK"& _ - "EY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @US"& _ + Me._commandCollection(2).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTK" & + "EY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @US" & "ER_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_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 TBHOTKEY_USER_PROFILE_GUID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable + + + Public Overridable Overloads Function GetData(ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID, Integer) Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillByUser(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal USER_ID As Integer) As Integer + + + Public Overridable Overloads Function FillByUser(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetDataByUser(ByVal USER_ID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable + + + Public Overridable Overloads Function GetDataByUser(ByVal USER_ID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID, Integer) Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_USER_PROFILE") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) + + + Public Overridable Overloads Function Insert(ByVal HKPROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID, Integer) If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH, String) End If If (HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY1") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1, String) End If If (HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY2") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal HKPROFILE_ID As Integer, _ - ByVal USER_ID As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_HKPROFILE_ID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + + + Public Overridable Overloads Function Update( + ByVal HKPROFILE_ID As Integer, + ByVal USER_ID As Integer, + ByVal WD_SEARCH As String, + ByVal HOTKEY1 As String, + ByVal HOTKEY2 As String, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_GUID As Integer, + ByVal Original_HKPROFILE_ID As Integer, + ByVal Original_USER_ID As Integer, + ByVal Original_WD_SEARCH As String, + ByVal Original_HOTKEY1 As String, + ByVal Original_HOTKEY2 As String, + ByVal Original_ADDED_WHO As String, + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_CHANGED_WHO As String, + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID, Integer) If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH, String) End If If (HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY1") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1, String) End If If (HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("HOTKEY2") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_HKPROFILE_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_USER_ID, Integer) If (Original_WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_WD_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_WD_SEARCH, String) End If If (Original_HOTKEY1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HOTKEY1") Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_HOTKEY1,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_HOTKEY1, String) End If If (Original_HOTKEY2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HOTKEY2") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY2, String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(22).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal HKPROFILE_ID As Integer, _ - ByVal USER_ID As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_HKPROFILE_ID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ + + + Public Overridable Overloads Function Update( + ByVal HKPROFILE_ID As Integer, + ByVal USER_ID As Integer, + ByVal WD_SEARCH As String, + ByVal HOTKEY1 As String, + ByVal HOTKEY2 As String, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_GUID As Integer, + ByVal Original_HKPROFILE_ID As Integer, + ByVal Original_USER_ID As Integer, + ByVal Original_WD_SEARCH As String, + ByVal Original_HOTKEY1 As String, + ByVal Original_HOTKEY2 As String, + ByVal Original_ADDED_WHO As String, + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_HKPROFILE_ID, Original_USER_ID, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function - - _ - Public Overloads Overridable Function cmdInsert(ByVal USER_ID As String, ByVal PROFILE_ID As Integer) As Integer + + + Public Overridable Overloads Function cmdInsert(ByVal USER_ID As String, ByVal PROFILE_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (USER_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("USER_ID") Else - command.Parameters(0).Value = CType(USER_ID,String) + command.Parameters(0).Value = CType(USER_ID, String) End If - command.Parameters(1).Value = CType(PROFILE_ID,Integer) + command.Parameters(1).Value = CType(PROFILE_ID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + command.Connection.Open() End If Dim returnValue As Integer - Try + Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + command.Connection.Close() End If End Try Return returnValue End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBHOTKEY_PATTERNS_REWORKTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -27044,460 +26928,460 @@ Namespace MyDatasetTableAdapters 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 [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKP"& _ - "ATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull"& _ - "_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) "& _ - "AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original"& _ - "_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Origina"& _ - "l_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_T"& _ - "EXT2)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_"& _ - "WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @"& _ - "Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O"& _ - "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKP" & + "ATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull" & + "_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) " & + "AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original" & + "_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Origina" & + "l_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_T" & + "EXT2)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_" & + "WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @" & + "Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O" & + "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C" & "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" 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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPATTERN_ID, TYP"& _ - "E, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKP"& _ - "ATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDE"& _ - "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS_REWORK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (HKPATTERN_ID, TYP" & + "E, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@HKP" & + "ATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SEL" & + "ECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDE" & + "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE" & " (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", 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("@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("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", 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("@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 TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPATTERN_ID = @HKPATTE"& _ - "RN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TE"& _ - "XT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 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, HKPATTERN"& _ - "_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_PATTERNS_REWORK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET HKPATTERN_ID = @HKPATTE" & + "RN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TE" & + "XT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 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, HKPATTERN" & + "_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, " & "CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", 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("@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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", 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("@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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUE"& _ - "NCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ - "PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (HKPATTERN_ID = @HKPATTERN_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUE" & + "NCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_" & + "PATTERNS_REWORK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (HKPATTERN_ID = @HKPATTERN_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable, ByVal HKPATTERN_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable, ByVal HKPATTERN_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID, 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 HKPATTERN_ID As Integer) As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable + + + Public Overridable Overloads Function GetData(ByVal HKPATTERN_ID As Integer) As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID, Integer) Dim dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable = New MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS_REWORK") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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, ByVal Original_HKPATTERN_ID As Integer, ByVal Original_TYPE As String, ByVal Original_FUNCTION1 As String, ByVal Original_FUNCTION2 As String, ByVal Original_TEXT1 As String, ByVal Original_TEXT2 As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HKPATTERN_ID,Integer) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_HKPATTERN_ID As Integer, ByVal Original_TYPE As String, ByVal Original_FUNCTION1 As String, ByVal Original_FUNCTION2 As String, ByVal Original_TEXT1 As String, ByVal Original_TEXT2 As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HKPATTERN_ID, Integer) If (Original_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_TYPE") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TYPE,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TYPE, String) End If If (Original_FUNCTION1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_FUNCTION1,String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_FUNCTION1, String) End If If (Original_FUNCTION2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FUNCTION2,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FUNCTION2, String) End If If (Original_TEXT1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_TEXT1,String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_TEXT1, String) End If If (Original_TEXT2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TEXT2,String) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TEXT2, String) End If - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SEQUENCE, Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + + + Public Overridable Overloads Function Insert(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPATTERN_ID, Integer) If (TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("TYPE") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYPE,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYPE, String) End If If (FUNCTION1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(FUNCTION1,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FUNCTION1, String) End If If (FUNCTION2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(FUNCTION2,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(FUNCTION2, String) End If If (TEXT1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(TEXT1,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(TEXT1, String) End If If (TEXT2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TEXT2,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TEXT2, String) End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(7).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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, 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(HKPATTERN_ID,Integer) + + + Public Overridable Overloads Function Update(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, 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(HKPATTERN_ID, Integer) If (TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("TYPE") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYPE,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYPE, String) End If If (FUNCTION1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FUNCTION1,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FUNCTION1, String) End If If (FUNCTION2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FUNCTION2,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FUNCTION2, String) End If If (TEXT1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TEXT1,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TEXT1, String) End If If (TEXT2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TEXT2,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TEXT2, String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE, Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(9).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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 TBHOTKEY_WINDOW_HOOKTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -27514,321 +27398,321 @@ Namespace MyDatasetTableAdapters 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 TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_WINDOW_HOOK" & 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.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 TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, SEQUENC"& _ - "E_NUMBER, CONTROL_VALUE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_ID,@SEQUENCE_NUMB"& _ - "ER,@CONTROL_VALUE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CON"& _ - "TROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDO"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_WINDOW_HOOK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (HKPROFILE_ID, SEQUENC" & + "E_NUMBER, CONTROL_VALUE, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@HKPROFILE_ID,@SEQUENCE_NUMB" & + "ER,@CONTROL_VALUE,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CON" & + "TROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDO" & "W_HOOK WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", 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("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", 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 TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_I"& _ - "D, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_W"& _ - "HO = @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, HKPROFIL"& _ - "E_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_WINDOW_HOOK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET HKPROFILE_ID = @HKPROFILE_I" & + "D, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_W" & + "HO = @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, HKPROFIL" & + "E_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE" & "D_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDE"& _ - "D_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDE" & + "D_WHEN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBHOTKEY_WINDOW_HOOK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE " & " (HKPROFILE_ID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable, ByVal ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable + + + Public Overridable Overloads Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) Dim dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable = New MyDataset.TBHOTKEY_WINDOW_HOOKDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_WINDOW_HOOK") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) + + + Public Overridable Overloads Function Insert(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER, Integer) If (CONTROL_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("CONTROL_VALUE") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CONTROL_VALUE, String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) + + + Public Overridable Overloads Function Update(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER, Integer) If (CONTROL_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("CONTROL_VALUE") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CONTROL_VALUE, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(5).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + 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 + 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_FILES_USERTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -27843,184 +27727,184 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("FILENAME_ONLY", "FILENAME_ONLY") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FI"& _ - "LENAME_ONLY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WORKED = 0) AND (UPP"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FI" & + "LENAME_ONLY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBGI_FILES_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (WORKED = 0) AND (UPP" & "ER(USER@WORK) = UPPER(@USERNAME))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_FILES_USERDataTable, ByVal USERNAME As String) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBGI_FILES_USERDataTable, ByVal USERNAME As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME, String) End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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 USERNAME As String) As MyDataset.TBGI_FILES_USERDataTable + + + Public Overridable Overloads Function GetData(ByVal USERNAME As String) As MyDataset.TBGI_FILES_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME, String) End If Dim dataTable As MyDataset.TBGI_FILES_USERDataTable = New MyDataset.TBGI_FILES_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBGI_HISTORYTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -28032,479 +27916,479 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - "TBGI_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ADDED_WHO = @User) AND (CONVERT(DATE, ADDED_WHEN) = "& _ - "CONVERT(DATE, GETDATE()))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" + Me._commandCollection(0).CommandText = "SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & + "TBGI_HISTORY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (ADDED_WHO = @User) AND (CONVERT(DATE, ADDED_WHEN) = " & + "CONVERT(DATE, GETDATE()))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY GUID DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", 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 GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - "TBGI_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ADDED_WHO = @User) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" + Me._commandCollection(1).CommandText = "SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & + "TBGI_HISTORY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (ADDED_WHO = @User) " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY GUID DESC" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function FillToday(ByVal dataTable As MyDataset.TBGI_HISTORYDataTable, ByVal User As String) As Integer + + + Public Overridable Overloads Function FillToday(ByVal dataTable As MyDataset.TBGI_HISTORYDataTable, ByVal User As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (User Is Nothing) Then Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(User,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User, String) End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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 User As String) As MyDataset.TBGI_HISTORYDataTable + + + Public Overridable Overloads Function GetData(ByVal User As String) As MyDataset.TBGI_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (User Is Nothing) Then Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(User,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User, String) End If Dim dataTable As MyDataset.TBGI_HISTORYDataTable = New MyDataset.TBGI_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBGI_HISTORYDataTable, ByVal User As String) As Integer + + + Public Overridable Overloads Function FillByAll(ByVal dataTable As MyDataset.TBGI_HISTORYDataTable, ByVal User As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (User Is Nothing) Then Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(User,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User, String) End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + 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 GetDataByAll(ByVal User As String) As MyDataset.TBGI_HISTORYDataTable + + + Public Overridable Overloads Function GetDataByAll(ByVal User As String) As MyDataset.TBGI_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) If (User Is Nothing) Then Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(User,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User, String) End If Dim dataTable As MyDataset.TBGI_HISTORYDataTable = New MyDataset.TBGI_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable 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_USERTableAdapter As TBDD_USERTableAdapter - + Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter - + Private _tBDD_EINGANGSARTENTableAdapter As TBDD_EINGANGSARTENTableAdapter - + Private _tBDD_INDEX_MANTableAdapter As TBDD_INDEX_MANTableAdapter - + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter - + Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter - + Private _tBGI_CONFIGURATIONTableAdapter As TBGI_CONFIGURATIONTableAdapter - + Private _tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter As TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter - + Private _tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter As TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter - + Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter - + Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter - + Private _tBHOTKEY_PROFILETableAdapter As TBHOTKEY_PROFILETableAdapter - + Private _tBHOTKEY_PATTERNSTableAdapter As TBHOTKEY_PATTERNSTableAdapter - + Private _tBHOTKEY_USER_PROFILETableAdapter As TBHOTKEY_USER_PROFILETableAdapter - + Private _tBHOTKEY_PATTERNS_REWORKTableAdapter As TBHOTKEY_PATTERNS_REWORKTableAdapter - + Private _tBHOTKEY_WINDOW_HOOKTableAdapter As TBHOTKEY_WINDOW_HOOKTableAdapter - + 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 + Me._updateOrder = Value End Set End Property - - _ + + Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter Get Return Me._tBDD_USERTableAdapter End Get Set - Me._tBDD_USERTableAdapter = value + Me._tBDD_USERTableAdapter = Value End Set End Property - - _ + + Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter Get Return Me._tBDD_DOKUMENTARTTableAdapter End Get Set - Me._tBDD_DOKUMENTARTTableAdapter = value + Me._tBDD_DOKUMENTARTTableAdapter = Value End Set End Property - - _ + + Public Property TBDD_EINGANGSARTENTableAdapter() As TBDD_EINGANGSARTENTableAdapter Get Return Me._tBDD_EINGANGSARTENTableAdapter End Get Set - Me._tBDD_EINGANGSARTENTableAdapter = value + Me._tBDD_EINGANGSARTENTableAdapter = 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 + Me._tBDD_INDEX_MANTableAdapter = Value End Set End Property - - _ + + Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter Get Return Me._tBDD_CONNECTIONTableAdapter End Get Set - Me._tBDD_CONNECTIONTableAdapter = value + Me._tBDD_CONNECTIONTableAdapter = 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 + Me._tBDD_INDEX_AUTOMTableAdapter = Value End Set End Property - - _ + + Public Property TBGI_CONFIGURATIONTableAdapter() As TBGI_CONFIGURATIONTableAdapter Get Return Me._tBGI_CONFIGURATIONTableAdapter End Get Set - Me._tBGI_CONFIGURATIONTableAdapter = value + Me._tBGI_CONFIGURATIONTableAdapter = Value End Set End Property - - _ + + Public Property TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter() As TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter Get Return Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter End Get Set - Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = value + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Value End Set End Property - - _ + + Public Property TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter() As TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter Get Return Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter End Get Set - Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = value + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Value End Set End Property - - _ + + Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter Get Return Me._tBDD_USER_GROUPSTableAdapter End Get Set - Me._tBDD_USER_GROUPSTableAdapter = value + Me._tBDD_USER_GROUPSTableAdapter = Value End Set End Property - - _ + + Public Property TBDD_GROUPS_USERTableAdapter() As TBDD_GROUPS_USERTableAdapter Get Return Me._tBDD_GROUPS_USERTableAdapter End Get Set - Me._tBDD_GROUPS_USERTableAdapter = value + Me._tBDD_GROUPS_USERTableAdapter = Value End Set End Property - - _ + + Public Property TBHOTKEY_PROFILETableAdapter() As TBHOTKEY_PROFILETableAdapter Get Return Me._tBHOTKEY_PROFILETableAdapter End Get Set - Me._tBHOTKEY_PROFILETableAdapter = value + Me._tBHOTKEY_PROFILETableAdapter = Value End Set End Property - - _ + + Public Property TBHOTKEY_PATTERNSTableAdapter() As TBHOTKEY_PATTERNSTableAdapter Get Return Me._tBHOTKEY_PATTERNSTableAdapter End Get Set - Me._tBHOTKEY_PATTERNSTableAdapter = value + Me._tBHOTKEY_PATTERNSTableAdapter = Value End Set End Property - - _ + + Public Property TBHOTKEY_USER_PROFILETableAdapter() As TBHOTKEY_USER_PROFILETableAdapter Get Return Me._tBHOTKEY_USER_PROFILETableAdapter End Get Set - Me._tBHOTKEY_USER_PROFILETableAdapter = value + Me._tBHOTKEY_USER_PROFILETableAdapter = Value End Set End Property - - _ + + Public Property TBHOTKEY_PATTERNS_REWORKTableAdapter() As TBHOTKEY_PATTERNS_REWORKTableAdapter Get Return Me._tBHOTKEY_PATTERNS_REWORKTableAdapter End Get Set - Me._tBHOTKEY_PATTERNS_REWORKTableAdapter = value + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter = Value End Set End Property - - _ + + Public Property TBHOTKEY_WINDOW_HOOKTableAdapter() As TBHOTKEY_WINDOW_HOOKTableAdapter Get Return Me._tBHOTKEY_WINDOW_HOOKTableAdapter End Get Set - Me._tBHOTKEY_WINDOW_HOOKTableAdapter = value + Me._tBHOTKEY_WINDOW_HOOKTableAdapter = Value End Set End Property - - _ + + Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set - Me._backupDataSetBeforeUpdate = value + 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_USERTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_USERTableAdapter.Connection End If - If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + 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_EINGANGSARTENTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_EINGANGSARTENTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_EINGANGSARTENTableAdapter.Connection End If - If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + 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_CONNECTIONTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CONNECTIONTableAdapter.Connection End If - If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + 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_CONFIGURATIONTableAdapter) Is Nothing) _ + If ((Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBGI_CONFIGURATIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBGI_CONFIGURATIONTableAdapter.Connection End If - If ((Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) _ + If ((Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection) Is Nothing)) Then Return Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection End If - If ((Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection End If - If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_USER_GROUPSTableAdapter.Connection End If - If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_GROUPS_USERTableAdapter.Connection End If - If ((Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) _ + If ((Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBHOTKEY_PROFILETableAdapter.Connection) Is Nothing)) Then Return Me._tBHOTKEY_PROFILETableAdapter.Connection End If - If ((Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) _ + If ((Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBHOTKEY_PATTERNSTableAdapter.Connection) Is Nothing)) Then Return Me._tBHOTKEY_PATTERNSTableAdapter.Connection End If - If ((Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) _ + If ((Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBHOTKEY_USER_PROFILETableAdapter.Connection) Is Nothing)) Then Return Me._tBHOTKEY_USER_PROFILETableAdapter.Connection End If - If ((Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) _ + If ((Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection) Is Nothing)) Then Return Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection End If - If ((Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) _ + If ((Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection) Is Nothing)) Then Return Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection End If Return Nothing End Get Set - Me._connection = value + Me._connection = Value End Set End Property - - _ + + Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 @@ -28559,18 +28443,18 @@ Namespace MyDatasetTableAdapters Return count End Get End Property - + ''' '''Update rows in top-down order. ''' - _ + Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, 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_EINGANGSARTENTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28579,7 +28463,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28588,7 +28472,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28597,7 +28481,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28606,7 +28490,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28615,7 +28499,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBHOTKEY_PATTERNSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28624,7 +28508,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28633,7 +28517,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28642,7 +28526,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28651,7 +28535,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28660,7 +28544,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS_REWORK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28669,7 +28553,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBHOTKEY_USER_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28678,7 +28562,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28687,7 +28571,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN_POSTPROCESSING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28696,7 +28580,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGI_OBJECTTYPE_EMAIL_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28705,7 +28589,7 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBGI_CONFIGURATIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -28713,17 +28597,17 @@ Namespace MyDatasetTableAdapters End If Return result End Function - + ''' '''Insert rows in top-down order. ''' - _ + Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28731,7 +28615,7 @@ Namespace MyDatasetTableAdapters End If 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) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28739,7 +28623,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28747,7 +28631,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28755,7 +28639,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28763,7 +28647,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBHOTKEY_PATTERNSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28771,7 +28655,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28779,7 +28663,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28787,7 +28671,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28795,7 +28679,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28803,7 +28687,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS_REWORK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28811,7 +28695,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBHOTKEY_USER_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28819,7 +28703,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28827,7 +28711,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN_POSTPROCESSING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28835,7 +28719,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGI_OBJECTTYPE_EMAIL_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28843,7 +28727,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBGI_CONFIGURATIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -28851,17 +28735,17 @@ Namespace MyDatasetTableAdapters End If Return result End Function - + ''' '''Delete rows in bottom-up order. ''' - _ + Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBGI_CONFIGURATIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28869,7 +28753,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_OBJECTTYPE_EMAIL_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28877,7 +28761,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN_POSTPROCESSING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28885,7 +28769,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28893,7 +28777,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBHOTKEY_USER_PROFILETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28901,7 +28785,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS_REWORK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28909,7 +28793,7 @@ Namespace MyDatasetTableAdapters End If If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28917,7 +28801,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -28925,7 +28809,7 @@ Namespace MyDatasetTableAdapters 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) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd index 2fd3e8d..e14f50b 100644 --- a/Global_Indexer/MyDataset.xsd +++ b/Global_Indexer/MyDataset.xsd @@ -923,54 +923,45 @@ ORDER BY NAME - + - - DELETE FROM [TBDD_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + DELETE FROM TBDD_GROUPS +WHERE (GUID = @Original_GUID) - - - - - - - - - - + - INSERT INTO TBDD_USER_GROUPS - (NAME, ADDED_WHO) -VALUES (@NAME,@ADDED_WHO); -SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY()) + INSERT INTO TBDD_GROUPS + (NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, ADDED_WHO) +VALUES (@NAME, 0, 0, 0, 1,@ADDED_WHO); +SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = SCOPE_IDENTITY()) - - + + SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBDD_USER_GROUPS +FROM TBDD_GROUPS WHERE INTERNAL = 0 - UPDATE TBDD_USER_GROUPS -SET NAME = @NAME, CHANGED_WHO = @CHANGED_WHO + UPDATE TBDD_GROUPS +SET NAME = @NAME WHERE (GUID = @Original_GUID); -SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID) +SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = @GUID) - - - - + + + @@ -1722,7 +1713,7 @@ ORDER BY GUID DESC - + @@ -1797,7 +1788,7 @@ ORDER BY GUID DESC - + @@ -1880,7 +1871,7 @@ ORDER BY GUID DESC - + @@ -1917,7 +1908,7 @@ ORDER BY GUID DESC - + @@ -1931,7 +1922,7 @@ ORDER BY GUID DESC - + @@ -1945,7 +1936,7 @@ ORDER BY GUID DESC - + @@ -2024,7 +2015,7 @@ ORDER BY GUID DESC - + @@ -2097,7 +2088,7 @@ ORDER BY GUID DESC - + @@ -2210,7 +2201,7 @@ ORDER BY GUID DESC - + @@ -2306,7 +2297,7 @@ ORDER BY GUID DESC - + @@ -2361,7 +2352,7 @@ ORDER BY GUID DESC - + @@ -2369,7 +2360,7 @@ ORDER BY GUID DESC - + @@ -2419,7 +2410,7 @@ ORDER BY GUID DESC - + @@ -2491,7 +2482,7 @@ ORDER BY GUID DESC - + @@ -2572,7 +2563,7 @@ ORDER BY GUID DESC - + @@ -2586,7 +2577,7 @@ ORDER BY GUID DESC - + @@ -2595,7 +2586,7 @@ ORDER BY GUID DESC - + @@ -2606,7 +2597,7 @@ ORDER BY GUID DESC - + @@ -2625,7 +2616,7 @@ ORDER BY GUID DESC - + @@ -2650,7 +2641,7 @@ ORDER BY GUID DESC - + @@ -2689,7 +2680,7 @@ ORDER BY GUID DESC - + @@ -2721,7 +2712,7 @@ ORDER BY GUID DESC - + @@ -2793,7 +2784,7 @@ ORDER BY GUID DESC - + @@ -2832,7 +2823,7 @@ ORDER BY GUID DESC - + @@ -2846,7 +2837,7 @@ ORDER BY GUID DESC - + @@ -2892,7 +2883,7 @@ ORDER BY GUID DESC - + @@ -2952,7 +2943,7 @@ ORDER BY GUID DESC - + @@ -2984,7 +2975,7 @@ ORDER BY GUID DESC - + @@ -3022,7 +3013,7 @@ ORDER BY GUID DESC - + @@ -3044,7 +3035,7 @@ ORDER BY GUID DESC - + @@ -3165,21 +3156,21 @@ ORDER BY GUID DESC - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss index a77c7be..3b22f4e 100644 --- a/Global_Indexer/MyDataset.xss +++ b/Global_Indexer/MyDataset.xss @@ -4,48 +4,52 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - + + + - + - + - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + - - + + - 431 - 344 + 590 + 523 - 397 - 344 + 590 + 540 + + + 607 + 540 @@ -64,16 +68,20 @@ - 397 - 618 + 651 + 719 + + + 651 + 736 668 - 618 + 736 - + 605 @@ -89,7 +97,7 @@ - + 959 @@ -101,55 +109,59 @@ - + - 1193 - 253 + 1441 + 100 - 741 - 253 + 1441 + 39 - 741 - 220 + 1144 + 39 + + + 1144 + 107 - + - 871 + 835 247 - 871 - 220 + 835 + 230 + + + 852 + 230 - + - 94 - 0 + 639 + 719 - 94 - -30 + 639 + 744 - 94 - -30 - - - 94 - 0 + 622 + 744 - + 129 @@ -165,7 +177,7 @@ - + 183 @@ -177,7 +189,7 @@ - + 88 @@ -197,7 +209,7 @@ - + 117 @@ -217,7 +229,7 @@ - + 765 @@ -233,7 +245,7 @@ - + 409 @@ -253,7 +265,7 @@ - + 38 diff --git a/Global_Indexer/frmConnections.en-US.resx b/Global_Indexer/frmConnections.en-US.resx index 4731c28..0ae737d 100644 --- a/Global_Indexer/frmConnections.en-US.resx +++ b/Global_Indexer/frmConnections.en-US.resx @@ -234,6 +234,9 @@ Active + + MS-SQL + 156, 17 diff --git a/Global_Indexer/frmConnections.resx b/Global_Indexer/frmConnections.resx index f8f0f0f..cd7a2b7 100644 --- a/Global_Indexer/frmConnections.resx +++ b/Global_Indexer/frmConnections.resx @@ -155,9 +155,6 @@ 222, 22 - - 827, 25 - 252, 41 @@ -263,8 +260,8 @@ Die Gesamtanzahl der Elemente. - - 7 + + 48, 13 BindingNavigatorDeleteItem @@ -275,8 +272,8 @@ 185, 106 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Ohne tnsnames.ora Connections @@ -314,9 +311,6 @@ 42 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - GEANDERTWERTextBox @@ -371,6 +365,9 @@ True + + 7 + CheckBoxwin_aut @@ -409,6 +406,9 @@ 6, 13 + + 189, 163 + 1 @@ -458,9 +458,6 @@ System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 186, 25 - True @@ -502,6 +499,9 @@ System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Windows-Authentifizierung + 15 @@ -517,8 +517,8 @@ 134, 22 - - Ohne tnsnames.ora + + Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null Löschen @@ -595,9 +595,6 @@ ID: - - $this - 80, 13 @@ -637,6 +634,9 @@ 189, 41 + + 496, 124 + 496, 165 @@ -646,8 +646,8 @@ 23, 22 - - 3 + + Connection erfolgreich gespeichert! 23, 22 @@ -658,6 +658,9 @@ 340, 163 + + lblUserId + 144, 22 @@ -709,9 +712,6 @@ System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 186, 188 - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -721,9 +721,6 @@ $this - - 8 - BEZEICHNUNGTextBox @@ -778,8 +775,8 @@ lblDataSource - - 161, 264 + + BindingNavigatorCountItem 0 @@ -790,8 +787,8 @@ 21 - - Connection erfolgreich gespeichert! + + TBDD_CONNECTIONBindingNavigatorSaveItem DATENBANKTextBox @@ -847,6 +844,9 @@ Daten speichern + + Bezeichnung: + True @@ -880,6 +880,9 @@ 136, 23 + + btnCheck_Con + frmConnections @@ -892,6 +895,9 @@ 338, 122 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + SQL_PROVIDERLabel @@ -937,6 +943,9 @@ 23, 22 + + von {0} + 0, 22 @@ -946,21 +955,18 @@ True + + 3 + 8 - - btnCheck_Con - - - 145, 22 + + 186, 188 23, 22 - - 48, 13 - ListBox1 @@ -994,8 +1000,8 @@ Passwort*: - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 23, 22 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1033,6 +1039,9 @@ System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1048,9 +1057,6 @@ 10 - - TBDD_CONNECTIONBindingNavigatorSaveItem - 26 @@ -1090,9 +1096,6 @@ True - - GUIDTextBox - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1105,17 +1108,14 @@ BindingNavigatorSeparator - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 827, 309 77, 13 - - 496, 124 + + 161, 264 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1126,8 +1126,8 @@ False - - Windows-Authentifizierung + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 333, 251 @@ -1144,8 +1144,8 @@ 496, 39 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 $this @@ -1162,8 +1162,8 @@ 627, 267 - - von {0} + + 145, 22 23 @@ -1180,8 +1180,8 @@ 145, 22 - - 189, 163 + + 186, 25 System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1189,8 +1189,8 @@ 121, 21 - - 23, 22 + + 8 True @@ -1225,8 +1225,8 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BindingNavigatorCountItem + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 3 @@ -1234,17 +1234,17 @@ 6, 25 - - Bezeichnung: + + GUIDTextBox - - Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + $this MyDataset - - lblUserId + + 827, 25 Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null diff --git a/Global_Indexer/frmConnections.vb b/Global_Indexer/frmConnections.vb index 713813b..8b39e02 100644 --- a/Global_Indexer/frmConnections.vb +++ b/Global_Indexer/frmConnections.vb @@ -39,7 +39,7 @@ Public Class frmConnections chkOR_ohne_TNS.Visible = False Select Case Me.SQL_PROVIDERComboBox.SelectedItem - Case "MS-SQLServer" + Case "MS-SQL" If USER_LANGUAGE = "de-DE" Then Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:" Me.lblInitialCatalog.Text = "Datenbank-Name:" @@ -128,7 +128,7 @@ Public Class frmConnections Cursor = Cursors.WaitCursor Select Case Me.SQL_PROVIDERComboBox.SelectedItem - Case "MS-SQLServer" + Case "MS-SQL" Dim con As String If CheckBoxwin_aut.Checked Then con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;" @@ -209,7 +209,7 @@ Public Class frmConnections If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then Select Case Me.SQL_PROVIDERComboBox.SelectedItem - Case "MS-SQLServer" + Case "MS-SQL" Dim con As String If CheckBoxwin_aut.Checked Then con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;" diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 7a50476..ab56b35 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -520,26 +520,31 @@ Public Class frmIndex If NewDataset.Tables(0).Rows.Count > 0 Then 'Die Standardcombobox anlegen newCMB = addCombobox(indexname, y) - 'Die Standargrösse definieren - Dim newWidth As Integer = 300 - For i = 0 To NewDataset.Tables(0).Rows.Count - 1 - 'MsgBox(NewDataset.Tables(0).Rows(i).Item(0)) - AddComboBoxValue(newCMB, NewDataset.Tables(0).Rows(i).Item(0)) - Try - Dim text As String = NewDataset.Tables(0).Rows(i).Item(0) - If text.Length > 15 Then - Dim g As Graphics = newCMB.CreateGraphics - If g.MeasureString(text, newCMB.Font).Width + 30 > newWidth Then - newWidth = g.MeasureString(text, newCMB.Font).Width + 30 - End If - g.Dispose() - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:") - End Try - Next - newCMB.Size = New Size(newWidth, 27) + + newCMB.DataSource = NewDataset.Tables(0) + newCMB.DisplayMember = NewDataset.Tables(0).Columns(0).ColumnName + + 'Die Standargrösse definieren + 'Dim newWidth As Integer = 300 + 'For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + ' 'MsgBox(NewDataset.Tables(0).Rows(i).Item(0)) + ' AddComboBoxValue(newCMB, NewDataset.Tables(0).Rows(i).Item(0)) + ' Try + ' Dim text As String = NewDataset.Tables(0).Rows(i).Item(0) + ' If text.Length > 15 Then + ' Dim g As Graphics = newCMB.CreateGraphics + ' If g.MeasureString(text, newCMB.Font).Width + 30 > newWidth Then + ' newWidth = g.MeasureString(text, newCMB.Font).Width + 30 + ' End If + ' g.Dispose() + ' End If + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:") + ' End Try + + 'Next + 'newCMB.Size = New Size(newWidth, 27) newCMB.AutoCompleteSource = AutoCompleteSource.ListItems newCMB.AutoCompleteMode = AutoCompleteMode.Suggest newCMB.DropDownHeight = (newCMB.ItemHeight + 0.2) * 25 diff --git a/Global_Indexer/frmSQLSuggestion.Designer.vb b/Global_Indexer/frmSQLSuggestion.Designer.vb index ded8775..42d161f 100644 --- a/Global_Indexer/frmSQLSuggestion.Designer.vb +++ b/Global_Indexer/frmSQLSuggestion.Designer.vb @@ -181,7 +181,6 @@ Partial Class frmSQLSuggestion Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmSQLSuggestion" - Me.TopMost = True Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/Global_Indexer/frmSQLSuggestion.resx b/Global_Indexer/frmSQLSuggestion.resx index 36a4807..ac27c4e 100644 --- a/Global_Indexer/frmSQLSuggestion.resx +++ b/Global_Indexer/frmSQLSuggestion.resx @@ -122,6 +122,12 @@ MiddleLeft + + 0 + + + 1172, 489 + True @@ -129,9 +135,6 @@ Top, Right - - Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - 227, 59 @@ -144,11 +147,11 @@ SQL_UEBERPRUEFUNGLabel - - 48 + + 610, 279 - - Label2 + + 51 195, 15 @@ -156,21 +159,27 @@ Button1 - - SQL_ERGEBNISTextBox - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 89, 25 - - 2 + + frmSQLSuggestion + + + True + + + GroupBox1 Bottom, Right + + $this + 289, 22 @@ -180,9 +189,6 @@ 212, 22 - - Top, Right - Speichern @@ -192,18 +198,21 @@ SQL_UEBERPRUEFUNGTextBox + + Segoe UI, 8.25pt + MiddleLeft + + 905, 441 + 6, 13 MiddleRight - - 103, 27 - 0 @@ -213,11 +222,8 @@ TBDD_CONNECTIONTableAdapter - - 2 - - - Segoe UI Semibold, 9pt, style=Bold, Italic + + SQL-Daten erfolgreich gespeichert! GroupBox1 @@ -228,8 +234,8 @@ System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + SQL für Vorschlagsliste: Geben Sie hier den Ausgangswert des manuellen Indexes ein. @@ -245,35 +251,23 @@ Ergebniswert angezeigt. TBDD_CONNECTIONBindingSource - - 52 - 7 + + $this + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 51 - - - 1 + + btnTestNachbearbeitung MyDataset - - Top, Right - - - 12, 66 - - - frmSQLSuggestion - - - 8 + + 1 433, 39 @@ -287,14 +281,14 @@ Ergebniswert angezeigt. True - - btnVorschlag - Top, Bottom, Left, Right - - $this + + Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + Label2 4 @@ -302,6 +296,9 @@ Ergebniswert angezeigt. TableAdapterManager + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + MiddleRight @@ -317,15 +314,12 @@ Ergebniswert angezeigt. 112, 23 - - Segoe UI, 8.25pt + + 2 lblSave - - 324, 39 - Test @@ -347,8 +341,8 @@ Ergebniswert angezeigt. 536, 54 - - 0 + + SQL_ERGEBNISTextBox 351, 93 @@ -362,8 +356,8 @@ Ergebniswert angezeigt. 15, 82 - - 90, 31 + + Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 9, 63 @@ -371,20 +365,28 @@ Ergebniswert angezeigt. cmbConnection + + $this + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + 12, 66 + + + SQL-Überprüfung für manuellen Index: +Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. +(SELECT COUNT(*) FROM IHRE_KEY_TABLE WHERE IHRE_WERT_SPALTE = INPUTVALUE) GroupBox1 - - 1 + + btnVorschlag - - Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Top, Right Bottom, Left @@ -392,9 +394,6 @@ Ergebniswert angezeigt. 3 - - 15, 367 - $this @@ -410,34 +409,38 @@ Ergebniswert angezeigt. 15, 24 - - SQL-Überprüfung für manuellen Index: -Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. -(SELECT COUNT(*) FROM IHRE_KEY_TABLE WHERE IHRE_WERT_SPALTE = INPUTVALUE) + + $this + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 6 - - 905, 441 + + 2 686, 108 - - Teste SQL + + 1 683, 66 - - 610, 279 + + 90, 31 - - Konfiguration SQL + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True + + 8 + + + 103, 27 True @@ -448,8 +451,8 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. 483, 106 - - MiddleRight + + 15, 367 Both @@ -460,8 +463,11 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. 1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + MiddleRight + + + Consolas, 8.25pt GroupBox1 @@ -472,14 +478,8 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. Nachbearbeitung testen: - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SQL-Daten erfolgreich gespeichert! - - - False + + Segoe UI Semibold, 9pt, style=Bold, Italic Consolas, 8.25pt @@ -487,8 +487,8 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Consolas, 8.25pt + + Konfiguration SQL 54 @@ -496,23 +496,23 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. MiddleLeft - - GroupBox1 + + Top, Right System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0 + + 48 - - 1172, 489 + + 52 - - $this + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 324, 39 System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -523,17 +523,17 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. $this - - SQL für Vorschlagsliste: + + False - - btnTestNachbearbeitung + + 0 Button2 - - $this + + Teste SQL 49