diff --git a/app/DD_Clipboard_Searcher/App.config b/app/DD_Clipboard_Searcher/App.config index 9b90dd5..57022e5 100644 --- a/app/DD_Clipboard_Searcher/App.config +++ b/app/DD_Clipboard_Searcher/App.config @@ -2,12 +2,12 @@ -
+
- + @@ -17,7 +17,7 @@ - + Skin/Office 2019 Colorful @@ -87,8 +87,7 @@ - diff --git a/app/DD_Clipboard_Searcher/ClassClipboardWatcher.vb b/app/DD_Clipboard_Searcher/ClassClipboardWatcher.vb index a951592..16bcee2 100644 --- a/app/DD_Clipboard_Searcher/ClassClipboardWatcher.vb +++ b/app/DD_Clipboard_Searcher/ClassClipboardWatcher.vb @@ -34,7 +34,7 @@ Public Class ClassClipboardWatcher : Inherits NativeWindow : Implements IDisposa Exit Sub End If - If oWindow.ProcessName.StartsWith("DD_Clipboard_Watcher") Then + If oWindow.ProcessName.StartsWith("easyFLOW") Then Exit Sub End If diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb index 74dfb67..08944b9 100644 --- a/app/DD_Clipboard_Searcher/ClassInit.vb +++ b/app/DD_Clipboard_Searcher/ClassInit.vb @@ -158,29 +158,6 @@ Public Class ClassInit Return True End Function - - 'Private Function DecryptConnectionString(EncryptedConnectionString As String) As String - ' Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With { - ' .ConnectionString = EncryptedConnectionString - ' } - - ' If oBuilder.ConnectionString.Contains("Password=") Then - ' Dim oPlaintextPassword As String - ' Dim oDecryptor As New clsEncryption("!35452didalog=") - - ' Try - ' oPlaintextPassword = oDecryptor.DecryptData(oBuilder.Password) - ' Catch ex As Exception - ' Logger.Error(ex) - ' Logger.Debug("Password {0} could not be decrypted. Assuming plaintext password.") - ' oPlaintextPassword = oBuilder.Password - ' End Try - ' Return EncryptedConnectionString.Replace(oBuilder.Password, oPlaintextPassword) - ' Else - ' Return EncryptedConnectionString - ' End If - 'End Function - Public Function CheckModuleData() Try Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED) @@ -425,15 +402,15 @@ Public Class ClassInit End Sub Public Shared Function Refresh_Profile_Links() As String - Dim oWhereClause = $"T1.USER_ID = {USER_ID} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {USER_ID}))" + Dim oWhereClause = $"USER_ID = {USER_ID} " Hier noch die Gruppenverknüpfung 'OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {USER_ID}))" - Dim ProfileSQL As String = $"SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE T1 WHERE {oWhereClause}" - Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" - Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" - Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + Dim ProfileSQL As String = $"SELECT DISTINCT PROFIL_ID, PROFIL_NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE {oWhereClause}" + Dim oProcessSQL As String = $"SELECT DISTINCT T.PROFIL_ID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND ({oWhereClause})" + Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND ({oWhereClause})" + Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND ({oWhereClause})" - Try - DT_USER_PROFILES = Database.GetDatatable(ProfileSQL) + 'Try + DT_USER_PROFILES = Database.GetDatatable(ProfileSQL) If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then Return S.Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_ @@ -442,11 +419,11 @@ Public Class ClassInit DTPROFILE_REL_PROCESS = Database.GetDatatable(oProcessSQL) DTPROFILE_REL_WINDOW = Database.GetDatatable(oWindowSQL) DTPROFILE_REL_CONTROL = Database.GetDatatable(oControlSQL) - Catch ex As Exception - Logger.Error(ex) - MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical) - Return S.Fehler_bei_der_Aktualisierung_ - End Try + 'Catch ex As Exception + ' Logger.Error(ex) + ' MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical) + ' Return S.Fehler_bei_der_Aktualisierung_ + 'End Try Return S.Aktualisierung_erfolgreich_ End Function diff --git a/app/DD_Clipboard_Searcher/ClassWindow.vb b/app/DD_Clipboard_Searcher/ClassWindow.vb index 2a2da9c..716b78b 100644 --- a/app/DD_Clipboard_Searcher/ClassWindow.vb +++ b/app/DD_Clipboard_Searcher/ClassWindow.vb @@ -29,7 +29,7 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable Exit Sub End If - If oWindow.ProcessName.StartsWith("DD_Clipboard_Watcher") Then + If oWindow.ProcessName.StartsWith("easyFLOW") Then Exit Sub End If diff --git a/app/DD_Clipboard_Searcher/ClassWindowAPIUtils.vb b/app/DD_Clipboard_Searcher/ClassWindowAPIUtils.vb index bde4eee..ec45500 100644 --- a/app/DD_Clipboard_Searcher/ClassWindowAPIUtils.vb +++ b/app/DD_Clipboard_Searcher/ClassWindowAPIUtils.vb @@ -1,7 +1,7 @@ Imports System Imports System.Text Imports System.ComponentModel -Imports DD_Clipboard_Watcher.ClassWindowsAPINativeMethods +Imports easyFLOW.ClassWindowsAPINativeMethods Public Class ClassWindowAPIUtils Private Shared GetControlNameMessage As Integer = 0 diff --git a/app/DD_Clipboard_Searcher/My Project/Application.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Application.Designer.vb index 0ec27d0..ecd1ffd 100644 --- a/app/DD_Clipboard_Searcher/My Project/Application.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Application.Designer.vb @@ -32,7 +32,13 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.DD_Clipboard_Watcher.frmMain + Me.MainForm = Global.easyFLOW.frmMain End Sub + + _ + Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean + Me.MinimumSplashScreenDisplayTime = 0 + Return MyBase.OnInitialize(commandLineArgs) + End Function End Class End Namespace diff --git a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb index 01bd8ad..26737b9 100644 --- a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb +++ b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb @@ -8,12 +8,12 @@ Imports System.Runtime.InteropServices ' Die Werte der Assemblyattribute überprüfen - + - + - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb index acdc3a6..1ea3c8d 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb @@ -39,7 +39,7 @@ Namespace My.Resources Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Watcher.Resources", GetType(Resources).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("easyFLOW.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan diff --git a/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb index 85bf67c..be7bd55 100644 --- a/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -84,8 +84,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Inf"& _ + "o=True;User ID=sa;Password=dd;Encrypt=False")> _ Public ReadOnly Property DD_ECMConnectionString() As String Get Return CType(Me("DD_ECMConnectionString"),String) @@ -102,9 +102,9 @@ Namespace My Friend Module MySettingsProperty _ - Friend ReadOnly Property Settings() As Global.DD_Clipboard_Watcher.My.MySettings + Friend ReadOnly Property Settings() As Global.easyFLOW.My.MySettings Get - Return Global.DD_Clipboard_Watcher.My.MySettings.Default + Return Global.easyFLOW.My.MySettings.Default End Get End Property End Module diff --git a/app/DD_Clipboard_Searcher/My Project/Settings.settings b/app/DD_Clipboard_Searcher/My Project/Settings.settings index 47e33ae..48ee3af 100644 --- a/app/DD_Clipboard_Searcher/My Project/Settings.settings +++ b/app/DD_Clipboard_Searcher/My Project/Settings.settings @@ -14,10 +14,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> - <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index af89090..6c684aa 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -25,44 +25,44 @@ Option Explicit On Partial Public Class MyDataset Inherits Global.System.Data.DataSet - Private tableTBCW_PROFILES As TBCW_PROFILESDataTable - - Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable - - Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable - - Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable + Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable - Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable - - Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable + Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable + Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable + + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + + Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable + Private tableVWCW_USER_PROFILE As VWCW_USER_PROFILEDataTable + + Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable + + Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable + + Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable Private tableTBWH_User As TBWH_UserDataTable Private tableTBWH_GROUP As TBWH_GROUPDataTable - Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable + Private relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID As Global.System.Data.DataRelation - Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable + Private relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID As Global.System.Data.DataRelation Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation - Private relationFK_WINDOW_ID As Global.System.Data.DataRelation - - Private relationFK_PROCESS_ID As Global.System.Data.DataRelation - Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ - Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable + Public ReadOnly Property TBCW_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable Get - Return Me.tableTBCW_PROFILES - End Get - End Property - - _ - Public ReadOnly Property TBCW_USER_PROFILE() As TBCW_USER_PROFILEDataTable - Get - Return Me.tableTBCW_USER_PROFILE - End Get - End Property - - _ - Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable - Get - Return Me.tableVWUSER_PROFILE - End Get - End Property - - _ - Public ReadOnly Property TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable - Get - Return Me.tableTBCW_PROFILE_PROCESS + Return Me.tableTBCW_GROUP_PROFILE End Get End Property @@ -218,19 +188,9 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ - Public ReadOnly Property TBCW_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable + Public ReadOnly Property TBCW_PROF_REL_CONTROL() As TBCW_PROF_REL_CONTROLDataTable Get - Return Me.tableTBCW_GROUP_PROFILE - End Get - End Property - - _ - Public ReadOnly Property VWCW_GROUP_PROFILE() As VWCW_GROUP_PROFILEDataTable - Get - Return Me.tableVWCW_GROUP_PROFILE + Return Me.tableTBCW_PROF_REL_CONTROL End Get End Property @@ -244,6 +204,36 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable + Get + Return Me.tableTBCW_PROFILE_PROCESS + End Get + End Property + + _ + Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable + Get + Return Me.tableTBCW_PROFILES + End Get + End Property + + _ + Public ReadOnly Property TBCW_USER_PROFILE() As TBCW_USER_PROFILEDataTable + Get + Return Me.tableTBCW_USER_PROFILE + End Get + End Property + _ - Public ReadOnly Property TBCW_PROF_REL_CONTROL() As TBCW_PROF_REL_CONTROLDataTable + Public ReadOnly Property VWCW_USER_PROFILE() As VWCW_USER_PROFILEDataTable Get - Return Me.tableTBCW_PROF_REL_CONTROL + Return Me.tableVWCW_USER_PROFILE + End Get + End Property + + _ + Public ReadOnly Property VWCW_GROUP_PROFILE() As VWCW_GROUP_PROFILEDataTable + Get + Return Me.tableVWCW_GROUP_PROFILE + End Get + End Property + + _ + Public ReadOnly Property TBWH_SEARCH_POSITION() As TBWH_SEARCH_POSITIONDataTable + Get + Return Me.tableTBWH_SEARCH_POSITION + End Get + End Property + + _ + Public ReadOnly Property TBWH_PROFILE_TYPE() As TBWH_PROFILE_TYPEDataTable + Get + Return Me.tableTBWH_PROFILE_TYPE End Get End Property @@ -284,26 +304,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property TBWH_PROFILE_TYPE() As TBWH_PROFILE_TYPEDataTable - Get - Return Me.tableTBWH_PROFILE_TYPE - End Get - End Property - - _ - Public ReadOnly Property TBWH_SEARCH_POSITION() As TBWH_SEARCH_POSITIONDataTable - Get - Return Me.tableTBWH_SEARCH_POSITION - End Get - End Property - _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable) + Me.tableTBCW_GROUP_PROFILE = CType(MyBase.Tables("TBCW_GROUP_PROFILE"),TBCW_GROUP_PROFILEDataTable) If (initTable = true) Then - If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then - Me.tableTBCW_PROFILES.InitVars - End If - End If - Me.tableTBCW_USER_PROFILE = CType(MyBase.Tables("TBCW_USER_PROFILE"),TBCW_USER_PROFILEDataTable) - If (initTable = true) Then - If (Not (Me.tableTBCW_USER_PROFILE) Is Nothing) Then - Me.tableTBCW_USER_PROFILE.InitVars - End If - End If - Me.tableVWUSER_PROFILE = CType(MyBase.Tables("VWUSER_PROFILE"),VWUSER_PROFILEDataTable) - If (initTable = true) Then - If (Not (Me.tableVWUSER_PROFILE) Is Nothing) Then - Me.tableVWUSER_PROFILE.InitVars - End If - End If - Me.tableTBCW_PROFILE_PROCESS = CType(MyBase.Tables("TBCW_PROFILE_PROCESS"),TBCW_PROFILE_PROCESSDataTable) - If (initTable = true) Then - If (Not (Me.tableTBCW_PROFILE_PROCESS) Is Nothing) Then - Me.tableTBCW_PROFILE_PROCESS.InitVars + If (Not (Me.tableTBCW_GROUP_PROFILE) Is Nothing) Then + Me.tableTBCW_GROUP_PROFILE.InitVars End If End If Me.tableTBCW_PROF_DATA_SEARCH = CType(MyBase.Tables("TBCW_PROF_DATA_SEARCH"),TBCW_PROF_DATA_SEARCHDataTable) @@ -484,16 +466,10 @@ Partial Public Class MyDataset Me.tableTBCW_PROF_DOC_SEARCH.InitVars End If End If - Me.tableTBCW_GROUP_PROFILE = CType(MyBase.Tables("TBCW_GROUP_PROFILE"),TBCW_GROUP_PROFILEDataTable) + Me.tableTBCW_PROF_REL_CONTROL = CType(MyBase.Tables("TBCW_PROF_REL_CONTROL"),TBCW_PROF_REL_CONTROLDataTable) If (initTable = true) Then - If (Not (Me.tableTBCW_GROUP_PROFILE) Is Nothing) Then - Me.tableTBCW_GROUP_PROFILE.InitVars - End If - End If - Me.tableVWCW_GROUP_PROFILE = CType(MyBase.Tables("VWCW_GROUP_PROFILE"),VWCW_GROUP_PROFILEDataTable) - If (initTable = true) Then - If (Not (Me.tableVWCW_GROUP_PROFILE) Is Nothing) Then - Me.tableVWCW_GROUP_PROFILE.InitVars + If (Not (Me.tableTBCW_PROF_REL_CONTROL) Is Nothing) Then + Me.tableTBCW_PROF_REL_CONTROL.InitVars End If End If Me.tableTBCW_PROF_REL_WINDOW = CType(MyBase.Tables("TBCW_PROF_REL_WINDOW"),TBCW_PROF_REL_WINDOWDataTable) @@ -502,16 +478,52 @@ Partial Public Class MyDataset Me.tableTBCW_PROF_REL_WINDOW.InitVars End If End If + Me.tableTBCW_PROFILE_PROCESS = CType(MyBase.Tables("TBCW_PROFILE_PROCESS"),TBCW_PROFILE_PROCESSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_PROFILE_PROCESS) Is Nothing) Then + Me.tableTBCW_PROFILE_PROCESS.InitVars + End If + End If + Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then + Me.tableTBCW_PROFILES.InitVars + End If + End If + Me.tableTBCW_USER_PROFILE = CType(MyBase.Tables("TBCW_USER_PROFILE"),TBCW_USER_PROFILEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_USER_PROFILE) Is Nothing) Then + Me.tableTBCW_USER_PROFILE.InitVars + End If + End If Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then Me.tableTBDD_CONNECTION.InitVars End If End If - Me.tableTBCW_PROF_REL_CONTROL = CType(MyBase.Tables("TBCW_PROF_REL_CONTROL"),TBCW_PROF_REL_CONTROLDataTable) + Me.tableVWCW_USER_PROFILE = CType(MyBase.Tables("VWCW_USER_PROFILE"),VWCW_USER_PROFILEDataTable) If (initTable = true) Then - If (Not (Me.tableTBCW_PROF_REL_CONTROL) Is Nothing) Then - Me.tableTBCW_PROF_REL_CONTROL.InitVars + If (Not (Me.tableVWCW_USER_PROFILE) Is Nothing) Then + Me.tableVWCW_USER_PROFILE.InitVars + End If + End If + Me.tableVWCW_GROUP_PROFILE = CType(MyBase.Tables("VWCW_GROUP_PROFILE"),VWCW_GROUP_PROFILEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWCW_GROUP_PROFILE) Is Nothing) Then + Me.tableVWCW_GROUP_PROFILE.InitVars + End If + End If + Me.tableTBWH_SEARCH_POSITION = CType(MyBase.Tables("TBWH_SEARCH_POSITION"),TBWH_SEARCH_POSITIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_SEARCH_POSITION) Is Nothing) Then + Me.tableTBWH_SEARCH_POSITION.InitVars + End If + End If + Me.tableTBWH_PROFILE_TYPE = CType(MyBase.Tables("TBWH_PROFILE_TYPE"),TBWH_PROFILE_TYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_PROFILE_TYPE) Is Nothing) Then + Me.tableTBWH_PROFILE_TYPE.InitVars End If End If Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"),TBWH_UserDataTable) @@ -526,22 +538,10 @@ Partial Public Class MyDataset Me.tableTBWH_GROUP.InitVars End If End If - Me.tableTBWH_PROFILE_TYPE = CType(MyBase.Tables("TBWH_PROFILE_TYPE"),TBWH_PROFILE_TYPEDataTable) - If (initTable = true) Then - If (Not (Me.tableTBWH_PROFILE_TYPE) Is Nothing) Then - Me.tableTBWH_PROFILE_TYPE.InitVars - End If - End If - Me.tableTBWH_SEARCH_POSITION = CType(MyBase.Tables("TBWH_SEARCH_POSITION"),TBWH_SEARCH_POSITIONDataTable) - If (initTable = true) Then - If (Not (Me.tableTBWH_SEARCH_POSITION) Is Nothing) Then - Me.tableTBWH_SEARCH_POSITION.InitVars - End If - End If + Me.relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID = Me.Relations("FK_TBCW_PROF_REL_CONTROL_WINDOW_ID") + Me.relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID = Me.Relations("FK_TBCW_PROF_REL_WINDOW_PROCESS_ID") Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") - Me.relationFK_WINDOW_ID = Me.Relations("FK_WINDOW_ID") - Me.relationFK_PROCESS_ID = Me.Relations("FK_PROCESS_ID") End Sub _ - Private Function ShouldSerializeTBCW_PROFILES() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeVWUSER_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean + Private Function ShouldSerializeTBCW_GROUP_PROFILE() As Boolean Return false End Function @@ -630,13 +612,7 @@ Partial Public Class MyDataset _ - Private Function ShouldSerializeTBCW_GROUP_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean + Private Function ShouldSerializeTBCW_PROF_REL_CONTROL() As Boolean Return false End Function @@ -646,6 +622,24 @@ Partial Public Class MyDataset Return false End Function + _ + Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_PROFILES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean @@ -654,7 +648,25 @@ Partial Public Class MyDataset _ - Private Function ShouldSerializeTBCW_PROF_REL_CONTROL() As Boolean + Private Function ShouldSerializeVWCW_USER_PROFILE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_SEARCH_POSITION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_PROFILE_TYPE() As Boolean Return false End Function @@ -670,18 +682,6 @@ Partial Public Class MyDataset Return false End Function - _ - Private Function ShouldSerializeTBWH_PROFILE_TYPE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBWH_SEARCH_POSITION() As Boolean - Return false - End Function - _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -741,16 +741,7 @@ Partial Public Class MyDataset End Function _ - Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) - - _ - Public Delegate Sub TBCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_USER_PROFILERowChangeEvent) - - _ - Public Delegate Sub VWUSER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWUSER_PROFILERowChangeEvent) - - _ - Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent) + Public Delegate Sub TBCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent) _ Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent) @@ -759,19 +750,34 @@ Partial Public Class MyDataset Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent) _ - Public Delegate Sub TBCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent) - - _ - Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent) + Public Delegate Sub TBCW_PROF_REL_CONTROLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_CONTROLRowChangeEvent) _ Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent) + _ + Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent) + + _ + Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) + + _ + Public Delegate Sub TBCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_USER_PROFILERowChangeEvent) + _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) _ - Public Delegate Sub TBCW_PROF_REL_CONTROLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_CONTROLRowChangeEvent) + Public Delegate Sub VWCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_USER_PROFILERowChangeEvent) + + _ + Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent) + + _ + Public Delegate Sub TBWH_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SEARCH_POSITIONRowChangeEvent) + + _ + Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent) _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) @@ -779,11 +785,2499 @@ Partial Public Class MyDataset _ Public Delegate Sub TBWH_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_GROUPRowChangeEvent) - _ - Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent) + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_GROUP_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_GROUP_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_GROUP_PROFILE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_GROUP_PROFILERow + Get + Return CType(Me.Rows(index),TBCW_GROUP_PROFILERow) + End Get + End Property + + _ + Public Event TBCW_GROUP_PROFILERowChanging As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event TBCW_GROUP_PROFILERowChanged As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event TBCW_GROUP_PROFILERowDeleting As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event TBCW_GROUP_PROFILERowDeleted As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_GROUP_PROFILERow(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_GROUP_PROFILERow + Dim rowTBCW_GROUP_PROFILERow As TBCW_GROUP_PROFILERow = CType(Me.NewRow,TBCW_GROUP_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN} + rowTBCW_GROUP_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_GROUP_PROFILERow) + Return rowTBCW_GROUP_PROFILERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_GROUP_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_GROUP_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,TBCW_GROUP_PROFILEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_GROUP_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + 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) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.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.columnPROFILE_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCW_GROUP_PROFILERow() As TBCW_GROUP_PROFILERow + Return CType(Me.NewRow,TBCW_GROUP_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_GROUP_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_GROUP_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowChanged(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowChanging(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowDeleted(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowDeleting(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_GROUP_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class - _ - Public Delegate Sub TBWH_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SEARCH_POSITIONRowChangeEvent) + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROF_DATA_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DATA_SEARCH" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONN_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND + End Get + End Property + + _ + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_INDEX + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow + Get + Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) + End Get + End Property + + _ + Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal COUNT_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROF_DATA_SEARCHRow + Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) + Return rowTBCW_PROF_DATA_SEARCHRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DATA_SEARCHDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.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.columnPROFILE_ID.AllowDBNull = false + Me.columnCONN_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DATA_SEARCHRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DATA_SEARCHRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROF_DOC_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DOC_SEARCH" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONN_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND + End Get + End Property + + _ + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_INDEX + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow + Get + Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) + End Get + End Property + + _ + Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal COUNT_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROF_DOC_SEARCHRow + Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) + Return rowTBCW_PROF_DOC_SEARCHRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DOC_SEARCHDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.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.columnPROFILE_ID.AllowDBNull = false + Me.columnCONN_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DOC_SEARCHRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DOC_SEARCHRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROF_DOC_SEARCHDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROF_REL_CONTROLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_CONTROLRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnWINDOW_ID As Global.System.Data.DataColumn + + Private columnCONTROL_NAME As Global.System.Data.DataColumn + + Private columnTOPLEFT_TOP As Global.System.Data.DataColumn + + Private columnTOPLEFT_LEFT As Global.System.Data.DataColumn + + Private columnTOPLEFT_RIGHT As Global.System.Data.DataColumn + + Private columnTOPLEFT_BOTTOM As Global.System.Data.DataColumn + + Private columnTOPRIGHT_TOP As Global.System.Data.DataColumn + + Private columnTOPRIGHT_LEFT As Global.System.Data.DataColumn + + Private columnTOPRIGHT_RIGHT As Global.System.Data.DataColumn + + Private columnTOPRIGHT_BOTTOM As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_TOP As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_LEFT As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_RIGHT As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_BOTTOM As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_TOP As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_LEFT As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_RIGHT As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_BOTTOM 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 = "TBCW_PROF_REL_CONTROL" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property WINDOW_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDOW_ID + End Get + End Property + + _ + Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_NAME + End Get + End Property + + _ + Public ReadOnly Property TOPLEFT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPLEFT_TOP + End Get + End Property + + _ + Public ReadOnly Property TOPLEFT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPLEFT_LEFT + End Get + End Property + + _ + Public ReadOnly Property TOPLEFT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPLEFT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property TOPLEFT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPLEFT_BOTTOM + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_TOP + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_LEFT + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_BOTTOM + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_TOP + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_LEFT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_BOTTOM + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_TOP + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_LEFT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_BOTTOM + 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 TBCW_PROF_REL_CONTROLRow + Get + Return CType(Me.Rows(index),TBCW_PROF_REL_CONTROLRow) + End Get + End Property + + _ + Public Event TBCW_PROF_REL_CONTROLRowChanging As TBCW_PROF_REL_CONTROLRowChangeEventHandler + + _ + Public Event TBCW_PROF_REL_CONTROLRowChanged As TBCW_PROF_REL_CONTROLRowChangeEventHandler + + _ + Public Event TBCW_PROF_REL_CONTROLRowDeleting As TBCW_PROF_REL_CONTROLRowChangeEventHandler + + _ + Public Event TBCW_PROF_REL_CONTROLRowDeleted As TBCW_PROF_REL_CONTROLRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROF_REL_CONTROLRow( _ + ByVal DESCRIPTION As String, _ + ByVal parentTBCW_PROF_REL_WINDOWRowByFK_TBCW_PROF_REL_CONTROL_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, _ + ByVal CONTROL_NAME As String, _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal SEQUENCE As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date) As TBCW_PROF_REL_CONTROLRow + Dim rowTBCW_PROF_REL_CONTROLRow As TBCW_PROF_REL_CONTROLRow = CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) + Dim columnValuesArray() As Object = New Object() {Nothing, DESCRIPTION, Nothing, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBCW_PROF_REL_WINDOWRowByFK_TBCW_PROF_REL_CONTROL_WINDOW_ID) Is Nothing) Then + columnValuesArray(2) = parentTBCW_PROF_REL_WINDOWRowByFK_TBCW_PROF_REL_CONTROL_WINDOW_ID(0) + End If + rowTBCW_PROF_REL_CONTROLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_REL_CONTROLRow) + Return rowTBCW_PROF_REL_CONTROLRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_CONTROLRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_CONTROLRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_REL_CONTROLDataTable = CType(MyBase.Clone,TBCW_PROF_REL_CONTROLDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_REL_CONTROLDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnWINDOW_ID = MyBase.Columns("WINDOW_ID") + Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME") + Me.columnTOPLEFT_TOP = MyBase.Columns("TOPLEFT_TOP") + Me.columnTOPLEFT_LEFT = MyBase.Columns("TOPLEFT_LEFT") + Me.columnTOPLEFT_RIGHT = MyBase.Columns("TOPLEFT_RIGHT") + Me.columnTOPLEFT_BOTTOM = MyBase.Columns("TOPLEFT_BOTTOM") + Me.columnTOPRIGHT_TOP = MyBase.Columns("TOPRIGHT_TOP") + Me.columnTOPRIGHT_LEFT = MyBase.Columns("TOPRIGHT_LEFT") + Me.columnTOPRIGHT_RIGHT = MyBase.Columns("TOPRIGHT_RIGHT") + Me.columnTOPRIGHT_BOTTOM = MyBase.Columns("TOPRIGHT_BOTTOM") + Me.columnBOTTOMLEFT_TOP = MyBase.Columns("BOTTOMLEFT_TOP") + Me.columnBOTTOMLEFT_LEFT = MyBase.Columns("BOTTOMLEFT_LEFT") + Me.columnBOTTOMLEFT_RIGHT = MyBase.Columns("BOTTOMLEFT_RIGHT") + Me.columnBOTTOMLEFT_BOTTOM = MyBase.Columns("BOTTOMLEFT_BOTTOM") + Me.columnBOTTOMRIGHT_TOP = MyBase.Columns("BOTTOMRIGHT_TOP") + Me.columnBOTTOMRIGHT_LEFT = MyBase.Columns("BOTTOMRIGHT_LEFT") + Me.columnBOTTOMRIGHT_RIGHT = MyBase.Columns("BOTTOMRIGHT_RIGHT") + Me.columnBOTTOMRIGHT_BOTTOM = MyBase.Columns("BOTTOMRIGHT_BOTTOM") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnWINDOW_ID = New Global.System.Data.DataColumn("WINDOW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDOW_ID) + Me.columnCONTROL_NAME = New Global.System.Data.DataColumn("CONTROL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_NAME) + Me.columnTOPLEFT_TOP = New Global.System.Data.DataColumn("TOPLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPLEFT_TOP) + Me.columnTOPLEFT_LEFT = New Global.System.Data.DataColumn("TOPLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPLEFT_LEFT) + Me.columnTOPLEFT_RIGHT = New Global.System.Data.DataColumn("TOPLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPLEFT_RIGHT) + Me.columnTOPLEFT_BOTTOM = New Global.System.Data.DataColumn("TOPLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPLEFT_BOTTOM) + Me.columnTOPRIGHT_TOP = New Global.System.Data.DataColumn("TOPRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPRIGHT_TOP) + Me.columnTOPRIGHT_LEFT = New Global.System.Data.DataColumn("TOPRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPRIGHT_LEFT) + Me.columnTOPRIGHT_RIGHT = New Global.System.Data.DataColumn("TOPRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPRIGHT_RIGHT) + Me.columnTOPRIGHT_BOTTOM = New Global.System.Data.DataColumn("TOPRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTOPRIGHT_BOTTOM) + Me.columnBOTTOMLEFT_TOP = New Global.System.Data.DataColumn("BOTTOMLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMLEFT_TOP) + Me.columnBOTTOMLEFT_LEFT = New Global.System.Data.DataColumn("BOTTOMLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMLEFT_LEFT) + Me.columnBOTTOMLEFT_RIGHT = New Global.System.Data.DataColumn("BOTTOMLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMLEFT_RIGHT) + Me.columnBOTTOMLEFT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMLEFT_BOTTOM) + Me.columnBOTTOMRIGHT_TOP = New Global.System.Data.DataColumn("BOTTOMRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMRIGHT_TOP) + Me.columnBOTTOMRIGHT_LEFT = New Global.System.Data.DataColumn("BOTTOMRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMRIGHT_LEFT) + Me.columnBOTTOMRIGHT_RIGHT = New Global.System.Data.DataColumn("BOTTOMRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMRIGHT_RIGHT) + Me.columnBOTTOMRIGHT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBOTTOMRIGHT_BOTTOM) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.MaxLength = 250 + Me.columnWINDOW_ID.AllowDBNull = false + Me.columnCONTROL_NAME.AllowDBNull = false + Me.columnCONTROL_NAME.MaxLength = 500 + Me.columnTOPLEFT_TOP.AllowDBNull = false + Me.columnTOPLEFT_LEFT.AllowDBNull = false + Me.columnTOPLEFT_RIGHT.AllowDBNull = false + Me.columnTOPLEFT_BOTTOM.AllowDBNull = false + Me.columnTOPRIGHT_TOP.AllowDBNull = false + Me.columnTOPRIGHT_LEFT.AllowDBNull = false + Me.columnTOPRIGHT_RIGHT.AllowDBNull = false + Me.columnTOPRIGHT_BOTTOM.AllowDBNull = false + Me.columnBOTTOMLEFT_TOP.AllowDBNull = false + Me.columnBOTTOMLEFT_LEFT.AllowDBNull = false + Me.columnBOTTOMLEFT_RIGHT.AllowDBNull = false + Me.columnBOTTOMLEFT_BOTTOM.AllowDBNull = false + Me.columnBOTTOMRIGHT_TOP.AllowDBNull = false + Me.columnBOTTOMRIGHT_LEFT.AllowDBNull = false + Me.columnBOTTOMRIGHT_RIGHT.AllowDBNull = false + Me.columnBOTTOMRIGHT_BOTTOM.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCW_PROF_REL_CONTROLRow() As TBCW_PROF_REL_CONTROLRow + Return CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_REL_CONTROLRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_REL_CONTROLRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_REL_CONTROLRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_CONTROLRowChanged(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_REL_CONTROLRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_CONTROLRowChanging(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_REL_CONTROLRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_CONTROLRowDeleted(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_REL_CONTROLRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_CONTROLRowDeleting(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROF_REL_CONTROLDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROF_REL_WINDOWDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_WINDOWRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROCESS_ID As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnREGEX 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 = "TBCW_PROF_REL_WINDOW" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROCESS_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_ID + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX + 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 TBCW_PROF_REL_WINDOWRow + Get + Return CType(Me.Rows(index),TBCW_PROF_REL_WINDOWRow) + End Get + End Property + + _ + Public Event TBCW_PROF_REL_WINDOWRowChanging As TBCW_PROF_REL_WINDOWRowChangeEventHandler + + _ + Public Event TBCW_PROF_REL_WINDOWRowChanged As TBCW_PROF_REL_WINDOWRowChangeEventHandler + + _ + Public Event TBCW_PROF_REL_WINDOWRowDeleting As TBCW_PROF_REL_WINDOWRowChangeEventHandler + + _ + Public Event TBCW_PROF_REL_WINDOWRowDeleted As TBCW_PROF_REL_WINDOWRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROF_REL_WINDOWRow(ByVal parentTBCW_PROFILE_PROCESSRowByFK_TBCW_PROF_REL_WINDOW_PROCESS_ID As TBCW_PROFILE_PROCESSRow, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROF_REL_WINDOWRow + Dim rowTBCW_PROF_REL_WINDOWRow As TBCW_PROF_REL_WINDOWRow = CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBCW_PROFILE_PROCESSRowByFK_TBCW_PROF_REL_WINDOW_PROCESS_ID) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILE_PROCESSRowByFK_TBCW_PROF_REL_WINDOW_PROCESS_ID(0) + End If + rowTBCW_PROF_REL_WINDOWRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_REL_WINDOWRow) + Return rowTBCW_PROF_REL_WINDOWRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_WINDOWRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_WINDOWRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_REL_WINDOWDataTable = CType(MyBase.Clone,TBCW_PROF_REL_WINDOWDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_REL_WINDOWDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnREGEX = MyBase.Columns("REGEX") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROCESS_ID = New Global.System.Data.DataColumn("PROCESS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_ID) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPROCESS_ID.AllowDBNull = false + Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.MaxLength = 250 + Me.columnREGEX.AllowDBNull = false + Me.columnREGEX.MaxLength = 500 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow + Return CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_REL_WINDOWRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_REL_WINDOWRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_REL_WINDOWRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowChanged(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_REL_WINDOWRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowChanging(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowDeleted(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowDeleting(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROF_REL_WINDOWDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROFILE_PROCESSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILE_PROCESSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnPROC_NAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROFILE_PROCESS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROC_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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILE_PROCESSRow + Get + Return CType(Me.Rows(index),TBCW_PROFILE_PROCESSRow) + End Get + End Property + + _ + Public Event TBCW_PROFILE_PROCESSRowChanging As TBCW_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Event TBCW_PROFILE_PROCESSRowChanged As TBCW_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Event TBCW_PROFILE_PROCESSRowDeleting As TBCW_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Event TBCW_PROFILE_PROCESSRowDeleted As TBCW_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROFILE_PROCESSRow(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_PROFILE_PROCESSRow + Dim rowTBCW_PROFILE_PROCESSRow As TBCW_PROFILE_PROCESSRow = CType(Me.NewRow,TBCW_PROFILE_PROCESSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN} + rowTBCW_PROFILE_PROCESSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROFILE_PROCESSRow) + Return rowTBCW_PROFILE_PROCESSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILE_PROCESSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILE_PROCESSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROFILE_PROCESSDataTable = CType(MyBase.Clone,TBCW_PROFILE_PROCESSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROFILE_PROCESSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + 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) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROC_NAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.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.columnPROFILE_ID.AllowDBNull = false + Me.columnPROC_NAME.AllowDBNull = false + Me.columnPROC_NAME.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow + Return CType(Me.NewRow,TBCW_PROFILE_PROCESSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROFILE_PROCESSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROFILE_PROCESSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROFILE_PROCESSRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILE_PROCESSRowChanged(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROFILE_PROCESSRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILE_PROCESSRowChanging(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROFILE_PROCESSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILE_PROCESSRowDeleted(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROFILE_PROCESSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILE_PROCESSRowDeleting(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROFILE_PROCESSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class ''' '''Represents the strongly named DataTable class. @@ -797,10 +3291,14 @@ Partial Public Class MyDataset Private columnNAME As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnPROFILE_TYPE As Global.System.Data.DataColumn Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -809,10 +3307,6 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnPROFILE_TYPE As Global.System.Data.DataColumn - _ Public Sub New() @@ -866,9 +3360,9 @@ Partial Public Class MyDataset _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnPROFILE_TYPE End Get End Property @@ -880,6 +3374,22 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn @@ -912,22 +3422,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - - _ - Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_TYPE - End Get - End Property - _ @@ -965,9 +3459,9 @@ Partial Public Class MyDataset _ - Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As TBCW_PROFILESRow + Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal PROFILE_TYPE As Short, ByVal REGEX_EXPRESSION As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROFILESRow Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE} + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, PROFILE_TYPE, REGEX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBCW_PROFILESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_PROFILESRow) Return rowTBCW_PROFILESRow @@ -998,14 +3492,14 @@ Partial Public Class MyDataset Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") - Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") End Sub - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class VWUSER_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of VWUSER_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnPRENAME As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "VWUSER_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSERNAME - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - 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 VWUSER_PROFILERow - Get - Return CType(Me.Rows(index),VWUSER_PROFILERow) - End Get - End Property - - _ - Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler - - _ - Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler - - _ - Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler - - _ - Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWUSER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String) As VWUSER_PROFILERow - Dim rowVWUSER_PROFILERow As VWUSER_PROFILERow = CType(Me.NewRow,VWUSER_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USERNAME, NAME, PRENAME} - rowVWUSER_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWUSER_PROFILERow) - Return rowVWUSER_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),VWUSER_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone,VWUSER_PROFILEDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWUSER_PROFILEDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnPRENAME = MyBase.Columns("PRENAME") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRENAME) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnUSERNAME.AllowDBNull = false - Me.columnUSERNAME.MaxLength = 50 - Me.columnNAME.MaxLength = 50 - Me.columnPRENAME.MaxLength = 50 - End Sub - - _ - Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow - Return CType(Me.NewRow,VWUSER_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWUSER_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWUSER_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowChanged(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowChanging(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowDeleted(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowDeleting(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWUSER_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCW_PROFILE_PROCESSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILE_PROCESSRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnPROC_NAME As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBCW_PROFILE_PROCESS" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROC_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 Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILE_PROCESSRow - Get - Return CType(Me.Rows(index),TBCW_PROFILE_PROCESSRow) - End Get - End Property - - _ - Public Event TBCW_PROFILE_PROCESSRowChanging As TBCW_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Event TBCW_PROFILE_PROCESSRowChanged As TBCW_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Event TBCW_PROFILE_PROCESSRowDeleting As TBCW_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Event TBCW_PROFILE_PROCESSRowDeleted As TBCW_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Overloads Sub AddTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBCW_PROFILE_PROCESSRow(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_PROFILE_PROCESSRow - Dim rowTBCW_PROFILE_PROCESSRow As TBCW_PROFILE_PROCESSRow = CType(Me.NewRow,TBCW_PROFILE_PROCESSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN} - rowTBCW_PROFILE_PROCESSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCW_PROFILE_PROCESSRow) - Return rowTBCW_PROFILE_PROCESSRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILE_PROCESSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILE_PROCESSRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROFILE_PROCESSDataTable = CType(MyBase.Clone,TBCW_PROFILE_PROCESSDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCW_PROFILE_PROCESSDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - 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) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROC_NAME) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.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.columnPROFILE_ID.AllowDBNull = false - Me.columnPROC_NAME.AllowDBNull = false - Me.columnPROC_NAME.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow - Return CType(Me.NewRow,TBCW_PROFILE_PROCESSRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCW_PROFILE_PROCESSRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCW_PROFILE_PROCESSRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBCW_PROFILE_PROCESSRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILE_PROCESSRowChanged(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBCW_PROFILE_PROCESSRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILE_PROCESSRowChanging(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBCW_PROFILE_PROCESSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILE_PROCESSRowDeleted(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBCW_PROFILE_PROCESSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILE_PROCESSRowDeleting(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCW_PROFILE_PROCESSDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCW_PROF_DATA_SEARCHDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnCONN_ID As Global.System.Data.DataColumn - - Private columnSQL_COMMAND As Global.System.Data.DataColumn - - Private columnTAB_INDEX As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnTAB_TITLE As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnCOUNT_COMMAND As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBCW_PROF_DATA_SEARCH" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONN_ID - End Get - End Property - - _ - Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_COMMAND - End Get - End Property - - _ - Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTAB_INDEX - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - - _ - Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTAB_TITLE - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCOUNT_COMMAND - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow - Get - Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) - End Get - End Property - - _ - Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ - Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ - Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ - Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ - Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow - Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} - If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then - columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) - End If - rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) - Return rowTBCW_PROF_DATA_SEARCHRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCW_PROF_DATA_SEARCHDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnCONN_ID = MyBase.Columns("CONN_ID") - Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") - Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONN_ID) - Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_COMMAND) - Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTAB_INDEX) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) - Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTAB_TITLE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOUNT_COMMAND) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnCONN_ID.AllowDBNull = false - Me.columnSQL_COMMAND.AllowDBNull = false - Me.columnSQL_COMMAND.MaxLength = 2147483647 - Me.columnTAB_INDEX.AllowDBNull = false - Me.columnACTIVE.AllowDBNull = false - Me.columnTAB_TITLE.AllowDBNull = false - Me.columnTAB_TITLE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCOUNT_COMMAND.AllowDBNull = false - Me.columnCOUNT_COMMAND.DefaultValue = CType(" ",String) - Me.columnCOUNT_COMMAND.MaxLength = 2147483647 - End Sub - - _ - Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow - Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCW_PROF_DATA_SEARCHRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCW_PROF_DATA_SEARCHRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCW_PROF_DOC_SEARCHDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnCONN_ID As Global.System.Data.DataColumn - - Private columnSQL_COMMAND As Global.System.Data.DataColumn - - Private columnTAB_INDEX As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnTAB_TITLE As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnCOUNT_COMMAND As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBCW_PROF_DOC_SEARCH" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONN_ID - End Get - End Property - - _ - Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_COMMAND - End Get - End Property - - _ - Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTAB_INDEX - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - - _ - Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTAB_TITLE - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCOUNT_COMMAND - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow - Get - Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) - End Get - End Property - - _ - Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ - Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ - Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ - Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ - Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow - Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} - If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then - columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) - End If - rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) - Return rowTBCW_PROF_DOC_SEARCHRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCW_PROF_DOC_SEARCHDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnCONN_ID = MyBase.Columns("CONN_ID") - Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") - Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONN_ID) - Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_COMMAND) - Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTAB_INDEX) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) - Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTAB_TITLE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOUNT_COMMAND) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnCONN_ID.AllowDBNull = false - Me.columnSQL_COMMAND.AllowDBNull = false - Me.columnSQL_COMMAND.MaxLength = 2147483647 - Me.columnTAB_INDEX.AllowDBNull = false - Me.columnACTIVE.AllowDBNull = false - Me.columnTAB_TITLE.AllowDBNull = false - Me.columnTAB_TITLE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCOUNT_COMMAND.MaxLength = 2147483647 - End Sub - - _ - Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow - Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCW_PROF_DOC_SEARCHRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCW_PROF_DOC_SEARCHRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCW_PROF_DOC_SEARCHDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCW_GROUP_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCW_GROUP_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnGROUP_ID As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBCW_GROUP_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGROUP_ID - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_GROUP_PROFILERow - Get - Return CType(Me.Rows(index),TBCW_GROUP_PROFILERow) - End Get - End Property - - _ - Public Event TBCW_GROUP_PROFILERowChanging As TBCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Event TBCW_GROUP_PROFILERowChanged As TBCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Event TBCW_GROUP_PROFILERowDeleting As TBCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Event TBCW_GROUP_PROFILERowDeleted As TBCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBCW_GROUP_PROFILERow(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_GROUP_PROFILERow - Dim rowTBCW_GROUP_PROFILERow As TBCW_GROUP_PROFILERow = CType(Me.NewRow,TBCW_GROUP_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN} - rowTBCW_GROUP_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCW_GROUP_PROFILERow) - Return rowTBCW_GROUP_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCW_GROUP_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_GROUP_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,TBCW_GROUP_PROFILEDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCW_GROUP_PROFILEDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - 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) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGROUP_ID) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnGROUP_ID.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBCW_GROUP_PROFILERow() As TBCW_GROUP_PROFILERow - Return CType(Me.NewRow,TBCW_GROUP_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCW_GROUP_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCW_GROUP_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_GROUP_PROFILERowChanged(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_GROUP_PROFILERowChanging(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_GROUP_PROFILERowDeleted(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_GROUP_PROFILERowDeleting(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCW_GROUP_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class VWCW_GROUP_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of VWCW_GROUP_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "VWCW_GROUP_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_GROUP_PROFILERow - Get - Return CType(Me.Rows(index),VWCW_GROUP_PROFILERow) - End Get - End Property - - _ - Public Event VWCW_GROUP_PROFILERowChanging As VWCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Event VWCW_GROUP_PROFILERowChanged As VWCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Event VWCW_GROUP_PROFILERowDeleting As VWCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Event VWCW_GROUP_PROFILERowDeleted As VWCW_GROUP_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWCW_GROUP_PROFILERow(ByVal GUID As Integer, ByVal NAME As String) As VWCW_GROUP_PROFILERow - Dim rowVWCW_GROUP_PROFILERow As VWCW_GROUP_PROFILERow = CType(Me.NewRow,VWCW_GROUP_PROFILERow) - Dim columnValuesArray() As Object = New Object() {GUID, NAME} - rowVWCW_GROUP_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWCW_GROUP_PROFILERow) - Return rowVWCW_GROUP_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As VWCW_GROUP_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),VWCW_GROUP_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,VWCW_GROUP_PROFILEDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWCW_GROUP_PROFILEDataTable() - 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.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnNAME.MaxLength = 100 - End Sub - - _ - Public Function NewVWCW_GROUP_PROFILERow() As VWCW_GROUP_PROFILERow - Return CType(Me.NewRow,VWCW_GROUP_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWCW_GROUP_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWCW_GROUP_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.VWCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent VWCW_GROUP_PROFILERowChanged(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.VWCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent VWCW_GROUP_PROFILERowChanging(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.VWCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent VWCW_GROUP_PROFILERowDeleted(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.VWCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent VWCW_GROUP_PROFILERowDeleting(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWCW_GROUP_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCW_PROF_REL_WINDOWDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_WINDOWRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnDESCRIPTION As Global.System.Data.DataColumn - - Private columnREGEX 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 columnPROCESS_ID As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBCW_PROF_REL_WINDOW" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDESCRIPTION - End Get - End Property - - _ - Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX - 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 PROCESS_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_ID - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_REL_WINDOWRow - Get - Return CType(Me.Rows(index),TBCW_PROF_REL_WINDOWRow) - End Get - End Property - - _ - Public Event TBCW_PROF_REL_WINDOWRowChanging As TBCW_PROF_REL_WINDOWRowChangeEventHandler - - _ - Public Event TBCW_PROF_REL_WINDOWRowChanged As TBCW_PROF_REL_WINDOWRowChangeEventHandler - - _ - Public Event TBCW_PROF_REL_WINDOWRowDeleting As TBCW_PROF_REL_WINDOWRowChangeEventHandler - - _ - Public Event TBCW_PROF_REL_WINDOWRowDeleted As TBCW_PROF_REL_WINDOWRowChangeEventHandler - - _ - Public Overloads Sub AddTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBCW_PROF_REL_WINDOWRow(ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal parentTBCW_PROFILE_PROCESSRowByFK_PROCESS_ID As TBCW_PROFILE_PROCESSRow) As TBCW_PROF_REL_WINDOWRow - Dim rowTBCW_PROF_REL_WINDOWRow As TBCW_PROF_REL_WINDOWRow = CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) - Dim columnValuesArray() As Object = New Object() {Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing} - If (Not (parentTBCW_PROFILE_PROCESSRowByFK_PROCESS_ID) Is Nothing) Then - columnValuesArray(8) = parentTBCW_PROFILE_PROCESSRowByFK_PROCESS_ID(0) - End If - rowTBCW_PROF_REL_WINDOWRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCW_PROF_REL_WINDOWRow) - Return rowTBCW_PROF_REL_WINDOWRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_WINDOWRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_WINDOWRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROF_REL_WINDOWDataTable = CType(MyBase.Clone,TBCW_PROF_REL_WINDOWDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCW_PROF_REL_WINDOWDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") - Me.columnREGEX = MyBase.Columns("REGEX") - Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDESCRIPTION) - Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX) - Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.columnPROCESS_ID = New Global.System.Data.DataColumn("PROCESS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROCESS_ID) - 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.columnDESCRIPTION.AllowDBNull = false - Me.columnDESCRIPTION.MaxLength = 250 - Me.columnREGEX.AllowDBNull = false - Me.columnREGEX.MaxLength = 500 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnPROCESS_ID.AllowDBNull = false - End Sub - - _ - Public Function NewTBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow - Return CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCW_PROF_REL_WINDOWRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCW_PROF_REL_WINDOWRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBCW_PROF_REL_WINDOWRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_WINDOWRowChanged(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBCW_PROF_REL_WINDOWRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_WINDOWRowChanging(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_WINDOWRowDeleted(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_WINDOWRowDeleting(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCW_PROF_REL_WINDOWDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - ''' '''Represents the strongly named DataTable class. ''' @@ -3991,6 +4024,8 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn + Private columnSYS_CONNECTION As Global.System.Data.DataColumn + _ Public Sub New() @@ -4130,6 +4165,14 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSYS_CONNECTION + End Get + End Property + _ @@ -4167,9 +4210,9 @@ Partial Public Class MyDataset _ - 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 + 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, ByVal SYS_CONNECTION As Boolean) As TBDD_CONNECTIONRow Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow @@ -4211,6 +4254,7 @@ Partial Public Class MyDataset Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnSYS_CONNECTION = MyBase.Columns("SYS_CONNECTION") End Sub _ - Partial Public Class TBCW_PROF_REL_CONTROLDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_CONTROLRow) + Partial Public Class VWCW_USER_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWCW_USER_PROFILERow) - Private columnGUID As Global.System.Data.DataColumn + Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn - Private columnWINDOW_ID As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn - Private columnDESCRIPTION As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn - Private columnSEQUENCE As Global.System.Data.DataColumn + Private columnPROFILE_TYPE As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnPROC_NAME As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnPROFIL_ID As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnPROFIL_NAME As Global.System.Data.DataColumn - Private columnTOPLEFT_TOP As Global.System.Data.DataColumn + Private columnUSER_SURNAME As Global.System.Data.DataColumn - Private columnTOPLEFT_LEFT As Global.System.Data.DataColumn + Private columnUSER_PRENAME As Global.System.Data.DataColumn - Private columnTOPLEFT_RIGHT As Global.System.Data.DataColumn - - Private columnTOPLEFT_BOTTOM As Global.System.Data.DataColumn - - Private columnTOPRIGHT_TOP As Global.System.Data.DataColumn - - Private columnTOPRIGHT_LEFT As Global.System.Data.DataColumn - - Private columnTOPRIGHT_RIGHT As Global.System.Data.DataColumn - - Private columnTOPRIGHT_BOTTOM As Global.System.Data.DataColumn - - Private columnBOTTOMLEFT_TOP As Global.System.Data.DataColumn - - Private columnBOTTOMLEFT_LEFT As Global.System.Data.DataColumn - - Private columnBOTTOMLEFT_RIGHT As Global.System.Data.DataColumn - - Private columnBOTTOMLEFT_BOTTOM As Global.System.Data.DataColumn - - Private columnBOTTOMRIGHT_TOP As Global.System.Data.DataColumn - - Private columnBOTTOMRIGHT_LEFT As Global.System.Data.DataColumn - - Private columnBOTTOMRIGHT_RIGHT As Global.System.Data.DataColumn - - Private columnBOTTOMRIGHT_BOTTOM As Global.System.Data.DataColumn - - Private columnCONTROL_NAME As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBCW_PROF_REL_CONTROL" + Me.TableName = "VWCW_USER_PROFILE" Me.BeginInit Me.InitClass Me.EndInit @@ -4484,201 +4502,89 @@ Partial Public Class MyDataset _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnREGEX_EXPRESSION End Get End Property _ - Public ReadOnly Property WINDOW_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnWINDOW_ID + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDESCRIPTION + Return Me.columnACTIVE End Get End Property _ - Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSEQUENCE + Return Me.columnPROFILE_TYPE End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnPROC_NAME End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnPROFIL_ID End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFIL_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnPROFIL_NAME End Get End Property _ - Public ReadOnly Property TOPLEFT_TOPColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnTOPLEFT_TOP + Return Me.columnUSER_SURNAME End Get End Property _ - Public ReadOnly Property TOPLEFT_LEFTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnTOPLEFT_LEFT + Return Me.columnUSER_PRENAME End Get End Property _ - Public ReadOnly Property TOPLEFT_RIGHTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnTOPLEFT_RIGHT - End Get - End Property - - _ - Public ReadOnly Property TOPLEFT_BOTTOMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTOPLEFT_BOTTOM - End Get - End Property - - _ - Public ReadOnly Property TOPRIGHT_TOPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTOPRIGHT_TOP - End Get - End Property - - _ - Public ReadOnly Property TOPRIGHT_LEFTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTOPRIGHT_LEFT - End Get - End Property - - _ - Public ReadOnly Property TOPRIGHT_RIGHTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTOPRIGHT_RIGHT - End Get - End Property - - _ - Public ReadOnly Property TOPRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTOPRIGHT_BOTTOM - End Get - End Property - - _ - Public ReadOnly Property BOTTOMLEFT_TOPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMLEFT_TOP - End Get - End Property - - _ - Public ReadOnly Property BOTTOMLEFT_LEFTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMLEFT_LEFT - End Get - End Property - - _ - Public ReadOnly Property BOTTOMLEFT_RIGHTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMLEFT_RIGHT - End Get - End Property - - _ - Public ReadOnly Property BOTTOMLEFT_BOTTOMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMLEFT_BOTTOM - End Get - End Property - - _ - Public ReadOnly Property BOTTOMRIGHT_TOPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMRIGHT_TOP - End Get - End Property - - _ - Public ReadOnly Property BOTTOMRIGHT_LEFTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMRIGHT_LEFT - End Get - End Property - - _ - Public ReadOnly Property BOTTOMRIGHT_RIGHTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMRIGHT_RIGHT - End Get - End Property - - _ - Public ReadOnly Property BOTTOMRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBOTTOMRIGHT_BOTTOM - End Get - End Property - - _ - Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONTROL_NAME + Return Me.columnUSERNAME End Get End Property @@ -4693,77 +4599,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_REL_CONTROLRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_USER_PROFILERow Get - Return CType(Me.Rows(index),TBCW_PROF_REL_CONTROLRow) + Return CType(Me.Rows(index),VWCW_USER_PROFILERow) End Get End Property _ - Public Event TBCW_PROF_REL_CONTROLRowChanging As TBCW_PROF_REL_CONTROLRowChangeEventHandler + Public Event VWCW_USER_PROFILERowChanging As VWCW_USER_PROFILERowChangeEventHandler _ - Public Event TBCW_PROF_REL_CONTROLRowChanged As TBCW_PROF_REL_CONTROLRowChangeEventHandler + Public Event VWCW_USER_PROFILERowChanged As VWCW_USER_PROFILERowChangeEventHandler _ - Public Event TBCW_PROF_REL_CONTROLRowDeleting As TBCW_PROF_REL_CONTROLRowChangeEventHandler + Public Event VWCW_USER_PROFILERowDeleting As VWCW_USER_PROFILERowChangeEventHandler _ - Public Event TBCW_PROF_REL_CONTROLRowDeleted As TBCW_PROF_REL_CONTROLRowChangeEventHandler + Public Event VWCW_USER_PROFILERowDeleted As VWCW_USER_PROFILERowChangeEventHandler _ - Public Overloads Sub AddTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow) + Public Overloads Sub AddVWCW_USER_PROFILERow(ByVal row As VWCW_USER_PROFILERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBCW_PROF_REL_CONTROLRow( _ - ByVal parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, _ - ByVal DESCRIPTION As String, _ - ByVal SEQUENCE As Byte, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal TOPLEFT_TOP As Integer, _ - ByVal TOPLEFT_LEFT As Integer, _ - ByVal TOPLEFT_RIGHT As Integer, _ - ByVal TOPLEFT_BOTTOM As Integer, _ - ByVal TOPRIGHT_TOP As Integer, _ - ByVal TOPRIGHT_LEFT As Integer, _ - ByVal TOPRIGHT_RIGHT As Integer, _ - ByVal TOPRIGHT_BOTTOM As Integer, _ - ByVal BOTTOMLEFT_TOP As Integer, _ - ByVal BOTTOMLEFT_LEFT As Integer, _ - ByVal BOTTOMLEFT_RIGHT As Integer, _ - ByVal BOTTOMLEFT_BOTTOM As Integer, _ - ByVal BOTTOMRIGHT_TOP As Integer, _ - ByVal BOTTOMRIGHT_LEFT As Integer, _ - ByVal BOTTOMRIGHT_RIGHT As Integer, _ - ByVal BOTTOMRIGHT_BOTTOM As Integer, _ - ByVal CONTROL_NAME As String) As TBCW_PROF_REL_CONTROLRow - Dim rowTBCW_PROF_REL_CONTROLRow As TBCW_PROF_REL_CONTROLRow = CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME} - If (Not (parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID) Is Nothing) Then - columnValuesArray(1) = parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID(0) - End If - rowTBCW_PROF_REL_CONTROLRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCW_PROF_REL_CONTROLRow) - Return rowTBCW_PROF_REL_CONTROLRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_CONTROLRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_CONTROLRow) + Public Overloads Function AddVWCW_USER_PROFILERow(ByVal REGEX_EXPRESSION As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short, ByVal PROC_NAME As String, ByVal USER_ID As Integer, ByVal PROFIL_ID As Integer, ByVal PROFIL_NAME As String, ByVal USER_SURNAME As String, ByVal USER_PRENAME As String, ByVal USERNAME As String) As VWCW_USER_PROFILERow + Dim rowVWCW_USER_PROFILERow As VWCW_USER_PROFILERow = CType(Me.NewRow,VWCW_USER_PROFILERow) + Dim columnValuesArray() As Object = New Object() {REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, PROC_NAME, USER_ID, PROFIL_ID, PROFIL_NAME, USER_SURNAME, USER_PRENAME, USERNAME} + rowVWCW_USER_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWCW_USER_PROFILERow) + Return rowVWCW_USER_PROFILERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROF_REL_CONTROLDataTable = CType(MyBase.Clone,TBCW_PROF_REL_CONTROLDataTable) + Dim cln As VWCW_USER_PROFILEDataTable = CType(MyBase.Clone,VWCW_USER_PROFILEDataTable) cln.InitVars Return cln End Function @@ -4771,148 +4644,90 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCW_PROF_REL_CONTROLDataTable() + Return New VWCW_USER_PROFILEDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnWINDOW_ID = MyBase.Columns("WINDOW_ID") - Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") - Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnTOPLEFT_TOP = MyBase.Columns("TOPLEFT_TOP") - Me.columnTOPLEFT_LEFT = MyBase.Columns("TOPLEFT_LEFT") - Me.columnTOPLEFT_RIGHT = MyBase.Columns("TOPLEFT_RIGHT") - Me.columnTOPLEFT_BOTTOM = MyBase.Columns("TOPLEFT_BOTTOM") - Me.columnTOPRIGHT_TOP = MyBase.Columns("TOPRIGHT_TOP") - Me.columnTOPRIGHT_LEFT = MyBase.Columns("TOPRIGHT_LEFT") - Me.columnTOPRIGHT_RIGHT = MyBase.Columns("TOPRIGHT_RIGHT") - Me.columnTOPRIGHT_BOTTOM = MyBase.Columns("TOPRIGHT_BOTTOM") - Me.columnBOTTOMLEFT_TOP = MyBase.Columns("BOTTOMLEFT_TOP") - Me.columnBOTTOMLEFT_LEFT = MyBase.Columns("BOTTOMLEFT_LEFT") - Me.columnBOTTOMLEFT_RIGHT = MyBase.Columns("BOTTOMLEFT_RIGHT") - Me.columnBOTTOMLEFT_BOTTOM = MyBase.Columns("BOTTOMLEFT_BOTTOM") - Me.columnBOTTOMRIGHT_TOP = MyBase.Columns("BOTTOMRIGHT_TOP") - Me.columnBOTTOMRIGHT_LEFT = MyBase.Columns("BOTTOMRIGHT_LEFT") - Me.columnBOTTOMRIGHT_RIGHT = MyBase.Columns("BOTTOMRIGHT_RIGHT") - Me.columnBOTTOMRIGHT_BOTTOM = MyBase.Columns("BOTTOMRIGHT_BOTTOM") - Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME") + Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") + Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") + Me.columnPROFIL_NAME = MyBase.Columns("PROFIL_NAME") + Me.columnUSER_SURNAME = MyBase.Columns("USER_SURNAME") + Me.columnUSER_PRENAME = MyBase.Columns("USER_PRENAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") 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.columnWINDOW_ID = New Global.System.Data.DataColumn("WINDOW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWINDOW_ID) - Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDESCRIPTION) - Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.columnTOPLEFT_TOP = New Global.System.Data.DataColumn("TOPLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPLEFT_TOP) - Me.columnTOPLEFT_LEFT = New Global.System.Data.DataColumn("TOPLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPLEFT_LEFT) - Me.columnTOPLEFT_RIGHT = New Global.System.Data.DataColumn("TOPLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPLEFT_RIGHT) - Me.columnTOPLEFT_BOTTOM = New Global.System.Data.DataColumn("TOPLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPLEFT_BOTTOM) - Me.columnTOPRIGHT_TOP = New Global.System.Data.DataColumn("TOPRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPRIGHT_TOP) - Me.columnTOPRIGHT_LEFT = New Global.System.Data.DataColumn("TOPRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPRIGHT_LEFT) - Me.columnTOPRIGHT_RIGHT = New Global.System.Data.DataColumn("TOPRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPRIGHT_RIGHT) - Me.columnTOPRIGHT_BOTTOM = New Global.System.Data.DataColumn("TOPRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTOPRIGHT_BOTTOM) - Me.columnBOTTOMLEFT_TOP = New Global.System.Data.DataColumn("BOTTOMLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMLEFT_TOP) - Me.columnBOTTOMLEFT_LEFT = New Global.System.Data.DataColumn("BOTTOMLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMLEFT_LEFT) - Me.columnBOTTOMLEFT_RIGHT = New Global.System.Data.DataColumn("BOTTOMLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMLEFT_RIGHT) - Me.columnBOTTOMLEFT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMLEFT_BOTTOM) - Me.columnBOTTOMRIGHT_TOP = New Global.System.Data.DataColumn("BOTTOMRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMRIGHT_TOP) - Me.columnBOTTOMRIGHT_LEFT = New Global.System.Data.DataColumn("BOTTOMRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMRIGHT_LEFT) - Me.columnBOTTOMRIGHT_RIGHT = New Global.System.Data.DataColumn("BOTTOMRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMRIGHT_RIGHT) - Me.columnBOTTOMRIGHT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBOTTOMRIGHT_BOTTOM) - Me.columnCONTROL_NAME = New Global.System.Data.DataColumn("CONTROL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONTROL_NAME) - 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.columnWINDOW_ID.AllowDBNull = false - Me.columnDESCRIPTION.AllowDBNull = false - Me.columnDESCRIPTION.MaxLength = 250 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnTOPLEFT_TOP.AllowDBNull = false - Me.columnTOPLEFT_LEFT.AllowDBNull = false - Me.columnTOPLEFT_RIGHT.AllowDBNull = false - Me.columnTOPLEFT_BOTTOM.AllowDBNull = false - Me.columnTOPRIGHT_TOP.AllowDBNull = false - Me.columnTOPRIGHT_LEFT.AllowDBNull = false - Me.columnTOPRIGHT_RIGHT.AllowDBNull = false - Me.columnTOPRIGHT_BOTTOM.AllowDBNull = false - Me.columnBOTTOMLEFT_TOP.AllowDBNull = false - Me.columnBOTTOMLEFT_LEFT.AllowDBNull = false - Me.columnBOTTOMLEFT_RIGHT.AllowDBNull = false - Me.columnBOTTOMLEFT_BOTTOM.AllowDBNull = false - Me.columnBOTTOMRIGHT_TOP.AllowDBNull = false - Me.columnBOTTOMRIGHT_LEFT.AllowDBNull = false - Me.columnBOTTOMRIGHT_RIGHT.AllowDBNull = false - Me.columnBOTTOMRIGHT_BOTTOM.AllowDBNull = false - Me.columnCONTROL_NAME.AllowDBNull = false - Me.columnCONTROL_NAME.MaxLength = 500 + Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_TYPE) + Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROC_NAME) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFIL_ID) + Me.columnPROFIL_NAME = New Global.System.Data.DataColumn("PROFIL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFIL_NAME) + Me.columnUSER_SURNAME = New Global.System.Data.DataColumn("USER_SURNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_SURNAME) + Me.columnUSER_PRENAME = New Global.System.Data.DataColumn("USER_PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_PRENAME) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnREGEX_EXPRESSION.AllowDBNull = false + Me.columnREGEX_EXPRESSION.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnACTIVE.AllowDBNull = false + Me.columnPROFILE_TYPE.AllowDBNull = false + Me.columnPROC_NAME.MaxLength = 100 + Me.columnUSER_ID.AllowDBNull = false + Me.columnPROFIL_ID.AllowDBNull = false + Me.columnPROFIL_NAME.AllowDBNull = false + Me.columnPROFIL_NAME.MaxLength = 100 + Me.columnUSER_SURNAME.MaxLength = 50 + Me.columnUSER_PRENAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 End Sub _ - Public Function NewTBCW_PROF_REL_CONTROLRow() As TBCW_PROF_REL_CONTROLRow - Return CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) + Public Function NewVWCW_USER_PROFILERow() As VWCW_USER_PROFILERow + Return CType(Me.NewRow,VWCW_USER_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCW_PROF_REL_CONTROLRow(builder) + Return New VWCW_USER_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCW_PROF_REL_CONTROLRow) + Return GetType(VWCW_USER_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBCW_PROF_REL_CONTROLRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_CONTROLRowChanged(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + If (Not (Me.VWCW_USER_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowChanged(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) End If End Sub @@ -4920,8 +4735,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBCW_PROF_REL_CONTROLRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_CONTROLRowChanging(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + If (Not (Me.VWCW_USER_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowChanging(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) End If End Sub @@ -4929,8 +4744,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBCW_PROF_REL_CONTROLRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_CONTROLRowDeleted(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + If (Not (Me.VWCW_USER_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowDeleted(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) End If End Sub @@ -4938,14 +4753,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBCW_PROF_REL_CONTROLRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_REL_CONTROLRowDeleting(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) + If (Not (Me.VWCW_USER_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowDeleting(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) End If End Sub _ - Public Sub RemoveTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow) + Public Sub RemoveVWCW_USER_PROFILERow(ByVal row As VWCW_USER_PROFILERow) Me.Rows.Remove(row) End Sub @@ -4972,7 +4787,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCW_PROF_REL_CONTROLDataTable" + attribute2.FixedValue = "VWCW_USER_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -5021,322 +4836,28 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBWH_UserDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) - - 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 columnGUID As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBWH_User" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property 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 GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow - Get - Return CType(Me.Rows(index),TBWH_UserRow) - End Get - End Property - - _ - Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler - - _ - Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler - - _ - Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler - - _ - Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler - - _ - Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBWH_UserRow(ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal GUID As Short) As TBWH_UserRow - Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow) - Dim columnValuesArray() As Object = New Object() {Username, Prename, Surname, Email, GUID} - rowTBWH_UserRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_UserRow) - Return rowTBWH_UserRow - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_UserDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnUsername = MyBase.Columns("Username") - Me.columnPrename = MyBase.Columns("Prename") - Me.columnSurname = MyBase.Columns("Surname") - Me.columnEmail = MyBase.Columns("Email") - Me.columnGUID = MyBase.Columns("GUID") - End Sub - - _ - Private Sub InitClass() - Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUsername) - Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPrename) - Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSurname) - Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEmail) - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - End Sub - - _ - Public Function NewTBWH_UserRow() As TBWH_UserRow - Return CType(Me.NewRow,TBWH_UserRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_UserRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_UserRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_UserDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBWH_GROUPDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_GROUPRow) + Partial Public Class VWCW_GROUP_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWCW_GROUP_PROFILERow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn + Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnPROC_NAME As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBWH_GROUP" + Me.TableName = "VWCW_GROUP_PROFILE" Me.BeginInit Me.InitClass Me.EndInit @@ -5383,6 +4904,46 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_EXPRESSION + End Get + End Property + + _ + Public ReadOnly Property 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 GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROC_NAME + End Get + End Property + _ @@ -5394,44 +4955,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_GROUPRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_GROUP_PROFILERow Get - Return CType(Me.Rows(index),TBWH_GROUPRow) + Return CType(Me.Rows(index),VWCW_GROUP_PROFILERow) End Get End Property _ - Public Event TBWH_GROUPRowChanging As TBWH_GROUPRowChangeEventHandler + Public Event VWCW_GROUP_PROFILERowChanging As VWCW_GROUP_PROFILERowChangeEventHandler _ - Public Event TBWH_GROUPRowChanged As TBWH_GROUPRowChangeEventHandler + Public Event VWCW_GROUP_PROFILERowChanged As VWCW_GROUP_PROFILERowChangeEventHandler _ - Public Event TBWH_GROUPRowDeleting As TBWH_GROUPRowChangeEventHandler + Public Event VWCW_GROUP_PROFILERowDeleting As VWCW_GROUP_PROFILERowChangeEventHandler _ - Public Event TBWH_GROUPRowDeleted As TBWH_GROUPRowChangeEventHandler + Public Event VWCW_GROUP_PROFILERowDeleted As VWCW_GROUP_PROFILERowChangeEventHandler _ - Public Overloads Sub AddTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) + Public Overloads Sub AddVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_GROUPRow(ByVal GUID As String, ByVal NAME As String) As TBWH_GROUPRow - Dim rowTBWH_GROUPRow As TBWH_GROUPRow = CType(Me.NewRow,TBWH_GROUPRow) - Dim columnValuesArray() As Object = New Object() {GUID, NAME} - rowTBWH_GROUPRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_GROUPRow) - Return rowTBWH_GROUPRow + Public Overloads Function AddVWCW_GROUP_PROFILERow(ByVal GUID As Integer, ByVal NAME As String, ByVal REGEX_EXPRESSION As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal GROUP_ID As Integer, ByVal PROC_NAME As String) As VWCW_GROUP_PROFILERow + Dim rowVWCW_GROUP_PROFILERow As VWCW_GROUP_PROFILERow = CType(Me.NewRow,VWCW_GROUP_PROFILERow) + Dim columnValuesArray() As Object = New Object() {GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID, PROC_NAME} + rowVWCW_GROUP_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWCW_GROUP_PROFILERow) + Return rowVWCW_GROUP_PROFILERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_GROUPDataTable = CType(MyBase.Clone,TBWH_GROUPDataTable) + Dim cln As VWCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,VWCW_GROUP_PROFILEDataTable) cln.InitVars Return cln End Function @@ -5439,7 +5000,7 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_GROUPDataTable() + Return New VWCW_GROUP_PROFILEDataTable() End Function _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + 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.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROC_NAME) + Me.columnGUID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnREGEX_EXPRESSION.AllowDBNull = false + Me.columnREGEX_EXPRESSION.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnACTIVE.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnPROC_NAME.AllowDBNull = false + Me.columnPROC_NAME.MaxLength = 100 End Sub _ - Public Function NewTBWH_GROUPRow() As TBWH_GROUPRow - Return CType(Me.NewRow,TBWH_GROUPRow) + Public Function NewVWCW_GROUP_PROFILERow() As VWCW_GROUP_PROFILERow + Return CType(Me.NewRow,VWCW_GROUP_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_GROUPRow(builder) + Return New VWCW_GROUP_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_GROUPRow) + Return GetType(VWCW_GROUP_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_GROUPRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_GROUPRowChanged(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + If (Not (Me.VWCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowChanged(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) End If End Sub @@ -5489,8 +5075,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_GROUPRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_GROUPRowChanging(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + If (Not (Me.VWCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowChanging(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) End If End Sub @@ -5498,8 +5084,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_GROUPRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_GROUPRowDeleted(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + If (Not (Me.VWCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowDeleted(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) End If End Sub @@ -5507,14 +5093,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_GROUPRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_GROUPRowDeleting(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + If (Not (Me.VWCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowDeleting(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) + Public Sub RemoveVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) Me.Rows.Remove(row) End Sub @@ -5541,7 +5127,272 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_GROUPDataTable" + attribute2.FixedValue = "VWCW_GROUP_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_SEARCH_POSITIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_SEARCH_POSITIONRow) + + Private columnPOSITION_INDEX As Global.System.Data.DataColumn + + Private columnPOSITION_NAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_SEARCH_POSITION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property POSITION_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPOSITION_INDEX + End Get + End Property + + _ + Public ReadOnly Property POSITION_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPOSITION_NAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SEARCH_POSITIONRow + Get + Return CType(Me.Rows(index),TBWH_SEARCH_POSITIONRow) + End Get + End Property + + _ + Public Event TBWH_SEARCH_POSITIONRowChanging As TBWH_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Event TBWH_SEARCH_POSITIONRowChanged As TBWH_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Event TBWH_SEARCH_POSITIONRowDeleting As TBWH_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Event TBWH_SEARCH_POSITIONRowDeleted As TBWH_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_SEARCH_POSITIONRow(ByVal POSITION_INDEX As Short, ByVal POSITION_NAME As String) As TBWH_SEARCH_POSITIONRow + Dim rowTBWH_SEARCH_POSITIONRow As TBWH_SEARCH_POSITIONRow = CType(Me.NewRow,TBWH_SEARCH_POSITIONRow) + Dim columnValuesArray() As Object = New Object() {POSITION_INDEX, POSITION_NAME} + rowTBWH_SEARCH_POSITIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_SEARCH_POSITIONRow) + Return rowTBWH_SEARCH_POSITIONRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBWH_SEARCH_POSITIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_SEARCH_POSITIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnPOSITION_INDEX = MyBase.Columns("POSITION_INDEX") + Me.columnPOSITION_NAME = MyBase.Columns("POSITION_NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnPOSITION_INDEX = New Global.System.Data.DataColumn("POSITION_INDEX", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPOSITION_INDEX) + Me.columnPOSITION_NAME = New Global.System.Data.DataColumn("POSITION_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPOSITION_NAME) + End Sub + + _ + Public Function NewTBWH_SEARCH_POSITIONRow() As TBWH_SEARCH_POSITIONRow + Return CType(Me.NewRow,TBWH_SEARCH_POSITIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_SEARCH_POSITIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_SEARCH_POSITIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_SEARCH_POSITIONRowChanged(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_SEARCH_POSITIONRowChanging(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_SEARCH_POSITIONRowDeleted(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_SEARCH_POSITIONRowDeleting(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_SEARCH_POSITIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -5721,8 +5572,6 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnTYPE_ID) Me.columnTYPE_NAME = New Global.System.Data.DataColumn("TYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYPE_NAME) - Me.columnTYPE_ID.AllowDBNull = false - Me.columnTYPE_ID.DefaultValue = CType(0,Short) End Sub _ - Partial Public Class TBWH_SEARCH_POSITIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_SEARCH_POSITIONRow) + Partial Public Class TBWH_UserDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) - Private columnPOSITION_INDEX As Global.System.Data.DataColumn + Private columnUsername As Global.System.Data.DataColumn - Private columnPOSITION_NAME As Global.System.Data.DataColumn + Private columnSurname As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + Private columnGUID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBWH_SEARCH_POSITION" + Me.TableName = "TBWH_User" Me.BeginInit Me.InitClass Me.EndInit @@ -5901,17 +5756,41 @@ Partial Public Class MyDataset _ - Public ReadOnly Property POSITION_INDEXColumn() As Global.System.Data.DataColumn + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get - Return Me.columnPOSITION_INDEX + Return Me.columnUsername End Get End Property _ - Public ReadOnly Property POSITION_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get - Return Me.columnPOSITION_NAME + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID End Get End Property @@ -5926,44 +5805,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SEARCH_POSITIONRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow Get - Return CType(Me.Rows(index),TBWH_SEARCH_POSITIONRow) + Return CType(Me.Rows(index),TBWH_UserRow) End Get End Property _ - Public Event TBWH_SEARCH_POSITIONRowChanging As TBWH_SEARCH_POSITIONRowChangeEventHandler + Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler _ - Public Event TBWH_SEARCH_POSITIONRowChanged As TBWH_SEARCH_POSITIONRowChangeEventHandler + Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler _ - Public Event TBWH_SEARCH_POSITIONRowDeleting As TBWH_SEARCH_POSITIONRowChangeEventHandler + Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler _ - Public Event TBWH_SEARCH_POSITIONRowDeleted As TBWH_SEARCH_POSITIONRowChangeEventHandler + Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler _ - Public Overloads Sub AddTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow) + Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_SEARCH_POSITIONRow(ByVal POSITION_INDEX As String, ByVal POSITION_NAME As String) As TBWH_SEARCH_POSITIONRow - Dim rowTBWH_SEARCH_POSITIONRow As TBWH_SEARCH_POSITIONRow = CType(Me.NewRow,TBWH_SEARCH_POSITIONRow) - Dim columnValuesArray() As Object = New Object() {POSITION_INDEX, POSITION_NAME} - rowTBWH_SEARCH_POSITIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_SEARCH_POSITIONRow) - Return rowTBWH_SEARCH_POSITIONRow + Public Overloads Function AddTBWH_UserRow(ByVal Username As String, ByVal Surname As String, ByVal Prename As String, ByVal Email As String, ByVal GUID As Integer) As TBWH_UserRow + Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow) + Dim columnValuesArray() As Object = New Object() {Username, Surname, Prename, Email, GUID} + rowTBWH_UserRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_UserRow) + Return rowTBWH_UserRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBWH_SEARCH_POSITIONDataTable) + Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable) cln.InitVars Return cln End Function @@ -5971,49 +5850,59 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_SEARCH_POSITIONDataTable() + Return New TBWH_UserDataTable() End Function _ Friend Sub InitVars() - Me.columnPOSITION_INDEX = MyBase.Columns("POSITION_INDEX") - Me.columnPOSITION_NAME = MyBase.Columns("POSITION_NAME") + Me.columnUsername = MyBase.Columns("Username") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnEmail = MyBase.Columns("Email") + Me.columnGUID = MyBase.Columns("GUID") End Sub _ Private Sub InitClass() - Me.columnPOSITION_INDEX = New Global.System.Data.DataColumn("POSITION_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPOSITION_INDEX) - Me.columnPOSITION_NAME = New Global.System.Data.DataColumn("POSITION_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPOSITION_NAME) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGUID.AllowDBNull = false End Sub _ - Public Function NewTBWH_SEARCH_POSITIONRow() As TBWH_SEARCH_POSITIONRow - Return CType(Me.NewRow,TBWH_SEARCH_POSITIONRow) + Public Function NewTBWH_UserRow() As TBWH_UserRow + Return CType(Me.NewRow,TBWH_UserRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_SEARCH_POSITIONRow(builder) + Return New TBWH_UserRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_SEARCH_POSITIONRow) + Return GetType(TBWH_UserRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_SEARCH_POSITIONRowChanged(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) End If End Sub @@ -6021,8 +5910,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_SEARCH_POSITIONRowChanging(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) End If End Sub @@ -6030,8 +5919,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_SEARCH_POSITIONRowDeleted(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) End If End Sub @@ -6039,14 +5928,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_SEARCH_POSITIONRowDeleting(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action)) + If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow) + Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Remove(row) End Sub @@ -6073,7 +5962,273 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_SEARCH_POSITIONDataTable" + attribute2.FixedValue = "TBWH_UserDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_GROUPRow) + + Private columnName As Global.System.Data.DataColumn + + Private columnGUID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_GROUP" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_GROUPRow + Get + Return CType(Me.Rows(index),TBWH_GROUPRow) + End Get + End Property + + _ + Public Event TBWH_GROUPRowChanging As TBWH_GROUPRowChangeEventHandler + + _ + Public Event TBWH_GROUPRowChanged As TBWH_GROUPRowChangeEventHandler + + _ + Public Event TBWH_GROUPRowDeleting As TBWH_GROUPRowChangeEventHandler + + _ + Public Event TBWH_GROUPRowDeleted As TBWH_GROUPRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_GROUPRow(ByVal Name As String, ByVal GUID As Short) As TBWH_GROUPRow + Dim rowTBWH_GROUPRow As TBWH_GROUPRow = CType(Me.NewRow,TBWH_GROUPRow) + Dim columnValuesArray() As Object = New Object() {Name, GUID} + rowTBWH_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_GROUPRow) + Return rowTBWH_GROUPRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_GROUPDataTable = CType(MyBase.Clone,TBWH_GROUPDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_GROUPDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnName = MyBase.Columns("Name") + Me.columnGUID = MyBase.Columns("GUID") + End Sub + + _ + Private Sub InitClass() + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGUID.AllowDBNull = false + End Sub + + _ + Public Function NewTBWH_GROUPRow() As TBWH_GROUPRow + Return CType(Me.NewRow,TBWH_GROUPRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_GROUPRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_GROUPRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowChanged(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowChanging(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowDeleted(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowDeleting(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_GROUPRow(ByVal row As TBWH_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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_GROUPDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6117,6 +6272,1154 @@ Partial Public Class MyDataset End Function End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_GROUP_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_GROUP_PROFILE = CType(Me.Table,TBCW_GROUP_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_GROUP_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_GROUP_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 TBCW_GROUP_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DATA_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DOC_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_REL_CONTROLRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_REL_CONTROL = CType(Me.Table,TBCW_PROF_REL_CONTROLDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.GUIDColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property WINDOW_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn) = value + End Set + End Property + + _ + Public Property CONTROL_NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CONTROL_NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.CONTROL_NAMEColumn) = value + End Set + End Property + + _ + Public Property TOPLEFT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn) = value + End Set + End Property + + _ + Public Property TOPLEFT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn) = value + End Set + End Property + + _ + Public Property TOPLEFT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property TOPLEFT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.SEQUENCEColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_REL_CONTROL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_REL_CONTROL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_REL_CONTROL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_REL_CONTROL_WINDOW_ID")),TBCW_PROF_REL_WINDOWRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_REL_CONTROL_WINDOW_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_REL_WINDOWRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_REL_WINDOW = CType(Me.Table,TBCW_PROF_REL_WINDOWDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROCESS_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property REGEX() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_REL_WINDOW_PROCESS_ID")),TBCW_PROFILE_PROCESSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_REL_WINDOW_PROCESS_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBCW_PROF_REL_CONTROLRows() As TBCW_PROF_REL_CONTROLRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_REL_CONTROL_WINDOW_ID") Is Nothing) Then + Return New TBCW_PROF_REL_CONTROLRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_REL_CONTROL_WINDOW_ID")),TBCW_PROF_REL_CONTROLRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROFILE_PROCESSRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property PROC_NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILE_PROCESS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBCW_PROF_REL_WINDOWRows() As TBCW_PROF_REL_WINDOWRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_REL_WINDOW_PROCESS_ID") Is Nothing) Then + Return New TBCW_PROF_REL_WINDOWRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_REL_WINDOW_PROCESS_ID")),TBCW_PROF_REL_WINDOWRow()) + End If + End Function + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -6156,16 +7459,12 @@ Partial Public Class MyDataset _ - Public Property COMMENT() As String + Public Property PROFILE_TYPE() As Short Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) End Get Set - Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value + Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value End Set End Property @@ -6180,6 +7479,32 @@ Partial Public Class MyDataset End Set End Property + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value + End Set + End Property + _ Public Property ADDED_WHO() As String @@ -6236,28 +7561,6 @@ Partial Public Class MyDataset End Set End Property - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value - End Set - End Property - - _ - Public Property PROFILE_TYPE() As Short - Get - Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) - End Get - Set - Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value - End Set - End Property - _ Public Function IsCOMMENTNull() As Boolean @@ -6414,961 +7717,6 @@ Partial Public Class MyDataset End Sub End Class - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWUSER_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn),String) - End Get - Set - Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value - End Set - End Property - - _ - Public Property PRENAME() As String - Get - Try - Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value - End Set - End Property - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) - End Function - - _ - Public Sub SetPRENAMENull() - Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_PROFILE_PROCESSRow - Inherits Global.System.Data.DataRow - - Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property PROC_NAME() As String - Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String) - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILE_PROCESS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBCW_PROF_REL_WINDOWRows() As TBCW_PROF_REL_WINDOWRow() - If (Me.Table.ChildRelations("FK_PROCESS_ID") Is Nothing) Then - Return New TBCW_PROF_REL_WINDOWRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_PROCESS_ID")),TBCW_PROF_REL_WINDOWRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_PROF_DATA_SEARCHRow - Inherits Global.System.Data.DataRow - - Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property CONN_ID() As Byte - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value - End Set - End Property - - _ - Public Property SQL_COMMAND() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value - End Set - End Property - - _ - Public Property TAB_INDEX() As Byte - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value - End Set - End Property - - _ - Public Property TAB_TITLE() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property COUNT_COMMAND() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value - End Set - End Property - - _ - Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_PROF_DOC_SEARCHRow - Inherits Global.System.Data.DataRow - - Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property CONN_ID() As Byte - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value - End Set - End Property - - _ - Public Property SQL_COMMAND() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value - End Set - End Property - - _ - Public Property TAB_INDEX() As Byte - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value - End Set - End Property - - _ - Public Property TAB_TITLE() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property COUNT_COMMAND() As String - Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COUNT_COMMAND in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value - End Set - End Property - - _ - Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCOUNT_COMMANDNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) - End Function - - _ - Public Sub SetCOUNT_COMMANDNull() - Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_GROUP_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_GROUP_PROFILE = CType(Me.Table,TBCW_GROUP_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property GROUP_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_GROUP_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 TBCW_GROUP_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWCW_GROUP_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWCW_GROUP_PROFILE = CType(Me.Table,VWCW_GROUP_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWCW_GROUP_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = value - End Set - End Property - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_PROF_REL_WINDOWRow - Inherits Global.System.Data.DataRow - - Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_PROF_REL_WINDOW = CType(Me.Table,TBCW_PROF_REL_WINDOWDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn) = value - End Set - End Property - - _ - Public Property DESCRIPTION() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn) = value - End Set - End Property - - _ - Public Property REGEX() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE() As Byte - Get - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn),Byte) - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property PROCESS_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn) = value - End Set - End Property - - _ - Public Property TBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_PROCESS_ID")),TBCW_PROFILE_PROCESSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_PROCESS_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBCW_PROF_REL_CONTROLRows() As TBCW_PROF_REL_CONTROLRow() - If (Me.Table.ChildRelations("FK_WINDOW_ID") Is Nothing) Then - Return New TBCW_PROF_REL_CONTROLRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_WINDOW_ID")),TBCW_PROF_REL_CONTROLRow()) - End If - End Function - End Class - ''' '''Represents strongly named DataRow class. ''' @@ -7567,6 +7915,17 @@ Partial Public Class MyDataset End Set End Property + _ + Public Property SYS_CONNECTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value + End Set + End Property + _ Public Function IsBEZEICHNUNGNull() As Boolean @@ -7691,625 +8050,310 @@ Partial Public Class MyDataset ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBCW_PROF_REL_CONTROLRow + Partial Public Class VWCW_USER_PROFILERow Inherits Global.System.Data.DataRow - Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable + Private tableVWCW_USER_PROFILE As VWCW_USER_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCW_PROF_REL_CONTROL = CType(Me.Table,TBCW_PROF_REL_CONTROLDataTable) + Me.tableVWCW_USER_PROFILE = CType(Me.Table,VWCW_USER_PROFILEDataTable) + End Sub + + _ + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.REGEX_EXPRESSIONColumn),String) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.REGEX_EXPRESSIONColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property PROFILE_TYPE() As Short + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.PROFILE_TYPEColumn),Short) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.PROFILE_TYPEColumn) = value + End Set + End Property + + _ + Public Property PROC_NAME() As String + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROC_NAME in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.USER_IDColumn) = value + End Set + End Property + + _ + Public Property PROFIL_ID() As Integer + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.PROFIL_IDColumn),Integer) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.PROFIL_IDColumn) = value + End Set + End Property + + _ + Public Property PROFIL_NAME() As String + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.PROFIL_NAMEColumn),String) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.PROFIL_NAMEColumn) = value + End Set + End Property + + _ + Public Property USER_SURNAME() As String + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.USER_SURNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.USER_SURNAMEColumn) = value + End Set + End Property + + _ + Public Property USER_PRENAME() As String + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.USER_PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.USER_PRENAMEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.USERNAMEColumn),String) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWCW_USER_PROFILE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPROC_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn) + End Function + + _ + Public Sub SetPROC_NAMENull() + Me(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_SURNAMENull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.USER_SURNAMEColumn) + End Function + + _ + Public Sub SetUSER_SURNAMENull() + Me(Me.tableVWCW_USER_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_PRENAMENull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.USER_PRENAMEColumn) + End Function + + _ + Public Sub SetUSER_PRENAMENull() + Me(Me.tableVWCW_USER_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWCW_GROUP_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWCW_GROUP_PROFILE = CType(Me.Table,VWCW_GROUP_PROFILEDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.GUIDColumn),Integer) + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn),Integer) End Get Set - Me(Me.tableTBCW_PROF_REL_CONTROL.GUIDColumn) = value - End Set - End Property - - _ - Public Property WINDOW_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn) = value - End Set - End Property - - _ - Public Property DESCRIPTION() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.DESCRIPTIONColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.DESCRIPTIONColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE() As Byte - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.SEQUENCEColumn),Byte) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.SEQUENCEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_REL_CONTROL ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_REL_CONTROL ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_REL_CONTROL ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TOPLEFT_TOP() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn) = value - End Set - End Property - - _ - Public Property TOPLEFT_LEFT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn) = value - End Set - End Property - - _ - Public Property TOPLEFT_RIGHT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn) = value - End Set - End Property - - _ - Public Property TOPLEFT_BOTTOM() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn) = value - End Set - End Property - - _ - Public Property TOPRIGHT_TOP() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn) = value - End Set - End Property - - _ - Public Property TOPRIGHT_LEFT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn) = value - End Set - End Property - - _ - Public Property TOPRIGHT_RIGHT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn) = value - End Set - End Property - - _ - Public Property TOPRIGHT_BOTTOM() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn) = value - End Set - End Property - - _ - Public Property BOTTOMLEFT_TOP() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn) = value - End Set - End Property - - _ - Public Property BOTTOMLEFT_LEFT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn) = value - End Set - End Property - - _ - Public Property BOTTOMLEFT_RIGHT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn) = value - End Set - End Property - - _ - Public Property BOTTOMLEFT_BOTTOM() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn) = value - End Set - End Property - - _ - Public Property BOTTOMRIGHT_TOP() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn) = value - End Set - End Property - - _ - Public Property BOTTOMRIGHT_LEFT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn) = value - End Set - End Property - - _ - Public Property BOTTOMRIGHT_RIGHT() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn) = value - End Set - End Property - - _ - Public Property BOTTOMRIGHT_BOTTOM() As Integer - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn),Integer) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn) = value - End Set - End Property - - _ - Public Property CONTROL_NAME() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CONTROL_NAMEColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.CONTROL_NAMEColumn) = value - End Set - End Property - - _ - Public Property TBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_WINDOW_ID")),TBCW_PROF_REL_WINDOWRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_WINDOW_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_UserRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_User As TBWH_UserDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable) - End Sub - - _ - Public Property Username() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.UsernameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.UsernameColumn) = value - End Set - End Property - - _ - Public Property Prename() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.PrenameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.PrenameColumn) = value - End Set - End Property - - _ - Public Property Surname() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.SurnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.SurnameColumn) = value - End Set - End Property - - _ - Public Property Email() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.EmailColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.EmailColumn) = value - End Set - End Property - - _ - Public Property GUID() As Short - Get - Try - Return CType(Me(Me.tableTBWH_User.GUIDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GUID in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.GUIDColumn) = value - End Set - End Property - - _ - Public Function IsUsernameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) - End Function - - _ - Public Sub SetUsernameNull() - Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPrenameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) - End Function - - _ - Public Sub SetPrenameNull() - Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSurnameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) - End Function - - _ - Public Sub SetSurnameNull() - Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEmailNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.EmailColumn) - End Function - - _ - Public Sub SetEmailNull() - Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsGUIDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.GUIDColumn) - End Function - - _ - Public Sub SetGUIDNull() - Me(Me.tableTBWH_User.GUIDColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_GROUPRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_GROUP As TBWH_GROUPDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_GROUP = CType(Me.Table,TBWH_GROUPDataTable) - End Sub - - _ - Public Property GUID() As String - Get - Try - Return CType(Me(Me.tableTBWH_GROUP.GUIDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GUID in Tabelle TBWH_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_GROUP.GUIDColumn) = value + Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn) = value End Set End Property _ Public Property NAME() As String + Get + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn),String) + End Get + Set + Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = value + End Set + End Property + + _ + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.REGEX_EXPRESSIONColumn),String) + End Get + Set + Me(Me.tableVWCW_GROUP_PROFILE.REGEX_EXPRESSIONColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBWH_GROUP.NAMEColumn),String) + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_GROUP ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWCW_GROUP_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_GROUP.NAMEColumn) = value + Me(Me.tableVWCW_GROUP_PROFILE.COMMENTColumn) = value End Set End Property _ - Public Function IsGUIDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_GROUP.GUIDColumn) - End Function - - _ - Public Sub SetGUIDNull() - Me(Me.tableTBWH_GROUP.GUIDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_GROUP.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableTBWH_GROUP.NAMEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_PROFILE_TYPERow - Inherits Global.System.Data.DataRow - - Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_PROFILE_TYPE = CType(Me.Table,TBWH_PROFILE_TYPEDataTable) - End Sub - - _ - Public Property TYPE_ID() As Short + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn),Short) + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn) = value + Me(Me.tableVWCW_GROUP_PROFILE.ACTIVEColumn) = value End Set End Property _ - Public Property TYPE_NAME() As String + Public Property GROUP_ID() As Integer Get - Try - Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle TBWH_PROFILE_TYPE ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GROUP_IDColumn),Integer) End Get Set - Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = value + Me(Me.tableVWCW_GROUP_PROFILE.GROUP_IDColumn) = value End Set End Property _ - Public Function IsTYPE_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) + Public Property PROC_NAME() As String + Get + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.PROC_NAMEColumn),String) + End Get + Set + Me(Me.tableVWCW_GROUP_PROFILE.PROC_NAMEColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWCW_GROUP_PROFILE.COMMENTColumn) End Function _ - Public Sub SetTYPE_NAMENull() - Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableVWCW_GROUP_PROFILE.COMMENTColumn) = Global.System.Convert.DBNull End Sub End Class @@ -8330,10 +8374,10 @@ Partial Public Class MyDataset _ - Public Property POSITION_INDEX() As String + Public Property POSITION_INDEX() As Short Get Try - Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn),String) + Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_INDEX in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e) End Try @@ -8384,55 +8428,278 @@ Partial Public Class MyDataset End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBCW_PROFILESRowChangeEvent - Inherits Global.System.EventArgs + Partial Public Class TBWH_PROFILE_TYPERow + Inherits Global.System.Data.DataRow - Private eventRow As TBCW_PROFILESRow - - Private eventAction As Global.System.Data.DataRowAction + Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable _ - Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_PROFILE_TYPE = CType(Me.Table,TBWH_PROFILE_TYPEDataTable) End Sub _ - Public ReadOnly Property Row() As TBCW_PROFILESRow + Public Property TYPE_ID() As Short Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_ID in Tabelle TBWH_PROFILE_TYPE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property TYPE_NAME() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle TBWH_PROFILE_TYPE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = value + End Set End Property + + _ + Public Function IsTYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn) + End Function + + _ + Public Sub SetTYPE_IDNull() + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPE_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) + End Function + + _ + Public Sub SetTYPE_NAMENull() + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_UserRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_User As TBWH_UserDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable) + End Sub + + _ + Public Property Username() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.UsernameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.UsernameColumn) = value + End Set + End Property + + _ + Public Property Surname() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.SurnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.SurnameColumn) = value + End Set + End Property + + _ + Public Property Prename() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.PrenameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.PrenameColumn) = value + End Set + End Property + + _ + Public Property Email() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.EmailColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.EmailColumn) = value + End Set + End Property + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_User.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_User.GUIDColumn) = value + End Set + End Property + + _ + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) + End Function + + _ + Public Sub SetUsernameNull() + Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSurnameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) + End Function + + _ + Public Sub SetSurnameNull() + Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrenameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) + End Function + + _ + Public Sub SetPrenameNull() + Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEmailNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.EmailColumn) + End Function + + _ + Public Sub SetEmailNull() + Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_GROUPRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_GROUP As TBWH_GROUPDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_GROUP = CType(Me.Table,TBWH_GROUPDataTable) + End Sub + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tableTBWH_GROUP.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle TBWH_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_GROUP.NameColumn) = value + End Set + End Property + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBWH_GROUP.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBWH_GROUP.GUIDColumn) = value + End Set + End Property + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_GROUP.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tableTBWH_GROUP.NameColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Row event argument class ''' _ - Public Class TBCW_USER_PROFILERowChangeEvent + Public Class TBCW_GROUP_PROFILERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBCW_USER_PROFILERow + Private eventRow As TBCW_GROUP_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCW_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -8440,79 +8707,7 @@ Partial Public Class MyDataset _ - Public ReadOnly Property Row() As TBCW_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 VWUSER_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWUSER_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWUSER_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 TBCW_PROFILE_PROCESSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBCW_PROFILE_PROCESSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBCW_PROFILE_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow + Public ReadOnly Property Row() As TBCW_GROUP_PROFILERow Get Return Me.eventRow End Get @@ -8603,16 +8798,16 @@ Partial Public Class MyDataset '''Row event argument class ''' _ - Public Class TBCW_GROUP_PROFILERowChangeEvent + Public Class TBCW_PROF_REL_CONTROLRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBCW_GROUP_PROFILERow + Private eventRow As TBCW_PROF_REL_CONTROLRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBCW_PROF_REL_CONTROLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -8620,43 +8815,7 @@ Partial Public Class MyDataset _ - Public ReadOnly Property Row() As TBCW_GROUP_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 VWCW_GROUP_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWCW_GROUP_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWCW_GROUP_PROFILERow + Public ReadOnly Property Row() As TBCW_PROF_REL_CONTROLRow Get Return Me.eventRow End Get @@ -8707,6 +8866,114 @@ Partial Public Class MyDataset End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBCW_PROFILE_PROCESSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROFILE_PROCESSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROFILE_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow + 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 TBCW_PROFILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROFILESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROFILESRow + 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 TBCW_USER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_USER_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_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 ''' @@ -8747,16 +9014,16 @@ Partial Public Class MyDataset '''Row event argument class ''' _ - Public Class TBCW_PROF_REL_CONTROLRowChangeEvent + Public Class VWCW_USER_PROFILERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBCW_PROF_REL_CONTROLRow + Private eventRow As VWCW_USER_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCW_PROF_REL_CONTROLRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As VWCW_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -8764,7 +9031,115 @@ Partial Public Class MyDataset _ - Public ReadOnly Property Row() As TBCW_PROF_REL_CONTROLRow + Public ReadOnly Property Row() As VWCW_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 VWCW_GROUP_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWCW_GROUP_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWCW_GROUP_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 TBWH_SEARCH_POSITIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_SEARCH_POSITIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_SEARCH_POSITIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_PROFILE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_PROFILE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_PROFILE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_PROFILE_TYPERow Get Return Me.eventRow End Get @@ -8850,82 +9225,2268 @@ Partial Public Class MyDataset End Get End Property End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_PROFILE_TYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_PROFILE_TYPERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWH_PROFILE_TYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWH_PROFILE_TYPERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_SEARCH_POSITIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_SEARCH_POSITIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWH_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWH_SEARCH_POSITIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class End Class Namespace MyDatasetTableAdapters + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_GROUP_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 + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_GROUP_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_GROUP_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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, GROUP_ID, A"& _ + "DDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@GROUP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROF"& _ + "ILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = SC"& _ + "OPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_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 TBCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, GRO"& _ + "UP_ID = @GROUP_ID, ADDED_WHO = @ADDED_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, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROF"& _ + "ILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_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("@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("@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.easyFLOW.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, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM dbo.TBCW_GROUP_PROF"& _ + "ILE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBCW_GROUP_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable = New MyDataset.TBCW_GROUP_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_GROUP_PROFILE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROF_DATA_SEARCHTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROF_DATA_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, CONN_ID,"& _ + " SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@PROFILE_ID,@CONN_ID,@SQL_COMMAND,@COUNT_COMMAND,@TAB_INDEX,@ACTIVE,@TAB_T"& _ + "ITLE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND"& _ + ", TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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 TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, "& _ + "CONN_ID = @CONN_ID, SQL_COMMAND = @SQL_COMMAND, COUNT_COMMAND = @COUNT_COMMAND, "& _ + "TAB_INDEX = @TAB_INDEX, ACTIVE = @ACTIVE, TAB_TITLE = @TAB_TITLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE"& _ + ", TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_DAT"& _ + "A_SEARCH WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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.easyFLOW.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, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, A"& _ + "CTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DATA_SEARCHDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable = New MyDataset.TBCW_PROF_DATA_SEARCHDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal COUNT_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + 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) _ + <> 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 PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal COUNT_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE 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(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TAB_TITLE,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + 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) _ + <> 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 TBCW_PROF_DOC_SEARCHTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROF_DOC_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, CONN_ID, "& _ + "SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@PROFILE_ID,@CONN_ID,@SQL_COMMAND,@COUNT_COMMAND,@TAB_INDEX,@ACTIVE,@TAB_TI"& _ + "TLE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND,"& _ + " TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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 TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, C"& _ + "ONN_ID = @CONN_ID, SQL_COMMAND = @SQL_COMMAND, COUNT_COMMAND = @COUNT_COMMAND, T"& _ + "AB_INDEX = @TAB_INDEX, ACTIVE = @ACTIVE, TAB_TITLE = @TAB_TITLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE,"& _ + " TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_DOC_"& _ + "SEARCH WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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.easyFLOW.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, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, A"& _ + "CTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DOC_SEARCHDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable = New MyDataset.TBCW_PROF_DOC_SEARCHDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal COUNT_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + 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) _ + <> 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 PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal COUNT_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE 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(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TAB_TITLE,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + 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) _ + <> 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 TBCW_PROF_REL_CONTROLTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROF_REL_CONTROL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("WINDOW_ID", "WINDOW_ID") + tableMapping.ColumnMappings.Add("CONTROL_NAME", "CONTROL_NAME") + tableMapping.ColumnMappings.Add("TOPLEFT_TOP", "TOPLEFT_TOP") + tableMapping.ColumnMappings.Add("TOPLEFT_LEFT", "TOPLEFT_LEFT") + tableMapping.ColumnMappings.Add("TOPLEFT_RIGHT", "TOPLEFT_RIGHT") + tableMapping.ColumnMappings.Add("TOPLEFT_BOTTOM", "TOPLEFT_BOTTOM") + tableMapping.ColumnMappings.Add("TOPRIGHT_TOP", "TOPRIGHT_TOP") + tableMapping.ColumnMappings.Add("TOPRIGHT_LEFT", "TOPRIGHT_LEFT") + tableMapping.ColumnMappings.Add("TOPRIGHT_RIGHT", "TOPRIGHT_RIGHT") + tableMapping.ColumnMappings.Add("TOPRIGHT_BOTTOM", "TOPRIGHT_BOTTOM") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_TOP", "BOTTOMLEFT_TOP") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_LEFT", "BOTTOMLEFT_LEFT") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_RIGHT", "BOTTOMLEFT_RIGHT") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_BOTTOM", "BOTTOMLEFT_BOTTOM") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_TOP", "BOTTOMRIGHT_TOP") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_LEFT", "BOTTOMRIGHT_LEFT") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_RIGHT", "BOTTOMRIGHT_RIGHT") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_BOTTOM", "BOTTOMRIGHT_BOTTOM") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DESCRIPTION, WINDOW_"& _ + "ID, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPR"& _ + "IGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTO"& _ + "MRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, A"& _ + "DDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DESCRIPTION,@WINDOW_ID,@CONTROL_NAME,@TOPLEFT_TOP,@TO"& _ + "PLEFT_LEFT,@TOPLEFT_RIGHT,@TOPLEFT_BOTTOM,@TOPRIGHT_TOP,@TOPRIGHT_LEFT,@TOPRIGHT"& _ + "_RIGHT,@TOPRIGHT_BOTTOM,@BOTTOMLEFT_TOP,@BOTTOMLEFT_LEFT,@BOTTOMLEFT_RIGHT,@BOTT"& _ + "OMLEFT_BOTTOM,@BOTTOMRIGHT_TOP,@BOTTOMRIGHT_LEFT,@BOTTOMRIGHT_RIGHT,@BOTTOMRIGHT"& _ + "_BOTTOM,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, WINDOW_ID, CONTROL_NA"& _ + "ME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPR"& _ + "IGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOT"& _ + "TOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT"& _ + "_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_NAME", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DESCRIPTION = @DESCRIPTION"& _ + ", WINDOW_ID = @WINDOW_ID, CONTROL_NAME = @CONTROL_NAME, TOPLEFT_TOP = @TOPLEFT_T"& _ + "OP, TOPLEFT_LEFT = @TOPLEFT_LEFT, TOPLEFT_RIGHT = @TOPLEFT_RIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TOPLEFT_BOTTOM = @TOPLEFT_BOTTOM, TOPRIGHT_TOP = @TOPRIGHT_TOP, TOP"& _ + "RIGHT_LEFT = @TOPRIGHT_LEFT, TOPRIGHT_RIGHT = @TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM ="& _ + " @TOPRIGHT_BOTTOM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMLEFT_TOP = @BOTTOMLEFT_TOP, "& _ + "BOTTOMLEFT_LEFT = @BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT = @BOTTOMLEFT_RIGHT, BOTTOM"& _ + "LEFT_BOTTOM = @BOTTOMLEFT_BOTTOM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMRIGHT_TOP = @"& _ + "BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT = @BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT = @BOTT"& _ + "OMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM = @BOTTOMRIGHT_BOTTOM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Orig"& _ + "inal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, WINDOW_ID, CONTROL_NAME, TOPLEFT_TOP, TO"& _ + "PLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT"& _ + "_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTT"& _ + "OMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT"& _ + "_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PR"& _ + "OF_REL_CONTROL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_NAME", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.easyFLOW.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, DESCRIPTION, WINDOW_ID, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LE"& _ + "FT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, "& _ + "TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMLEFT_LEFT, BOT"& _ + "TOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT"& _ + "_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (WINDOW_ID = @WIND_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIND_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable, ByVal WIND_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(WIND_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 WIND_ID As Integer) As MyDataset.TBCW_PROF_REL_CONTROLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(WIND_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable = New MyDataset.TBCW_PROF_REL_CONTROLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_CONTROL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal DESCRIPTION As String, _ + ByVal WINDOW_ID As Integer, _ + ByVal CONTROL_NAME As String, _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal SEQUENCE As Byte, _ + ByVal ADDED_WHO As String) As Integer + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(WINDOW_ID,Integer) + If (CONTROL_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CONTROL_NAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CONTROL_NAME,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TOPLEFT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(TOPLEFT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TOPLEFT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TOPLEFT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(TOPRIGHT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(TOPRIGHT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(TOPRIGHT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(TOPRIGHT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(BOTTOMLEFT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(BOTTOMLEFT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(BOTTOMRIGHT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(19).Value = CType(SEQUENCE,Byte) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(20).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 DESCRIPTION As String, _ + ByVal WINDOW_ID As Integer, _ + ByVal CONTROL_NAME As String, _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal SEQUENCE As Byte, _ + ByVal CHANGED_WHO As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WINDOW_ID,Integer) + If (CONTROL_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CONTROL_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CONTROL_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TOPLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TOPLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TOPLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TOPLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TOPRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TOPRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TOPRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TOPRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(BOTTOMLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(BOTTOMLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(BOTTOMRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SEQUENCE,Byte) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_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) _ + <> 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 TBCW_PROF_REL_WINDOWTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROF_REL_WINDOW" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROCESS_ID", "PROCESS_ID") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("REGEX", "REGEX") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBCW_PROF_REL_WINDOW] WHERE (([GUID] = @Original_GUID) AND ([P"& _ + "ROCESS_ID] = @Original_PROCESS_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) A"& _ + "ND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) 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)))" + 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_PROCESS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 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 TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROCESS_ID, DESCRIPTI"& _ + "ON, REGEX, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROCESS_ID,@DESCRIPTION,@REGEX,"& _ + "@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROCESS_ID, DESCRIPTION, REGEX, SEQUENCE, "& _ + "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE"& _ + " (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROCESS_ID = @PROCESS_ID, D"& _ + "ESCRIPTION = @DESCRIPTION, REGEX = @REGEX, SEQUENCE = @SEQUENCE, CHANGED_WHO = @"& _ + "CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROCESS_ID, DE"& _ + "SCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FRO"& _ + "M TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.easyFLOW.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, PROCESS_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROCESS_ID = @PROCESS_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable, ByVal PROCESS_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_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 PROCESS_ID As Integer) As MyDataset.TBCW_PROF_REL_WINDOWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable = New MyDataset.TBCW_PROF_REL_WINDOWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_WINDOW") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROCESS_ID As Integer, ByVal Original_DESCRIPTION As String, ByVal Original_REGEX As String, ByVal Original_SEQUENCE As Byte, 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_PROCESS_ID,Integer) + If (Original_DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_REGEX,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Byte) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).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 PROCESS_ID As Integer, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) + End If + If (REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SEQUENCE,Byte) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).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 PROCESS_ID As Integer, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) + If (DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("DESCRIPTION") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) + End If + If (REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SEQUENCE,Byte) + 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) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).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 TBCW_PROFILE_PROCESSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROFILE_PROCESS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, PROC_NAME"& _ + ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@PROC_NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ + "PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN FROM TBCW_PROFILE_PROCESS WHERE (GU"& _ + "ID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_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 TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, P"& _ + "ROC_NAME = @PROC_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, PRO"& _ + "FILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN FROM TBCW_PROFILE_PROCESS WHERE (GUID "& _ + "= @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_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.easyFLOW.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, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.TBCW_PROFILE_PROCESSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable = New MyDataset.TBCW_PROFILE_PROCESSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROFILE_PROCESS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (PROC_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROC_NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(PROC_NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (PROC_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROC_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PROC_NAME,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. ''' @@ -9055,52 +11616,48 @@ Namespace MyDatasetTableAdapters tableMapping.DataSetTable = "TBCW_PROFILES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") 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 [TBCW_PROFILES] WHERE [GUID] = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROFILES"&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("@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 TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, REGEX_EXPRESS"& _ - "ION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VA"& _ - "LUES (@NAME,@COMMENT,@REGEX_EXPRESSION,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WH"& _ - "O,@CHANGED_WHEN,@ACTIVE,@PROFILE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, REGEX_EXPR"& _ - "ESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE F"& _ - "ROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, PROFILE_TYPE, REGEX_EX"& _ + "PRESSION, ACTIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@PROFILE_TYPE,@REGEX"& _ + "_EXPRESSION,@ACTIVE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, PROFILE_TYPE, REG"& _ + "EX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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("@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.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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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("@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("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT, "& _ - "REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTI"& _ - "VE, PROFILE_TYPE = @PROFILE_TYPE"&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, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, PROFILE_TYPE = @PROF"& _ + "ILE_TYPE, REGEX_EXPRESSION = @REGEX_EXPRESSION, ACTIVE = @ACTIVE, COMMENT = @COM"& _ + "MENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, NAME, PROFILE_TYPE, REGEX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO, ADDED_W"& _ + "HEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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("@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("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 @@ -9109,7 +11666,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.easyFLOW.My.MySettings.Default.DD_ECMConnectionString End Sub _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION 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 ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As Integer + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal PROFILE_TYPE As Short, ByVal REGEX_EXPRESSION As String, ByVal ACTIVE As Boolean, ByVal COMMENT 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) End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) - End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(PROFILE_TYPE,Short) If (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + 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) + 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(5).Value = CType(ADDED_WHO,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ACTIVE,Boolean) - Me.Adapter.InsertCommand.Parameters(8).Value = CType(PROFILE_TYPE,Short) 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 @@ -9257,29 +11799,29 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal CHANGED_WHO As String, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal PROFILE_TYPE As Short, ByVal REGEX_EXPRESSION As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) - End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PROFILE_TYPE,Short) If (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + 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) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PROFILE_TYPE,Short) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State @@ -9433,9 +11975,17 @@ 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 TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBCW_USER_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROF"& _ + "ILE_ID] = @Original_PROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([ADDED_"& _ + "WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NUL"& _ + "L) OR ([ADDED_WHEN] = @Original_ADDED_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, 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, 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.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.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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, USER_ID, ADD"& _ @@ -9462,7 +12012,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.easyFLOW.My.MySettings.Default.DD_ECMConnectionString End Sub _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROFILE_ID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_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_PROFILE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_USER_ID,Integer) + 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 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 @@ -9600,2300 +12165,6 @@ Namespace MyDatasetTableAdapters End Function End Class - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWUSER_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 - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWUSER_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.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, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBCW_USER_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T1"& _ - " ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1."& _ - "USERNAME" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_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 TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).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 - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - 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 TBCW_PROFILE_PROCESSTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCW_PROFILE_PROCESS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROFILE_PROCESS"&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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, PROC_NAME"& _ - ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.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, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,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 PID As Integer) As MyDataset.TBCW_PROFILE_PROCESSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,Integer) - Dim dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable = New MyDataset.TBCW_PROFILE_PROCESSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROFILE_PROCESS") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBCW_PROF_DATA_SEARCHTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCW_PROF_DATA_SEARCH" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") - tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_COMMAND") - 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 TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB"& _ - "_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANG"& _ - "ED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_IND"& _ - "EX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @"& _ - "COUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIV"& _ - "E, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FR"& _ - "OM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_"& _ - "ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, "& _ - "[TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, "& _ - "[CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = "& _ - "@COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PR"& _ - "OFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_I"& _ - "NDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) "& _ - "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_W"& _ - "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ - "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ - "riginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_IND"& _ - "EX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_C"& _ - "OMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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.DD_Clipboard_Watcher.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, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITL"& _ - "E, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DATA_SEARCHDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable = New MyDataset.TBCW_PROF_DATA_SEARCHDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) - End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (TAB_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TAB_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,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) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (COUNT_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("COUNT_COMMAND") - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,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 PROFILE_ID As Integer, _ - ByVal CONN_ID As Byte, _ - ByVal SQL_COMMAND As String, _ - ByVal TAB_INDEX As Byte, _ - ByVal ACTIVE As Boolean, _ - ByVal TAB_TITLE As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal COUNT_COMMAND As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_PROFILE_ID As Integer, _ - ByVal Original_CONN_ID As Byte, _ - ByVal Original_TAB_INDEX As Byte, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_TAB_TITLE 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(PROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (TAB_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TAB_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,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) - End If - 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) - End If - 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 - If (COUNT_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("COUNT_COMMAND") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) - If (Original_TAB_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,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) - 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) - Else - 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(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) - 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) - Else - 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) - 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 - - _ - Public Overloads Overridable Function Update( _ - ByVal PROFILE_ID As Integer, _ - ByVal CONN_ID As Byte, _ - ByVal SQL_COMMAND As String, _ - ByVal TAB_INDEX As Byte, _ - ByVal ACTIVE As Boolean, _ - ByVal TAB_TITLE As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal COUNT_COMMAND As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_PROFILE_ID As Integer, _ - ByVal Original_CONN_ID As Byte, _ - ByVal Original_TAB_INDEX As Byte, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_TAB_TITLE 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(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCW_PROF_DOC_SEARCH" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") - tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_COMMAND") - 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 TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_"& _ - "INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGE"& _ - "D_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDE"& _ - "X, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @C"& _ - "OUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE"& _ - ", TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FRO"& _ - "M TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_I"& _ - "D, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, ["& _ - "TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ - "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @"& _ - "COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PRO"& _ - "FILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_IN"& _ - "DEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) A"& _ - "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ - "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _ - "O = 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] = @Or"& _ - "iginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDE"& _ - "X, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_CO"& _ - "MMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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.DD_Clipboard_Watcher.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 *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = "& _ - "@PROFILE_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DOC_SEARCHDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable = New MyDataset.TBCW_PROF_DOC_SEARCHDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) - End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (TAB_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TAB_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,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) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (COUNT_COMMAND Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,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 PROFILE_ID As Integer, _ - ByVal CONN_ID As Byte, _ - ByVal SQL_COMMAND As String, _ - ByVal TAB_INDEX As Byte, _ - ByVal ACTIVE As Boolean, _ - ByVal TAB_TITLE As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal COUNT_COMMAND As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_PROFILE_ID As Integer, _ - ByVal Original_CONN_ID As Byte, _ - ByVal Original_TAB_INDEX As Byte, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_TAB_TITLE 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(PROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (TAB_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TAB_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,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) - End If - 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) - End If - 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 - If (COUNT_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) - If (Original_TAB_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,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) - 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) - Else - 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(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) - 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) - Else - 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) - 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 - - _ - Public Overloads Overridable Function Update( _ - ByVal PROFILE_ID As Integer, _ - ByVal CONN_ID As Byte, _ - ByVal SQL_COMMAND As String, _ - ByVal TAB_INDEX As Byte, _ - ByVal ACTIVE As Boolean, _ - ByVal TAB_TITLE As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal COUNT_COMMAND As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_PROFILE_ID As Integer, _ - ByVal Original_CONN_ID As Byte, _ - ByVal Original_TAB_INDEX As Byte, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_TAB_TITLE 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(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBCW_GROUP_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 - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCW_GROUP_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_GROUP_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_I"& _ - "D] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO"& _ - "] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) "& _ - "OR ([ADDED_WHEN] = @Original_ADDED_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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_GROUP_PROFILE] ([PROFILE_ID], [GROUP_ID], [ADDED_WHO], [ADDED_W"& _ - "HEN]) VALUES (@PROFILE_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PR"& _ - "OFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_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("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_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, 0, 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, 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_GROUP_PROFILE] SET [PROFILE_ID] = @PROFILE_ID, [GROUP_ID] = @GROUP_I"& _ - "D, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Origin"& _ - "al_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_G"& _ - "ROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ - "D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUI"& _ - "D = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_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, 0, 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("@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("@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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", 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("@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.DD_Clipboard_Watcher.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 TBCW_GROUP_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBCW_GROUP_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable = New MyDataset.TBCW_GROUP_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_GROUP_PROFILE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWCW_GROUP_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 - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWCW_GROUP_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.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, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE AS T INNER JOIN"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1.NAME" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_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 TBCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).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 - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As MyDataset.VWCW_GROUP_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable = New MyDataset.VWCW_GROUP_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - 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 TBCW_PROF_REL_WINDOWTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCW_PROF_REL_WINDOW" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("REGEX", "REGEX") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("PROCESS_ID", "PROCESS_ID") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_REL_WINDOW] ([DESCRIPTION], [REGEX], [SEQUENCE], [ADDED_WH"& _ - "O], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [PROCESS_ID]) VALUES (@DESCRIPT"& _ - "ION, @REGEX, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @P"& _ - "ROCESS_ID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, C"& _ - "HANGED_WHO, CHANGED_WHEN, PROCESS_ID FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCO"& _ - "PE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, 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, 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("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", 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 TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DESCRIPTION = @DESCRIPTION,"& _ - " REGEX = @REGEX, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADD"& _ - "ED_WHEN, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN = @"& _ - "CHANGED_WHEN, PROCESS_ID = @PROCESS_ID"&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, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN, PROCESS_ID FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.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, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ - "WHO, CHANGED_WHEN, PROCESS_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROCESS_ID = @PROCESS_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable, ByVal PROCESS_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_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 PROCESS_ID As Integer) As MyDataset.TBCW_PROF_REL_WINDOWDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) - Dim dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable = New MyDataset.TBCW_PROF_REL_WINDOWDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_WINDOW") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, 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 PROCESS_ID As Integer) As Integer - If (DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("DESCRIPTION") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DESCRIPTION,String) - End If - If (REGEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(REGEX,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Byte) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(PROCESS_ID,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) _ - <> 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 DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, 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 PROCESS_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("DESCRIPTION") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) - End If - If (REGEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(REGEX,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Byte) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - 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) - 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) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(PROCESS_ID,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) _ - <> 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. ''' @@ -12034,6 +12305,7 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("SYS_CONNECTION", "SYS_CONNECTION") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -12042,93 +12314,54 @@ Namespace MyDatasetTableAdapters 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] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ - "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ - " [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @"& _ - "DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN"& _ - ", @GEANDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER"& _ - ", DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _ - "ANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + 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, ERSTELLTW"& _ + "ANN, SYS_CONNECTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBA"& _ + "NK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@ERSTELLTWANN,@SYS_CONNECT"& _ + "ION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PA"& _ + "SSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN,"& _ + " SYS_CONNECTION 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SQL_PROVIDER] = @SQL_"& _ - "PROVIDER, [SERVER] = @SERVER, [DATENBANK] = @DATENBANK, [USERNAME] = @USERNAME, "& _ - "[PASSWORD] = @PASSWORD, [BEMERKUNG] = @BEMERKUNG, [AKTIV] = @AKTIV, [ERSTELLTWER"& _ - "] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, "& _ - "[GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_"& _ - "BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICH"& _ - "NUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVI"& _ - "DER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) O"& _ - "R ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS "& _ - "NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [US"& _ - "ERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = "& _ - "1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BE"& _ - "MERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND"& _ - " ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@"& _ - "IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Origin"& _ - "al_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR (["& _ - "GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAE"& _ - "NDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ - "ID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG,"& _ - " AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTI"& _ - "ON WHERE (GUID = @GUID)" + 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, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION"&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, SQL_PROVIDER,"& _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTW"& _ + "ANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, 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("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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, 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("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATENBANK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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.Current, 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("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.easyFLOW.My.MySettings.Default.DD_ECMConnectionString End Sub _ - 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, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + 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, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal SYS_CONNECTION As Boolean) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else @@ -12265,16 +12500,7 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If - If (GEANDERTWER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(GEANDERTWER,String) - End If - If (GEAENDERTWANN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - End If + Me.Adapter.InsertCommand.Parameters(10).Value = CType(SYS_CONNECTION,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12294,33 +12520,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - 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 ERSTELLTWER As String, _ - ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _ - ByVal GEANDERTWER As String, _ - ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Short, _ - ByVal Original_BEZEICHNUNG As String, _ - ByVal Original_SQL_PROVIDER As String, _ - ByVal Original_SERVER As String, _ - ByVal Original_DATENBANK As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_PASSWORD As String, _ - ByVal Original_BEMERKUNG As String, _ - ByVal Original_AKTIV As Boolean, _ - ByVal Original_ERSTELLTWER As String, _ - ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _ - ByVal Original_GEANDERTWER As String, _ - ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _ - ByVal GUID As Short) As Integer + 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 SYS_CONNECTION As Boolean, 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 @@ -12357,104 +12557,14 @@ Namespace MyDatasetTableAdapters Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ERSTELLTWER,String) - End If - If (ERSTELLTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ERSTELLTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GEANDERTWER,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) End If - If (GEAENDERTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) - If (Original_BEZEICHNUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BEZEICHNUNG,String) - End If - If (Original_SQL_PROVIDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) - End If - If (Original_SERVER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) - End If - If (Original_DATENBANK Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATENBANK,String) - End If - If (Original_USERNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) - End If - If (Original_PASSWORD Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) - End If - If (Original_BEMERKUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_BEMERKUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIV,Boolean) - If (Original_ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ERSTELLTWER,String) - End If - If (Original_ERSTELLTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ERSTELLTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value - End If - If (Original_GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_GEANDERTWER,String) - End If - If (Original_GEAENDERTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_GEAENDERTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(GUID,Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Short) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12469,39 +12579,6 @@ Namespace MyDatasetTableAdapters 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 ERSTELLTWER As String, _ - ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _ - ByVal GEANDERTWER As String, _ - ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Short, _ - ByVal Original_BEZEICHNUNG As String, _ - ByVal Original_SQL_PROVIDER As String, _ - ByVal Original_SERVER As String, _ - ByVal Original_DATENBANK As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_PASSWORD As String, _ - ByVal Original_BEMERKUNG As String, _ - ByVal Original_AKTIV As Boolean, _ - ByVal Original_ERSTELLTWER As String, _ - ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _ - ByVal Original_GEANDERTWER As String, _ - ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_SQL_PROVIDER, Original_SERVER, Original_DATENBANK, Original_USERNAME, Original_PASSWORD, Original_BEMERKUNG, Original_AKTIV, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) - End Function End Class ''' @@ -12513,7 +12590,7 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBCW_PROF_REL_CONTROLTableAdapter + Partial Public Class VWCW_USER_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -12630,136 +12707,26 @@ Namespace MyDatasetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCW_PROF_REL_CONTROL" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("WINDOW_ID", "WINDOW_ID") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("TOPLEFT_TOP", "TOPLEFT_TOP") - tableMapping.ColumnMappings.Add("TOPLEFT_LEFT", "TOPLEFT_LEFT") - tableMapping.ColumnMappings.Add("TOPLEFT_RIGHT", "TOPLEFT_RIGHT") - tableMapping.ColumnMappings.Add("TOPLEFT_BOTTOM", "TOPLEFT_BOTTOM") - tableMapping.ColumnMappings.Add("TOPRIGHT_TOP", "TOPRIGHT_TOP") - tableMapping.ColumnMappings.Add("TOPRIGHT_LEFT", "TOPRIGHT_LEFT") - tableMapping.ColumnMappings.Add("TOPRIGHT_RIGHT", "TOPRIGHT_RIGHT") - tableMapping.ColumnMappings.Add("TOPRIGHT_BOTTOM", "TOPRIGHT_BOTTOM") - tableMapping.ColumnMappings.Add("BOTTOMLEFT_TOP", "BOTTOMLEFT_TOP") - tableMapping.ColumnMappings.Add("BOTTOMLEFT_LEFT", "BOTTOMLEFT_LEFT") - tableMapping.ColumnMappings.Add("BOTTOMLEFT_RIGHT", "BOTTOMLEFT_RIGHT") - tableMapping.ColumnMappings.Add("BOTTOMLEFT_BOTTOM", "BOTTOMLEFT_BOTTOM") - tableMapping.ColumnMappings.Add("BOTTOMRIGHT_TOP", "BOTTOMRIGHT_TOP") - tableMapping.ColumnMappings.Add("BOTTOMRIGHT_LEFT", "BOTTOMRIGHT_LEFT") - tableMapping.ColumnMappings.Add("BOTTOMRIGHT_RIGHT", "BOTTOMRIGHT_RIGHT") - tableMapping.ColumnMappings.Add("BOTTOMRIGHT_BOTTOM", "BOTTOMRIGHT_BOTTOM") - tableMapping.ColumnMappings.Add("CONTROL_NAME", "CONTROL_NAME") + tableMapping.DataSetTable = "VWCW_USER_PROFILE" + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") + tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") + tableMapping.ColumnMappings.Add("PROFIL_NAME", "PROFIL_NAME") + tableMapping.ColumnMappings.Add("USER_SURNAME", "USER_SURNAME") + tableMapping.ColumnMappings.Add("USER_PRENAME", "USER_PRENAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") 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 TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (WINDOW_ID, DESCRIPTI"& _ - "ON, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOP"& _ - "LEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LE"& _ - "FT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTT"& _ - "OMRIGHT_RIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMRIGHT_BOTTOM, CONTROL_NAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ - "UES (@WINDOW_ID,@DESCRIPTION,@SEQUENCE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WH"& _ - "O,@CHANGED_WHEN,@TOPLEFT_TOP,@TOPLEFT_LEFT,@TOPLEFT_RIGHT,@TOPLEFT_BOTTOM,@TOPRI"& _ - "GHT_TOP,@TOPRIGHT_LEFT,@TOPRIGHT_RIGHT,@TOPRIGHT_BOTTOM,@BOTTOMLEFT_TOP,@BOTTOML"& _ - "EFT_LEFT,@BOTTOMLEFT_RIGHT,@BOTTOMLEFT_BOTTOM,@BOTTOMRIGHT_TOP,@BOTTOMRIGHT_LEFT"& _ - ",@BOTTOMRIGHT_RIGHT,@BOTTOMRIGHT_BOTTOM,@CONTROL_NAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID"& _ - ", DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLE"& _ - "FT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT"& _ - ", TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_R"& _ - "IGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, B"& _ - "OTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_I"& _ - "DENTITY()) ORDER BY SEQUENCE" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.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.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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_NAME", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_NAME", 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 TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WINDOW_ID = @WINDOW_ID, DE"& _ - "SCRIPTION = @DESCRIPTION, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WH"& _ - "EN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ - "_WHEN = @CHANGED_WHEN, TOPLEFT_TOP = @TOPLEFT_TOP, TOPLEFT_LEFT = @TOPLEFT_LEFT,"& _ - " TOPLEFT_RIGHT = @TOPLEFT_RIGHT, TOPLEFT_BOTTOM = @TOPLEFT_BOTTOM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TOPRIGHT_TOP = @TOPRIGHT_TOP, TOPRIGHT_LEFT = @TOPRIGHT_LEFT, TOPR"& _ - "IGHT_RIGHT = @TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM = @TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP"& _ - " = @BOTTOMLEFT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMLEFT_LEFT = @BOTTOMLEFT_LEF"& _ - "T, BOTTOMLEFT_RIGHT = @BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM = @BOTTOMLEFT_BOTTOM,"& _ - " BOTTOMRIGHT_TOP = @BOTTOMRIGHT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMRIGHT_LEFT"& _ - " = @BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT = @BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM"& _ - " = @BOTTOMRIGHT_BOTTOM, CONTROL_NAME = @CONTROL_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Orig"& _ - "inal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WH"& _ - "EN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT"& _ - "_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEF"& _ - "T_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BO"& _ - "TTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PR"& _ - "OF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_NAME", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_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.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.easyFLOW.My.MySettings.Default.DD_ECMConnectionString End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable, ByVal WINDOW_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWCW_USER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -12797,249 +12759,194 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal WINDOW_ID As Integer) As MyDataset.TBCW_PROF_REL_CONTROLDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWCW_USER_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) - Dim dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable = New MyDataset.TBCW_PROF_REL_CONTROLDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.VWCW_USER_PROFILEDataTable = New MyDataset.VWCW_USER_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWCW_GROUP_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 + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWCW_GROUP_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.easyFLOW.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, REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID, PROC_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @PROFILE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).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, "", "", "")) + End Sub _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_CONTROL") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal WINDOW_ID As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal SEQUENCE As Byte, _ - 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 TOPLEFT_TOP As Integer, _ - ByVal TOPLEFT_LEFT As Integer, _ - ByVal TOPLEFT_RIGHT As Integer, _ - ByVal TOPLEFT_BOTTOM As Integer, _ - ByVal TOPRIGHT_TOP As Integer, _ - ByVal TOPRIGHT_LEFT As Integer, _ - ByVal TOPRIGHT_RIGHT As Integer, _ - ByVal TOPRIGHT_BOTTOM As Integer, _ - ByVal BOTTOMLEFT_TOP As Integer, _ - ByVal BOTTOMLEFT_LEFT As Integer, _ - ByVal BOTTOMLEFT_RIGHT As Integer, _ - ByVal BOTTOMLEFT_BOTTOM As Integer, _ - ByVal BOTTOMRIGHT_TOP As Integer, _ - ByVal BOTTOMRIGHT_LEFT As Integer, _ - ByVal BOTTOMRIGHT_RIGHT As Integer, _ - ByVal BOTTOMRIGHT_BOTTOM As Integer, _ - ByVal CONTROL_NAME As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) - If (DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("DESCRIPTION") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Byte) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(TOPLEFT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(8).Value = CType(TOPLEFT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(9).Value = CType(TOPLEFT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(10).Value = CType(TOPLEFT_BOTTOM,Integer) - Me.Adapter.InsertCommand.Parameters(11).Value = CType(TOPRIGHT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(12).Value = CType(TOPRIGHT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(13).Value = CType(TOPRIGHT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(14).Value = CType(TOPRIGHT_BOTTOM,Integer) - Me.Adapter.InsertCommand.Parameters(15).Value = CType(BOTTOMLEFT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(16).Value = CType(BOTTOMLEFT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(17).Value = CType(BOTTOMLEFT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(18).Value = CType(BOTTOMLEFT_BOTTOM,Integer) - Me.Adapter.InsertCommand.Parameters(19).Value = CType(BOTTOMRIGHT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(20).Value = CType(BOTTOMRIGHT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(21).Value = CType(BOTTOMRIGHT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(22).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) - If (CONTROL_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CONTROL_NAME") - Else - Me.Adapter.InsertCommand.Parameters(23).Value = CType(CONTROL_NAME,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 WINDOW_ID As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal SEQUENCE As Byte, _ - 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 TOPLEFT_TOP As Integer, _ - ByVal TOPLEFT_LEFT As Integer, _ - ByVal TOPLEFT_RIGHT As Integer, _ - ByVal TOPLEFT_BOTTOM As Integer, _ - ByVal TOPRIGHT_TOP As Integer, _ - ByVal TOPRIGHT_LEFT As Integer, _ - ByVal TOPRIGHT_RIGHT As Integer, _ - ByVal TOPRIGHT_BOTTOM As Integer, _ - ByVal BOTTOMLEFT_TOP As Integer, _ - ByVal BOTTOMLEFT_LEFT As Integer, _ - ByVal BOTTOMLEFT_RIGHT As Integer, _ - ByVal BOTTOMLEFT_BOTTOM As Integer, _ - ByVal BOTTOMRIGHT_TOP As Integer, _ - ByVal BOTTOMRIGHT_LEFT As Integer, _ - ByVal BOTTOMRIGHT_RIGHT As Integer, _ - ByVal BOTTOMRIGHT_BOTTOM As Integer, _ - ByVal CONTROL_NAME As String, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) - If (DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("DESCRIPTION") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Byte) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - 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) - 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) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TOPLEFT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TOPLEFT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TOPLEFT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TOPLEFT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TOPRIGHT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TOPRIGHT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TOPRIGHT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TOPRIGHT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(BOTTOMLEFT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BOTTOMLEFT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BOTTOMLEFT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BOTTOMLEFT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(BOTTOMRIGHT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BOTTOMRIGHT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BOTTOMRIGHT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) - If (CONTROL_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CONTROL_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CONTROL_NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(25).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 + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWCW_GROUP_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable = New MyDataset.VWCW_GROUP_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -13056,23 +12963,23 @@ Namespace MyDatasetTableAdapters Private _updateOrder As UpdateOrderOption - Private _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter - - Private _tBCW_USER_PROFILETableAdapter As TBCW_USER_PROFILETableAdapter - - Private _tBCW_PROFILE_PROCESSTableAdapter As TBCW_PROFILE_PROCESSTableAdapter + Private _tBCW_GROUP_PROFILETableAdapter As TBCW_GROUP_PROFILETableAdapter Private _tBCW_PROF_DATA_SEARCHTableAdapter As TBCW_PROF_DATA_SEARCHTableAdapter Private _tBCW_PROF_DOC_SEARCHTableAdapter As TBCW_PROF_DOC_SEARCHTableAdapter - Private _tBCW_GROUP_PROFILETableAdapter As TBCW_GROUP_PROFILETableAdapter + Private _tBCW_PROF_REL_CONTROLTableAdapter As TBCW_PROF_REL_CONTROLTableAdapter Private _tBCW_PROF_REL_WINDOWTableAdapter As TBCW_PROF_REL_WINDOWTableAdapter - Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter + Private _tBCW_PROFILE_PROCESSTableAdapter As TBCW_PROFILE_PROCESSTableAdapter - Private _tBCW_PROF_REL_CONTROLTableAdapter As TBCW_PROF_REL_CONTROLTableAdapter + Private _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter + + Private _tBCW_USER_PROFILETableAdapter As TBCW_USER_PROFILETableAdapter + + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter Private _backupDataSetBeforeUpdate As Boolean @@ -13094,40 +13001,12 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ "a", "System.Drawing.Design.UITypeEditor")> _ - Public Property TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter + Public Property TBCW_GROUP_PROFILETableAdapter() As TBCW_GROUP_PROFILETableAdapter Get - Return Me._tBCW_PROFILESTableAdapter + Return Me._tBCW_GROUP_PROFILETableAdapter End Get Set - Me._tBCW_PROFILESTableAdapter = value - End Set - End Property - - _ - Public Property TBCW_USER_PROFILETableAdapter() As TBCW_USER_PROFILETableAdapter - Get - Return Me._tBCW_USER_PROFILETableAdapter - End Get - Set - Me._tBCW_USER_PROFILETableAdapter = value - End Set - End Property - - _ - Public Property TBCW_PROFILE_PROCESSTableAdapter() As TBCW_PROFILE_PROCESSTableAdapter - Get - Return Me._tBCW_PROFILE_PROCESSTableAdapter - End Get - Set - Me._tBCW_PROFILE_PROCESSTableAdapter = value + Me._tBCW_GROUP_PROFILETableAdapter = value End Set End Property @@ -13164,12 +13043,12 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ "a", "System.Drawing.Design.UITypeEditor")> _ - Public Property TBCW_GROUP_PROFILETableAdapter() As TBCW_GROUP_PROFILETableAdapter + Public Property TBCW_PROF_REL_CONTROLTableAdapter() As TBCW_PROF_REL_CONTROLTableAdapter Get - Return Me._tBCW_GROUP_PROFILETableAdapter + Return Me._tBCW_PROF_REL_CONTROLTableAdapter End Get Set - Me._tBCW_GROUP_PROFILETableAdapter = value + Me._tBCW_PROF_REL_CONTROLTableAdapter = value End Set End Property @@ -13192,12 +13071,12 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ "a", "System.Drawing.Design.UITypeEditor")> _ - Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter + Public Property TBCW_PROFILE_PROCESSTableAdapter() As TBCW_PROFILE_PROCESSTableAdapter Get - Return Me._tBDD_CONNECTIONTableAdapter + Return Me._tBCW_PROFILE_PROCESSTableAdapter End Get Set - Me._tBDD_CONNECTIONTableAdapter = value + Me._tBCW_PROFILE_PROCESSTableAdapter = value End Set End Property @@ -13206,12 +13085,40 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ "a", "System.Drawing.Design.UITypeEditor")> _ - Public Property TBCW_PROF_REL_CONTROLTableAdapter() As TBCW_PROF_REL_CONTROLTableAdapter + Public Property TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter Get - Return Me._tBCW_PROF_REL_CONTROLTableAdapter + Return Me._tBCW_PROFILESTableAdapter End Get Set - Me._tBCW_PROF_REL_CONTROLTableAdapter = value + Me._tBCW_PROFILESTableAdapter = value + End Set + End Property + + _ + Public Property TBCW_USER_PROFILETableAdapter() As TBCW_USER_PROFILETableAdapter + Get + Return Me._tBCW_USER_PROFILETableAdapter + End Get + Set + Me._tBCW_USER_PROFILETableAdapter = value + End Set + End Property + + _ + Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter + Get + Return Me._tBDD_CONNECTIONTableAdapter + End Get + Set + Me._tBDD_CONNECTIONTableAdapter = value End Set End Property @@ -13234,17 +13141,9 @@ Namespace MyDatasetTableAdapters If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCW_PROFILESTableAdapter.Connection) Is Nothing)) Then - Return Me._tBCW_PROFILESTableAdapter.Connection - End If - If ((Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCW_USER_PROFILETableAdapter.Connection) Is Nothing)) Then - Return Me._tBCW_USER_PROFILETableAdapter.Connection - End If - If ((Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) Is Nothing)) Then - Return Me._tBCW_PROFILE_PROCESSTableAdapter.Connection + If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_GROUP_PROFILETableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_GROUP_PROFILETableAdapter.Connection End If If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) Is Nothing)) Then @@ -13254,22 +13153,30 @@ Namespace MyDatasetTableAdapters AndAlso (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection End If - If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCW_GROUP_PROFILETableAdapter.Connection) Is Nothing)) Then - Return Me._tBCW_GROUP_PROFILETableAdapter.Connection + If ((Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection End If If ((Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection End If + If ((Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROFILE_PROCESSTableAdapter.Connection + End If + If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROFILESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROFILESTableAdapter.Connection + End If + If ((Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_USER_PROFILETableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_USER_PROFILETableAdapter.Connection + End If If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CONNECTIONTableAdapter.Connection End If - If ((Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) Is Nothing)) Then - Return Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection - End If Return Nothing End Get Set @@ -13283,13 +13190,7 @@ Namespace MyDatasetTableAdapters Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 - If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then - count = (count + 1) - End If - If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then - count = (count + 1) - End If - If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then @@ -13298,16 +13199,22 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then count = (count + 1) End If Return count @@ -13330,15 +13237,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCW_PROFILESTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -13348,12 +13246,21 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(updatedRows)) + result = (result + Me._tBCW_PROFILESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -13375,12 +13282,21 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(updatedRows)) + result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -13393,15 +13309,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If Return result End Function @@ -13420,14 +13327,6 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCW_PROFILESTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -13436,11 +13335,19 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(addedRows)) + result = (result + Me._tBCW_PROFILESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -13460,11 +13367,19 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(addedRows)) + result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -13476,14 +13391,6 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If Return result End Function @@ -13494,14 +13401,6 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ 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._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -13510,11 +13409,19 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(deletedRows)) + result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -13534,19 +13441,11 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCW_PROF_REL_WINDOWTableAdapter.Update(deletedRows)) + result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -13558,6 +13457,14 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_REL_WINDOWTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -13607,18 +13514,8 @@ Namespace MyDatasetTableAdapters If (dataSet.HasChanges = false) Then Return 0 End If - If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILESTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If - If ((Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_USER_PROFILETableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If - If ((Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) = false)) Then + If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_GROUP_PROFILETableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If @@ -13632,8 +13529,8 @@ Namespace MyDatasetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_GROUP_PROFILETableAdapter.Connection) = false)) Then + If ((Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If @@ -13642,13 +13539,23 @@ Namespace MyDatasetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then + If ((Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) = false)) Then + If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILESTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_USER_PROFILETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If @@ -13686,31 +13593,13 @@ Namespace MyDatasetTableAdapters Try '---- Prepare for update ----------- ' - If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCW_PROFILESTableAdapter, Me._tBCW_PROFILESTableAdapter.Connection) - Me._tBCW_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILESTableAdapter.Adapter) - End If - End If - If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCW_USER_PROFILETableAdapter, Me._tBCW_USER_PROFILETableAdapter.Connection) - Me._tBCW_USER_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_USER_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCW_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCW_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_USER_PROFILETableAdapter.Adapter) - End If - End If - If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCW_PROFILE_PROCESSTableAdapter, Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) - Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter) + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_GROUP_PROFILETableAdapter, Me._tBCW_GROUP_PROFILETableAdapter.Connection) + Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_GROUP_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_GROUP_PROFILETableAdapter.Adapter) End If End If If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then @@ -13731,13 +13620,13 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter) End If End If - If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCW_GROUP_PROFILETableAdapter, Me._tBCW_GROUP_PROFILETableAdapter.Connection) - Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_GROUP_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_GROUP_PROFILETableAdapter.Adapter) + If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_REL_CONTROLTableAdapter, Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) + Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_REL_CONTROLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter) End If End If If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then @@ -13749,6 +13638,33 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter) End If End If + If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROFILE_PROCESSTableAdapter, Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) + Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROFILESTableAdapter, Me._tBCW_PROFILESTableAdapter.Connection) + Me._tBCW_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILESTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_USER_PROFILETableAdapter, Me._tBCW_USER_PROFILETableAdapter.Connection) + Me._tBCW_USER_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_USER_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_USER_PROFILETableAdapter.Adapter) + End If + End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) @@ -13758,15 +13674,6 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) End If End If - If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCW_PROF_REL_CONTROLTableAdapter, Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) - Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_PROF_REL_CONTROLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter) - End If - End If ' '---- Perform updates ----------- ' @@ -13827,17 +13734,9 @@ Namespace MyDatasetTableAdapters If workConnOpened Then workConnection.Close End If - If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then - Me._tBCW_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_PROFILESTableAdapter.Transaction = Nothing - End If - If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then - Me._tBCW_USER_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_USER_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_USER_PROFILETableAdapter.Transaction = Nothing - End If - If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then - Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILE_PROCESSTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = Nothing + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_GROUP_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_GROUP_PROFILETableAdapter.Transaction = Nothing End If If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DATA_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) @@ -13847,22 +13746,30 @@ Namespace MyDatasetTableAdapters Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DOC_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = Nothing End If - If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then - Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_GROUP_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_GROUP_PROFILETableAdapter.Transaction = Nothing + If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then + Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_CONTROLTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_REL_CONTROLTableAdapter.Transaction = Nothing End If If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_WINDOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROF_REL_WINDOWTableAdapter.Transaction = Nothing End If + If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then + Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILE_PROCESSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Me._tBCW_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILESTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then + Me._tBCW_USER_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_USER_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_USER_PROFILETableAdapter.Transaction = Nothing + End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing End If - If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then - Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_CONTROLTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCW_PROF_REL_CONTROLTableAdapter.Transaction = Nothing - End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD_Clipboard_Searcher/MyDataset.vb b/app/DD_Clipboard_Searcher/MyDataset.vb index 10315eb..c18348c 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.vb @@ -1,9 +1,8 @@ - +Partial Class MyDataset + Partial Public Class TBWH_PROFILE_TYPEDataTable + Private Sub TBWH_PROFILE_TYPEDataTable_TBWH_PROFILE_TYPERowChanging(sender As Object, e As TBWH_PROFILE_TYPERowChangeEvent) Handles Me.TBWH_PROFILE_TYPERowChanging -Partial Public Class MyDataset -End Class + End Sub -Namespace MyDatasetTableAdapters - Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter End Class -End Namespace +End Class diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsc b/app/DD_Clipboard_Searcher/MyDataset.xsc index 882a551..05b0199 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsc +++ b/app/DD_Clipboard_Searcher/MyDataset.xsc @@ -5,39 +5,5 @@ the code is regenerated. --> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index 53ac09a..a0319d2 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -4,463 +4,52 @@ - + - - - - - - DELETE FROM [TBCW_PROFILES] WHERE [GUID] = @Original_GUID) - - - - - - - - INSERT INTO TBCW_PROFILES - (NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE) -VALUES (@NAME,@COMMENT,@REGEX_EXPRESSION,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@ACTIVE,@PROFILE_TYPE); -SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE -FROM TBCW_PROFILES - - - - - - UPDATE TBCW_PROFILES -SET NAME = @NAME, COMMENT = @COMMENT, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTIVE, PROFILE_TYPE = @PROFILE_TYPE -WHERE (GUID = @Original_GUID); -SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBCW_USER_PROFILE -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBCW_USER_PROFILE - (PROFILE_ID, USER_ID, ADDED_WHO) -VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); -SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - SELECT TBCW_USER_PROFILE.* -FROM TBCW_USER_PROFILE - - - - - - UPDATE TBCW_USER_PROFILE -SET PROFILE_ID = @PROFILE_ID, USER_ID = @USER_ID -WHERE (GUID = @Original_GUID); -SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME -FROM TBCW_USER_PROFILE AS T INNER JOIN - TBDD_USER AS T1 ON T.USER_ID = T1.GUID -WHERE (T.PROFILE_ID = @PROFILE_ID) -ORDER BY T1.USERNAME - - - - - - - - - - - - - - - - - - - DELETE FROM TBCW_USER_RPOFILE WHERE GUID = @GUID - - - - - - - - DELETE FROM TBCW_USER_PROFILE -WHERE (GUID = @GUID) - - - - - - - - - - - - - - DELETE FROM TBCW_PROFILE_PROCESS -WHERE (GUID = @GUID) - - - - - - - - INSERT INTO TBCW_PROFILE_PROCESS - (PROFILE_ID, PROC_NAME, ADDED_WHO) -VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO) - - - - - - - - - - SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN -FROM TBCW_PROFILE_PROCESS -WHERE (PROFILE_ID = @PID) - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBCW_PROF_DATA_SEARCH -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); -SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND -FROM TBCW_PROF_DATA_SEARCH -WHERE (PROFILE_ID = @PROFILE_ID) - - - - - - - - UPDATE [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) 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))); -SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBCW_PROF_DOC_SEARCH -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); -SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - SELECT * -FROM TBCW_PROF_DOC_SEARCH -WHERE (PROFILE_ID = @PROFILE_ID) - - - - - - - - UPDATE [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) 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))); -SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - - DELETE FROM [TBCW_GROUP_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN))) + + DELETE FROM TBCW_GROUP_PROFILE +WHERE (GUID = @Original_GUID) - - - - - - + - - INSERT INTO [TBCW_GROUP_PROFILE] ([PROFILE_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN]) VALUES (@PROFILE_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN); + + INSERT INTO TBCW_GROUP_PROFILE + (PROFILE_ID, GROUP_ID, ADDED_WHO) +VALUES (@PROFILE_ID,@GROUP_ID,@ADDED_WHO); SELECT GUID, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - + + + - - SELECT TBCW_GROUP_PROFILE.* -FROM TBCW_GROUP_PROFILE + + SELECT GUID, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM dbo.TBCW_GROUP_PROFILE - - UPDATE [TBCW_GROUP_PROFILE] SET [PROFILE_ID] = @PROFILE_ID, [GROUP_ID] = @GROUP_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN))); + + UPDATE TBCW_GROUP_PROFILE +SET PROFILE_ID = @PROFILE_ID, GROUP_ID = @GROUP_ID, ADDED_WHO = @ADDED_WHO +WHERE (GUID = @Original_GUID); SELECT GUID, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - + + + + + @@ -475,97 +64,254 @@ SELECT GUID, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE - + - - - - SELECT T.GUID, T1.NAME -FROM TBCW_GROUP_PROFILE AS T INNER JOIN - TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID -WHERE (T.PROFILE_ID = @PROFILE_ID) -ORDER BY T1.NAME - - - - - - - - - - - - - + - - DELETE FROM TBCW_GROUP_PROFILE -WHERE (GUID = @GUID) - - - - - - - - - - - - - - DELETE FROM TBCW_PROF_REL_WINDOW + + DELETE FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @Original_GUID) - + - INSERT INTO [TBCW_PROF_REL_WINDOW] ([DESCRIPTION], [REGEX], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [PROCESS_ID]) VALUES (@DESCRIPTION, @REGEX, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @PROCESS_ID); -SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, PROCESS_ID FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCOPE_IDENTITY()) + INSERT INTO TBCW_PROF_DATA_SEARCH + (PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO) +VALUES (@PROFILE_ID,@CONN_ID,@SQL_COMMAND,@COUNT_COMMAND,@TAB_INDEX,@ACTIVE,@TAB_TITLE,@ADDED_WHO); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - + + + + + + + + - - SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, PROCESS_ID -FROM TBCW_PROF_REL_WINDOW -WHERE (PROCESS_ID = @PROCESS_ID) + + SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBCW_PROF_DATA_SEARCH +WHERE (PROFILE_ID = @PROFILE_ID) - + - - UPDATE TBCW_PROF_REL_WINDOW -SET DESCRIPTION = @DESCRIPTION, REGEX = @REGEX, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, - CHANGED_WHEN = @CHANGED_WHEN, PROCESS_ID = @PROCESS_ID + + UPDATE TBCW_PROF_DATA_SEARCH +SET PROFILE_ID = @PROFILE_ID, CONN_ID = @CONN_ID, SQL_COMMAND = @SQL_COMMAND, COUNT_COMMAND = @COUNT_COMMAND, TAB_INDEX = @TAB_INDEX, ACTIVE = @ACTIVE, TAB_TITLE = @TAB_TITLE, + CHANGED_WHO = @CHANGED_WHO WHERE (GUID = @Original_GUID); -SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, PROCESS_ID FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID) +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID) - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBCW_PROF_DOC_SEARCH +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBCW_PROF_DOC_SEARCH + (PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO) +VALUES (@PROFILE_ID,@CONN_ID,@SQL_COMMAND,@COUNT_COMMAND,@TAB_INDEX,@ACTIVE,@TAB_TITLE,@ADDED_WHO); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBCW_PROF_DOC_SEARCH +WHERE (PROFILE_ID = @PROFILE_ID) + + + + + + + + UPDATE TBCW_PROF_DOC_SEARCH +SET PROFILE_ID = @PROFILE_ID, CONN_ID = @CONN_ID, SQL_COMMAND = @SQL_COMMAND, COUNT_COMMAND = @COUNT_COMMAND, TAB_INDEX = @TAB_INDEX, ACTIVE = @ACTIVE, TAB_TITLE = @TAB_TITLE, + CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBCW_PROF_REL_CONTROL +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBCW_PROF_REL_CONTROL + (DESCRIPTION, WINDOW_ID, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, + BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO) +VALUES (@DESCRIPTION,@WINDOW_ID,@CONTROL_NAME,@TOPLEFT_TOP,@TOPLEFT_LEFT,@TOPLEFT_RIGHT,@TOPLEFT_BOTTOM,@TOPRIGHT_TOP,@TOPRIGHT_LEFT,@TOPRIGHT_RIGHT,@TOPRIGHT_BOTTOM,@BOTTOMLEFT_TOP,@BOTTOMLEFT_LEFT,@BOTTOMLEFT_RIGHT,@BOTTOMLEFT_BOTTOM,@BOTTOMRIGHT_TOP,@BOTTOMRIGHT_LEFT,@BOTTOMRIGHT_RIGHT,@BOTTOMRIGHT_BOTTOM,@SEQUENCE,@ADDED_WHO); +SELECT GUID, DESCRIPTION, WINDOW_ID, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, DESCRIPTION, WINDOW_ID, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, + BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, + CHANGED_WHO, CHANGED_WHEN +FROM TBCW_PROF_REL_CONTROL +WHERE (WINDOW_ID = @WIND_ID) + + + + + + + + UPDATE TBCW_PROF_REL_CONTROL +SET DESCRIPTION = @DESCRIPTION, WINDOW_ID = @WINDOW_ID, CONTROL_NAME = @CONTROL_NAME, TOPLEFT_TOP = @TOPLEFT_TOP, TOPLEFT_LEFT = @TOPLEFT_LEFT, TOPLEFT_RIGHT = @TOPLEFT_RIGHT, + TOPLEFT_BOTTOM = @TOPLEFT_BOTTOM, TOPRIGHT_TOP = @TOPRIGHT_TOP, TOPRIGHT_LEFT = @TOPRIGHT_LEFT, TOPRIGHT_RIGHT = @TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM = @TOPRIGHT_BOTTOM, + BOTTOMLEFT_TOP = @BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT = @BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT = @BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM = @BOTTOMLEFT_BOTTOM, + BOTTOMRIGHT_TOP = @BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT = @BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT = @BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM = @BOTTOMRIGHT_BOTTOM, + SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, DESCRIPTION, WINDOW_ID, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + @@ -574,96 +320,358 @@ SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBCW_PROF_REL_WINDOW] WHERE (([GUID] = @Original_GUID) AND ([PROCESS_ID] = @Original_PROCESS_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) 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) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + INSERT INTO TBCW_PROF_REL_WINDOW + (PROCESS_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO) +VALUES (@PROCESS_ID,@DESCRIPTION,@REGEX,@SEQUENCE,@ADDED_WHO); +SELECT GUID, PROCESS_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT GUID, PROCESS_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBCW_PROF_REL_WINDOW +WHERE (PROCESS_ID = @PROCESS_ID) + + + + + + + + UPDATE TBCW_PROF_REL_WINDOW +SET PROCESS_ID = @PROCESS_ID, DESCRIPTION = @DESCRIPTION, REGEX = @REGEX, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, PROCESS_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + - - + - + - - DELETE FROM TBDD_CONNECTION + + DELETE FROM TBCW_PROFILE_PROCESS WHERE (GUID = @Original_GUID) - + - INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBANK], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN], [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN, @GEANDERTWER, @GEAENDERTWANN); -SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + INSERT INTO TBCW_PROFILE_PROCESS + (PROFILE_ID, PROC_NAME, ADDED_WHO) +VALUES (@PROFILE_ID,@PROC_NAME,@ADDED_WHO); +SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN FROM TBCW_PROFILE_PROCESS WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - + + + - - SELECT TBDD_CONNECTION.* -FROM TBDD_CONNECTION - + + SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN +FROM TBCW_PROFILE_PROCESS +WHERE (PROFILE_ID = @PROFILE_ID) + + + - UPDATE [TBDD_CONNECTION] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATENBANK] = @DATENBANK, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [BEMERKUNG] = @BEMERKUNG, [AKTIV] = @AKTIV, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN))); -SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID) + UPDATE TBCW_PROFILE_PROCESS +SET PROFILE_ID = @PROFILE_ID, PROC_NAME = @PROC_NAME +WHERE (GUID = @Original_GUID); +SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN FROM TBCW_PROFILE_PROCESS WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBCW_PROFILES +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBCW_PROFILES + (NAME, PROFILE_TYPE, REGEX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO) +VALUES (@NAME,@PROFILE_TYPE,@REGEX_EXPRESSION,@ACTIVE,@COMMENT,@ADDED_WHO); +SELECT GUID, NAME, PROFILE_TYPE, REGEX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT GUID, NAME, PROFILE_TYPE, REGEX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM dbo.TBCW_PROFILES + + + + + + UPDATE TBCW_PROFILES +SET NAME = @NAME, PROFILE_TYPE = @PROFILE_TYPE, REGEX_EXPRESSION = @REGEX_EXPRESSION, ACTIVE = @ACTIVE, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, NAME, PROFILE_TYPE, REGEX_EXPRESSION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBCW_USER_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN))) + + + + + + + + + + + + + INSERT INTO TBCW_USER_PROFILE + (PROFILE_ID, USER_ID, ADDED_WHO) +VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); +SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM dbo.TBCW_USER_PROFILE + + + + + + UPDATE TBCW_USER_PROFILE +SET PROFILE_ID = @PROFILE_ID, USER_ID = @USER_ID +WHERE (GUID = @Original_GUID); +SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_CONNECTION +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_CONNECTION + (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, SYS_CONNECTION) +VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@ERSTELLTWANN,@SYS_CONNECTION); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM dbo.TBDD_CONNECTION + + + + + + UPDATE TBDD_CONNECTION +SET BEZEICHNUNG = @BEZEICHNUNG, SQL_PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG, + AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = @GUID) + + + + + + + + + + + + + @@ -683,138 +691,63 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B + - + - - - - DELETE FROM TBCW_PROF_REL_CONTROL -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBCW_PROF_REL_CONTROL - (WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, - TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, - BOTTOMRIGHT_BOTTOM, CONTROL_NAME) -VALUES (@WINDOW_ID,@DESCRIPTION,@SEQUENCE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@TOPLEFT_TOP,@TOPLEFT_LEFT,@TOPLEFT_RIGHT,@TOPLEFT_BOTTOM,@TOPRIGHT_TOP,@TOPRIGHT_LEFT,@TOPRIGHT_RIGHT,@TOPRIGHT_BOTTOM,@BOTTOMLEFT_TOP,@BOTTOMLEFT_LEFT,@BOTTOMLEFT_RIGHT,@BOTTOMLEFT_BOTTOM,@BOTTOMRIGHT_TOP,@BOTTOMRIGHT_LEFT,@BOTTOMRIGHT_RIGHT,@BOTTOMRIGHT_BOTTOM,@CONTROL_NAME); -SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, - TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, - BOTTOMRIGHT_BOTTOM, CONTROL_NAME -FROM TBCW_PROF_REL_CONTROL -WHERE (WINDOW_ID = @WINDOW_ID) -ORDER BY SEQUENCE + SELECT * +FROM VWCW_USER_PROFILE +WHERE (PROFIL_ID = @PROFILE_ID) - + - - - UPDATE TBCW_PROF_REL_CONTROL -SET WINDOW_ID = @WINDOW_ID, DESCRIPTION = @DESCRIPTION, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, - CHANGED_WHEN = @CHANGED_WHEN, TOPLEFT_TOP = @TOPLEFT_TOP, TOPLEFT_LEFT = @TOPLEFT_LEFT, TOPLEFT_RIGHT = @TOPLEFT_RIGHT, TOPLEFT_BOTTOM = @TOPLEFT_BOTTOM, - TOPRIGHT_TOP = @TOPRIGHT_TOP, TOPRIGHT_LEFT = @TOPRIGHT_LEFT, TOPRIGHT_RIGHT = @TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM = @TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP = @BOTTOMLEFT_TOP, - BOTTOMLEFT_LEFT = @BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT = @BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM = @BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP = @BOTTOMRIGHT_TOP, - BOTTOMRIGHT_LEFT = @BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT = @BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM = @BOTTOMRIGHT_BOTTOM, CONTROL_NAME = @CONTROL_NAME -WHERE (GUID = @Original_GUID); -SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID, PROC_NAME +FROM VWCW_GROUP_PROFILE +WHERE (GUID = @PROFILE_ID) - - - - - - - - - - - - - - - - - - - - - - - - - - + - + - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + @@ -823,469 +756,511 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH - + - + - - - - - - - - - - - - - - - - - - - - - - - + + + + - - - - - - - - - - - + - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - + - - - - - - - - - - - - - - - - - - - + + + - + - - + + - - + + + + + + + + + + + - - - - - - - - - - + - + - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + - + - - - - - - - - - - + + - + + - - + + + + + + + + + + + + + + + + + + - - + + - - + - + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + - + - + - - + + - - + + - + + - + - - - + - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - + @@ -1296,33 +1271,37 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH - - - - - - + + - - + + - - + + + + + + + + + + - - - - + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index ba7040d..61ce8d4 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -4,70 +4,70 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + - + - 254 - -23 + 1268 + 473 - 630 - -23 + 1268 + 426 + + + + + + + 691 + 553 + + + 1115 + 553 + + + + + + + 700 + 719 + + + 700 + 416 - 254 - 61 + 789 + 719 - 321 - 61 - - - - - - - 310 - 453 - - - 330 - 453 - - - - - - - 165 - 585 - - - 165 - 507 + 789 + 417 diff --git a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb index b88ec56..93c6558 100644 --- a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb +++ b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb @@ -43,7 +43,7 @@ Namespace My.Resources Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Watcher.frmMain_Strings", GetType(frmMain_Strings).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("easyFLOW.frmMain_Strings", GetType(frmMain_Strings).Assembly) resourceMan = temp End If Return resourceMan diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb index e321f50..b6fd221 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb @@ -26,7 +26,7 @@ Partial Class ctrlApplicationAssignment Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() Me.GridControl_Window = New DevExpress.XtraGrid.GridControl() Me.TBCW_PROF_REL_WINDOWBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() + Me.MyDataset = New easyFLOW.MyDataset() Me.GridView_Window = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn() @@ -47,11 +47,11 @@ Partial Class ctrlApplicationAssignment Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBCW_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter() - Me.TBCW_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter() - Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() - Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() - Me.TBCW_PROF_REL_CONTROLTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter() + Me.TBCW_PROFILE_PROCESSTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter() + Me.TBCW_PROF_REL_WINDOWTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter() + Me.TBCW_PROF_DOC_SEARCHTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() + Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager() + Me.TBCW_PROF_REL_CONTROLTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer3.Panel1.SuspendLayout() Me.SplitContainer3.Panel2.SuspendLayout() @@ -313,7 +313,7 @@ Partial Class ctrlApplicationAssignment Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBCW_PROF_REL_CONTROLTableAdapter ' diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/easyFLOW.vbproj similarity index 98% rename from app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj rename to app/DD_Clipboard_Searcher/easyFLOW.vbproj index 4e5349e..11d9432 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/easyFLOW.vbproj @@ -6,9 +6,9 @@ AnyCPU {09BC9934-1A38-4752-8873-639B42779CDB} WinExe - DD_Clipboard_Watcher.My.MyApplication - DD_Clipboard_Watcher - DD_Clipboard_Watcher + easyFLOW.My.MyApplication + easyFLOW + easyFLOW 512 WindowsForms v4.6.2 @@ -37,7 +37,7 @@ true true bin\Debug\ - DD_Clipboard_Watcher.xml + easyFLOW.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -47,7 +47,7 @@ true true bin\Release\ - DD_Clipboard_Watcher.xml + easyFLOW.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -117,6 +117,9 @@ ..\..\..\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll + + ..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll + ..\..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll @@ -291,6 +294,8 @@ Settings.settings True + + True True @@ -299,8 +304,6 @@ MyDataset.xsd - - frmMain_Strings.fr.resx True diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 0b2ee0c..a466fdb 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -25,17 +25,17 @@ Partial Class frmAdministration Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() + Me.MyDataset = New easyFLOW.MyDataset() Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl() Me.GridViewProfiles = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.TBWH_UserBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWUSER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBCW_PROFILESTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter() - Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() + Me.VWCW_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBCW_PROFILESTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter() + Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - Me.VWUSER_PROFILETableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter() + Me.VWCW_USER_PROFILETableAdapter = New easyFLOW.MyDatasetTableAdapters.VWCW_USER_PROFILETableAdapter() Me.TimerTest = New System.Windows.Forms.Timer(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) @@ -195,7 +195,7 @@ Partial Class frmAdministration Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colTAB_TITLE1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.TabPageProcessAssignment = New DevExpress.XtraTab.XtraTabPage() - Me.CtrlApplicationAssignment1 = New DD_Clipboard_Watcher.ctrlApplicationAssignment() + Me.CtrlApplicationAssignment1 = New easyFLOW.ctrlApplicationAssignment() Me.TabPageProfileAssignment = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.TabPageGroupAssignment = New DevExpress.XtraTab.XtraTabPage() @@ -228,12 +228,12 @@ Partial Class frmAdministration Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label2 = New System.Windows.Forms.Label() - Me.TBCW_PROF_DATA_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter() - Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() - Me.VWCW_GROUP_PROFILETableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.VWCW_GROUP_PROFILETableAdapter() + Me.TBCW_PROF_DATA_SEARCHTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter() + Me.TBCW_PROF_DOC_SEARCHTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() + Me.VWCW_GROUP_PROFILETableAdapter = New easyFLOW.MyDatasetTableAdapters.VWCW_GROUP_PROFILETableAdapter() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.TBDD_CONNECTIONTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TBDD_CONNECTIONTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit() Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() @@ -247,7 +247,7 @@ Partial Class frmAdministration CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWCW_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() @@ -385,6 +385,10 @@ Partial Class frmAdministration CType(Me.GridControlUserNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewUserNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() Me.SplitContainerControl1.SuspendLayout() CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() @@ -412,7 +416,7 @@ Partial Class frmAdministration Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0) Me.GridControlProfiles.MainView = Me.GridViewProfiles Me.GridControlProfiles.Name = "GridControlProfiles" - Me.GridControlProfiles.Size = New System.Drawing.Size(237, 603) + Me.GridControlProfiles.Size = New System.Drawing.Size(237, 994) Me.GridControlProfiles.TabIndex = 18 Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfiles}) ' @@ -457,10 +461,10 @@ Partial Class frmAdministration Me.TBWH_UserBindingSource.DataMember = "TBWH_User" Me.TBWH_UserBindingSource.DataSource = Me.MyDataset ' - 'VWUSER_PROFILEBindingSource + 'VWCW_USER_PROFILEBindingSource ' - Me.VWUSER_PROFILEBindingSource.DataMember = "VWUSER_PROFILE" - Me.VWUSER_PROFILEBindingSource.DataSource = Me.MyDataset + Me.VWCW_USER_PROFILEBindingSource.DataMember = "VWCW_USER_PROFILE" + Me.VWCW_USER_PROFILEBindingSource.DataSource = Me.MyDataset ' 'TBCW_PROFILESTableAdapter ' @@ -478,7 +482,7 @@ Partial Class frmAdministration Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'OFDWindreamsuche ' @@ -486,9 +490,9 @@ Partial Class frmAdministration Me.OFDWindreamsuche.RestoreDirectory = True Me.OFDWindreamsuche.Title = "windream-Suche wählen" ' - 'VWUSER_PROFILETableAdapter + 'VWCW_USER_PROFILETableAdapter ' - Me.VWUSER_PROFILETableAdapter.ClearBeforeFill = True + Me.VWCW_USER_PROFILETableAdapter.ClearBeforeFill = True ' 'TimerTest ' @@ -510,7 +514,7 @@ Partial Class frmAdministration Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl3.Name = "XtraTabControl3" Me.XtraTabControl3.SelectedTabPage = Me.TabPageProfileManagement - Me.XtraTabControl3.Size = New System.Drawing.Size(1118, 603) + Me.XtraTabControl3.Size = New System.Drawing.Size(1012, 994) Me.XtraTabControl3.TabIndex = 21 Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageProfileManagement, Me.TabPageProfileAssignment}) ' @@ -520,7 +524,7 @@ Partial Class frmAdministration Me.TabPageProfileManagement.ImageOptions.SvgImage = CType(resources.GetObject("TabPageProfileManagement.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageProfileManagement.ImageOptions.SvgImageSize = New System.Drawing.Size(20, 20) Me.TabPageProfileManagement.Name = "TabPageProfileManagement" - Me.TabPageProfileManagement.Size = New System.Drawing.Size(1116, 573) + Me.TabPageProfileManagement.Size = New System.Drawing.Size(1800, 964) Me.TabPageProfileManagement.Text = "Profil-Verwaltung" ' 'XtraTabControl1 @@ -529,7 +533,7 @@ Partial Class frmAdministration Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.TabPageGeneralSettings - Me.XtraTabControl1.Size = New System.Drawing.Size(1116, 573) + Me.XtraTabControl1.Size = New System.Drawing.Size(1200, 643) Me.XtraTabControl1.TabIndex = 0 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageDocuments, Me.TabPageData, Me.TabPageProcessAssignment}) ' @@ -539,7 +543,7 @@ Partial Class frmAdministration Me.TabPageGeneralSettings.ImageOptions.SvgImage = CType(resources.GetObject("TabPageGeneralSettings.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageGeneralSettings.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.TabPageGeneralSettings.Name = "TabPageGeneralSettings" - Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1114, 547) + Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1198, 617) Me.TabPageGeneralSettings.Text = "Allgemein" ' 'LayoutControl1 @@ -556,29 +560,29 @@ Partial Class frmAdministration Me.LayoutControl1.Controls.Add(Me.textEdit5) Me.LayoutControl1.Controls.Add(Me.txtRegexTestString) Me.LayoutControl1.Controls.Add(Me.SimpleButton1) - Me.LayoutControl1.Location = New System.Drawing.Point(3, 3) + Me.LayoutControl1.Location = New System.Drawing.Point(8, 8) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1243, 199, 650, 400) Me.LayoutControl1.Root = Me.LayoutControlGroup1 - Me.LayoutControl1.Size = New System.Drawing.Size(454, 462) + Me.LayoutControl1.Size = New System.Drawing.Size(1022, 1040) Me.LayoutControl1.TabIndex = 22 Me.LayoutControl1.Text = "LayoutControl1" ' 'txtProfileName ' Me.txtProfileName.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True)) - Me.txtProfileName.Location = New System.Drawing.Point(139, 82) + Me.txtProfileName.Location = New System.Drawing.Point(148, 82) Me.txtProfileName.Name = "txtProfileName" - Me.txtProfileName.Size = New System.Drawing.Size(295, 20) + Me.txtProfileName.Size = New System.Drawing.Size(513, 20) Me.txtProfileName.StyleController = Me.LayoutControl1 Me.txtProfileName.TabIndex = 6 ' 'textEdit4 ' Me.textEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) - Me.textEdit4.Location = New System.Drawing.Point(139, 154) + Me.textEdit4.Location = New System.Drawing.Point(148, 198) Me.textEdit4.Name = "textEdit4" - Me.textEdit4.Size = New System.Drawing.Size(265, 20) + Me.textEdit4.Size = New System.Drawing.Size(256, 20) Me.textEdit4.StyleController = Me.LayoutControl1 Me.textEdit4.TabIndex = 7 ' @@ -589,7 +593,7 @@ Partial Class frmAdministration Me.CheckEdit1.MenuManager = Me.RibbonControl2 Me.CheckEdit1.Name = "CheckEdit1" Me.CheckEdit1.Properties.Caption = "Profil Aktiv" - Me.CheckEdit1.Size = New System.Drawing.Size(430, 18) + Me.CheckEdit1.Size = New System.Drawing.Size(657, 18) Me.CheckEdit1.StyleController = Me.LayoutControl1 Me.CheckEdit1.TabIndex = 10 ' @@ -604,7 +608,7 @@ Partial Class frmAdministration Me.RibbonControl2.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl2.ShowToolbarCustomizeItem = False - Me.RibbonControl2.Size = New System.Drawing.Size(1365, 157) + Me.RibbonControl2.Size = New System.Drawing.Size(1259, 158) Me.RibbonControl2.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl2.Toolbar.ShowCustomizeItem = False Me.RibbonControl2.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden @@ -910,15 +914,15 @@ Partial Class frmAdministration 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 760) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 1152) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl2 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1365, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1259, 22) ' 'textEdit2 ' Me.textEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) - Me.textEdit2.Location = New System.Drawing.Point(139, 118) + Me.textEdit2.Location = New System.Drawing.Point(148, 140) Me.textEdit2.Name = "textEdit2" Me.textEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.textEdit2.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("TYPE_NAME", "Profil Typ", 68, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])}) @@ -928,7 +932,7 @@ Partial Class frmAdministration Me.textEdit2.Properties.PopupSizeable = False Me.textEdit2.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard Me.textEdit2.Properties.ValueMember = "TYPE_ID" - Me.textEdit2.Size = New System.Drawing.Size(295, 20) + Me.textEdit2.Size = New System.Drawing.Size(513, 20) Me.textEdit2.StyleController = Me.LayoutControl1 Me.textEdit2.TabIndex = 5 ' @@ -940,77 +944,77 @@ Partial Class frmAdministration 'TextEdit8 ' Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) - Me.TextEdit8.Location = New System.Drawing.Point(20, 356) + Me.TextEdit8.Location = New System.Drawing.Point(20, 463) Me.TextEdit8.Name = "TextEdit8" Me.TextEdit8.Properties.ReadOnly = True - Me.TextEdit8.Size = New System.Drawing.Size(197, 20) + Me.TextEdit8.Size = New System.Drawing.Size(310, 20) Me.TextEdit8.StyleController = Me.LayoutControl1 Me.TextEdit8.TabIndex = 4 ' 'TextEdit7 ' Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) - Me.TextEdit7.Location = New System.Drawing.Point(237, 356) + Me.TextEdit7.Location = New System.Drawing.Point(350, 463) Me.TextEdit7.Name = "TextEdit7" Me.TextEdit7.Properties.ReadOnly = True - Me.TextEdit7.Size = New System.Drawing.Size(197, 20) + Me.TextEdit7.Size = New System.Drawing.Size(311, 20) Me.TextEdit7.StyleController = Me.LayoutControl1 Me.TextEdit7.TabIndex = 5 ' 'CHANGEDWHOTextBox ' Me.CHANGEDWHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) - Me.CHANGEDWHOTextBox.Location = New System.Drawing.Point(20, 412) + Me.CHANGEDWHOTextBox.Location = New System.Drawing.Point(20, 519) Me.CHANGEDWHOTextBox.Name = "CHANGEDWHOTextBox" Me.CHANGEDWHOTextBox.Properties.ReadOnly = True - Me.CHANGEDWHOTextBox.Size = New System.Drawing.Size(197, 20) + Me.CHANGEDWHOTextBox.Size = New System.Drawing.Size(310, 20) Me.CHANGEDWHOTextBox.StyleController = Me.LayoutControl1 Me.CHANGEDWHOTextBox.TabIndex = 6 ' 'TextEdit6 ' Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) - Me.TextEdit6.Location = New System.Drawing.Point(237, 412) + Me.TextEdit6.Location = New System.Drawing.Point(350, 519) Me.TextEdit6.Name = "TextEdit6" Me.TextEdit6.Properties.ReadOnly = True - Me.TextEdit6.Size = New System.Drawing.Size(197, 20) + Me.TextEdit6.Size = New System.Drawing.Size(311, 20) Me.TextEdit6.StyleController = Me.LayoutControl1 Me.TextEdit6.TabIndex = 7 ' 'PROFILE_IDTextBox ' Me.PROFILE_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) - Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(139, 42) + Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(148, 42) Me.PROFILE_IDTextBox.MenuManager = Me.RibbonControl2 Me.PROFILE_IDTextBox.Name = "PROFILE_IDTextBox" Me.PROFILE_IDTextBox.Properties.ReadOnly = True - Me.PROFILE_IDTextBox.Size = New System.Drawing.Size(295, 20) + Me.PROFILE_IDTextBox.Size = New System.Drawing.Size(513, 20) Me.PROFILE_IDTextBox.StyleController = Me.LayoutControl1 Me.PROFILE_IDTextBox.TabIndex = 11 ' 'textEdit5 ' Me.textEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) - Me.textEdit5.Location = New System.Drawing.Point(139, 191) + Me.textEdit5.Location = New System.Drawing.Point(148, 257) Me.textEdit5.Name = "textEdit5" - Me.textEdit5.Size = New System.Drawing.Size(295, 47) + Me.textEdit5.Size = New System.Drawing.Size(513, 88) Me.textEdit5.StyleController = Me.LayoutControl1 Me.textEdit5.TabIndex = 8 ' 'txtRegexTestString ' - Me.txtRegexTestString.Location = New System.Drawing.Point(139, 258) + Me.txtRegexTestString.Location = New System.Drawing.Point(148, 365) Me.txtRegexTestString.MenuManager = Me.RibbonControl2 Me.txtRegexTestString.Name = "txtRegexTestString" - Me.txtRegexTestString.Size = New System.Drawing.Size(295, 20) + Me.txtRegexTestString.Size = New System.Drawing.Size(513, 20) Me.txtRegexTestString.StyleController = Me.LayoutControl1 Me.txtRegexTestString.TabIndex = 12 ' 'SimpleButton1 ' - Me.SimpleButton1.Location = New System.Drawing.Point(20, 298) + Me.SimpleButton1.Location = New System.Drawing.Point(20, 405) Me.SimpleButton1.Name = "SimpleButton1" - Me.SimpleButton1.Size = New System.Drawing.Size(414, 22) + Me.SimpleButton1.Size = New System.Drawing.Size(641, 22) Me.SimpleButton1.StyleController = Me.LayoutControl1 Me.SimpleButton1.TabIndex = 13 Me.SimpleButton1.Text = "Regular Expression prüfen" @@ -1021,18 +1025,18 @@ Partial Class frmAdministration Me.LayoutControlGroup1.GroupBordersVisible = False Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.layoutControlItem2, Me.layoutControlItem4, Me.layoutControlItem5, Me.LayoutControlItem7, Me.layoutControlItem1, Me.layoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.LayoutControlItem20, Me.EmptySpaceItem3, Me.layoutControlItem3, Me.LayoutControlItem35, Me.LayoutControlItem36}) Me.LayoutControlGroup1.Name = "Root" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(454, 462) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(681, 693) Me.LayoutControlGroup1.TextVisible = False ' 'layoutControlItem2 ' Me.layoutControlItem2.Control = Me.textEdit2 Me.layoutControlItem2.CustomizationFormText = "Profil Typ" - Me.layoutControlItem2.Location = New System.Drawing.Point(0, 98) + Me.layoutControlItem2.Location = New System.Drawing.Point(0, 120) Me.layoutControlItem2.MinSize = New System.Drawing.Size(149, 24) Me.layoutControlItem2.Name = "layoutControlItem2" Me.layoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.layoutControlItem2.Size = New System.Drawing.Size(434, 36) + Me.layoutControlItem2.Size = New System.Drawing.Size(661, 58) Me.layoutControlItem2.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom Me.layoutControlItem2.Text = "Profil Typ" Me.layoutControlItem2.TextLocation = DevExpress.Utils.Locations.Left @@ -1042,12 +1046,12 @@ Partial Class frmAdministration ' Me.layoutControlItem4.Control = Me.textEdit4 Me.layoutControlItem4.CustomizationFormText = "Kommentar" - Me.layoutControlItem4.Location = New System.Drawing.Point(0, 134) + Me.layoutControlItem4.Location = New System.Drawing.Point(0, 178) Me.layoutControlItem4.MaxSize = New System.Drawing.Size(404, 0) Me.layoutControlItem4.MinSize = New System.Drawing.Size(149, 24) Me.layoutControlItem4.Name = "layoutControlItem4" Me.layoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.layoutControlItem4.Size = New System.Drawing.Size(434, 37) + Me.layoutControlItem4.Size = New System.Drawing.Size(661, 59) Me.layoutControlItem4.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom Me.layoutControlItem4.Text = "Kommentar" Me.layoutControlItem4.TextLocation = DevExpress.Utils.Locations.Left @@ -1057,11 +1061,11 @@ Partial Class frmAdministration ' Me.layoutControlItem5.Control = Me.textEdit5 Me.layoutControlItem5.CustomizationFormText = "Regular Expression" - Me.layoutControlItem5.Location = New System.Drawing.Point(0, 171) + Me.layoutControlItem5.Location = New System.Drawing.Point(0, 237) Me.layoutControlItem5.MinSize = New System.Drawing.Size(50, 25) Me.layoutControlItem5.Name = "layoutControlItem5" Me.layoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.layoutControlItem5.Size = New System.Drawing.Size(434, 67) + Me.layoutControlItem5.Size = New System.Drawing.Size(661, 108) Me.layoutControlItem5.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom Me.layoutControlItem5.Text = "Regular Expression" Me.layoutControlItem5.TextLocation = DevExpress.Utils.Locations.Left @@ -1072,7 +1076,7 @@ Partial Class frmAdministration Me.LayoutControlItem7.Control = Me.CheckEdit1 Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Size = New System.Drawing.Size(434, 22) + Me.LayoutControlItem7.Size = New System.Drawing.Size(661, 22) Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem7.TextVisible = False ' @@ -1080,10 +1084,10 @@ Partial Class frmAdministration ' Me.layoutControlItem1.Control = Me.TextEdit8 Me.layoutControlItem1.CustomizationFormText = "layoutControlItem1" - Me.layoutControlItem1.Location = New System.Drawing.Point(0, 320) + Me.layoutControlItem1.Location = New System.Drawing.Point(0, 427) Me.layoutControlItem1.Name = "layoutControlItem1" Me.layoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.layoutControlItem1.Size = New System.Drawing.Size(217, 56) + Me.layoutControlItem1.Size = New System.Drawing.Size(330, 56) Me.layoutControlItem1.Text = "Erstellt Wer" Me.layoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top Me.layoutControlItem1.TextSize = New System.Drawing.Size(116, 13) @@ -1092,10 +1096,10 @@ Partial Class frmAdministration ' Me.layoutControlItem6.Control = Me.TextEdit7 Me.layoutControlItem6.CustomizationFormText = "layoutControlItem2" - Me.layoutControlItem6.Location = New System.Drawing.Point(217, 320) + Me.layoutControlItem6.Location = New System.Drawing.Point(330, 427) Me.layoutControlItem6.Name = "layoutControlItem6" Me.layoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.layoutControlItem6.Size = New System.Drawing.Size(217, 56) + Me.layoutControlItem6.Size = New System.Drawing.Size(331, 56) Me.layoutControlItem6.Text = "Erstellt wann" Me.layoutControlItem6.TextLocation = DevExpress.Utils.Locations.Top Me.layoutControlItem6.TextSize = New System.Drawing.Size(116, 13) @@ -1104,10 +1108,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem8.Control = Me.CHANGEDWHOTextBox Me.LayoutControlItem8.CustomizationFormText = "layoutControlItem3" - Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 376) + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 483) Me.LayoutControlItem8.Name = "LayoutControlItem8" Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem8.Size = New System.Drawing.Size(217, 56) + Me.LayoutControlItem8.Size = New System.Drawing.Size(330, 56) Me.LayoutControlItem8.Text = "Geändert wer" Me.LayoutControlItem8.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem8.TextSize = New System.Drawing.Size(116, 13) @@ -1116,10 +1120,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem9.Control = Me.TextEdit6 Me.LayoutControlItem9.CustomizationFormText = "layoutControlItem4" - Me.LayoutControlItem9.Location = New System.Drawing.Point(217, 376) + Me.LayoutControlItem9.Location = New System.Drawing.Point(330, 483) Me.LayoutControlItem9.Name = "LayoutControlItem9" Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem9.Size = New System.Drawing.Size(217, 56) + Me.LayoutControlItem9.Size = New System.Drawing.Size(331, 56) Me.LayoutControlItem9.Text = "Geändert wann" Me.LayoutControlItem9.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem9.TextSize = New System.Drawing.Size(116, 13) @@ -1130,16 +1134,16 @@ Partial Class frmAdministration Me.LayoutControlItem20.Location = New System.Drawing.Point(0, 22) Me.LayoutControlItem20.Name = "LayoutControlItem20" Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem20.Size = New System.Drawing.Size(434, 40) + Me.LayoutControlItem20.Size = New System.Drawing.Size(661, 40) Me.LayoutControlItem20.Text = "ID" Me.LayoutControlItem20.TextSize = New System.Drawing.Size(116, 13) ' 'EmptySpaceItem3 ' Me.EmptySpaceItem3.AllowHotTrack = False - Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 432) + Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 539) Me.EmptySpaceItem3.Name = "EmptySpaceItem3" - Me.EmptySpaceItem3.Size = New System.Drawing.Size(434, 10) + Me.EmptySpaceItem3.Size = New System.Drawing.Size(661, 134) Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0) ' 'layoutControlItem3 @@ -1150,7 +1154,7 @@ Partial Class frmAdministration Me.layoutControlItem3.MinSize = New System.Drawing.Size(149, 24) Me.layoutControlItem3.Name = "layoutControlItem3" Me.layoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.layoutControlItem3.Size = New System.Drawing.Size(434, 36) + Me.layoutControlItem3.Size = New System.Drawing.Size(661, 58) Me.layoutControlItem3.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom Me.layoutControlItem3.Text = "Name" Me.layoutControlItem3.TextLocation = DevExpress.Utils.Locations.Left @@ -1159,20 +1163,20 @@ Partial Class frmAdministration 'LayoutControlItem35 ' Me.LayoutControlItem35.Control = Me.txtRegexTestString - Me.LayoutControlItem35.Location = New System.Drawing.Point(0, 238) + Me.LayoutControlItem35.Location = New System.Drawing.Point(0, 345) Me.LayoutControlItem35.Name = "LayoutControlItem35" Me.LayoutControlItem35.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem35.Size = New System.Drawing.Size(434, 40) + Me.LayoutControlItem35.Size = New System.Drawing.Size(661, 40) Me.LayoutControlItem35.Text = "Regular Expression Test" Me.LayoutControlItem35.TextSize = New System.Drawing.Size(116, 13) ' 'LayoutControlItem36 ' Me.LayoutControlItem36.Control = Me.SimpleButton1 - Me.LayoutControlItem36.Location = New System.Drawing.Point(0, 278) + Me.LayoutControlItem36.Location = New System.Drawing.Point(0, 385) Me.LayoutControlItem36.Name = "LayoutControlItem36" Me.LayoutControlItem36.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem36.Size = New System.Drawing.Size(434, 42) + Me.LayoutControlItem36.Size = New System.Drawing.Size(661, 42) Me.LayoutControlItem36.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem36.TextVisible = False ' @@ -1183,7 +1187,7 @@ Partial Class frmAdministration Me.TabPageDocuments.ImageOptions.SvgImage = CType(resources.GetObject("TabPageDocuments.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageDocuments.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.TabPageDocuments.Name = "TabPageDocuments" - Me.TabPageDocuments.Size = New System.Drawing.Size(1114, 547) + Me.TabPageDocuments.Size = New System.Drawing.Size(1114, 546) Me.TabPageDocuments.Text = "Dokument-Suchen" ' 'LayoutControlDocs @@ -1204,11 +1208,11 @@ Partial Class frmAdministration Me.LayoutControlDocs.Controls.Add(Me.ComboBoxEdit4) Me.LayoutControlDocs.Controls.Add(Me.SimpleButton3) Me.LayoutControlDocs.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControlDocs.Location = New System.Drawing.Point(200, 0) + Me.LayoutControlDocs.Location = New System.Drawing.Point(134, 0) Me.LayoutControlDocs.Name = "LayoutControlDocs" Me.LayoutControlDocs.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-854, 328, 650, 400) Me.LayoutControlDocs.Root = Me.LayoutControlGroup2 - Me.LayoutControlDocs.Size = New System.Drawing.Size(914, 547) + Me.LayoutControlDocs.Size = New System.Drawing.Size(980, 546) Me.LayoutControlDocs.TabIndex = 25 Me.LayoutControlDocs.Text = "LayoutControl2" ' @@ -1218,47 +1222,47 @@ Partial Class frmAdministration Me.CheckEdit3.Location = New System.Drawing.Point(12, 12) Me.CheckEdit3.Name = "CheckEdit3" Me.CheckEdit3.Properties.Caption = "Suche Aktiv" - Me.CheckEdit3.Size = New System.Drawing.Size(286, 18) + Me.CheckEdit3.Size = New System.Drawing.Size(301, 18) Me.CheckEdit3.StyleController = Me.LayoutControlDocs Me.CheckEdit3.TabIndex = 8 ' 'TextEdit17 ' Me.TextEdit17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True)) - Me.TextEdit17.Location = New System.Drawing.Point(20, 218) + Me.TextEdit17.Location = New System.Drawing.Point(20, 227) Me.TextEdit17.Name = "TextEdit17" Me.TextEdit17.Properties.ReadOnly = True - Me.TextEdit17.Size = New System.Drawing.Size(125, 20) + Me.TextEdit17.Size = New System.Drawing.Size(132, 20) Me.TextEdit17.StyleController = Me.LayoutControlDocs Me.TextEdit17.TabIndex = 4 ' 'TextEdit15 ' Me.TextEdit15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True)) - Me.TextEdit15.Location = New System.Drawing.Point(165, 218) + Me.TextEdit15.Location = New System.Drawing.Point(172, 227) Me.TextEdit15.Name = "TextEdit15" Me.TextEdit15.Properties.ReadOnly = True - Me.TextEdit15.Size = New System.Drawing.Size(125, 20) + Me.TextEdit15.Size = New System.Drawing.Size(133, 20) Me.TextEdit15.StyleController = Me.LayoutControlDocs Me.TextEdit15.TabIndex = 5 ' 'TextEdit18 ' Me.TextEdit18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True)) - Me.TextEdit18.Location = New System.Drawing.Point(165, 274) + Me.TextEdit18.Location = New System.Drawing.Point(172, 283) Me.TextEdit18.Name = "TextEdit18" Me.TextEdit18.Properties.ReadOnly = True - Me.TextEdit18.Size = New System.Drawing.Size(125, 20) + Me.TextEdit18.Size = New System.Drawing.Size(133, 20) Me.TextEdit18.StyleController = Me.LayoutControlDocs Me.TextEdit18.TabIndex = 7 ' 'CHANGED_WHOTextBox2 ' Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(20, 274) + Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(20, 283) Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" Me.CHANGED_WHOTextBox2.Properties.ReadOnly = True - Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(125, 20) + Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(132, 20) Me.CHANGED_WHOTextBox2.StyleController = Me.LayoutControlDocs Me.CHANGED_WHOTextBox2.TabIndex = 6 ' @@ -1266,16 +1270,16 @@ Partial Class frmAdministration ' Me.txtDocSearchName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True)) Me.txtDocSearchName.EditValue = "" - Me.txtDocSearchName.Location = New System.Drawing.Point(148, 82) + Me.txtDocSearchName.Location = New System.Drawing.Point(157, 82) Me.txtDocSearchName.Name = "txtDocSearchName" - Me.txtDocSearchName.Size = New System.Drawing.Size(142, 20) + Me.txtDocSearchName.Size = New System.Drawing.Size(148, 20) Me.txtDocSearchName.StyleController = Me.LayoutControlDocs Me.txtDocSearchName.TabIndex = 9 ' 'LookUpEdit1 ' Me.LookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True)) - Me.LookUpEdit1.Location = New System.Drawing.Point(148, 162) + Me.LookUpEdit1.Location = New System.Drawing.Point(157, 171) Me.LookUpEdit1.Name = "LookUpEdit1" Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.LookUpEdit1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Verbindung", 80, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])}) @@ -1285,7 +1289,7 @@ Partial Class frmAdministration Me.LookUpEdit1.Properties.PopupSizeable = False Me.LookUpEdit1.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard Me.LookUpEdit1.Properties.ValueMember = "GUID" - Me.LookUpEdit1.Size = New System.Drawing.Size(142, 20) + Me.LookUpEdit1.Size = New System.Drawing.Size(148, 20) Me.LookUpEdit1.StyleController = Me.LayoutControlDocs Me.LookUpEdit1.TabIndex = 11 ' @@ -1297,39 +1301,39 @@ Partial Class frmAdministration 'MemoEdit5 ' Me.MemoEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True)) - Me.MemoEdit5.Location = New System.Drawing.Point(302, 54) + Me.MemoEdit5.Location = New System.Drawing.Point(317, 54) Me.MemoEdit5.Name = "MemoEdit5" Me.MemoEdit5.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MemoEdit5.Properties.Appearance.Options.UseFont = True - Me.MemoEdit5.Size = New System.Drawing.Size(620, 248) + Me.MemoEdit5.Size = New System.Drawing.Size(651, 257) Me.MemoEdit5.StyleController = Me.LayoutControlDocs Me.MemoEdit5.TabIndex = 12 ' 'MemoEdit6 ' Me.MemoEdit6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "COUNT_COMMAND", True)) - Me.MemoEdit6.Location = New System.Drawing.Point(302, 385) + Me.MemoEdit6.Location = New System.Drawing.Point(317, 394) Me.MemoEdit6.Name = "MemoEdit6" Me.MemoEdit6.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MemoEdit6.Properties.Appearance.Options.UseFont = True - Me.MemoEdit6.Size = New System.Drawing.Size(620, 133) + Me.MemoEdit6.Size = New System.Drawing.Size(651, 140) Me.MemoEdit6.StyleController = Me.LayoutControlDocs Me.MemoEdit6.TabIndex = 13 ' 'txtDOC_GUID ' Me.txtDOC_GUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True)) - Me.txtDOC_GUID.Location = New System.Drawing.Point(148, 42) + Me.txtDOC_GUID.Location = New System.Drawing.Point(157, 42) Me.txtDOC_GUID.Name = "txtDOC_GUID" Me.txtDOC_GUID.Properties.ReadOnly = True - Me.txtDOC_GUID.Size = New System.Drawing.Size(142, 20) + Me.txtDOC_GUID.Size = New System.Drawing.Size(148, 20) Me.txtDOC_GUID.StyleController = Me.LayoutControlDocs Me.txtDOC_GUID.TabIndex = 14 ' 'TextEdit19 ' Me.TextEdit19.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) - Me.TextEdit19.Location = New System.Drawing.Point(148, 122) + Me.TextEdit19.Location = New System.Drawing.Point(157, 122) Me.TextEdit19.Name = "TextEdit19" Me.TextEdit19.Properties.AutoHeight = False Me.TextEdit19.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) @@ -1340,7 +1344,7 @@ Partial Class frmAdministration Me.TextEdit19.Properties.PopupSizeable = False Me.TextEdit19.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard Me.TextEdit19.Properties.ValueMember = "POSITION_INDEX" - Me.TextEdit19.Size = New System.Drawing.Size(142, 20) + Me.TextEdit19.Size = New System.Drawing.Size(148, 29) Me.TextEdit19.StyleController = Me.LayoutControlDocs Me.TextEdit19.TabIndex = 10 ' @@ -1351,38 +1355,38 @@ Partial Class frmAdministration ' 'ComboBoxEdit3 ' - Me.ComboBoxEdit3.Location = New System.Drawing.Point(430, 12) + Me.ComboBoxEdit3.Location = New System.Drawing.Point(454, 12) Me.ComboBoxEdit3.MenuManager = Me.RibbonControl2 Me.ComboBoxEdit3.Name = "ComboBoxEdit3" Me.ComboBoxEdit3.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit3.Size = New System.Drawing.Size(429, 20) + Me.ComboBoxEdit3.Size = New System.Drawing.Size(448, 20) Me.ComboBoxEdit3.StyleController = Me.LayoutControlDocs Me.ComboBoxEdit3.TabIndex = 15 ' 'SimpleButton2 ' - Me.SimpleButton2.Location = New System.Drawing.Point(863, 12) + Me.SimpleButton2.Location = New System.Drawing.Point(906, 12) Me.SimpleButton2.Name = "SimpleButton2" - Me.SimpleButton2.Size = New System.Drawing.Size(59, 22) + Me.SimpleButton2.Size = New System.Drawing.Size(62, 22) Me.SimpleButton2.StyleController = Me.LayoutControlDocs Me.SimpleButton2.TabIndex = 16 Me.SimpleButton2.Text = "Einfügen" ' 'ComboBoxEdit4 ' - Me.ComboBoxEdit4.Location = New System.Drawing.Point(430, 343) + Me.ComboBoxEdit4.Location = New System.Drawing.Point(454, 352) Me.ComboBoxEdit4.MenuManager = Me.RibbonControl2 Me.ComboBoxEdit4.Name = "ComboBoxEdit4" Me.ComboBoxEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit4.Size = New System.Drawing.Size(429, 20) + Me.ComboBoxEdit4.Size = New System.Drawing.Size(448, 20) Me.ComboBoxEdit4.StyleController = Me.LayoutControlDocs Me.ComboBoxEdit4.TabIndex = 17 ' 'SimpleButton3 ' - Me.SimpleButton3.Location = New System.Drawing.Point(863, 343) + Me.SimpleButton3.Location = New System.Drawing.Point(906, 352) Me.SimpleButton3.Name = "SimpleButton3" - Me.SimpleButton3.Size = New System.Drawing.Size(59, 22) + Me.SimpleButton3.Size = New System.Drawing.Size(62, 22) Me.SimpleButton3.StyleController = Me.LayoutControlDocs Me.SimpleButton3.TabIndex = 18 Me.SimpleButton3.Text = "Einfügen" @@ -1393,7 +1397,7 @@ Partial Class frmAdministration Me.LayoutControlGroup2.GroupBordersVisible = False Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem31, Me.LayoutControlItem25, Me.LayoutControlItem27, Me.LayoutControlItem26, Me.EmptySpaceItem2, Me.LayoutControlItem33, Me.LayoutControlItem32, Me.LayoutControlItem34, Me.LayoutControlItem24, Me.LayoutControlItem28, Me.LayoutControlItem37, Me.LayoutControlItem38, Me.LayoutControlItem39, Me.LayoutControlItem40, Me.SimpleLabelItem1, Me.SimpleSeparator2, Me.SimpleSeparator3}) Me.LayoutControlGroup2.Name = "Root" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(934, 530) + Me.LayoutControlGroup2.Size = New System.Drawing.Size(980, 546) Me.LayoutControlGroup2.TextVisible = False ' 'LayoutControlItem29 @@ -1403,7 +1407,7 @@ Partial Class frmAdministration Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 62) Me.LayoutControlItem29.Name = "LayoutControlItem29" Me.LayoutControlItem29.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem29.Size = New System.Drawing.Size(290, 40) + Me.LayoutControlItem29.Size = New System.Drawing.Size(305, 40) Me.LayoutControlItem29.Text = "Titel:" Me.LayoutControlItem29.TextSize = New System.Drawing.Size(125, 13) ' @@ -1414,7 +1418,7 @@ Partial Class frmAdministration Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 102) Me.LayoutControlItem30.Name = "LayoutControlItem30" Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem30.Size = New System.Drawing.Size(290, 40) + Me.LayoutControlItem30.Size = New System.Drawing.Size(305, 49) Me.LayoutControlItem30.Text = "Position/Reihenfolge:" Me.LayoutControlItem30.TextSize = New System.Drawing.Size(125, 13) ' @@ -1422,10 +1426,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem31.Control = Me.LookUpEdit1 Me.LayoutControlItem31.CustomizationFormText = "Verbindung:" - Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 142) + Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 151) Me.LayoutControlItem31.Name = "LayoutControlItem31" Me.LayoutControlItem31.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem31.Size = New System.Drawing.Size(290, 40) + Me.LayoutControlItem31.Size = New System.Drawing.Size(305, 40) Me.LayoutControlItem31.Text = "Datenbank-Verbindung:" Me.LayoutControlItem31.TextSize = New System.Drawing.Size(125, 13) ' @@ -1433,10 +1437,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem25.Control = Me.TextEdit17 Me.LayoutControlItem25.CustomizationFormText = "layoutControlItem1" - Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 182) + Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 191) Me.LayoutControlItem25.Name = "LayoutControlItem25" Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem25.Size = New System.Drawing.Size(145, 56) + Me.LayoutControlItem25.Size = New System.Drawing.Size(152, 56) Me.LayoutControlItem25.Text = "Erstellt wer:" Me.LayoutControlItem25.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem25.TextSize = New System.Drawing.Size(125, 13) @@ -1445,10 +1449,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem27.Control = Me.TextEdit18 Me.LayoutControlItem27.CustomizationFormText = "layoutControlItem4" - Me.LayoutControlItem27.Location = New System.Drawing.Point(145, 238) + Me.LayoutControlItem27.Location = New System.Drawing.Point(152, 247) Me.LayoutControlItem27.Name = "LayoutControlItem27" Me.LayoutControlItem27.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem27.Size = New System.Drawing.Size(145, 56) + Me.LayoutControlItem27.Size = New System.Drawing.Size(153, 56) Me.LayoutControlItem27.Text = "Geändert wann:" Me.LayoutControlItem27.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem27.TextSize = New System.Drawing.Size(125, 13) @@ -1457,10 +1461,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem26.Control = Me.TextEdit15 Me.LayoutControlItem26.CustomizationFormText = "layoutControlItem2" - Me.LayoutControlItem26.Location = New System.Drawing.Point(145, 182) + Me.LayoutControlItem26.Location = New System.Drawing.Point(152, 191) Me.LayoutControlItem26.Name = "LayoutControlItem26" Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem26.Size = New System.Drawing.Size(145, 56) + Me.LayoutControlItem26.Size = New System.Drawing.Size(153, 56) Me.LayoutControlItem26.Text = "Erstellt wann:" Me.LayoutControlItem26.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem26.TextSize = New System.Drawing.Size(125, 13) @@ -1468,18 +1472,18 @@ Partial Class frmAdministration 'EmptySpaceItem2 ' Me.EmptySpaceItem2.AllowHotTrack = False - Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 294) + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 303) Me.EmptySpaceItem2.Name = "EmptySpaceItem2" - Me.EmptySpaceItem2.Size = New System.Drawing.Size(290, 215) + Me.EmptySpaceItem2.Size = New System.Drawing.Size(305, 222) Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) ' 'LayoutControlItem33 ' Me.LayoutControlItem33.Control = Me.MemoEdit6 Me.LayoutControlItem33.CustomizationFormText = "SQL für Ergebnis Zählung:" - Me.LayoutControlItem33.Location = New System.Drawing.Point(290, 357) + Me.LayoutControlItem33.Location = New System.Drawing.Point(305, 366) Me.LayoutControlItem33.Name = "LayoutControlItem33" - Me.LayoutControlItem33.Size = New System.Drawing.Size(624, 153) + Me.LayoutControlItem33.Size = New System.Drawing.Size(655, 160) Me.LayoutControlItem33.Text = "SQL für Ergebnis Zählung:" Me.LayoutControlItem33.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem33.TextSize = New System.Drawing.Size(125, 13) @@ -1488,9 +1492,9 @@ Partial Class frmAdministration ' Me.LayoutControlItem32.Control = Me.MemoEdit5 Me.LayoutControlItem32.CustomizationFormText = "SQL für Suche:" - Me.LayoutControlItem32.Location = New System.Drawing.Point(290, 26) + Me.LayoutControlItem32.Location = New System.Drawing.Point(305, 26) Me.LayoutControlItem32.Name = "LayoutControlItem32" - Me.LayoutControlItem32.Size = New System.Drawing.Size(624, 268) + Me.LayoutControlItem32.Size = New System.Drawing.Size(655, 277) Me.LayoutControlItem32.Text = "SQL für Suche:" Me.LayoutControlItem32.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem32.TextSize = New System.Drawing.Size(125, 13) @@ -1502,7 +1506,7 @@ Partial Class frmAdministration Me.LayoutControlItem34.Location = New System.Drawing.Point(0, 22) Me.LayoutControlItem34.Name = "LayoutControlItem34" Me.LayoutControlItem34.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem34.Size = New System.Drawing.Size(290, 40) + Me.LayoutControlItem34.Size = New System.Drawing.Size(305, 40) Me.LayoutControlItem34.Text = "ID:" Me.LayoutControlItem34.TextSize = New System.Drawing.Size(125, 13) ' @@ -1512,7 +1516,7 @@ Partial Class frmAdministration Me.LayoutControlItem24.CustomizationFormText = "LayoutControlItem10" Me.LayoutControlItem24.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem24.Name = "LayoutControlItem24" - Me.LayoutControlItem24.Size = New System.Drawing.Size(290, 22) + Me.LayoutControlItem24.Size = New System.Drawing.Size(305, 22) Me.LayoutControlItem24.Text = "LayoutControlItem10" Me.LayoutControlItem24.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem24.TextVisible = False @@ -1521,10 +1525,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem28.Control = Me.CHANGED_WHOTextBox2 Me.LayoutControlItem28.CustomizationFormText = "layoutControlItem3" - Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 238) + Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 247) Me.LayoutControlItem28.Name = "LayoutControlItem28" Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem28.Size = New System.Drawing.Size(145, 56) + Me.LayoutControlItem28.Size = New System.Drawing.Size(152, 56) Me.LayoutControlItem28.Text = "Geändert wer:" Me.LayoutControlItem28.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem28.TextSize = New System.Drawing.Size(125, 13) @@ -1532,36 +1536,36 @@ Partial Class frmAdministration 'LayoutControlItem37 ' Me.LayoutControlItem37.Control = Me.ComboBoxEdit3 - Me.LayoutControlItem37.Location = New System.Drawing.Point(290, 0) + Me.LayoutControlItem37.Location = New System.Drawing.Point(305, 0) Me.LayoutControlItem37.Name = "LayoutControlItem37" - Me.LayoutControlItem37.Size = New System.Drawing.Size(561, 26) + Me.LayoutControlItem37.Size = New System.Drawing.Size(589, 26) Me.LayoutControlItem37.Text = "Platzhalter" Me.LayoutControlItem37.TextSize = New System.Drawing.Size(125, 13) ' 'LayoutControlItem38 ' Me.LayoutControlItem38.Control = Me.SimpleButton2 - Me.LayoutControlItem38.Location = New System.Drawing.Point(851, 0) + Me.LayoutControlItem38.Location = New System.Drawing.Point(894, 0) Me.LayoutControlItem38.Name = "LayoutControlItem38" - Me.LayoutControlItem38.Size = New System.Drawing.Size(63, 26) + Me.LayoutControlItem38.Size = New System.Drawing.Size(66, 26) Me.LayoutControlItem38.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem38.TextVisible = False ' 'LayoutControlItem39 ' Me.LayoutControlItem39.Control = Me.ComboBoxEdit4 - Me.LayoutControlItem39.Location = New System.Drawing.Point(290, 331) + Me.LayoutControlItem39.Location = New System.Drawing.Point(305, 340) Me.LayoutControlItem39.Name = "LayoutControlItem39" - Me.LayoutControlItem39.Size = New System.Drawing.Size(561, 26) + Me.LayoutControlItem39.Size = New System.Drawing.Size(589, 26) Me.LayoutControlItem39.Text = "Platzhalter" Me.LayoutControlItem39.TextSize = New System.Drawing.Size(125, 13) ' 'LayoutControlItem40 ' Me.LayoutControlItem40.Control = Me.SimpleButton3 - Me.LayoutControlItem40.Location = New System.Drawing.Point(851, 331) + Me.LayoutControlItem40.Location = New System.Drawing.Point(894, 340) Me.LayoutControlItem40.Name = "LayoutControlItem40" - Me.LayoutControlItem40.Size = New System.Drawing.Size(63, 26) + Me.LayoutControlItem40.Size = New System.Drawing.Size(66, 26) Me.LayoutControlItem40.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem40.TextVisible = False ' @@ -1569,9 +1573,9 @@ Partial Class frmAdministration ' Me.SimpleLabelItem1.AllowHotTrack = False Me.SimpleLabelItem1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleLabelItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.SimpleLabelItem1.Location = New System.Drawing.Point(290, 294) + Me.SimpleLabelItem1.Location = New System.Drawing.Point(305, 303) Me.SimpleLabelItem1.Name = "SimpleLabelItem1" - Me.SimpleLabelItem1.Size = New System.Drawing.Size(624, 36) + Me.SimpleLabelItem1.Size = New System.Drawing.Size(655, 36) Me.SimpleLabelItem1.Text = "Die folgenden Spalten müssen existieren: DocId (Eindeutige Id), Name (Dateiname) " & "und FULL_FILENAME (Absoluter Pfad)" Me.SimpleLabelItem1.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize @@ -1580,16 +1584,16 @@ Partial Class frmAdministration 'SimpleSeparator2 ' Me.SimpleSeparator2.AllowHotTrack = False - Me.SimpleSeparator2.Location = New System.Drawing.Point(290, 330) + Me.SimpleSeparator2.Location = New System.Drawing.Point(305, 339) Me.SimpleSeparator2.Name = "SimpleSeparator2" - Me.SimpleSeparator2.Size = New System.Drawing.Size(624, 1) + Me.SimpleSeparator2.Size = New System.Drawing.Size(655, 1) ' 'SimpleSeparator3 ' Me.SimpleSeparator3.AllowHotTrack = False - Me.SimpleSeparator3.Location = New System.Drawing.Point(0, 509) + Me.SimpleSeparator3.Location = New System.Drawing.Point(0, 525) Me.SimpleSeparator3.Name = "SimpleSeparator3" - Me.SimpleSeparator3.Size = New System.Drawing.Size(290, 1) + Me.SimpleSeparator3.Size = New System.Drawing.Size(305, 1) ' 'GridControl1 ' @@ -1599,7 +1603,7 @@ Partial Class frmAdministration Me.GridControl1.MainView = Me.GridView2 Me.GridControl1.MenuManager = Me.RibbonControl2 Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(200, 547) + Me.GridControl1.Size = New System.Drawing.Size(134, 364) Me.GridControl1.TabIndex = 26 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' @@ -1631,7 +1635,7 @@ Partial Class frmAdministration Me.TabPageData.ImageOptions.SvgImage = CType(resources.GetObject("TabPageData.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageData.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.TabPageData.Name = "TabPageData" - Me.TabPageData.Size = New System.Drawing.Size(1114, 547) + Me.TabPageData.Size = New System.Drawing.Size(1114, 546) Me.TabPageData.Text = "Daten-Suchen" ' 'LayoutControlData @@ -1652,11 +1656,11 @@ Partial Class frmAdministration Me.LayoutControlData.Controls.Add(Me.ComboBoxEdit6) Me.LayoutControlData.Controls.Add(Me.SimpleButton5) Me.LayoutControlData.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControlData.Location = New System.Drawing.Point(200, 0) + Me.LayoutControlData.Location = New System.Drawing.Point(134, 0) Me.LayoutControlData.Name = "LayoutControlData" Me.LayoutControlData.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-714, 293, 650, 400) Me.LayoutControlData.Root = Me.LayoutControlGroup3 - Me.LayoutControlData.Size = New System.Drawing.Size(914, 547) + Me.LayoutControlData.Size = New System.Drawing.Size(980, 546) Me.LayoutControlData.TabIndex = 27 Me.LayoutControlData.Text = "LayoutControl3" ' @@ -1666,17 +1670,17 @@ Partial Class frmAdministration Me.TextEdit12.Location = New System.Drawing.Point(20, 218) Me.TextEdit12.Name = "TextEdit12" Me.TextEdit12.Properties.ReadOnly = True - Me.TextEdit12.Size = New System.Drawing.Size(125, 20) + Me.TextEdit12.Size = New System.Drawing.Size(136, 20) Me.TextEdit12.StyleController = Me.LayoutControlData Me.TextEdit12.TabIndex = 4 ' 'TextEdit13 ' Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) - Me.TextEdit13.Location = New System.Drawing.Point(165, 218) + Me.TextEdit13.Location = New System.Drawing.Point(176, 218) Me.TextEdit13.Name = "TextEdit13" Me.TextEdit13.Properties.ReadOnly = True - Me.TextEdit13.Size = New System.Drawing.Size(202, 20) + Me.TextEdit13.Size = New System.Drawing.Size(218, 20) Me.TextEdit13.StyleController = Me.LayoutControlData Me.TextEdit13.TabIndex = 5 ' @@ -1686,17 +1690,17 @@ Partial Class frmAdministration Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(20, 274) Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" Me.CHANGED_WHOTextBox1.Properties.ReadOnly = True - Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(125, 20) + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(136, 20) Me.CHANGED_WHOTextBox1.StyleController = Me.LayoutControlData Me.CHANGED_WHOTextBox1.TabIndex = 6 ' 'TextEdit11 ' Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) - Me.TextEdit11.Location = New System.Drawing.Point(165, 274) + Me.TextEdit11.Location = New System.Drawing.Point(176, 274) Me.TextEdit11.Name = "TextEdit11" Me.TextEdit11.Properties.ReadOnly = True - Me.TextEdit11.Size = New System.Drawing.Size(202, 20) + Me.TextEdit11.Size = New System.Drawing.Size(218, 20) Me.TextEdit11.StyleController = Me.LayoutControlData Me.TextEdit11.TabIndex = 7 ' @@ -1707,7 +1711,7 @@ Partial Class frmAdministration Me.CheckEdit2.MenuManager = Me.RibbonControl2 Me.CheckEdit2.Name = "CheckEdit2" Me.CheckEdit2.Properties.Caption = "Suche Aktiv" - Me.CheckEdit2.Size = New System.Drawing.Size(363, 18) + Me.CheckEdit2.Size = New System.Drawing.Size(390, 18) Me.CheckEdit2.StyleController = Me.LayoutControlData Me.CheckEdit2.TabIndex = 8 ' @@ -1715,17 +1719,17 @@ Partial Class frmAdministration ' Me.txtDataSearchName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True)) Me.txtDataSearchName.EditValue = "" - Me.txtDataSearchName.Location = New System.Drawing.Point(148, 82) + Me.txtDataSearchName.Location = New System.Drawing.Point(157, 82) Me.txtDataSearchName.MenuManager = Me.RibbonControl2 Me.txtDataSearchName.Name = "txtDataSearchName" - Me.txtDataSearchName.Size = New System.Drawing.Size(219, 20) + Me.txtDataSearchName.Size = New System.Drawing.Size(237, 20) Me.txtDataSearchName.StyleController = Me.LayoutControlData Me.txtDataSearchName.TabIndex = 9 ' 'ComboBoxEdit2 ' Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True)) - Me.ComboBoxEdit2.Location = New System.Drawing.Point(148, 162) + Me.ComboBoxEdit2.Location = New System.Drawing.Point(157, 162) Me.ComboBoxEdit2.MenuManager = Me.RibbonControl2 Me.ComboBoxEdit2.Name = "ComboBoxEdit2" Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) @@ -1736,49 +1740,49 @@ Partial Class frmAdministration Me.ComboBoxEdit2.Properties.PopupSizeable = False Me.ComboBoxEdit2.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard Me.ComboBoxEdit2.Properties.ValueMember = "GUID" - Me.ComboBoxEdit2.Size = New System.Drawing.Size(219, 20) + Me.ComboBoxEdit2.Size = New System.Drawing.Size(237, 20) Me.ComboBoxEdit2.StyleController = Me.LayoutControlData Me.ComboBoxEdit2.TabIndex = 11 ' 'MemoEdit3 ' Me.MemoEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True)) - Me.MemoEdit3.Location = New System.Drawing.Point(379, 54) + Me.MemoEdit3.Location = New System.Drawing.Point(406, 54) Me.MemoEdit3.MenuManager = Me.RibbonControl2 Me.MemoEdit3.Name = "MemoEdit3" Me.MemoEdit3.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MemoEdit3.Properties.Appearance.Options.UseFont = True - Me.MemoEdit3.Size = New System.Drawing.Size(523, 248) + Me.MemoEdit3.Size = New System.Drawing.Size(562, 248) Me.MemoEdit3.StyleController = Me.LayoutControlData Me.MemoEdit3.TabIndex = 12 ' 'MemoEdit4 ' Me.MemoEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True)) - Me.MemoEdit4.Location = New System.Drawing.Point(379, 348) + Me.MemoEdit4.Location = New System.Drawing.Point(406, 348) Me.MemoEdit4.MenuManager = Me.RibbonControl2 Me.MemoEdit4.Name = "MemoEdit4" Me.MemoEdit4.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MemoEdit4.Properties.Appearance.Options.UseFont = True - Me.MemoEdit4.Size = New System.Drawing.Size(523, 187) + Me.MemoEdit4.Size = New System.Drawing.Size(562, 186) Me.MemoEdit4.StyleController = Me.LayoutControlData Me.MemoEdit4.TabIndex = 13 ' 'txtDATAGUID ' Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) - Me.txtDATAGUID.Location = New System.Drawing.Point(148, 42) + Me.txtDATAGUID.Location = New System.Drawing.Point(157, 42) Me.txtDATAGUID.MenuManager = Me.RibbonControl2 Me.txtDATAGUID.Name = "txtDATAGUID" Me.txtDATAGUID.Properties.ReadOnly = True - Me.txtDATAGUID.Size = New System.Drawing.Size(219, 20) + Me.txtDATAGUID.Size = New System.Drawing.Size(237, 20) Me.txtDATAGUID.StyleController = Me.LayoutControlData Me.txtDATAGUID.TabIndex = 14 ' 'TextEdit10 ' Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) - Me.TextEdit10.Location = New System.Drawing.Point(148, 122) + Me.TextEdit10.Location = New System.Drawing.Point(157, 122) Me.TextEdit10.MenuManager = Me.RibbonControl2 Me.TextEdit10.Name = "TextEdit10" Me.TextEdit10.Properties.AutoHeight = False @@ -1790,44 +1794,44 @@ Partial Class frmAdministration Me.TextEdit10.Properties.PopupSizeable = False Me.TextEdit10.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard Me.TextEdit10.Properties.ValueMember = "POSITION_INDEX" - Me.TextEdit10.Size = New System.Drawing.Size(219, 20) + Me.TextEdit10.Size = New System.Drawing.Size(237, 20) Me.TextEdit10.StyleController = Me.LayoutControlData Me.TextEdit10.TabIndex = 10 ' 'ComboBoxEdit5 ' - Me.ComboBoxEdit5.Location = New System.Drawing.Point(507, 12) + Me.ComboBoxEdit5.Location = New System.Drawing.Point(543, 12) Me.ComboBoxEdit5.MenuManager = Me.RibbonControl2 Me.ComboBoxEdit5.Name = "ComboBoxEdit5" Me.ComboBoxEdit5.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit5.Size = New System.Drawing.Size(337, 20) + Me.ComboBoxEdit5.Size = New System.Drawing.Size(363, 20) Me.ComboBoxEdit5.StyleController = Me.LayoutControlData Me.ComboBoxEdit5.TabIndex = 15 ' 'SimpleButton4 ' - Me.SimpleButton4.Location = New System.Drawing.Point(848, 12) + Me.SimpleButton4.Location = New System.Drawing.Point(910, 12) Me.SimpleButton4.Name = "SimpleButton4" - Me.SimpleButton4.Size = New System.Drawing.Size(54, 22) + Me.SimpleButton4.Size = New System.Drawing.Size(58, 22) Me.SimpleButton4.StyleController = Me.LayoutControlData Me.SimpleButton4.TabIndex = 16 Me.SimpleButton4.Text = "Einfügen" ' 'ComboBoxEdit6 ' - Me.ComboBoxEdit6.Location = New System.Drawing.Point(507, 306) + Me.ComboBoxEdit6.Location = New System.Drawing.Point(543, 306) Me.ComboBoxEdit6.MenuManager = Me.RibbonControl2 Me.ComboBoxEdit6.Name = "ComboBoxEdit6" Me.ComboBoxEdit6.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit6.Size = New System.Drawing.Size(337, 20) + Me.ComboBoxEdit6.Size = New System.Drawing.Size(363, 20) Me.ComboBoxEdit6.StyleController = Me.LayoutControlData Me.ComboBoxEdit6.TabIndex = 17 ' 'SimpleButton5 ' - Me.SimpleButton5.Location = New System.Drawing.Point(848, 306) + Me.SimpleButton5.Location = New System.Drawing.Point(910, 306) Me.SimpleButton5.Name = "SimpleButton5" - Me.SimpleButton5.Size = New System.Drawing.Size(54, 22) + Me.SimpleButton5.Size = New System.Drawing.Size(58, 22) Me.SimpleButton5.StyleController = Me.LayoutControlData Me.SimpleButton5.TabIndex = 18 Me.SimpleButton5.Text = "Einfügen" @@ -1838,7 +1842,7 @@ Partial Class frmAdministration Me.LayoutControlGroup3.GroupBordersVisible = False Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17, Me.LayoutControlItem16, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem21, Me.LayoutControlItem22, Me.EmptySpaceItem1, Me.LayoutControlItem23, Me.LayoutControlItem41, Me.LayoutControlItem42, Me.LayoutControlItem43, Me.LayoutControlItem44}) Me.LayoutControlGroup3.Name = "Root" - Me.LayoutControlGroup3.Size = New System.Drawing.Size(914, 547) + Me.LayoutControlGroup3.Size = New System.Drawing.Size(980, 546) Me.LayoutControlGroup3.TextVisible = False ' 'LayoutControlItem10 @@ -1846,7 +1850,7 @@ Partial Class frmAdministration Me.LayoutControlItem10.Control = Me.CheckEdit2 Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem10.Name = "LayoutControlItem10" - Me.LayoutControlItem10.Size = New System.Drawing.Size(367, 22) + Me.LayoutControlItem10.Size = New System.Drawing.Size(394, 22) Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem10.TextVisible = False ' @@ -1857,7 +1861,7 @@ Partial Class frmAdministration Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 182) Me.LayoutControlItem14.Name = "LayoutControlItem14" Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem14.Size = New System.Drawing.Size(145, 56) + Me.LayoutControlItem14.Size = New System.Drawing.Size(156, 56) Me.LayoutControlItem14.Text = "Erstellt wer:" Me.LayoutControlItem14.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem14.TextSize = New System.Drawing.Size(125, 13) @@ -1866,10 +1870,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem15.Control = Me.TextEdit13 Me.LayoutControlItem15.CustomizationFormText = "layoutControlItem2" - Me.LayoutControlItem15.Location = New System.Drawing.Point(145, 182) + Me.LayoutControlItem15.Location = New System.Drawing.Point(156, 182) Me.LayoutControlItem15.Name = "LayoutControlItem15" Me.LayoutControlItem15.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem15.Size = New System.Drawing.Size(222, 56) + Me.LayoutControlItem15.Size = New System.Drawing.Size(238, 56) Me.LayoutControlItem15.Text = "Erstellt wann:" Me.LayoutControlItem15.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem15.TextSize = New System.Drawing.Size(125, 13) @@ -1878,10 +1882,10 @@ Partial Class frmAdministration ' Me.LayoutControlItem17.Control = Me.TextEdit11 Me.LayoutControlItem17.CustomizationFormText = "layoutControlItem4" - Me.LayoutControlItem17.Location = New System.Drawing.Point(145, 238) + Me.LayoutControlItem17.Location = New System.Drawing.Point(156, 238) Me.LayoutControlItem17.Name = "LayoutControlItem17" Me.LayoutControlItem17.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem17.Size = New System.Drawing.Size(222, 56) + Me.LayoutControlItem17.Size = New System.Drawing.Size(238, 56) Me.LayoutControlItem17.Text = "Geändert wann:" Me.LayoutControlItem17.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem17.TextSize = New System.Drawing.Size(125, 13) @@ -1893,7 +1897,7 @@ Partial Class frmAdministration Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 238) Me.LayoutControlItem16.Name = "LayoutControlItem16" Me.LayoutControlItem16.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem16.Size = New System.Drawing.Size(145, 56) + Me.LayoutControlItem16.Size = New System.Drawing.Size(156, 56) Me.LayoutControlItem16.Text = "Geändert wer:" Me.LayoutControlItem16.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem16.TextSize = New System.Drawing.Size(125, 13) @@ -1904,7 +1908,7 @@ Partial Class frmAdministration Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 62) Me.LayoutControlItem11.Name = "LayoutControlItem11" Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem11.Size = New System.Drawing.Size(367, 40) + Me.LayoutControlItem11.Size = New System.Drawing.Size(394, 40) Me.LayoutControlItem11.Text = "Titel:" Me.LayoutControlItem11.TextSize = New System.Drawing.Size(125, 13) ' @@ -1914,7 +1918,7 @@ Partial Class frmAdministration Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 102) Me.LayoutControlItem12.Name = "LayoutControlItem12" Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem12.Size = New System.Drawing.Size(367, 40) + Me.LayoutControlItem12.Size = New System.Drawing.Size(394, 40) Me.LayoutControlItem12.Text = "Position/Reihenfolge:" Me.LayoutControlItem12.TextSize = New System.Drawing.Size(125, 13) ' @@ -1924,16 +1928,16 @@ Partial Class frmAdministration Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 142) Me.LayoutControlItem13.Name = "LayoutControlItem13" Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem13.Size = New System.Drawing.Size(367, 40) + Me.LayoutControlItem13.Size = New System.Drawing.Size(394, 40) Me.LayoutControlItem13.Text = "Datenbank-Verbindung:" Me.LayoutControlItem13.TextSize = New System.Drawing.Size(125, 13) ' 'LayoutControlItem21 ' Me.LayoutControlItem21.Control = Me.MemoEdit3 - Me.LayoutControlItem21.Location = New System.Drawing.Point(367, 26) + Me.LayoutControlItem21.Location = New System.Drawing.Point(394, 26) Me.LayoutControlItem21.Name = "LayoutControlItem21" - Me.LayoutControlItem21.Size = New System.Drawing.Size(527, 268) + Me.LayoutControlItem21.Size = New System.Drawing.Size(566, 268) Me.LayoutControlItem21.Text = "SQL für Suche:" Me.LayoutControlItem21.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem21.TextSize = New System.Drawing.Size(125, 13) @@ -1941,9 +1945,9 @@ Partial Class frmAdministration 'LayoutControlItem22 ' Me.LayoutControlItem22.Control = Me.MemoEdit4 - Me.LayoutControlItem22.Location = New System.Drawing.Point(367, 320) + Me.LayoutControlItem22.Location = New System.Drawing.Point(394, 320) Me.LayoutControlItem22.Name = "LayoutControlItem22" - Me.LayoutControlItem22.Size = New System.Drawing.Size(527, 207) + Me.LayoutControlItem22.Size = New System.Drawing.Size(566, 206) Me.LayoutControlItem22.Text = "SQL für Ergebnis Zählung:" Me.LayoutControlItem22.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem22.TextSize = New System.Drawing.Size(125, 13) @@ -1953,7 +1957,7 @@ Partial Class frmAdministration Me.EmptySpaceItem1.AllowHotTrack = False Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 294) Me.EmptySpaceItem1.Name = "EmptySpaceItem1" - Me.EmptySpaceItem1.Size = New System.Drawing.Size(367, 233) + Me.EmptySpaceItem1.Size = New System.Drawing.Size(394, 232) Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) ' 'LayoutControlItem23 @@ -1962,43 +1966,43 @@ Partial Class frmAdministration Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 22) Me.LayoutControlItem23.Name = "LayoutControlItem23" Me.LayoutControlItem23.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem23.Size = New System.Drawing.Size(367, 40) + Me.LayoutControlItem23.Size = New System.Drawing.Size(394, 40) Me.LayoutControlItem23.Text = "ID:" Me.LayoutControlItem23.TextSize = New System.Drawing.Size(125, 13) ' 'LayoutControlItem41 ' Me.LayoutControlItem41.Control = Me.ComboBoxEdit5 - Me.LayoutControlItem41.Location = New System.Drawing.Point(367, 0) + Me.LayoutControlItem41.Location = New System.Drawing.Point(394, 0) Me.LayoutControlItem41.Name = "LayoutControlItem41" - Me.LayoutControlItem41.Size = New System.Drawing.Size(469, 26) + Me.LayoutControlItem41.Size = New System.Drawing.Size(504, 26) Me.LayoutControlItem41.Text = "Platzhalter" Me.LayoutControlItem41.TextSize = New System.Drawing.Size(125, 13) ' 'LayoutControlItem42 ' Me.LayoutControlItem42.Control = Me.SimpleButton4 - Me.LayoutControlItem42.Location = New System.Drawing.Point(836, 0) + Me.LayoutControlItem42.Location = New System.Drawing.Point(898, 0) Me.LayoutControlItem42.Name = "LayoutControlItem42" - Me.LayoutControlItem42.Size = New System.Drawing.Size(58, 26) + Me.LayoutControlItem42.Size = New System.Drawing.Size(62, 26) Me.LayoutControlItem42.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem42.TextVisible = False ' 'LayoutControlItem43 ' Me.LayoutControlItem43.Control = Me.ComboBoxEdit6 - Me.LayoutControlItem43.Location = New System.Drawing.Point(367, 294) + Me.LayoutControlItem43.Location = New System.Drawing.Point(394, 294) Me.LayoutControlItem43.Name = "LayoutControlItem43" - Me.LayoutControlItem43.Size = New System.Drawing.Size(469, 26) + Me.LayoutControlItem43.Size = New System.Drawing.Size(504, 26) Me.LayoutControlItem43.Text = "Platzhalter" Me.LayoutControlItem43.TextSize = New System.Drawing.Size(125, 13) ' 'LayoutControlItem44 ' Me.LayoutControlItem44.Control = Me.SimpleButton5 - Me.LayoutControlItem44.Location = New System.Drawing.Point(836, 294) + Me.LayoutControlItem44.Location = New System.Drawing.Point(898, 294) Me.LayoutControlItem44.Name = "LayoutControlItem44" - Me.LayoutControlItem44.Size = New System.Drawing.Size(58, 26) + Me.LayoutControlItem44.Size = New System.Drawing.Size(62, 26) Me.LayoutControlItem44.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem44.TextVisible = False ' @@ -2010,7 +2014,7 @@ Partial Class frmAdministration Me.GridControl2.MainView = Me.GridView3 Me.GridControl2.MenuManager = Me.RibbonControl2 Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(200, 547) + Me.GridControl2.Size = New System.Drawing.Size(134, 364) Me.GridControl2.TabIndex = 11 Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' @@ -2041,7 +2045,7 @@ Partial Class frmAdministration Me.TabPageProcessAssignment.ImageOptions.SvgImage = CType(resources.GetObject("TabPageProcessAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageProcessAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.TabPageProcessAssignment.Name = "TabPageProcessAssignment" - Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1114, 547) + Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1114, 546) Me.TabPageProcessAssignment.Text = "Anwendungs-Zuordnung" ' 'CtrlApplicationAssignment1 @@ -2053,7 +2057,7 @@ Partial Class frmAdministration Me.CtrlApplicationAssignment1.SelectedProcessId = 0 Me.CtrlApplicationAssignment1.SelectedProfileId = 0 Me.CtrlApplicationAssignment1.SelectedWindowId = 0 - Me.CtrlApplicationAssignment1.Size = New System.Drawing.Size(1114, 547) + Me.CtrlApplicationAssignment1.Size = New System.Drawing.Size(743, 364) Me.CtrlApplicationAssignment1.TabIndex = 3 ' 'TabPageProfileAssignment @@ -2062,7 +2066,7 @@ Partial Class frmAdministration Me.TabPageProfileAssignment.ImageOptions.SvgImage = CType(resources.GetObject("TabPageProfileAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageProfileAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(20, 20) Me.TabPageProfileAssignment.Name = "TabPageProfileAssignment" - Me.TabPageProfileAssignment.Size = New System.Drawing.Size(1116, 573) + Me.TabPageProfileAssignment.Size = New System.Drawing.Size(1011, 1065) Me.TabPageProfileAssignment.Text = "Profil-Zuordnung" ' 'XtraTabControl2 @@ -2071,7 +2075,7 @@ Partial Class frmAdministration Me.XtraTabControl2.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl2.Name = "XtraTabControl2" Me.XtraTabControl2.SelectedTabPage = Me.TabPageGroupAssignment - Me.XtraTabControl2.Size = New System.Drawing.Size(1116, 573) + Me.XtraTabControl2.Size = New System.Drawing.Size(673, 643) Me.XtraTabControl2.TabIndex = 0 Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageUserAssignment, Me.TabPageGroupAssignment}) ' @@ -2081,7 +2085,7 @@ Partial Class frmAdministration Me.TabPageGroupAssignment.ImageOptions.SvgImage = CType(resources.GetObject("TabPageGroupAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageGroupAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.TabPageGroupAssignment.Name = "TabPageGroupAssignment" - Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1114, 547) + Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1798, 938) Me.TabPageGroupAssignment.Text = "Gruppen-Zuordnung" ' 'SplitContainer2 @@ -2100,8 +2104,8 @@ Partial Class frmAdministration ' Me.SplitContainer2.Panel2.Controls.Add(Me.GridControlGroupNotInProfile) Me.SplitContainer2.Panel2.Controls.Add(Me.Label10) - Me.SplitContainer2.Size = New System.Drawing.Size(1114, 547) - Me.SplitContainer2.SplitterDistance = 261 + Me.SplitContainer2.Size = New System.Drawing.Size(1199, 625) + Me.SplitContainer2.SplitterDistance = 295 Me.SplitContainer2.TabIndex = 1 ' 'GridControlGroupInProfile @@ -2109,10 +2113,10 @@ Partial Class frmAdministration Me.GridControlGroupInProfile.AllowDrop = True Me.GridControlGroupInProfile.DataSource = Me.VWCW_GROUP_PROFILEBindingSource Me.GridControlGroupInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlGroupInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlGroupInProfile.Location = New System.Drawing.Point(0, 7) Me.GridControlGroupInProfile.MainView = Me.GridViewGroupInProfile Me.GridControlGroupInProfile.Name = "GridControlGroupInProfile" - Me.GridControlGroupInProfile.Size = New System.Drawing.Size(1114, 236) + Me.GridControlGroupInProfile.Size = New System.Drawing.Size(1199, 288) Me.GridControlGroupInProfile.TabIndex = 1 Me.GridControlGroupInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupInProfile}) ' @@ -2161,7 +2165,7 @@ Partial Class frmAdministration Me.Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label9.Location = New System.Drawing.Point(0, 0) Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(1114, 25) + Me.Label9.Size = New System.Drawing.Size(1199, 7) Me.Label9.TabIndex = 0 Me.Label9.Text = "Zugeordnete Gruppen" Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -2174,7 +2178,7 @@ Partial Class frmAdministration Me.GridControlGroupNotInProfile.Location = New System.Drawing.Point(0, 25) Me.GridControlGroupNotInProfile.MainView = Me.GridViewGroupNotInProfile Me.GridControlGroupNotInProfile.Name = "GridControlGroupNotInProfile" - Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1114, 257) + Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1199, 301) Me.GridControlGroupNotInProfile.TabIndex = 1 Me.GridControlGroupNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupNotInProfile}) ' @@ -2222,7 +2226,7 @@ Partial Class frmAdministration Me.Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label10.Location = New System.Drawing.Point(0, 0) Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(1114, 25) + Me.Label10.Size = New System.Drawing.Size(1199, 25) Me.Label10.TabIndex = 1 Me.Label10.Text = "Nicht zugeordnete Gruppen:" Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -2233,7 +2237,7 @@ Partial Class frmAdministration Me.TabPageUserAssignment.ImageOptions.SvgImage = CType(resources.GetObject("TabPageUserAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.TabPageUserAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.TabPageUserAssignment.Name = "TabPageUserAssignment" - Me.TabPageUserAssignment.Size = New System.Drawing.Size(1114, 547) + Me.TabPageUserAssignment.Size = New System.Drawing.Size(1009, 1039) Me.TabPageUserAssignment.Text = "Benutzer-Zuordnung" ' 'SplitContainer1 @@ -2252,19 +2256,19 @@ Partial Class frmAdministration ' Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUserNotInProfile) Me.SplitContainer1.Panel2.Controls.Add(Me.Label2) - Me.SplitContainer1.Size = New System.Drawing.Size(1114, 547) - Me.SplitContainer1.SplitterDistance = 264 + Me.SplitContainer1.Size = New System.Drawing.Size(1009, 1039) + Me.SplitContainer1.SplitterDistance = 443 Me.SplitContainer1.TabIndex = 99 ' 'GridControlUserInProfile ' Me.GridControlUserInProfile.AllowDrop = True - Me.GridControlUserInProfile.DataSource = Me.VWUSER_PROFILEBindingSource + Me.GridControlUserInProfile.DataSource = Me.VWCW_USER_PROFILEBindingSource Me.GridControlUserInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUserInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlUserInProfile.Location = New System.Drawing.Point(0, 5) Me.GridControlUserInProfile.MainView = Me.GridViewUserInProfile Me.GridControlUserInProfile.Name = "GridControlUserInProfile" - Me.GridControlUserInProfile.Size = New System.Drawing.Size(1114, 239) + Me.GridControlUserInProfile.Size = New System.Drawing.Size(298, 192) Me.GridControlUserInProfile.TabIndex = 93 Me.GridControlUserInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserInProfile}) ' @@ -2297,7 +2301,7 @@ Partial Class frmAdministration 'colGUID1 ' Me.colGUID1.Caption = "ID" - Me.colGUID1.FieldName = "GUID" + Me.colGUID1.FieldName = "USER_ID" Me.colGUID1.Name = "colGUID1" Me.colGUID1.Width = 42 ' @@ -2313,7 +2317,7 @@ Partial Class frmAdministration 'colNAME1 ' Me.colNAME1.Caption = "Name" - Me.colNAME1.FieldName = "NAME" + Me.colNAME1.FieldName = "USER_SURNAME" Me.colNAME1.Name = "colNAME1" Me.colNAME1.Visible = True Me.colNAME1.VisibleIndex = 1 @@ -2322,7 +2326,7 @@ Partial Class frmAdministration 'colPRENAME ' Me.colPRENAME.Caption = "Vorname" - Me.colPRENAME.FieldName = "PRENAME" + Me.colPRENAME.FieldName = "USER_PRENAME" Me.colPRENAME.Name = "colPRENAME" Me.colPRENAME.Visible = True Me.colPRENAME.VisibleIndex = 2 @@ -2334,7 +2338,7 @@ Partial Class frmAdministration Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(1114, 25) + Me.Label1.Size = New System.Drawing.Size(298, 7) Me.Label1.TabIndex = 94 Me.Label1.Text = "Zugeordnete Benutzer:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -2344,10 +2348,10 @@ Partial Class frmAdministration Me.GridControlUserNotInProfile.AllowDrop = True Me.GridControlUserNotInProfile.DataSource = Me.TBWH_UserBindingSource Me.GridControlUserNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUserNotInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlUserNotInProfile.Location = New System.Drawing.Point(0, 11) Me.GridControlUserNotInProfile.MainView = Me.GridViewUserNotInProfile Me.GridControlUserNotInProfile.Name = "GridControlUserNotInProfile" - Me.GridControlUserNotInProfile.Size = New System.Drawing.Size(1114, 254) + Me.GridControlUserNotInProfile.Size = New System.Drawing.Size(447, 205) Me.GridControlUserNotInProfile.TabIndex = 96 Me.GridControlUserNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserNotInProfile}) ' @@ -2407,7 +2411,7 @@ Partial Class frmAdministration Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(0, 0) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(1114, 25) + Me.Label2.Size = New System.Drawing.Size(671, 11) Me.Label2.TabIndex = 97 Me.Label2.Text = "Nicht zugeordnete Benutzer:" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -2441,13 +2445,19 @@ Partial Class frmAdministration 'SplitContainerControl1 ' Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 157) + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 70) Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlProfiles) Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl3) Me.SplitContainerControl1.Panel2.Text = "Panel2" - Me.SplitContainerControl1.Size = New System.Drawing.Size(1365, 603) + Me.SplitContainerControl1.Size = New System.Drawing.Size(1260, 1095) Me.SplitContainerControl1.SplitterPosition = 237 Me.SplitContainerControl1.TabIndex = 27 Me.SplitContainerControl1.Text = "SplitContainerControl1" @@ -2505,24 +2515,25 @@ Partial Class frmAdministration Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1365, 782) + Me.ClientSize = New System.Drawing.Size(1890, 1762) Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl2) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.IconOptions.Icon = CType(resources.GetObject("frmAdministration.IconOptions.Icon"), System.Drawing.Icon) + Me.IconOptions.Image = CType(resources.GetObject("frmAdministration.IconOptions.Image"), System.Drawing.Image) Me.KeyPreview = True Me.Name = "frmAdministration" Me.Ribbon = Me.RibbonControl2 Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "Search Flow - Administration" + Me.Text = "easyFLOW- Administration" CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWCW_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() @@ -2659,6 +2670,10 @@ Partial Class frmAdministration CType(Me.GridViewUserInProfile, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlUserNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewUserNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -2672,17 +2687,17 @@ Partial Class frmAdministration Me.PerformLayout() End Sub - Friend WithEvents MyDataset As DD_Clipboard_Watcher.MyDataset + Friend WithEvents MyDataset As easyFLOW.MyDataset Friend WithEvents TBCW_PROFILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBCW_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter - Friend WithEvents TableAdapterManager As DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBCW_PROFILESTableAdapter As easyFLOW.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter + Friend WithEvents TableAdapterManager As easyFLOW.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents GridControlProfiles As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewProfiles As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog - Friend WithEvents VWUSER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWUSER_PROFILETableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter + Friend WithEvents VWCW_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWCW_USER_PROFILETableAdapter As easyFLOW.MyDatasetTableAdapters.VWCW_USER_PROFILETableAdapter Friend WithEvents TimerTest As System.Windows.Forms.Timer Friend WithEvents TBWH_UserBindingSource As System.Windows.Forms.BindingSource Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index 01fa1ba..1884c83 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -126,7 +126,7 @@ 122, 56 - + 17, 17 @@ -138,7 +138,7 @@ 962, 17 - + 1125, 17 @@ -159,7 +159,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -177,7 +177,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -196,7 +196,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -212,7 +212,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -233,7 +233,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -252,7 +252,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -271,7 +271,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -290,7 +290,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -309,7 +309,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -325,7 +325,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkEAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -352,7 +352,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -371,7 +371,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -396,7 +396,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -474,7 +474,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -492,7 +492,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -511,7 +511,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -527,7 +527,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -545,7 +545,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -564,7 +564,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -594,7 +594,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -613,7 +613,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -632,7 +632,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -648,7 +648,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMcCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -667,7 +667,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACsDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -688,7 +688,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFgEAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -714,7 +714,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEcDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -735,7 +735,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEoIAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -781,7 +781,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEACAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -804,7 +804,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -825,7 +825,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4CAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -845,7 +845,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADIDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -866,7 +866,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -884,7 +884,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -914,7 +914,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -938,7 +938,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOoDAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -962,7 +962,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -5506,6 +5506,90 @@ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA= + + + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DgAACw4BQL7hQQAAEkpJREFUeF7t3b+u5EgVx/F9hHkIHmDuvgDzADwA4QTkbE4yCfnkJJNstAEiQgRI + I0hIFo2EhETEBEQkbEJC0tTv3vas232623adss8pf4OPtFPbt2337fq5/vp+dTqdQvr2J0+vijfFu+JD + 8bH4XJyAwPQd1XdV31l9d/UdfmV9xyMwC/egD6l4W+iDo6KjN/pO67ut73iYQDALt6IPovim+FRYHxrQ + K33ndw8Ds7C1ctFqFikNrQ8GOBrVhTdWXWnNLGylXKQSj+Y9YFPdeGvVnVbMQm+6qPPFWRcN4NJmQWAW + eikX8brQiKh1kQDuU915bdUtL2ZhrXLSGtx7f74IAHVUl5oMFpqFNcqJaoCP5j7gS3XKfaDQLFyrnKAW + PlgnD8DHO6vurWUWLlVOSk1++vrANlTXXLoEZuES5UQ00EeTH9iW6lz1AKFZOJdOoPjhfEIAtqW6VxUC + ZuEcOvD5BKwTA7CNqhAwCx/RAc8Htk4IwLZWh4BZeI8OdD6gdSIA9rEqBMzCW3SA84GsEwCwr8UhYBZa + yhtrqo/RfiA21dHZU4RmoaW8KfP8QA4frTpsMQunyhuywg/IZdaKQbNwrLyR1vZbBwAQ28O9A2bhoLwB + /X4gr4fjAWbhoPwwW3qB3N5bdXtgFkr5QU35WW8IIJebU4NmoZQfYtQf6MPNWQGzsPyAnuFnvRGAnMxn + DF4VSHkxA39AXz5bdf2qoLyQuz/Qp6tWwMU/pLyIuz/Qp6tWwMU/ygtY9AP07WJx0DQA+HNdQN8+jOv8 + uPJr1Z/1AwD68mV14DgAGPwDjuHLYOA4APgT3cAxfLoIgFJA8x84luduwBAANP+R2u9+apfjpuduwBAA + jP4jle++fjr96RdPp3/+5un03z8/nU5/fymzXgvT82zAEAAs/kF4f/z50+kf759O//nDS4Wf+ssv7Z+D + 6XlREP1/hPX7nz2d/vqrp9O/f2tX+Cm1Bqz3wU2vFACs/kMI6sfrLv6vb59O//veruT3qCtgvS9ueqMA + 4IGf2MXQj1ezfujH12IwcJF3DABiU+rH/+3Xt/vxtdRlsI4L0wcFAE/+QTNDP17NeqvCetNxrPOA6aMC + gBkAuBn68ePpuS1p7MA6L5g+KwCs/wHMMu7Ht2rWL6VWh3WuuEYAYLGhHz93em5rOjfrvHGNAMBDatYP + /fg103NbUzBZ14FrBACuqFm/Zz/eg3VduEYA4Av1naP042tpXMK6RlwiAPCF7vxWZcpIg5LWNeISAYAL + vbQAdB3W9eESAYALunNaFSojlgU/RgDggqb4rMqUEduDHyMAcMWqTBmxPfgxAgBXtlq33xrbgx8jAHBF + i36sCpURy4LvIwBwRZXGqkwZsT34PgIApgxLfudge/B9BABMGkCzKlQ2bA++jwCASVNoVoXKSFOb1jWC + AMANWkRjVaYWtGpPC5CG9fveG5DYHnwbAeBgul22l5HnVjsB9b7qYqiVYf0xD+/uB8uCbyMAVni0XbaX + kWevZcEKRYWjPpc54dii+2EFDQiA2ZY89qqXB1Lomq3rm0OfgZrea/rfLbofbA+2EQA36E6lO9bax15Z + 75nNku3B4368x912TtAuoXOzjnN0BMCZ7jpqeno99qqXO86tijjux7fYdefV/RjofK3jHN1hA0B3KVXS + W/34Wr3ccdSM1/Us7cfXqul+3NIiqLI7VACoPzq3H19Lx7DOIRtVmr3m0a3PtYZaK9ZxjqzrABj68bpz + WV+I1hh5ruP92HG19qzjHFlXATD04/WL9ujH1+KOU2fofnjRd8I6zpGlDoChH69mfYt+fC3uOHXUgrM+ + 1xpbjF9kki4A1B/VncG7edgCI8/1vFtyvSzS8hI+AMb9+AjN+qUYea7jPX6j97OOc1RhA6DV9NzWuOPU + 0ednfa41rOMcVdgAyHi3t3DHqaMWlPW51mB78I/CBsBeU3feGHmu590SZFnwj8IGgKbQrF9eRtxx6qg7 + aH2ua/WySMtD2ABo0fTbCw+kqNNiWTCLtF6EDQDpYRBQetkevBdVVutzrdHLZq1aoQPAu+m3J+v6MJ/3 + /g0Wab0IHQAtmn5bUetFX7JW22WPhu3BbYQOgBZNv5Y0c6F5a5ab+tNAqvWZ1yCYgweAbLF1dy2d29rH + XmE563dQg81aCQLAe0dYDTUb1RRV14RR5O157P9QaOt3SGi/CB8ALZp+c2kRj5r19ONjWLMseBiLIbRt + 4QNArF9sK7rL0I+Pac72YEJ7mRQB0HJZME3CXKw9IgptdRUJ7eVSBECLHWG6Q9AkzEfN+SG0WcxTL0UA + zGn6LcUdH0gSAOK9PZj1+UCiAPBeFsz6fCBRAKjPblXkGowB4OjSBECL7cEMIuHo0gSAeG8P1kiydRzg + KFIFgCqsVZHX0nSSdRzgKFIFQIvtwawWw5GlCoAW24PZEYYjSxUA4rEjbIwnw+DI0gWA9/bgozwZRl0d + rX7U53ePXkO36DjSBUCL7cE9biJRJVb3Rhup1qyiHHbVaR8GgdCvdAEg3suC9SW3jpORKr13N0n0noyX + 9CdlAHhvD9b7WcfJRJXTe52ERcdQV8E6B+STMgC8twerRWEdJwNNjW5R8ad0TFZS5pcyANge/DIl2vJB + KXPpHNhTkVfKABDvu16mZq3CynscpIbOhafx5JQ2ALy3B2dZFqy+vnX+ETBImE/aAGhREaI3ZVs8Gs0b + IZBL2gBosSw48qCWuijWOUdECOSRNgBEzXbrC7hW1O3BkZv9txACOaQOAO/twRpYtI6zpxYrH7eSbWbl + iFIHQO/bg9XNiTTav5TOnSnC2FIHgFhfvBqRmq4R5vlr9bDKsmfpA6DX7cEtWjd7YcVgXOkDwHt0PMKy + YDWb91je20rEsRW8SB8ALZYF772qLdOU31xsIIopfQCI50CZ3mvvJmvmgb9bIrSscK2LAKgdLNM4gu5Q + EdazZ5zzn4u1AfF0EQBLl8hG/uuyLR7mEQWPYY+niwDQ3L31hRtoEEqj+7oDRX681aPr8KDWkj6HcWtH + /62yLaYdebxYLF0EgIxHzdXf1JdZLYMIzfq5Wm72UctiTuXTa1q2QnSN1nGxj24CQH14ybz8tNUdeM0I + vPcy64HCxToe9tFNAPSgxeh/zfSbftZ6z1rWsbAPAiCIFv1/j7tti+5Apm5Z7wiAIFrs+vMYcGsRTCwN + joMACMK7ua3xBOs4a3iPTdR0S+CLAAjCOwA8F93ovaxjrEUAxEEABOEdAJ79bO9ugGfrBHUIgCC8A8A6 + Rg3rGGsxFRgHARAEAYA9EABB0AXAHgiAILwDwHMQ0PvpRLpW6zjYHgEQhHcAeN5lvf8KEwEQBwEQBAuB + sAcCIIgWFY2lwHiEAAgk2magVjsCrWNhHwRAIN5LbgdrQoDtwNfUTdNn2dMYBgEQCA8EiUVdFZ2vgnnc + OuvpMecEQCAtxgGmNKKvQbhxGOi/eSTYj5+DPqNHf5ch8nUsQQAE0/Luu7eIDwVVGKq7s/QvTffyaDMC + IBjvnXeReC5OWkvNevXha4O2l9WMBEBAj5qfGe39h0F0p/ecZdn7erwQAAH12ArYe+Rcd37rvGr0sJ6B + AAiqp1ZAlFFz73UWPUwHEgBBeW/A2VOUpb/eexoyr2kYEACBbTEt11qkwbIWXSvrOJkQAIF997V/s3VL + Onddg3Vte9DcvXWeNaK0btYiAIJrMXi1lYiDZN5jK1pDYB0nCwIggYyzAhHm/C3eexyy/8VjAiCJTCEQ + tfJLi8HVSN2cpQiARDKEQOTKL6qs1nnXiH7N9xAAyUQOgSwVYem6/0c0vWgdJwMCICHtS480O6BzybQq + Tgt4rOtYK8pCpzUIgKTUlI2wTkDnkK0P3OL5i1mXBRMAyWlQa49lwzpm5jlw7xZU1u3BBEAHdAdWs3aL + boGO0cMaeO/WU6QVj0sQAJ3RQJz3IJfoPTOPdk95P35NwWgdJzoCoFNa9qovec2DL/Szeo9eHn811mKF + pcYWrGNFRgAchL7w6rOr+S5qsqqCi/57KNdrsg5oLeU9dpKxa0QA4LDYHkwA4MBaLKrKNiVKAOCw2B5M + AODgvGdMsm0PJgBwaEffHkwA4NDUZLcqco1M06YEAA7t6NuDCQAcXs1iKUum7cEEAA5PC3isirxWpmXB + BAAO78jbgwmAShpEGv66bOYnwxyVxgBaLAjKsj2YAFhIya4mo9VvzLoj7Gh0xx9Ce/o79JJlezAB8ICm + dHSH0C90zn77o2ykyUS/k9qdkWtY5xINATChJqGa9WrOr9ktlqXp17Olod1Khu3BBEDh2STM0vTryRDa + +h3u8Xi0WzJsDz58ALQYALKOA18KbVWwlv34WhmWBR8+AFrsCMvQ9Mtm6MerhWV95lFF3x5MF6Dwbjaq + KWodB/MN/fi1YzFRRN8eTAAU3k+GydD0i876XDOKvjaEACha7AiL3vSLbuspu1bUerGuLwoCoFBltX55 + NaI3/aLzXp+/p8jbgwmAM+/RZJYF19FAqvW5ZqSxDOsaIyAAzjRwZ/3y1ore9Mtgz0U8niKvDSEAzlrc + cSI3/TLINuV3S+Q9IgTAiPXLq8Gy4Dr6/KzPNRO1BCN3BwmAEe+RZ5YF12mxSKs13e31e1d4ZdgYRgCM + eN9xIjf9ssiwCEg3Ds1aZFwBSgCMKLGtX3ANtgfX8V6k5UGhpEFjTfVmX+9BAEx4jzxn2BEWWYvNWkvp + O6Eg0rn0NrBLAEx433HUPLSOg3laLNKaI1M/vgYBMNHL9mD1R3u5W22x5VfHyNqPr0EATLQYed5iWbC1 + XbaX7of3Ii0Zpud66MfXIAAM3iPPLbYHK6gebZftpfvhsVlrmJ7rsR9fgwAweN9xPLYH6y6liqBzW9Ik + 7uXuZl3bIwrAI/TjaxAABo87ztSau476o2rG1yxQ2qL7sYU5n4GCcZies94D1wgAQ4uRZzU9rWONjfvx + XtORLbofe7AWaQ39eH22R+7H1yAAbvAeedYXdXoMfWkf9eNr6X2nx81I4Tj04xUG9ON9EAA3qOltVai1 + hoq4ph9fi8qCWwiAG1psD97LnO4HjokAuMN7WfBerO4HIATAHeNFNZkpyKzrAwiAO6yR56yYC4eFALhD + lcaqTBkpzKxrxLERAA+0mp7bmroz1vXh2AiABzSAZlWojKzrw7ERAA9oCs2qTBkdbasrHiMAHtAiGqsy + ZdTLsmD4IQBm2HLVXku6Duv6cFwEwAy6c1oVKiM2zWCMAJihxfbgPagFwHoAjBEAM7TYHrwFtsviEQJg + ppqHcmyF7bJYigCYyXt7sBcF0xGfZgsfBMBMUZYFqx8/PPaKZj1qKQA+Twth22N78LgfT7Mezj4rAD5O + CnHDVtuDh348I/Zo7KMC4MOkEDe02h6sZj39eOzggwLg3aQQN3gtC1aznn48AninAHgzKcQda7YHa+yA + fjwCeqMAeDUpxB1ztwfzV2mQwKuvTidmApa4tT14mJ6jH48kPqvuDwHAQOBMw7LgYXqOfjyS+jAOgLeT + /4k76MejA2/HAcA4AHAsr74EwDkEPk1eAKBPn4Z6Pw6AbyYvAtCn5+b/NADoBgDH8Nz8vwiAcwgwGwD0 + 7Xn0fzANAFYFAn17M67zFwEg5QUsCgL69Lz4Z+ziH1JexJoAoE9fBv8GF/8YlBfSCgD6cnX3l6sCKS+m + FQD05eruL1cFg/IDPCkI6MNHq46LWSjlh15P3gRATq+tOi5m4aD84PvJGwHI5b1Vtwdm4aD8sFYHMiAI + 5KS6+2XVn8UsHCtvwOIgIKeLRT8Ws3CqvBEPDgVyeWfV5Smz0FLekFkBIIebo/5TZqGlvCnjAUB8D/v9 + Y2bhLeWNNTX4w/lAAGJR3bw55WcxC+/RAc4Hsk4AwD4WV34xCx/Rgc4HtE4EwLZWVX4xC+fQAc8Htk4I + wDZWV34xC+fSgc8nYJ0YgLaqKr+YhUvoBApmB4Btqc5VVX4xC5cqJ6IpQtYJANtQXZs91XePWbhWOSlW + DAJtzVrhN5dZWKOcoPYO0CUAfKlOPVzbv5RZWKucqLoEbCUGfKguuTT5p8xCL+WkNUDI2ACwjupO9UDf + PWaht3IResYg3QJgHtUV8xl+3szCVnRR54uzLho4us0q/sAsbK1cpAYK+TNkwAvVBfcBvjnMwq2Ui9Zg + oVoF/GlyHI2+8/ruNxncm8ss3IM+iPMHojSkm4De6Dut7/bulX7MLIxAH1KhroIWF+mD04gowYDo9B3V + d1XfWX139R0OU+Evnb76PxfoPjBTaGKwAAAAAElFTkSuQmCC \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index b0b797b..2f96b1e 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -187,8 +187,8 @@ Public Class frmAdministration Sub Refresh_ProfileData() Try - VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, PROFILE_IDTextBox.Text) + VWCW_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + VWCW_USER_PROFILETableAdapter.Fill(MyDataset.VWCW_USER_PROFILE, PROFILE_IDTextBox.Text) VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text) @@ -423,7 +423,7 @@ Public Class frmAdministration End If If CtrlApplicationAssignment1.Process_DeleteAssignment() = False Then - MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, "Search Flow") + MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, "easyFLOW") End If Status_Changed("Prozesszuordnung gelöscht") @@ -463,7 +463,7 @@ Public Class frmAdministration End If If CtrlApplicationAssignment1.Window_DeleteAssignment() = False Then - MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, "Search Flow") + MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, "easyFLOW") End If Status_Changed("Fensterzuordnung gelöscht") diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb index bf7ca8e..9b34e9b 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb @@ -49,8 +49,8 @@ Partial Class frmConfig_Basic Me.Button1 = New System.Windows.Forms.Button() Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label8 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() @@ -213,20 +213,20 @@ Partial Class frmConfig_Basic 'btnChangeHotkey ' resources.ApplyResources(Me.btnChangeHotkey, "btnChangeHotkey") - Me.btnChangeHotkey.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461 + Me.btnChangeHotkey.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461 Me.btnChangeHotkey.Name = "btnChangeHotkey" Me.btnChangeHotkey.UseVisualStyleBackColor = True ' 'Button1 ' - Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG + Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'btnApplicationFolder ' - Me.btnApplicationFolder.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG + Me.btnApplicationFolder.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder") Me.btnApplicationFolder.Name = "btnApplicationFolder" Me.btnApplicationFolder.UseVisualStyleBackColor = True @@ -239,18 +239,17 @@ Partial Class frmConfig_Basic Me.TabPage3.Name = "TabPage3" Me.TabPage3.UseVisualStyleBackColor = True ' - 'PictureBox1 - ' - Me.PictureBox1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.searchFlow_boot - resources.ApplyResources(Me.PictureBox1, "PictureBox1") - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.TabStop = False - ' 'Label8 ' resources.ApplyResources(Me.Label8, "Label8") Me.Label8.Name = "Label8" ' + 'PictureBox1 + ' + resources.ApplyResources(Me.PictureBox1, "PictureBox1") + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.TabStop = False + ' 'frmConfig_Basic ' Me.Appearance.Options.UseFont = True diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.resx b/app/DD_Clipboard_Searcher/frmConfig_Basic.resx index edfce14..bca354e 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.resx +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.resx @@ -551,7 +551,7 @@ 102, 20 - 78, 16 + 77, 16 11 @@ -581,7 +581,7 @@ 8, 20 - 95, 16 + 94, 16 10 @@ -847,6 +847,231 @@ 0 + + + iVBORw0KGgoAAAANSUhEUgAAAyAAAADICAYAAAAQj4UaAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAACxEAAAsRAX9kX5EAADNSSURBVHhe7d1dyGXXedhxX1gVCrI79lSaTEZfVuQonjgd + jYqo0xurprjghhbKQFNKBaED7kWr1GBosS4aOhWCmlAji140Ma6gvrFKXbdFti7U1q4vQi0bE4ORoRAo + JoRQ6gsRTHzzVv/zetnrfc6zz9lnn/19/hc/ZmadffZZ7z77ldaz1/Os9Y4vPHbzTJIkTeeVJ2+enX3v + /M/sdXz6oQ+cPXPfA2dP3Xvp7B3veIcOxPW9duWuC20P3X1Peq2lr/z6zbM//Z/b7R+7dP+Fe2gM3LfZ + /Xv9nndt9W8pDEAkSZqBP/nSzbOv377Y9rlHb5w9/e7LZ+9558WBhw73zS8+fvbJ39wePL70yAcvXHOp + +PG3bp59+cMX2z5x9X1b99AY3nz1+tntW5e32pd6/xqASJI0A999/ubZH/7udrvBRz9efO6Bsy999tGt + 9o9feXjrmkv4wRdunn37uYttDPjjPTSGl194eCO2ExDV/VsKAxBJkmbg9d+YT8rHGn3kQ+86+6OvbQ8e + mWGK11zC7//WeRAS20l9ivfR0G599NJmFiS289+H2L8lMACRJGkm5pTysUZvvXHj7IlfvudCGzNM9fWW + Cn4X+Z2M7bfee/XCPTQW6kDi/bvUOiYDEEmSZoKnrTx1rdumSvlYA4p2qfsg9YrZDwKQLI+eAv/6mksF + s5LMTtZtn7r22NY9NIbXP/9YWse0xPvXAESSpJkg3zxL+eApZxx0KEeAQa486So8Mab4/M6zVzcpWNnx + YHWxeM0lUJdFfVZsz+6joXEfr6WOyQBEkqSZmFvKxxIQWDAwI9Ag4CDwIADJZjqasLRxvOYSWJmOFepi + +xTLYa+pjskARJKkGSHlgz0I6rapUj7miBx40lBIRyGligEZT4Vpi/skHIIlj+trLqFpjx5mzbL7aGjc + 83E2b4l1TAYgkiTNCCkfcelPBsf1gOOUEFQwm1HXcRB8MOsRC3KPQZBXX3Op+OFr23v0UHeR3UdD4/eA + ez+233nw8Qv9mzsDEEmSZoQi9CzlY4qlP6fCkqPs21HXcfBv2rPj+0CaW7zmEqgB+f5nttvH3KOnpBry + O0EAHl9fWh2TAYgkSTNSUj5i+1QpH2MogysGVrGO45i0qkMQ4MVrLoFVsJgFie3UXmT3Uh9KqmE981dS + DbOZv6XdvwYgkiTNTJbyQYpFHHQsVT24YmC1b3A1NJ5kL3VDN42DwDju0cPqU9n91FWXFdxqS6pjMgCR + JGlmSPeYOuWjT6WOox5clTqOtoOrvrGKEQNI9wBRG0Ps0cO9T2phXMGta6rhkuqYDEAkSZoZZj/GTvno + W6njqAdXQ9dx7EKKCnUeSyvW1TywMAQLRMT2Q/boYXavpBoy61dWcOsr1XBJdUwGIJIkzRCD9rj0Z98p + H30aenB1KAaGpFXxVNgldnUslsbO9ujhHsvuP4y1glvBPR/7N1cGIJIkzRArYcWUj6mW/swwuIpFsgyu + pqzjYIaIII3UmPq6SX0gANm3Rw8zfLGOg5m/sVINl3LvG4BIkjRDLP15bMpH344tku0bdRysDmYdh8aQ + 7dHzn/7Gjc3vQKzj4Hclu2eH9omr77vQv7kyAJEkaYZ40squ6LF9V8rHkOYwuCp1HKZVaQpljx7+JBhh + RoTf0a++9P7JV3Aj8FjSzJ8BiCRJM8UAJy79yUAjG4gMjeBj7MCj1HEsbXCldeJ3kd9JVsRiJqSkYxEU + Z/fvUEqq4ZJn/gxAJEmaqTLQqduOXfqzK/LYmf3IXuvTGgZXOi1D79HDzB+phmtawc0ARJKkmSLVgyAk + tjMgyQYqQ6K4llmQ7LVjrHFwpdOT3dtdncIKbgYgkiTNVEn5iO1jp3wU1IEcm+fO4Mo6Dq0NCyJk93sb + ZQW3U0o1NACRJGnGKHLdt/TnWMoyu9lrTU5xcKXTc+gePae+E78BiCRJM8ZqOyzJW7cxc5ANaobGcqPs + +5G9Vjv1wZVOD/d69rtQ1Cu4Ze8/NQYgkiTN2Ndvny/9GduPSfnoiv0+2HQwtjPLweDKOg6dMn4Pyu9E + vYKbqYbbDEAkSZqxV568uam94M+6ncLtOggYCzueZxsP1n2TThGzfjDVcD8DEEmSZu6Hr53PhNRt+1I+ + hkIKFqlYsd3ZD0ltGYBIkjRz3//Mudhep3yMhSJ0itFjOzMysX+SlDEAkSRp5l7/jfNZkNjO6lIxEBga + y/CSEhbbKbKN/ZOkjAGIJEkLwKCffUHqtkOX/uwLhehsTBjbLbaV1IYBiCRJC8BKWOyMXrdR7BqDgDG8 + /MLDZy8+t10E7xKjktowAJEkaQG+/dz5niCxneU+YyAwtNu3Lp+9+er1rXaW4o39k6TIAESSpAVgN3R2 + RY/t7DUQA4GhXbty1yYljD/rdoKh2D9JigxAJElaiB9/6zwQqdvY6KwOAsbCDAgzIbHdPRAk7WMAIknS + QpCCRSpW3UbhdwwCxkANCLUgsZ2AqO6fJEUGIJIkLQRF6D/4wnY7S+DGQGBorILFalixnZSw2D9JqhmA + SJK0ECzDSxpWbKf4OwYCY3jrjRubfUHqNjZHjP3TdEjZYx8ZdtL/7vPNeJ3jkJ1H6pMBiCRJC0Ihehwk + svxtHQSMhR3R2Rk9tn/6oQ9c6J+GR3DKDBk75rNkM4EqCwWwgSX/RhZ4FOUYjud9vJ9/cz7OG/egkY5h + ACJJ0oIwIGTAGNtjEDCGO89ePfvSZx/dameDxNg/9euVJ88DA+qCCEoJGEjP494gQD02YOD9ZdaEQITz + 8zl8Hu18fvY+qQ0DEEmSFoTBH0+pY/tT927vTD60j3zoXZs0rNj+9Lsvb/VPxytBB4EGsxT8yaIEcWW0 + ofA5fF6ZJeHz6U92rLSLAYgkSQvCIJTBX3wCzaxDDATGQCE6gUhsr/um4zDwZ+ahpEUx6J96BoIZkhKM + 0C9m5kzTUlsGIJIkLQyDPmZC6jbqLmIQMAZSsEjFiu13Hnz8Qv90OFKpSvrTnAf4JUAiMOZPAxHtYwAi + SdLCkJfPgDS2swJVDASGRhE6xeixnZW5Yv/UTgk8qLmYw2xHW/STe5OAyUBEuxiASJK0MAxQGZzGdmov + YiAwNJbh5cl3bGdvktg/7caAnboKBvBxw8klKYEI9wWB8lICKI3HAESSpAVicBefMLMLeQwExvDmq9c3 + GxPGdnZpr/unZmXAzp9DDdj5PkiNe+a+BzYzVCxcgDYzZ+VY3sf7Oc9Lj3ww/ZyiDqhiyqBOmwGIJEkL + lK1AxIAwGzwO7eUXHt6I7exPUvdP26ifoKaHlKu+V7PifmBxAmbGHrr74oaRfSF44fx8TtP+LwQfzNhx + zzobIhiASJK0QKTokGcf24caaO5y+9blzSxIbP/Ypfu3+qef4Ttk1qPPdCuCAGYpprgPwOfy+TEYIfAo + K3k5GyIDEEmSFoin5QzmYjuD/mxgOKRrV+7aDKT5s25nMBr7p/PBOLMBzHz0MevBTAdpUVMFHU3oD/2q + U7UIPrhvs0UUdDoMQCRJWijSWuIAlrSnbDA4tG9+8fHNTEhs31cncGpKyhWzAcemI1GHMUXA2QX9LEsz + l2tA2pkpWafJAESSpIViEBvTdyg0zgaAQ3vxuQc2e4LEdgrj6/6dsjJrdWzKFQP5KXa+7wP9pv/1LJBB + yOkxAJEkaaEoQmcQF9tZAjcb/A2JVbDYFT22U6Ac+3eK+K4IPuLCAYdgNmmpgUfEfcHPU+pC+khF03IY + gEiStFAsc0rtRWwn7z4b9A3trTdubPYFqdtYJSn279SU4IP9W7LX92FWi8Lu+rquBffqd55/wiDkxBiA + SJK0YKSwxIEtKS7ZYG9o7IjOzuixvWl51lNQgo+ug2u+y7kVl/eNn++//qNfMQg5IQYgkiQtGKsJZSsK + ZQO9od159uomCInt7BER+3cKCAy7DqrXPOvR5L/89uOb62VNyPoZgEiStGAsa8osSGwnxz4b5A2J9CvS + sGI7dQuxf2tH0MFgukvNBzNGU9TxzMFXX3r/2f997QmDkJUzAJEkacEYqFEHEgdszDpkA7yhUYj+kQ9t + D57rvq0d3wVLJHcJPlhGmbqZeP1OyX///PvPfvAfb6TXR+tgACJJ0sKxn0LcXZqn6NngbmgsxUsqVmwv + e0CcAr6PbJf6faYKGueGDS3ZWf8bv3M9vU5aPgMQSZIW7rvP5wPeKZ6kU4TOpoSxnXqG2L81oh4nS4nb + ZykbCo6FWTTS+f7t339/er20bAYgkiQtHPUGpPzE9ikGtTy9JiUstlPTEPu3NqXonOWRs9ebGHzk2Fmf + IOTvPPrz6XXTchmASJK0AtnAl13Is4Hd0EifYfAY21nZqe7fmpS6j5gKt4/Bx26k9LGyGtcpu35aJgMQ + SZJWgB3RY9EzO01ng7qhvfzCwxuxnYCo7t+akHqV7Uq/i8HHfsyosbABAS2bFmbXUctjACJJ0gp8+7l8 + ADzFJnYMFpkFie1rfYpdUq8OWTp2qt3ql6ikYhGMrDmIPSUGIJIkrQDpVwyCY/tUm9lRB8KAsW4jGIr9 + WwOKzgkAs9cyU6XGLRlpWGVW7ZRWVFsrAxBJklaCGoS46zb7SsTB3BhYCYsVsWI7aWF1/5aOtLdsAYAm + Uy2PvHRscklQy5+s7ra2++jUGIBIkrQSLMXLkrx1G4Xf2YBuaC8+98CmgDi2s9dF3b+lI/ggBSt7LeK7 + mCIlbi24p5gJ4e+sqrbmRQ3WzgBEkqSV4Gk8m+DF9qfuvbQ1mBsa+zhQPBzbn3735a3+LVXT9W7Czx6v + h9ojpY9akLLT/qnsLbNGBiCSJK0ERdCkqcT2sQueSZMh/aqkzNSvkT4T+7dUh8x+uMt5P+LMmvUgy2QA + IknSilAQHfeiYJBWD+L6xpNpViqiSJjVrwg8SJW58+zVrUJ0UAdR92+JmP1ou+M59QpT7Eq/RtxPdWBL + SpupWMtjACJJ0oqwHwVie98DYNJgeBpNsTkDQgIPApBbH92f7rWG/RxIvYr7rjQx9apfzIDU+8yYirU8 + BiCSJK0Isx/Zk/ljB8E8cWZGg5kN8vCp72AgyMxHNsuxCzUpsX9Lwkpj2ZLHmaFnn04RwS/3YN22hlm1 + U2IAIknSyjAjETfFO7QGgaCCOg6CDIINBnwEH7TFuo4u6r4tTdMsU2Yuq14xaOe7Y9YqIojs4zsdEzNu + 9TLPSw9qT40BiCRJK5OlB7XZf4L0qbqOg/QqBqhl1aE+sT9J3b8lyfZbyUy94SDfJwFkmbEigIzBB/ie + yzF8/0sIRsps3IU2C9IXwwBEkqSVYVdu9gSJ7fFpPIEFA7lYx8ET8fq4ISw1b5/Ao+3Gg1PNfvD9EUyA + AKNtQFEHLAzu5xyI0Dfu2Tr9j+udfQ+aHwMQSZJWpmmQfPvmL2zSVmIdB22H1nEci43kYv+WoG361RSz + H3yHBJN8r3V60qE4D4ELA3z+zI6Zg5iGBWdBlsEARJKkFaJImkCEonQGzAQkP/rWE5vgg1mPIdKq2qAY + nnqUpRYNU+DfZu+PsWc/SmE2AWVfwSTnZJCPsQPUNriP+XnrNmtBlsEARJKkFfrBF86L0akH+e7z54Nm + 9qOoB2tjYKaDZXfX8GT6yx9ut/rV2CtfMQvAd33MrMcuDPKZVZkqaG1Sgq7Y7opY82cAIknSCjFYjith + gYAgDtj6xJN/6jsoMl/bBnEU9hPQZa/Vxtz3g7qNIYOPogQhc5sJIQCJgdHHLt2ffi+aDwMQSZJOCMFB + PVg7FhscMuCm5oEZluwz14JUNmaTstcKgq7sOg2BQmwG4EMHHwVBCOlY2WtTIaUw/vzck+6OPm8GIJIk + nRBmJurBWhfk2S+5jqMrZj/21X+MWXxOwXm9I3gXzFgxY8D3SepYRDuvl5oWApA5FabTl+wa8D1k34/m + wQBEkqQTEwdr+5C2xcwJA9LsfKeCVKcsra1GcJZdw77x1J+UqOy1NggqDg0g+f5ZSY3rMJd6EFLQCMRi + O7Ny2c+geTAAkSTpxOwbJJen4jxFNpXlXJsC9DHTrwg+GHxnr+3CwPzYVLlv/ssbZ3/wyjxSscp+INlr + 3rvzZQAiSdKJYVWqeqBW6jhIt1l7HUdXpF7tK0AfK/2K2Y/sqf8ufMd97T7PLBDB2PN/+Rc3580+b0wE + IFlx/JJ32187AxBJkk4MqTfMghCIuGRpO6yAle0uX2PWKA6Ch0AdxiGF56TQ9R1Yci0oyuf+mToIIRjL + ZoOWutv+KTAAkSRJ2oPVr/atgDXG5oMl5ajtcrgEH0OkItW77U8dhDQFIPzssd+aBwMQSZKkPfYFIGNt + 8nhI+hVBwZB1EGW3ff4+ZRDC8sBNK3NZBzJPBiCSJEl7sLP812/nr6GP5Y3bYKDddhncoVctoyaG1LTy + 77GuQbTrmpz6ym1zZQAiSZK0x749QGJh/1CY/bh9a/9O62PUP2SzQmPuAl/sCkD4Xur+aR4MQCRJkvbY + F4CMNfBuqneoDZ16VWQBCJ87dirWrgCEhQHq/mkeDEAkSZL22BeAjLUBYZsAZKyn/t9+7jw1LbYz+5L1 + ayi7AhC+l9g/Tc8ARJIkaY99AUg2+B1CmwBkrL1cshkQjFWQX+wKQJiNif3T9AxAJEmS9lhKAEIqWNa/ + ITQFIGAJ3Kx/Q9gVgCDrn6ZlACJJkrQHAUjTKlhjPvF/+YWHdw622c0+6+MQ2IyQNKzstbGK8rEvAHEp + 3vkxAJEkSdpj19N+lnrNBr5DuPPs1bPXP9+83O2Yy86yEWHTrNCY12RfAOJSvPNjACJJkrTHXAKQj3zo + XWdvvXEjfQ1Z/4bw5Q+fb0SYvQZmHbL+DWHf0sQGIPNjACJJkrQHqUakHGWvjRmA4I++9sHGAXfWvyEQ + jDVdjyLr3xD21cUYgMyPAYgkSdIepBpRB5K9NnYAQrpRUxpW1r8h7Eq/KrL+DYEZoSd++Z70NRiAzI8B + iCRJ0h5f+fXzQXf22tgByLUrd20G3aRjxdey/vWN2aCmYKwW+zYErsXZ93Z/lgHI/BiASJIktcBA95Un + t9vHDkDALAipR7E99q1v/PzUfuyb/UDs2xBIvXrz1evpa4UByPwYgEiSJLXww9fygfcUAQhP/qkFYVWs + un3oTQjZ+Tzb/Tz69EMfuNCvofDzf+mzj6avFQYg82MAIkmS1AJF19lKWGMNtiNSsJiVqVOxPnXtsa3+ + 9YXUK9LQslmg6BNX33ehr0Mh+IhBWMT3k/VR0zEAkSRJauH3f6v56X828B3DJ3/z/gv1IB+7dH/av2Px + s5N6RS1M9npEP2Jfh8AsUFYLU8v6p2kZgEiSJLWwa++LbOA7ljoIec8770r7d4xDgw/Qj6yvfWLlq117 + ohRZ/3QR9zbfM7N8fNf8PTuuLwYgkiRJLZGClA3Er9+z+yn80AhCSMciHYn0p9i/Lki1KgPSQ4KPsdKv + +Jl37QoPvpesj6eO7/brt2+eff8z57VN3DvM7pFmR9u+PV6OZQAiSZLUUlMdyFP3Nm+ENxZmQEhJ+oNX + rm+eaMc+HoIn4ARbLLfbpuaj9tDdzXty9IngY1/9B99L1sdTxAIK3Lt8pwQcBB78Oy6ssGvJ6b4YgEiS + JLXEU2MGbrH9mfseSAfAY2N1LJbo/dG3ntgES22Wyy0INAg8+PkYgHZJw/n4lYfTfvWt7P+xawNC8L1k + /TwFBKHMaDCzwSwW3yn3BPfwvqDy0FmvQxmASJIkHYDBWZxhGCvtqK1funrP2Xeef2Iz6CwDTwajBCQR + T8EZpJan4l3z/1kCeIzaD5B+tW//D/SVjrYEJYDku+Y75z7le6Xt0Bmxko6VvdYHAxBJkqQDMMAjT75u + m2op3l1K+hFPshlM0m/SbyJ+li6D1NrnHr0xah0M6VcEIdlrtbUvwRvrOPg++a6Pnb3gfiAIyV7rgwGI + JEnSAZg14AlzbB/r6f8hhlqWNxpr2V2QdsVgmzSs7PViiBXBpkZgEes4CEAIRLLjuyIYZQYle60PBiCS + JEkHIgCJg76n3305HQhPbeggZMzgA9S47Nv9HHwfWX+XhECgzEbUdRy0Hbo4wKH4LILt8m9S7KjxYbar + Pq4LAxBJkqQDMQDkKXTdNlYBdhcMxvsYONbGTrsCsx71xou78H1k/Z4zggoC21jHQVrVMSlyXXzvXz9x + 9j/+xa9sAsx6ZbM+dts3AJEkSToQA0UGh/EJcT0AnhsGkXcefPzCz9EVg9ApUs5YdvebX3w8fS3i+8j6 + PmcEGtxX2fK4Y+D+uPXeq5vA8vaty+m15vXsvYcwAJEkSeqg5OLXbWPtgXEMitO7BiK8b8o9T9jn5NZH + 93/+UjcgHGMPjhpF+swUZd9pWeo41tr0cW0NQCRJkjrIZkF4OlwP1uaMgSSDz30rRfE6+2lMHVxR+9F2 + 9mOJ6VcF99RQe3AwK8TSxKTktZnBYqljZkJi+7GzSwYgkiRJHcVZkLmnYe3CU/Da2PUdu5TajzazH1hi + +lVB/Udfe3BQp0O6HIFxlwCSoO/lF7Zrm47dX8UARJIkqSNmQeKKWHMauK8Fg2D2/sheiwie6u9oaY7d + g4M0OWas+rgPCfhIe4vtx66sZgAiSZJ0BIIPgpCyLOrcdkVfOla8YvaD/T+y16Ol735+6B4cpY5jqGWg + qQOJ1/7YPVYMQCRJko5EGlbZHZ20lzluSrhUb756fZMKlL0WkWYUv5slintw1EodR1wedyhNu84fs8u8 + AYgkSdKRylPrMmgkBSYO2HQ4Ag8CkOy1DNc9fjdLRDBLfVFsnyK9j6WPs40fjyn0NwCRJEnqAYXDJRXL + WZDjldSrNpsOguvd92aLUyGt74evbbdT35L97EMq30NsP2aneQMQSZKknlA8XAqInQXpjlWvKH7m6Xv2 + emYtsx8giKX2otQVFcw6ZD/70JoCwbpvhzAAkSRJ6klZFYvZEGdBumO/jyztp8maZj8KZkDq1dVA3UX2 + 8w+N7yILBrtuaGkAIkmS1CM2kaMehMGjsyCHY7BL3UfcgXuXpa98laEGpCxsUJsiqKUIPVsGueuskwGI + JElSzwg+yo7WU+8gviQMdA9ZchdL3/ejCQsaMJsW24dabncXvg9SwmI7RfGxf20YgEiSJA2ADeUIQn7v + r0+TNrM0JfhoW3ReHLMc7Nwx6GeFtbptqn1mmJXKdqLvkvpmACJJkjQQUmgIQv7Z0w9tDdz0M12DjzUV + nmdY0IBAtm5jH5DsWgyN3eiz/Vg+de2xC/1rwwBEkiRpQH/4u+dByN/+K+/dGrzpPPjgST9/Zq836Zr+ + syQsZsD9E9unSOu7fetyuifLrfde3erfPgYgkiRJA2Mm5M/eDkIOfcK/dl1nPijEXnPqVVEWNIjt7IKe + XZchsSgAgWJcHKDL7vMGIJIkSSMgleZHbzyxeZJcD+BOFSk9XYIPrHHVqyYUohOI1G2kPWXXZWgsj5zd + v6SF1f3bxwBEkiRpJAQhf/p2EHLIBntrwxN0lnQlnadL8NEl5WfJSMEiFatuo/A7uzZDowYk25/l0IDQ + AKRnLJmG7DVJkiSeZv/x1351Mwg/ZK+LNSDgIPDo+rOTepRd0zUjaC2769eogcmu0ZBYBYsd6mM7SwPH + /u1iAHIk/iNCVMqNQV4csptEkiSp+PdP3Dj7xr97fDOYy5Y2XSNmfRgnZSsptcGAe227nbfBMrxct9jO + TFB2nYaW7dNCTU7s3y4GIAfiJiASZTqMnLwSdNSyYiFJkqQag+nf+ScPbAZ01EOsdTaEwSq1AwRbXYvw + TzX4KH742naGzZ0HH0+v1dCYvcpWLDtkUQADkAMx25EFHVEsFpIkSYoYtP3a9Xt/OkBfW4E6sx3HBlin + HnyAVdS++/x2e3a9hsZMFkFIbP/4lYe3+tfEAORABBZZwBFlN4kkSVLE4JpBdlmSlmBk6WlZ/CwEVPws + XWc9YPBx7uu3z2dBYju1F9l1GxLfJ/dpbH/q3ktb/WtiAPI20qpKHUf2ekSKVQk0SMMiHYvItA5A/uRL + +XslSZKiEoQwS1BmDVht6JjB+xRK4IEsTecQDK4NPs698uT5+JI/63ZmHbJrN7SmdLq6b7ucZADCl9dU + x0GEmb2nxuwGAQuBS2krN0atfo8kSdIuDLbLBnN1INK098Jc0Nc+Aw+c4mpX+/BwO45TSeHLrt/QCI6z + paSpS6n71+SkAhBmKZi+ioFCjWOy97bBjVGfq00wI0mSVHvmvp+tEsXgnoFeGdwTlMQViKbCE3AGoiVI + 6iPwwCltMngIHoDz8Dy2swJVdh2HxHfNdx7b2+7RclIBSNOqVbUsv64tboz6XMcEM5Ik6XTxJDkOLJkF + YcDPGIO9NAhMxk7RojaFgnKCIQIP/t5XH0hBO2QlpVPDKliMZWN7mTUbE4Ex92Fs5zuM/cucVABC1FgH + CEWp4yAtq06rOhQ3Rn1OC9ElSVJXpGRlRcYl5anMPhAMlJSYvovXOR+zLqx6VD6LoKPvlDCenFvvsR91 + yHGsyoxRdk2HRhCc3QdtvseTCkBIiaoDD2Y7+l4ul9oQl+CVJEl9+dS1x3am2TADUZZGJUBgjMPgkBQZ + ggcQsBBMNOH9HEdwwfvq8xDc8P4hUr8euvue1nUDOl8wiQfmddtLj2zvTD4G7hXE9jYpdCcVgFgoLkmS + loinynVtyD4EFTydLgEIwQmBRROCjHIs7x06tYuAip8n+1nVrGnVVgK57DoPifuLADW2t1lA4KQCEMQi + 9LirZIaZE1K0KDIHtR3HpGpJkiR1wdPuKXL++0T/Tbfqhiwb0rBiOyls2bUeGmNpUgLrNoKh2L/o5AKQ + uF/HrkJxZkziylY1azzWJ/ueu/jj/9Du3PGYPn31b948+84/P+/Ln71x8XNp+96nb5594x/m743e+trF + 92Pfe//fV7bf89/+Xn5sEfuJ//xX82Ml6ZQtMRChv/Q7+3nUHnXGMd2fNL3smg+N2bNs9bN93/PJBSB1 + oTh2rXq1K/gomArL3qtlyr7jLqYMQAgMsoChCccSqGTnKv7Py9vv2/UegoZ4PAh6suPxyl/aPp6AJDtW + knSOgR6pTFMsxdoGT8PpnzMe/SErJ44/ub7Z9R8aKXuk78V2Nkis+xedXACCeoDTFIDEgvUmTIPFXSm1 + XNl33MUUAQgDeD43+5w2mLFg1iQ7N8FGPD77GYv/9cnt48FnZMeD2ZF4PIFPdqwkaRtPwbNVs8ZGMMRs + B/3J+qnjUITOQ/LYzhK42fcxJGqFWLAgtnMfxv7VTjIA4YsjwNgVOMQlewlUqPvgfQQd9Wu0ZefQ8tTf + 6zHGDkAIHA6Z9WjCjAPBQzx/Fhzsmp3IZkyKppSqLMjZNzMjScox+CcIGKs4mc+hDsGgY3iMR/l/ZGw/ + ZJGCPrE8c1whjSA09q92kgFIGzH9qi46jxsOWguyHvX3WjAIPlQ2iM/OHY/pgpmPrHaixswDQVGRHVPL + ajWy45qCiV39ya4NsqBlX82IJGk/0rQIDBigPnXvpaODEt7PeTgf57WuY3w8GI8LKbGccfZ9DY0V1ljG + Obbv2lTSAKRBDEDqWY44O2IAsh7191pkx3Ux1LmbAgqCAIKhLEggaCEQaJo14b0cU78n+5ysED2bLan9 + 73+z/R5kfYl9kCT1hwEig1YQTDQhyOAYdymfDxZRyhZSikHAGChCJwiJ7dw7sX+FAUiDuFoWaVcEGjH4 + QNNSvqxQQJEQwYxByjLE7xbZcV0Mce5dtRZN9Rw1BvhN6VIxUKCAPB5DgFMfA9ricbUsdYt+xON21YtI + knTKeDCe1TFPUQNE+hVpWLGdWbLYv8IApEHJr9uHpdCy98fVtrJioSF89pEPnv2D+x86+7V733N2+Z1/ + bnMD8Cf/pv33Hv2L6fuacPw//vlHzv7We65cOCceufvnzv7an/8LB5/3Xz30gbO/e/na5nycg3P96s+9 + 66d9/Ke/8Ivp+8Bx5fML3pMdW/vtB35p6338LLHf9XdW1K8fY4hzZ7MG2ezFPk2zKPXsSRbs8L76PCBw + qI/J0rFicJTNmjTNlEiSpPP/V8Z6ZlafiuOdMVCInm1eWfetZgCyQ6z1iJgViesw1+LxQ66WxUCaICF+ + 8RGDbgKK7Bw1jiEgyM6RaXNe+tj2nAQmWWDBZ2THxuOi7Npk54/fGeIxXfV9btKfsnO23dujRsCSBQr1 + srnZ0rpxNiObychmROLMSZtjJEnSz/BwOy6ERJpcHO+MoeykH9ubFiUwANmDFKq46hWyTWCiXXUkfWJG + IZsZ2IUBeXYuECjUMx2HaApCOOehfUQMEpr6xjWoj6sxKxSPB+3x2Pr7KuIxXfV9bmYI4vmOSVvKUqzi + +bIgpZ5tyWZJCFzirEg8b5YG1iaFTJKkU1VKA2L7WCuf1W7furzZlDC2szJa7B8MQFpg5oLggS8aTTUf + UZxB2bXrelddB/bYlbrEa9l79iE4yAb22fnoN6lYvEYqVwwseD2eB9lsxq6AKvvspuPr76sgPWifNilP + 2bmz49rK0qaOmTVgwB/Ph/qYfStVxaCoBBpZcFNfsyyVrLwmSZK28SA8KwWYYof8a1fu2vy/mz/rdvYm + if2DAciAuDHqAVVTvcgxGLjXXzQYuFNHQXDCMaUuJJs5yIKFgtQmECRwvvpY/s5sR3ZOPqs+D0qtx65j + QK1GqTUp/Y+Y7ajPBY7PjkXWx6YZk/r7OkQ9CG+SvS87rq3sfG36scu+c+5LlYozJCWFi3PU7SjL8WZp + W1ltiSRJuogsnXqrCHzi6vu2xj1jePPV65uZkNieLdN88gFImd1oWs6si/qccWAVb5JjZIXVBCTZsWDQ + HQfju45vCgBqbfsQj9lVaI59nx0DGmTpX1nNCAFOPK6I31dbpxKAZIEEsyK8ls2g1PUoMTgpRebZOa3/ + kCRpvx984bxcoG5jwB/HPmN4+YWHN2I7AVHdP5x8ABIHPtkxbRB0kHIV6z4idmHP3t9Floq0b+CepSO1 + CTR2iefLBvgxYODfBAe7ajd2yX6OLPDJit53BT/Zd9bGqQQg2WwF6VO8ls2OlPchpm+VAvbsfV0K6SVJ + OjUEHwQhsZ3Upzj+Gdqtj17azILEdlLCYv9OPgBhDeV64NO1UJwApD5Pk6xYqKuutR8RsxjZ+cFgnUAn + DuT5N+1tZxiyYKlGQML7SPfinPuCIl7PzlOniWWpWnxOfZ4o+87amCIA6bsGJJuJQDwuFpSDwCS2l5mR + Igs0mDXJ6kqadliXJEk/Q2YNaVixneLvOAYaA/8PZ1+Quo2i+Ni/kw9A+iwUj8FMwY1Rpsj6TMGqv9xj + ZPUYDN67BjhZAELAcMj5SBVrqhMpsqCmfs++1zPZ95cd10Xf555iFSxkn5stCRyDoWwZX46JBehlRkWS + JO2XrczK8rdxDDQGVsJiZ/TYHnfRP/kAJG4YWO8qyWsEJLTF/LpMHcyU3c/brpjVRfxyu4qDcoKFrHC7 + rSwAKefdNxMSMSOSnQtZ/UmZ4chmSPiZaI/nqdX3QpEd10Xf5x57H5Aim8nIZkWyWYwYbGTvizMnkhTV + tZZ9ZhZIS8TvAGPOuu1zj27vTD6GO89e3ewJEtvZILHu38kHIIj7fGR1HFl+XcTsBv9B5D+M2et9Y6Af + v2CCiUPFFCwG/fG8fBapURxb8N5sFa6mAKQgCOBcvJ9j982M7FupKx7P7A3nju27gpkifu/IjutiiHNn + y9cSSNRL3LbRZif0omm53lrTLEY2yxIdk0Ymab14oFfXWvJwsDz4G+v/u9KcMO7kATm/C/xexNefuvfS + 1lhoaOyGzq7osf3pd1++0DcDkLcRXNQDoCbZe6eUBQoMvLNjDxEH9fsCivrYNsc3IXDIAppdP1MWaDDL + kgUmuwKZYsjvfYhzZxv/gZmFNhv5EahkNRgoq1RlsuNr2cwJmmZtascW0ktaB1JKSoEtDwpJM+FJb3zQ + x8Cra/2mtCTc9yxmxO8Bvw8lxZ+2LMX/mfu2dyYfw1tv3NgEInXbe95514W+GYC8jf/AZQOhKObXTY0B + df3lgjSjXStLMfuwLw0pnnNfUBOPbwpA6FebICCeb9fnZ6lWGYKS7P1R9r1nx3Ux1LmbZi+YCWE2IZvF + IPAgeMlmUMp7d82iNH1m0ZQGxjmz42vZ+ySt36GDq4JZENOwtFZ1OQD/jywp/m3GpHce3N6ZfAykYJGK + FdvpT+mbAcjb+BLjIAhlenfIOo5jNdVU0F4HIgz8GcgzM7AvSIn1H7ynKWjJ6jCyAIT3l1kJ+tYUiGSr + au3bM6TpGtRimlmT7D7IjusiOzcBwqHiDAGD+qx+o8aMCEFDkR1T2zcLQT+y9xVdg5es6F3SepU6jnpw + xUPBQx74cewQG/1KU+B+5negTjXkd6TrLB8zD9m4aEgUob/++e0ieGZkSr8MQH6C/3ihfMlLySdlYN9l + tSqCjKZBeTag53hSvghiwN+zNCdkAUiWWkW/+axyvuznoC2eK8qCoFqbcxT1YLjIjusiO3cXDP7juUm3 + aprNOASBTNmhfJddqVQEGNl7il3BS1PqlqR1YHAV6ziOGVwVzJb0ucqkNBbuW2b5YqohbX2MRam9yMZG + Q2IZXtKwYjs1KaVfBiAr0DUIaZrZYHYizoIcIgYg+wKEJvtmampNwRCYVcnek4kDYmTHdZGdu4ssAAGz + Dm1mN5oQwLSpG0G2pG7R1L9iVxF7m+BH0nIMPbgqSqpW9po0J9z3ZeaP34eSanjozF9brD6VjY2GRiE6 + GxPGdlbnol8GICvCTEL8opsw49CUVgUG/rsG9QXBRtaWnS+bBWnCOdrUixRNPzs/Q3Z8k2xQnB3XRXbu + LvYN8JmdOGQ2pNSKZOfapekz2gQxTSljbQMgSfNUBlexjoPB1ZAzFJyfz6nbGOi8dMD/R6ShlBXcYh3H + GCn+7L+RjY+G9vILD5+9+Nx2ETz7k9AvA5CVIahgMM4Avg4g+DsBAK/tCjxqHMfsQQwySupUSeGqX0MW + gBTlnLyf48pMC/3j3wRGbWc9apw39gP8vNnxTeKAGNlxXWTn7qJtsMBgnmOZFYkDftpId+qyZ0iRrZ5F + UJIdG2WbGdLH7FhJ83ZMkWxfCG4IdihyZQfo6/ecZwXUKR/SWEodB0ExvxNTpvgTgExRB3L71uWzN1+9 + vtXO7yf9MgDRKjBbEm9ytA22JEmHY3BV13FMMbgixYRAg5SPuPQnsvdJfSqphvXMX0k1HHLmL8Os3yeu + vu/sY5funyTwKK5duWvz3wf+rNsfuvueTT8NQLQKWXoXsyzZsZKkfjDbMWbtRRlcUVgbB1cs/bkr5UPq + S13HUWb+hqzj2IVUQ+5xZhYY3Mf7f0rMgDATEtv5PTYA0eLUsxpNtSWkdh1SQyJJOhypVjzpzV7rwyGD + K5b+/OYXt/c9KCkf0jGaVnCbYqsGUg1Z0rakGs4VDwSoBYntPEQwANHitCm2P7T2Q5J0OAZlpJxkr3XV + dXBVUj5iO+fJPkfahdSpUsdRr+A2ZaphNvM3Z6yCRWpkbCc9zABEi7MvAGFGJHufJKl/DM6OyXOvB1fZ + f9MP0ZTyUZb+lJoQVMQ6DoKPqes45pZWdSj2A2FfkLptE0RlP7g0Z7sCEOs+JGlcJfc9ey0z5OCKdI+m + lI+sLxL37pQruBUl1XDuaVWHYkd00iO3XssugjRnMQCh3oNZj6ad3SVJwylpKtlrqOs4hh5ckfKRLf1J + sJP1TeL+JfDIXhsSM3+kGrKCW7xf1+TOs1c3C0RsvZZdFGkJDDgkaXqkp5CuEtup5ZhicMWT7JjyUZb+ + lKIh6pgyu1ZwWzOWxiYNa+u17CJJkiS1xQAupq0w67E16BgBK2FlKR8MAOv+SQUBdN9pV2Xmbw11HMdK + 9+jJLpokSVJbFO6SO1+3MQC7MOAYSVPKB4Xudf+kgvv3kDqmJnEnfp3j95Hfywvt2QWUJElqi6VJszz6 + KVKweNKaLf1J6kvsnwRWutpVx9SkzxXc1izdoye7oJIkSW2xhCm1F3F/BIpsLww6RkLOeUz5IO++7ptU + UMfE/Zu9VqtXcDulOo5jUZO1tUdPdoElSZIOwVKmzITUbTwhvjDoGAlLf26lfLyNFJm6f1JBHVO2q3nb + nfi1G6vTsUrdT9vihZYkSTrU9z9zLrZP8aSYlA+CkNjOjEzsnwTu3VjHhHgPqZutPXrihZYkSToUT4+Z + BYntU+THk/KRLf1JTUrsnwRm77L7d+37dIzl9q3LF/foiRdakiSpC/K8yaev2yjSrQciY6EQ/ULKx0+w + OlfdPwlNdUxT3b9rc+3KXZvry5+btvoiS5IkdcVKWKwoVLdRuBsHI2Mg3ePF57aL4Mnpr/snFXOqY1oT + HgTwu8isJDMhm/b6IkuSJHXFXgrsqRDbpyjg3Ur5+AkKimP/JFADMpc6piVjBToWgaAOi1kPfg95IMDv + pDMgkiSpV+wmzWpCsZ1lS+MgZWhbKR8/wSZxsX8SqGPK7l/3+diNmisWfmDDQWY5wN9p47XsPQYgkiSp + Nz/+1nkgUrexd0I6CBkYT15/mvJRIS2s7p9UcP/GOqap7t+5Iqjn94pZDWqtCPTL0tdx/51G9QWWJEk6 + BilYpGLVbRR+p4OQgZF3fmHpz59gQFn3TyrYEX0udUxzUuo42NG8pFXx72yhh1bqCyxJknQMBm8M4mI7 + qU/pQGRADI54QhvbSQmL/ZMwpzqmKdV1HKRU8Xu0VcdxjHiBJUmSuiJ9hTSW2E7xdzoQGRhPa2MeOkXF + sX8SSB/M7t8p6pjGVNdxEGwQdBB87KzjOEa8wJIkScegkJeC3rqN5W/TgcjAyiAqtrO8at0/qeD+jXVM + U92/Qyp1HKRTEaiTXnVQHccx6osrSZJ0LJYyZUnT2J4ORAbGgIqnurGdDeZi/yTMqY6pTwQWsY6DAKRz + Hccx6osrSZJ0LDZzY1O32P7UveMPdBh0kU4S21laNfZPAnVMbKoZ26eoYzoGqVOxjoNgvLc6jgNRR0Mq + 22ZVsXhxJUmSjvHKkzc3T1j5s25n1iEbmAyNgVeWVlL3TSqoY+L+je3P3Le9s/6cEFRkdRwEIYPUcexB + rRWBPr/3MeXRAESSJPWOGRBmQuo2BiHZQGVoDMgYhMX2Ow8+fqF/S0BQx3UlzS3W2ag/3L/x+nK/xHto + aqRPxToO0qxGqeNIMMtJoLbvd8sARJIk9Y4aEAbJsZ2notnAZUg8FWZgFtsZKMX+zREDYa4naUEMMhkc + 8/fs+qofXNvs+sZ7aGwEFgTTsY4j23BzDKRVscIdRfrUycTr1cQARJIk9Y5BM6sJxXZSMrKBzJBIP2Gw + FtvJ6Y/9mwNWYKIImv1UWBKW68hgmJmPktbWdH3Vj6Y6prHv37I8bqzjoG2KOg4eIJQ6DjZojNenLQMQ + SZI0CAb95NPXbZsC1GRgMzSeFGer/Rzy1HYoXCMKn1l9iaCCoKPsyB2vX43jdr2u43D/jl3HRFBRlseN + dRxTpVU11XEcwwBEkiQNogyi6zaemmaDnKExoENsJ3Wk7t8Y6joOnrIz0CWlilmPuP/ELtn1VX/4Tsao + YyIwpm4j1nFMsjzu25gZJK1quBqpm2f/Hwc5UQ+qYgZXAAAAAElFTkSuQmCC + + 3, 3 @@ -976,7 +1201,4 @@ DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Label8 - \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb index 5a6d390..e8ce007 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb @@ -1,5 +1,4 @@ -Imports DD_LIB_Standards -Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey +Imports easyFLOW.ClassHotkey.ModfierKey Imports DigitalData.Modules.Database Public Class frmConfig_Basic @@ -34,12 +33,9 @@ Public Class frmConfig_Basic 'clsDatabase.Init(MyConnectionString) If chkbxUserAut.Checked = False Then con = MSSQLServer.EncryptConnectionString("Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";") - 'Dim wrapper As New clsEncryption("!35452didalog=") - 'Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text) - 'Dim pw As String = cipherText + End If - 'SaveConfigValue("MyConnectionString", con) CONFIG.Config.ConnectionString = con CONFIG.Save() @@ -127,7 +123,7 @@ Public Class frmConfig_Basic txtActualConnection.Text = constr chkLogErrorsOnly.Checked = LogErrorsOnly Catch ex As Exception - MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Error in frmConfig_Basic_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End If End Sub diff --git a/app/DD_Clipboard_Searcher/frmConnection.Designer.vb b/app/DD_Clipboard_Searcher/frmConnection.Designer.vb index 03d1df9..9d2b02b 100644 --- a/app/DD_Clipboard_Searcher/frmConnection.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmConnection.Designer.vb @@ -39,7 +39,7 @@ Partial Class frmConnection Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() + Me.MyDataset = New easyFLOW.MyDataset() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSQL_PROVIDER = New DevExpress.XtraGrid.Columns.GridColumn() @@ -58,8 +58,8 @@ Partial Class frmConnection Me.ERSTELLTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker() Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker() - Me.TBDD_CONNECTIONTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonAdd = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonDelete = New DevExpress.XtraBars.BarButtonItem() @@ -437,7 +437,7 @@ Partial Class frmConnection Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter - Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'RibbonControl1 ' diff --git a/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb b/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb index dcf36a9..154df37 100644 --- a/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb @@ -55,7 +55,7 @@ Partial Class frmControlCapture ' Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK - Me.btnOK.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add + Me.btnOK.Image = Global.easyFLOW.My.Resources.Resources.add Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnOK.Location = New System.Drawing.Point(12, 190) Me.btnOK.Name = "btnOK" @@ -68,7 +68,7 @@ Partial Class frmControlCapture ' Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnCancel.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.btnCancel.Image = Global.easyFLOW.My.Resources.Resources.cancel Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnCancel.Location = New System.Drawing.Point(236, 190) Me.btnCancel.Name = "btnCancel" diff --git a/app/DD_Clipboard_Searcher/frmLicense.Designer.vb b/app/DD_Clipboard_Searcher/frmLicense.Designer.vb index 4c12962..8f79ae1 100644 --- a/app/DD_Clipboard_Searcher/frmLicense.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmLicense.Designer.vb @@ -122,7 +122,7 @@ Partial Class frmLicense 'btnnewLicenses ' Me.btnnewLicenses.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnnewLicenses.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461 + Me.btnnewLicenses.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461 Me.btnnewLicenses.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnnewLicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnnewLicenses.Location = New System.Drawing.Point(307, 91) @@ -155,7 +155,7 @@ Partial Class frmLicense ' 'btnPW_check ' - Me.btnPW_check.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461 + Me.btnPW_check.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461 Me.btnPW_check.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPW_check.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnPW_check.Location = New System.Drawing.Point(322, 1) diff --git a/app/DD_Clipboard_Searcher/frmMain.Designer.vb b/app/DD_Clipboard_Searcher/frmMain.Designer.vb index f4c660a..74c4914 100644 --- a/app/DD_Clipboard_Searcher/frmMain.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmMain.Designer.vb @@ -213,6 +213,7 @@ Partial Class frmMain ' 'cmstrpNotifyIcon ' + Me.cmstrpNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem}) Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon" resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon") @@ -230,19 +231,19 @@ Partial Class frmMain ' 'tsmiChangeState ' - Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Symbols_Stop_16xLG + Me.tsmiChangeState.Image = Global.easyFLOW.My.Resources.Resources.Symbols_Stop_16xLG Me.tsmiChangeState.Name = "tsmiChangeState" resources.ApplyResources(Me.tsmiChangeState, "tsmiChangeState") ' 'ClientÖffnenToolStripMenuItem ' - Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open + Me.ClientÖffnenToolStripMenuItem.Image = Global.easyFLOW.My.Resources.Resources.door_open Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem" resources.ApplyResources(Me.ClientÖffnenToolStripMenuItem, "ClientÖffnenToolStripMenuItem") ' 'ClientBeendenToolStripMenuItem ' - Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.ClientBeendenToolStripMenuItem.Image = Global.easyFLOW.My.Resources.Resources.cancel Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem" resources.ApplyResources(Me.ClientBeendenToolStripMenuItem, "ClientBeendenToolStripMenuItem") ' @@ -256,13 +257,14 @@ Partial Class frmMain ' 'ContextMenuStripForm ' + Me.ContextMenuStripForm.ImageScalingSize = New System.Drawing.Size(24, 24) Me.ContextMenuStripForm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MinimierenToolStripMenuItem}) Me.ContextMenuStripForm.Name = "ContextMenuStripForm" resources.ApplyResources(Me.ContextMenuStripForm, "ContextMenuStripForm") ' 'MinimierenToolStripMenuItem ' - Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize + Me.MinimierenToolStripMenuItem.Image = Global.easyFLOW.My.Resources.Resources.ReduceSize Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem" resources.ApplyResources(Me.MinimierenToolStripMenuItem, "MinimierenToolStripMenuItem") ' @@ -299,7 +301,7 @@ Partial Class frmMain Me.Controls.Add(Me.RibbonControl1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon) - Me.IconOptions.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.search1 + Me.IconOptions.Image = CType(resources.GetObject("frmMain.IconOptions.Image"), System.Drawing.Image) Me.MaximizeBox = False Me.Name = "frmMain" Me.Ribbon = Me.RibbonControl1 diff --git a/app/DD_Clipboard_Searcher/frmMain.resx b/app/DD_Clipboard_Searcher/frmMain.resx index 57fbafa..983d882 100644 --- a/app/DD_Clipboard_Searcher/frmMain.resx +++ b/app/DD_Clipboard_Searcher/frmMain.resx @@ -330,6 +330,12 @@ 0, 0 + + Einstellungen + + + RibbonPageGroup2 + Start @@ -366,67 +372,9 @@ 5 - - Einstellungen - - - RibbonPageGroup2 - RibbonPage2 - - labelStatus - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - labelRefresh - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - Tahoma, 8.25pt, style=Bold - - - 209, 72 - - - 256, 129 - - - - 16 - - - Informationen - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - Tahoma, 8.25pt @@ -436,6 +384,7 @@ 242, 67 + 0 @@ -484,56 +433,32 @@ 1 - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - labelHotkey - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - + Tahoma, 8.25pt, style=Bold - - 12, 72 + + 209, 72 - - 191, 59 + + 256, 129 - - 15 + + 16 - - Aktuelle Tastenkombination: + + Informationen - - GroupBox1 + + GroupBox2 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - - 3 + + 2 @@ -602,6 +527,33 @@ 1 + + Tahoma, 8.25pt, style=Bold + + + 12, 72 + + + 191, 59 + + + 15 + + + Aktuelle Tastenkombination: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + 17, 17 @@ -614,32 +566,38 @@ 153, 17 + + 217, 22 + + + Bisherigen Ablauf anzeigen + - 180, 22 + 186, 30 Funktionen - 180, 22 + 186, 30 easyFLOW stoppen - 180, 22 + 186, 30 In den Vordergrund - 178, 22 + 186, 30 easyFLOW beenden - 179, 92 + 187, 124 cmstrpNotifyIcon @@ -745,17 +703,11 @@ - Clipboard Watcher + easyFLOW True - - 217, 22 - - - Bisherigen Ablauf anzeigen - 299, 17 @@ -765,8 +717,14 @@ 534, 17 + + 143, 30 + + + Minimieren + - 136, 26 + 144, 34 ContextMenuStripForm @@ -774,12 +732,6 @@ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 135, 22 - - - Minimieren - 838, 17 @@ -788,7 +740,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU - CwAAAk1TRnQBSQFMAgEBBQEAAZwBAQGcAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CwAAAk1TRnQBSQFMAgEBBQEAAawBAQGsAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -5366,6 +5318,90 @@ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA= + + + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAACxEAAAsRAX9kX5EAABJKSURBVHhe7d2/ruRIFcfxfYR5CB5g7r4A8wA8AOEE5GxO + Mgn55CSTbLQBIkIESCNISBaNhIRExAREJGxCQtLU7972rNt9utt2nbLPKX+Dj7RT27dt9+36uf76fnU6 + nUL69idPr4o3xbviQ/Gx+FycgMD0HdV3Vd9ZfXf1HX5lfccjMAv3oA+peFvog6Oiozf6Tuu7re94mEAw + C7eiD6L4pvhUWB8a0Ct953cPA7OwtXLRahYpDa0PBjga1YU3Vl1pzSxspVykEo/mPWBT3Xhr1Z1WzEJv + uqjzxVkXDeDSZkFgFnopF/G60IiodZEA7lPdeW3VLS9mYa1y0hrce3++CAB1VJeaDBaahTXKiWqAj+Y+ + 4Et1yn2g0Cxcq5ygFj5YJw/Axzur7q1lFi5VTkpNfvr6wDZU11y6BGbhEuVENNBHkx/Ylupc9QChWTiX + TqD44XxCALalulcVAmbhHDrw+QSsEwOwjaoQMAsf0QHPB7ZOCMC2VoeAWXiPDnQ+oHUiAPaxKgTMwlt0 + gPOBrBMAsK/FIWAWWsoba6qP0X4gNtXR2VOEZqGlvCnz/EAOH606bDELp8obssIPyGXWikGzcKy8kdb2 + WwcAENvDvQNm4aC8Af1+IK+H4wFm4aD8MFt6gdzeW3V7YBZK+UFN+VlvCCCXm1ODZqGUH2LUH+jDzVkB + s7D8gJ7hZ70RgJzMZwxeFUh5MQN/QF8+W3X9qqC8kLs/0KerVsDFP6S8iLs/0KerVsDFP8oLWPQD9O1i + cdA0APhzXUDfPozr/Ljya9Wf9QMA+vJldeA4ABj8A47hy2DgOAD4E93AMXy6CIBSQPMfOJbnbsAQADT/ + kdrvfmqX46bnbsAQAIz+I5Xvvn46/ekXT6d//ubp9N8/P51Of38ps14L0/NswBAALP5BeH/8+dPpH++f + Tv/5w0uFn/rLL+2fg+l5URD9f4T1+589nf76q6fTv39rV/gptQas98FNrxQArP5DCOrH6y7+r2+fTv/7 + 3q7k96grYL0vbnqjAOCBn9jF0I9Xs37ox9diMHCRdwwAYlPqx//t17f78bXUZbCOC9MHBQBP/kEzQz9e + zXqrwnrTcazzgOmjAoAZALgZ+vHj6bktaezAOi+YPisArP8BzDLux7dq1i+lVod1rrhGAGCxoR8/d3pu + azo367xxjQDAQ2rWD/34NdNzW1MwWdeBawQArqhZv2c/3oN1XbhGAOAL9Z2j9ONraVzCukZcIgDwhe78 + VmXKSIOS1jXiEgGAC720AHQd1vXhEgGAC7pzWhUqI5YFP0YA4IKm+KzKlBHbgx8jAHDFqkwZsT34MQIA + V7Zat98a24MfIwBwRYt+rAqVEcuC7yMAcEWVxqpMGbE9+D4CAKYMS37nYHvwfQQATBpAsypUNmwPvo8A + gElTaFaFykhTm9Y1ggDADVpEY1WmFrRqTwuQhvX73huQ2B58GwHgYLpdtpeR51Y7AfW+6mKolWH9MQ/v + 7gfLgm8jAFZ4tF22l5Fnr2XBCkWFoz6XOeHYovthBQ0IgNmWPPaqlwdS6Jqt65tDn4Ga3mv63y26H2wP + thEAN+hOpTvW2sdeWe+ZzZLtweN+vMfddk7QLqFzs45zdATAme46anp6PfaqlzvOrYo47se32HXn1f0Y + 6Hyt4xzdYQNAdylV0lv9+Fq93HHUjNf1LO3H16rpftzSIqiyO1QAqD86tx9fS8ewziEbVZq95tGtz7WG + WivWcY6s6wAY+vG6c1lfiNYYea7j/dhxtfas4xxZVwEw9OP1i/box9fijlNn6H540XfCOs6RpQ6AoR+v + Zn2Lfnwt7jh11IKzPtcaW4xfZJIuANQf1Z3Bu3nYAiPP9bxbcr0s0vISPgDG/fgIzfqlGHmu4z1+o/ez + jnNUYQOg1fTc1rjj1NHnZ32uNazjHFXYAMh4t7dwx6mjFpT1udZge/CPwgbAXlN33hh5rufdEmRZ8I/C + BoCm0KxfXkbcceqoO2h9rmv1skjLQ9gAaNH02wsPpKjTYlkwi7RehA0A6WEQUHrZHrwXVVbrc63Ry2at + WqEDwLvptyfr+jCf9/4NFmm9CB0ALZp+W1HrRV+yVttlj4btwW2EDoAWTb+WNHOheWuWm/rTQKr1mdcg + mIMHgGyxdXctndvax15hOet3UIPNWgkCwHtHWA01G9UUVdeEUeTteez/UGjrd0hovwgfAC2afnNpEY+a + 9fTjY1izLHgYiyG0beEDQKxfbCu6y9CPj2nO9mBCe5kUAdByWTBNwlysPSIKbXUVCe3lUgRAix1hukPQ + JMxHzfkhtFnMUy9FAMxp+i3FHR9IEgDivT2Y9flAogDwXhbM+nwgUQCoz25V5BqMAeDo0gRAi+3BDCLh + 6NIEgHhvD9ZIsnUc4ChSBYAqrFWR19J0knUc4ChSBUCL7cGsFsORpQqAFtuD2RGGI0sVAOKxI2yMJ8Pg + yNIFgPf24KM8GUZdHa1+1Od3j15Dt+g40gVAi+3BPW4iUSVW90Ybqdasohx21WkfBoHQr3QBIN7LgvUl + t46TkSq9dzdJ9J6Ml/QnZQB4bw/W+1nHyUSV03udhEXHUFfBOgfkkzIAvLcHq0VhHScDTY1uUfGndExW + UuaXMgDYHvwyJdryQSlz6RzYU5FXygAQ77tepmatwsp7HKSGzoWn8eSUNgC8twdnWRasvr51/hEwSJhP + 2gBoURGiN2VbPBrNGyGQS9oAaLEsOPKglroo1jlHRAjkkTYARM126wu4VtTtwZGb/bcQAjmkDgDv7cEa + WLSOs6cWKx+3km1m5YhSB0Dv24PVzYk02r+Uzp0pwthSB4BYX7wakZquEeb5a/WwyrJn6QOg1+3BLVo3 + e2HFYFzpA8B7dDzCsmA1m/dY3ttKxLEVvEgfAC2WBe+9qi3TlN9cbCCKKX0AiOdAmd5r7yZr5oG/WyK0 + rHCtiwCoHSzTOILuUBHWs2ec85+LtQHxdBEAS5fIRv7rsi0e5hEFj2GPp4sA0Ny99YUbaBBKo/u6A0V+ + vNWj6/Cg1pI+h3FrR/+tsi2mHXm8WCxdBICMR83V39SXWS2DCM36uVpu9lHLYk7l02tatkJ0jdZxsY9u + AkB9eMm8/LTVHXjNCLz3MuuBwsU6HvbRTQD0oMXof830m37Wes9a1rGwDwIgiBb9f4+7bYvuQKZuWe8I + gCBa7PrzGHBrEUwsDY6DAAjCu7mt8QTrOGt4j03UdEvgiwAIwjsAPBfd6L2sY6xFAMRBAAThHQCe/Wzv + boBn6wR1CIAgvAPAOkYN6xhrMRUYBwEQBAGAPRAAQdAFwB4IgCC8A8BzEND76US6Vus42B4BEIR3AHje + Zb3/ChMBEAcBEAQLgbAHAiCIFhWNpcB4hAAIJNpmoFY7Aq1jYR8EQCDeS24Ha0KA7cDX1E3TZ9nTGAYB + EAgPBIlFXRWdr4J53Drr6THnBEAgLcYBpjSir0G4cRjov3kk2I+fgz6jR3+XIfJ1LEEABNPy7ru3iA8F + VRiqu7P0L0338mgzAiAY7513kXguTlpLzXr14WuDtpfVjARAQI+anxnt/YdBdKf3nGXZ+3q8EAAB9dgK + 2HvkXHd+67xq9LCegQAIqqdWQJRRc+91Fj1MBxIAQXlvwNlTlKW/3nsaMq9pGBAAgW0xLddapMGyFl0r + 6ziZEACBffe1f7N1Szp3XYN1bXvQ3L11njWitG7WIgCCazF4tZWIg2TeYytaQ2AdJwsCIIGMswIR5vwt + 3nscsv/FYwIgiUwhELXyS4vB1UjdnKUIgEQyhEDkyi+qrNZ514h+zfcQAMlEDoEsFWHpuv9HNL1oHScD + AiAh7UuPNDugc8m0Kk4LeKzrWCvKQqc1CICk1JSNsE5A55CtD9zi+YtZlwUTAMlpUGuPZcM6ZuY5cO8W + VNbtwQRAB3QHVrN2i26BjtHDGnjv1lOkFY9LEACd0UCc9yCX6D0zj3ZPeT9+TcFoHSc6AqBTWvaqL3nN + gy/0s3qPXh5/NdZihaXGFqxjRUYAHIS+8Oqzq/kuarKqgov+eyjXa7IOaC3lPXaSsWtEAOCw2B5MAODA + WiyqyjYlSgDgsNgeTADg4LxnTLJtDyYAcGhH3x5MAODQ1GS3KnKNTNOmBAAO7ejbgwkAHF7NYilLpu3B + BAAOTwt4rIq8VqZlwQQADu/I24MJgEoaRBr+umzmJ8MclcYAWiwIyrI9mABYSMmuJqPVb8y6I+xodMcf + Qnv6O/SSZXswAfCApnR0h9AvdM5++6NspMlEv5PanZFrWOcSDQEwoSahmvVqzq/ZLZal6dezpaHdSobt + wQRA4dkkzNL068kQ2vod7vF4tFsybA8+fAC0GACyjgNfCm1VsJb9+FoZlgUfPgBa7AjL0PTLZujHq4Vl + feZRRd8eTBeg8G42qilqHQfzDf34tWMxUUTfHkwAFN5PhsnQ9IvO+lwzir42hAAoWuwIi970i27rKbtW + 1Hqxri8KAqBQZbV+eTWiN/2i816fv6fI24MJgDPv0WSWBdfRQKr1uWaksQzrGiMgAM40cGf98taK3vTL + YM9FPJ4irw0hAM5a3HEiN/0yyDbld0vkPSIEwIj1y6vBsuA6+vyszzUTtQQjdwcJgBHvkWeWBddpsUir + Nd3t9XtXeGXYGEYAjHjfcSI3/bLIsAhINw7NWmRcAUoAjCixrV9wDbYH1/FepOVBoaRBY031Zl/vQQBM + eI88Z9gRFlmLzVpL6TuhINK59DawSwBMeN9x1Dy0joN5WizSmiNTP74GATDRy/Zg9Ud7uVttseVXx8ja + j69BAEy0GHneYlmwtV22l+6H9yItGabneujH1yAADN4jzy22ByuoHm2X7aX74bFZa5ie67EfX4MAMHjf + cTy2B+supYqgc1vSJO7l7mZd2yMKwCP042sQAAaPO87UmruO+qNqxtcsUNqi+7GFOZ+BgnGYnrPeA9cI + AEOLkWc1Pa1jjY378V7TkS26H3uwFmkN/Xh9tkfux9cgAG7wHnnWF3V6DH1pH/Xja+l9p8fNSOE49OMV + BvTjfRAAN6jpbVWotYaKuKYfX4vKglsIgBtabA/ey5zuB46JALjDe1nwXqzuByAEwB3jRTWZKcis6wMI + gDuskeesmAuHhQC4Q5XGqkwZKcysa8SxEQAPtJqe25q6M9b14dgIgAc0gGZVqIys68OxEQAPaArNqkwZ + HW2rKx4jAB7QIhqrMmXUy7Jg+CEAZthy1V5Lug7r+nBcBMAMunNaFSojNs1gjACYocX24D2oBcB6AIwR + ADO02B68BbbL4hECYKaah3Jshe2yWIoAmMl7e7AXBdMRn2YLHwTATFGWBasfPzz2imY9aikAPk8LYdtj + e/C4H0+zHs4+KwA+Tgpxw1bbg4d+PCP2aOyjAuDDpBA3tNoerGY9/Xjs4IMC4N2kEDd4LQtWs55+PAJ4 + pwB4MynEHWu2B2vsgH48AnqjAHg1KcQdc7cH81dpkMCrr04nZgKWuLU9eJieox+PJD6r7g8BwEDgTMOy + 4GF6jn48kvowDoC3k/+JO+jHowNvxwHAOABwLK++BMA5BD5NXgCgT5+Gej8OgG8mLwLQp+fm/zQA6AYA + x/Dc/L8IgHMIMBsA9O159H8wDQBWBQJ9ezOu8xcBIOUFLAoC+vS8+Gfs4h9SXsSaAKBPXwb/Bhf/GJQX + 0goA+nJ195erAikvphUA9OXq7i9XBYPyAzwpCOjDR6uOi1ko5YdeT94EQE6vrTouZuGg/OD7yRsByOW9 + VbcHZuGg/LBWBzIgCOSkuvtl1Z/FLBwrb8DiICCni0U/FrNwqrwRDw4Fcnln1eUps9BS3pBZASCHm6P+ + U2ahpbwp4wFAfA/7/WNm4S3ljTU1+MP5QABiUd28OeVnMQvv0QHOB7JOAMA+Fld+MQsf0YHOB7ROBMC2 + VlV+MQvn0AHPB7ZOCMA2Vld+MQvn0oHPJ2CdGIC2qiq/mIVL6AQKZgeAbanOVVV+MQuXKieiKULWCQDb + UF2bPdV3j1m4VjkpVgwCbc1a4TeXWVijnKD2DtAlAHypTj1c27+UWVirnKi6BGwlBnyoLrk0+afMQi/l + pDVAyNgAsI7qTvVA3z1mobdyEXrGIN0CYB7VFfMZft7MwlZ0UeeLsy4aOLrNKv7ALGytXKQGCvkzZMAL + 1QX3Ab45zMKtlIvWYKFaBfxpchyNvvP67jcZ3JvLLNyDPojzB6I0pJuA3ug7re/27pV+zCyMQB9Soa6C + Fhfpg9OIKMGA6PQd1XdV31l9d/UdDlPhL52++j8X6D4wU2hisAAAAABJRU5ErkJggg== diff --git a/app/DD_Clipboard_Searcher/frmMain.vb b/app/DD_Clipboard_Searcher/frmMain.vb index 35c4415..a043224 100644 --- a/app/DD_Clipboard_Searcher/frmMain.vb +++ b/app/DD_Clipboard_Searcher/frmMain.vb @@ -1,8 +1,8 @@ Imports System.Threading Imports System.IO Imports System.Globalization -Imports DD_Clipboard_Watcher.ClassConstants -Imports DD_Clipboard_Watcher.ClassWindowAPI +Imports easyFLOW.ClassConstants +Imports easyFLOW.ClassWindowAPI Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.Windows Imports DigitalData.Modules.Base @@ -144,7 +144,7 @@ Public Class frmMain Exit Sub End If Try - Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')" + Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND (MODULE = 'easyFLOW' OR MODULE = 'Clipboard-Watcher')" Database.ExecuteNonQuery(sql) ClassWindowLocation.SaveFormLocationSize(Me, "") My.Settings.Save() @@ -176,8 +176,8 @@ Public Class frmMain Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As String) Handles _Watcher.Changed If MONITORING_ACTIVE = False Then - Logger.Info("Search Flow is inactive!") - 'NotifyIconMain.ShowBalloonTip(20000, "Search Flow", "Clipboard-watcher is inactive.", ToolTipIcon.Info) + Logger.Info("easyFLOW is inactive!") + 'NotifyIconMain.ShowBalloonTip(20000, "easyFLOW", "Clipboard-watcher is inactive.", ToolTipIcon.Info) Exit Sub End If @@ -273,7 +273,7 @@ Public Class frmMain Dim oMessageTitle As String Dim oMessageText As String - oMessageTitle = "Search Flow" + oMessageTitle = "easyFLOW" oMessageText = String.Format(S.Es_wurden_keine_passenden_Profile_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS) @@ -299,7 +299,7 @@ Public Class frmMain Dim oMessageTitle As String Dim oMessageText As String - oMessageTitle = "Search Flow" + oMessageTitle = "easyFLOW" oMessageText = String.Format(S.Es_wurden_weder_Dokumente_noch_Daten_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS) If NOTIFY_MODE.ToUpper = "MSGBOX" Then @@ -385,10 +385,10 @@ Public Class frmMain Sub Change_Monitoring_State() If MONITORING_ACTIVE = True Then MONITORING_ACTIVE = False - NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info) + NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info) Else MONITORING_ACTIVE = True - NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info) + NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info) End If End Sub Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb b/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb index 1b0080b..23a4226 100644 --- a/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb @@ -111,7 +111,7 @@ Partial Class frmProcessCapture 'Button2 ' Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.Button2.Image = Global.easyFLOW.My.Resources.Resources.cancel Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.Location = New System.Drawing.Point(191, 176) Me.Button2.Name = "Button2" @@ -124,7 +124,7 @@ Partial Class frmProcessCapture ' Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.Enabled = False - Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add + Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.add Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.Location = New System.Drawing.Point(12, 176) Me.Button1.Name = "Button1" diff --git a/app/DD_Clipboard_Searcher/frmSplash.Designer.vb b/app/DD_Clipboard_Searcher/frmSplash.Designer.vb index 7c8a8d3..44edbd0 100644 --- a/app/DD_Clipboard_Searcher/frmSplash.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmSplash.Designer.vb @@ -86,7 +86,7 @@ Partial Class frmSplash ' 'PictureBox2 ' - Me.PictureBox2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.DD_easyFLOW_BOOT + Me.PictureBox2.Image = Global.easyFLOW.My.Resources.Resources.DD_easyFLOW_BOOT Me.PictureBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.PictureBox2.Location = New System.Drawing.Point(0, -1) Me.PictureBox2.Name = "PictureBox2" diff --git a/app/DD_Clipboard_Searcher/frmSplash.vb b/app/DD_Clipboard_Searcher/frmSplash.vb index 51e8c04..c833461 100644 --- a/app/DD_Clipboard_Searcher/frmSplash.vb +++ b/app/DD_Clipboard_Searcher/frmSplash.vb @@ -36,40 +36,42 @@ Public NotInheritable Class frmSplash End Function Private Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task - Try - Dim Init = New ClassInit() - Worker.ReportProgress(CalcProgress(1), "Initializing Logger") - Init.InitLogger() + Dim oProgress As String + 'Try + Dim Init = New ClassInit() + oProgress = "Initializing Logger" + Worker.ReportProgress(CalcProgress(1), oProgress) + Init.InitLogger() + Thread.Sleep(200) + oProgress = "Initializing Base Config" + Worker.ReportProgress(CalcProgress(2), oProgress) + Init.InitBasics() + Thread.Sleep(200) + oProgress = "Initializing Database" + Worker.ReportProgress(CalcProgress(3), oProgress) + If Init.InitDatabase_New() = True Then Thread.Sleep(200) - - Worker.ReportProgress(CalcProgress(2), "Initializing Base Config") - Init.InitBasics() - Thread.Sleep(200) - - Worker.ReportProgress(CalcProgress(3), "Initializing Database") - If Init.InitDatabase_New() = True Then - Thread.Sleep(200) - - Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration") - If My.Settings.GHOSTUSER <> String.Empty Then - Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!") - LogConfig.Debug = True + oProgress = "Initializing User-Configuration" + Worker.ReportProgress(CalcProgress(4), oProgress) + If My.Settings.GHOSTUSER <> String.Empty Then + Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!") + LogConfig.Debug = True + End If + If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then + If ERROR_INIT = "" Then + ERROR_INIT = "INVALID USER" End If - If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then - If ERROR_INIT = "" Then - ERROR_INIT = "INVALID USER" - End If - End If - - Thread.Sleep(200) - - Else - ERROR_INIT = "DATABASE" End If - Catch ex As Exception - MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try + Thread.Sleep(200) + + Else + ERROR_INIT = "DATABASE" + End If + + ' Catch ex As Exception + ' ' MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' End Try End Function Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) diff --git a/app/DD_Clipboard_Watcher.sln b/app/DD_Clipboard_Watcher.sln index fccd3c9..ccf023c 100644 --- a/app/DD_Clipboard_Watcher.sln +++ b/app/DD_Clipboard_Watcher.sln @@ -1,9 +1,9 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio Version 16 -VisualStudioVersion = 16.0.29728.190 +# Visual Studio Version 17 +VisualStudioVersion = 17.9.34622.214 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_Clipboard_Watcher", "DD_Clipboard_Searcher\DD_Clipboard_Watcher.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "easyFLOW", "DD_Clipboard_Searcher\easyFLOW.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}" EndProject Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{9A7C1386-F66E-49DD-994C-F5935A0D196F}" EndProject diff --git a/app/SetupVS19/Config.wxi b/app/SetupVS19/Config.wxi index 0d0be0d..ac1be48 100644 --- a/app/SetupVS19/Config.wxi +++ b/app/SetupVS19/Config.wxi @@ -1,6 +1,6 @@ - +