From afd5186e62042c310ff25a94ca05d55daa74e4a6 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 11 May 2018 10:36:14 +0200 Subject: [PATCH] MS: Login-Procedure --- .gitignore | 1 + app/DD_Clipboard_Searcher/App.config | 2 +- app/DD_Clipboard_Searcher/ClassInit.vb | 22 +- .../DD_Clipboard_Watcher.vbproj | 4 +- .../DD_Icons_ICO_CBWATCHER_48px.ico | Bin 0 -> 9662 bytes .../My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 6 +- .../My Project/Settings.settings | 4 +- .../MyDataset.Designer.vb | 1421 ++++++++--------- app/DD_Clipboard_Searcher/MyDataset.xsc | 2 +- app/DD_Clipboard_Searcher/MyDataset.xsd | 144 +- app/DD_Clipboard_Searcher/MyDataset.xss | 10 +- app/DD_Clipboard_Searcher/clsHotkey.vb | 2 +- .../frmAdministration.Designer.vb | 154 +- .../frmAdministration.resx | 12 +- .../frmAdministration.vb | 35 +- app/DD_Clipboard_Searcher/frmMain.vb | 14 +- app/SetupWix/SetupWix.wixproj | 2 +- 18 files changed, 928 insertions(+), 909 deletions(-) create mode 100644 app/DD_Clipboard_Searcher/DD_Icons_ICO_CBWATCHER_48px.ico diff --git a/.gitignore b/.gitignore index 1bc915c..6c4cf78 100644 --- a/.gitignore +++ b/.gitignore @@ -154,3 +154,4 @@ $RECYCLE.BIN/ # Mac desktop service store files .DS_Store +/app/.vs/DD_Clipboard_Watcher/v15/Server/sqlite3 diff --git a/app/DD_Clipboard_Searcher/App.config b/app/DD_Clipboard_Searcher/App.config index 953662b..fdceb01 100644 --- a/app/DD_Clipboard_Searcher/App.config +++ b/app/DD_Clipboard_Searcher/App.config @@ -7,7 +7,7 @@ diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb index 166ee14..7199b8b 100644 --- a/app/DD_Clipboard_Searcher/ClassInit.vb +++ b/app/DD_Clipboard_Searcher/ClassInit.vb @@ -73,14 +73,13 @@ Public Class ClassInit DT_CLIENT_USER = clsDatabase.Return_Datatable("SELECT T.*, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, True) Dim Access_right As Boolean = False - sql = String.Format("SELECT COUNT(T.GUID) FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND UPPER(T1.NAME) = UPPER('Clipboard-Searcher') AND T.USER_ID = {0}", USER_GUID) - Dim USER2MODULE = clsDatabase.Execute_Scalar(sql) - If Not IsNothing(USER2MODULE) Then - If USER2MODULE = 1 Then + sql = String.Format("SELECT * FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND UPPER(T1.SHORT_NAME) = UPPER('CW') AND T.USER_ID = {0}", USER_GUID) + Dim DT_USER2MODULE As DataTable = clsDatabase.Return_Datatable(sql) + If Not IsNothing(DT_USER2MODULE) Then + If DT_USER2MODULE.Rows.Count = 1 Then Access_right = True + USER_IS_ADMIN = DT_USER2MODULE.Rows(0).Item("IS_ADMIN") End If - Else - Access_right = USER_DT.Rows(0).Item("MODULE_DDCBSEARCHER") End If If Access_right = False Then @@ -107,15 +106,14 @@ Public Class ClassInit 'Am System anmelden ' sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID) 'clsDatabase.Execute_non_Query(sql) - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Clipboard-Searcher'" + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Clipboard-Watcher'" If clsDatabase.Execute_non_Query(sql, True) = True Then End If - sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Searcher','{2}','{3}')", USER_GUID, 0, My.Application.Info.Version.ToString, Environment.MachineName) + sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Watcher','{2}','{3}')", USER_GUID, 0, My.Application.Info.Version.ToString, Environment.MachineName) clsDatabase.Execute_non_Query(sql) - USER_IS_ADMIN = USER_DT.Rows(0).Item("RECORD_ADMIN") If USER_IS_ADMIN = True Then If ESC_Hidden = True Then 'frmLoginUserSelect.ShowDialog() @@ -129,10 +127,10 @@ Public Class ClassInit ' pageAdmin.Visible = True End If - WD_UNICODE = clsDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBCS_CONFIGURATION WHERE GUID = 1") + WD_UNICODE = clsDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1") - sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Clipboard-Searcher') AND CLIENT_ID = {0}", 0) + sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Clipboard-Watcher') AND CLIENT_ID = {0}", 0) Dim anzahl = clsDatabase.Execute_Scalar(sql) USERS_LOGGED_IN = CInt(anzahl) If LogErrorsOnly = False Then clsLogger.Add(" >> Count Users logged in: " & anzahl.ToString, False) @@ -149,7 +147,7 @@ Public Class ClassInit clsLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False) If USER_IS_ADMIN = False Then 'Anmeldung wieder herausnehmen - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Clipboard-Searcher'" + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Clipboard-Watcher'" clsDatabase.Execute_non_Query(sql, True) clsLogger.Add(" - logged out the user", False) Return False diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index e692aa6..6f332fb 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -47,7 +47,7 @@ On - KeyOutput_8167.ico + DD_Icons_ICO_CBWATCHER_48px.ico @@ -178,6 +178,7 @@ frmAdministration.vb + Designer frmLicense.vb @@ -241,6 +242,7 @@ + diff --git a/app/DD_Clipboard_Searcher/DD_Icons_ICO_CBWATCHER_48px.ico b/app/DD_Clipboard_Searcher/DD_Icons_ICO_CBWATCHER_48px.ico new file mode 100644 index 0000000000000000000000000000000000000000..9524ffe37a141a1f6232dfc23ca54f5b06c4b6fa GIT binary patch literal 9662 zcmeI13s98T7017Yg@xUPWp`nh-DP2;MnQ;(@(cWE`YCmL%lq&BUIGnrO&bjA4l_VAZEnFz!uS@dWDoGYel9C~0Noyg_pZUyqV8#P89=O>& zQ0g2~Ls}>tQr(374;DF&{jDztav-Q&Xc$!sub((t?I_35zlyQtsC{}SD1suS%N zIl95yLOBU_RK2E`dJc`z@ZcNN-*%ZctU5yNO&5grZ99vxzLBc#@0Rn{mvti!n}z*> z`e7NyKF?8Tdq4?(p5suDP;$&>wA(A@nUd5Ubb9c0y7HS3WsSV}2DR=vBR~J)(g(C; z{stO)epJpIdGU{wWp|7I2{b<~Fjtd9SH%3aO7PpXOJ)8!(N$s&%5gM+{i@95wV`9* zSsEU?;+OA!;wX)sd(SVgy8Jli_}u~fz@fWC%+ugssQ`b2FaNBlO2o~6`rhguKb}`F z{*?|ko~H7$U3B@v`+mP&8hOX>nQeXP)SHy;aKjhvUs@v~)mE&{Zk~H^nw;JTb@=hS z^y@H&x6`u?zw~3;a9=B>7$2p(^W1*<-hK&`)~xHrn)i%fA1tvQLSL(3SI586wt9N> zV*L8?C+f>7)${{uYdYu0S&*_ttjQb8JN@zlaeMR555G;h&RV~5!26@H5Iy(F@21Pn z@3a4{+FUvQlk^poYTQhXn||iUS@%RAC1d}xzy6e*f3kawMqheYerE1=j1MnAr%yfF zM>*CeDiZUlhvK#Q6r)MzvD>Q@e_Uji%^qc~Scg7n6KkI))GYR`;NPMUf3q)tlKx@%e>>uK zFYVp-`8>&X?5OFb-@g18nQi^OEmV}gNq#=#xhnQFHS3PadHkNc(j)eMIhc>YjDB3l z{=Z8J{^f}$TE57i5>qGkm$~*`)Li>>`u(pzpw~t}qU{@B5Gj9Wt;lJj1+mpM(D91k zZQFAW`~3#Qd>y?!{3qFlOC#@6!7Y1ej^P2ppK19K^Sf>oe{xJM;a_EoL&Oq3ljzqVw6Vj~xUU&Zx) z4E|81_+uk7AKyWxiM)U0eWX`|_|Eb^`=){Nz2yhdk9$QM zdzRMKa{MR0z+WNaKi#x@N_Ms{IDU_aedfn~1n+wsO7a^uDRTU~u>SJ+O*PgF zwyF9c82)^md6=Eg*BHki;+-(%_=h_AZinka}nES5gW`nxm4teUdjAVD#>4(=+B>| zUnBhK<+MeXkx7#aU(Uw9*8skdYcP8GRbsrF;csT<^CHgwpJLDa8u%9}%I_TNj}D(D zGilXMa2my3=;Xfia&oGoh|oB3FFMX8ig7Z$u4*!1RSOfJDn03%i!5WBvCU3?AGai`n zz>V?%iO;~Api={vM0o%iCQ_+>{5j~<`(BW#YNA}QY3M}xU{lRR`N`6x@!vxy?5-bA T*%7c?HQ|rKiIfx04>J8fDo7oj literal 0 HcmV?d00001 diff --git a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb index c9e157d..54d89d4 100644 --- a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb +++ b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb index 97f553a..f1c5cdc 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 @@ -69,8 +69,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _ + "True;User ID=sa;Password=dd")> _ Public ReadOnly Property DD_ECMConnectionString() As String Get Return CType(Me("DD_ECMConnectionString"),String) diff --git a/app/DD_Clipboard_Searcher/My Project/Settings.settings b/app/DD_Clipboard_Searcher/My Project/Settings.settings index e08905a..23e669d 100644 --- a/app/DD_Clipboard_Searcher/My Project/Settings.settings +++ b/app/DD_Clipboard_Searcher/My Project/Settings.settings @@ -8,10 +8,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd + Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd \ 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 abf0016..d249a75 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -25,20 +25,20 @@ Option Explicit On Partial Public Class MyDataset Inherits Global.System.Data.DataSet - Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable - Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable + Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable - Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable + Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable Private tableTBWH_User As TBWH_UserDataTable Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -50,7 +50,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -64,17 +64,17 @@ Partial Public Class MyDataset If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - If (Not (ds.Tables("TBCBS_PROFILES")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_PROFILES"))) + If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) End If - If (Not (ds.Tables("TBCBS_USER_PROFILE")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_USER_PROFILEDataTable(ds.Tables("TBCBS_USER_PROFILE"))) + If (Not (ds.Tables("TBCW_USER_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_USER_PROFILEDataTable(ds.Tables("TBCW_USER_PROFILE"))) End If If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE"))) End If - If (Not (ds.Tables("TBCBS_PROFILE_PROCESS")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_PROFILE_PROCESSDataTable(ds.Tables("TBCBS_PROFILE_PROCESS"))) + If (Not (ds.Tables("TBCW_PROFILE_PROCESS")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILE_PROCESSDataTable(ds.Tables("TBCW_PROFILE_PROCESS"))) End If If (Not (ds.Tables("TBWH_User")) Is Nothing) Then MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) @@ -97,27 +97,27 @@ Partial Public Class MyDataset End Sub _ - Public ReadOnly Property TBCBS_PROFILES() As TBCBS_PROFILESDataTable + Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable Get - Return Me.tableTBCBS_PROFILES + Return Me.tableTBCW_PROFILES End Get End Property _ - Public ReadOnly Property TBCBS_USER_PROFILE() As TBCBS_USER_PROFILEDataTable + Public ReadOnly Property TBCW_USER_PROFILE() As TBCW_USER_PROFILEDataTable Get - Return Me.tableTBCBS_USER_PROFILE + Return Me.tableTBCW_USER_PROFILE End Get End Property _ Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable @@ -127,17 +127,17 @@ Partial Public Class MyDataset End Property _ - Public ReadOnly Property TBCBS_PROFILE_PROCESS() As TBCBS_PROFILE_PROCESSDataTable + Public ReadOnly Property TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable Get - Return Me.tableTBCBS_PROFILE_PROCESS + Return Me.tableTBCW_PROFILE_PROCESS End Get End Property _ Public ReadOnly Property TBWH_User() As TBWH_UserDataTable @@ -147,7 +147,7 @@ Partial Public Class MyDataset End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -160,7 +160,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -169,7 +169,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -178,7 +178,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -186,7 +186,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -195,35 +195,35 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) - If (Not (ds.Tables("TBCBS_PROFILES")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_PROFILES"))) + If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) End If - If (Not (ds.Tables("TBCBS_USER_PROFILE")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_USER_PROFILEDataTable(ds.Tables("TBCBS_USER_PROFILE"))) + If (Not (ds.Tables("TBCW_USER_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_USER_PROFILEDataTable(ds.Tables("TBCW_USER_PROFILE"))) End If If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE"))) End If - If (Not (ds.Tables("TBCBS_PROFILE_PROCESS")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_PROFILE_PROCESSDataTable(ds.Tables("TBCBS_PROFILE_PROCESS"))) + If (Not (ds.Tables("TBCW_PROFILE_PROCESS")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILE_PROCESSDataTable(ds.Tables("TBCW_PROFILE_PROCESS"))) End If If (Not (ds.Tables("TBWH_User")) Is Nothing) Then MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) @@ -243,7 +243,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -252,24 +252,24 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBCBS_PROFILES = CType(MyBase.Tables("TBCBS_PROFILES"),TBCBS_PROFILESDataTable) + Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable) If (initTable = true) Then - If (Not (Me.tableTBCBS_PROFILES) Is Nothing) Then - Me.tableTBCBS_PROFILES.InitVars + If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then + Me.tableTBCW_PROFILES.InitVars End If End If - Me.tableTBCBS_USER_PROFILE = CType(MyBase.Tables("TBCBS_USER_PROFILE"),TBCBS_USER_PROFILEDataTable) + Me.tableTBCW_USER_PROFILE = CType(MyBase.Tables("TBCW_USER_PROFILE"),TBCW_USER_PROFILEDataTable) If (initTable = true) Then - If (Not (Me.tableTBCBS_USER_PROFILE) Is Nothing) Then - Me.tableTBCBS_USER_PROFILE.InitVars + 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) @@ -278,10 +278,10 @@ Partial Public Class MyDataset Me.tableVWUSER_PROFILE.InitVars End If End If - Me.tableTBCBS_PROFILE_PROCESS = CType(MyBase.Tables("TBCBS_PROFILE_PROCESS"),TBCBS_PROFILE_PROCESSDataTable) + Me.tableTBCW_PROFILE_PROCESS = CType(MyBase.Tables("TBCW_PROFILE_PROCESS"),TBCW_PROFILE_PROCESSDataTable) If (initTable = true) Then - If (Not (Me.tableTBCBS_PROFILE_PROCESS) Is Nothing) Then - Me.tableTBCBS_PROFILE_PROCESS.InitVars + If (Not (Me.tableTBCW_PROFILE_PROCESS) Is Nothing) Then + Me.tableTBCW_PROFILE_PROCESS.InitVars End If End If Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"),TBWH_UserDataTable) @@ -293,57 +293,57 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" Me.Namespace = "http://tempuri.org/MyDataset.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - Me.tableTBCBS_PROFILES = New TBCBS_PROFILESDataTable() - MyBase.Tables.Add(Me.tableTBCBS_PROFILES) - Me.tableTBCBS_USER_PROFILE = New TBCBS_USER_PROFILEDataTable() - MyBase.Tables.Add(Me.tableTBCBS_USER_PROFILE) + Me.tableTBCW_PROFILES = New TBCW_PROFILESDataTable() + MyBase.Tables.Add(Me.tableTBCW_PROFILES) + Me.tableTBCW_USER_PROFILE = New TBCW_USER_PROFILEDataTable() + MyBase.Tables.Add(Me.tableTBCW_USER_PROFILE) Me.tableVWUSER_PROFILE = New VWUSER_PROFILEDataTable() MyBase.Tables.Add(Me.tableVWUSER_PROFILE) - Me.tableTBCBS_PROFILE_PROCESS = New TBCBS_PROFILE_PROCESSDataTable() - MyBase.Tables.Add(Me.tableTBCBS_PROFILE_PROCESS) + Me.tableTBCW_PROFILE_PROCESS = New TBCW_PROFILE_PROCESSDataTable() + MyBase.Tables.Add(Me.tableTBCW_PROFILE_PROCESS) Me.tableTBWH_User = New TBWH_UserDataTable() MyBase.Tables.Add(Me.tableTBWH_User) End Sub _ - Private Function ShouldSerializeTBCBS_PROFILES() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Private Function ShouldSerializeTBCW_PROFILES() As Boolean Return false End Function _ - Private Function ShouldSerializeTBCBS_USER_PROFILE() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWUSER_PROFILE() As Boolean Return false End Function _ - Private Function ShouldSerializeTBCBS_PROFILE_PROCESS() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_User() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -351,7 +351,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -400,19 +400,19 @@ Partial Public Class MyDataset Return type End Function - _ - Public Delegate Sub TBCBS_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_PROFILESRowChangeEvent) + _ + Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) - _ - Public Delegate Sub TBCBS_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_USER_PROFILERowChangeEvent) + _ + 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 TBCBS_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_PROFILE_PROCESSRowChangeEvent) + _ + Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent) - _ + _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) ''' @@ -420,8 +420,8 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBCBS_PROFILESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILESRow) + Partial Public Class TBCW_PROFILESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILESRow) Private columnGUID As Global.System.Data.DataColumn @@ -442,17 +442,17 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBCBS_PROFILES" + Me.TableName = "TBCW_PROFILES" Me.BeginInit Me.InitClass Me.EndInit End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -470,14 +470,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -485,7 +485,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -493,7 +493,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -501,7 +501,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH @@ -509,7 +509,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_EXPRESSION @@ -517,7 +517,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -525,7 +525,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -533,7 +533,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -541,7 +541,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -549,7 +549,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -558,63 +558,63 @@ Partial Public Class MyDataset End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILESRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILESRow Get - Return CType(Me.Rows(index),TBCBS_PROFILESRow) + Return CType(Me.Rows(index),TBCW_PROFILESRow) End Get End Property - _ - Public Event TBCBS_PROFILESRowChanging As TBCBS_PROFILESRowChangeEventHandler + _ + Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler - _ - Public Event TBCBS_PROFILESRowChanged As TBCBS_PROFILESRowChangeEventHandler + _ + Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler - _ - Public Event TBCBS_PROFILESRowDeleting As TBCBS_PROFILESRowChangeEventHandler + _ + Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler - _ - Public Event TBCBS_PROFILESRowDeleted As TBCBS_PROFILESRowChangeEventHandler + _ + Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler _ - Public Overloads Sub AddTBCBS_PROFILESRow(ByVal row As TBCBS_PROFILESRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBCBS_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH 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) As TBCBS_PROFILESRow - Dim rowTBCBS_PROFILESRow As TBCBS_PROFILESRow = CType(Me.NewRow,TBCBS_PROFILESRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH 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) As TBCW_PROFILESRow + Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBCBS_PROFILESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCBS_PROFILESRow) - Return rowTBCBS_PROFILESRow + rowTBCW_PROFILESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROFILESRow) + Return rowTBCW_PROFILESRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCBS_PROFILESRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCBS_PROFILESDataTable = CType(MyBase.Clone,TBCBS_PROFILESDataTable) + Dim cln As TBCW_PROFILESDataTable = CType(MyBase.Clone,TBCW_PROFILESDataTable) cln.InitVars Return cln End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCBS_PROFILESDataTable() + Return New TBCW_PROFILESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -628,7 +628,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -667,67 +667,67 @@ Partial Public Class MyDataset End Sub _ - Public Function NewTBCBS_PROFILESRow() As TBCBS_PROFILESRow - Return CType(Me.NewRow,TBCBS_PROFILESRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow + Return CType(Me.NewRow,TBCW_PROFILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCBS_PROFILESRow(builder) + Return New TBCW_PROFILESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCBS_PROFILESRow) + Return GetType(TBCW_PROFILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBCBS_PROFILESRowChangedEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILESRowChanged(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row,TBCBS_PROFILESRow), e.Action)) + If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBCBS_PROFILESRowChangingEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILESRowChanging(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row,TBCBS_PROFILESRow), e.Action)) + If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBCBS_PROFILESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILESRowDeleted(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row,TBCBS_PROFILESRow), e.Action)) + If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBCBS_PROFILESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILESRowDeleting(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row,TBCBS_PROFILESRow), e.Action)) + If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBCBS_PROFILESRow(ByVal row As TBCBS_PROFILESRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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() @@ -749,7 +749,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 = "TBCBS_PROFILESDataTable" + attribute2.FixedValue = "TBCW_PROFILESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -798,8 +798,8 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBCBS_USER_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCBS_USER_PROFILERow) + Partial Public Class TBCW_USER_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_USER_PROFILERow) Private columnGUID As Global.System.Data.DataColumn @@ -812,17 +812,17 @@ Partial Public Class MyDataset Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBCBS_USER_PROFILE" + Me.TableName = "TBCW_USER_PROFILE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -840,14 +840,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -855,7 +855,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID @@ -863,7 +863,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -871,7 +871,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -879,7 +879,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -887,7 +887,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -896,63 +896,63 @@ Partial Public Class MyDataset End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCBS_USER_PROFILERow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_USER_PROFILERow Get - Return CType(Me.Rows(index),TBCBS_USER_PROFILERow) + Return CType(Me.Rows(index),TBCW_USER_PROFILERow) End Get End Property - _ - Public Event TBCBS_USER_PROFILERowChanging As TBCBS_USER_PROFILERowChangeEventHandler + _ + Public Event TBCW_USER_PROFILERowChanging As TBCW_USER_PROFILERowChangeEventHandler - _ - Public Event TBCBS_USER_PROFILERowChanged As TBCBS_USER_PROFILERowChangeEventHandler + _ + Public Event TBCW_USER_PROFILERowChanged As TBCW_USER_PROFILERowChangeEventHandler - _ - Public Event TBCBS_USER_PROFILERowDeleting As TBCBS_USER_PROFILERowChangeEventHandler + _ + Public Event TBCW_USER_PROFILERowDeleting As TBCW_USER_PROFILERowChangeEventHandler - _ - Public Event TBCBS_USER_PROFILERowDeleted As TBCBS_USER_PROFILERowChangeEventHandler + _ + Public Event TBCW_USER_PROFILERowDeleted As TBCW_USER_PROFILERowChangeEventHandler _ - Public Overloads Sub AddTBCBS_USER_PROFILERow(ByVal row As TBCBS_USER_PROFILERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Sub AddTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBCBS_USER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCBS_USER_PROFILERow - Dim rowTBCBS_USER_PROFILERow As TBCBS_USER_PROFILERow = CType(Me.NewRow,TBCBS_USER_PROFILERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Function AddTBCW_USER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_USER_PROFILERow + Dim rowTBCW_USER_PROFILERow As TBCW_USER_PROFILERow = CType(Me.NewRow,TBCW_USER_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN} - rowTBCBS_USER_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCBS_USER_PROFILERow) - Return rowTBCBS_USER_PROFILERow + rowTBCW_USER_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_USER_PROFILERow) + Return rowTBCW_USER_PROFILERow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_USER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCBS_USER_PROFILERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_USER_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_USER_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCBS_USER_PROFILEDataTable = CType(MyBase.Clone,TBCBS_USER_PROFILEDataTable) + Dim cln As TBCW_USER_PROFILEDataTable = CType(MyBase.Clone,TBCW_USER_PROFILEDataTable) cln.InitVars Return cln End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCBS_USER_PROFILEDataTable() + Return New TBCW_USER_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") @@ -962,7 +962,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -986,67 +986,67 @@ Partial Public Class MyDataset End Sub _ - Public Function NewTBCBS_USER_PROFILERow() As TBCBS_USER_PROFILERow - Return CType(Me.NewRow,TBCBS_USER_PROFILERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function NewTBCW_USER_PROFILERow() As TBCW_USER_PROFILERow + Return CType(Me.NewRow,TBCW_USER_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCBS_USER_PROFILERow(builder) + Return New TBCW_USER_PROFILERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCBS_USER_PROFILERow) + Return GetType(TBCW_USER_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBCBS_USER_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBCBS_USER_PROFILERowChanged(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row,TBCBS_USER_PROFILERow), e.Action)) + If (Not (Me.TBCW_USER_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_USER_PROFILERowChanged(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBCBS_USER_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBCBS_USER_PROFILERowChanging(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row,TBCBS_USER_PROFILERow), e.Action)) + If (Not (Me.TBCW_USER_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_USER_PROFILERowChanging(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBCBS_USER_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBCBS_USER_PROFILERowDeleted(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row,TBCBS_USER_PROFILERow), e.Action)) + If (Not (Me.TBCW_USER_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_USER_PROFILERowDeleted(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBCBS_USER_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBCBS_USER_PROFILERowDeleting(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row,TBCBS_USER_PROFILERow), e.Action)) + If (Not (Me.TBCW_USER_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_USER_PROFILERowDeleting(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action)) End If End Sub _ - Public Sub RemoveTBCBS_USER_PROFILERow(ByVal row As TBCBS_USER_PROFILERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Sub RemoveTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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() @@ -1068,7 +1068,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 = "TBCBS_USER_PROFILEDataTable" + attribute2.FixedValue = "TBCW_USER_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1131,7 +1131,7 @@ Partial Public Class MyDataset Private columnPRENAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWUSER_PROFILE" @@ -1141,7 +1141,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1159,14 +1159,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1174,7 +1174,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID @@ -1182,7 +1182,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -1190,7 +1190,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -1198,7 +1198,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -1206,7 +1206,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1215,33 +1215,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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} @@ -1251,13 +1251,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),VWUSER_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone,VWUSER_PROFILEDataTable) cln.InitVars @@ -1265,13 +1265,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWUSER_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") @@ -1281,7 +1281,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1308,25 +1308,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow Return CType(Me.NewRow,VWUSER_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWUSER_PROFILERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWUSER_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then @@ -1335,7 +1335,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then @@ -1344,7 +1344,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then @@ -1353,7 +1353,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then @@ -1362,13 +1362,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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() @@ -1439,8 +1439,8 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBCBS_PROFILE_PROCESSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILE_PROCESSRow) + Partial Public Class TBCW_PROFILE_PROCESSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILE_PROCESSRow) Private columnGUID As Global.System.Data.DataColumn @@ -1453,17 +1453,17 @@ Partial Public Class MyDataset Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBCBS_PROFILE_PROCESS" + Me.TableName = "TBCW_PROFILE_PROCESS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1481,14 +1481,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1496,7 +1496,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID @@ -1504,7 +1504,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROC_NAME @@ -1512,7 +1512,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1520,7 +1520,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1528,7 +1528,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1537,63 +1537,63 @@ Partial Public Class MyDataset End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILE_PROCESSRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILE_PROCESSRow Get - Return CType(Me.Rows(index),TBCBS_PROFILE_PROCESSRow) + Return CType(Me.Rows(index),TBCW_PROFILE_PROCESSRow) End Get End Property - _ - Public Event TBCBS_PROFILE_PROCESSRowChanging As TBCBS_PROFILE_PROCESSRowChangeEventHandler + _ + Public Event TBCW_PROFILE_PROCESSRowChanging As TBCW_PROFILE_PROCESSRowChangeEventHandler - _ - Public Event TBCBS_PROFILE_PROCESSRowChanged As TBCBS_PROFILE_PROCESSRowChangeEventHandler + _ + Public Event TBCW_PROFILE_PROCESSRowChanged As TBCW_PROFILE_PROCESSRowChangeEventHandler - _ - Public Event TBCBS_PROFILE_PROCESSRowDeleting As TBCBS_PROFILE_PROCESSRowChangeEventHandler + _ + Public Event TBCW_PROFILE_PROCESSRowDeleting As TBCW_PROFILE_PROCESSRowChangeEventHandler - _ - Public Event TBCBS_PROFILE_PROCESSRowDeleted As TBCBS_PROFILE_PROCESSRowChangeEventHandler + _ + Public Event TBCW_PROFILE_PROCESSRowDeleted As TBCW_PROFILE_PROCESSRowChangeEventHandler _ - Public Overloads Sub AddTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_PROFILE_PROCESSRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Sub AddTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBCBS_PROFILE_PROCESSRow(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCBS_PROFILE_PROCESSRow - Dim rowTBCBS_PROFILE_PROCESSRow As TBCBS_PROFILE_PROCESSRow = CType(Me.NewRow,TBCBS_PROFILE_PROCESSRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + 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} - rowTBCBS_PROFILE_PROCESSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBCBS_PROFILE_PROCESSRow) - Return rowTBCBS_PROFILE_PROCESSRow + 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 TBCBS_PROFILE_PROCESSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCBS_PROFILE_PROCESSRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILE_PROCESSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILE_PROCESSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCBS_PROFILE_PROCESSDataTable = CType(MyBase.Clone,TBCBS_PROFILE_PROCESSDataTable) + Dim cln As TBCW_PROFILE_PROCESSDataTable = CType(MyBase.Clone,TBCW_PROFILE_PROCESSDataTable) cln.InitVars Return cln End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCBS_PROFILE_PROCESSDataTable() + Return New TBCW_PROFILE_PROCESSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") @@ -1603,7 +1603,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1630,67 +1630,67 @@ Partial Public Class MyDataset End Sub _ - Public Function NewTBCBS_PROFILE_PROCESSRow() As TBCBS_PROFILE_PROCESSRow - Return CType(Me.NewRow,TBCBS_PROFILE_PROCESSRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function NewTBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow + Return CType(Me.NewRow,TBCW_PROFILE_PROCESSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCBS_PROFILE_PROCESSRow(builder) + Return New TBCW_PROFILE_PROCESSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCBS_PROFILE_PROCESSRow) + Return GetType(TBCW_PROFILE_PROCESSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBCBS_PROFILE_PROCESSRowChangedEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILE_PROCESSRowChanged(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCBS_PROFILE_PROCESSRow), e.Action)) + 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBCBS_PROFILE_PROCESSRowChangingEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILE_PROCESSRowChanging(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCBS_PROFILE_PROCESSRow), e.Action)) + 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBCBS_PROFILE_PROCESSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILE_PROCESSRowDeleted(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCBS_PROFILE_PROCESSRow), e.Action)) + 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBCBS_PROFILE_PROCESSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCBS_PROFILE_PROCESSRowDeleting(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCBS_PROFILE_PROCESSRow), e.Action)) + 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 RemoveTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_PROFILE_PROCESSRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Sub RemoveTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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() @@ -1712,7 +1712,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 = "TBCBS_PROFILE_PROCESSDataTable" + attribute2.FixedValue = "TBCW_PROFILE_PROCESSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1777,7 +1777,7 @@ Partial Public Class MyDataset Private columnID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_User" @@ -1787,7 +1787,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1805,14 +1805,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect @@ -1820,7 +1820,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername @@ -1828,7 +1828,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename @@ -1836,7 +1836,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname @@ -1844,7 +1844,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail @@ -1852,7 +1852,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID @@ -1860,7 +1860,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1869,33 +1869,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_UserRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_UserRow Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} @@ -1905,7 +1905,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable) cln.InitVars @@ -1913,13 +1913,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_UserDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -1930,7 +1930,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") @@ -1951,25 +1951,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_UserRow() As TBWH_UserRow Return CType(Me.NewRow,TBWH_UserRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_UserRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_UserRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then @@ -1978,7 +1978,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then @@ -1987,7 +1987,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then @@ -1996,7 +1996,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then @@ -2005,13 +2005,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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() @@ -2080,266 +2080,266 @@ Partial Public Class MyDataset ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBCBS_PROFILESRow + Partial Public Class TBCW_PROFILESRow Inherits Global.System.Data.DataRow - Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCBS_PROFILES = CType(Me.Table,TBCBS_PROFILESDataTable) + Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCBS_PROFILES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBCBS_PROFILES.GUIDColumn) = value + Me(Me.tableTBCW_PROFILES.GUIDColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get - Return CType(Me(Me.tableTBCBS_PROFILES.NAMEColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String) End Get Set - Me(Me.tableTBCBS_PROFILES.NAMEColumn) = value + Me(Me.tableTBCW_PROFILES.NAMEColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBCBS_PROFILES.COMMENTColumn),String) + 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 TBCBS_PROFILES ist DBNull.", e) + 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.tableTBCBS_PROFILES.COMMENTColumn) = value + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WD_SEARCH() As String Get - Return CType(Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn),String) End Get Set - Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn) = value + Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property REGEX_EXPRESSION() As String Get - Return CType(Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String) End Get Set - Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn) = value + Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn) = value + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCBS_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = value + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCBS_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = value + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCBS_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = value + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.COMMENTColumn) + Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() - Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBCBS_USER_PROFILERow + Partial Public Class TBCW_USER_PROFILERow Inherits Global.System.Data.DataRow - Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable + Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCBS_USER_PROFILE = CType(Me.Table,TBCBS_USER_PROFILEDataTable) + Me.tableTBCW_USER_PROFILE = CType(Me.Table,TBCW_USER_PROFILEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBCW_USER_PROFILE.GUIDColumn),Integer) End Get Set - Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn) = value + Me(Me.tableTBCW_USER_PROFILE.GUIDColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn),Integer) End Get Set - Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn) = value + Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn),Integer) + Return CType(Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn),Integer) End Get Set - Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn) = value + Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn) = value + Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCBS_USER_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_USER_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = value + Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class @@ -2352,14 +2352,14 @@ Partial Public Class MyDataset Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn),Integer) @@ -2370,7 +2370,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn),Integer) @@ -2381,7 +2381,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn),String) @@ -2392,7 +2392,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -2407,7 +2407,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -2422,25 +2422,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull End Sub @@ -2449,87 +2449,87 @@ Partial Public Class MyDataset ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBCBS_PROFILE_PROCESSRow + Partial Public Class TBCW_PROFILE_PROCESSRow Inherits Global.System.Data.DataRow - Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable + Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCBS_PROFILE_PROCESS = CType(Me.Table,TBCBS_PROFILE_PROCESSDataTable) + Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn) = value + Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer) End Get Set - Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn) = value + Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PROC_NAME() As String Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn),String) + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String) End Get Set - Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn) = value + Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn) = value + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn),Date) + 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 TBCBS_PROFILE_PROCESS ist DBNull.", e) + 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.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = value + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class @@ -2542,14 +2542,14 @@ Partial Public Class MyDataset Private tableTBWH_User As TBWH_UserDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _Select() As Boolean Get Try @@ -2564,7 +2564,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Username() As String Get Try @@ -2579,7 +2579,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Prename() As String Get Try @@ -2594,7 +2594,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Surname() As String Get Try @@ -2609,7 +2609,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Email() As String Get Try @@ -2624,7 +2624,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Short Get Try @@ -2639,73 +2639,73 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.SelectColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_SelectNull() Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetUsernameNull() Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPrenameNull() Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSurnameNull() Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.EmailColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEmailNull() Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIDNull() Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull End Sub @@ -2714,32 +2714,32 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ - Public Class TBCBS_PROFILESRowChangeEvent + _ + Public Class TBCW_PROFILESRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBCBS_PROFILESRow + Private eventRow As TBCW_PROFILESRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCBS_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + 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 TBCBS_PROFILESRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Row() As TBCW_PROFILESRow Get Return Me.eventRow End Get End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -2750,32 +2750,32 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ - Public Class TBCBS_USER_PROFILERowChangeEvent + _ + Public Class TBCW_USER_PROFILERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBCBS_USER_PROFILERow + Private eventRow As TBCW_USER_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCBS_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + 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 TBCBS_USER_PROFILERow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Row() As TBCW_USER_PROFILERow Get Return Me.eventRow End Get End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -2786,7 +2786,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWUSER_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -2795,7 +2795,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -2803,7 +2803,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWUSER_PROFILERow Get Return Me.eventRow @@ -2811,7 +2811,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -2822,32 +2822,32 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ - Public Class TBCBS_PROFILE_PROCESSRowChangeEvent + _ + Public Class TBCW_PROFILE_PROCESSRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBCBS_PROFILE_PROCESSRow + Private eventRow As TBCW_PROFILE_PROCESSRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCBS_PROFILE_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + 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 TBCBS_PROFILE_PROCESSRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow Get Return Me.eventRow End Get End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -2858,7 +2858,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_UserRowChangeEvent Inherits Global.System.EventArgs @@ -2867,7 +2867,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_UserRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -2875,7 +2875,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_UserRow Get Return Me.eventRow @@ -2883,7 +2883,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -2903,7 +2903,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 TBCBS_PROFILESTableAdapter + Partial Public Class TBCW_PROFILESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -2917,14 +2917,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -2935,7 +2935,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -2965,7 +2965,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -2993,7 +2993,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -3004,7 +3004,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -3015,12 +3015,12 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 = "TBCBS_PROFILES" + tableMapping.DataSetTable = "TBCW_PROFILES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") @@ -3033,16 +3033,16 @@ 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 TBCBS_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"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, 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 TBCBS_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, WD_SEARCH, R"& _ - "EGEX_EXPRESSION, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXP"& _ - "RESSION,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, "& _ - "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCBS_PROFILES WHERE (GUID"& _ - " = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, WD_SEARCH, RE"& _ + "GEX_EXPRESSION, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXPR"& _ + "ESSION,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, "& _ + "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, "", "", "")) @@ -3051,11 +3051,11 @@ Namespace MyDatasetTableAdapters 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 TBCBS_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT,"& _ - " WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CH"& _ - "ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, W"& _ - "D_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FRO"& _ - "M TBCBS_PROFILES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT, "& _ + "WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHA"& _ + "NGED_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, COMMENT, WD"& _ + "_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, 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, "", "", "")) @@ -3067,27 +3067,27 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 TBCBS_PROFILES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCBS_PROFILES" + Me._commandCollection(0).CommandText = "SELECT TBCW_PROFILES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROFILES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -3097,46 +3097,46 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function GetData() As MyDataset.TBCBS_PROFILESDataTable + Public Overloads Overridable Function GetData() As MyDataset.TBCW_PROFILESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCBS_PROFILESDataTable = New MyDataset.TBCBS_PROFILESDataTable() + Dim dataTable As MyDataset.TBCW_PROFILESDataTable = New MyDataset.TBCW_PROFILESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) 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, "TBCBS_PROFILES") + Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") 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 @@ -3157,7 +3157,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String) As Integer @@ -3202,7 +3202,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -3258,7 +3258,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 TBCBS_USER_PROFILETableAdapter + Partial Public Class TBCW_USER_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3272,14 +3272,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -3290,7 +3290,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -3320,7 +3320,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -3348,7 +3348,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -3359,7 +3359,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -3370,12 +3370,12 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 = "TBCBS_USER_PROFILE" + tableMapping.DataSetTable = "TBCW_USER_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") @@ -3384,24 +3384,24 @@ 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 TBCBS_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + 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.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 TBCBS_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, USER_ID, AD"& _ - "DED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL"& _ - "E_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCBS_USER_PROFILE WHERE (GUID = SCOPE"& _ - "_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, USER_ID, ADD"& _ + "ED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE"& _ + "_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_I"& _ + "DENTITY())" 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("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 TBCBS_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, USE"& _ - "R_ID = @USER_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, PROFILE_ID"& _ - ", USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCBS_USER_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, USER"& _ + "_ID = @USER_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, PROFILE_ID,"& _ + " USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -3410,27 +3410,27 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 TBCBS_USER_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCBS_USER_PROFILE" + Me._commandCollection(0).CommandText = "SELECT TBCW_USER_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_USER_PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -3440,46 +3440,46 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function GetData() As MyDataset.TBCBS_USER_PROFILEDataTable + Public Overloads Overridable Function GetData() As MyDataset.TBCW_USER_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCBS_USER_PROFILEDataTable = New MyDataset.TBCBS_USER_PROFILEDataTable() + Dim dataTable As MyDataset.TBCW_USER_PROFILEDataTable = New MyDataset.TBCW_USER_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_USER_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, "TBCBS_USER_PROFILE") + Return Me.Adapter.Update(dataSet, "TBCW_USER_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 @@ -3500,7 +3500,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer @@ -3527,7 +3527,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -3574,14 +3574,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -3592,7 +3592,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -3622,7 +3622,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -3650,7 +3650,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -3661,7 +3661,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -3672,7 +3672,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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() @@ -3687,33 +3687,33 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 "& _ - " TBCBS_USER_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T"& _ - "1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFILE_ID = @PROFILE_ID) ORDER BY T1."& _ + " 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 TBCBS_USER_RPOFILE WHERE GUID = @GUID" + 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.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + 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 @@ -3727,7 +3727,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable @@ -3739,16 +3739,11 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function cmdDelete(ByVal GUID As Object) As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (GUID Is Nothing) Then - Throw New Global.System.ArgumentNullException("GUID") - Else - command.Parameters(0).Value = CType(GUID,Object) - End If + 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 @@ -3775,7 +3770,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 TBCBS_PROFILE_PROCESSTableAdapter + Partial Public Class TBCW_PROFILE_PROCESSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3789,14 +3784,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -3807,7 +3802,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -3837,7 +3832,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -3865,7 +3860,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -3876,7 +3871,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -3887,12 +3882,12 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 = "TBCBS_PROFILE_PROCESS" + tableMapping.DataSetTable = "TBCW_PROFILE_PROCESS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") @@ -3901,13 +3896,13 @@ 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 TBCBS_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + 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 TBCBS_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, PROC_NAM"& _ - "E, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO)" + 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, "", "", "")) @@ -3915,29 +3910,29 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 "& _ - " TBCBS_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PID)" + " 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.TBCBS_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer + 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 @@ -3948,40 +3943,40 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function GetData(ByVal PID As Integer) As MyDataset.TBCBS_PROFILE_PROCESSDataTable + 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.TBCBS_PROFILE_PROCESSDataTable = New MyDataset.TBCBS_PROFILE_PROCESSDataTable() + 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.TBCBS_PROFILE_PROCESSDataTable) As Integer + 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, "TBCBS_PROFILE_PROCESS") + 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) @@ -4001,18 +3996,18 @@ Namespace MyDatasetTableAdapters Private _updateOrder As UpdateOrderOption - Private _tBCBS_PROFILESTableAdapter As TBCBS_PROFILESTableAdapter + Private _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter - Private _tBCBS_USER_PROFILETableAdapter As TBCBS_USER_PROFILETableAdapter + Private _tBCW_USER_PROFILETableAdapter As TBCW_USER_PROFILETableAdapter - Private _tBCBS_PROFILE_PROCESSTableAdapter As TBCBS_PROFILE_PROCESSTableAdapter + Private _tBCW_PROFILE_PROCESSTableAdapter As TBCW_PROFILE_PROCESSTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -4023,49 +4018,49 @@ Namespace MyDatasetTableAdapters End Property _ - Public Property TBCBS_PROFILESTableAdapter() As TBCBS_PROFILESTableAdapter + Public Property TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter Get - Return Me._tBCBS_PROFILESTableAdapter + Return Me._tBCW_PROFILESTableAdapter End Get Set - Me._tBCBS_PROFILESTableAdapter = value + Me._tBCW_PROFILESTableAdapter = value End Set End Property _ - Public Property TBCBS_USER_PROFILETableAdapter() As TBCBS_USER_PROFILETableAdapter + Public Property TBCW_USER_PROFILETableAdapter() As TBCW_USER_PROFILETableAdapter Get - Return Me._tBCBS_USER_PROFILETableAdapter + Return Me._tBCW_USER_PROFILETableAdapter End Get Set - Me._tBCBS_USER_PROFILETableAdapter = value + Me._tBCW_USER_PROFILETableAdapter = value End Set End Property _ - Public Property TBCBS_PROFILE_PROCESSTableAdapter() As TBCBS_PROFILE_PROCESSTableAdapter + Public Property TBCW_PROFILE_PROCESSTableAdapter() As TBCW_PROFILE_PROCESSTableAdapter Get - Return Me._tBCBS_PROFILE_PROCESSTableAdapter + Return Me._tBCW_PROFILE_PROCESSTableAdapter End Get Set - Me._tBCBS_PROFILE_PROCESSTableAdapter = value + Me._tBCW_PROFILE_PROCESSTableAdapter = value End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -4076,24 +4071,24 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCBS_PROFILESTableAdapter.Connection) Is Nothing)) Then - Return Me._tBCBS_PROFILESTableAdapter.Connection + 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._tBCBS_USER_PROFILETableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCBS_USER_PROFILETableAdapter.Connection) Is Nothing)) Then - Return Me._tBCBS_USER_PROFILETableAdapter.Connection + 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._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection) Is Nothing)) Then - Return Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection + 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 Return Nothing End Get @@ -4103,18 +4098,18 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then + If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then + If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then count = (count + 1) End If Return count @@ -4125,33 +4120,33 @@ Namespace MyDatasetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILES.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._tBCBS_PROFILESTableAdapter.Update(updatedRows)) + result = (result + Me._tBCW_PROFILESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCBS_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + 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._tBCBS_USER_PROFILETableAdapter.Update(updatedRows)) + result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.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._tBCBS_PROFILE_PROCESSTableAdapter.Update(updatedRows)) + result = (result + Me._tBCW_PROFILE_PROCESSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -4162,30 +4157,30 @@ Namespace MyDatasetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILES.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._tBCBS_PROFILESTableAdapter.Update(addedRows)) + result = (result + Me._tBCW_PROFILESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCBS_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + 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._tBCBS_USER_PROFILETableAdapter.Update(addedRows)) + result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(addedRows)) + result = (result + Me._tBCW_PROFILE_PROCESSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -4196,30 +4191,30 @@ Namespace MyDatasetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + 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) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(deletedRows)) + result = (result + Me._tBCW_PROFILE_PROCESSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCBS_USER_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._tBCBS_USER_PROFILETableAdapter.Update(deletedRows)) + result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCBS_PROFILESTableAdapter.Update(deletedRows)) + result = (result + Me._tBCW_PROFILESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -4230,7 +4225,7 @@ Namespace MyDatasetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -4256,7 +4251,7 @@ Namespace MyDatasetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -4264,18 +4259,18 @@ Namespace MyDatasetTableAdapters If (dataSet.HasChanges = false) Then Return 0 End If - If ((Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_PROFILESTableAdapter.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._tBCBS_USER_PROFILETableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_USER_PROFILETableAdapter.Connection) = false)) Then + 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._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_PROFILE_PROCESSTableAdapter.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 @@ -4313,31 +4308,31 @@ Namespace MyDatasetTableAdapters Try '---- Prepare for update ----------- ' - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCBS_PROFILESTableAdapter, Me._tBCBS_PROFILESTableAdapter.Connection) - Me._tBCBS_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCBS_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCBS_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCBS_PROFILESTableAdapter.Adapter) + 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._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCBS_USER_PROFILETableAdapter, Me._tBCBS_USER_PROFILETableAdapter.Connection) - Me._tBCBS_USER_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_USER_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCBS_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCBS_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCBS_USER_PROFILETableAdapter.Adapter) + 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._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBCBS_PROFILE_PROCESSTableAdapter, Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection) - Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_PROFILE_PROCESSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBCBS_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBCBS_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCBS_PROFILE_PROCESSTableAdapter.Adapter) + 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 ' @@ -4400,17 +4395,17 @@ Namespace MyDatasetTableAdapters If workConnOpened Then workConnection.Close End If - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - Me._tBCBS_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCBS_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_PROFILESTableAdapter.Transaction = Nothing + 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._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then - Me._tBCBS_USER_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCBS_USER_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_USER_PROFILETableAdapter.Transaction = Nothing + 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._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then - Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBCBS_PROFILE_PROCESSTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_PROFILE_PROCESSTableAdapter.Transaction = Nothing + 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 (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter @@ -4427,13 +4422,13 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -4451,7 +4446,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -4462,7 +4457,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -4472,7 +4467,7 @@ Namespace MyDatasetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -4484,7 +4479,7 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -4523,7 +4518,7 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsc b/app/DD_Clipboard_Searcher/MyDataset.xsc index c05010c..4f0e6d9 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsc +++ b/app/DD_Clipboard_Searcher/MyDataset.xsc @@ -6,7 +6,7 @@ --> - + diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index 353b393..9d805e8 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -7,54 +7,54 @@ - + - + - DELETE FROM TBCBS_PROFILES + DELETE FROM TBCW_PROFILES WHERE (GUID = @Original_GUID) - + - INSERT INTO TBCBS_PROFILES + INSERT INTO TBCW_PROFILES (NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO) -VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXPRESSION,@ADDED_WHO); -SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCBS_PROFILES WHERE (GUID = SCOPE_IDENTITY()) +VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXPRESSION,@ADDED_WHO); +SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) - - - - - + + + + + - SELECT TBCBS_PROFILES.* -FROM TBCBS_PROFILES + SELECT TBCW_PROFILES.* +FROM TBCW_PROFILES - UPDATE TBCBS_PROFILES + UPDATE TBCW_PROFILES SET NAME = @NAME, COMMENT = @COMMENT, WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO WHERE (GUID = @Original_GUID); -SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCBS_PROFILES WHERE (GUID = @GUID) +SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID) - - - - - - - + + + + + + + @@ -73,49 +73,49 @@ SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, - + - + - DELETE FROM TBCBS_USER_PROFILE + DELETE FROM TBCW_USER_PROFILE WHERE (GUID = @Original_GUID) - + - INSERT INTO TBCBS_USER_PROFILE + 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 TBCBS_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) +SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - + + + - SELECT TBCBS_USER_PROFILE.* -FROM TBCBS_USER_PROFILE + SELECT TBCW_USER_PROFILE.* +FROM TBCW_USER_PROFILE - UPDATE TBCBS_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 TBCBS_USER_PROFILE WHERE (GUID = @GUID) +SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID) - - - - + + + + @@ -132,15 +132,16 @@ SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCBS_USER_PROFILE - + - + SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME -FROM TBCBS_USER_PROFILE AS T INNER JOIN +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 +WHERE (T.PROFILE_ID = @PROFILE_ID) +ORDER BY T1.USERNAME - + @@ -154,49 +155,58 @@ WHERE (T.PROFILE_ID = @PROFILE_ID) ORDER BY T1.USERNAME - + - DELETE FROM TBCBS_USER_RPOFILE WHERE GUID = @GUID + DELETE FROM TBCW_USER_RPOFILE WHERE GUID = @GUID + + + DELETE FROM TBCW_USER_PROFILE +WHERE (GUID = @GUID) + + + + + - + - + - DELETE FROM TBCBS_PROFILE_PROCESS + DELETE FROM TBCW_PROFILE_PROCESS WHERE (GUID = @GUID) - + - INSERT INTO TBCBS_PROFILE_PROCESS + 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 TBCBS_PROFILE_PROCESS +FROM TBCW_PROFILE_PROCESS WHERE (PROFILE_ID = @PID) - + @@ -219,7 +229,7 @@ WHERE (PROFILE_ID = @PID) - + @@ -270,7 +280,7 @@ WHERE (PROFILE_ID = @PID) - + @@ -287,7 +297,7 @@ WHERE (PROFILE_ID = @PID) - + @@ -316,7 +326,7 @@ WHERE (PROFILE_ID = @PID) - + @@ -328,7 +338,7 @@ WHERE (PROFILE_ID = @PID) - + @@ -354,19 +364,19 @@ WHERE (PROFILE_ID = @PID) - + - - + + - - + + diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index de16560..2b57ca5 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -4,13 +4,13 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - + + + + - \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/clsHotkey.vb b/app/DD_Clipboard_Searcher/clsHotkey.vb index d7da693..e9ba35a 100644 --- a/app/DD_Clipboard_Searcher/clsHotkey.vb +++ b/app/DD_Clipboard_Searcher/clsHotkey.vb @@ -73,7 +73,7 @@ Public Class clsHotkey End Class Public Shared Sub Refresh_Profile_Links() Try - Dim sql = String.Format("SELECT T.*, T2.PROC_NAME FROM TBCBS_PROFILES T, TBCBS_USER_PROFILE T1, TBCBS_PROFILE_PROCESS T2 WHERE T.GUID = T1.PROFILE_ID AND T.GUID = T2.PROFILE_ID AND T1.USER_ID = {0}", USER_GUID) + Dim sql = String.Format("SELECT T.*, T2.PROC_NAME FROM TBCW_PROFILES T, TBCW_USER_PROFILE T1, TBCW_PROFILE_PROCESS T2 WHERE T.GUID = T1.PROFILE_ID AND T.GUID = T2.PROFILE_ID AND T1.USER_ID = {0}", USER_GUID) DT_USER_PROFILES = clsDatabase.Return_Datatable(sql) If DT_USER_PROFILES.Rows.Count = 0 Then MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation) diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 9c8cd22..dbc29d4 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -36,12 +36,12 @@ Partial Class frmAdministration Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.btnaddSearch = New System.Windows.Forms.Button() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.TBCBS_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBCBS_PROFILESBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.TBCW_PROFILESBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -53,7 +53,7 @@ Partial Class frmAdministration Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() - Me.TBCBS_PROFILESBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.TBCW_PROFILESBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.COMMENTTextBox = New System.Windows.Forms.TextBox() @@ -83,7 +83,7 @@ Partial Class frmAdministration Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBCBS_PROFILESTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter() + Me.TBCW_PROFILESTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter() Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.statuslabel = New System.Windows.Forms.ToolStripStatusLabel() @@ -97,8 +97,8 @@ Partial Class frmAdministration Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.TimerTest = New System.Windows.Forms.Timer(Me.components) - Me.TBCBS_PROFILE_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBCBS_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter() + Me.TBCW_PROFILE_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBCW_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter() Me.GridControl3 = New DevExpress.XtraGrid.GridControl() Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -125,11 +125,11 @@ Partial Class frmAdministration CHANGED_WHENLabel = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBCBS_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBCBS_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TBCBS_PROFILESBindingNavigator.SuspendLayout() + CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBCW_PROFILESBindingNavigator.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -140,7 +140,7 @@ Partial Class frmAdministration Me.StatusStrip1.SuspendLayout() Me.GroupBox3.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBCBS_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() @@ -243,7 +243,7 @@ Partial Class frmAdministration Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.GroupBox1.Controls.Add(Me.btnaddSearch) Me.GroupBox1.Controls.Add(Me.GridControl1) - Me.GroupBox1.Controls.Add(Me.TBCBS_PROFILESBindingNavigator) + Me.GroupBox1.Controls.Add(Me.TBCW_PROFILESBindingNavigator) Me.GroupBox1.Controls.Add(GUIDLabel) Me.GroupBox1.Controls.Add(Me.GUIDTextBox) Me.GroupBox1.Controls.Add(NAMELabel) @@ -265,7 +265,7 @@ Partial Class frmAdministration Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox1.Location = New System.Drawing.Point(12, 12) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(530, 292) + Me.GroupBox1.Size = New System.Drawing.Size(570, 292) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Profile" @@ -282,7 +282,7 @@ Partial Class frmAdministration ' 'GridControl1 ' - Me.GridControl1.DataSource = Me.TBCBS_PROFILESBindingSource + Me.GridControl1.DataSource = Me.TBCW_PROFILESBindingSource Me.GridControl1.Location = New System.Drawing.Point(6, 17) Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.Name = "GridControl1" @@ -290,10 +290,10 @@ Partial Class frmAdministration Me.GridControl1.TabIndex = 18 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' - 'TBCBS_PROFILESBindingSource + 'TBCW_PROFILESBindingSource ' - Me.TBCBS_PROFILESBindingSource.DataMember = "TBCBS_PROFILES" - Me.TBCBS_PROFILESBindingSource.DataSource = Me.MyDataset + Me.TBCW_PROFILESBindingSource.DataMember = "TBCW_PROFILES" + Me.TBCW_PROFILESBindingSource.DataSource = Me.MyDataset ' 'MyDataset ' @@ -334,24 +334,24 @@ Partial Class frmAdministration Me.colNAME.VisibleIndex = 1 Me.colNAME.Width = 100 ' - 'TBCBS_PROFILESBindingNavigator - ' - Me.TBCBS_PROFILESBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem - Me.TBCBS_PROFILESBindingNavigator.BindingSource = Me.TBCBS_PROFILESBindingSource - Me.TBCBS_PROFILESBindingNavigator.CountItem = Me.BindingNavigatorCountItem - Me.TBCBS_PROFILESBindingNavigator.DeleteItem = Nothing - Me.TBCBS_PROFILESBindingNavigator.Dock = System.Windows.Forms.DockStyle.None - Me.TBCBS_PROFILESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBCBS_PROFILESBindingNavigatorSaveItem}) - Me.TBCBS_PROFILESBindingNavigator.Location = New System.Drawing.Point(177, 20) - Me.TBCBS_PROFILESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem - Me.TBCBS_PROFILESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem - Me.TBCBS_PROFILESBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem - Me.TBCBS_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem - Me.TBCBS_PROFILESBindingNavigator.Name = "TBCBS_PROFILESBindingNavigator" - Me.TBCBS_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem - Me.TBCBS_PROFILESBindingNavigator.Size = New System.Drawing.Size(287, 25) - Me.TBCBS_PROFILESBindingNavigator.TabIndex = 1 - Me.TBCBS_PROFILESBindingNavigator.Text = "BindingNavigator1" + 'TBCW_PROFILESBindingNavigator + ' + Me.TBCW_PROFILESBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBCW_PROFILESBindingNavigator.BindingSource = Me.TBCW_PROFILESBindingSource + Me.TBCW_PROFILESBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBCW_PROFILESBindingNavigator.DeleteItem = Nothing + Me.TBCW_PROFILESBindingNavigator.Dock = System.Windows.Forms.DockStyle.None + Me.TBCW_PROFILESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBCW_PROFILESBindingNavigatorSaveItem}) + Me.TBCW_PROFILESBindingNavigator.Location = New System.Drawing.Point(177, 20) + Me.TBCW_PROFILESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBCW_PROFILESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBCW_PROFILESBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator" + Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(318, 25) + Me.TBCW_PROFILESBindingNavigator.TabIndex = 1 + Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1" ' 'BindingNavigatorAddNewItem ' @@ -438,17 +438,17 @@ Partial Class frmAdministration Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) Me.BindingNavigatorDeleteItem.Text = "Löschen" ' - 'TBCBS_PROFILESBindingNavigatorSaveItem + 'TBCW_PROFILESBindingNavigatorSaveItem ' - Me.TBCBS_PROFILESBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.TBCBS_PROFILESBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBCBS_PROFILESBindingNavigatorSaveItem.Image"), System.Drawing.Image) - Me.TBCBS_PROFILESBindingNavigatorSaveItem.Name = "TBCBS_PROFILESBindingNavigatorSaveItem" - Me.TBCBS_PROFILESBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) - Me.TBCBS_PROFILESBindingNavigatorSaveItem.Text = "Daten speichern" + Me.TBCW_PROFILESBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBCW_PROFILESBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBCW_PROFILESBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBCW_PROFILESBindingNavigatorSaveItem.Name = "TBCW_PROFILESBindingNavigatorSaveItem" + Me.TBCW_PROFILESBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBCW_PROFILESBindingNavigatorSaveItem.Text = "Daten speichern" ' 'GUIDTextBox ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "GUID", True)) + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) Me.GUIDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GUIDTextBox.Location = New System.Drawing.Point(177, 64) Me.GUIDTextBox.Name = "GUIDTextBox" @@ -458,7 +458,7 @@ Partial Class frmAdministration ' 'NAMETextBox ' - Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "NAME", True)) + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "NAME", True)) Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.NAMETextBox.Location = New System.Drawing.Point(230, 64) Me.NAMETextBox.Name = "NAMETextBox" @@ -467,7 +467,7 @@ Partial Class frmAdministration ' 'COMMENTTextBox ' - Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) Me.COMMENTTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.COMMENTTextBox.Location = New System.Drawing.Point(177, 104) Me.COMMENTTextBox.Name = "COMMENTTextBox" @@ -476,7 +476,7 @@ Partial Class frmAdministration ' 'WD_SEARCHTextBox ' - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "WD_SEARCH", True)) + Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "WD_SEARCH", True)) Me.WD_SEARCHTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(177, 144) Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" @@ -485,7 +485,7 @@ Partial Class frmAdministration ' 'REGEX_EXPRESSIONTextBox ' - Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "REGEX_EXPRESSION", True)) + Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) Me.REGEX_EXPRESSIONTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.REGEX_EXPRESSIONTextBox.Location = New System.Drawing.Point(177, 184) Me.REGEX_EXPRESSIONTextBox.Name = "REGEX_EXPRESSIONTextBox" @@ -494,7 +494,7 @@ Partial Class frmAdministration ' 'ADDED_WHOTextBox ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(177, 224) Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" @@ -504,7 +504,7 @@ Partial Class frmAdministration ' 'ADDED_WHENTextBox ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(330, 224) Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" @@ -514,7 +514,7 @@ Partial Class frmAdministration ' 'CHANGED_WHOTextBox ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(177, 264) Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" @@ -524,7 +524,7 @@ Partial Class frmAdministration ' 'CHANGED_WHENTextBox ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_PROFILESBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(330, 264) Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" @@ -542,7 +542,8 @@ Partial Class frmAdministration Me.GroupBox2.Controls.Add(Me.btnAddUser2Profile) Me.GroupBox2.Controls.Add(Me.Label1) Me.GroupBox2.Controls.Add(Me.GridControl2) - Me.GroupBox2.Location = New System.Drawing.Point(548, 12) + Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(591, 12) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(637, 292) Me.GroupBox2.TabIndex = 1 @@ -554,7 +555,7 @@ Partial Class frmAdministration Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(363, 72) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(97, 13) + Me.Label2.Size = New System.Drawing.Size(110, 13) Me.Label2.TabIndex = 92 Me.Label2.Text = "User ohne Rechte:" ' @@ -637,6 +638,7 @@ Partial Class frmAdministration 'btndeleteUserConstructorRel ' Me.btndeleteUserConstructorRel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btndeleteUserConstructorRel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btndeleteUserConstructorRel.Image = CType(resources.GetObject("btndeleteUserConstructorRel.Image"), System.Drawing.Image) Me.btndeleteUserConstructorRel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl @@ -650,6 +652,7 @@ Partial Class frmAdministration ' 'btnAddUser2Profile ' + Me.btnAddUser2Profile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnAddUser2Profile.Image = CType(resources.GetObject("btnAddUser2Profile.Image"), System.Drawing.Image) Me.btnAddUser2Profile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAddUser2Profile.ImeMode = System.Windows.Forms.ImeMode.NoControl @@ -666,7 +669,7 @@ Partial Class frmAdministration Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(6, 20) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(98, 13) + Me.Label1.Size = New System.Drawing.Size(112, 13) Me.Label1.TabIndex = 21 Me.Label1.Text = "Zugeordnete User:" ' @@ -746,16 +749,16 @@ Partial Class frmAdministration Me.colPRENAME.VisibleIndex = 3 Me.colPRENAME.Width = 86 ' - 'TBCBS_PROFILESTableAdapter + 'TBCW_PROFILESTableAdapter ' - Me.TBCBS_PROFILESTableAdapter.ClearBeforeFill = True + Me.TBCW_PROFILESTableAdapter.ClearBeforeFill = True ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBCBS_PROFILE_PROCESSTableAdapter = Nothing - Me.TableAdapterManager.TBCBS_PROFILESTableAdapter = Me.TBCBS_PROFILESTableAdapter - Me.TableAdapterManager.TBCBS_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter + Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'StatusStrip1 @@ -859,20 +862,20 @@ Partial Class frmAdministration ' Me.TimerTest.Interval = 5000 ' - 'TBCBS_PROFILE_PROCESSBindingSource + 'TBCW_PROFILE_PROCESSBindingSource ' - Me.TBCBS_PROFILE_PROCESSBindingSource.DataMember = "TBCBS_PROFILE_PROCESS" - Me.TBCBS_PROFILE_PROCESSBindingSource.DataSource = Me.MyDataset + Me.TBCW_PROFILE_PROCESSBindingSource.DataMember = "TBCW_PROFILE_PROCESS" + Me.TBCW_PROFILE_PROCESSBindingSource.DataSource = Me.MyDataset ' - 'TBCBS_PROFILE_PROCESSTableAdapter + 'TBCW_PROFILE_PROCESSTableAdapter ' - Me.TBCBS_PROFILE_PROCESSTableAdapter.ClearBeforeFill = True + Me.TBCW_PROFILE_PROCESSTableAdapter.ClearBeforeFill = True ' 'GridControl3 ' Me.GridControl3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.GridControl3.DataSource = Me.TBCBS_PROFILE_PROCESSBindingSource + Me.GridControl3.DataSource = Me.TBCW_PROFILE_PROCESSBindingSource Me.GridControl3.Location = New System.Drawing.Point(6, 20) Me.GridControl3.MainView = Me.GridViewProcessProfile Me.GridControl3.Name = "GridControl3" @@ -972,12 +975,13 @@ Partial Class frmAdministration ' 'GroupBox5 ' + Me.GroupBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox5.Controls.Add(Me.lblLicenseDate) Me.GroupBox5.Controls.Add(Me.lbllicenseCount) Me.GroupBox5.Controls.Add(Me.Label6) Me.GroupBox5.Controls.Add(Me.Label5) Me.GroupBox5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox5.Location = New System.Drawing.Point(914, 310) + Me.GroupBox5.Location = New System.Drawing.Point(957, 628) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(271, 71) Me.GroupBox5.TabIndex = 22 @@ -1043,12 +1047,12 @@ Partial Class frmAdministration Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBCBS_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBCBS_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() - Me.TBCBS_PROFILESBindingNavigator.ResumeLayout(False) - Me.TBCBS_PROFILESBindingNavigator.PerformLayout() + CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBCW_PROFILESBindingNavigator.ResumeLayout(False) + Me.TBCW_PROFILESBindingNavigator.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() @@ -1062,7 +1066,7 @@ Partial Class frmAdministration Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBCBS_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox4.ResumeLayout(False) @@ -1075,10 +1079,10 @@ Partial Class frmAdministration Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents MyDataset As DD_Clipboard_Watcher.MyDataset - Friend WithEvents TBCBS_PROFILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBCBS_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter + 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 TBCBS_PROFILESBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents TBCW_PROFILESBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton @@ -1090,7 +1094,7 @@ Partial Class frmAdministration Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents TBCBS_PROFILESBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents TBCW_PROFILESBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox @@ -1135,8 +1139,8 @@ Partial Class frmAdministration Friend WithEvents TimerTest As System.Windows.Forms.Timer Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents TBWH_UserBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBCBS_PROFILE_PROCESSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBCBS_PROFILE_PROCESSTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter + Friend WithEvents TBCW_PROFILE_PROCESSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBCW_PROFILE_PROCESSTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewProcessProfile As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index afa3726..a27a623 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -144,13 +144,13 @@ False - + 127, 17 17, 17 - + 738, 17 @@ -218,7 +218,7 @@ bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo @@ -264,7 +264,7 @@ 180, 56 - + 349, 17 @@ -282,10 +282,10 @@ 631, 56 - + 930, 56 - + 1201, 56 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index ea70d89..b6c70f9 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -1,7 +1,7 @@ Imports DD_LIB_Standards Public Class frmAdministration Dim PID As Integer - Private Sub TBCBS_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCBS_PROFILESBindingNavigatorSaveItem.Click + Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click Save_Profile() Me.TableAdapterManager.UpdateAll(Me.MyDataset) @@ -9,19 +9,19 @@ Public Class frmAdministration End Sub Sub Load_Profiles() Try - Me.TBCBS_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBCBS_PROFILESTableAdapter.Fill(Me.MyDataset.TBCBS_PROFILES) + Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES) Catch ex As Exception MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Sub Save_Profile() Try - Me.TBCBS_PROFILESBindingSource.EndEdit() - If Not IsNothing(MyDataset.TBCBS_PROFILES.GetChanges) Then + Me.TBCW_PROFILESBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then Me.CHANGED_WHOTextBox.Text = Environment.UserName - Me.TBCBS_PROFILESBindingSource.EndEdit() - Me.TBCBS_PROFILESTableAdapter.Update(MyDataset.TBCBS_PROFILES) + Me.TBCW_PROFILESBindingSource.EndEdit() + Me.TBCW_PROFILESTableAdapter.Update(MyDataset.TBCW_PROFILES) Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow) Else Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent) @@ -45,8 +45,8 @@ Public Class frmAdministration statuslabel.BackColor = col End Sub - Private Sub TBCBS_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCBS_PROFILESBindingSource.AddingNew - MyDataset.TBCBS_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName + Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew + MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName End Sub Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click @@ -88,7 +88,7 @@ Public Class frmAdministration End Try For Each row As DataRow In MyDataset.TBWH_User.Rows If row.Item(0) = CBool(True) Then - Dim insert = String.Format("INSERT INTO TBCBS_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5)) + Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5)) If clsDatabase.Execute_non_Query(insert) = False Then MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) End If @@ -109,7 +109,8 @@ Public Class frmAdministration Catch ex As Exception Exit Sub End Try - Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_DDCBSEARCHER = 1 AND GUID NOT IN (SELECT USER_ID FROM TBCBS_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", GUIDTextBox.Text) + + Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_DDCBSEARCHER = 1 AND GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", GUIDTextBox.Text) Dim DT_USER = clsDatabase.Return_Datatable(Sql) Try MyDataset.TBWH_User.Clear() @@ -144,7 +145,7 @@ Public Class frmAdministration Catch ex As Exception Exit Sub End Try - Dim del = String.Format("DELETE FROM TBCBS_USER_PROFILE WHERE GUID = {0}", ID) + Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID) If clsDatabase.Execute_non_Query(del) = True Then Refresh_Profile_user() Refresh_Free_Users() @@ -179,8 +180,8 @@ Public Class frmAdministration If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then Exit Sub End If - Me.TBCBS_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBCBS_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCBS_PROFILE_PROCESS, GUIDTextBox.Text) + Me.TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBCW_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCW_PROFILE_PROCESS, GUIDTextBox.Text) Catch ex As System.Exception MsgBox("Unexpected Error in Load_Profile_Process: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -190,7 +191,7 @@ Public Class frmAdministration Private Sub btnLinkProcessPRofile_Click(sender As Object, e As EventArgs) Handles btnLinkProcessPRofile.Click Try If txtProcessName.Text <> "" Then - Dim insert = String.Format("INSERT INTO TBCBS_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, txtProcessName.Text, Environment.UserName) + Dim insert = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, txtProcessName.Text, Environment.UserName) If clsDatabase.Execute_non_Query(insert) = False Then MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation) End If @@ -210,9 +211,9 @@ Public Class frmAdministration Catch ex As Exception Exit Sub End Try - Dim del = String.Format("DELETE FROM TBCBS_PROFILE_PROCESS WHERE GUID = {0}", ID) + Dim del = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", ID) If clsDatabase.Execute_non_Query(del) = True Then - Load_Profile_Process + Load_Profile_Process End If Catch ex As Exception MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) diff --git a/app/DD_Clipboard_Searcher/frmMain.vb b/app/DD_Clipboard_Searcher/frmMain.vb index 9574863..553206d 100644 --- a/app/DD_Clipboard_Searcher/frmMain.vb +++ b/app/DD_Clipboard_Searcher/frmMain.vb @@ -100,7 +100,7 @@ Public Class frmMain Try 'Dim sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '{0}' WHERE (LOWER(USERNAME) = LOWER('{1}'))", "", USER_USERNAME) 'clsDatabase.Execute_non_Query(sql, True) - Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE) = UPPER('Clipboard-Searcher')" + Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')" clsDatabase.Execute_non_Query(sql, True) ClassWindowLocation.SaveFormLocationSize(Me, "") My.Settings.Save() @@ -134,6 +134,11 @@ Public Class frmMain Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load ClassWindowLocation.LoadFormLocationSize(Me) + If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then + + frmConfig_Basic.ShowDialog() + End If + If clsDatabase.DB_DEFAULT_INITIALIZED = True Then Me.NotifyIconMain.Visible = True clsHotkey.Refresh_Profile_Links() @@ -180,8 +185,11 @@ Public Class frmMain If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then MsgBox("As an admin You have exit! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "") Else - MsgBox("Application will close now!", MsgBoxStyle.Critical, "") - Me.Close() + If Not USER_IS_ADMIN Then + MsgBox("Application will close now!", MsgBoxStyle.Critical, "") + Me.Close() + End If + End If End If If USER_IS_ADMIN = True Then diff --git a/app/SetupWix/SetupWix.wixproj b/app/SetupWix/SetupWix.wixproj index b10ea9c..9b06fef 100644 --- a/app/SetupWix/SetupWix.wixproj +++ b/app/SetupWix/SetupWix.wixproj @@ -48,7 +48,7 @@ --> - +