diff --git a/DD_Clipboard_Searcher.v12.suo b/DD_Clipboard_Searcher.v12.suo index f410261..79499f7 100644 Binary files a/DD_Clipboard_Searcher.v12.suo and b/DD_Clipboard_Searcher.v12.suo differ diff --git a/.gitattributes b/DD_Clipboard_Searcher/.gitattributes similarity index 100% rename from .gitattributes rename to DD_Clipboard_Searcher/.gitattributes diff --git a/.gitignore b/DD_Clipboard_Searcher/.gitignore similarity index 100% rename from .gitignore rename to DD_Clipboard_Searcher/.gitignore diff --git a/DD_Clipboard_Searcher/App.config b/DD_Clipboard_Searcher/App.config index fedd763..b43e937 100644 --- a/DD_Clipboard_Searcher/App.config +++ b/DD_Clipboard_Searcher/App.config @@ -1,23 +1,23 @@ - - - - -
- - - - - - - - - - - - False - - - + + + + +
+ + + + + + + + + + + + False + + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/Class1.vb b/DD_Clipboard_Searcher/Class1.vb index 86124d2..bd4ced6 100644 --- a/DD_Clipboard_Searcher/Class1.vb +++ b/DD_Clipboard_Searcher/Class1.vb @@ -1,72 +1,72 @@ -Imports Microsoft.VisualBasic.ControlChars -Imports System.Runtime.InteropServices - -Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable - _ - Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr - End Function - - Public Event Changed As EventHandler - - Private _hview As IntPtr - - 'nur eine globale Instanz zulassen - Public Shared Singleton As New ClipboardWatcher - - Private Sub New() - MyBase.CreateHandle(New CreateParams) - _hview = SetClipboardViewer(MyBase.Handle) - End Sub - - Protected Overrides Sub WndProc(ByRef m As Message) - Const WM_DRAWCLIPBOARD As Integer = &H308 - Select Case m.Msg - Case WM_DRAWCLIPBOARD - clsWINDOWSApi.Get_ForegroundWindow_Info() - 'Dim CapTxt As String = clsWINDOWSApi.GetCaption() - If IsNothing(PROC_Name) Then Exit Sub - If PROC_Name.StartsWith("DD_Clipboard_Searcher") Then Exit Sub - Console.WriteLine("PROCESS_NAME: " & PROC_Name) - ' If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub - RaiseEvent Changed(Me, EventArgs.Empty) - End Select - MyBase.WndProc(m) - End Sub - -#Region " IDisposable Support " - ' Für diese Klasse ist korrekte Ressourcenbereinigung besonders wichtig, da - ' mit systemübergreifenden Ressourcen gearbeitet wird - - ' So ermitteln Sie überflüssige Aufrufe - Private disposedValue As Boolean = False - - Protected Overridable Sub Dispose(ByVal disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - ' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit - ' aufgerufen werden - End If - MyBase.DestroyHandle() - Dim H As IntPtr = SetClipboardViewer(_hview) - End If - Me.disposedValue = True - End Sub - - ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster - ' richtig zu implementieren. - Public Sub Dispose() Implements IDisposable.Dispose - ' Sie sollten diesen Code nicht ändern, sondern stattdessen ihren - ' Bereinigungscode oben in - ' Dispose(ByVal disposing As Boolean) einfügen. - Dispose(True) - GC.SuppressFinalize(Me) - End Sub - - Protected Overrides Sub Finalize() - MyBase.Finalize() - Dispose(False) - End Sub - -#End Region - -End Class +Imports Microsoft.VisualBasic.ControlChars +Imports System.Runtime.InteropServices + +Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable + _ + Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr + End Function + + Public Event Changed As EventHandler + + Private _hview As IntPtr + + 'nur eine globale Instanz zulassen + Public Shared Singleton As New ClipboardWatcher + + Private Sub New() + MyBase.CreateHandle(New CreateParams) + _hview = SetClipboardViewer(MyBase.Handle) + End Sub + + Protected Overrides Sub WndProc(ByRef m As Message) + Const WM_DRAWCLIPBOARD As Integer = &H308 + Select Case m.Msg + Case WM_DRAWCLIPBOARD + clsWINDOWSApi.Get_ForegroundWindow_Info() + 'Dim CapTxt As String = clsWINDOWSApi.GetCaption() + If IsNothing(PROC_Name) Then Exit Sub + If PROC_Name.StartsWith("DD_Clipboard_Searcher") Then Exit Sub + Console.WriteLine("PROCESS_NAME: " & PROC_Name) + ' If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub + RaiseEvent Changed(Me, EventArgs.Empty) + End Select + MyBase.WndProc(m) + End Sub + +#Region " IDisposable Support " + ' Für diese Klasse ist korrekte Ressourcenbereinigung besonders wichtig, da + ' mit systemübergreifenden Ressourcen gearbeitet wird + + ' So ermitteln Sie überflüssige Aufrufe + Private disposedValue As Boolean = False + + Protected Overridable Sub Dispose(ByVal disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + ' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit + ' aufgerufen werden + End If + MyBase.DestroyHandle() + Dim H As IntPtr = SetClipboardViewer(_hview) + End If + Me.disposedValue = True + End Sub + + ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster + ' richtig zu implementieren. + Public Sub Dispose() Implements IDisposable.Dispose + ' Sie sollten diesen Code nicht ändern, sondern stattdessen ihren + ' Bereinigungscode oben in + ' Dispose(ByVal disposing As Boolean) einfügen. + Dispose(True) + GC.SuppressFinalize(Me) + End Sub + + Protected Overrides Sub Finalize() + MyBase.Finalize() + Dispose(False) + End Sub + +#End Region + +End Class diff --git a/DD_Clipboard_Searcher/ClassInit.vb b/DD_Clipboard_Searcher/ClassInit.vb index 6bc9b7e..85d66be 100644 --- a/DD_Clipboard_Searcher/ClassInit.vb +++ b/DD_Clipboard_Searcher/ClassInit.vb @@ -1,138 +1,138 @@ -Imports System.ComponentModel -Imports DD_LIB_Standards -Public Class ClassInit - Public _lizenzManager As clsLicenseManager - Public Sub InitLogger() - ClassLogger.Init("") - End Sub - Public Function InitDatabase() - Dim dbResult As Boolean - clsDatabase.GUI = True - If MyConnectionString <> String.Empty Then - dbResult = clsDatabase.Init(MyConnectionString) - Else - MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information) - ERROR_INIT = "NO DB-CONNECTION" - frmConfig_Basic.ShowDialog() - dbResult = clsDatabase.Init(MyConnectionString) - InitBasics() - End If - If dbResult = False Then - ERROR_INIT = "FAILED DBCONNECTION" - MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical) - Return False - Else - Return True - End If - End Function - Public Function InitBasics() - Dim configResult As Boolean - configResult = LoadMyConfig() - If configResult = False Then - Throw New Exception("Unexpected error inm Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.") - Else - Return False - End If - End Function - Public Shared Function InitUserLogin(Optional _User As String = "") - Try - If _User = "" Then - USER_USERNAME = Environment.UserName - Else - USER_USERNAME = _User - End If - Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME) - ClassLogger.Add(">> Login time: " & Now.ToString, False) - ClassLogger.Add(">> Username: " & USER_USERNAME, False) - Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True) - If USER_DT.Rows.Count = 0 Then - ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False) - 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") - 'Me.Close() - Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") - MsgBox(msg, MsgBoxStyle.Exclamation) - Return False - Else - USER_GUID = USER_DT.Rows(0).Item("GUID") - USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE") - 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 = USER_DT.Rows(0).Item("MODULE_DDCBSEARCHER") - If Access_right = False Then - ClassLogger.Add(" - User: " & USER_USERNAME & " nicht für Modul freigegben!", False) - 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") - Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") - - If USER_LANGUAGE <> "de-DE" Then - msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.") - End If - MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:") - Return False - Else - 'Am System anmelden - clsLicense.Refresh_Licence(0) - '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'" - 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) - 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() - ESC_Hidden = False - If USER_USERNAME <> "" Then - InitUserLogin(USER_USERNAME) - End If - - End If - ' 'Admin - ' pageAdmin.Visible = True - End If - - WD_UNICODE = clsDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBCS_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) - Dim anzahl = clsDatabase.Execute_Scalar(sql) - USERS_LOGGED_IN = CInt(anzahl) - If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False) - '#### - - If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then - Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") - - If USER_LANGUAGE <> "de-DE" Then - msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine & _ - "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!") - End If - MsgBox(msg, MsgBoxStyle.Exclamation) - ClassLogger.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'" - clsDatabase.Execute_non_Query(sql, True) - ClassLogger.Add(" - logged out the user", False) - Return False - End If - End If - Return True - 'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString - End If - End If - Catch ex As Exception - ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) - MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical) - Return False - End Try - - End Function - - -End Class +Imports System.ComponentModel +Imports DD_LIB_Standards +Public Class ClassInit + Public _lizenzManager As clsLicenseManager + Public Sub InitLogger() + ClassLogger.Init("") + End Sub + Public Function InitDatabase() + Dim dbResult As Boolean + clsDatabase.GUI = True + If MyConnectionString <> String.Empty Then + dbResult = clsDatabase.Init(MyConnectionString) + Else + MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information) + ERROR_INIT = "NO DB-CONNECTION" + frmConfig_Basic.ShowDialog() + dbResult = clsDatabase.Init(MyConnectionString) + InitBasics() + End If + If dbResult = False Then + ERROR_INIT = "FAILED DBCONNECTION" + MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical) + Return False + Else + Return True + End If + End Function + Public Function InitBasics() + Dim configResult As Boolean + configResult = LoadMyConfig() + If configResult = False Then + Throw New Exception("Unexpected error inm Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.") + Else + Return False + End If + End Function + Public Shared Function InitUserLogin(Optional _User As String = "") + Try + If _User = "" Then + USER_USERNAME = Environment.UserName + Else + USER_USERNAME = _User + End If + Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME) + ClassLogger.Add(">> Login time: " & Now.ToString, False) + ClassLogger.Add(">> Username: " & USER_USERNAME, False) + Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True) + If USER_DT.Rows.Count = 0 Then + ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False) + 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + 'Me.Close() + Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") + MsgBox(msg, MsgBoxStyle.Exclamation) + Return False + Else + USER_GUID = USER_DT.Rows(0).Item("GUID") + USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE") + 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 = USER_DT.Rows(0).Item("MODULE_DDCBSEARCHER") + If Access_right = False Then + ClassLogger.Add(" - User: " & USER_USERNAME & " nicht für Modul freigegben!", False) + 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") + + If USER_LANGUAGE <> "de-DE" Then + msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.") + End If + MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:") + Return False + Else + 'Am System anmelden + clsLicense.Refresh_Licence(0) + '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'" + 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) + 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() + ESC_Hidden = False + If USER_USERNAME <> "" Then + InitUserLogin(USER_USERNAME) + End If + + End If + ' 'Admin + ' pageAdmin.Visible = True + End If + + WD_UNICODE = clsDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBCS_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) + Dim anzahl = clsDatabase.Execute_Scalar(sql) + USERS_LOGGED_IN = CInt(anzahl) + If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False) + '#### + + If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then + Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") + + If USER_LANGUAGE <> "de-DE" Then + msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine & _ + "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!") + End If + MsgBox(msg, MsgBoxStyle.Exclamation) + ClassLogger.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'" + clsDatabase.Execute_non_Query(sql, True) + ClassLogger.Add(" - logged out the user", False) + Return False + End If + End If + Return True + 'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString + End If + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) + MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + End Function + + +End Class diff --git a/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj b/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj index 2ed6fdc..26e3b10 100644 --- a/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj +++ b/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj @@ -1,224 +1,224 @@ - - - - - Debug - AnyCPU - {09BC9934-1A38-4752-8873-639B42779CDB} - WinExe - DD_Clipboard_Searcher.My.MyApplication - DD_Clipboard_Searcher - DD_Clipboard_Searcher - 512 - WindowsForms - v4.5.1 - true - - - AnyCPU - true - full - true - true - bin\Debug\ - DD_Clipboard_Searcher.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - AnyCPU - pdbonly - false - true - true - bin\Release\ - DD_Clipboard_Searcher.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - False - ..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - frmAdministration.vb - - - Form - - - frmLicense.vb - - - Form - - - Form - - - frmMain.vb - Form - - - frmConfig_Basic.vb - - - Form - - - frmSplash.vb - - - Form - - - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - True - True - MyDataset.xsd - - - - - frmAdministration.vb - - - frmLicense.vb - - - frmMain.vb - - - frmConfig_Basic.vb - - - frmSplash.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - MyDataset.xsd - - - Designer - MSDataSetGenerator - MyDataset.Designer.vb - - - MyDataset.xsd - - - - - - - - - - - - - - - - - - - - + + + + + Debug + AnyCPU + {09BC9934-1A38-4752-8873-639B42779CDB} + WinExe + DD_Clipboard_Searcher.My.MyApplication + DD_Clipboard_Searcher + DD_Clipboard_Searcher + 512 + WindowsForms + v4.5.1 + true + + + AnyCPU + true + full + true + true + bin\Debug\ + DD_Clipboard_Searcher.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DD_Clipboard_Searcher.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + False + ..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmAdministration.vb + + + Form + + + frmLicense.vb + + + Form + + + Form + + + frmMain.vb + Form + + + frmConfig_Basic.vb + + + Form + + + frmSplash.vb + + + Form + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + True + True + MyDataset.xsd + + + + + frmAdministration.vb + + + frmLicense.vb + + + frmMain.vb + + + frmConfig_Basic.vb + + + frmSplash.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + MyDataset.xsd + + + Designer + MSDataSetGenerator + MyDataset.Designer.vb + + + MyDataset.xsd + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj.user b/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj.user index 5bef86d..a4a6cdf 100644 --- a/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj.user +++ b/DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj.user @@ -1,6 +1,6 @@ - - - - ProjectFiles - + + + + ProjectFiles + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/My Project/Resources.Designer.vb b/DD_Clipboard_Searcher/My Project/Resources.Designer.vb index c77a3fa..357c046 100644 --- a/DD_Clipboard_Searcher/My Project/Resources.Designer.vb +++ b/DD_Clipboard_Searcher/My Project/Resources.Designer.vb @@ -1,123 +1,123 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.36366 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Searcher.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Annotation_New() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Annotation_New", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property control_start_blue() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("control_start_blue", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property folder_Open_16xLG() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("folder_Open_16xLG", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property GoToDefinition_5575() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("GoToDefinition_5575", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property KeyDown_8461() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("KeyDown_8461", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property StatusAnnotations_Stop_16xLG() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Stop_16xLG", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - End Module -End Namespace +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.36366 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Searcher.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Annotation_New() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Annotation_New", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property control_start_blue() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("control_start_blue", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_Open_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_Open_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property GoToDefinition_5575() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("GoToDefinition_5575", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property KeyDown_8461() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("KeyDown_8461", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property StatusAnnotations_Stop_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Stop_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/DD_Clipboard_Searcher/My Project/Resources.resx b/DD_Clipboard_Searcher/My Project/Resources.resx index 3d96770..99760ae 100644 --- a/DD_Clipboard_Searcher/My Project/Resources.resx +++ b/DD_Clipboard_Searcher/My Project/Resources.resx @@ -1,139 +1,139 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - ..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/My Project/Settings.Designer.vb b/DD_Clipboard_Searcher/My Project/Settings.Designer.vb index 22f3c8e..dbd1f81 100644 --- a/DD_Clipboard_Searcher/My Project/Settings.Designer.vb +++ b/DD_Clipboard_Searcher/My Project/Settings.Designer.vb @@ -1,96 +1,96 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.36366 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) - -#Region "Funktion zum automatischen Speichern von My.Settings" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - - _ - Public Property WDSearch_maximized() As Boolean - Get - Return CType(Me("WDSearch_maximized"),Boolean) - End Get - Set - Me("WDSearch_maximized") = value - End Set - End Property - - _ - Public ReadOnly Property DD_ECMConnectionString() As String - Get - Return CType(Me("DD_ECMConnectionString"),String) - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.DD_Clipboard_Searcher.My.MySettings - Get - Return Global.DD_Clipboard_Searcher.My.MySettings.Default - End Get - End Property - End Module -End Namespace +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.36366 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funktion zum automatischen Speichern von My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public Property WDSearch_maximized() As Boolean + Get + Return CType(Me("WDSearch_maximized"),Boolean) + End Get + Set + Me("WDSearch_maximized") = value + End Set + End Property + + _ + Public ReadOnly Property DD_ECMConnectionString() As String + Get + Return CType(Me("DD_ECMConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DD_Clipboard_Searcher.My.MySettings + Get + Return Global.DD_Clipboard_Searcher.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/DD_Clipboard_Searcher/My Project/Settings.settings b/DD_Clipboard_Searcher/My Project/Settings.settings index 02ba93b..e08905a 100644 --- a/DD_Clipboard_Searcher/My Project/Settings.settings +++ b/DD_Clipboard_Searcher/My Project/Settings.settings @@ -1,17 +1,17 @@ - - - - - - False - - - <?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> - <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 - - + + + + + + False + + + <?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> + <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 + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/My Project/licenses.licx b/DD_Clipboard_Searcher/My Project/licenses.licx index e6a33ad..16b05ba 100644 --- a/DD_Clipboard_Searcher/My Project/licenses.licx +++ b/DD_Clipboard_Searcher/My Project/licenses.licx @@ -1 +1 @@ -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/DD_Clipboard_Searcher/MyDataset.Designer.vb b/DD_Clipboard_Searcher/MyDataset.Designer.vb index 329edf5..3ef3fb5 100644 --- a/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -1,4558 +1,4558 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.36366 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict Off -Option Explicit On - - - -''' -'''Represents a strongly typed in-memory cache of data. -''' - _ -Partial Public Class MyDataset - Inherits Global.System.Data.DataSet - - Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable - - Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable - - Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable - - Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable - - Private tableTBWH_User As TBWH_UserDataTable - - Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ - Public Sub New() - MyBase.New() - Me.BeginInit() - Me.InitClass() - Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged - AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler - AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler - Me.EndInit() - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context, False) - If (Me.IsBinarySerialized(info, context) = True) Then - Me.InitVars(False) - Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged - AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 - AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 - Return - End If - Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) - If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then - Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() - ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - If (Not (ds.Tables("TBCBS_PROFILES")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_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"))) - 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"))) - End If - If (Not (ds.Tables("TBWH_User")) Is Nothing) Then - MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) - End If - Me.DataSetName = ds.DataSetName - Me.Prefix = ds.Prefix - Me.Namespace = ds.Namespace - Me.Locale = ds.Locale - Me.CaseSensitive = ds.CaseSensitive - Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() - Else - Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - End If - Me.GetSerializationData(info, context) - Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged - AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler - AddHandler Me.Relations.CollectionChanged, schemaChangedHandler - End Sub - - _ - Public ReadOnly Property TBCBS_PROFILES() As TBCBS_PROFILESDataTable - Get - Return Me.tableTBCBS_PROFILES - End Get - End Property - - _ - Public ReadOnly Property TBCBS_USER_PROFILE() As TBCBS_USER_PROFILEDataTable - Get - Return Me.tableTBCBS_USER_PROFILE - End Get - End Property - - _ - Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable - Get - Return Me.tableVWUSER_PROFILE - End Get - End Property - - _ - Public ReadOnly Property TBCBS_PROFILE_PROCESS() As TBCBS_PROFILE_PROCESSDataTable - Get - Return Me.tableTBCBS_PROFILE_PROCESS - End Get - End Property - - _ - Public ReadOnly Property TBWH_User() As TBWH_UserDataTable - Get - Return Me.tableTBWH_User - End Get - End Property - - _ - Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode - Get - Return Me._schemaSerializationMode - End Get - Set(value As Global.System.Data.SchemaSerializationMode) - Me._schemaSerializationMode = value - End Set - End Property - - _ - Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection - Get - Return MyBase.Tables - End Get - End Property - - _ - Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection - Get - Return MyBase.Relations - End Get - End Property - - _ - Protected Overrides Sub InitializeDerivedDataSet() - Me.BeginInit() - Me.InitClass() - Me.EndInit() - End Sub - - _ - Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As MyDataset = CType(MyBase.Clone, MyDataset) - cln.InitVars() - cln.SchemaSerializationMode = Me.SchemaSerializationMode - Return cln - End Function - - _ - Protected Overrides Function ShouldSerializeTables() As Boolean - Return False - End Function - - _ - Protected Overrides Function ShouldSerializeRelations() As Boolean - Return False - End Function - - _ - Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) - If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then - Me.Reset() - Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() - ds.ReadXml(reader) - If (Not (ds.Tables("TBCBS_PROFILES")) Is Nothing) Then - MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_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"))) - 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"))) - End If - If (Not (ds.Tables("TBWH_User")) Is Nothing) Then - MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) - End If - Me.DataSetName = ds.DataSetName - Me.Prefix = ds.Prefix - Me.Namespace = ds.Namespace - Me.Locale = ds.Locale - Me.CaseSensitive = ds.CaseSensitive - Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() - Else - Me.ReadXml(reader) - Me.InitVars() - End If - End Sub - - _ - Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema - Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) - stream.Position = 0 - Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) - End Function - - _ - Friend Overloads Sub InitVars() - Me.InitVars(True) - End Sub - - _ - Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBCBS_PROFILES = CType(MyBase.Tables("TBCBS_PROFILES"), TBCBS_PROFILESDataTable) - If (initTable = True) Then - If (Not (Me.tableTBCBS_PROFILES) Is Nothing) Then - Me.tableTBCBS_PROFILES.InitVars() - End If - End If - Me.tableTBCBS_USER_PROFILE = CType(MyBase.Tables("TBCBS_USER_PROFILE"), TBCBS_USER_PROFILEDataTable) - If (initTable = True) Then - If (Not (Me.tableTBCBS_USER_PROFILE) Is Nothing) Then - Me.tableTBCBS_USER_PROFILE.InitVars() - End If - End If - Me.tableVWUSER_PROFILE = CType(MyBase.Tables("VWUSER_PROFILE"), VWUSER_PROFILEDataTable) - If (initTable = True) Then - If (Not (Me.tableVWUSER_PROFILE) Is Nothing) Then - Me.tableVWUSER_PROFILE.InitVars() - End If - End If - Me.tableTBCBS_PROFILE_PROCESS = CType(MyBase.Tables("TBCBS_PROFILE_PROCESS"), TBCBS_PROFILE_PROCESSDataTable) - If (initTable = True) Then - If (Not (Me.tableTBCBS_PROFILE_PROCESS) Is Nothing) Then - Me.tableTBCBS_PROFILE_PROCESS.InitVars() - End If - End If - Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"), TBWH_UserDataTable) - If (initTable = True) Then - If (Not (Me.tableTBWH_User) Is Nothing) Then - Me.tableTBWH_User.InitVars() - End If - End If - End Sub - - _ - 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.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.tableTBWH_User = New TBWH_UserDataTable() - MyBase.Tables.Add(Me.tableTBWH_User) - End Sub - - _ - Private Function ShouldSerializeTBCBS_PROFILES() As Boolean - Return False - End Function - - _ - Private Function ShouldSerializeTBCBS_USER_PROFILE() As Boolean - Return False - End Function - - _ - Private Function ShouldSerializeVWUSER_PROFILE() As Boolean - Return False - End Function - - _ - Private Function ShouldSerializeTBCBS_PROFILE_PROCESS() As Boolean - Return False - End Function - - _ - Private Function ShouldSerializeTBWH_User() As Boolean - Return False - End Function - - _ - Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) - If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then - Me.InitVars() - End If - End Sub - - _ - Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim ds As MyDataset = New MyDataset() - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any.Namespace = ds.Namespace - sequence.Items.Add(any) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close() - End If - If (Not (s2) Is Nothing) Then - s2.Close() - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - - _ - Public Delegate Sub TBCBS_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_PROFILESRowChangeEvent) - - _ - Public Delegate Sub TBCBS_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_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 TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCBS_PROFILESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILESRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnCOMMENT As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New() - Me.TableName = "TBCBS_PROFILES" - Me.BeginInit() - Me.InitClass() - Me.EndInit() - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars() - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCOMMENT - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_SEARCH - End Get - End Property - - _ - Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_EXPRESSION - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILESRow - Get - Return CType(Me.Rows(index), TBCBS_PROFILESRow) - End Get - End Property - - _ - Public Event TBCBS_PROFILESRowChanging As TBCBS_PROFILESRowChangeEventHandler - - _ - Public Event TBCBS_PROFILESRowChanged As TBCBS_PROFILESRowChangeEventHandler - - _ - Public Event TBCBS_PROFILESRowDeleting As TBCBS_PROFILESRowChangeEventHandler - - _ - Public Event TBCBS_PROFILESRowDeleted As TBCBS_PROFILESRowChangeEventHandler - - _ - Public Overloads Sub AddTBCBS_PROFILESRow(ByVal row As TBCBS_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) - 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 - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILESRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_PROFILESRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCBS_PROFILESDataTable = CType(MyBase.Clone, TBCBS_PROFILESDataTable) - cln.InitVars() - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCBS_PROFILESDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_SEARCH) - Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnNAME.AllowDBNull = False - Me.columnNAME.MaxLength = 100 - Me.columnCOMMENT.MaxLength = 500 - Me.columnWD_SEARCH.AllowDBNull = False - Me.columnWD_SEARCH.MaxLength = 250 - Me.columnREGEX_EXPRESSION.AllowDBNull = False - Me.columnREGEX_EXPRESSION.DefaultValue = CType("", String) - Me.columnREGEX_EXPRESSION.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = False - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBCBS_PROFILESRow() As TBCBS_PROFILESRow - Return CType(Me.NewRow, TBCBS_PROFILESRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCBS_PROFILESRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCBS_PROFILESRow) - End Function - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - Public Sub RemoveTBCBS_PROFILESRow(ByVal row As TBCBS_PROFILESRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCBS_PROFILESDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close() - End If - If (Not (s2) Is Nothing) Then - s2.Close() - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCBS_USER_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCBS_USER_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnUSER_ID As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New() - Me.TableName = "TBCBS_USER_PROFILE" - Me.BeginInit() - Me.InitClass() - Me.EndInit() - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars() - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSER_ID - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_USER_PROFILERow - Get - Return CType(Me.Rows(index), TBCBS_USER_PROFILERow) - End Get - End Property - - _ - Public Event TBCBS_USER_PROFILERowChanging As TBCBS_USER_PROFILERowChangeEventHandler - - _ - Public Event TBCBS_USER_PROFILERowChanged As TBCBS_USER_PROFILERowChangeEventHandler - - _ - Public Event TBCBS_USER_PROFILERowDeleting As TBCBS_USER_PROFILERowChangeEventHandler - - _ - Public Event TBCBS_USER_PROFILERowDeleted As TBCBS_USER_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddTBCBS_USER_PROFILERow(ByVal row As TBCBS_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) - 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 - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_USER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_USER_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCBS_USER_PROFILEDataTable = CType(MyBase.Clone, TBCBS_USER_PROFILEDataTable) - cln.InitVars() - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCBS_USER_PROFILEDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnPROFILE_ID.AllowDBNull = False - Me.columnUSER_ID.AllowDBNull = False - Me.columnADDED_WHO.AllowDBNull = False - Me.columnADDED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBCBS_USER_PROFILERow() As TBCBS_USER_PROFILERow - Return CType(Me.NewRow, TBCBS_USER_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCBS_USER_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCBS_USER_PROFILERow) - End Function - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - Public Sub RemoveTBCBS_USER_PROFILERow(ByVal row As TBCBS_USER_PROFILERow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCBS_USER_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close() - End If - If (Not (s2) Is Nothing) Then - s2.Close() - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class VWUSER_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of VWUSER_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnPRENAME As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New() - Me.TableName = "VWUSER_PROFILE" - Me.BeginInit() - Me.InitClass() - Me.EndInit() - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars() - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSERNAME - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As VWUSER_PROFILERow - Get - Return CType(Me.Rows(index), VWUSER_PROFILERow) - End Get - End Property - - _ - Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler - - _ - Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler - - _ - Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler - - _ - Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWUSER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String) As VWUSER_PROFILERow - Dim rowVWUSER_PROFILERow As VWUSER_PROFILERow = CType(Me.NewRow, VWUSER_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USERNAME, NAME, PRENAME} - rowVWUSER_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWUSER_PROFILERow) - Return rowVWUSER_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}), VWUSER_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone, VWUSER_PROFILEDataTable) - cln.InitVars() - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWUSER_PROFILEDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnPRENAME = MyBase.Columns("PRENAME") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRENAME) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnPROFILE_ID.AllowDBNull = False - Me.columnUSERNAME.AllowDBNull = False - Me.columnUSERNAME.MaxLength = 50 - Me.columnNAME.MaxLength = 50 - Me.columnPRENAME.MaxLength = 50 - End Sub - - _ - Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow - Return CType(Me.NewRow, VWUSER_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWUSER_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWUSER_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowChanged(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowChanging(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowDeleted(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent VWUSER_PROFILERowDeleting(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWUSER_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close() - End If - If (Not (s2) Is Nothing) Then - s2.Close() - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBCBS_PROFILE_PROCESSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILE_PROCESSRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnPROC_NAME As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New() - Me.TableName = "TBCBS_PROFILE_PROCESS" - Me.BeginInit() - Me.InitClass() - Me.EndInit() - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars() - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROC_NAME - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILE_PROCESSRow - Get - Return CType(Me.Rows(index), TBCBS_PROFILE_PROCESSRow) - End Get - End Property - - _ - Public Event TBCBS_PROFILE_PROCESSRowChanging As TBCBS_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Event TBCBS_PROFILE_PROCESSRowChanged As TBCBS_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Event TBCBS_PROFILE_PROCESSRowDeleting As TBCBS_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Event TBCBS_PROFILE_PROCESSRowDeleted As TBCBS_PROFILE_PROCESSRowChangeEventHandler - - _ - Public Overloads Sub AddTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_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) - 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 - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILE_PROCESSRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_PROFILE_PROCESSRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCBS_PROFILE_PROCESSDataTable = CType(MyBase.Clone, TBCBS_PROFILE_PROCESSDataTable) - cln.InitVars() - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBCBS_PROFILE_PROCESSDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROC_NAME) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnPROFILE_ID.AllowDBNull = False - Me.columnPROC_NAME.AllowDBNull = False - Me.columnPROC_NAME.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = False - Me.columnADDED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBCBS_PROFILE_PROCESSRow() As TBCBS_PROFILE_PROCESSRow - Return CType(Me.NewRow, TBCBS_PROFILE_PROCESSRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBCBS_PROFILE_PROCESSRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBCBS_PROFILE_PROCESSRow) - End Function - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - Public Sub RemoveTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_PROFILE_PROCESSRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBCBS_PROFILE_PROCESSDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close() - End If - If (Not (s2) Is Nothing) Then - s2.Close() - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBWH_UserDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) - - Private columnSelect As Global.System.Data.DataColumn - - Private columnUsername As Global.System.Data.DataColumn - - Private columnPrename As Global.System.Data.DataColumn - - Private columnSurname As Global.System.Data.DataColumn - - Private columnEmail As Global.System.Data.DataColumn - - Private columnID As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New() - Me.TableName = "TBWH_User" - Me.BeginInit() - Me.InitClass() - Me.EndInit() - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars() - End Sub - - _ - Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSelect - End Get - End Property - - _ - Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUsername - End Get - End Property - - _ - Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPrename - End Get - End Property - - _ - Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSurname - End Get - End Property - - _ - Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEmail - End Get - End Property - - _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnID - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow - Get - Return CType(Me.Rows(index), TBWH_UserRow) - End Get - End Property - - _ - Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler - - _ - Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler - - _ - Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler - - _ - Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler - - _ - Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBWH_UserRow(ByVal _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} - rowTBWH_UserRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_UserRow) - Return rowTBWH_UserRow - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_UserDataTable = CType(MyBase.Clone, TBWH_UserDataTable) - cln.InitVars() - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_UserDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnSelect = MyBase.Columns("Select") - Me.columnUsername = MyBase.Columns("Username") - Me.columnPrename = MyBase.Columns("Prename") - Me.columnSurname = MyBase.Columns("Surname") - Me.columnEmail = MyBase.Columns("Email") - Me.columnID = MyBase.Columns("ID") - End Sub - - _ - Private Sub InitClass() - Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") - Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") - MyBase.Columns.Add(Me.columnSelect) - Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUsername) - Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPrename) - Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSurname) - Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEmail) - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(False, Boolean) - End Sub - - _ - Public Function NewTBWH_UserRow() As TBWH_UserRow - Return CType(Me.NewRow, TBWH_UserRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_UserRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_UserRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_UserDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close() - End If - If (Not (s2) Is Nothing) Then - s2.Close() - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCBS_PROFILESRow - Inherits Global.System.Data.DataRow - - Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCBS_PROFILES = CType(Me.Table, TBCBS_PROFILESDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCBS_PROFILES.GUIDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBCBS_PROFILES.GUIDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Return CType(Me(Me.tableTBCBS_PROFILES.NAMEColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILES.NAMEColumn) = value - End Set - End Property - - _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableTBCBS_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) - End Try - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = value - End Set - End Property - - _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn) = value - End Set - End Property - - _ - Public Property REGEX_EXPRESSION() As String - Get - Return CType(Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCBS_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) - End Try - End Get - Set(value As Date) - Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBCBS_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) - End Try - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCBS_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) - End Try - End Get - Set(value As Date) - Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCBS_USER_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCBS_USER_PROFILE = CType(Me.Table, TBCBS_USER_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property USER_ID() As Integer - Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCBS_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) - End Try - End Get - Set(value As Date) - Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWUSER_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWUSER_PROFILE = CType(Me.Table, VWUSER_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn), String) - End Get - Set(value As String) - Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value - End Set - End Property - - _ - Public Property PRENAME() As String - Get - Try - Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value - End Set - End Property - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) - End Function - - _ - Public Sub SetPRENAMENull() - Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCBS_PROFILE_PROCESSRow - Inherits Global.System.Data.DataRow - - Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCBS_PROFILE_PROCESS = CType(Me.Table, TBCBS_PROFILE_PROCESSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property PROC_NAME() As String - Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn), String) - End Get - Set(value As String) - Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCBS_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) - End Try - End Get - Set(value As Date) - Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_UserRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_User As TBWH_UserDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_User = CType(Me.Table, TBWH_UserDataTable) - End Sub - - _ - Public Property _Select() As Boolean - Get - Try - Return CType(Me(Me.tableTBWH_User.SelectColumn), Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set(value As Boolean) - Me(Me.tableTBWH_User.SelectColumn) = value - End Set - End Property - - _ - Public Property Username() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.UsernameColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBWH_User.UsernameColumn) = value - End Set - End Property - - _ - Public Property Prename() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.PrenameColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBWH_User.PrenameColumn) = value - End Set - End Property - - _ - Public Property Surname() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.SurnameColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBWH_User.SurnameColumn) = value - End Set - End Property - - _ - Public Property Email() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.EmailColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBWH_User.EmailColumn) = value - End Set - End Property - - _ - Public Property ID() As Short - Get - Try - Return CType(Me(Me.tableTBWH_User.IDColumn), Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set(value As Short) - Me(Me.tableTBWH_User.IDColumn) = value - End Set - End Property - - _ - Public Function Is_SelectNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.SelectColumn) - End Function - - _ - Public Sub Set_SelectNull() - Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUsernameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) - End Function - - _ - Public Sub SetUsernameNull() - Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPrenameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) - End Function - - _ - Public Sub SetPrenameNull() - Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSurnameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) - End Function - - _ - Public Sub SetSurnameNull() - Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEmailNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.EmailColumn) - End Function - - _ - Public Sub SetEmailNull() - Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsIDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.IDColumn) - End Function - - _ - Public Sub SetIDNull() - Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBCBS_PROFILESRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBCBS_PROFILESRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBCBS_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 - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBCBS_USER_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBCBS_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) - MyBase.New() - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBCBS_USER_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWUSER_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWUSER_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New() - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWUSER_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBCBS_PROFILE_PROCESSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBCBS_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) - MyBase.New() - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBCBS_PROFILE_PROCESSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_UserRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_UserRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWH_UserRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New() - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWH_UserRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class -End Class - -Namespace MyDatasetTableAdapters - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBCBS_PROFILESTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter() - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection() - End If - Return Me._connection - End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set(value As Global.System.Data.SqlClient.SqlTransaction) - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection() - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set(value As Boolean) - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCBS_PROFILES" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCBS_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.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.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.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBCBS_PROFILES.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBCBS_PROFILES" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overridable Overloads Function GetData() As MyDataset.TBCBS_PROFILESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCBS_PROFILESDataTable = New MyDataset.TBCBS_PROFILESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCBS_PROFILES") - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close() - End If - End Try - End Function - - _ - Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH, String) - End If - If (REGEX_EXPRESSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(REGEX_EXPRESSION, String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO, String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close() - End If - End Try - End Function - - _ - Public Overridable Overloads Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal 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 - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH, String) - End If - If (REGEX_EXPRESSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(REGEX_EXPRESSION, String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO, String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID, Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close() - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBCBS_USER_PROFILETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter() - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection() - End If - Return Me._connection - End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set(value As Global.System.Data.SqlClient.SqlTransaction) - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection() - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set(value As Boolean) - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCBS_USER_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCBS_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.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.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, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBCBS_USER_PROFILE.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBCBS_USER_PROFILE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overridable Overloads Function GetData() As MyDataset.TBCBS_USER_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCBS_USER_PROFILEDataTable = New MyDataset.TBCBS_USER_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCBS_USER_PROFILE") - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close() - End If - End Try - End Function - - _ - Public Overridable Overloads Function Insert(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID, Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close() - End If - End Try - End Function - - _ - Public Overridable Overloads Function Update(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID, Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close() - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWUSER_PROFILETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter() - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection() - End If - Return Me._connection - End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set(value As Global.System.Data.SqlClient.SqlTransaction) - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection() - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set(value As Boolean) - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWUSER_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ - " 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." & _ - "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).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, "", "", "")) - End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overridable Overloads Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) - Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overridable Overloads Function cmdDelete(ByVal GUID As Object) 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 - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open() - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close() - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBCBS_PROFILE_PROCESSTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter() - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection() - End If - Return Me._connection - End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set(value As Global.System.Data.SqlClient.SqlTransaction) - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection() - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set(value As Boolean) - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBCBS_PROFILE_PROCESS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCBS_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.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ - " TBCBS_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 Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overridable Overloads Function GetData(ByVal PID As Integer) As MyDataset.TBCBS_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() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCBS_PROFILE_PROCESS") - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - End Class - - ''' - '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios - ''' - _ - Partial Public Class TableAdapterManager - Inherits Global.System.ComponentModel.Component - - Private _updateOrder As UpdateOrderOption - - Private _tBCBS_PROFILESTableAdapter As TBCBS_PROFILESTableAdapter - - Private _tBCBS_USER_PROFILETableAdapter As TBCBS_USER_PROFILETableAdapter - - Private _tBCBS_PROFILE_PROCESSTableAdapter As TBCBS_PROFILE_PROCESSTableAdapter - - Private _backupDataSetBeforeUpdate As Boolean - - Private _connection As Global.System.Data.IDbConnection - - _ - Public Property UpdateOrder() As UpdateOrderOption - Get - Return Me._updateOrder - End Get - Set(value As UpdateOrderOption) - Me._updateOrder = value - End Set - End Property - - _ - Public Property TBCBS_PROFILESTableAdapter() As TBCBS_PROFILESTableAdapter - Get - Return Me._tBCBS_PROFILESTableAdapter - End Get - Set(value As TBCBS_PROFILESTableAdapter) - Me._tBCBS_PROFILESTableAdapter = value - End Set - End Property - - _ - Public Property TBCBS_USER_PROFILETableAdapter() As TBCBS_USER_PROFILETableAdapter - Get - Return Me._tBCBS_USER_PROFILETableAdapter - End Get - Set(value As TBCBS_USER_PROFILETableAdapter) - Me._tBCBS_USER_PROFILETableAdapter = value - End Set - End Property - - _ - Public Property TBCBS_PROFILE_PROCESSTableAdapter() As TBCBS_PROFILE_PROCESSTableAdapter - Get - Return Me._tBCBS_PROFILE_PROCESSTableAdapter - End Get - Set(value As TBCBS_PROFILE_PROCESSTableAdapter) - Me._tBCBS_PROFILE_PROCESSTableAdapter = value - End Set - End Property - - _ - Public Property BackupDataSetBeforeUpdate() As Boolean - Get - Return Me._backupDataSetBeforeUpdate - End Get - Set(value As Boolean) - Me._backupDataSetBeforeUpdate = value - End Set - End Property - - _ - Public Property Connection() As Global.System.Data.IDbConnection - Get - If (Not (Me._connection) Is Nothing) Then - Return Me._connection - End If - If ((Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBCBS_PROFILESTableAdapter.Connection) Is Nothing)) Then - Return Me._tBCBS_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 - 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 - End If - Return Nothing - End Get - Set(value As Global.System.Data.IDbConnection) - Me._connection = value - End Set - End Property - - _ - Public ReadOnly Property TableAdapterInstanceCount() As Integer - Get - Dim count As Integer = 0 - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - count = (count + 1) - End If - If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then - count = (count + 1) - End If - If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then - count = (count + 1) - End If - Return count - End Get - End Property - - ''' - '''Update rows in top-down order. - ''' - _ - Private Function UpdateUpdatedRows(ByVal dataSet As 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) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCBS_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) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCBS_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) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - Return result - End Function - - ''' - '''Insert rows in top-down order. - ''' - _ - Private Function UpdateInsertedRows(ByVal dataSet As 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 (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCBS_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 (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCBS_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 (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - Return result - End Function - - ''' - '''Delete rows in bottom-up order. - ''' - _ - Private Function UpdateDeletedRows(ByVal dataSet As 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 (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCBS_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 (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCBS_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 (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBCBS_PROFILESTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - Return result - End Function - - ''' - '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first - ''' - _ - Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() - If ((updatedRows Is Nothing) _ - OrElse (updatedRows.Length < 1)) Then - Return updatedRows - End If - If ((allAddedRows Is Nothing) _ - OrElse (allAddedRows.Count < 1)) Then - Return updatedRows - End If - Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() - Dim i As Integer = 0 - Do While (i < updatedRows.Length) - Dim row As Global.System.Data.DataRow = updatedRows(i) - If (allAddedRows.Contains(row) = False) Then - realUpdatedRows.Add(row) - End If - i = (i + 1) - Loop - Return realUpdatedRows.ToArray - End Function - - ''' - '''Update all changes to the dataset. - ''' - _ - Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer - If (dataSet Is Nothing) Then - Throw New Global.System.ArgumentNullException("dataSet") - End If - If (dataSet.HasChanges = False) Then - Return 0 - End If - If ((Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_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 - 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 - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If - Dim workConnection As Global.System.Data.IDbConnection = Me.Connection - If (workConnection Is Nothing) Then - Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ - "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ - "t.") - End If - Dim workConnOpened As Boolean = False - If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ - = Global.System.Data.ConnectionState.Broken) Then - workConnection.Close() - End If - If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then - workConnection.Open() - workConnOpened = True - End If - Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction - If (workTransaction Is Nothing) Then - Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ - "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ - "ion nicht zu.") - End If - Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() - Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() - Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() - Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() - Dim result As Integer = 0 - Dim backupDataSet As Global.System.Data.DataSet = Nothing - If Me.BackupDataSetBeforeUpdate Then - backupDataSet = New Global.System.Data.DataSet() - backupDataSet.Merge(dataSet) - End If - Try - '---- Prepare for update ----------- - ' - If (Not (Me._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) - 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) - 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) - End If - End If - ' - '---- Perform updates ----------- - ' - If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then - result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) - result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) - Else - result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) - result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) - End If - result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) - ' - '---- Commit updates ----------- - ' - workTransaction.Commit() - If (0 < allAddedRows.Count) Then - Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow - allAddedRows.CopyTo(rows) - Dim i As Integer = 0 - Do While (i < rows.Length) - Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() - i = (i + 1) - Loop - End If - If (0 < allChangedRows.Count) Then - Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow - allChangedRows.CopyTo(rows) - Dim i As Integer = 0 - Do While (i < rows.Length) - Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() - i = (i + 1) - Loop - End If - Catch ex As Global.System.Exception - workTransaction.Rollback() - '---- Restore the dataset ----------- - If Me.BackupDataSetBeforeUpdate Then - Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) - dataSet.Clear() - dataSet.Merge(backupDataSet) - Else - If (0 < allAddedRows.Count) Then - Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow - allAddedRows.CopyTo(rows) - Dim i As Integer = 0 - Do While (i < rows.Length) - Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() - row.SetAdded() - i = (i + 1) - Loop - End If - End If - Throw ex - Finally - If workConnOpened Then - workConnection.Close() - End If - If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then - Me._tBCBS_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCBS_PROFILESTableAdapter), Global.System.Data.SqlClient.SqlConnection) - Me._tBCBS_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 - 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 - End If - If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then - Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter - adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) - Dim i As Integer = 0 - Do While (i < adapters.Length) - Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) - adapter.AcceptChangesDuringUpdate = True - i = (i + 1) - Loop - End If - End Try - Return result - End Function - - _ - Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) - Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) - End Sub - - _ - Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean - If (Not (Me._connection) Is Nothing) Then - Return True - End If - If ((Me.Connection Is Nothing) _ - OrElse (inputConnection Is Nothing)) Then - Return True - End If - If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then - Return True - End If - Return False - End Function - - ''' - '''Update Order Option - ''' - _ - Public Enum UpdateOrderOption - - InsertUpdateDelete = 0 - - UpdateInsertDelete = 1 - End Enum - - ''' - '''Used to sort self-referenced table's rows - ''' - _ - Private Class SelfReferenceComparer - Inherits Object - Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) - - Private _relation As Global.System.Data.DataRelation - - Private _childFirst As Integer - - _ - Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) - MyBase.New() - Me._relation = relation - If childFirst Then - Me._childFirst = -1 - Else - Me._childFirst = 1 - End If - End Sub - - _ - Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow - Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) - Dim root As Global.System.Data.DataRow = row - distance = 0 - - Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() - traversedRows(row) = row - - Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) - - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = False)) - distance = (distance + 1) - root = parent - traversedRows(parent) = parent - parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) - - Loop - - If (distance = 0) Then - traversedRows.Clear() - traversedRows(row) = row - parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) - - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = False)) - distance = (distance + 1) - root = parent - traversedRows(parent) = parent - parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) - - Loop - End If - - Return root - End Function - - _ - Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare - If Object.ReferenceEquals(row1, row2) Then - Return 0 - End If - If (row1 Is Nothing) Then - Return -1 - End If - If (row2 Is Nothing) Then - Return 1 - End If - - Dim distance1 As Integer = 0 - Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) - - Dim distance2 As Integer = 0 - Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) - - If Object.ReferenceEquals(root1, root2) Then - Return (Me._childFirst * distance1.CompareTo(distance2)) - Else - Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ - AndAlso (Not (root2.Table) Is Nothing))) - If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then - Return -1 - Else - Return 1 - End If - End If - End Function - End Class - End Class -End Namespace +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.36366 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class MyDataset + Inherits Global.System.Data.DataSet + + Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable + + Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable + + Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable + + Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable + + Private tableTBWH_User As TBWH_UserDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New() + Me.BeginInit() + Me.InitClass() + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit() + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, False) + If (Me.IsBinarySerialized(info, context) = True) Then + Me.InitVars(False) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBCBS_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_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"))) + 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"))) + End If + If (Not (ds.Tables("TBWH_User")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBCBS_PROFILES() As TBCBS_PROFILESDataTable + Get + Return Me.tableTBCBS_PROFILES + End Get + End Property + + _ + Public ReadOnly Property TBCBS_USER_PROFILE() As TBCBS_USER_PROFILEDataTable + Get + Return Me.tableTBCBS_USER_PROFILE + End Get + End Property + + _ + Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable + Get + Return Me.tableVWUSER_PROFILE + End Get + End Property + + _ + Public ReadOnly Property TBCBS_PROFILE_PROCESS() As TBCBS_PROFILE_PROCESSDataTable + Get + Return Me.tableTBCBS_PROFILE_PROCESS + End Get + End Property + + _ + Public ReadOnly Property TBWH_User() As TBWH_UserDataTable + Get + Return Me.tableTBWH_User + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set(value As Global.System.Data.SchemaSerializationMode) + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As MyDataset = CType(MyBase.Clone, MyDataset) + cln.InitVars() + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return False + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return False + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset() + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBCBS_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_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"))) + 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"))) + End If + If (Not (ds.Tables("TBWH_User")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() + Else + Me.ReadXml(reader) + Me.InitVars() + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(True) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBCBS_PROFILES = CType(MyBase.Tables("TBCBS_PROFILES"), TBCBS_PROFILESDataTable) + If (initTable = True) Then + If (Not (Me.tableTBCBS_PROFILES) Is Nothing) Then + Me.tableTBCBS_PROFILES.InitVars() + End If + End If + Me.tableTBCBS_USER_PROFILE = CType(MyBase.Tables("TBCBS_USER_PROFILE"), TBCBS_USER_PROFILEDataTable) + If (initTable = True) Then + If (Not (Me.tableTBCBS_USER_PROFILE) Is Nothing) Then + Me.tableTBCBS_USER_PROFILE.InitVars() + End If + End If + Me.tableVWUSER_PROFILE = CType(MyBase.Tables("VWUSER_PROFILE"), VWUSER_PROFILEDataTable) + If (initTable = True) Then + If (Not (Me.tableVWUSER_PROFILE) Is Nothing) Then + Me.tableVWUSER_PROFILE.InitVars() + End If + End If + Me.tableTBCBS_PROFILE_PROCESS = CType(MyBase.Tables("TBCBS_PROFILE_PROCESS"), TBCBS_PROFILE_PROCESSDataTable) + If (initTable = True) Then + If (Not (Me.tableTBCBS_PROFILE_PROCESS) Is Nothing) Then + Me.tableTBCBS_PROFILE_PROCESS.InitVars() + End If + End If + Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"), TBWH_UserDataTable) + If (initTable = True) Then + If (Not (Me.tableTBWH_User) Is Nothing) Then + Me.tableTBWH_User.InitVars() + End If + End If + End Sub + + _ + 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.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.tableTBWH_User = New TBWH_UserDataTable() + MyBase.Tables.Add(Me.tableTBWH_User) + End Sub + + _ + Private Function ShouldSerializeTBCBS_PROFILES() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTBCBS_USER_PROFILE() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeVWUSER_PROFILE() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTBCBS_PROFILE_PROCESS() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTBWH_User() As Boolean + Return False + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars() + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As MyDataset = New MyDataset() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBCBS_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_PROFILESRowChangeEvent) + + _ + Public Delegate Sub TBCBS_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_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 TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCBS_PROFILESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnWD_SEARCH As Global.System.Data.DataColumn + + Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBCBS_PROFILES" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_SEARCH + End Get + End Property + + _ + Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_EXPRESSION + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILESRow + Get + Return CType(Me.Rows(index), TBCBS_PROFILESRow) + End Get + End Property + + _ + Public Event TBCBS_PROFILESRowChanging As TBCBS_PROFILESRowChangeEventHandler + + _ + Public Event TBCBS_PROFILESRowChanged As TBCBS_PROFILESRowChangeEventHandler + + _ + Public Event TBCBS_PROFILESRowDeleting As TBCBS_PROFILESRowChangeEventHandler + + _ + Public Event TBCBS_PROFILESRowDeleted As TBCBS_PROFILESRowChangeEventHandler + + _ + Public Overloads Sub AddTBCBS_PROFILESRow(ByVal row As TBCBS_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) + 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 + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILESRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_PROFILESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCBS_PROFILESDataTable = CType(MyBase.Clone, TBCBS_PROFILESDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCBS_PROFILESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") + Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_SEARCH) + Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False + Me.columnNAME.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnWD_SEARCH.AllowDBNull = False + Me.columnWD_SEARCH.MaxLength = 250 + Me.columnREGEX_EXPRESSION.AllowDBNull = False + Me.columnREGEX_EXPRESSION.DefaultValue = CType("", String) + Me.columnREGEX_EXPRESSION.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = False + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCBS_PROFILESRow() As TBCBS_PROFILESRow + Return CType(Me.NewRow, TBCBS_PROFILESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCBS_PROFILESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCBS_PROFILESRow) + End Function + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + Public Sub RemoveTBCBS_PROFILESRow(ByVal row As TBCBS_PROFILESRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCBS_PROFILESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCBS_USER_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCBS_USER_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBCBS_USER_PROFILE" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_USER_PROFILERow + Get + Return CType(Me.Rows(index), TBCBS_USER_PROFILERow) + End Get + End Property + + _ + Public Event TBCBS_USER_PROFILERowChanging As TBCBS_USER_PROFILERowChangeEventHandler + + _ + Public Event TBCBS_USER_PROFILERowChanged As TBCBS_USER_PROFILERowChangeEventHandler + + _ + Public Event TBCBS_USER_PROFILERowDeleting As TBCBS_USER_PROFILERowChangeEventHandler + + _ + Public Event TBCBS_USER_PROFILERowDeleted As TBCBS_USER_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddTBCBS_USER_PROFILERow(ByVal row As TBCBS_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) + 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 + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_USER_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_USER_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCBS_USER_PROFILEDataTable = CType(MyBase.Clone, TBCBS_USER_PROFILEDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCBS_USER_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnUSER_ID.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCBS_USER_PROFILERow() As TBCBS_USER_PROFILERow + Return CType(Me.NewRow, TBCBS_USER_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCBS_USER_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCBS_USER_PROFILERow) + End Function + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + Public Sub RemoveTBCBS_USER_PROFILERow(ByVal row As TBCBS_USER_PROFILERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCBS_USER_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWUSER_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWUSER_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "VWUSER_PROFILE" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As VWUSER_PROFILERow + Get + Return CType(Me.Rows(index), VWUSER_PROFILERow) + End Get + End Property + + _ + Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler + + _ + Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler + + _ + Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler + + _ + Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWUSER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String) As VWUSER_PROFILERow + Dim rowVWUSER_PROFILERow As VWUSER_PROFILERow = CType(Me.NewRow, VWUSER_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USERNAME, NAME, PRENAME} + rowVWUSER_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWUSER_PROFILERow) + Return rowVWUSER_PROFILERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}), VWUSER_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone, VWUSER_PROFILEDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWUSER_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnPRENAME = MyBase.Columns("PRENAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnUSERNAME.AllowDBNull = False + Me.columnUSERNAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnPRENAME.MaxLength = 50 + End Sub + + _ + Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow + Return CType(Me.NewRow, VWUSER_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWUSER_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWUSER_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent VWUSER_PROFILERowChanged(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent VWUSER_PROFILERowChanging(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent VWUSER_PROFILERowDeleted(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent VWUSER_PROFILERowDeleting(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWUSER_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCBS_PROFILE_PROCESSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILE_PROCESSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnPROC_NAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBCBS_PROFILE_PROCESS" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROC_NAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILE_PROCESSRow + Get + Return CType(Me.Rows(index), TBCBS_PROFILE_PROCESSRow) + End Get + End Property + + _ + Public Event TBCBS_PROFILE_PROCESSRowChanging As TBCBS_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Event TBCBS_PROFILE_PROCESSRowChanged As TBCBS_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Event TBCBS_PROFILE_PROCESSRowDeleting As TBCBS_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Event TBCBS_PROFILE_PROCESSRowDeleted As TBCBS_PROFILE_PROCESSRowChangeEventHandler + + _ + Public Overloads Sub AddTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_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) + 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 + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILE_PROCESSRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_PROFILE_PROCESSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCBS_PROFILE_PROCESSDataTable = CType(MyBase.Clone, TBCBS_PROFILE_PROCESSDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCBS_PROFILE_PROCESSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROC_NAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnPROC_NAME.AllowDBNull = False + Me.columnPROC_NAME.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = False + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBCBS_PROFILE_PROCESSRow() As TBCBS_PROFILE_PROCESSRow + Return CType(Me.NewRow, TBCBS_PROFILE_PROCESSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCBS_PROFILE_PROCESSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCBS_PROFILE_PROCESSRow) + End Function + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + Public Sub RemoveTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_PROFILE_PROCESSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCBS_PROFILE_PROCESSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_UserDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) + + Private columnSelect As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnSurname As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + Private columnID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBWH_User" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSelect + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow + Get + Return CType(Me.Rows(index), TBWH_UserRow) + End Get + End Property + + _ + Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler + + _ + Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler + + _ + Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler + + _ + Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_UserRow(ByVal _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} + rowTBWH_UserRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_UserRow) + Return rowTBWH_UserRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_UserDataTable = CType(MyBase.Clone, TBWH_UserDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_UserDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + Me.columnID = MyBase.Columns("ID") + End Sub + + _ + Private Sub InitClass() + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSelect.DefaultValue = CType(False, Boolean) + End Sub + + _ + Public Function NewTBWH_UserRow() As TBWH_UserRow + Return CType(Me.NewRow, TBWH_UserRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_UserRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_UserRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_UserDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCBS_PROFILESRow + Inherits Global.System.Data.DataRow + + Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCBS_PROFILES = CType(Me.Table, TBCBS_PROFILESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCBS_PROFILES.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBCBS_PROFILES.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBCBS_PROFILES.NAMEColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILES.NAMEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBCBS_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) + End Try + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = value + End Set + End Property + + _ + Public Property WD_SEARCH() As String + Get + Return CType(Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn) = value + End Set + End Property + + _ + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCBS_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) + End Try + End Get + Set(value As Date) + Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCBS_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) + End Try + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCBS_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) + End Try + End Get + Set(value As Date) + Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBCBS_PROFILES.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCBS_USER_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCBS_USER_PROFILE = CType(Me.Table, TBCBS_USER_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCBS_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) + End Try + End Get + Set(value As Date) + Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWUSER_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWUSER_PROFILE = CType(Me.Table, VWUSER_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn), String) + End Get + Set(value As String) + Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCBS_PROFILE_PROCESSRow + Inherits Global.System.Data.DataRow + + Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCBS_PROFILE_PROCESS = CType(Me.Table, TBCBS_PROFILE_PROCESSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property PROC_NAME() As String + Get + Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn), String) + End Get + Set(value As String) + Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCBS_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) + End Try + End Get + Set(value As Date) + Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_UserRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_User As TBWH_UserDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_User = CType(Me.Table, TBWH_UserDataTable) + End Sub + + _ + Public Property _Select() As Boolean + Get + Try + Return CType(Me(Me.tableTBWH_User.SelectColumn), Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set(value As Boolean) + Me(Me.tableTBWH_User.SelectColumn) = value + End Set + End Property + + _ + Public Property Username() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.UsernameColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBWH_User.UsernameColumn) = value + End Set + End Property + + _ + Public Property Prename() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.PrenameColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBWH_User.PrenameColumn) = value + End Set + End Property + + _ + Public Property Surname() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.SurnameColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBWH_User.SurnameColumn) = value + End Set + End Property + + _ + Public Property Email() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.EmailColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBWH_User.EmailColumn) = value + End Set + End Property + + _ + Public Property ID() As Short + Get + Try + Return CType(Me(Me.tableTBWH_User.IDColumn), Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set(value As Short) + Me(Me.tableTBWH_User.IDColumn) = value + End Set + End Property + + _ + Public Function Is_SelectNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.SelectColumn) + End Function + + _ + Public Sub Set_SelectNull() + Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) + End Function + + _ + Public Sub SetUsernameNull() + Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrenameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) + End Function + + _ + Public Sub SetPrenameNull() + Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSurnameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) + End Function + + _ + Public Sub SetSurnameNull() + Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEmailNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.EmailColumn) + End Function + + _ + Public Sub SetEmailNull() + Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCBS_PROFILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCBS_PROFILESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCBS_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 + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCBS_USER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCBS_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) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCBS_USER_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWUSER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWUSER_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWUSER_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCBS_PROFILE_PROCESSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCBS_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) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCBS_PROFILE_PROCESSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_UserRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_UserRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_UserRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_UserRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace MyDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCBS_PROFILESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCBS_PROFILES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCBS_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.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.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.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBCBS_PROFILES.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBCBS_PROFILES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData() As MyDataset.TBCBS_PROFILESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBCBS_PROFILESDataTable = New MyDataset.TBCBS_PROFILESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCBS_PROFILES") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH, String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(REGEX_EXPRESSION, String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal 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 + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH, String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(REGEX_EXPRESSION, String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO, String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCBS_USER_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCBS_USER_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCBS_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.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.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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBCBS_USER_PROFILE.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBCBS_USER_PROFILE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData() As MyDataset.TBCBS_USER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBCBS_USER_PROFILEDataTable = New MyDataset.TBCBS_USER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCBS_USER_PROFILE") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Insert(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID, Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + _ + Public Overridable Overloads Function Update(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWUSER_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWUSER_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ + " 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." & _ + "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).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, "", "", "")) + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) + Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function cmdDelete(ByVal GUID As Object) 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 + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open() + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close() + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCBS_PROFILE_PROCESSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New() + Me.ClearBeforeFill = True + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set(value As Global.System.Data.SqlClient.SqlTransaction) + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCBS_PROFILE_PROCESS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCBS_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.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ + " TBCBS_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 Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData(ByVal PID As Integer) As MyDataset.TBCBS_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() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCBS_PROFILE_PROCESS") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBCBS_PROFILESTableAdapter As TBCBS_PROFILESTableAdapter + + Private _tBCBS_USER_PROFILETableAdapter As TBCBS_USER_PROFILETableAdapter + + Private _tBCBS_PROFILE_PROCESSTableAdapter As TBCBS_PROFILE_PROCESSTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set(value As UpdateOrderOption) + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBCBS_PROFILESTableAdapter() As TBCBS_PROFILESTableAdapter + Get + Return Me._tBCBS_PROFILESTableAdapter + End Get + Set(value As TBCBS_PROFILESTableAdapter) + Me._tBCBS_PROFILESTableAdapter = value + End Set + End Property + + _ + Public Property TBCBS_USER_PROFILETableAdapter() As TBCBS_USER_PROFILETableAdapter + Get + Return Me._tBCBS_USER_PROFILETableAdapter + End Get + Set(value As TBCBS_USER_PROFILETableAdapter) + Me._tBCBS_USER_PROFILETableAdapter = value + End Set + End Property + + _ + Public Property TBCBS_PROFILE_PROCESSTableAdapter() As TBCBS_PROFILE_PROCESSTableAdapter + Get + Return Me._tBCBS_PROFILE_PROCESSTableAdapter + End Get + Set(value As TBCBS_PROFILE_PROCESSTableAdapter) + Me._tBCBS_PROFILE_PROCESSTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set(value As Boolean) + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCBS_PROFILESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCBS_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 + 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 + End If + Return Nothing + End Get + Set(value As Global.System.Data.IDbConnection) + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As 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) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCBS_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) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCBS_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) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As 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 (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCBS_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 (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCBS_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 (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As 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 (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCBS_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 (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCBS_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 (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCBS_PROFILESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = False) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = False) Then + Return 0 + End If + If ((Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_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 + 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 + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ + "t.") + End If + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close() + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open() + workConnOpened = True + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._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) + 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) + 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) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit() + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback() + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear() + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + row.SetAdded() + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close() + End If + If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then + Me._tBCBS_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCBS_PROFILESTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBCBS_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 + 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 + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = True + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return True + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return True + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return True + End If + Return False + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New() + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear() + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/DD_Clipboard_Searcher/MyDataset.xsc b/DD_Clipboard_Searcher/MyDataset.xsc index 3d03832..c05010c 100644 --- a/DD_Clipboard_Searcher/MyDataset.xsc +++ b/DD_Clipboard_Searcher/MyDataset.xsc @@ -1,24 +1,24 @@ - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/MyDataset.xsd b/DD_Clipboard_Searcher/MyDataset.xsd index c795621..02ab131 100644 --- a/DD_Clipboard_Searcher/MyDataset.xsd +++ b/DD_Clipboard_Searcher/MyDataset.xsd @@ -1,373 +1,373 @@ - - - - - - - - - - - - - - - DELETE FROM TBCBS_PROFILES -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBCBS_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()) - - - - - - - - - - - - SELECT TBCBS_PROFILES.* -FROM TBCBS_PROFILES - - - - - - UPDATE TBCBS_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) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBCBS_USER_PROFILE -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBCBS_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 TBCBS_USER_PROFILE.* -FROM TBCBS_USER_PROFILE - - - - - - UPDATE TBCBS_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 T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME -FROM TBCBS_USER_PROFILE AS T INNER JOIN - TBDD_USER AS T1 ON T.USER_ID = T1.GUID -WHERE (T.PROFILE_ID = @PROFILE_ID) ORDER BY T1.USERNAME - - - - - - - - - - - - - - - - - - - DELETE FROM TBCBS_USER_RPOFILE WHERE GUID = @GUID - - - - - - - - - - - - - - DELETE FROM TBCBS_PROFILE_PROCESS -WHERE (GUID = @GUID) - - - - - - - - INSERT INTO TBCBS_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 -WHERE (PROFILE_ID = @PID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + DELETE FROM TBCBS_PROFILES +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBCBS_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()) + + + + + + + + + + + + SELECT TBCBS_PROFILES.* +FROM TBCBS_PROFILES + + + + + + UPDATE TBCBS_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) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBCBS_USER_PROFILE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBCBS_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 TBCBS_USER_PROFILE.* +FROM TBCBS_USER_PROFILE + + + + + + UPDATE TBCBS_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 T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME +FROM TBCBS_USER_PROFILE AS T INNER JOIN + TBDD_USER AS T1 ON T.USER_ID = T1.GUID +WHERE (T.PROFILE_ID = @PROFILE_ID) ORDER BY T1.USERNAME + + + + + + + + + + + + + + + + + + + DELETE FROM TBCBS_USER_RPOFILE WHERE GUID = @GUID + + + + + + + + + + + + + + DELETE FROM TBCBS_PROFILE_PROCESS +WHERE (GUID = @GUID) + + + + + + + + INSERT INTO TBCBS_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 +WHERE (PROFILE_ID = @PID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/MyDataset.xss b/DD_Clipboard_Searcher/MyDataset.xss index 1de173b..de16560 100644 --- a/DD_Clipboard_Searcher/MyDataset.xss +++ b/DD_Clipboard_Searcher/MyDataset.xss @@ -1,16 +1,16 @@ - - - - - - - - - - - + + + + + + + + + + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/clsSearch.vb b/DD_Clipboard_Searcher/clsSearch.vb index 4a46248..1ed55b2 100644 --- a/DD_Clipboard_Searcher/clsSearch.vb +++ b/DD_Clipboard_Searcher/clsSearch.vb @@ -1,149 +1,149 @@ -Imports DD_LIB_Standards -Imports System.IO -Imports System.Text - -Public Class clsSearch - - - ''Fenster position ermitteln/auslesen - 'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer - Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32 - Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer - - Private Structure RECT - Dim Left As Integer - Dim Top As Integer - Dim Right As Integer - Dim Bottom As Integer - End Structure - - Private Shared fileContents As String - Public Shared Function RUN_WD_SEARCH(BaseSearch As String) - Try - Dim extension = Path.GetExtension(BaseSearch) - Dim windream_temp_search As String = "" - If IO.File.Exists(BaseSearch) = False Then - ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True) - MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) - Return Nothing - End If - - fileContents = "" - 'Eine tempfile generieren - Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() - 'Nur den Filenamen ohne Erweiterung - Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) - 'tempfile löschen - If My.Computer.FileSystem.FileExists(tempFilename1) Then - My.Computer.FileSystem.DeleteFile(tempFilename1) - End If - - Dim temppath = Path.GetTempPath - Dim EncodingFormat As Encoding - - If WD_UNICODE = True Then - EncodingFormat = Encoding.GetEncoding(1252) '1252 - If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False) - Else - If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False) - EncodingFormat = Encoding.GetEncoding(65001) - End If - - If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False) - fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode - If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False) - fileContents = fileContents.Replace("Í", "Ö") - fileContents = fileContents.Replace("@Clipboard", CURR_MATCH_RESULT) - fileContents = fileContents.Replace("@CLIPBOARD", CURR_MATCH_RESULT) - fileContents = fileContents.Replace("@Zwischenablage", CURR_MATCH_RESULT) - - Try - 'Die windream File zusammensetzen - windream_temp_search = temppath & tempName & extension - Try - 'Die File schreiben - My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) - If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False) - ' XML-Datei öffnen und laden - Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) - Dim Reader As New System.Xml.XmlTextReader(Stream) - - ' XML-Datei initialisieren - Dim xml As New System.Xml.XmlDocument() - ' XML-Datei öffnen und laden - xml.Load(Reader) - Reader.Close() - xml.Save(windream_temp_search) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False) - Catch ex As Exception - ClassLogger.Add("TempFile could not be created: " & ex.Message, True) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler in Write XmlSearch:") - End Try - - CURRENT_WD_TEMPSEARCH = windream_temp_search - TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH) - Try - Dim myhWnd As IntPtr - Dim p As New Process() - p.StartInfo.FileName = windream_temp_search - If My.Settings.WDSearch_maximized = True Then - p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized - Else - p.StartInfo.WindowStyle = ProcessWindowStyle.Normal - End If - p.Start() - - myhWnd = p.MainWindowHandle - Threading.Thread.Sleep(1000) - Dim rctMain As RECT - GetWindowRect(p.MainWindowHandle, rctMain) - If LogErrorsOnly = False Then - ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False) - ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False) - ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False) - ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False) - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen der windream-Suche:") - ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True) - Return "Unexpected error while executing search" - End Try - Dim psList() As Process - Try - psList = Process.GetProcesses() - - For Each p As Process In psList - Console.WriteLine(p.Id.ToString() + " " + p.ProcessName) - If p.ProcessName.Contains("indream.Find") Then - AppActivate(p.Id) - If My.Settings.WDSearch_maximized = False Then - Dim rctMain As RECT - GetWindowRect(p.MainWindowHandle, rctMain) - If rctMain.Left = 0 Or rctMain.Right = 0 Then - ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE - End If - End If - ' SetForeGroundWindow( p.MainWindowHandle) - End If - - Next p - - Catch ex As Exception - ClassLogger.Add("Unexpected error while Setting foreground: " & ex.Message, True) - End Try - Return "" - Catch ex As Exception - ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True) - MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unexpected error in Create Search" - End Try - - Catch ex As Exception - ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True) - MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" - End Try - - - End Function -End Class +Imports DD_LIB_Standards +Imports System.IO +Imports System.Text + +Public Class clsSearch + + + ''Fenster position ermitteln/auslesen + 'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer + Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32 + Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer + + Private Structure RECT + Dim Left As Integer + Dim Top As Integer + Dim Right As Integer + Dim Bottom As Integer + End Structure + + Private Shared fileContents As String + Public Shared Function RUN_WD_SEARCH(BaseSearch As String) + Try + Dim extension = Path.GetExtension(BaseSearch) + Dim windream_temp_search As String = "" + If IO.File.Exists(BaseSearch) = False Then + ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True) + MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) + Return Nothing + End If + + fileContents = "" + 'Eine tempfile generieren + Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) + 'tempfile löschen + If My.Computer.FileSystem.FileExists(tempFilename1) Then + My.Computer.FileSystem.DeleteFile(tempFilename1) + End If + + Dim temppath = Path.GetTempPath + Dim EncodingFormat As Encoding + + If WD_UNICODE = True Then + EncodingFormat = Encoding.GetEncoding(1252) '1252 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False) + EncodingFormat = Encoding.GetEncoding(65001) + End If + + If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False) + fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode + If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False) + fileContents = fileContents.Replace("Í", "Ö") + fileContents = fileContents.Replace("@Clipboard", CURR_MATCH_RESULT) + fileContents = fileContents.Replace("@CLIPBOARD", CURR_MATCH_RESULT) + fileContents = fileContents.Replace("@Zwischenablage", CURR_MATCH_RESULT) + + Try + 'Die windream File zusammensetzen + windream_temp_search = temppath & tempName & extension + Try + 'Die File schreiben + My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) + If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False) + ' XML-Datei öffnen und laden + Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) + Dim Reader As New System.Xml.XmlTextReader(Stream) + + ' XML-Datei initialisieren + Dim xml As New System.Xml.XmlDocument() + ' XML-Datei öffnen und laden + xml.Load(Reader) + Reader.Close() + xml.Save(windream_temp_search) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False) + Catch ex As Exception + ClassLogger.Add("TempFile could not be created: " & ex.Message, True) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler in Write XmlSearch:") + End Try + + CURRENT_WD_TEMPSEARCH = windream_temp_search + TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH) + Try + Dim myhWnd As IntPtr + Dim p As New Process() + p.StartInfo.FileName = windream_temp_search + If My.Settings.WDSearch_maximized = True Then + p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized + Else + p.StartInfo.WindowStyle = ProcessWindowStyle.Normal + End If + p.Start() + + myhWnd = p.MainWindowHandle + Threading.Thread.Sleep(1000) + Dim rctMain As RECT + GetWindowRect(p.MainWindowHandle, rctMain) + If LogErrorsOnly = False Then + ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False) + ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False) + ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False) + ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen der windream-Suche:") + ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True) + Return "Unexpected error while executing search" + End Try + Dim psList() As Process + Try + psList = Process.GetProcesses() + + For Each p As Process In psList + Console.WriteLine(p.Id.ToString() + " " + p.ProcessName) + If p.ProcessName.Contains("indream.Find") Then + AppActivate(p.Id) + If My.Settings.WDSearch_maximized = False Then + Dim rctMain As RECT + GetWindowRect(p.MainWindowHandle, rctMain) + If rctMain.Left = 0 Or rctMain.Right = 0 Then + ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE + End If + End If + ' SetForeGroundWindow( p.MainWindowHandle) + End If + + Next p + + Catch ex As Exception + ClassLogger.Add("Unexpected error while Setting foreground: " & ex.Message, True) + End Try + Return "" + Catch ex As Exception + ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True) + MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return "Unexpected error in Create Search" + End Try + + Catch ex As Exception + ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True) + MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" + End Try + + + End Function +End Class diff --git a/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 70f645d..b6588c6 100644 --- a/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -1,1077 +1,1077 @@ - _ -Partial Class frmAdministration - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim GUIDLabel As System.Windows.Forms.Label - Dim NAMELabel As System.Windows.Forms.Label - Dim COMMENTLabel As System.Windows.Forms.Label - Dim WD_SEARCHLabel As System.Windows.Forms.Label - Dim REGEX_EXPRESSIONLabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(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.MyDataset = New DD_Clipboard_Searcher.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.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() - 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.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.NAMETextBox = New System.Windows.Forms.TextBox() - Me.COMMENTTextBox = New System.Windows.Forms.TextBox() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() - Me.TBWH_UserBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() - Me.btndeleteUserConstructorRel = New System.Windows.Forms.Button() - Me.btnAddUser2Profile = New System.Windows.Forms.Button() - Me.Label1 = New System.Windows.Forms.Label() - Me.GridControl2 = New DevExpress.XtraGrid.GridControl() - Me.VWUSER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.GridViewProfileUser = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() - 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_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter() - Me.TableAdapterManager = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.statuslabel = New System.Windows.Forms.ToolStripStatusLabel() - Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - Me.VWUSER_PROFILETableAdapter = New DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.chkRunwindowCheck = New System.Windows.Forms.CheckBox() - Me.txtProcessName = New System.Windows.Forms.TextBox() - Me.txtPID = New System.Windows.Forms.TextBox() - 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_Searcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter() - Me.GridControl3 = New DevExpress.XtraGrid.GridControl() - Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GroupBox4 = New System.Windows.Forms.GroupBox() - Me.btnLinkProcessPRofile = New System.Windows.Forms.Button() - Me.btndeleteProcessProfileLink = New System.Windows.Forms.Button() - GUIDLabel = New System.Windows.Forms.Label() - NAMELabel = New System.Windows.Forms.Label() - COMMENTLabel = New System.Windows.Forms.Label() - WD_SEARCHLabel = New System.Windows.Forms.Label() - REGEX_EXPRESSIONLabel = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - 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.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBCBS_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TBCBS_PROFILESBindingNavigator.SuspendLayout() - Me.GroupBox2.SuspendLayout() - CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewProfileUser, System.ComponentModel.ISupportInitialize).BeginInit() - Me.StatusStrip1.SuspendLayout() - Me.GroupBox3.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBCBS_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox4.SuspendLayout() - Me.SuspendLayout() - ' - 'GUIDLabel - ' - GUIDLabel.AutoSize = True - GUIDLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - GUIDLabel.Location = New System.Drawing.Point(174, 48) - GUIDLabel.Name = "GUIDLabel" - GUIDLabel.Size = New System.Drawing.Size(22, 13) - GUIDLabel.TabIndex = 0 - GUIDLabel.Text = "ID:" - ' - 'NAMELabel - ' - NAMELabel.AutoSize = True - NAMELabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - NAMELabel.Location = New System.Drawing.Point(227, 48) - NAMELabel.Name = "NAMELabel" - NAMELabel.Size = New System.Drawing.Size(38, 13) - NAMELabel.TabIndex = 2 - NAMELabel.Text = "Name:" - ' - 'COMMENTLabel - ' - COMMENTLabel.AutoSize = True - COMMENTLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - COMMENTLabel.Location = New System.Drawing.Point(174, 88) - COMMENTLabel.Name = "COMMENTLabel" - COMMENTLabel.Size = New System.Drawing.Size(65, 13) - COMMENTLabel.TabIndex = 4 - COMMENTLabel.Text = "Kommentar:" - ' - 'WD_SEARCHLabel - ' - WD_SEARCHLabel.AutoSize = True - WD_SEARCHLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - WD_SEARCHLabel.Location = New System.Drawing.Point(174, 128) - WD_SEARCHLabel.Name = "WD_SEARCHLabel" - WD_SEARCHLabel.Size = New System.Drawing.Size(89, 13) - WD_SEARCHLabel.TabIndex = 6 - WD_SEARCHLabel.Text = "windream Suche:" - ' - 'REGEX_EXPRESSIONLabel - ' - REGEX_EXPRESSIONLabel.AutoSize = True - REGEX_EXPRESSIONLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - REGEX_EXPRESSIONLabel.Location = New System.Drawing.Point(174, 168) - REGEX_EXPRESSIONLabel.Name = "REGEX_EXPRESSIONLabel" - REGEX_EXPRESSIONLabel.Size = New System.Drawing.Size(97, 13) - REGEX_EXPRESSIONLabel.TabIndex = 8 - REGEX_EXPRESSIONLabel.Text = "Regex Expression:" - ' - 'ADDED_WHOLabel - ' - ADDED_WHOLabel.AutoSize = True - ADDED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - ADDED_WHOLabel.Location = New System.Drawing.Point(174, 208) - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) - ADDED_WHOLabel.TabIndex = 10 - ADDED_WHOLabel.Text = "Erstellt wer:" - ' - 'ADDED_WHENLabel - ' - ADDED_WHENLabel.AutoSize = True - ADDED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - ADDED_WHENLabel.Location = New System.Drawing.Point(327, 208) - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) - ADDED_WHENLabel.TabIndex = 12 - ADDED_WHENLabel.Text = "Erstellt wann:" - ' - 'CHANGED_WHOLabel - ' - CHANGED_WHOLabel.AutoSize = True - CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - CHANGED_WHOLabel.Location = New System.Drawing.Point(174, 248) - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) - CHANGED_WHOLabel.TabIndex = 14 - CHANGED_WHOLabel.Text = "Geändert wer:" - ' - 'CHANGED_WHENLabel - ' - CHANGED_WHENLabel.AutoSize = True - CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - CHANGED_WHENLabel.Location = New System.Drawing.Point(327, 248) - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) - CHANGED_WHENLabel.TabIndex = 16 - CHANGED_WHENLabel.Text = "Geändert wann:" - ' - 'GroupBox1 - ' - Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - 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(GUIDLabel) - Me.GroupBox1.Controls.Add(Me.GUIDTextBox) - Me.GroupBox1.Controls.Add(NAMELabel) - Me.GroupBox1.Controls.Add(Me.NAMETextBox) - Me.GroupBox1.Controls.Add(COMMENTLabel) - Me.GroupBox1.Controls.Add(Me.COMMENTTextBox) - Me.GroupBox1.Controls.Add(WD_SEARCHLabel) - Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox) - Me.GroupBox1.Controls.Add(REGEX_EXPRESSIONLabel) - Me.GroupBox1.Controls.Add(Me.REGEX_EXPRESSIONTextBox) - Me.GroupBox1.Controls.Add(ADDED_WHOLabel) - Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox) - Me.GroupBox1.Controls.Add(ADDED_WHENLabel) - Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) - 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.TabIndex = 0 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Profile" - ' - 'btnaddSearch - ' - Me.btnaddSearch.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnaddSearch.Location = New System.Drawing.Point(497, 142) - Me.btnaddSearch.Name = "btnaddSearch" - Me.btnaddSearch.Size = New System.Drawing.Size(28, 23) - Me.btnaddSearch.TabIndex = 19 - Me.btnaddSearch.Text = "..." - Me.btnaddSearch.UseVisualStyleBackColor = True - ' - 'GridControl1 - ' - Me.GridControl1.DataSource = Me.TBCBS_PROFILESBindingSource - Me.GridControl1.Location = New System.Drawing.Point(6, 17) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(162, 268) - Me.GridControl1.TabIndex = 18 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'TBCBS_PROFILESBindingSource - ' - Me.TBCBS_PROFILESBindingSource.DataMember = "TBCBS_PROFILES" - Me.TBCBS_PROFILESBindingSource.DataSource = Me.MyDataset - ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'GridView1 - ' - Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua - Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME}) - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - Me.GridView1.OptionsBehavior.Editable = False - Me.GridView1.OptionsView.ColumnAutoWidth = False - Me.GridView1.OptionsView.EnableAppearanceEvenRow = True - Me.GridView1.OptionsView.ShowAutoFilterRow = True - Me.GridView1.OptionsView.ShowDetailButtons = False - Me.GridView1.OptionsView.ShowGroupPanel = False - Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - Me.GridView1.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] - ' - 'colGUID - ' - Me.colGUID.Caption = "ID" - Me.colGUID.FieldName = "GUID" - Me.colGUID.Name = "colGUID" - Me.colGUID.Visible = True - Me.colGUID.VisibleIndex = 0 - Me.colGUID.Width = 30 - ' - 'colNAME - ' - Me.colNAME.Caption = "Name" - Me.colNAME.FieldName = "NAME" - Me.colNAME.Name = "colNAME" - Me.colNAME.Visible = True - 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" - ' - 'BindingNavigatorAddNewItem - ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) - Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" - Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" - ' - 'BindingNavigatorCountItem - ' - Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" - Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) - Me.BindingNavigatorCountItem.Text = "von {0}" - Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." - ' - 'BindingNavigatorMoveFirstItem - ' - Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" - Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" - ' - 'BindingNavigatorMovePreviousItem - ' - Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" - Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" - ' - 'BindingNavigatorSeparator - ' - Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" - Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorPositionItem - ' - Me.BindingNavigatorPositionItem.AccessibleName = "Position" - Me.BindingNavigatorPositionItem.AutoSize = False - Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" - Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) - Me.BindingNavigatorPositionItem.Text = "0" - Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" - ' - 'BindingNavigatorSeparator1 - ' - Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" - Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorMoveNextItem - ' - Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" - Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" - ' - 'BindingNavigatorMoveLastItem - ' - Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" - Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" - ' - 'BindingNavigatorSeparator2 - ' - Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" - Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorDeleteItem.Text = "Löschen" - ' - 'TBCBS_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" - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(47, 21) - Me.GUIDTextBox.TabIndex = 1 - ' - 'NAMETextBox - ' - Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.NAMETextBox.Size = New System.Drawing.Size(295, 21) - Me.NAMETextBox.TabIndex = 3 - ' - 'COMMENTTextBox - ' - Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.COMMENTTextBox.Size = New System.Drawing.Size(348, 21) - Me.COMMENTTextBox.TabIndex = 5 - ' - 'WD_SEARCHTextBox - ' - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(314, 21) - Me.WD_SEARCHTextBox.TabIndex = 7 - ' - 'REGEX_EXPRESSIONTextBox - ' - Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(348, 21) - Me.REGEX_EXPRESSIONTextBox.TabIndex = 9 - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.ADDED_WHOTextBox.ReadOnly = True - Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21) - Me.ADDED_WHOTextBox.TabIndex = 11 - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.ADDED_WHENTextBox.ReadOnly = True - Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21) - Me.ADDED_WHENTextBox.TabIndex = 13 - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.CHANGED_WHOTextBox.ReadOnly = True - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21) - Me.CHANGED_WHOTextBox.TabIndex = 15 - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" - Me.CHANGED_WHENTextBox.ReadOnly = True - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21) - Me.CHANGED_WHENTextBox.TabIndex = 17 - ' - 'GroupBox2 - ' - Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.GroupBox2.Controls.Add(Me.Label2) - Me.GroupBox2.Controls.Add(Me.GridControlUsers2Menue) - Me.GroupBox2.Controls.Add(Me.btndeleteUserConstructorRel) - 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.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(637, 292) - Me.GroupBox2.TabIndex = 1 - Me.GroupBox2.TabStop = False - Me.GroupBox2.Text = "User Profilzuordnung" - ' - 'Label2 - ' - 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.TabIndex = 92 - Me.Label2.Text = "User ohne Rechte:" - ' - 'GridControlUsers2Menue - ' - Me.GridControlUsers2Menue.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.GridControlUsers2Menue.DataSource = Me.TBWH_UserBindingSource - Me.GridControlUsers2Menue.Location = New System.Drawing.Point(366, 88) - Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue - Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue" - Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True - Me.GridControlUsers2Menue.Size = New System.Drawing.Size(256, 198) - Me.GridControlUsers2Menue.TabIndex = 91 - Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue}) - ' - 'TBWH_UserBindingSource - ' - Me.TBWH_UserBindingSource.DataMember = "TBWH_User" - Me.TBWH_UserBindingSource.DataSource = Me.MyDataset - ' - 'GridViewlUsers2Menue - ' - Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan - Me.GridViewlUsers2Menue.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia - Me.GridViewlUsers2Menue.Appearance.FocusedRow.Options.UseBackColor = True - Me.GridViewlUsers2Menue.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn2, Me.GridColumn3, Me.colID}) - Me.GridViewlUsers2Menue.GridControl = Me.GridControlUsers2Menue - Me.GridViewlUsers2Menue.Name = "GridViewlUsers2Menue" - Me.GridViewlUsers2Menue.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewlUsers2Menue.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewlUsers2Menue.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewlUsers2Menue.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewlUsers2Menue.OptionsView.ColumnAutoWidth = False - Me.GridViewlUsers2Menue.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewlUsers2Menue.OptionsView.ShowAutoFilterRow = True - Me.GridViewlUsers2Menue.OptionsView.ShowGroupPanel = False - ' - 'colSelect - ' - Me.colSelect.Caption = "Selection" - Me.colSelect.FieldName = "Select" - Me.colSelect.Name = "colSelect" - Me.colSelect.Visible = True - Me.colSelect.VisibleIndex = 0 - Me.colSelect.Width = 54 - ' - 'colSurname - ' - Me.colSurname.Caption = "Name" - Me.colSurname.FieldName = "Surname" - Me.colSurname.Name = "colSurname" - Me.colSurname.Visible = True - Me.colSurname.VisibleIndex = 1 - ' - 'GridColumn2 - ' - Me.GridColumn2.FieldName = "Username" - Me.GridColumn2.Name = "GridColumn2" - Me.GridColumn2.OptionsColumn.AllowEdit = False - Me.GridColumn2.Visible = True - Me.GridColumn2.VisibleIndex = 2 - Me.GridColumn2.Width = 107 - ' - 'GridColumn3 - ' - Me.GridColumn3.FieldName = "Email" - Me.GridColumn3.Name = "GridColumn3" - Me.GridColumn3.OptionsColumn.AllowEdit = False - Me.GridColumn3.Visible = True - Me.GridColumn3.VisibleIndex = 3 - Me.GridColumn3.Width = 102 - ' - 'colID - ' - Me.colID.FieldName = "ID" - Me.colID.Name = "colID" - ' - 'btndeleteUserConstructorRel - ' - Me.btndeleteUserConstructorRel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - 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 - Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(9, 263) - Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel" - Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(173, 23) - Me.btndeleteUserConstructorRel.TabIndex = 60 - Me.btndeleteUserConstructorRel.Text = "Lösche Userzuordnung" - Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndeleteUserConstructorRel.UseVisualStyleBackColor = True - ' - 'btnAddUser2Profile - ' - 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 - Me.btnAddUser2Profile.Location = New System.Drawing.Point(366, 36) - Me.btnAddUser2Profile.Name = "btnAddUser2Profile" - Me.btnAddUser2Profile.Size = New System.Drawing.Size(256, 28) - Me.btnAddUser2Profile.TabIndex = 59 - Me.btnAddUser2Profile.Text = "User zu ausgefügtem Profil hinzufügen" - Me.btnAddUser2Profile.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAddUser2Profile.UseVisualStyleBackColor = True - ' - 'Label1 - ' - 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.TabIndex = 21 - Me.Label1.Text = "Zugeordnete User:" - ' - 'GridControl2 - ' - Me.GridControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.GridControl2.DataSource = Me.VWUSER_PROFILEBindingSource - Me.GridControl2.Location = New System.Drawing.Point(9, 36) - Me.GridControl2.MainView = Me.GridViewProfileUser - Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(351, 221) - Me.GridControl2.TabIndex = 19 - Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfileUser}) - ' - 'VWUSER_PROFILEBindingSource - ' - Me.VWUSER_PROFILEBindingSource.DataMember = "VWUSER_PROFILE" - Me.VWUSER_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'GridViewProfileUser - ' - Me.GridViewProfileUser.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua - Me.GridViewProfileUser.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewProfileUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) - Me.GridViewProfileUser.GridControl = Me.GridControl2 - Me.GridViewProfileUser.Name = "GridViewProfileUser" - Me.GridViewProfileUser.OptionsBehavior.Editable = False - Me.GridViewProfileUser.OptionsView.ColumnAutoWidth = False - Me.GridViewProfileUser.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewProfileUser.OptionsView.ShowAutoFilterRow = True - Me.GridViewProfileUser.OptionsView.ShowDetailButtons = False - Me.GridViewProfileUser.OptionsView.ShowGroupPanel = False - Me.GridViewProfileUser.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewProfileUser.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] - ' - 'colGUID1 - ' - Me.colGUID1.Caption = "ID" - Me.colGUID1.FieldName = "GUID" - Me.colGUID1.Name = "colGUID1" - Me.colGUID1.Visible = True - Me.colGUID1.VisibleIndex = 0 - Me.colGUID1.Width = 42 - ' - 'colUSERNAME - ' - Me.colUSERNAME.Caption = "Username" - Me.colUSERNAME.FieldName = "USERNAME" - Me.colUSERNAME.Name = "colUSERNAME" - Me.colUSERNAME.Visible = True - Me.colUSERNAME.VisibleIndex = 1 - Me.colUSERNAME.Width = 104 - ' - 'colNAME1 - ' - Me.colNAME1.Caption = "Name" - Me.colNAME1.FieldName = "NAME" - Me.colNAME1.Name = "colNAME1" - Me.colNAME1.Visible = True - Me.colNAME1.VisibleIndex = 2 - Me.colNAME1.Width = 95 - ' - 'colPRENAME - ' - Me.colPRENAME.Caption = "Vorname" - Me.colPRENAME.FieldName = "PRENAME" - Me.colPRENAME.Name = "colPRENAME" - Me.colPRENAME.Visible = True - Me.colPRENAME.VisibleIndex = 3 - Me.colPRENAME.Width = 86 - ' - 'TBCBS_PROFILESTableAdapter - ' - Me.TBCBS_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.UpdateOrder = DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.statuslabel}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 708) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1240, 22) - Me.StatusStrip1.TabIndex = 1 - Me.StatusStrip1.Text = "StatusStrip1" - ' - 'statuslabel - ' - Me.statuslabel.Name = "statuslabel" - Me.statuslabel.Size = New System.Drawing.Size(0, 17) - ' - 'OFDWindreamsuche - ' - Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*" - Me.OFDWindreamsuche.RestoreDirectory = True - Me.OFDWindreamsuche.Title = "windream-Suche wählen" - ' - 'VWUSER_PROFILETableAdapter - ' - Me.VWUSER_PROFILETableAdapter.ClearBeforeFill = True - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.PictureBox1) - Me.GroupBox3.Controls.Add(Me.chkRunwindowCheck) - Me.GroupBox3.Controls.Add(Me.txtProcessName) - Me.GroupBox3.Controls.Add(Me.txtPID) - Me.GroupBox3.Controls.Add(Me.Label4) - Me.GroupBox3.Controls.Add(Me.Label3) - Me.GroupBox3.Location = New System.Drawing.Point(12, 310) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(606, 81) - Me.GroupBox3.TabIndex = 2 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Auswahl Fenster/Prozess:" - ' - 'PictureBox1 - ' - Me.PictureBox1.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.Annotation_New - Me.PictureBox1.Location = New System.Drawing.Point(510, 28) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(48, 40) - Me.PictureBox1.TabIndex = 7 - Me.PictureBox1.TabStop = False - Me.PictureBox1.Visible = False - ' - 'chkRunwindowCheck - ' - Me.chkRunwindowCheck.AutoSize = True - Me.chkRunwindowCheck.Location = New System.Drawing.Point(6, 39) - Me.chkRunwindowCheck.Name = "chkRunwindowCheck" - Me.chkRunwindowCheck.Size = New System.Drawing.Size(173, 17) - Me.chkRunwindowCheck.TabIndex = 6 - Me.chkRunwindowCheck.Text = "Starte Aktive-Fenster Auswahl" - Me.chkRunwindowCheck.UseVisualStyleBackColor = True - ' - 'txtProcessName - ' - Me.txtProcessName.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtProcessName.Location = New System.Drawing.Point(270, 37) - Me.txtProcessName.Name = "txtProcessName" - Me.txtProcessName.ReadOnly = True - Me.txtProcessName.Size = New System.Drawing.Size(229, 21) - Me.txtProcessName.TabIndex = 4 - ' - 'txtPID - ' - Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPID.Location = New System.Drawing.Point(192, 37) - Me.txtPID.Name = "txtPID" - Me.txtPID.ReadOnly = True - Me.txtPID.Size = New System.Drawing.Size(59, 21) - Me.txtPID.TabIndex = 3 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(267, 21) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(78, 13) - Me.Label4.TabIndex = 1 - Me.Label4.Text = "Prozess Name:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(192, 21) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(59, 13) - Me.Label3.TabIndex = 0 - Me.Label3.Text = "ProzessID:" - ' - 'TimerTest - ' - Me.TimerTest.Interval = 5000 - ' - 'TBCBS_PROFILE_PROCESSBindingSource - ' - Me.TBCBS_PROFILE_PROCESSBindingSource.DataMember = "TBCBS_PROFILE_PROCESS" - Me.TBCBS_PROFILE_PROCESSBindingSource.DataSource = Me.MyDataset - ' - 'TBCBS_PROFILE_PROCESSTableAdapter - ' - Me.TBCBS_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.Location = New System.Drawing.Point(6, 20) - Me.GridControl3.MainView = Me.GridViewProcessProfile - Me.GridControl3.Name = "GridControl3" - Me.GridControl3.Size = New System.Drawing.Size(341, 282) - Me.GridControl3.TabIndex = 20 - Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProcessProfile}) - ' - 'GridViewProcessProfile - ' - Me.GridViewProcessProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua - Me.GridViewProcessProfile.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewProcessProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPROC_NAME, Me.colADDED_WHEN, Me.colADDED_WHO}) - Me.GridViewProcessProfile.GridControl = Me.GridControl3 - Me.GridViewProcessProfile.Name = "GridViewProcessProfile" - Me.GridViewProcessProfile.OptionsBehavior.Editable = False - Me.GridViewProcessProfile.OptionsView.ColumnAutoWidth = False - Me.GridViewProcessProfile.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewProcessProfile.OptionsView.ShowAutoFilterRow = True - Me.GridViewProcessProfile.OptionsView.ShowDetailButtons = False - Me.GridViewProcessProfile.OptionsView.ShowGroupPanel = False - Me.GridViewProcessProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewProcessProfile.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] - ' - 'colGUID2 - ' - Me.colGUID2.Caption = "ID" - Me.colGUID2.FieldName = "GUID" - Me.colGUID2.Name = "colGUID2" - Me.colGUID2.Visible = True - Me.colGUID2.VisibleIndex = 0 - Me.colGUID2.Width = 43 - ' - 'colPROC_NAME - ' - Me.colPROC_NAME.Caption = "Process Name" - Me.colPROC_NAME.FieldName = "PROC_NAME" - Me.colPROC_NAME.Name = "colPROC_NAME" - Me.colPROC_NAME.Visible = True - Me.colPROC_NAME.VisibleIndex = 1 - Me.colPROC_NAME.Width = 104 - ' - 'colADDED_WHEN - ' - Me.colADDED_WHEN.Caption = "Added when" - Me.colADDED_WHEN.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN.Name = "colADDED_WHEN" - Me.colADDED_WHEN.Visible = True - Me.colADDED_WHEN.VisibleIndex = 3 - ' - 'colADDED_WHO - ' - Me.colADDED_WHO.Caption = "Added who" - Me.colADDED_WHO.FieldName = "ADDED_WHO" - Me.colADDED_WHO.Name = "colADDED_WHO" - Me.colADDED_WHO.Visible = True - Me.colADDED_WHO.VisibleIndex = 2 - Me.colADDED_WHO.Width = 84 - ' - 'GroupBox4 - ' - Me.GroupBox4.Controls.Add(Me.btndeleteProcessProfileLink) - Me.GroupBox4.Controls.Add(Me.btnLinkProcessPRofile) - Me.GroupBox4.Controls.Add(Me.GridControl3) - Me.GroupBox4.Location = New System.Drawing.Point(12, 397) - Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(606, 308) - Me.GroupBox4.TabIndex = 21 - Me.GroupBox4.TabStop = False - Me.GroupBox4.Text = "Aktuell zugeordnete Prozesse:" - ' - 'btnLinkProcessPRofile - ' - Me.btnLinkProcessPRofile.Image = CType(resources.GetObject("btnLinkProcessPRofile.Image"), System.Drawing.Image) - Me.btnLinkProcessPRofile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLinkProcessPRofile.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btnLinkProcessPRofile.Location = New System.Drawing.Point(353, 20) - Me.btnLinkProcessPRofile.Name = "btnLinkProcessPRofile" - Me.btnLinkProcessPRofile.Size = New System.Drawing.Size(205, 28) - Me.btnLinkProcessPRofile.TabIndex = 60 - Me.btnLinkProcessPRofile.Text = "Prozess und Profil verknüpfen" - Me.btnLinkProcessPRofile.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnLinkProcessPRofile.UseVisualStyleBackColor = True - ' - 'btndeleteProcessProfileLink - ' - Me.btndeleteProcessProfileLink.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btndeleteProcessProfileLink.Image = CType(resources.GetObject("btndeleteProcessProfileLink.Image"), System.Drawing.Image) - Me.btndeleteProcessProfileLink.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndeleteProcessProfileLink.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btndeleteProcessProfileLink.Location = New System.Drawing.Point(353, 54) - Me.btndeleteProcessProfileLink.Name = "btndeleteProcessProfileLink" - Me.btndeleteProcessProfileLink.Size = New System.Drawing.Size(205, 26) - Me.btndeleteProcessProfileLink.TabIndex = 61 - Me.btndeleteProcessProfileLink.Text = "Lösche Zuordnung" - Me.btndeleteProcessProfileLink.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndeleteProcessProfileLink.UseVisualStyleBackColor = True - ' - 'frmAdministration - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1240, 730) - Me.Controls.Add(Me.GroupBox4) - Me.Controls.Add(Me.GroupBox3) - Me.Controls.Add(Me.GroupBox2) - Me.Controls.Add(Me.GroupBox1) - Me.Controls.Add(Me.StatusStrip1) - Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Name = "frmAdministration" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Administration" - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBCBS_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() - Me.GroupBox2.ResumeLayout(False) - Me.GroupBox2.PerformLayout() - CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewProfileUser, System.ComponentModel.ISupportInitialize).EndInit() - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() - 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.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox4.ResumeLayout(False) - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents MyDataset As DD_Clipboard_Searcher.MyDataset - Friend WithEvents TBCBS_PROFILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBCBS_PROFILESTableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter - Friend WithEvents TableAdapterManager As DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager - Friend WithEvents TBCBS_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 - Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator - 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 GUIDTextBox As System.Windows.Forms.TextBox - Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox - Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents REGEX_EXPRESSIONTextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents statuslabel As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents btnaddSearch As System.Windows.Forms.Button - Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog - Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewProfileUser As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents VWUSER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWUSER_PROFILETableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colPRENAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents GridControlUsers2Menue As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewlUsers2Menue As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents btndeleteUserConstructorRel As System.Windows.Forms.Button - Friend WithEvents btnAddUser2Profile As System.Windows.Forms.Button - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents txtProcessName As System.Windows.Forms.TextBox - Friend WithEvents txtPID As System.Windows.Forms.TextBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents chkRunwindowCheck As System.Windows.Forms.CheckBox - 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_Searcher.MyDatasetTableAdapters.TBCBS_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 - Friend WithEvents colPROC_NAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox - Friend WithEvents btnLinkProcessPRofile As System.Windows.Forms.Button - Friend WithEvents btndeleteProcessProfileLink As System.Windows.Forms.Button -End Class + _ +Partial Class frmAdministration + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim GUIDLabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim WD_SEARCHLabel As System.Windows.Forms.Label + Dim REGEX_EXPRESSIONLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(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.MyDataset = New DD_Clipboard_Searcher.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.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + 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.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() + Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() + Me.TBWH_UserBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.btndeleteUserConstructorRel = New System.Windows.Forms.Button() + Me.btnAddUser2Profile = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.VWUSER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewProfileUser = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() + 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_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter() + Me.TableAdapterManager = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.statuslabel = New System.Windows.Forms.ToolStripStatusLabel() + Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() + Me.VWUSER_PROFILETableAdapter = New DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.chkRunwindowCheck = New System.Windows.Forms.CheckBox() + Me.txtProcessName = New System.Windows.Forms.TextBox() + Me.txtPID = New System.Windows.Forms.TextBox() + 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_Searcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter() + Me.GridControl3 = New DevExpress.XtraGrid.GridControl() + Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.btnLinkProcessPRofile = New System.Windows.Forms.Button() + Me.btndeleteProcessProfileLink = New System.Windows.Forms.Button() + GUIDLabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + WD_SEARCHLabel = New System.Windows.Forms.Label() + REGEX_EXPRESSIONLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + 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.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCBS_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBCBS_PROFILESBindingNavigator.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewProfileUser, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCBS_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(174, 48) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(22, 13) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "ID:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + NAMELabel.Location = New System.Drawing.Point(227, 48) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(38, 13) + NAMELabel.TabIndex = 2 + NAMELabel.Text = "Name:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + COMMENTLabel.Location = New System.Drawing.Point(174, 88) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(65, 13) + COMMENTLabel.TabIndex = 4 + COMMENTLabel.Text = "Kommentar:" + ' + 'WD_SEARCHLabel + ' + WD_SEARCHLabel.AutoSize = True + WD_SEARCHLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + WD_SEARCHLabel.Location = New System.Drawing.Point(174, 128) + WD_SEARCHLabel.Name = "WD_SEARCHLabel" + WD_SEARCHLabel.Size = New System.Drawing.Size(89, 13) + WD_SEARCHLabel.TabIndex = 6 + WD_SEARCHLabel.Text = "windream Suche:" + ' + 'REGEX_EXPRESSIONLabel + ' + REGEX_EXPRESSIONLabel.AutoSize = True + REGEX_EXPRESSIONLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + REGEX_EXPRESSIONLabel.Location = New System.Drawing.Point(174, 168) + REGEX_EXPRESSIONLabel.Name = "REGEX_EXPRESSIONLabel" + REGEX_EXPRESSIONLabel.Size = New System.Drawing.Size(97, 13) + REGEX_EXPRESSIONLabel.TabIndex = 8 + REGEX_EXPRESSIONLabel.Text = "Regex Expression:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(174, 208) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) + ADDED_WHOLabel.TabIndex = 10 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(327, 208) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) + ADDED_WHENLabel.TabIndex = 12 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(174, 248) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) + CHANGED_WHOLabel.TabIndex = 14 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(327, 248) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) + CHANGED_WHENLabel.TabIndex = 16 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'GroupBox1 + ' + Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + 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(GUIDLabel) + Me.GroupBox1.Controls.Add(Me.GUIDTextBox) + Me.GroupBox1.Controls.Add(NAMELabel) + Me.GroupBox1.Controls.Add(Me.NAMETextBox) + Me.GroupBox1.Controls.Add(COMMENTLabel) + Me.GroupBox1.Controls.Add(Me.COMMENTTextBox) + Me.GroupBox1.Controls.Add(WD_SEARCHLabel) + Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox) + Me.GroupBox1.Controls.Add(REGEX_EXPRESSIONLabel) + Me.GroupBox1.Controls.Add(Me.REGEX_EXPRESSIONTextBox) + Me.GroupBox1.Controls.Add(ADDED_WHOLabel) + Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox) + Me.GroupBox1.Controls.Add(ADDED_WHENLabel) + Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) + Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) + 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.TabIndex = 0 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Profile" + ' + 'btnaddSearch + ' + Me.btnaddSearch.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnaddSearch.Location = New System.Drawing.Point(497, 142) + Me.btnaddSearch.Name = "btnaddSearch" + Me.btnaddSearch.Size = New System.Drawing.Size(28, 23) + Me.btnaddSearch.TabIndex = 19 + Me.btnaddSearch.Text = "..." + Me.btnaddSearch.UseVisualStyleBackColor = True + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBCBS_PROFILESBindingSource + Me.GridControl1.Location = New System.Drawing.Point(6, 17) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(162, 268) + Me.GridControl1.TabIndex = 18 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'TBCBS_PROFILESBindingSource + ' + Me.TBCBS_PROFILESBindingSource.DataMember = "TBCBS_PROFILES" + Me.TBCBS_PROFILESBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsBehavior.Editable = False + Me.GridView1.OptionsView.ColumnAutoWidth = False + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + Me.GridView1.OptionsView.ShowAutoFilterRow = True + Me.GridView1.OptionsView.ShowDetailButtons = False + Me.GridView1.OptionsView.ShowGroupPanel = False + Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] + Me.GridView1.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] + ' + 'colGUID + ' + Me.colGUID.Caption = "ID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + Me.colGUID.Width = 30 + ' + 'colNAME + ' + Me.colNAME.Caption = "Name" + Me.colNAME.FieldName = "NAME" + Me.colNAME.Name = "colNAME" + Me.colNAME.Visible = True + 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" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + 'TBCBS_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" + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(47, 21) + Me.GUIDTextBox.TabIndex = 1 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.NAMETextBox.Size = New System.Drawing.Size(295, 21) + Me.NAMETextBox.TabIndex = 3 + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.COMMENTTextBox.Size = New System.Drawing.Size(348, 21) + Me.COMMENTTextBox.TabIndex = 5 + ' + 'WD_SEARCHTextBox + ' + Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(314, 21) + Me.WD_SEARCHTextBox.TabIndex = 7 + ' + 'REGEX_EXPRESSIONTextBox + ' + Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(348, 21) + Me.REGEX_EXPRESSIONTextBox.TabIndex = 9 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21) + Me.ADDED_WHOTextBox.TabIndex = 11 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21) + Me.ADDED_WHENTextBox.TabIndex = 13 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21) + Me.CHANGED_WHOTextBox.TabIndex = 15 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCBS_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" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21) + Me.CHANGED_WHENTextBox.TabIndex = 17 + ' + 'GroupBox2 + ' + Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GroupBox2.Controls.Add(Me.Label2) + Me.GroupBox2.Controls.Add(Me.GridControlUsers2Menue) + Me.GroupBox2.Controls.Add(Me.btndeleteUserConstructorRel) + 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.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(637, 292) + Me.GroupBox2.TabIndex = 1 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "User Profilzuordnung" + ' + 'Label2 + ' + 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.TabIndex = 92 + Me.Label2.Text = "User ohne Rechte:" + ' + 'GridControlUsers2Menue + ' + Me.GridControlUsers2Menue.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GridControlUsers2Menue.DataSource = Me.TBWH_UserBindingSource + Me.GridControlUsers2Menue.Location = New System.Drawing.Point(366, 88) + Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue + Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue" + Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True + Me.GridControlUsers2Menue.Size = New System.Drawing.Size(256, 198) + Me.GridControlUsers2Menue.TabIndex = 91 + Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue}) + ' + 'TBWH_UserBindingSource + ' + Me.TBWH_UserBindingSource.DataMember = "TBWH_User" + Me.TBWH_UserBindingSource.DataSource = Me.MyDataset + ' + 'GridViewlUsers2Menue + ' + Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewlUsers2Menue.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia + Me.GridViewlUsers2Menue.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewlUsers2Menue.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn2, Me.GridColumn3, Me.colID}) + Me.GridViewlUsers2Menue.GridControl = Me.GridControlUsers2Menue + Me.GridViewlUsers2Menue.Name = "GridViewlUsers2Menue" + Me.GridViewlUsers2Menue.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Menue.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Menue.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Menue.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewlUsers2Menue.OptionsView.ColumnAutoWidth = False + Me.GridViewlUsers2Menue.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewlUsers2Menue.OptionsView.ShowAutoFilterRow = True + Me.GridViewlUsers2Menue.OptionsView.ShowGroupPanel = False + ' + 'colSelect + ' + Me.colSelect.Caption = "Selection" + Me.colSelect.FieldName = "Select" + Me.colSelect.Name = "colSelect" + Me.colSelect.Visible = True + Me.colSelect.VisibleIndex = 0 + Me.colSelect.Width = 54 + ' + 'colSurname + ' + Me.colSurname.Caption = "Name" + Me.colSurname.FieldName = "Surname" + Me.colSurname.Name = "colSurname" + Me.colSurname.Visible = True + Me.colSurname.VisibleIndex = 1 + ' + 'GridColumn2 + ' + Me.GridColumn2.FieldName = "Username" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.OptionsColumn.AllowEdit = False + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 2 + Me.GridColumn2.Width = 107 + ' + 'GridColumn3 + ' + Me.GridColumn3.FieldName = "Email" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.OptionsColumn.AllowEdit = False + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 3 + Me.GridColumn3.Width = 102 + ' + 'colID + ' + Me.colID.FieldName = "ID" + Me.colID.Name = "colID" + ' + 'btndeleteUserConstructorRel + ' + Me.btndeleteUserConstructorRel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + 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 + Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(9, 263) + Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel" + Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(173, 23) + Me.btndeleteUserConstructorRel.TabIndex = 60 + Me.btndeleteUserConstructorRel.Text = "Lösche Userzuordnung" + Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndeleteUserConstructorRel.UseVisualStyleBackColor = True + ' + 'btnAddUser2Profile + ' + 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 + Me.btnAddUser2Profile.Location = New System.Drawing.Point(366, 36) + Me.btnAddUser2Profile.Name = "btnAddUser2Profile" + Me.btnAddUser2Profile.Size = New System.Drawing.Size(256, 28) + Me.btnAddUser2Profile.TabIndex = 59 + Me.btnAddUser2Profile.Text = "User zu ausgefügtem Profil hinzufügen" + Me.btnAddUser2Profile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUser2Profile.UseVisualStyleBackColor = True + ' + 'Label1 + ' + 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.TabIndex = 21 + Me.Label1.Text = "Zugeordnete User:" + ' + 'GridControl2 + ' + Me.GridControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GridControl2.DataSource = Me.VWUSER_PROFILEBindingSource + Me.GridControl2.Location = New System.Drawing.Point(9, 36) + Me.GridControl2.MainView = Me.GridViewProfileUser + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(351, 221) + Me.GridControl2.TabIndex = 19 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfileUser}) + ' + 'VWUSER_PROFILEBindingSource + ' + Me.VWUSER_PROFILEBindingSource.DataMember = "VWUSER_PROFILE" + Me.VWUSER_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'GridViewProfileUser + ' + Me.GridViewProfileUser.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewProfileUser.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewProfileUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) + Me.GridViewProfileUser.GridControl = Me.GridControl2 + Me.GridViewProfileUser.Name = "GridViewProfileUser" + Me.GridViewProfileUser.OptionsBehavior.Editable = False + Me.GridViewProfileUser.OptionsView.ColumnAutoWidth = False + Me.GridViewProfileUser.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewProfileUser.OptionsView.ShowAutoFilterRow = True + Me.GridViewProfileUser.OptionsView.ShowDetailButtons = False + Me.GridViewProfileUser.OptionsView.ShowGroupPanel = False + Me.GridViewProfileUser.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] + Me.GridViewProfileUser.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] + ' + 'colGUID1 + ' + Me.colGUID1.Caption = "ID" + Me.colGUID1.FieldName = "GUID" + Me.colGUID1.Name = "colGUID1" + Me.colGUID1.Visible = True + Me.colGUID1.VisibleIndex = 0 + Me.colGUID1.Width = 42 + ' + 'colUSERNAME + ' + Me.colUSERNAME.Caption = "Username" + Me.colUSERNAME.FieldName = "USERNAME" + Me.colUSERNAME.Name = "colUSERNAME" + Me.colUSERNAME.Visible = True + Me.colUSERNAME.VisibleIndex = 1 + Me.colUSERNAME.Width = 104 + ' + 'colNAME1 + ' + Me.colNAME1.Caption = "Name" + Me.colNAME1.FieldName = "NAME" + Me.colNAME1.Name = "colNAME1" + Me.colNAME1.Visible = True + Me.colNAME1.VisibleIndex = 2 + Me.colNAME1.Width = 95 + ' + 'colPRENAME + ' + Me.colPRENAME.Caption = "Vorname" + Me.colPRENAME.FieldName = "PRENAME" + Me.colPRENAME.Name = "colPRENAME" + Me.colPRENAME.Visible = True + Me.colPRENAME.VisibleIndex = 3 + Me.colPRENAME.Width = 86 + ' + 'TBCBS_PROFILESTableAdapter + ' + Me.TBCBS_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.UpdateOrder = DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.statuslabel}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 708) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1240, 22) + Me.StatusStrip1.TabIndex = 1 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'statuslabel + ' + Me.statuslabel.Name = "statuslabel" + Me.statuslabel.Size = New System.Drawing.Size(0, 17) + ' + 'OFDWindreamsuche + ' + Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*" + Me.OFDWindreamsuche.RestoreDirectory = True + Me.OFDWindreamsuche.Title = "windream-Suche wählen" + ' + 'VWUSER_PROFILETableAdapter + ' + Me.VWUSER_PROFILETableAdapter.ClearBeforeFill = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.PictureBox1) + Me.GroupBox3.Controls.Add(Me.chkRunwindowCheck) + Me.GroupBox3.Controls.Add(Me.txtProcessName) + Me.GroupBox3.Controls.Add(Me.txtPID) + Me.GroupBox3.Controls.Add(Me.Label4) + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Location = New System.Drawing.Point(12, 310) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(606, 81) + Me.GroupBox3.TabIndex = 2 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Auswahl Fenster/Prozess:" + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.Annotation_New + Me.PictureBox1.Location = New System.Drawing.Point(510, 28) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(48, 40) + Me.PictureBox1.TabIndex = 7 + Me.PictureBox1.TabStop = False + Me.PictureBox1.Visible = False + ' + 'chkRunwindowCheck + ' + Me.chkRunwindowCheck.AutoSize = True + Me.chkRunwindowCheck.Location = New System.Drawing.Point(6, 39) + Me.chkRunwindowCheck.Name = "chkRunwindowCheck" + Me.chkRunwindowCheck.Size = New System.Drawing.Size(173, 17) + Me.chkRunwindowCheck.TabIndex = 6 + Me.chkRunwindowCheck.Text = "Starte Aktive-Fenster Auswahl" + Me.chkRunwindowCheck.UseVisualStyleBackColor = True + ' + 'txtProcessName + ' + Me.txtProcessName.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtProcessName.Location = New System.Drawing.Point(270, 37) + Me.txtProcessName.Name = "txtProcessName" + Me.txtProcessName.ReadOnly = True + Me.txtProcessName.Size = New System.Drawing.Size(229, 21) + Me.txtProcessName.TabIndex = 4 + ' + 'txtPID + ' + Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPID.Location = New System.Drawing.Point(192, 37) + Me.txtPID.Name = "txtPID" + Me.txtPID.ReadOnly = True + Me.txtPID.Size = New System.Drawing.Size(59, 21) + Me.txtPID.TabIndex = 3 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(267, 21) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(78, 13) + Me.Label4.TabIndex = 1 + Me.Label4.Text = "Prozess Name:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(192, 21) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(59, 13) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "ProzessID:" + ' + 'TimerTest + ' + Me.TimerTest.Interval = 5000 + ' + 'TBCBS_PROFILE_PROCESSBindingSource + ' + Me.TBCBS_PROFILE_PROCESSBindingSource.DataMember = "TBCBS_PROFILE_PROCESS" + Me.TBCBS_PROFILE_PROCESSBindingSource.DataSource = Me.MyDataset + ' + 'TBCBS_PROFILE_PROCESSTableAdapter + ' + Me.TBCBS_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.Location = New System.Drawing.Point(6, 20) + Me.GridControl3.MainView = Me.GridViewProcessProfile + Me.GridControl3.Name = "GridControl3" + Me.GridControl3.Size = New System.Drawing.Size(341, 282) + Me.GridControl3.TabIndex = 20 + Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProcessProfile}) + ' + 'GridViewProcessProfile + ' + Me.GridViewProcessProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewProcessProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewProcessProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPROC_NAME, Me.colADDED_WHEN, Me.colADDED_WHO}) + Me.GridViewProcessProfile.GridControl = Me.GridControl3 + Me.GridViewProcessProfile.Name = "GridViewProcessProfile" + Me.GridViewProcessProfile.OptionsBehavior.Editable = False + Me.GridViewProcessProfile.OptionsView.ColumnAutoWidth = False + Me.GridViewProcessProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewProcessProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewProcessProfile.OptionsView.ShowDetailButtons = False + Me.GridViewProcessProfile.OptionsView.ShowGroupPanel = False + Me.GridViewProcessProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] + Me.GridViewProcessProfile.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] + ' + 'colGUID2 + ' + Me.colGUID2.Caption = "ID" + Me.colGUID2.FieldName = "GUID" + Me.colGUID2.Name = "colGUID2" + Me.colGUID2.Visible = True + Me.colGUID2.VisibleIndex = 0 + Me.colGUID2.Width = 43 + ' + 'colPROC_NAME + ' + Me.colPROC_NAME.Caption = "Process Name" + Me.colPROC_NAME.FieldName = "PROC_NAME" + Me.colPROC_NAME.Name = "colPROC_NAME" + Me.colPROC_NAME.Visible = True + Me.colPROC_NAME.VisibleIndex = 1 + Me.colPROC_NAME.Width = 104 + ' + 'colADDED_WHEN + ' + Me.colADDED_WHEN.Caption = "Added when" + Me.colADDED_WHEN.FieldName = "ADDED_WHEN" + Me.colADDED_WHEN.Name = "colADDED_WHEN" + Me.colADDED_WHEN.Visible = True + Me.colADDED_WHEN.VisibleIndex = 3 + ' + 'colADDED_WHO + ' + Me.colADDED_WHO.Caption = "Added who" + Me.colADDED_WHO.FieldName = "ADDED_WHO" + Me.colADDED_WHO.Name = "colADDED_WHO" + Me.colADDED_WHO.Visible = True + Me.colADDED_WHO.VisibleIndex = 2 + Me.colADDED_WHO.Width = 84 + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.btndeleteProcessProfileLink) + Me.GroupBox4.Controls.Add(Me.btnLinkProcessPRofile) + Me.GroupBox4.Controls.Add(Me.GridControl3) + Me.GroupBox4.Location = New System.Drawing.Point(12, 397) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(606, 308) + Me.GroupBox4.TabIndex = 21 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Aktuell zugeordnete Prozesse:" + ' + 'btnLinkProcessPRofile + ' + Me.btnLinkProcessPRofile.Image = CType(resources.GetObject("btnLinkProcessPRofile.Image"), System.Drawing.Image) + Me.btnLinkProcessPRofile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnLinkProcessPRofile.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnLinkProcessPRofile.Location = New System.Drawing.Point(353, 20) + Me.btnLinkProcessPRofile.Name = "btnLinkProcessPRofile" + Me.btnLinkProcessPRofile.Size = New System.Drawing.Size(205, 28) + Me.btnLinkProcessPRofile.TabIndex = 60 + Me.btnLinkProcessPRofile.Text = "Prozess und Profil verknüpfen" + Me.btnLinkProcessPRofile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnLinkProcessPRofile.UseVisualStyleBackColor = True + ' + 'btndeleteProcessProfileLink + ' + Me.btndeleteProcessProfileLink.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btndeleteProcessProfileLink.Image = CType(resources.GetObject("btndeleteProcessProfileLink.Image"), System.Drawing.Image) + Me.btndeleteProcessProfileLink.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndeleteProcessProfileLink.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btndeleteProcessProfileLink.Location = New System.Drawing.Point(353, 54) + Me.btndeleteProcessProfileLink.Name = "btndeleteProcessProfileLink" + Me.btndeleteProcessProfileLink.Size = New System.Drawing.Size(205, 26) + Me.btndeleteProcessProfileLink.TabIndex = 61 + Me.btndeleteProcessProfileLink.Text = "Lösche Zuordnung" + Me.btndeleteProcessProfileLink.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndeleteProcessProfileLink.UseVisualStyleBackColor = True + ' + 'frmAdministration + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1240, 730) + Me.Controls.Add(Me.GroupBox4) + Me.Controls.Add(Me.GroupBox3) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmAdministration" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Administration" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCBS_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() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewProfileUser, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + 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.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents MyDataset As DD_Clipboard_Searcher.MyDataset + Friend WithEvents TBCBS_PROFILESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBCBS_PROFILESTableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter + Friend WithEvents TableAdapterManager As DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBCBS_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 + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + 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 GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox + Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents REGEX_EXPRESSIONTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents statuslabel As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents btnaddSearch As System.Windows.Forms.Button + Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewProfileUser As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents VWUSER_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWUSER_PROFILETableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPRENAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents GridControlUsers2Menue As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewlUsers2Menue As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btndeleteUserConstructorRel As System.Windows.Forms.Button + Friend WithEvents btnAddUser2Profile As System.Windows.Forms.Button + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents txtProcessName As System.Windows.Forms.TextBox + Friend WithEvents txtPID As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents chkRunwindowCheck As System.Windows.Forms.CheckBox + 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_Searcher.MyDatasetTableAdapters.TBCBS_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 + Friend WithEvents colPROC_NAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents btnLinkProcessPRofile As System.Windows.Forms.Button + Friend WithEvents btndeleteProcessProfileLink As System.Windows.Forms.Button +End Class diff --git a/DD_Clipboard_Searcher/frmAdministration.resx b/DD_Clipboard_Searcher/frmAdministration.resx index 6a9c8b6..57cae47 100644 --- a/DD_Clipboard_Searcher/frmAdministration.resx +++ b/DD_Clipboard_Searcher/frmAdministration.resx @@ -1,376 +1,376 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - 127, 17 - - - 17, 17 - - - 738, 17 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 736, 56 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd - tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 - PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI - vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm - RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 - yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E - A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y - Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu - YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI - nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y - todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ - RU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 - JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACO0lE - QVRIS7WSS28SYRhGiSsTly79NcaoiGAbiHItvWFry8Zf4KJUeoEKchEYikiqFXcmxkZTE6Ooce/CVXdu - tBaBwnQYZubpOzMOYPwSazNdnEzyzJdzMhcLgBOFOZoJczQT5mgmzNHgS9Ayu+20YCd0Os66fxSYo4oh - l1b9aoAm9rl/wRwNeWfJh3rUa27AkLeiPuwuutFY8ZkXMOT1Ra8m31v2oBkPmBMw5HsRjy5f8uBXzIfm - vQC+hc8ei++3z8X/kO8uuPHzrhv1ZW9f3kqNoZObgLA+DfHRTUiPb0HenINSnQeehTWUahjy03lIT+bQ - q8ygW5pCd2tNDQzkPxZu9OWNmF+T76eDA3n5t5xEqlypUmRzBvLGFKRyAL2iB2LWBSFhB79qhfA6qwdq - 10keIXmU5Cskj5M8ocv5/CSEUghiZVaXb4SgVIJQyh4oRRfk/AikrB29lA3dhBUHscv0513EfuQC+K30 - 4Am+Bk8N5MkA2ulx8IVpXf5wEtK6HzLngkJCJe8grkHOOUjuILmd5DaSW0l+CS2SN+6cR+dFSg8Y30CN - NJNjaGcnwOfGIWTdEDOjkN8XoNSIDxyUj0W6qnCQaxykdwVIb/MQ3+TQ3X4A4VUG/Ms0ye+j/Tw5CAxH - OgknDtZsEJNXIGXsmkw9eEz0v2g4shM6Q499VXt8mV4FPhW1w8Pn/oe/BiMCbhRKYcT8gEo/UnIC9N5N - D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== - - - - 180, 56 - - - 349, 17 - - - 565, 17 - - - 976, 17 - - - 17, 56 - - - 408, 56 - - - 631, 56 - - - 930, 56 - - - 1201, 56 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd - tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 - PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI - vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm - RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 - yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E - A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y - Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu - YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI - nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y - todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ - RU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 - JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACO0lE - QVRIS7WSS28SYRhGiSsTly79NcaoiGAbiHItvWFry8Zf4KJUeoEKchEYikiqFXcmxkZTE6Ooce/CVXdu - tBaBwnQYZubpOzMOYPwSazNdnEzyzJdzMhcLgBOFOZoJczQT5mgmzNHgS9Ayu+20YCd0Os66fxSYo4oh - l1b9aoAm9rl/wRwNeWfJh3rUa27AkLeiPuwuutFY8ZkXMOT1Ra8m31v2oBkPmBMw5HsRjy5f8uBXzIfm - vQC+hc8ei++3z8X/kO8uuPHzrhv1ZW9f3kqNoZObgLA+DfHRTUiPb0HenINSnQeehTWUahjy03lIT+bQ - q8ygW5pCd2tNDQzkPxZu9OWNmF+T76eDA3n5t5xEqlypUmRzBvLGFKRyAL2iB2LWBSFhB79qhfA6qwdq - 10keIXmU5Cskj5M8ocv5/CSEUghiZVaXb4SgVIJQyh4oRRfk/AikrB29lA3dhBUHscv0513EfuQC+K30 - 4Am+Bk8N5MkA2ulx8IVpXf5wEtK6HzLngkJCJe8grkHOOUjuILmd5DaSW0l+CS2SN+6cR+dFSg8Y30CN - NJNjaGcnwOfGIWTdEDOjkN8XoNSIDxyUj0W6qnCQaxykdwVIb/MQ3+TQ3X4A4VUG/Ms0ye+j/Tw5CAxH - OgknDtZsEJNXIGXsmkw9eEz0v2g4shM6Q499VXt8mV4FPhW1w8Pn/oe/BiMCbhRKYcT8gEo/UnIC9N5N - D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== - - - - - AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA - AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA - AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP//////AAAA93d3d38AAAD3//// - fwAAAPf///9/////9/d3d3d/93f/9///f3/3f3f3d3d/f/f3d393d39//3d3d////38Pd3d3f3d3fwD3 - d3d/93d/AA93d/d/iI8AAPd/d38AAAAAD/d38AAAAAAA938AAAAAAAAP8AAAAPADAADwAwAA8AMAAPAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAADAAAAA4AAAAPAPAAD4HwAA/D8AAP5/AAAoAAAAEAAAACAA - AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBkZGQAbm1uAIaGhgCQj48AmpmZAMnJ - yQDg4OAA6urqAPHv8ADy8fEA9vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAMDAwMDAwMDAwMAAAAAAAADAEBAQEB - AQEBDAAAAAAAAAwBCgoKCgoKAQwAAAAAAAAMAQoKCgoKCgEMDAwMDAwMDAIKAwEBAQEBAQEMDAEBAgkM - DAYKCgoKAwoBDAwBAgkEAgkCAQEBAQMKAQwMAgkEAQECCAIBAQEDCgEMDAwEAQEBAQIJDAoKCgoBDAAM - BAEBAQEBAgkFAwMDAQwAAAwEAQEBAQIJCQIBAQEMAAAADAQBAQIJBAIIBwcHDAAAAAAMBAIJBAECCQAA - AAAAAAAAAAwJBAECCQAAAAAAAAAAAAAADAQCCQAAAAAAAAAAAAAAAAAMDAAAAAAAAADwAwAA8AMAAPAD - AADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAOAAAADwDwAA+B8AAPw/AAD+fwAAKAAAABAA - AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2 - 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 - 9v9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC//b29v8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAD29vb/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv/29vb/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2/2RkZP/x7/D/bm1u/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/0JC - Qv9CQkL/ZGRk/+vr6//29vb/8/Ly/5qZmf/x7/D/8e/w//Hv8P/x7/D/bm1u//Hv8P9CQkL/9vb2//b2 - 9v9CQkL/ZGRk/+vr6/+Ghob/ZGRk/+vr6/9kZGT/QkJC/0JCQv9CQkL/QkJC/25tbv/x7/D/QkJC//b2 - 9v/29vb/ZGRk/+vr6/+Ghob/QkJC/0JCQv9kZGT/4ODg/2RkZP9CQkL/QkJC/0JCQv9ubW7/8e/w/0JC - Qv/29vb/9vb27/b29v+Ghob/QkJC/0JCQv9CQkL/QkJC/2RkZP/q6ur/8vDx//Hv8P/x7/D/8e/w//Hv - 8P9CQkL/9vb2//b29jD29vbvhoaG/0JCQv9CQkL/QkJC/0JCQv9CQkL/ZGRk/+rq6v+Qj4//bm1u/25t - bv9ubW7/QkJC//b29v8AAAAA9vb2MPb29u+Ghob/QkJC/0JCQv9CQkL/QkJC/2RkZP/r6+v/6+vr/2Rk - ZP9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAD29vYw9vb274aGhv9CQkL/QkJC/2RkZP/r6+v/hoaG/2Rk - ZP/g4OD/ycnJ/8nJyf/Jycn/9vb2/wAAAAAAAAAAAAAAAPb29jD29vbvhoaG/2RkZP/r6+v/hoaG/0JC - Qv9kZGT/6urq7/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2MPb29u/r6+v/hoaG/0JC - Qv9kZGT/6urq7/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYw9vb274aG - hv9kZGT/6urq7/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 - 9jD29vbv9vb27/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAwAA8AMAAPADAADwAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAgAAAAMAAAADgBwAA8A8AAPgfAAD8PwAA - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 127, 17 + + + 17, 17 + + + 738, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 736, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 + JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACO0lE + QVRIS7WSS28SYRhGiSsTly79NcaoiGAbiHItvWFry8Zf4KJUeoEKchEYikiqFXcmxkZTE6Ooce/CVXdu + tBaBwnQYZubpOzMOYPwSazNdnEzyzJdzMhcLgBOFOZoJczQT5mgmzNHgS9Ayu+20YCd0Os66fxSYo4oh + l1b9aoAm9rl/wRwNeWfJh3rUa27AkLeiPuwuutFY8ZkXMOT1Ra8m31v2oBkPmBMw5HsRjy5f8uBXzIfm + vQC+hc8ei++3z8X/kO8uuPHzrhv1ZW9f3kqNoZObgLA+DfHRTUiPb0HenINSnQeehTWUahjy03lIT+bQ + q8ygW5pCd2tNDQzkPxZu9OWNmF+T76eDA3n5t5xEqlypUmRzBvLGFKRyAL2iB2LWBSFhB79qhfA6qwdq + 10keIXmU5Cskj5M8ocv5/CSEUghiZVaXb4SgVIJQyh4oRRfk/AikrB29lA3dhBUHscv0513EfuQC+K30 + 4Am+Bk8N5MkA2ulx8IVpXf5wEtK6HzLngkJCJe8grkHOOUjuILmd5DaSW0l+CS2SN+6cR+dFSg8Y30CN + NJNjaGcnwOfGIWTdEDOjkN8XoNSIDxyUj0W6qnCQaxykdwVIb/MQ3+TQ3X4A4VUG/Ms0ye+j/Tw5CAxH + OgknDtZsEJNXIGXsmkw9eEz0v2g4shM6Q499VXt8mV4FPhW1w8Pn/oe/BiMCbhRKYcT8gEo/UnIC9N5N + D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== + + + + 180, 56 + + + 349, 17 + + + 565, 17 + + + 976, 17 + + + 17, 56 + + + 408, 56 + + + 631, 56 + + + 930, 56 + + + 1201, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 + JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACO0lE + QVRIS7WSS28SYRhGiSsTly79NcaoiGAbiHItvWFry8Zf4KJUeoEKchEYikiqFXcmxkZTE6Ooce/CVXdu + tBaBwnQYZubpOzMOYPwSazNdnEzyzJdzMhcLgBOFOZoJczQT5mgmzNHgS9Ayu+20YCd0Os66fxSYo4oh + l1b9aoAm9rl/wRwNeWfJh3rUa27AkLeiPuwuutFY8ZkXMOT1Ra8m31v2oBkPmBMw5HsRjy5f8uBXzIfm + vQC+hc8ei++3z8X/kO8uuPHzrhv1ZW9f3kqNoZObgLA+DfHRTUiPb0HenINSnQeehTWUahjy03lIT+bQ + q8ygW5pCd2tNDQzkPxZu9OWNmF+T76eDA3n5t5xEqlypUmRzBvLGFKRyAL2iB2LWBSFhB79qhfA6qwdq + 10keIXmU5Cskj5M8ocv5/CSEUghiZVaXb4SgVIJQyh4oRRfk/AikrB29lA3dhBUHscv0513EfuQC+K30 + 4Am+Bk8N5MkA2ulx8IVpXf5wEtK6HzLngkJCJe8grkHOOUjuILmd5DaSW0l+CS2SN+6cR+dFSg8Y30CN + NJNjaGcnwOfGIWTdEDOjkN8XoNSIDxyUj0W6qnCQaxykdwVIb/MQ3+TQ3X4A4VUG/Ms0ye+j/Tw5CAxH + OgknDtZsEJNXIGXsmkw9eEz0v2g4shM6Q499VXt8mV4FPhW1w8Pn/oe/BiMCbhRKYcT8gEo/UnIC9N5N + D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== + + + + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA + AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP//////AAAA93d3d38AAAD3//// + fwAAAPf///9/////9/d3d3d/93f/9///f3/3f3f3d3d/f/f3d393d39//3d3d////38Pd3d3f3d3fwD3 + d3d/93d/AA93d/d/iI8AAPd/d38AAAAAD/d38AAAAAAA938AAAAAAAAP8AAAAPADAADwAwAA8AMAAPAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAADAAAAA4AAAAPAPAAD4HwAA/D8AAP5/AAAoAAAAEAAAACAA + AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBkZGQAbm1uAIaGhgCQj48AmpmZAMnJ + yQDg4OAA6urqAPHv8ADy8fEA9vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAMDAwMDAwMDAwMAAAAAAAADAEBAQEB + AQEBDAAAAAAAAAwBCgoKCgoKAQwAAAAAAAAMAQoKCgoKCgEMDAwMDAwMDAIKAwEBAQEBAQEMDAEBAgkM + DAYKCgoKAwoBDAwBAgkEAgkCAQEBAQMKAQwMAgkEAQECCAIBAQEDCgEMDAwEAQEBAQIJDAoKCgoBDAAM + BAEBAQEBAgkFAwMDAQwAAAwEAQEBAQIJCQIBAQEMAAAADAQBAQIJBAIIBwcHDAAAAAAMBAIJBAECCQAA + AAAAAAAAAAwJBAECCQAAAAAAAAAAAAAADAQCCQAAAAAAAAAAAAAAAAAMDAAAAAAAAADwAwAA8AMAAPAD + AADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAOAAAADwDwAA+B8AAPw/AAD+fwAAKAAAABAA + AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9v9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC//b29v8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vb/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2/2RkZP/x7/D/bm1u/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/0JC + Qv9CQkL/ZGRk/+vr6//29vb/8/Ly/5qZmf/x7/D/8e/w//Hv8P/x7/D/bm1u//Hv8P9CQkL/9vb2//b2 + 9v9CQkL/ZGRk/+vr6/+Ghob/ZGRk/+vr6/9kZGT/QkJC/0JCQv9CQkL/QkJC/25tbv/x7/D/QkJC//b2 + 9v/29vb/ZGRk/+vr6/+Ghob/QkJC/0JCQv9kZGT/4ODg/2RkZP9CQkL/QkJC/0JCQv9ubW7/8e/w/0JC + Qv/29vb/9vb27/b29v+Ghob/QkJC/0JCQv9CQkL/QkJC/2RkZP/q6ur/8vDx//Hv8P/x7/D/8e/w//Hv + 8P9CQkL/9vb2//b29jD29vbvhoaG/0JCQv9CQkL/QkJC/0JCQv9CQkL/ZGRk/+rq6v+Qj4//bm1u/25t + bv9ubW7/QkJC//b29v8AAAAA9vb2MPb29u+Ghob/QkJC/0JCQv9CQkL/QkJC/2RkZP/r6+v/6+vr/2Rk + ZP9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAD29vYw9vb274aGhv9CQkL/QkJC/2RkZP/r6+v/hoaG/2Rk + ZP/g4OD/ycnJ/8nJyf/Jycn/9vb2/wAAAAAAAAAAAAAAAPb29jD29vbvhoaG/2RkZP/r6+v/hoaG/0JC + Qv9kZGT/6urq7/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2MPb29u/r6+v/hoaG/0JC + Qv9kZGT/6urq7/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYw9vb274aG + hv9kZGT/6urq7/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9jD29vbv9vb27/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAwAA8AMAAPADAADwAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAgAAAAMAAAADgBwAA8A8AAPgfAAD8PwAA + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/frmAdministration.vb b/DD_Clipboard_Searcher/frmAdministration.vb index 2ba6455..5ed79bb 100644 --- a/DD_Clipboard_Searcher/frmAdministration.vb +++ b/DD_Clipboard_Searcher/frmAdministration.vb @@ -1,222 +1,222 @@ -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 - Save_Profile() - - Me.TableAdapterManager.UpdateAll(Me.MyDataset) - - End Sub - Sub Load_Profiles() - Try - Me.TBCBS_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBCBS_PROFILESTableAdapter.Fill(Me.MyDataset.TBCBS_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.CHANGED_WHOTextBox.Text = Environment.UserName - Me.TBCBS_PROFILESBindingSource.EndEdit() - Me.TBCBS_PROFILESTableAdapter.Update(MyDataset.TBCBS_PROFILES) - Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow) - Else - Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent) - End If - Catch ex As Exception - MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Load_Profiles() - End Sub - Sub Status_Changed(text As String, col As System.Drawing.Color) - statuslabel.Text = text - 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 - End Sub - - Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click - If Not Me.WD_SEARCHTextBox.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - - Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged - Refresh_Profile_user() - Refresh_Free_Users() - Load_Profile_Process() - End Sub - Sub Refresh_Profile_user() - Try - Try - Dim ID = CInt(GUIDTextBox.Text) - Catch ex As Exception - Exit Sub - End Try - Me.VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.VWUSER_PROFILETableAdapter.Fill(Me.MyDataset.VWUSER_PROFILE, GUIDTextBox.Text) - Catch ex As Exception - MsgBox("Unexpected Error in Refresh Profile User: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs) Handles btnAddUser2Profile.Click - Try - Try - Dim i As Integer = CInt(GUIDTextBox.Text) - Catch ex As Exception - Exit Sub - 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)) - If clsDatabase.Execute_non_Query(insert) = False Then - MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) - End If - End If - Next - For Each row As DataRow In MyDataset.TBWH_User.Rows - row.Item(0) = CBool(False) - Next - Refresh_Free_Users() - Refresh_Profile_user() - Catch ex As Exception - MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Sub Refresh_Free_Users() - Try - Dim ID = CInt(GUIDTextBox.Text) - 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 DT_USER = clsDatabase.Return_Datatable(Sql) - Try - MyDataset.TBWH_User.Clear() - - For Each row As DataRow In DT_USER.Rows - Dim newUserRow As MyDataset.TBWH_UserRow - newUserRow = MyDataset.TBWH_User.NewTBWH_UserRow - newUserRow.Username = row.Item("USERNAME") - newUserRow.Surname = row.Item("NAME") - newUserRow.Prename = row.Item("PRENAME") - Try - newUserRow.Email = row.Item("EMAIL") - Catch ex As Exception - newUserRow.Email = "" - End Try - - newUserRow.ID = row.Item("GUID") - MyDataset.TBWH_User.Rows.Add(newUserRow) - ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) - Next - Catch ex As Exception - MsgBox("Unexpected Error in Refresh_Free_Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click - Try - Dim ID = GridViewProfileUser.GetFocusedRowCellValue(GridViewProfileUser.Columns("GUID")) - Try - Dim I As Integer = CInt(ID) - Catch ex As Exception - Exit Sub - End Try - Dim del = String.Format("DELETE FROM TBCBS_USER_PROFILE WHERE GUID = {0}", ID) - If clsDatabase.Execute_non_Query(del) = True Then - Refresh_Profile_user() - Refresh_Free_Users() - End If - Catch ex As Exception - MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs) Handles chkRunwindowCheck.CheckedChanged - If chkRunwindowCheck.Checked Then - Me.Cursor = Cursors.WaitCursor - txtPID.Text = "" - txtProcessName.Text = "" - TimerTest.Start() - chkRunwindowCheck.Text = "Stoppe Auswertung" - Status_Changed("Auswertung von aktivem Fenster läuft! Alle 5 Sekunden Prüfung! - Wechseln Sie durch die aktiven Anwendungen!", Color.Orange) - Else - Me.Cursor = Cursors.Default - TimerTest.Stop() - chkRunwindowCheck.Text = "Starte Aktive-Fenster Auswahl" - Status_Changed("", Color.Transparent) - End If - End Sub - - Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick - clsWINDOWSApi.Get_ForegroundWindow_Info() - If PID <> PROC_PID Then - PictureBox1.Visible = True - PID = PROC_PID - txtPID.Text = PROC_PID - txtProcessName.Text = PROC_Name - Else - PictureBox1.Visible = False - End If - End Sub - - Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter - - End Sub - - Private Sub Load_Profile_Process() - Try - Me.TBCBS_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBCBS_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCBS_PROFILE_PROCESS, GUIDTextBox.Text) - Catch ex As System.Exception - System.Windows.Forms.MessageBox.Show(ex.Message) - End Try - - End Sub - - 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) - If clsDatabase.Execute_non_Query(insert) = False Then - MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation) - End If - End If - Load_Profile_Process - Catch ex As Exception - MsgBox("Unexpected Error while adding Process-Profile-link: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub btndeleteProcessProfileLink_Click(sender As Object, e As EventArgs) Handles btndeleteProcessProfileLink.Click - Try - Dim ID = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID")) - Try - Dim I As Integer = CInt(ID) - Catch ex As Exception - Exit Sub - End Try - Dim del = String.Format("DELETE FROM TBCBS_PROFILE_PROCESS WHERE GUID = {0}", ID) - If clsDatabase.Execute_non_Query(del) = True Then - Load_Profile_Process - End If - Catch ex As Exception - MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub +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 + Save_Profile() + + Me.TableAdapterManager.UpdateAll(Me.MyDataset) + + End Sub + Sub Load_Profiles() + Try + Me.TBCBS_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBCBS_PROFILESTableAdapter.Fill(Me.MyDataset.TBCBS_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.CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBCBS_PROFILESBindingSource.EndEdit() + Me.TBCBS_PROFILESTableAdapter.Update(MyDataset.TBCBS_PROFILES) + Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow) + Else + Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent) + End If + Catch ex As Exception + MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Load_Profiles() + End Sub + Sub Status_Changed(text As String, col As System.Drawing.Color) + statuslabel.Text = text + 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 + End Sub + + Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click + If Not Me.WD_SEARCHTextBox.Text = "" Then + Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text + End If + + If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then + Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName + End If + End Sub + + Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged + Refresh_Profile_user() + Refresh_Free_Users() + Load_Profile_Process() + End Sub + Sub Refresh_Profile_user() + Try + Try + Dim ID = CInt(GUIDTextBox.Text) + Catch ex As Exception + Exit Sub + End Try + Me.VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWUSER_PROFILETableAdapter.Fill(Me.MyDataset.VWUSER_PROFILE, GUIDTextBox.Text) + Catch ex As Exception + MsgBox("Unexpected Error in Refresh Profile User: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs) Handles btnAddUser2Profile.Click + Try + Try + Dim i As Integer = CInt(GUIDTextBox.Text) + Catch ex As Exception + Exit Sub + 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)) + If clsDatabase.Execute_non_Query(insert) = False Then + MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) + End If + End If + Next + For Each row As DataRow In MyDataset.TBWH_User.Rows + row.Item(0) = CBool(False) + Next + Refresh_Free_Users() + Refresh_Profile_user() + Catch ex As Exception + MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Refresh_Free_Users() + Try + Dim ID = CInt(GUIDTextBox.Text) + 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 DT_USER = clsDatabase.Return_Datatable(Sql) + Try + MyDataset.TBWH_User.Clear() + + For Each row As DataRow In DT_USER.Rows + Dim newUserRow As MyDataset.TBWH_UserRow + newUserRow = MyDataset.TBWH_User.NewTBWH_UserRow + newUserRow.Username = row.Item("USERNAME") + newUserRow.Surname = row.Item("NAME") + newUserRow.Prename = row.Item("PRENAME") + Try + newUserRow.Email = row.Item("EMAIL") + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = row.Item("GUID") + MyDataset.TBWH_User.Rows.Add(newUserRow) + ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) + Next + Catch ex As Exception + MsgBox("Unexpected Error in Refresh_Free_Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click + Try + Dim ID = GridViewProfileUser.GetFocusedRowCellValue(GridViewProfileUser.Columns("GUID")) + Try + Dim I As Integer = CInt(ID) + Catch ex As Exception + Exit Sub + End Try + Dim del = String.Format("DELETE FROM TBCBS_USER_PROFILE WHERE GUID = {0}", ID) + If clsDatabase.Execute_non_Query(del) = True Then + Refresh_Profile_user() + Refresh_Free_Users() + End If + Catch ex As Exception + MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs) Handles chkRunwindowCheck.CheckedChanged + If chkRunwindowCheck.Checked Then + Me.Cursor = Cursors.WaitCursor + txtPID.Text = "" + txtProcessName.Text = "" + TimerTest.Start() + chkRunwindowCheck.Text = "Stoppe Auswertung" + Status_Changed("Auswertung von aktivem Fenster läuft! Alle 5 Sekunden Prüfung! - Wechseln Sie durch die aktiven Anwendungen!", Color.Orange) + Else + Me.Cursor = Cursors.Default + TimerTest.Stop() + chkRunwindowCheck.Text = "Starte Aktive-Fenster Auswahl" + Status_Changed("", Color.Transparent) + End If + End Sub + + Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick + clsWINDOWSApi.Get_ForegroundWindow_Info() + If PID <> PROC_PID Then + PictureBox1.Visible = True + PID = PROC_PID + txtPID.Text = PROC_PID + txtProcessName.Text = PROC_Name + Else + PictureBox1.Visible = False + End If + End Sub + + Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter + + End Sub + + Private Sub Load_Profile_Process() + Try + Me.TBCBS_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBCBS_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCBS_PROFILE_PROCESS, GUIDTextBox.Text) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + End Sub + + 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) + If clsDatabase.Execute_non_Query(insert) = False Then + MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation) + End If + End If + Load_Profile_Process + Catch ex As Exception + MsgBox("Unexpected Error while adding Process-Profile-link: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btndeleteProcessProfileLink_Click(sender As Object, e As EventArgs) Handles btndeleteProcessProfileLink.Click + Try + Dim ID = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID")) + Try + Dim I As Integer = CInt(ID) + Catch ex As Exception + Exit Sub + End Try + Dim del = String.Format("DELETE FROM TBCBS_PROFILE_PROCESS WHERE GUID = {0}", ID) + If clsDatabase.Execute_non_Query(del) = True Then + Load_Profile_Process + End If + Catch ex As Exception + MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub End Class \ No newline at end of file diff --git a/DD_Clipboard_Searcher/frmMain.Designer.vb b/DD_Clipboard_Searcher/frmMain.Designer.vb index f46eb4b..fcbd426 100644 --- a/DD_Clipboard_Searcher/frmMain.Designer.vb +++ b/DD_Clipboard_Searcher/frmMain.Designer.vb @@ -1,139 +1,139 @@ - _ -Partial Class frmMain - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) - Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) - Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.btnAdminConfig = New System.Windows.Forms.Button() - Me.tslblUser = New System.Windows.Forms.ToolStripStatusLabel() - Me.btnUserConfig = New System.Windows.Forms.Button() - Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem() - Me.TimerClose = New System.Windows.Forms.Timer(Me.components) - Me.cmstrpNotifyIcon.SuspendLayout() - Me.StatusStrip1.SuspendLayout() - Me.SuspendLayout() - ' - 'NotifyIcon1 - ' - Me.NotifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info - Me.NotifyIcon1.BalloonTipText = "Text" - Me.NotifyIcon1.BalloonTipTitle = "Title" - Me.NotifyIcon1.ContextMenuStrip = Me.cmstrpNotifyIcon - Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon) - Me.NotifyIcon1.Text = "Digital Data Clipboard Searcher for windream" - Me.NotifyIcon1.Visible = True - ' - 'cmstrpNotifyIcon - ' - Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState}) - Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon" - Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 26) - ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 54) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(337, 22) - Me.StatusStrip1.TabIndex = 3 - Me.StatusStrip1.Text = "StatusStrip1" - ' - 'btnAdminConfig - ' - Me.btnAdminConfig.Image = CType(resources.GetObject("btnAdminConfig.Image"), System.Drawing.Image) - Me.btnAdminConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnAdminConfig.Location = New System.Drawing.Point(169, 12) - Me.btnAdminConfig.Name = "btnAdminConfig" - Me.btnAdminConfig.Size = New System.Drawing.Size(151, 29) - Me.btnAdminConfig.TabIndex = 6 - Me.btnAdminConfig.Text = "Admin Einstellungen" - Me.btnAdminConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAdminConfig.UseVisualStyleBackColor = True - Me.btnAdminConfig.Visible = False - ' - 'tslblUser - ' - Me.tslblUser.Image = CType(resources.GetObject("tslblUser.Image"), System.Drawing.Image) - Me.tslblUser.Name = "tslblUser" - Me.tslblUser.Size = New System.Drawing.Size(16, 17) - ' - 'btnUserConfig - ' - Me.btnUserConfig.Image = CType(resources.GetObject("btnUserConfig.Image"), System.Drawing.Image) - Me.btnUserConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnUserConfig.Location = New System.Drawing.Point(12, 12) - Me.btnUserConfig.Name = "btnUserConfig" - Me.btnUserConfig.Size = New System.Drawing.Size(151, 29) - Me.btnUserConfig.TabIndex = 2 - Me.btnUserConfig.Text = "Grundeinstellungen User" - Me.btnUserConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnUserConfig.UseVisualStyleBackColor = True - ' - 'tsmiChangeState - ' - Me.tsmiChangeState.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG - Me.tsmiChangeState.Name = "tsmiChangeState" - Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22) - Me.tsmiChangeState.Tag = "stop" - Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen" - ' - 'TimerClose - ' - Me.TimerClose.Interval = 10000 - ' - 'frmMain - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(337, 76) - Me.Controls.Add(Me.btnAdminConfig) - Me.Controls.Add(Me.StatusStrip1) - Me.Controls.Add(Me.btnUserConfig) - Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.KeyPreview = True - Me.MaximizeBox = False - Me.MinimizeBox = False - Me.Name = "frmMain" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Clipboard Watcher for windream" - Me.cmstrpNotifyIcon.ResumeLayout(False) - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents btnUserConfig As System.Windows.Forms.Button - Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon - Friend WithEvents cmstrpNotifyIcon As System.Windows.Forms.ContextMenuStrip - Friend WithEvents tsmiChangeState As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents tslblUser As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents btnAdminConfig As System.Windows.Forms.Button - Friend WithEvents TimerClose As System.Windows.Forms.Timer - -End Class + _ +Partial Class frmMain + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) + Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) + Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.btnAdminConfig = New System.Windows.Forms.Button() + Me.tslblUser = New System.Windows.Forms.ToolStripStatusLabel() + Me.btnUserConfig = New System.Windows.Forms.Button() + Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem() + Me.TimerClose = New System.Windows.Forms.Timer(Me.components) + Me.cmstrpNotifyIcon.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'NotifyIcon1 + ' + Me.NotifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.NotifyIcon1.BalloonTipText = "Text" + Me.NotifyIcon1.BalloonTipTitle = "Title" + Me.NotifyIcon1.ContextMenuStrip = Me.cmstrpNotifyIcon + Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon) + Me.NotifyIcon1.Text = "Digital Data Clipboard Searcher for windream" + Me.NotifyIcon1.Visible = True + ' + 'cmstrpNotifyIcon + ' + Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState}) + Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon" + Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 26) + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 54) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(337, 22) + Me.StatusStrip1.TabIndex = 3 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'btnAdminConfig + ' + Me.btnAdminConfig.Image = CType(resources.GetObject("btnAdminConfig.Image"), System.Drawing.Image) + Me.btnAdminConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAdminConfig.Location = New System.Drawing.Point(169, 12) + Me.btnAdminConfig.Name = "btnAdminConfig" + Me.btnAdminConfig.Size = New System.Drawing.Size(151, 29) + Me.btnAdminConfig.TabIndex = 6 + Me.btnAdminConfig.Text = "Admin Einstellungen" + Me.btnAdminConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAdminConfig.UseVisualStyleBackColor = True + Me.btnAdminConfig.Visible = False + ' + 'tslblUser + ' + Me.tslblUser.Image = CType(resources.GetObject("tslblUser.Image"), System.Drawing.Image) + Me.tslblUser.Name = "tslblUser" + Me.tslblUser.Size = New System.Drawing.Size(16, 17) + ' + 'btnUserConfig + ' + Me.btnUserConfig.Image = CType(resources.GetObject("btnUserConfig.Image"), System.Drawing.Image) + Me.btnUserConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnUserConfig.Location = New System.Drawing.Point(12, 12) + Me.btnUserConfig.Name = "btnUserConfig" + Me.btnUserConfig.Size = New System.Drawing.Size(151, 29) + Me.btnUserConfig.TabIndex = 2 + Me.btnUserConfig.Text = "Grundeinstellungen User" + Me.btnUserConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnUserConfig.UseVisualStyleBackColor = True + ' + 'tsmiChangeState + ' + Me.tsmiChangeState.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG + Me.tsmiChangeState.Name = "tsmiChangeState" + Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22) + Me.tsmiChangeState.Tag = "stop" + Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen" + ' + 'TimerClose + ' + Me.TimerClose.Interval = 10000 + ' + 'frmMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(337, 76) + Me.Controls.Add(Me.btnAdminConfig) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.btnUserConfig) + Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmMain" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Clipboard Watcher for windream" + Me.cmstrpNotifyIcon.ResumeLayout(False) + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents btnUserConfig As System.Windows.Forms.Button + Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon + Friend WithEvents cmstrpNotifyIcon As System.Windows.Forms.ContextMenuStrip + Friend WithEvents tsmiChangeState As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents tslblUser As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents btnAdminConfig As System.Windows.Forms.Button + Friend WithEvents TimerClose As System.Windows.Forms.Timer + +End Class diff --git a/DD_Clipboard_Searcher/frmMain.resx b/DD_Clipboard_Searcher/frmMain.resx index ff250c0..319faf9 100644 --- a/DD_Clipboard_Searcher/frmMain.resx +++ b/DD_Clipboard_Searcher/frmMain.resx @@ -1,267 +1,267 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 132, 17 - - - - - AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA - AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA - AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAD///AP//AAAPf38Pd3fwAP9/f/d3d38A93d3d3/3fwD3d3d3f/d/AP////d3d38AAA - AAD3d38AAAAAAA//8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAD//wAA//8AAP// - AADBhwAAwQMAAIABAACAAQAAgAEAAIABAAD/AwAA/4cAAP//AAD//wAA//8AAP//AAAoAAAAEAAAACAA - AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBNTU0Ab29vAODg4ADm5OUA6+vrAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHAAAHBwcHAAAAAAAHAQcB - BwAGAwEBAwYAAAAHBwEHAQcHAwEBAQEDBwAABwEBAQEBAQECBQUBAQUAAAcBAQEBAQEBAgUFAQEHAAAH - BwcHBwcHAwEBAQEDBwAAAAAAAAAAAAYDAQEDBgAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP// - AAD//wAAwYcAAMEDAACAAQAAgAEAAIABAACAAQAA/wMAAP+HAAD//wAA//8AAP//AAD//wAAKAAAABAA - AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 - 9v/29vb/9vb2//b29v/29vb/AAAAAPb29lD29vbf9vb2//b29v/29vbf9vb2UAAAAAAAAAAAAAAAAAAA - AAD29vb/QkJC//b29v9CQkL/9vb2//b29lDr6+v/b29v/0JCQv9CQkL/b29v/+vr6//29vZQAAAAAAAA - AAD29vb/9vb2/0JCQv/29vb/QkJC//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JCQv9vb2//9vb23wAA - AAAAAAAA9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/5uTl/+bk5f9CQkL/QkJC/+Dg - 4P8AAAAAAAAAAPb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/TU1N/+bk5f/m5OX/QkJC/0JC - Qv/29vb/AAAAAAAAAAD29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JC - Qv9vb2//9vb23wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UOvr6/9vb2//QkJC/0JC - Qv9vb2//6+vr//b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb23/b2 - 9v/29vb/9vb23/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP//AAD//wAAwQMAAMAB - AACAAQAAgAEAAIABAACAAQAA/gEAAP8DAAD//wAA//8AAP//AAD//wAA - - - - 383, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAASJJREFUWEftk8sNgzAQRFMKJVADXdAQbdAJ1SS5cuPqeKydaNlMhJSPiVBWehIa - 22/XkJxSSrsiw5rIsCYyrIkMiaplWZrMmJkzycAzssa2rUq5iQxJrNygtWZsHMFaa9vvpdxEhsRXFuPm - pfk0Tanv+9R1XQHPyLBme1ZvQrmJDImvLMUrLo3YOOKGGO1YKeUmMiS+srTc3t88gjUbYLZjpZSbyJD4 - MrFs7OE+O1ZKuYkMia+fGWDPT7D7j7D+39CEbxO9HhkSJXuF6PXIkFDgvzMYhuGhCbK4j2vR65EhoSCK - gR9CNQdcj16PDAkFSg7Q+Flz8PUBtjj+AJfztaDWwPEH2OI/wMcGeJfo9ciQKNkrRK9HhjWRYU1kWBMZ - 1iOdbmae7IkqFqH2AAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAANJJREFUOE+VkU0OgjAQhXsiwxm4gluXnMCLwBbjFbyCF3HlQl3UhIIJ25GHfTjl - zzrJS5p2vq8dMEvVtm3SpfJJ/HZcEd4VZ9nsT3K3Ll5C+PF0AoHZHuMlhHnzXxINAyBECdaX6026niCL - 8FhirZUsyyRN0yG9YA2moHu65HkRwFqAuYZZ5+DaNeKqOogWBLNqGDOPn41MBAT0B8N6DkZmBVqCvaZ5 - SVkegmcTnAjGwc1sWgt6+9+oC5s41LfqEGQ89q1YgW+fFgVr+SmIyafbmDfLHDjFxjGZzQAAAABJRU5E - rkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAJpJREFUOE/dkMENgCAMRR3BUZyBCRyCOwsxFne5c+da+yuSBtGgR5u8hLS/D3Qi - IkFXznllNoYKOK9lLFX3WgGCKSVyzpExRsAZPS15Emx6WUswK7G+gAMzc1k+iTHWmz4JMJMgV1eA4tD3 - T0BxaHn4iUuJXQV43hu6Av1k730N46xnQwIQQhDa/rDAWiu0/WHBHX8WvOHYo2kHvfprYU4ZRYMAAAAA - SUVORK5CYII= - - - - 500, 17 - - - - AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA - AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA - AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAD///AP//AAAPf38Pd3fwAP9/f/d3d38A93d3d3/3fwD3d3d3f/d/AP////d3d38AAA - AAD3d38AAAAAAA//8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAD//wAA//8AAP// - AADBhwAAwQMAAIABAACAAQAAgAEAAIABAAD/AwAA/4cAAP//AAD//wAA//8AAP//AAAoAAAAEAAAACAA - AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBNTU0Ab29vAODg4ADm5OUA6+vrAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHAAAHBwcHAAAAAAAHAQcB - BwAGAwEBAwYAAAAHBwEHAQcHAwEBAQEDBwAABwEBAQEBAQECBQUBAQUAAAcBAQEBAQEBAgUFAQEHAAAH - BwcHBwcHAwEBAQEDBwAAAAAAAAAAAAYDAQEDBgAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP// - AAD//wAAwYcAAMEDAACAAQAAgAEAAIABAACAAQAA/wMAAP+HAAD//wAA//8AAP//AAD//wAAKAAAABAA - AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 - 9v/29vb/9vb2//b29v/29vb/AAAAAPb29lD29vbf9vb2//b29v/29vbf9vb2UAAAAAAAAAAAAAAAAAAA - AAD29vb/QkJC//b29v9CQkL/9vb2//b29lDr6+v/b29v/0JCQv9CQkL/b29v/+vr6//29vZQAAAAAAAA - AAD29vb/9vb2/0JCQv/29vb/QkJC//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JCQv9vb2//9vb23wAA - AAAAAAAA9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/5uTl/+bk5f9CQkL/QkJC/+Dg - 4P8AAAAAAAAAAPb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/TU1N/+bk5f/m5OX/QkJC/0JC - Qv/29vb/AAAAAAAAAAD29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JC - Qv9vb2//9vb23wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UOvr6/9vb2//QkJC/0JC - Qv9vb2//6+vr//b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb23/b2 - 9v/29vb/9vb23/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP//AAD//wAAwQMAAMAB - AACAAQAAgAEAAIABAACAAQAA/gEAAP8DAAD//wAA//8AAP//AAD//wAA - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 132, 17 + + + + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA + AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAD///AP//AAAPf38Pd3fwAP9/f/d3d38A93d3d3/3fwD3d3d3f/d/AP////d3d38AAA + AAD3d38AAAAAAA//8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAD//wAA//8AAP// + AADBhwAAwQMAAIABAACAAQAAgAEAAIABAAD/AwAA/4cAAP//AAD//wAA//8AAP//AAAoAAAAEAAAACAA + AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBNTU0Ab29vAODg4ADm5OUA6+vrAPb2 + 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHAAAHBwcHAAAAAAAHAQcB + BwAGAwEBAwYAAAAHBwEHAQcHAwEBAQEDBwAABwEBAQEBAQECBQUBAQUAAAcBAQEBAQEBAgUFAQEHAAAH + BwcHBwcHAwEBAQEDBwAAAAAAAAAAAAYDAQEDBgAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP// + AAD//wAAwYcAAMEDAACAAQAAgAEAAIABAACAAQAA/wMAAP+HAAD//wAA//8AAP//AAD//wAAKAAAABAA + AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9v/29vb/9vb2//b29v/29vb/AAAAAPb29lD29vbf9vb2//b29v/29vbf9vb2UAAAAAAAAAAAAAAAAAAA + AAD29vb/QkJC//b29v9CQkL/9vb2//b29lDr6+v/b29v/0JCQv9CQkL/b29v/+vr6//29vZQAAAAAAAA + AAD29vb/9vb2/0JCQv/29vb/QkJC//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JCQv9vb2//9vb23wAA + AAAAAAAA9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/5uTl/+bk5f9CQkL/QkJC/+Dg + 4P8AAAAAAAAAAPb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/TU1N/+bk5f/m5OX/QkJC/0JC + Qv/29vb/AAAAAAAAAAD29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JC + Qv9vb2//9vb23wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UOvr6/9vb2//QkJC/0JC + Qv9vb2//6+vr//b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb23/b2 + 9v/29vb/9vb23/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP//AAD//wAAwQMAAMAB + AACAAQAAgAEAAIABAACAAQAA/gEAAP8DAAD//wAA//8AAP//AAD//wAA + + + + 383, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAASJJREFUWEftk8sNgzAQRFMKJVADXdAQbdAJ1SS5cuPqeKydaNlMhJSPiVBWehIa + 22/XkJxSSrsiw5rIsCYyrIkMiaplWZrMmJkzycAzssa2rUq5iQxJrNygtWZsHMFaa9vvpdxEhsRXFuPm + pfk0Tanv+9R1XQHPyLBme1ZvQrmJDImvLMUrLo3YOOKGGO1YKeUmMiS+srTc3t88gjUbYLZjpZSbyJD4 + MrFs7OE+O1ZKuYkMia+fGWDPT7D7j7D+39CEbxO9HhkSJXuF6PXIkFDgvzMYhuGhCbK4j2vR65EhoSCK + gR9CNQdcj16PDAkFSg7Q+Flz8PUBtjj+AJfztaDWwPEH2OI/wMcGeJfo9ciQKNkrRK9HhjWRYU1kWBMZ + 1iOdbmae7IkqFqH2AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAANJJREFUOE+VkU0OgjAQhXsiwxm4gluXnMCLwBbjFbyCF3HlQl3UhIIJ25GHfTjl + zzrJS5p2vq8dMEvVtm3SpfJJ/HZcEd4VZ9nsT3K3Ll5C+PF0AoHZHuMlhHnzXxINAyBECdaX6026niCL + 8FhirZUsyyRN0yG9YA2moHu65HkRwFqAuYZZ5+DaNeKqOogWBLNqGDOPn41MBAT0B8N6DkZmBVqCvaZ5 + SVkegmcTnAjGwc1sWgt6+9+oC5s41LfqEGQ89q1YgW+fFgVr+SmIyafbmDfLHDjFxjGZzQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAJpJREFUOE/dkMENgCAMRR3BUZyBCRyCOwsxFne5c+da+yuSBtGgR5u8hLS/D3Qi + IkFXznllNoYKOK9lLFX3WgGCKSVyzpExRsAZPS15Emx6WUswK7G+gAMzc1k+iTHWmz4JMJMgV1eA4tD3 + T0BxaHn4iUuJXQV43hu6Av1k730N46xnQwIQQhDa/rDAWiu0/WHBHX8WvOHYo2kHvfprYU4ZRYMAAAAA + SUVORK5CYII= + + + + 500, 17 + + + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA + AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAD///AP//AAAPf38Pd3fwAP9/f/d3d38A93d3d3/3fwD3d3d3f/d/AP////d3d38AAA + AAD3d38AAAAAAA//8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAD//wAA//8AAP// + AADBhwAAwQMAAIABAACAAQAAgAEAAIABAAD/AwAA/4cAAP//AAD//wAA//8AAP//AAAoAAAAEAAAACAA + AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBNTU0Ab29vAODg4ADm5OUA6+vrAPb2 + 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHAAAHBwcHAAAAAAAHAQcB + BwAGAwEBAwYAAAAHBwEHAQcHAwEBAQEDBwAABwEBAQEBAQECBQUBAQUAAAcBAQEBAQEBAgUFAQEHAAAH + BwcHBwcHAwEBAQEDBwAAAAAAAAAAAAYDAQEDBgAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP// + AAD//wAAwYcAAMEDAACAAQAAgAEAAIABAACAAQAA/wMAAP+HAAD//wAA//8AAP//AAD//wAAKAAAABAA + AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9v/29vb/9vb2//b29v/29vb/AAAAAPb29lD29vbf9vb2//b29v/29vbf9vb2UAAAAAAAAAAAAAAAAAAA + AAD29vb/QkJC//b29v9CQkL/9vb2//b29lDr6+v/b29v/0JCQv9CQkL/b29v/+vr6//29vZQAAAAAAAA + AAD29vb/9vb2/0JCQv/29vb/QkJC//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JCQv9vb2//9vb23wAA + AAAAAAAA9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/5uTl/+bk5f9CQkL/QkJC/+Dg + 4P8AAAAAAAAAAPb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/TU1N/+bk5f/m5OX/QkJC/0JC + Qv/29vb/AAAAAAAAAAD29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JC + Qv9vb2//9vb23wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UOvr6/9vb2//QkJC/0JC + Qv9vb2//6+vr//b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb23/b2 + 9v/29vb/9vb23/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP//AAD//wAAwQMAAMAB + AACAAQAAgAEAAIABAACAAQAA/gEAAP8DAAD//wAA//8AAP//AAD//wAA + + \ No newline at end of file diff --git a/DD_Clipboard_Searcher/frmMain.vb b/DD_Clipboard_Searcher/frmMain.vb index 199fb6c..4f3c540 100644 --- a/DD_Clipboard_Searcher/frmMain.vb +++ b/DD_Clipboard_Searcher/frmMain.vb @@ -1,195 +1,195 @@ -Imports System.Threading -Imports DD_LIB_Standards -Public Class frmMain - Private PID As Integer - Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton - Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, _ - ByVal e As EventArgs) Handles Me.Disposed - _Watcher.Dispose() - End Sub - - Private Sub _Watcher_Changed(ByVal sender As Object, _ - ByVal e As EventArgs) Handles _Watcher.Changed - - If MONITORING_ACTIVE = False Then Exit Sub - Dim Data As IDataObject = Clipboard.GetDataObject - - ' Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan") - 'With Me.TextBox1 - ' .AppendText(String.Concat("Available Formats:", vbNewLine)) - ' .AppendText(String.Join(vbNewLine, Data.GetFormats)) - ' .AppendText(String.Concat(vbNewLine, vbNewLine, "Text = '", _ - ' Clipboard.GetText, "'", vbNewLine, vbNewLine)) - 'End With - Dim found As Boolean = False - CLIPBOARD_TEXT = Clipboard.GetText - For Each row As DataRow In DT_USER_PROFILES.Rows - If PROC_Name.ToUpper = row.Item("PROC_NAME").ToString.ToUpper Then - Dim regex_expression = row.Item("REGEX_EXPRESSION") - Dim regex As New System.Text.RegularExpressions.Regex(regex_expression) - Dim match As System.Text.RegularExpressions.Match = regex.Match(CLIPBOARD_TEXT) - If match.Success Then - If match.Groups(0).Value <> CURR_MATCH_RESULT Then - CURR_MATCH_RESULT = match.Groups(0).Value - If Not IsNothing(CURR_MATCH_RESULT) Then - clsSearch.RUN_WD_SEARCH(row.Item("WD_SEARCH")) - found = True - End If - Else - Exit For - End If - Else - If found = False Then - - End If - End If - End If - Next - End Sub - - Public Sub New() - Dim splash As New frmSplash() - splash.ShowDialog() - If ERROR_INIT <> "INVALID USER" Then - Dim cultureInfo As System.Globalization.CultureInfo - cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE) - 'cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT - Thread.CurrentThread.CurrentCulture = cultureInfo - Thread.CurrentThread.CurrentUICulture = cultureInfo - Globalization.CultureInfo.DefaultThreadCurrentCulture = cultureInfo - Globalization.CultureInfo.DefaultThreadCurrentUICulture = cultureInfo - End If - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - - End Sub - - Private Sub btnUserConfig_Click(sender As Object, e As EventArgs) Handles btnUserConfig.Click - frmConfig_Basic.ShowDialog() - End Sub - - Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - ClassLogger.Add(">> Logout time: " & Now.ToString, False) - If ERROR_INIT = "INVALID USER" Then - Exit Sub - End If - 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) - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Clipboard-Searcher'" - clsDatabase.Execute_non_Query(sql, True) - ClassWindowLocation.SaveFormLocationSize(Me, "") - My.Settings.Save() - - Catch ex As Exception - - End Try - 'TempDateien löschen - Try - For Each _file In TEMP_FILES - System.IO.File.Delete(_file) - Next - Catch ex As Exception - - End Try - If clsLogger.LOGG_MSG <> String.Empty Then - ClassLogger.Add(clsLogger.LOGG_MSG, False) - End If - End Sub - - Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load - ClassWindowLocation.LoadFormLocationSize(Me) - If clsDatabase.DB_DEFAULT_INITIALIZED = True Then - Me.NotifyIcon1.Visible = True - 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) - DT_USER_PROFILES = clsDatabase.Return_Datatable(sql) - If DT_USER_PROFILES.Rows.Count = 0 Then - MsgBox("Es wurden noch keine Profile für diesen User hinterlegt!", MsgBoxStyle.Exclamation) - End If - End If - tslblUser.Text = USER_USERNAME - End Sub - - Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown - If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then - If DT_USER_PROFILES.Rows.Count >= 1 Then - Me.Hide() - End If - Else - 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() - End If - End If - If USER_IS_ADMIN = True Then - btnAdminConfig.Visible = True - End If - End Sub - - Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon1.DoubleClick - If Me.Visible = False Then - Me.BringToFront() - Me.Visible = True - TimerClose.Start() - Else - Me.Hide() - NotifyIcon1.Visible = True - End If - End Sub - - Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp - If e.KeyCode = Keys.F12 And USER_IS_ADMIN = True Then - frmLicense.ShowDialog() - End If - End Sub - - Private Sub tsmiChangeState_Click(sender As Object, e As EventArgs) Handles tsmiChangeState.Click - If tsmiChangeState.Tag = "stop" Then - tsmiChangeState.Tag = "start" - tsmiChangeState.Image = My.Resources.control_start_blue - tsmiChangeState.Text = "Überwachung Clipboard starten" - MONITORING_ACTIVE = False - Else - tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG - tsmiChangeState.Tag = "stop" - tsmiChangeState.Text = "Überwachung Clipboard stoppen" - MONITORING_ACTIVE = True - End If - End Sub - 'Private Sub Timer1_Tick(sender As Object, e As EventArgs) - ' clsWINDOWSApi.Get_ForegroundWindow_Info() - ' If PID <> PROC_PID Then - ' PID = PROC_PID - ' With Me.TextBox1 - ' .AppendText(String.Concat("Process-ID:" & PROC_PID, vbNewLine)) - ' .AppendText(String.Concat("Process-Name:" & PROC_Name, vbNewLine)) - ' .AppendText("Window-Title: " & PROC_WindowTitle) - ' .AppendText(String.Concat("", vbNewLine)) - ' End With - ' End If - - 'End Sub - - Private Sub btnAdminConfig_Click(sender As Object, e As EventArgs) Handles btnAdminConfig.Click - TimerClose.Stop() - MONITORING_ACTIVE = False - frmAdministration.ShowDialog() - TimerClose.Start() - MONITORING_ACTIVE = True - End Sub - - Private Sub TimerClose_Tick(sender As Object, e As EventArgs) Handles TimerClose.Tick - Me.Hide() - End Sub - - Private Sub frmMain_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged - If TimerClose.Enabled = True Then - TimerClose.Stop() - End If - - End Sub -End Class +Imports System.Threading +Imports DD_LIB_Standards +Public Class frmMain + Private PID As Integer + Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton + Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, _ + ByVal e As EventArgs) Handles Me.Disposed + _Watcher.Dispose() + End Sub + + Private Sub _Watcher_Changed(ByVal sender As Object, _ + ByVal e As EventArgs) Handles _Watcher.Changed + + If MONITORING_ACTIVE = False Then Exit Sub + Dim Data As IDataObject = Clipboard.GetDataObject + + ' Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan") + 'With Me.TextBox1 + ' .AppendText(String.Concat("Available Formats:", vbNewLine)) + ' .AppendText(String.Join(vbNewLine, Data.GetFormats)) + ' .AppendText(String.Concat(vbNewLine, vbNewLine, "Text = '", _ + ' Clipboard.GetText, "'", vbNewLine, vbNewLine)) + 'End With + Dim found As Boolean = False + CLIPBOARD_TEXT = Clipboard.GetText + For Each row As DataRow In DT_USER_PROFILES.Rows + If PROC_Name.ToUpper = row.Item("PROC_NAME").ToString.ToUpper Then + Dim regex_expression = row.Item("REGEX_EXPRESSION") + Dim regex As New System.Text.RegularExpressions.Regex(regex_expression) + Dim match As System.Text.RegularExpressions.Match = regex.Match(CLIPBOARD_TEXT) + If match.Success Then + If match.Groups(0).Value <> CURR_MATCH_RESULT Then + CURR_MATCH_RESULT = match.Groups(0).Value + If Not IsNothing(CURR_MATCH_RESULT) Then + clsSearch.RUN_WD_SEARCH(row.Item("WD_SEARCH")) + found = True + End If + Else + Exit For + End If + Else + If found = False Then + + End If + End If + End If + Next + End Sub + + Public Sub New() + Dim splash As New frmSplash() + splash.ShowDialog() + If ERROR_INIT <> "INVALID USER" Then + Dim cultureInfo As System.Globalization.CultureInfo + cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE) + 'cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT + Thread.CurrentThread.CurrentCulture = cultureInfo + Thread.CurrentThread.CurrentUICulture = cultureInfo + Globalization.CultureInfo.DefaultThreadCurrentCulture = cultureInfo + Globalization.CultureInfo.DefaultThreadCurrentUICulture = cultureInfo + End If + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub btnUserConfig_Click(sender As Object, e As EventArgs) Handles btnUserConfig.Click + frmConfig_Basic.ShowDialog() + End Sub + + Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ClassLogger.Add(">> Logout time: " & Now.ToString, False) + If ERROR_INIT = "INVALID USER" Then + Exit Sub + End If + 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) + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Clipboard-Searcher'" + clsDatabase.Execute_non_Query(sql, True) + ClassWindowLocation.SaveFormLocationSize(Me, "") + My.Settings.Save() + + Catch ex As Exception + + End Try + 'TempDateien löschen + Try + For Each _file In TEMP_FILES + System.IO.File.Delete(_file) + Next + Catch ex As Exception + + End Try + If clsLogger.LOGG_MSG <> String.Empty Then + ClassLogger.Add(clsLogger.LOGG_MSG, False) + End If + End Sub + + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load + ClassWindowLocation.LoadFormLocationSize(Me) + If clsDatabase.DB_DEFAULT_INITIALIZED = True Then + Me.NotifyIcon1.Visible = True + 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) + DT_USER_PROFILES = clsDatabase.Return_Datatable(sql) + If DT_USER_PROFILES.Rows.Count = 0 Then + MsgBox("Es wurden noch keine Profile für diesen User hinterlegt!", MsgBoxStyle.Exclamation) + End If + End If + tslblUser.Text = USER_USERNAME + End Sub + + Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then + If DT_USER_PROFILES.Rows.Count >= 1 Then + Me.Hide() + End If + Else + 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() + End If + End If + If USER_IS_ADMIN = True Then + btnAdminConfig.Visible = True + End If + End Sub + + Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon1.DoubleClick + If Me.Visible = False Then + Me.BringToFront() + Me.Visible = True + TimerClose.Start() + Else + Me.Hide() + NotifyIcon1.Visible = True + End If + End Sub + + Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp + If e.KeyCode = Keys.F12 And USER_IS_ADMIN = True Then + frmLicense.ShowDialog() + End If + End Sub + + Private Sub tsmiChangeState_Click(sender As Object, e As EventArgs) Handles tsmiChangeState.Click + If tsmiChangeState.Tag = "stop" Then + tsmiChangeState.Tag = "start" + tsmiChangeState.Image = My.Resources.control_start_blue + tsmiChangeState.Text = "Überwachung Clipboard starten" + MONITORING_ACTIVE = False + Else + tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG + tsmiChangeState.Tag = "stop" + tsmiChangeState.Text = "Überwachung Clipboard stoppen" + MONITORING_ACTIVE = True + End If + End Sub + 'Private Sub Timer1_Tick(sender As Object, e As EventArgs) + ' clsWINDOWSApi.Get_ForegroundWindow_Info() + ' If PID <> PROC_PID Then + ' PID = PROC_PID + ' With Me.TextBox1 + ' .AppendText(String.Concat("Process-ID:" & PROC_PID, vbNewLine)) + ' .AppendText(String.Concat("Process-Name:" & PROC_Name, vbNewLine)) + ' .AppendText("Window-Title: " & PROC_WindowTitle) + ' .AppendText(String.Concat("", vbNewLine)) + ' End With + ' End If + + 'End Sub + + Private Sub btnAdminConfig_Click(sender As Object, e As EventArgs) Handles btnAdminConfig.Click + TimerClose.Stop() + MONITORING_ACTIVE = False + frmAdministration.ShowDialog() + TimerClose.Start() + MONITORING_ACTIVE = True + End Sub + + Private Sub TimerClose_Tick(sender As Object, e As EventArgs) Handles TimerClose.Tick + Me.Hide() + End Sub + + Private Sub frmMain_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged + If TimerClose.Enabled = True Then + TimerClose.Stop() + End If + + End Sub +End Class diff --git a/DD_Clipboard_Searcher/modCurrent.vb b/DD_Clipboard_Searcher/modCurrent.vb index 87961ed..72d2ca8 100644 --- a/DD_Clipboard_Searcher/modCurrent.vb +++ b/DD_Clipboard_Searcher/modCurrent.vb @@ -1,41 +1,41 @@ -Module modCurrent - - Public MyConnectionString As String = "" - Public LogErrorsOnly As Boolean = True - Public USER_LANGUAGE As String = "de-DE" - - Public CURRENT_WINDOW_NAME As String - - Public CURRENT_USER_SHORT As String - Public USER_USERNAME As String - Public USER_GUID As Integer - Public USER_IS_ADMIN As Boolean = False - - Public USERS_LOGGED_IN As Integer - - Public LICENSE_COUNT As Integer - Public LICENSE_DATE As Date - Public LICENSE_EXPIRED As Boolean = False - - Public DT_CLIENT_USER As DataTable - Public ERROR_INIT As String - Public START_INCOMPLETE As Boolean = False - Public CONNECTION_CHANGED As Boolean = False - Public ESC_Hidden As Boolean = False - - Public CURRENT_WD_TEMPSEARCH As String - Public TEMP_FILES As List(Of String) = New List(Of String) - - Public WD_UNICODE As Boolean = False - - Public DT_USER_PROFILES As DataTable - - Public CLIPBOARD_TEXT As String - Public CURR_MATCH_RESULT - - Public MONITORING_ACTIVE As Boolean = True - - Public PROC_PID As String - Public PROC_Name As String - Public PROC_WindowTitle As String -End Module +Module modCurrent + + Public MyConnectionString As String = "" + Public LogErrorsOnly As Boolean = True + Public USER_LANGUAGE As String = "de-DE" + + Public CURRENT_WINDOW_NAME As String + + Public CURRENT_USER_SHORT As String + Public USER_USERNAME As String + Public USER_GUID As Integer + Public USER_IS_ADMIN As Boolean = False + + Public USERS_LOGGED_IN As Integer + + Public LICENSE_COUNT As Integer + Public LICENSE_DATE As Date + Public LICENSE_EXPIRED As Boolean = False + + Public DT_CLIENT_USER As DataTable + Public ERROR_INIT As String + Public START_INCOMPLETE As Boolean = False + Public CONNECTION_CHANGED As Boolean = False + Public ESC_Hidden As Boolean = False + + Public CURRENT_WD_TEMPSEARCH As String + Public TEMP_FILES As List(Of String) = New List(Of String) + + Public WD_UNICODE As Boolean = False + + Public DT_USER_PROFILES As DataTable + + Public CLIPBOARD_TEXT As String + Public CURR_MATCH_RESULT + + Public MONITORING_ACTIVE As Boolean = True + + Public PROC_PID As String + Public PROC_Name As String + Public PROC_WindowTitle As String +End Module diff --git a/SetupWix/.gitattributes b/SetupWix/.gitattributes new file mode 100644 index 0000000..1ff0c42 --- /dev/null +++ b/SetupWix/.gitattributes @@ -0,0 +1,63 @@ +############################################################################### +# Set default behavior to automatically normalize line endings. +############################################################################### +* text=auto + +############################################################################### +# Set default behavior for command prompt diff. +# +# This is need for earlier builds of msysgit that does not have it on by +# default for csharp files. +# Note: This is only used by command line +############################################################################### +#*.cs diff=csharp + +############################################################################### +# Set the merge driver for project and solution files +# +# Merging from the command prompt will add diff markers to the files if there +# are conflicts (Merging from VS is not affected by the settings below, in VS +# the diff markers are never inserted). Diff markers may cause the following +# file extensions to fail to load in VS. An alternative would be to treat +# these files as binary and thus will always conflict and require user +# intervention with every merge. To do so, just uncomment the entries below +############################################################################### +#*.sln merge=binary +#*.csproj merge=binary +#*.vbproj merge=binary +#*.vcxproj merge=binary +#*.vcproj merge=binary +#*.dbproj merge=binary +#*.fsproj merge=binary +#*.lsproj merge=binary +#*.wixproj merge=binary +#*.modelproj merge=binary +#*.sqlproj merge=binary +#*.wwaproj merge=binary + +############################################################################### +# behavior for image files +# +# image files are treated as binary by default. +############################################################################### +#*.jpg binary +#*.png binary +#*.gif binary + +############################################################################### +# diff behavior for common document formats +# +# Convert binary document formats to text before diffing them. This feature +# is only available from the command line. Turn it on by uncommenting the +# entries below. +############################################################################### +#*.doc diff=astextplain +#*.DOC diff=astextplain +#*.docx diff=astextplain +#*.DOCX diff=astextplain +#*.dot diff=astextplain +#*.DOT diff=astextplain +#*.pdf diff=astextplain +#*.PDF diff=astextplain +#*.rtf diff=astextplain +#*.RTF diff=astextplain diff --git a/SetupWix/.gitignore b/SetupWix/.gitignore new file mode 100644 index 0000000..1bc915c --- /dev/null +++ b/SetupWix/.gitignore @@ -0,0 +1,156 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. + +# User-specific files +*.suo +*.user +*.sln.docstates + +# Build results + +[Dd]ebug/ +[Rr]elease/ +x64/ +build/ +[Bb]in/ +[Oo]bj/ + +# Enable "build/" folder in the NuGet Packages folder since NuGet packages use it for MSBuild targets +!packages/*/build/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +*_i.c +*_p.c +*.ilk +*.meta +*.obj +*.pch +*.pdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.log +*.scc + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opensdf +*.sdf +*.cachefile + +# Visual Studio profiler +*.psess +*.vsp +*.vspx + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# NCrunch +*.ncrunch* +.*crunch*.local.xml + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.Publish.xml + +# NuGet Packages Directory +## TODO: If you have NuGet Package Restore enabled, uncomment the next line +#packages/ + +# Windows Azure Build Output +csx +*.build.csdef + +# Windows Store app package directory +AppPackages/ + +# Others +sql/ +*.Cache +ClientBin/ +[Ss]tyle[Cc]op.* +~$* +*~ +*.dbmdl +*.[Pp]ublish.xml +*.pfx +*.publishsettings + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file to a newer +# Visual Studio version. Backup files are not needed, because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm + +# SQL Server files +App_Data/*.mdf +App_Data/*.ldf + + +#LightSwitch generated files +GeneratedArtifacts/ +_Pvt_Extensions/ +ModelManifest.xml + +# ========================= +# Windows detritus +# ========================= + +# Windows image file caches +Thumbs.db +ehthumbs.db + +# Folder config file +Desktop.ini + +# Recycle Bin used on file shares +$RECYCLE.BIN/ + +# Mac desktop service store files +.DS_Store diff --git a/SetupWix/Product.wxs b/SetupWix/Product.wxs index 9c7643c..18a2944 100644 --- a/SetupWix/Product.wxs +++ b/SetupWix/Product.wxs @@ -42,7 +42,9 @@ - + + +