diff --git a/app/DD_Clipboard_Searcher/ClassDatabase.vb b/app/DD_Clipboard_Searcher/ClassDatabase.vb index ec40bb5..a6c73d3 100644 --- a/app/DD_Clipboard_Searcher/ClassDatabase.vb +++ b/app/DD_Clipboard_Searcher/ClassDatabase.vb @@ -7,7 +7,7 @@ Public Class ClassDatabase Dim connectionString As String = "" Try 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) - Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) + Dim DTConnection As DataTable = Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) If DTConnection.Rows.Count = 1 Then Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") Case "MS-SQL" @@ -45,7 +45,7 @@ Public Class ClassDatabase Public Shared Function Init() Try SQLSERVERConnectionString = MyConnectionString - Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLconnect As New SqlConnection SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.Open() SQLconnect.Close() @@ -59,15 +59,15 @@ Public Class ClassDatabase Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False) Try - Dim SQLconnect As New SqlClient.SqlConnection - Dim SQLcommand As SqlClient.SqlCommand - LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung) + Dim SQLconnect As New SqlConnection + Dim SQLcommand As SqlCommand + Logger.Debug(">>> ReturnDatatable: " & Select_anweisung) SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.Open() SQLcommand = SQLconnect.CreateCommand SQLcommand.CommandText = Select_anweisung LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung) - Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand) Dim dt As DataTable = New DataTable() adapter1.Fill(dt) SQLconnect.Close() @@ -87,14 +87,14 @@ Public Class ClassDatabase Try Dim oConString As String = Get_ConnectionString(Conn_ID) LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand) - Dim oSQLconnect As New SqlClient.SqlConnection - Dim oSQLcommand As SqlClient.SqlCommand + Dim oSQLconnect As New SqlConnection + Dim oSQLcommand As SqlCommand oSQLconnect.ConnectionString = oConString oSQLconnect.Open() oSQLcommand = oSQLconnect.CreateCommand oSQLcommand.CommandText = SQLCommand - Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand) + Dim oSQLAdapter As SqlDataAdapter = New SqlDataAdapter(oSQLcommand) Dim oReturnDatatable As DataTable = New DataTable() oSQLAdapter.Fill(oReturnDatatable) oSQLconnect.Close() @@ -111,8 +111,8 @@ Public Class ClassDatabase End Function Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False) Try - Dim SQLconnect As New SqlClient.SqlConnection - Dim SQLcommand As SqlClient.SqlCommand + Dim SQLconnect As New SqlConnection + Dim SQLcommand As SqlCommand SQLconnect.ConnectionString = SQLSERVERConnectionString LOGGER.Debug(">>> Execute_non_Query: " & ExecuteCMD) SQLconnect.Open() @@ -139,15 +139,14 @@ Public Class ClassDatabase Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False) Dim result Try - Dim SQLconnect As New SqlClient.SqlConnection - Dim SQLcommand As SqlClient.SqlCommand + Dim SQLconnect As New SqlConnection + Dim SQLcommand As SqlCommand SQLconnect.ConnectionString = ConString - LOGGER.Debug(">>> Execute_non_Query: " & cmdscalar) + Logger.Debug(">>> Execute_non_Query: " & cmdscalar) SQLconnect.Open() SQLcommand = SQLconnect.CreateCommand - 'Update Last Created Record in Foo SQLcommand.CommandText = cmdscalar - LOGGER.Debug(">>> Execute Scalar: " & cmdscalar) + Logger.Debug(">>> Execute Scalar: " & cmdscalar) result = SQLcommand.ExecuteScalar() SQLcommand.Dispose() SQLconnect.Close() @@ -171,7 +170,6 @@ Public Class ClassDatabase SQLconnect.ConnectionString = OracleConnection SQLconnect.Open() SQLcommand = SQLconnect.CreateCommand - 'Update Last Created Record in Foo SQLcommand.CommandText = cmdscalar result = SQLcommand.ExecuteScalar() SQLcommand.Dispose() @@ -191,7 +189,6 @@ Public Class ClassDatabase SQLconnect.ConnectionString = OracleConnection SQLconnect.Open() SQLcommand = SQLconnect.CreateCommand - 'Update Last Created Record in Foo SQLcommand.CommandText = ExecuteCMD SQLcommand.ExecuteNonQuery() SQLcommand.Dispose() diff --git a/app/DD_Clipboard_Searcher/ClassHotkey.vb b/app/DD_Clipboard_Searcher/ClassHotkey.vb new file mode 100644 index 0000000..aed0a6c --- /dev/null +++ b/app/DD_Clipboard_Searcher/ClassHotkey.vb @@ -0,0 +1,108 @@ +Imports DD_LIB_Standards +Imports System.Text + +Public Class ClassHotkey + Implements IMessageFilter + + Private Declare Function RegisterHotKey Lib "user32" ( + ByVal Hwnd As IntPtr, + ByVal ID As Integer, + ByVal Modifiers As Integer, + ByVal Key As Integer + ) As Integer + + Private Declare Function UnregisterHotKey Lib "user32" ( + ByVal Hwnd As IntPtr, + ByVal ID As Integer + ) As Integer + + Private Declare Auto Function GetWindowText Lib "user32" ( + ByVal hWnd As IntPtr, + ByVal lpString As StringBuilder, + ByVal cch As Integer + ) As Integer + + Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal IDString As String) As Short + Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal Atom As Short) As Short + Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr + + Private _OwnerForm As Form + Private _HotkeyList As New Dictionary(Of Short, HotKeyObject) + Private _HotkeyIDList As New Dictionary(Of String, Short) + + Private Const WM_HOTKEY As Integer = &H312 + + ''' + ''' Diesem Event wird immer die zugewiesene HotKeyID übergeben, wenn eine HotKey Kombination gedrückt wurde. + ''' + Public Event HotKeyPressed(ByVal HotKeyID As String) + + ''' + ''' Definiert verfügbare Modfier Keys + ''' + Public Enum ModfierKey As Integer + MOD_ALT = 1 + MOD_CONTROL = 2 + MOD_SHIFT = 4 + MOD_WIN = 8 + End Enum + + Sub New(ByVal OwnerForm As Form) + _OwnerForm = OwnerForm + Application.AddMessageFilter(Me) + End Sub + + ''' + ''' Diese Funktion fügt einen Hotkey hinzu und registriert ihn auch sofort + ''' + ''' Den KeyCode für die Taste + ''' Die Zusatztasten wie z.B. Strg oder Alt, diese können auch mit OR kombiniert werden + ''' Die ID die der Hotkey bekommen soll um diesen zu identifizieren + Public Sub AddHotKey(ByVal KeyCode As Keys, ByVal Modifiers As ModfierKey, ByVal HotKeyID As String) + If _HotkeyIDList.ContainsKey(HotKeyID) = True Then Exit Sub + Dim ID As Short = GlobalAddAtom(HotKeyID) + _HotkeyIDList.Add(HotKeyID, ID) + _HotkeyList.Add(ID, New HotKeyObject(KeyCode, Modifiers, HotKeyID)) + RegisterHotKey(_OwnerForm.Handle, ID, _HotkeyList(ID).Modifier, _HotkeyList(ID).HotKey) + End Sub + + ''' + ''' Diese Funktion entfernt einen Hotkey und deregistriert ihn auch sofort + ''' + ''' Gibt die HotkeyID an welche entfernt werden soll + Public Sub RemoveHotKey(ByVal HotKeyID As String) + If _HotkeyIDList.ContainsKey(HotKeyID) = False Then Exit Sub + Dim ID As Short = _HotkeyIDList(HotKeyID) + _HotkeyIDList.Remove(HotKeyID) + _HotkeyList.Remove(ID) + UnregisterHotKey(_OwnerForm.Handle, CInt(ID)) + GlobalDeleteAtom(ID) + End Sub + + Private Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage + If m.Msg = WM_HOTKEY Then + RaiseEvent HotKeyPressed(_HotkeyList(CShort(m.WParam)).HotKeyID) + End If + End Function + + Public Shared Function GetCaption() As String + Dim oCaption As New StringBuilder(256) + Dim oWindow As IntPtr = GetForegroundWindow() + GetWindowText(oWindow, oCaption, oCaption.Capacity) + CURR_FOCUSED_WINDOWNAME = oCaption.ToString() + Return oCaption.ToString() + End Function + + Public Class HotKeyObject + Public Property HotKey() As Keys + Public Property Modifier() As ModfierKey + Public Property HotKeyID() As String + Public Property AtomID() As Short + + Sub New(ByVal NewHotKey As Keys, ByVal NewModifier As ModfierKey, ByVal NewHotKeyID As String) + HotKey = NewHotKey + Modifier = NewModifier + HotKeyID = NewHotKeyID + End Sub + End Class +End Class diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb index 7f1f8d1..8c2f261 100644 --- a/app/DD_Clipboard_Searcher/ClassInit.vb +++ b/app/DD_Clipboard_Searcher/ClassInit.vb @@ -194,5 +194,18 @@ Public Class ClassInit End Function - + Public Shared Sub Refresh_Profile_Links() + Try + Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID) + DT_USER_PROFILES = clsDatabase.Return_Datatable(oSql) + If DT_USER_PROFILES.Rows.Count = 0 Then + MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation) + Else + oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}" + DTPROFILE_REL_WINDOW = clsDatabase.Return_Datatable(oSql) + End If + Catch ex As Exception + MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub End Class diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index 8529d77..cff0ced 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -51,11 +51,14 @@ DD_Icons_ICO_CBWATCHER_48px.ico + ..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll + + @@ -96,6 +99,8 @@ + + @@ -126,7 +131,7 @@ - + @@ -139,6 +144,12 @@ UserControl + + frmConnection.vb + + + Form + frmDocViewAbout.vb @@ -175,6 +186,12 @@ Form + + frmLicenseInfo.vb + + + Form + frmPrint.vb @@ -261,6 +278,9 @@ ctrlApplicationAssignment.vb + + frmConnection.vb + frmDocViewAbout.vb @@ -283,6 +303,9 @@ frmDocViewOpen.vb + + frmLicenseInfo.vb + frmPrint.vb diff --git a/app/DD_Clipboard_Searcher/My Project/licenses.licx b/app/DD_Clipboard_Searcher/My Project/licenses.licx index 65b4af1..384259d 100644 --- a/app/DD_Clipboard_Searcher/My Project/licenses.licx +++ b/app/DD_Clipboard_Searcher/My Project/licenses.licx @@ -1,8 +1,14 @@ -DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGauges.Win.GaugeControl, DevExpress.XtraGauges.v18.1.Win, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index 21cd38f..adca2d0 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -43,6 +43,8 @@ Partial Public Class MyDataset Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + Private tableTBWH_User As TBWH_UserDataTable Private tableTBWH_GROUP As TBWH_GROUPDataTable @@ -111,6 +113,9 @@ Partial Public Class MyDataset If (Not (ds.Tables("TBCW_PROF_REL_WINDOW")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_REL_WINDOWDataTable(ds.Tables("TBCW_PROF_REL_WINDOW"))) End If + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If If (Not (ds.Tables("TBWH_User")) Is Nothing) Then MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) End If @@ -227,6 +232,16 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable + Get + Return Me.tableTBDD_CONNECTION + End Get + End Property + _ + Private Function ShouldSerializeTBDD_CONNECTION() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_User() As Boolean @@ -666,6 +698,9 @@ Partial Public Class MyDataset _ Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent) + _ + Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) + _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) @@ -3900,6 +3935,438 @@ Partial Public Class MyDataset End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_CONNECTION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CONNECTIONRow) + Return rowTBDD_CONNECTIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.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.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 50 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Return CType(Me.NewRow,TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + 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 = "TBDD_CONNECTIONDataTable" + 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. ''' @@ -3908,8 +4375,6 @@ Partial Public Class MyDataset 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 @@ -3955,14 +4420,6 @@ Partial Public Class MyDataset 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 @@ -4040,9 +4497,9 @@ Partial Public Class MyDataset _ - 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 + Public Overloads Function AddTBWH_UserRow(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} + Dim columnValuesArray() As Object = New Object() {Username, Prename, Surname, Email, ID} rowTBWH_UserRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_UserRow) Return rowTBWH_UserRow @@ -4065,7 +4522,6 @@ Partial Public Class MyDataset _ Friend Sub InitVars() - Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") @@ -4076,11 +4532,6 @@ Partial Public Class MyDataset _ 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) @@ -4091,7 +4542,6 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) End Sub + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATENBANK() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -6043,21 +6812,6 @@ Partial Public Class MyDataset 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 - Me(Me.tableTBWH_User.SelectColumn) = value - End Set - End Property - _ Public Property Username() As String @@ -6133,18 +6887,6 @@ Partial Public Class MyDataset 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 @@ -6654,6 +7396,42 @@ Partial Public Class MyDataset End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + ''' '''Row event argument class ''' @@ -8099,28 +8877,9 @@ Namespace MyDatasetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFIL"& _ - "E_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDE"& _ - "X] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @"& _ - "Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_"& _ - "WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND"& _ - " ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origi"& _ - "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ - "([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB"& _ @@ -8259,6 +9018,233 @@ Namespace MyDatasetTableAdapters Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function End Class ''' @@ -8403,28 +9389,9 @@ Namespace MyDatasetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _ - "_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX"& _ - "] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @O"& _ - "riginal_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_W"& _ - "HEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND "& _ - "((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origin"& _ - "al_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ("& _ - "[CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_"& _ @@ -8562,6 +9529,233 @@ Namespace MyDatasetTableAdapters Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function End Class ''' @@ -9335,6 +10529,616 @@ Namespace MyDatasetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_CONNECTIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_CONNECTION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ + "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ + " [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @"& _ + "DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN"& _ + ", @GEANDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER"& _ + ", DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _ + "ANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CONNECTION] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SQL_PROVIDER] = @SQL_"& _ + "PROVIDER, [SERVER] = @SERVER, [DATENBANK] = @DATENBANK, [USERNAME] = @USERNAME, "& _ + "[PASSWORD] = @PASSWORD, [BEMERKUNG] = @BEMERKUNG, [AKTIV] = @AKTIV, [ERSTELLTWER"& _ + "] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, "& _ + "[GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_"& _ + "BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICH"& _ + "NUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVI"& _ + "DER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) O"& _ + "R ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS "& _ + "NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [US"& _ + "ERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = "& _ + "1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BE"& _ + "MERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND"& _ + " ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@"& _ + "IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Origin"& _ + "al_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR (["& _ + "GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAE"& _ + "NDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG,"& _ + " AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTI"& _ + "ON WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATENBANK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_CONNECTIONDataTable = New MyDataset.TBDD_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + End If + If (ERSTELLTWANN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ERSTELLTWANN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal BEZEICHNUNG As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATENBANK As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal BEMERKUNG As String, _ + ByVal AKTIV As Boolean, _ + ByVal ERSTELLTWER As String, _ + ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _ + ByVal GEANDERTWER As String, _ + ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_BEZEICHNUNG As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATENBANK As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_BEMERKUNG As String, _ + ByVal Original_AKTIV As Boolean, _ + ByVal Original_ERSTELLTWER As String, _ + ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_GEANDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + End If + If (ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) + End If + If (Original_DATENBANK Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATENBANK,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) + End If + If (Original_BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_BEMERKUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIV,Boolean) + If (Original_ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ERSTELLTWER,String) + End If + If (Original_ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + End If + If (Original_GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_GEANDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal BEZEICHNUNG As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATENBANK As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal BEMERKUNG As String, _ + ByVal AKTIV As Boolean, _ + ByVal ERSTELLTWER As String, _ + ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _ + ByVal GEANDERTWER As String, _ + ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_BEZEICHNUNG As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATENBANK As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_BEMERKUNG As String, _ + ByVal Original_AKTIV As Boolean, _ + ByVal Original_ERSTELLTWER As String, _ + ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_GEANDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_SQL_PROVIDER, Original_SERVER, Original_DATENBANK, Original_USERNAME, Original_PASSWORD, Original_BEMERKUNG, Original_AKTIV, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -9362,6 +11166,8 @@ Namespace MyDatasetTableAdapters Private _tBCW_PROF_REL_WINDOWTableAdapter As TBCW_PROF_REL_WINDOWTableAdapter + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -9475,6 +11281,20 @@ Namespace MyDatasetTableAdapters End Set End Property + _ + Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter + Get + Return Me._tBDD_CONNECTIONTableAdapter + End Get + Set + Me._tBDD_CONNECTIONTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -9522,6 +11342,10 @@ Namespace MyDatasetTableAdapters AndAlso (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_CONNECTIONTableAdapter.Connection + End If Return Nothing End Get Set @@ -9556,6 +11380,9 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -9630,6 +11457,15 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -9696,6 +11532,14 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -9706,6 +11550,14 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -9838,6 +11690,11 @@ Namespace MyDatasetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then + 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"& _ @@ -9935,6 +11792,15 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -10023,6 +11889,10 @@ Namespace MyDatasetTableAdapters Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_WINDOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROF_REL_WINDOWTableAdapter.Transaction = Nothing End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD_Clipboard_Searcher/MyDataset.vb b/app/DD_Clipboard_Searcher/MyDataset.vb index c478753..10315eb 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.vb @@ -2,3 +2,8 @@ Partial Public Class MyDataset End Class + +Namespace MyDatasetTableAdapters + Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter + End Class +End Namespace diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsc b/app/DD_Clipboard_Searcher/MyDataset.xsc index 92f53a1..882a551 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsc +++ b/app/DD_Clipboard_Searcher/MyDataset.xsc @@ -25,5 +25,19 @@ + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index abd070f..6ab0193 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -243,24 +243,13 @@ WHERE (PROFILE_ID = @PID) - + - - DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + DELETE FROM TBCW_PROF_DATA_SEARCH +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - + @@ -346,24 +335,13 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + - - DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + DELETE FROM TBCW_PROF_DOC_SEARCH +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - + @@ -649,6 +627,108 @@ SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPB + + + + + + DELETE FROM TBDD_CONNECTION +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBANK], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN], [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN, @GEANDERTWER, @GEAENDERTWANN); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + SELECT TBDD_CONNECTION.* +FROM TBDD_CONNECTION + + + + + + UPDATE [TBDD_CONNECTION] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATENBANK] = @DATENBANK, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [BEMERKUNG] = @BEMERKUNG, [AKTIV] = @AKTIV, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN))); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -759,7 +839,6 @@ SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPB - @@ -987,6 +1066,79 @@ SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPB + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1025,6 +1177,10 @@ SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPB + + + + diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index 1cb2e11..2afa299 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -6,45 +6,46 @@ --> - - - - - - - - - - - - + + + + + + + + + + + + + - + 253 - 11 + -23 - 729 - 11 + 630 + -23 - + 253 - 140 + 61 - 377 - 140 + 321 + 61 - + 133 diff --git a/app/DD_Clipboard_Searcher/clsHotkey.vb b/app/DD_Clipboard_Searcher/clsHotkey.vb deleted file mode 100644 index 51fdb48..0000000 --- a/app/DD_Clipboard_Searcher/clsHotkey.vb +++ /dev/null @@ -1,151 +0,0 @@ -Imports DD_LIB_Standards - -Public Class clsHotkey - Implements IMessageFilter - - Private Declare Function RegisterHotKey Lib "user32" ( _ - ByVal Hwnd As IntPtr, _ - ByVal ID As Integer, _ - ByVal Modifiers As Integer, _ - ByVal Key As Integer) _ - As Integer - - Private Declare Function UnregisterHotKey Lib "user32" ( _ - ByVal Hwnd As IntPtr, _ - ByVal ID As Integer) _ - As Integer - - Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" ( _ - ByVal IDString As String) _ - As Short - - Private Declare Function GlobalDeleteAtom Lib "kernel32" ( _ - ByVal Atom As Short) _ - As Short - Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr - Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer - Public Class HotKeyObject - Private mHotKey As Keys - Private mModifier As MODKEY - Private mHotKeyID As String - Private mAtomID As Short - - Public Property HotKey() As Keys - Get - Return mHotKey - End Get - Set(ByVal value As Keys) - mHotKey = value - End Set - End Property - - Public Property Modifier() As MODKEY - Get - Return mModifier - End Get - Set(ByVal value As MODKEY) - mModifier = value - End Set - End Property - - Public Property HotKeyID() As String - Get - Return mHotKeyID - End Get - Set(ByVal value As String) - mHotKeyID = value - End Set - End Property - - Public Property AtomID() As Short - Get - Return mAtomID - End Get - Set(ByVal value As Short) - mAtomID = value - End Set - End Property - - Sub New(ByVal NewHotKey As Keys, ByVal NewModifier As MODKEY, ByVal NewHotKeyID As String) - mHotKey = NewHotKey - mModifier = NewModifier - mHotKeyID = NewHotKeyID - End Sub - End Class - Public Shared Sub Refresh_Profile_Links() - Try - Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID) - DT_USER_PROFILES = clsDatabase.Return_Datatable(oSql) - If DT_USER_PROFILES.Rows.Count = 0 Then - MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation) - Else - oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}" - DTPROFILE_REL_WINDOW = clsDatabase.Return_Datatable(oSql) - End If - Catch ex As Exception - MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private mForm As Form - Private Const WM_HOTKEY As Integer = &H312 - Private mHotKeyList As New System.Collections.Generic.Dictionary(Of Short, HotKeyObject) - Private mHotKeyIDList As New System.Collections.Generic.Dictionary(Of String, Short) - - ''' - ''' Diesem Event wird immer die zugewiesene HotKeyID übergeben wenn eine HotKey Kombination gedrückt wurde. - ''' - Public Event HotKeyPressed(ByVal HotKeyID As String) - - Public Enum MODKEY As Integer - MOD_ALT = 1 - MOD_CONTROL = 2 - MOD_SHIFT = 4 - MOD_WIN = 8 - End Enum - - Sub New(ByVal OwnerForm As Form) - mForm = OwnerForm - Application.AddMessageFilter(Me) - End Sub - - ''' - ''' Diese Funktion fügt einen Hotkey hinzu und registriert ihn auch sofort - ''' - ''' Den KeyCode für die Taste - ''' Die Zusatztasten wie z.B. Strg oder Alt, diese können auch mit OR kombiniert werden - ''' Die ID die der Hotkey bekommen soll um diesen zu identifizieren - Public Sub AddHotKey(ByVal KeyCode As Keys, ByVal Modifiers As MODKEY, ByVal HotKeyID As String) - If mHotKeyIDList.ContainsKey(HotKeyID) = True Then Exit Sub - Dim ID As Short = GlobalAddAtom(HotKeyID) - mHotKeyIDList.Add(HotKeyID, ID) - mHotKeyList.Add(ID, New HotKeyObject(KeyCode, Modifiers, HotKeyID)) - RegisterHotKey(mForm.Handle, ID, mHotKeyList(ID).Modifier, mHotKeyList(ID).HotKey) - End Sub - - ''' - ''' Diese Funktion entfernt einen Hotkey und deregistriert ihn auch sofort - ''' - ''' Gibt die HotkeyID an welche entfernt werden soll - Public Sub RemoveHotKey(ByVal HotKeyID As String) - If mHotKeyIDList.ContainsKey(HotKeyID) = False Then Exit Sub - Dim ID As Short = mHotKeyIDList(HotKeyID) - mHotKeyIDList.Remove(HotKeyID) - mHotKeyList.Remove(ID) - UnregisterHotKey(mForm.Handle, CInt(ID)) - GlobalDeleteAtom(ID) - End Sub - - Private Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage - If m.Msg = WM_HOTKEY Then - RaiseEvent HotKeyPressed(mHotKeyList(CShort(m.WParam)).HotKeyID) - End If - End Function - - Public Shared Function GetCaption() As String - Dim Caption As New System.Text.StringBuilder(256) - Dim hWnd As IntPtr = GetForegroundWindow() - GetWindowText(hWnd, Caption, Caption.Capacity) - CURR_FOCUSED_WINDOWNAME = Caption.ToString() - Return Caption.ToString() - End Function -End Class diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb index 19281cf..34d5b14 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb @@ -36,8 +36,10 @@ Partial Class ctrlApplicationAssignment Me.colREGEX_CLIPBOARD = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSEQUENCE = New DevExpress.XtraGrid.Columns.GridColumn() Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() + Me.Label1 = New System.Windows.Forms.Label() Me.GridControl2 = New DevExpress.XtraGrid.GridControl() Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.Label2 = New System.Windows.Forms.Label() Me.GridControl3 = New DevExpress.XtraGrid.GridControl() Me.TBCW_PROFILE_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() @@ -45,8 +47,6 @@ Partial Class ctrlApplicationAssignment Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.TBCW_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter() Me.TBCW_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer3.Panel1.SuspendLayout() Me.SplitContainer3.Panel2.SuspendLayout() @@ -109,9 +109,12 @@ Partial Class ctrlApplicationAssignment ' 'GridView_Window ' + Me.GridView_Window.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridView_Window.Appearance.EvenRow.Options.UseBackColor = True Me.GridView_Window.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPROCESS_NAME, Me.colGUID, Me.colDESCRIPTION, Me.colREGEX, Me.colREGEX_CLIPBOARD, Me.colSEQUENCE}) Me.GridView_Window.GridControl = Me.GridControl_Window Me.GridView_Window.Name = "GridView_Window" + Me.GridView_Window.OptionsView.EnableAppearanceEvenRow = True ' 'colPROCESS_NAME ' @@ -171,6 +174,17 @@ Partial Class ctrlApplicationAssignment Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1" ' + 'Label1 + ' + Me.Label1.Dock = System.Windows.Forms.DockStyle.Top + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(0, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(915, 25) + Me.Label1.TabIndex = 67 + Me.Label1.Text = "Zugeordnete Fenster:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' 'GridControl2 ' Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill @@ -184,8 +198,22 @@ Partial Class ctrlApplicationAssignment ' 'GridView3 ' + Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True Me.GridView3.GridControl = Me.GridControl2 Me.GridView3.Name = "GridView3" + Me.GridView3.OptionsView.EnableAppearanceEvenRow = True + ' + 'Label2 + ' + Me.Label2.Dock = System.Windows.Forms.DockStyle.Top + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(0, 0) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(915, 25) + Me.Label2.TabIndex = 68 + Me.Label2.Text = "Zugeordnete Controls:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'GridControl3 ' @@ -205,7 +233,7 @@ Partial Class ctrlApplicationAssignment ' 'GridViewProcessProfile ' - Me.GridViewProcessProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewProcessProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.GridViewProcessProfile.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewProcessProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPROC_NAME}) Me.GridViewProcessProfile.GridControl = Me.GridControl3 @@ -243,28 +271,6 @@ Partial Class ctrlApplicationAssignment ' Me.TBCW_PROF_REL_WINDOWTableAdapter.ClearBeforeFill = True ' - 'Label1 - ' - Me.Label1.Dock = System.Windows.Forms.DockStyle.Top - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(0, 0) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(915, 25) - Me.Label1.TabIndex = 67 - Me.Label1.Text = "Zugeordnete Fenster:" - Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label2 - ' - Me.Label2.Dock = System.Windows.Forms.DockStyle.Top - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(0, 0) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(915, 25) - Me.Label2.TabIndex = 68 - Me.Label2.Text = "Zugeordnete Controls:" - Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' 'ctrlApplicationAssignment ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx index ec3170e..c4a6393 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx @@ -123,9 +123,6 @@ 558, 12 - - 558, 12 - 20, 10 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 51be72f..b5bf7bc 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -23,56 +23,9 @@ Partial Class frmAdministration 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 PROFILE_TYPELabel As System.Windows.Forms.Label - Dim GUIDLabel1 As System.Windows.Forms.Label - Dim PROFILE_IDLabel As System.Windows.Forms.Label - Dim CONN_IDLabel As System.Windows.Forms.Label - Dim SQL_COMMANDLabel As System.Windows.Forms.Label - Dim TAB_INDEXLabel As System.Windows.Forms.Label - Dim TAB_TITLELabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel1 As System.Windows.Forms.Label - Dim ADDED_WHENLabel1 As System.Windows.Forms.Label - Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label - Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label - Dim GUIDLabel2 As System.Windows.Forms.Label - Dim PROFILE_IDLabel1 As System.Windows.Forms.Label - Dim CONN_IDLabel1 As System.Windows.Forms.Label - Dim SQL_COMMANDLabel1 As System.Windows.Forms.Label - Dim TAB_INDEXLabel1 As System.Windows.Forms.Label - Dim TAB_TITLELabel1 As System.Windows.Forms.Label - Dim ADDED_WHOLabel2 As System.Windows.Forms.Label - Dim ADDED_WHENLabel2 As System.Windows.Forms.Label - Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label - Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label - Dim Label7 As System.Windows.Forms.Label - Dim Label8 As System.Windows.Forms.Label - Dim Label12 As System.Windows.Forms.Label - Dim Label11 As System.Windows.Forms.Label - Dim Label4 As System.Windows.Forms.Label - Dim Label3 As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) - Me.btnaddSearch = New System.Windows.Forms.Button() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.NAMETextBox = New System.Windows.Forms.TextBox() - Me.COMMENTTextBox = New System.Windows.Forms.TextBox() Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() @@ -81,24 +34,108 @@ Partial Class frmAdministration Me.VWUSER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBCW_PROFILESTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter() Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() - Me.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_Watcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter() Me.TimerTest = New System.Windows.Forms.Timer(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() - Me.lblLicenseDate = New System.Windows.Forms.Label() - Me.lbllicenseCount = New System.Windows.Forms.Label() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() - Me.TabPageProfiles = New DevExpress.XtraTab.XtraTabPage() + Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBCW_PROF_DATA_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() Me.TabPageGeneralSettings = New DevExpress.XtraTab.XtraTabPage() - Me.PROFILE_TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.textEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.textEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.textEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.RibbonControl2 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonGroupProfile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupDataSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupDocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupProcess = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupWindow = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupUser = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupGroup = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.textEdit2 = New DevExpress.XtraEditors.LookUpEdit() Me.TBWH_PROFILE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGEDWHOTextBox = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() + Me.GUIDTextBox = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.layoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.layoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.layoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.layoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.layoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.layoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TabPageData = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl3 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit12 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit13 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHOTextBox1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit10 = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEdit2 = New DevExpress.XtraEditors.LookUpEdit() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MemoEdit3 = New DevExpress.XtraEditors.MemoEdit() + Me.MemoEdit4 = New DevExpress.XtraEditors.MemoEdit() + Me.txtDATAGUID = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TabPageDocuments = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.TabPageProcessAssignment = New DevExpress.XtraTab.XtraTabPage() Me.CtrlApplicationAssignment1 = New DD_Clipboard_Watcher.ctrlApplicationAssignment() Me.TabPageUserAssignment = New DevExpress.XtraTab.XtraTabPage() @@ -112,7 +149,6 @@ Partial Class frmAdministration Me.Label1 = New System.Windows.Forms.Label() Me.GridControlUserNotInProfile = New DevExpress.XtraGrid.GridControl() Me.GridViewUserNotInProfile = 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() @@ -132,138 +168,115 @@ Partial Class frmAdministration Me.colID1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label10 = New System.Windows.Forms.Label() - Me.TabPageData = New DevExpress.XtraTab.XtraTabPage() - Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem1 = New System.Windows.Forms.ToolStripButton() - Me.TBCW_PROF_DATA_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() - Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() - Me.PROFILE_IDTextBox = New System.Windows.Forms.TextBox() - Me.CONN_IDTextBox = New System.Windows.Forms.TextBox() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() - Me.TAB_INDEXTextBox = New System.Windows.Forms.TextBox() - Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() - Me.TAB_TITLETextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENDateTimePicker = New System.Windows.Forms.DateTimePicker() - Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENDateTimePicker = New System.Windows.Forms.DateTimePicker() - Me.TabPageDocuments = New DevExpress.XtraTab.XtraTabPage() - Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem2 = New System.Windows.Forms.ToolStripButton() - Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.BindingNavigatorCountItem2 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem2 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveFirstItem2 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem2 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator6 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem2 = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator7 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem2 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem2 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator8 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.GUIDTextBox2 = New System.Windows.Forms.TextBox() - Me.PROFILE_IDTextBox1 = New System.Windows.Forms.TextBox() - Me.CONN_IDTextBox1 = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.SQL_COMMANDTextBox1 = New System.Windows.Forms.TextBox() - Me.TAB_INDEXTextBox1 = New System.Windows.Forms.TextBox() - Me.ACTIVECheckBox2 = New System.Windows.Forms.CheckBox() - Me.TAB_TITLETextBox1 = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENDateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENDateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.TabPageBasicSettings = New DevExpress.XtraTab.XtraTabPage() Me.TBCW_PROF_DATA_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter() Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() Me.VWCW_GROUP_PROFILETableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.VWCW_GROUP_PROFILETableAdapter() - Me.RibbonControl2 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - 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() - PROFILE_TYPELabel = New System.Windows.Forms.Label() - GUIDLabel1 = New System.Windows.Forms.Label() - PROFILE_IDLabel = New System.Windows.Forms.Label() - CONN_IDLabel = New System.Windows.Forms.Label() - SQL_COMMANDLabel = New System.Windows.Forms.Label() - TAB_INDEXLabel = New System.Windows.Forms.Label() - TAB_TITLELabel = New System.Windows.Forms.Label() - ADDED_WHOLabel1 = New System.Windows.Forms.Label() - ADDED_WHENLabel1 = New System.Windows.Forms.Label() - CHANGED_WHOLabel1 = New System.Windows.Forms.Label() - CHANGED_WHENLabel1 = New System.Windows.Forms.Label() - GUIDLabel2 = New System.Windows.Forms.Label() - PROFILE_IDLabel1 = New System.Windows.Forms.Label() - CONN_IDLabel1 = New System.Windows.Forms.Label() - SQL_COMMANDLabel1 = New System.Windows.Forms.Label() - TAB_INDEXLabel1 = New System.Windows.Forms.Label() - TAB_TITLELabel1 = New System.Windows.Forms.Label() - ADDED_WHOLabel2 = New System.Windows.Forms.Label() - ADDED_WHENLabel2 = New System.Windows.Forms.Label() - CHANGED_WHOLabel2 = New System.Windows.Forms.Label() - CHANGED_WHENLabel2 = New System.Windows.Forms.Label() - Label7 = New System.Windows.Forms.Label() - Label8 = New System.Windows.Forms.Label() - Label12 = New System.Windows.Forms.Label() - Label11 = New System.Windows.Forms.Label() - Label4 = New System.Windows.Forms.Label() - Label3 = New System.Windows.Forms.Label() + Me.TBDD_CONNECTIONTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() + Me.MemoEdit2 = New DevExpress.XtraEditors.MemoEdit() + Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() + Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit() + Me.txtDOC_GUID = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHOTextBox2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit15 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit16 = New DevExpress.XtraEditors.TextEdit() + Me.MemoEdit5 = New DevExpress.XtraEditors.MemoEdit() + Me.MemoEdit6 = New DevExpress.XtraEditors.MemoEdit() + Me.TextEdit17 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit18 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit19 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit3 = New DevExpress.XtraEditors.CheckEdit() + Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem31 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem32 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem33 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem34 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.StatusStrip1.SuspendLayout() - Me.GroupBox5.SuspendLayout() - CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl2.SuspendLayout() - Me.TabPageProfiles.SuspendLayout() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl3.SuspendLayout() Me.TabPageGeneralSettings.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.textEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.textEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.textEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.textEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGEDWHOTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GUIDTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.layoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.layoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.layoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPageData.SuspendLayout() + CType(Me.LayoutControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl3.SuspendLayout() + CType(Me.TextEdit12.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit13.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOTextBox1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDATAGUID.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPageDocuments.SuspendLayout() + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl2.SuspendLayout() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageProcessAssignment.SuspendLayout() Me.TabPageUserAssignment.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -285,391 +298,39 @@ Partial Class frmAdministration CType(Me.GridControlGroupNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewGroupNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPageData.SuspendLayout() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator1.SuspendLayout() - CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPageDocuments.SuspendLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator2.SuspendLayout() - CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPageBasicSettings.SuspendLayout() - CType(Me.RibbonControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOTextBox2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit15.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit16.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit17.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit18.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit19.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() 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(14, 12) - 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(14, 52) - 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(14, 92) - 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(14, 132) - 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(14, 172) - 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(14, 212) - 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(167, 212) - 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(14, 252) - 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(167, 252) - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) - CHANGED_WHENLabel.TabIndex = 16 - CHANGED_WHENLabel.Text = "Geändert wann:" - ' - 'PROFILE_TYPELabel - ' - PROFILE_TYPELabel.AutoSize = True - PROFILE_TYPELabel.Location = New System.Drawing.Point(67, 12) - PROFILE_TYPELabel.Name = "PROFILE_TYPELabel" - PROFILE_TYPELabel.Size = New System.Drawing.Size(56, 13) - PROFILE_TYPELabel.TabIndex = 20 - PROFILE_TYPELabel.Text = "Profil Typ:" - ' - 'GUIDLabel1 - ' - GUIDLabel1.AutoSize = True - GUIDLabel1.Location = New System.Drawing.Point(15, 63) - GUIDLabel1.Name = "GUIDLabel1" - GUIDLabel1.Size = New System.Drawing.Size(22, 13) - GUIDLabel1.TabIndex = 0 - GUIDLabel1.Text = "ID:" - ' - 'PROFILE_IDLabel - ' - PROFILE_IDLabel.AutoSize = True - PROFILE_IDLabel.Location = New System.Drawing.Point(15, 90) - PROFILE_IDLabel.Name = "PROFILE_IDLabel" - PROFILE_IDLabel.Size = New System.Drawing.Size(49, 13) - PROFILE_IDLabel.TabIndex = 2 - PROFILE_IDLabel.Text = "Profil ID:" - ' - 'CONN_IDLabel - ' - CONN_IDLabel.AutoSize = True - CONN_IDLabel.Location = New System.Drawing.Point(15, 117) - CONN_IDLabel.Name = "CONN_IDLabel" - CONN_IDLabel.Size = New System.Drawing.Size(79, 13) - CONN_IDLabel.TabIndex = 4 - CONN_IDLabel.Text = "Connection ID:" - ' - 'SQL_COMMANDLabel - ' - SQL_COMMANDLabel.AutoSize = True - SQL_COMMANDLabel.Location = New System.Drawing.Point(316, 41) - SQL_COMMANDLabel.Name = "SQL_COMMANDLabel" - SQL_COMMANDLabel.Size = New System.Drawing.Size(79, 13) - SQL_COMMANDLabel.TabIndex = 6 - SQL_COMMANDLabel.Text = "SQL für Suche:" - ' - 'TAB_INDEXLabel - ' - TAB_INDEXLabel.AutoSize = True - TAB_INDEXLabel.Location = New System.Drawing.Point(15, 144) - TAB_INDEXLabel.Name = "TAB_INDEXLabel" - TAB_INDEXLabel.Size = New System.Drawing.Size(69, 13) - TAB_INDEXLabel.TabIndex = 8 - TAB_INDEXLabel.Text = "Tab Position:" - ' - 'TAB_TITLELabel - ' - TAB_TITLELabel.AutoSize = True - TAB_TITLELabel.Location = New System.Drawing.Point(15, 171) - TAB_TITLELabel.Name = "TAB_TITLELabel" - TAB_TITLELabel.Size = New System.Drawing.Size(52, 13) - TAB_TITLELabel.TabIndex = 12 - TAB_TITLELabel.Text = "Tab Titel:" - ' - 'ADDED_WHOLabel1 - ' - ADDED_WHOLabel1.AutoSize = True - ADDED_WHOLabel1.Location = New System.Drawing.Point(15, 198) - ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" - ADDED_WHOLabel1.Size = New System.Drawing.Size(67, 13) - ADDED_WHOLabel1.TabIndex = 14 - ADDED_WHOLabel1.Text = "Erstellt Wer:" - ' - 'ADDED_WHENLabel1 - ' - ADDED_WHENLabel1.AutoSize = True - ADDED_WHENLabel1.Location = New System.Drawing.Point(15, 226) - ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" - ADDED_WHENLabel1.Size = New System.Drawing.Size(75, 13) - ADDED_WHENLabel1.TabIndex = 16 - ADDED_WHENLabel1.Text = "Erstellt Wann:" - ' - 'CHANGED_WHOLabel1 - ' - CHANGED_WHOLabel1.AutoSize = True - CHANGED_WHOLabel1.Location = New System.Drawing.Point(15, 252) - CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" - CHANGED_WHOLabel1.Size = New System.Drawing.Size(79, 13) - CHANGED_WHOLabel1.TabIndex = 18 - CHANGED_WHOLabel1.Text = "Geändert Wer:" - ' - 'CHANGED_WHENLabel1 - ' - CHANGED_WHENLabel1.AutoSize = True - CHANGED_WHENLabel1.Location = New System.Drawing.Point(15, 280) - CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" - CHANGED_WHENLabel1.Size = New System.Drawing.Size(87, 13) - CHANGED_WHENLabel1.TabIndex = 20 - CHANGED_WHENLabel1.Text = "Geändert Wann:" - ' - 'GUIDLabel2 - ' - GUIDLabel2.AutoSize = True - GUIDLabel2.Location = New System.Drawing.Point(15, 63) - GUIDLabel2.Name = "GUIDLabel2" - GUIDLabel2.Size = New System.Drawing.Size(22, 13) - GUIDLabel2.TabIndex = 0 - GUIDLabel2.Text = "ID:" - ' - 'PROFILE_IDLabel1 - ' - PROFILE_IDLabel1.AutoSize = True - PROFILE_IDLabel1.Location = New System.Drawing.Point(15, 90) - PROFILE_IDLabel1.Name = "PROFILE_IDLabel1" - PROFILE_IDLabel1.Size = New System.Drawing.Size(49, 13) - PROFILE_IDLabel1.TabIndex = 2 - PROFILE_IDLabel1.Text = "Profil ID:" - ' - 'CONN_IDLabel1 - ' - CONN_IDLabel1.AutoSize = True - CONN_IDLabel1.Location = New System.Drawing.Point(15, 117) - CONN_IDLabel1.Name = "CONN_IDLabel1" - CONN_IDLabel1.Size = New System.Drawing.Size(79, 13) - CONN_IDLabel1.TabIndex = 4 - CONN_IDLabel1.Text = "Connection ID:" - ' - 'SQL_COMMANDLabel1 - ' - SQL_COMMANDLabel1.AutoSize = True - SQL_COMMANDLabel1.Location = New System.Drawing.Point(316, 41) - SQL_COMMANDLabel1.Name = "SQL_COMMANDLabel1" - SQL_COMMANDLabel1.Size = New System.Drawing.Size(79, 13) - SQL_COMMANDLabel1.TabIndex = 6 - SQL_COMMANDLabel1.Text = "SQL für Suche:" - ' - 'TAB_INDEXLabel1 - ' - TAB_INDEXLabel1.AutoSize = True - TAB_INDEXLabel1.Location = New System.Drawing.Point(15, 144) - TAB_INDEXLabel1.Name = "TAB_INDEXLabel1" - TAB_INDEXLabel1.Size = New System.Drawing.Size(69, 13) - TAB_INDEXLabel1.TabIndex = 8 - TAB_INDEXLabel1.Text = "Tab Position:" - ' - 'TAB_TITLELabel1 - ' - TAB_TITLELabel1.AutoSize = True - TAB_TITLELabel1.Location = New System.Drawing.Point(15, 171) - TAB_TITLELabel1.Name = "TAB_TITLELabel1" - TAB_TITLELabel1.Size = New System.Drawing.Size(52, 13) - TAB_TITLELabel1.TabIndex = 12 - TAB_TITLELabel1.Text = "Tab Titel:" - ' - 'ADDED_WHOLabel2 - ' - ADDED_WHOLabel2.AutoSize = True - ADDED_WHOLabel2.Location = New System.Drawing.Point(15, 198) - ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" - ADDED_WHOLabel2.Size = New System.Drawing.Size(67, 13) - ADDED_WHOLabel2.TabIndex = 14 - ADDED_WHOLabel2.Text = "Erstellt Wer:" - ' - 'ADDED_WHENLabel2 - ' - ADDED_WHENLabel2.AutoSize = True - ADDED_WHENLabel2.Location = New System.Drawing.Point(15, 226) - ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" - ADDED_WHENLabel2.Size = New System.Drawing.Size(75, 13) - ADDED_WHENLabel2.TabIndex = 16 - ADDED_WHENLabel2.Text = "Erstellt Wann:" - ' - 'CHANGED_WHOLabel2 - ' - CHANGED_WHOLabel2.AutoSize = True - CHANGED_WHOLabel2.Location = New System.Drawing.Point(15, 252) - CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" - CHANGED_WHOLabel2.Size = New System.Drawing.Size(79, 13) - CHANGED_WHOLabel2.TabIndex = 18 - CHANGED_WHOLabel2.Text = "Geändert Wer:" - ' - 'CHANGED_WHENLabel2 - ' - CHANGED_WHENLabel2.AutoSize = True - CHANGED_WHENLabel2.Location = New System.Drawing.Point(15, 280) - CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" - CHANGED_WHENLabel2.Size = New System.Drawing.Size(87, 13) - CHANGED_WHENLabel2.TabIndex = 20 - CHANGED_WHENLabel2.Text = "Geändert Wann:" - ' - 'Label7 - ' - Label7.AutoSize = True - Label7.Location = New System.Drawing.Point(316, 309) - Label7.Name = "Label7" - Label7.Size = New System.Drawing.Size(132, 13) - Label7.TabIndex = 6 - Label7.Text = "SQL für Ergebnis Zählung:" - ' - 'Label8 - ' - Label8.AutoSize = True - Label8.Location = New System.Drawing.Point(316, 309) - Label8.Name = "Label8" - Label8.Size = New System.Drawing.Size(132, 13) - Label8.TabIndex = 23 - Label8.Text = "SQL für Ergebnis Zählung:" - ' - 'Label12 - ' - Label12.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Label12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Label12.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Information_16xMD_color - Label12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Label12.Location = New System.Drawing.Point(681, 41) - Label12.Name = "Label12" - Label12.Size = New System.Drawing.Size(362, 13) - Label12.TabIndex = 24 - Label12.Text = "@CLIPBOARD wird mit dem aktuellen Inhalt der Zwischenablage ersetzt" - Label12.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label11 - ' - Label11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Label11.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Label11.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Information_16xMD_color - Label11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Label11.Location = New System.Drawing.Point(681, 313) - Label11.Name = "Label11" - Label11.Size = New System.Drawing.Size(362, 13) - Label11.TabIndex = 24 - Label11.Text = "@CLIPBOARD wird mit dem aktuellen Inhalt der Zwischenablage ersetzt" - Label11.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label4 - ' - Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Label4.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Information_16xMD_color - Label4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Label4.Location = New System.Drawing.Point(681, 41) - Label4.Name = "Label4" - Label4.Size = New System.Drawing.Size(362, 13) - Label4.TabIndex = 25 - Label4.Text = "@CLIPBOARD wird mit dem aktuellen Inhalt der Zwischenablage ersetzt" - Label4.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label3 - ' - Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Label3.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Information_16xMD_color - Label3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Label3.Location = New System.Drawing.Point(681, 313) - Label3.Name = "Label3" - Label3.Size = New System.Drawing.Size(362, 13) - Label3.TabIndex = 25 - Label3.Text = "@CLIPBOARD wird mit dem aktuellen Inhalt der Zwischenablage ersetzt" - Label3.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - '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(405, 146) - Me.btnaddSearch.Name = "btnaddSearch" - Me.btnaddSearch.Size = New System.Drawing.Size(28, 23) - Me.btnaddSearch.TabIndex = 19 - Me.btnaddSearch.Text = "..." - Me.btnaddSearch.UseVisualStyleBackColor = True - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(170, 268) - 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 - ' 'TBCW_PROFILESBindingSource ' Me.TBCW_PROFILESBindingSource.DataMember = "TBCW_PROFILES" @@ -680,106 +341,20 @@ Partial Class frmAdministration Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(17, 268) - 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 - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(170, 228) - 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 - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(17, 228) - 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 - ' - 'REGEX_EXPRESSIONTextBox - ' - Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) - Me.REGEX_EXPRESSIONTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.REGEX_EXPRESSIONTextBox.Location = New System.Drawing.Point(17, 188) - Me.REGEX_EXPRESSIONTextBox.Name = "REGEX_EXPRESSIONTextBox" - Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(416, 21) - Me.REGEX_EXPRESSIONTextBox.TabIndex = 3 - ' - 'WD_SEARCHTextBox - ' - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "WD_SEARCH", True)) - Me.WD_SEARCHTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(17, 148) - Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" - Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(380, 21) - Me.WD_SEARCHTextBox.TabIndex = 2 - ' - 'ACTIVECheckBox - ' - Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBCW_PROFILESBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox.Location = New System.Drawing.Point(321, 26) - Me.ACTIVECheckBox.Name = "ACTIVECheckBox" - Me.ACTIVECheckBox.Size = New System.Drawing.Size(112, 24) - Me.ACTIVECheckBox.TabIndex = 20 - Me.ACTIVECheckBox.Text = "Profil Aktiv" - Me.ACTIVECheckBox.UseVisualStyleBackColor = True - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) - Me.GUIDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GUIDTextBox.Location = New System.Drawing.Point(17, 28) - 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.TBCW_PROFILESBindingSource, "NAME", True)) - Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NAMETextBox.Location = New System.Drawing.Point(17, 68) - Me.NAMETextBox.Name = "NAMETextBox" - Me.NAMETextBox.Size = New System.Drawing.Size(416, 21) - Me.NAMETextBox.TabIndex = 0 - ' - 'COMMENTTextBox - ' - Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) - Me.COMMENTTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.COMMENTTextBox.Location = New System.Drawing.Point(17, 108) - Me.COMMENTTextBox.Name = "COMMENTTextBox" - Me.COMMENTTextBox.Size = New System.Drawing.Size(416, 21) - Me.COMMENTTextBox.TabIndex = 1 - ' 'GridControlProfiles ' Me.GridControlProfiles.DataSource = Me.TBCW_PROFILESBindingSource - Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0) Me.GridControlProfiles.MainView = Me.GridView1 Me.GridControlProfiles.Name = "GridControlProfiles" - Me.GridControlProfiles.Size = New System.Drawing.Size(225, 592) + Me.GridControlProfiles.Size = New System.Drawing.Size(159, 608) Me.GridControlProfiles.TabIndex = 18 Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' 'GridView1 ' - Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME}) Me.GridView1.GridControl = Me.GridControlProfiles @@ -835,22 +410,9 @@ Partial Class frmAdministration Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.statuslabel}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 742) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1378, 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;*.wdfx|Alle Dateien|*.*" @@ -865,1044 +427,128 @@ Partial Class frmAdministration ' Me.TimerTest.Interval = 1000 ' - 'lblLicenseDate + 'TBCW_PROF_DOC_SEARCHBindingSource ' - Me.lblLicenseDate.AutoSize = True - Me.lblLicenseDate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblLicenseDate.Location = New System.Drawing.Point(118, 39) - Me.lblLicenseDate.Name = "lblLicenseDate" - Me.lblLicenseDate.RightToLeft = System.Windows.Forms.RightToLeft.Yes - Me.lblLicenseDate.Size = New System.Drawing.Size(13, 13) - Me.lblLicenseDate.TabIndex = 7 - Me.lblLicenseDate.Text = "0" - ' - 'lbllicenseCount - ' - Me.lbllicenseCount.AutoSize = True - Me.lbllicenseCount.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lbllicenseCount.Location = New System.Drawing.Point(118, 17) - Me.lbllicenseCount.Name = "lbllicenseCount" - Me.lbllicenseCount.RightToLeft = System.Windows.Forms.RightToLeft.Yes - Me.lbllicenseCount.Size = New System.Drawing.Size(13, 13) - Me.lbllicenseCount.TabIndex = 6 - Me.lbllicenseCount.Text = "0" - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(6, 39) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(55, 13) - Me.Label6.TabIndex = 1 - Me.Label6.Text = "Gültigkeit:" - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(6, 17) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(106, 13) - Me.Label5.TabIndex = 0 - Me.Label5.Text = "Anzahl der Lizenzen:" - ' - 'GroupBox5 - ' - Me.GroupBox5.Controls.Add(Me.Label5) - Me.GroupBox5.Controls.Add(Me.lblLicenseDate) - Me.GroupBox5.Controls.Add(Me.Label6) - Me.GroupBox5.Controls.Add(Me.lbllicenseCount) - Me.GroupBox5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox5.Location = New System.Drawing.Point(11, 3) - Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(439, 103) - Me.GroupBox5.TabIndex = 24 - Me.GroupBox5.TabStop = False - Me.GroupBox5.Text = "Lizenzen" - ' - 'XtraTabControl2 - ' - Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl2.Location = New System.Drawing.Point(0, 122) - Me.XtraTabControl2.Name = "XtraTabControl2" - Me.XtraTabControl2.SelectedTabPage = Me.TabPageProfiles - Me.XtraTabControl2.Size = New System.Drawing.Size(1378, 620) - Me.XtraTabControl2.TabIndex = 25 - Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageProfiles, Me.TabPageBasicSettings}) - ' - 'TabPageProfiles - ' - Me.TabPageProfiles.Controls.Add(Me.XtraTabControl3) - Me.TabPageProfiles.Controls.Add(Me.GridControlProfiles) - Me.TabPageProfiles.Name = "TabPageProfiles" - Me.TabPageProfiles.Size = New System.Drawing.Size(1372, 592) - Me.TabPageProfiles.Text = "Profil Verwaltung" - ' - 'XtraTabControl3 - ' - Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl3.Location = New System.Drawing.Point(225, 0) - Me.XtraTabControl3.Name = "XtraTabControl3" - Me.XtraTabControl3.SelectedTabPage = Me.TabPageGeneralSettings - Me.XtraTabControl3.Size = New System.Drawing.Size(1147, 592) - Me.XtraTabControl3.TabIndex = 21 - Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageProcessAssignment, Me.TabPageUserAssignment, Me.TabPageGroupAssignment, Me.TabPageData, Me.TabPageDocuments}) - ' - 'TabPageGeneralSettings - ' - Me.TabPageGeneralSettings.AutoScroll = True - Me.TabPageGeneralSettings.Controls.Add(PROFILE_TYPELabel) - Me.TabPageGeneralSettings.Controls.Add(Me.PROFILE_TYPEComboBox) - Me.TabPageGeneralSettings.Controls.Add(Me.btnaddSearch) - Me.TabPageGeneralSettings.Controls.Add(Me.ACTIVECheckBox) - Me.TabPageGeneralSettings.Controls.Add(Me.CHANGED_WHENTextBox) - Me.TabPageGeneralSettings.Controls.Add(Me.CHANGED_WHOTextBox) - Me.TabPageGeneralSettings.Controls.Add(GUIDLabel) - Me.TabPageGeneralSettings.Controls.Add(CHANGED_WHENLabel) - Me.TabPageGeneralSettings.Controls.Add(Me.WD_SEARCHTextBox) - Me.TabPageGeneralSettings.Controls.Add(Me.GUIDTextBox) - Me.TabPageGeneralSettings.Controls.Add(Me.NAMETextBox) - Me.TabPageGeneralSettings.Controls.Add(REGEX_EXPRESSIONLabel) - Me.TabPageGeneralSettings.Controls.Add(NAMELabel) - Me.TabPageGeneralSettings.Controls.Add(CHANGED_WHOLabel) - Me.TabPageGeneralSettings.Controls.Add(COMMENTLabel) - Me.TabPageGeneralSettings.Controls.Add(WD_SEARCHLabel) - Me.TabPageGeneralSettings.Controls.Add(Me.COMMENTTextBox) - Me.TabPageGeneralSettings.Controls.Add(Me.ADDED_WHENTextBox) - Me.TabPageGeneralSettings.Controls.Add(Me.REGEX_EXPRESSIONTextBox) - Me.TabPageGeneralSettings.Controls.Add(ADDED_WHENLabel) - Me.TabPageGeneralSettings.Controls.Add(ADDED_WHOLabel) - Me.TabPageGeneralSettings.Controls.Add(Me.ADDED_WHOTextBox) - Me.TabPageGeneralSettings.Name = "TabPageGeneralSettings" - Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1141, 568) - Me.TabPageGeneralSettings.Text = "Allgemein" - ' - 'PROFILE_TYPEComboBox - ' - Me.PROFILE_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) - Me.PROFILE_TYPEComboBox.DataSource = Me.TBWH_PROFILE_TYPEBindingSource - Me.PROFILE_TYPEComboBox.DisplayMember = "TYPE_NAME" - Me.PROFILE_TYPEComboBox.FormattingEnabled = True - Me.PROFILE_TYPEComboBox.Location = New System.Drawing.Point(70, 28) - Me.PROFILE_TYPEComboBox.Name = "PROFILE_TYPEComboBox" - Me.PROFILE_TYPEComboBox.Size = New System.Drawing.Size(242, 21) - Me.PROFILE_TYPEComboBox.TabIndex = 21 - Me.PROFILE_TYPEComboBox.ValueMember = "TYPE_ID" - ' - 'TBWH_PROFILE_TYPEBindingSource - ' - Me.TBWH_PROFILE_TYPEBindingSource.DataMember = "TBWH_PROFILE_TYPE" - Me.TBWH_PROFILE_TYPEBindingSource.DataSource = Me.MyDataset - ' - 'TabPageProcessAssignment - ' - Me.TabPageProcessAssignment.Controls.Add(Me.CtrlApplicationAssignment1) - Me.TabPageProcessAssignment.Name = "TabPageProcessAssignment" - Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1141, 568) - Me.TabPageProcessAssignment.Text = "Anwendungs Zuordnung" - ' - 'CtrlApplicationAssignment1 - ' - Me.CtrlApplicationAssignment1.Dock = System.Windows.Forms.DockStyle.Fill - Me.CtrlApplicationAssignment1.Location = New System.Drawing.Point(0, 0) - Me.CtrlApplicationAssignment1.Name = "CtrlApplicationAssignment1" - Me.CtrlApplicationAssignment1.Size = New System.Drawing.Size(1141, 568) - Me.CtrlApplicationAssignment1.TabIndex = 2 - ' - 'TabPageUserAssignment - ' - Me.TabPageUserAssignment.Controls.Add(Me.SplitContainer1) - Me.TabPageUserAssignment.Name = "TabPageUserAssignment" - Me.TabPageUserAssignment.Size = New System.Drawing.Size(1141, 564) - Me.TabPageUserAssignment.Text = "Benutzer Zuordnung" - ' - 'SplitContainer1 - ' - Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) - Me.SplitContainer1.Name = "SplitContainer1" - Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal - ' - 'SplitContainer1.Panel1 - ' - Me.SplitContainer1.Panel1.Controls.Add(Me.GridControlUserInProfile) - Me.SplitContainer1.Panel1.Controls.Add(Me.Label1) - ' - 'SplitContainer1.Panel2 - ' - Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUserNotInProfile) - Me.SplitContainer1.Panel2.Controls.Add(Me.Label2) - Me.SplitContainer1.Size = New System.Drawing.Size(1141, 564) - Me.SplitContainer1.SplitterDistance = 280 - Me.SplitContainer1.TabIndex = 98 - ' - 'GridControlUserInProfile - ' - Me.GridControlUserInProfile.DataSource = Me.VWUSER_PROFILEBindingSource - Me.GridControlUserInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUserInProfile.Location = New System.Drawing.Point(0, 25) - Me.GridControlUserInProfile.MainView = Me.GridViewUserInProfile - Me.GridControlUserInProfile.Name = "GridControlUserInProfile" - Me.GridControlUserInProfile.Size = New System.Drawing.Size(1141, 255) - Me.GridControlUserInProfile.TabIndex = 93 - Me.GridControlUserInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserInProfile}) - ' - 'GridViewUserInProfile - ' - Me.GridViewUserInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua - Me.GridViewUserInProfile.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewUserInProfile.Appearance.HeaderPanel.BackColor = System.Drawing.Color.Gray - Me.GridViewUserInProfile.Appearance.HeaderPanel.ForeColor = System.Drawing.Color.Black - Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseBackColor = True - Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseBorderColor = True - Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseForeColor = True - Me.GridViewUserInProfile.Appearance.Row.ForeColor = System.Drawing.Color.Black - Me.GridViewUserInProfile.Appearance.Row.Options.UseForeColor = True - Me.GridViewUserInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) - Me.GridViewUserInProfile.GridControl = Me.GridControlUserInProfile - Me.GridViewUserInProfile.Name = "GridViewUserInProfile" - Me.GridViewUserInProfile.OptionsBehavior.Editable = False - Me.GridViewUserInProfile.OptionsView.ColumnAutoWidth = False - Me.GridViewUserInProfile.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewUserInProfile.OptionsView.ShowAutoFilterRow = True - Me.GridViewUserInProfile.OptionsView.ShowDetailButtons = False - Me.GridViewUserInProfile.OptionsView.ShowGroupPanel = False - Me.GridViewUserInProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewUserInProfile.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 - ' - 'Label1 - ' - Me.Label1.Dock = System.Windows.Forms.DockStyle.Top - Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(0, 0) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(1141, 25) - Me.Label1.TabIndex = 94 - Me.Label1.Text = "Zugeordnete Benutzer:" - Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GridControlUserNotInProfile - ' - Me.GridControlUserNotInProfile.DataSource = Me.TBWH_UserBindingSource - Me.GridControlUserNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUserNotInProfile.Location = New System.Drawing.Point(0, 25) - Me.GridControlUserNotInProfile.MainView = Me.GridViewUserNotInProfile - Me.GridControlUserNotInProfile.Name = "GridControlUserNotInProfile" - Me.GridControlUserNotInProfile.ShowOnlyPredefinedDetails = True - Me.GridControlUserNotInProfile.Size = New System.Drawing.Size(1141, 255) - Me.GridControlUserNotInProfile.TabIndex = 96 - Me.GridControlUserNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserNotInProfile}) - ' - 'GridViewUserNotInProfile - ' - Me.GridViewUserNotInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan - Me.GridViewUserNotInProfile.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewUserNotInProfile.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia - Me.GridViewUserNotInProfile.Appearance.FocusedRow.Options.UseBackColor = True - Me.GridViewUserNotInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn2, Me.GridColumn3, Me.colID}) - Me.GridViewUserNotInProfile.GridControl = Me.GridControlUserNotInProfile - Me.GridViewUserNotInProfile.Name = "GridViewUserNotInProfile" - Me.GridViewUserNotInProfile.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewUserNotInProfile.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewUserNotInProfile.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewUserNotInProfile.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewUserNotInProfile.OptionsView.ColumnAutoWidth = False - Me.GridViewUserNotInProfile.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewUserNotInProfile.OptionsView.ShowAutoFilterRow = True - Me.GridViewUserNotInProfile.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" - ' - 'Label2 - ' - Me.Label2.Dock = System.Windows.Forms.DockStyle.Top - Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(0, 0) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(1141, 25) - Me.Label2.TabIndex = 97 - Me.Label2.Text = "Nicht zugeordnete Benutzer:" - Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TabPageGroupAssignment - ' - Me.TabPageGroupAssignment.AutoScroll = True - Me.TabPageGroupAssignment.Controls.Add(Me.SplitContainer2) - Me.TabPageGroupAssignment.Name = "TabPageGroupAssignment" - Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1141, 564) - Me.TabPageGroupAssignment.Text = "Gruppen Zuordnung" - ' - 'SplitContainer2 - ' - Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer2.Location = New System.Drawing.Point(0, 0) - Me.SplitContainer2.Name = "SplitContainer2" - Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal - ' - 'SplitContainer2.Panel1 - ' - Me.SplitContainer2.Panel1.Controls.Add(Me.GridControlGroupInProfile) - Me.SplitContainer2.Panel1.Controls.Add(Me.Label9) - ' - 'SplitContainer2.Panel2 - ' - Me.SplitContainer2.Panel2.Controls.Add(Me.GridControlGroupNotInProfile) - Me.SplitContainer2.Panel2.Controls.Add(Me.Label10) - Me.SplitContainer2.Size = New System.Drawing.Size(1141, 564) - Me.SplitContainer2.SplitterDistance = 277 - Me.SplitContainer2.TabIndex = 0 - ' - 'GridControlGroupInProfile - ' - Me.GridControlGroupInProfile.DataSource = Me.VWCW_GROUP_PROFILEBindingSource - Me.GridControlGroupInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlGroupInProfile.Location = New System.Drawing.Point(0, 25) - Me.GridControlGroupInProfile.MainView = Me.GridViewGroupInProfile - Me.GridControlGroupInProfile.Name = "GridControlGroupInProfile" - Me.GridControlGroupInProfile.Size = New System.Drawing.Size(1141, 252) - Me.GridControlGroupInProfile.TabIndex = 1 - Me.GridControlGroupInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupInProfile}) - ' - 'VWCW_GROUP_PROFILEBindingSource - ' - Me.VWCW_GROUP_PROFILEBindingSource.DataMember = "VWCW_GROUP_PROFILE" - Me.VWCW_GROUP_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'GridViewGroupInProfile - ' - Me.GridViewGroupInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua - Me.GridViewGroupInProfile.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewGroupInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID3, Me.colNAME2}) - Me.GridViewGroupInProfile.GridControl = Me.GridControlGroupInProfile - Me.GridViewGroupInProfile.Name = "GridViewGroupInProfile" - Me.GridViewGroupInProfile.OptionsBehavior.Editable = False - Me.GridViewGroupInProfile.OptionsBehavior.ReadOnly = True - Me.GridViewGroupInProfile.OptionsSelection.MultiSelect = True - Me.GridViewGroupInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect - Me.GridViewGroupInProfile.OptionsView.ShowGroupPanel = False - ' - 'colGUID3 - ' - Me.colGUID3.Caption = "ID" - Me.colGUID3.FieldName = "GUID" - Me.colGUID3.MaxWidth = 40 - Me.colGUID3.MinWidth = 40 - Me.colGUID3.Name = "colGUID3" - Me.colGUID3.Visible = True - Me.colGUID3.VisibleIndex = 1 - Me.colGUID3.Width = 40 - ' - 'colNAME2 - ' - Me.colNAME2.Caption = "Gruppe" - Me.colNAME2.FieldName = "NAME" - Me.colNAME2.Name = "colNAME2" - Me.colNAME2.Visible = True - Me.colNAME2.VisibleIndex = 2 - Me.colNAME2.Width = 40 - ' - 'Label9 - ' - Me.Label9.Dock = System.Windows.Forms.DockStyle.Top - Me.Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(0, 0) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(1141, 25) - Me.Label9.TabIndex = 0 - Me.Label9.Text = "Zugeordnete Gruppen" - Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GridControlGroupNotInProfile - ' - Me.GridControlGroupNotInProfile.DataSource = Me.TBWH_GROUPBindingSource - Me.GridControlGroupNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlGroupNotInProfile.Location = New System.Drawing.Point(0, 25) - Me.GridControlGroupNotInProfile.MainView = Me.GridViewGroupNotInProfile - Me.GridControlGroupNotInProfile.Name = "GridControlGroupNotInProfile" - Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1141, 258) - Me.GridControlGroupNotInProfile.TabIndex = 1 - Me.GridControlGroupNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupNotInProfile}) - ' - 'TBWH_GROUPBindingSource - ' - Me.TBWH_GROUPBindingSource.DataMember = "TBWH_GROUP" - Me.TBWH_GROUPBindingSource.DataSource = Me.MyDataset - ' - 'GridViewGroupNotInProfile - ' - Me.GridViewGroupNotInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID1, Me.colNAME3}) - Me.GridViewGroupNotInProfile.GridControl = Me.GridControlGroupNotInProfile - Me.GridViewGroupNotInProfile.Name = "GridViewGroupNotInProfile" - Me.GridViewGroupNotInProfile.OptionsBehavior.Editable = False - Me.GridViewGroupNotInProfile.OptionsBehavior.ReadOnly = True - Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelect = True - Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect - Me.GridViewGroupNotInProfile.OptionsView.ShowGroupPanel = False - ' - 'colID1 - ' - Me.colID1.Caption = "ID" - Me.colID1.FieldName = "ID" - Me.colID1.MaxWidth = 40 - Me.colID1.MinWidth = 40 - Me.colID1.Name = "colID1" - Me.colID1.Visible = True - Me.colID1.VisibleIndex = 1 - Me.colID1.Width = 40 - ' - 'colNAME3 - ' - Me.colNAME3.Caption = "Gruppe" - Me.colNAME3.FieldName = "NAME" - Me.colNAME3.Name = "colNAME3" - Me.colNAME3.Visible = True - Me.colNAME3.VisibleIndex = 2 - ' - 'Label10 - ' - Me.Label10.Dock = System.Windows.Forms.DockStyle.Top - Me.Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(0, 0) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(1141, 25) - Me.Label10.TabIndex = 1 - Me.Label10.Text = "Nicht zugeordnete Gruppen:" - Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TabPageData - ' - Me.TabPageData.Controls.Add(Label3) - Me.TabPageData.Controls.Add(Label4) - Me.TabPageData.Controls.Add(Me.BindingNavigator1) - Me.TabPageData.Controls.Add(GUIDLabel1) - Me.TabPageData.Controls.Add(Me.GUIDTextBox1) - Me.TabPageData.Controls.Add(PROFILE_IDLabel) - Me.TabPageData.Controls.Add(Me.PROFILE_IDTextBox) - Me.TabPageData.Controls.Add(CONN_IDLabel) - Me.TabPageData.Controls.Add(Me.CONN_IDTextBox) - Me.TabPageData.Controls.Add(Label7) - Me.TabPageData.Controls.Add(SQL_COMMANDLabel) - Me.TabPageData.Controls.Add(Me.TextBox1) - Me.TabPageData.Controls.Add(Me.SQL_COMMANDTextBox) - Me.TabPageData.Controls.Add(TAB_INDEXLabel) - Me.TabPageData.Controls.Add(Me.TAB_INDEXTextBox) - Me.TabPageData.Controls.Add(Me.ACTIVECheckBox1) - Me.TabPageData.Controls.Add(TAB_TITLELabel) - Me.TabPageData.Controls.Add(Me.TAB_TITLETextBox) - Me.TabPageData.Controls.Add(ADDED_WHOLabel1) - Me.TabPageData.Controls.Add(Me.ADDED_WHOTextBox1) - Me.TabPageData.Controls.Add(ADDED_WHENLabel1) - Me.TabPageData.Controls.Add(Me.ADDED_WHENDateTimePicker) - Me.TabPageData.Controls.Add(CHANGED_WHOLabel1) - Me.TabPageData.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.TabPageData.Controls.Add(CHANGED_WHENLabel1) - Me.TabPageData.Controls.Add(Me.CHANGED_WHENDateTimePicker) - Me.TabPageData.Name = "TabPageData" - Me.TabPageData.Size = New System.Drawing.Size(1141, 564) - Me.TabPageData.Text = "Daten-Suchen" - ' - 'BindingNavigator1 - ' - Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem1 - Me.BindingNavigator1.BindingSource = Me.TBCW_PROF_DATA_SEARCHBindingSource - Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator1.CountItemFormat = "von {0} Daten-Suchen" - Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem1 - Me.BindingNavigator1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem1, Me.BindingNavigatorDeleteItem1, Me.ToolStripButton3}) - Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) - Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 - Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1 - Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem1 - Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 - Me.BindingNavigator1.Name = "BindingNavigator1" - Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem1 - Me.BindingNavigator1.Size = New System.Drawing.Size(1141, 25) - Me.BindingNavigator1.TabIndex = 22 - Me.BindingNavigator1.Text = "BindingNavigator1" - ' - 'BindingNavigatorAddNewItem1 - ' - Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" - Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH" + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.MyDataset ' 'TBCW_PROF_DATA_SEARCHBindingSource ' Me.TBCW_PROF_DATA_SEARCHBindingSource.DataMember = "TBCW_PROF_DATA_SEARCH" Me.TBCW_PROF_DATA_SEARCHBindingSource.DataSource = Me.MyDataset ' - 'BindingNavigatorCountItem1 - ' - Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(122, 22) - Me.BindingNavigatorCountItem1.Text = "von {0} Daten-Suchen" - Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." - ' - 'BindingNavigatorDeleteItem1 - ' - Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" - Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorDeleteItem1.Text = "Löschen" - ' - 'BindingNavigatorMoveFirstItem1 - ' - Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" - Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" - ' - 'BindingNavigatorMovePreviousItem1 - ' - Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" - Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" - ' - 'BindingNavigatorSeparator3 - ' - Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" - Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorPositionItem1 - ' - Me.BindingNavigatorPositionItem1.AccessibleName = "Position" - Me.BindingNavigatorPositionItem1.AutoSize = False - Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" - Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) - Me.BindingNavigatorPositionItem1.Text = "0" - Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" - ' - 'BindingNavigatorSeparator4 - ' - Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" - Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorMoveNextItem1 - ' - Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" - Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" - ' - 'BindingNavigatorMoveLastItem1 - ' - Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" - Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" - ' - 'BindingNavigatorSeparator5 - ' - Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" - Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) - ' - 'ToolStripButton3 - ' - Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) - Me.ToolStripButton3.Name = "ToolStripButton3" - Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) - Me.ToolStripButton3.Text = "Daten speichern" - ' - 'GUIDTextBox1 - ' - Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) - Me.GUIDTextBox1.Enabled = False - Me.GUIDTextBox1.Location = New System.Drawing.Point(113, 60) - Me.GUIDTextBox1.Name = "GUIDTextBox1" - Me.GUIDTextBox1.Size = New System.Drawing.Size(200, 21) - Me.GUIDTextBox1.TabIndex = 1 - ' - 'PROFILE_IDTextBox - ' - Me.PROFILE_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "PROFILE_ID", True)) - Me.PROFILE_IDTextBox.Enabled = False - Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(113, 87) - Me.PROFILE_IDTextBox.Name = "PROFILE_IDTextBox" - Me.PROFILE_IDTextBox.Size = New System.Drawing.Size(200, 21) - Me.PROFILE_IDTextBox.TabIndex = 3 - ' - 'CONN_IDTextBox - ' - Me.CONN_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True)) - Me.CONN_IDTextBox.Enabled = False - Me.CONN_IDTextBox.Location = New System.Drawing.Point(113, 114) - Me.CONN_IDTextBox.Name = "CONN_IDTextBox" - Me.CONN_IDTextBox.Size = New System.Drawing.Size(200, 21) - Me.CONN_IDTextBox.TabIndex = 5 - ' - 'TextBox1 - ' - Me.TextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True)) - Me.TextBox1.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TextBox1.Location = New System.Drawing.Point(319, 329) - Me.TextBox1.Multiline = True - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.TextBox1.Size = New System.Drawing.Size(724, 232) - Me.TextBox1.TabIndex = 7 - ' - 'SQL_COMMANDTextBox - ' - Me.SQL_COMMANDTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True)) - Me.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(319, 60) - Me.SQL_COMMANDTextBox.Multiline = True - Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" - Me.SQL_COMMANDTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(724, 237) - Me.SQL_COMMANDTextBox.TabIndex = 7 - ' - 'TAB_INDEXTextBox - ' - Me.TAB_INDEXTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) - Me.TAB_INDEXTextBox.Location = New System.Drawing.Point(113, 141) - Me.TAB_INDEXTextBox.Name = "TAB_INDEXTextBox" - Me.TAB_INDEXTextBox.Size = New System.Drawing.Size(200, 21) - Me.TAB_INDEXTextBox.TabIndex = 9 - ' - 'ACTIVECheckBox1 - ' - Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox1.Location = New System.Drawing.Point(18, 36) - Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" - Me.ACTIVECheckBox1.Size = New System.Drawing.Size(200, 24) - Me.ACTIVECheckBox1.TabIndex = 11 - Me.ACTIVECheckBox1.Text = "Suche Aktiv" - Me.ACTIVECheckBox1.UseVisualStyleBackColor = True - ' - 'TAB_TITLETextBox - ' - Me.TAB_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True)) - Me.TAB_TITLETextBox.Location = New System.Drawing.Point(113, 168) - Me.TAB_TITLETextBox.Name = "TAB_TITLETextBox" - Me.TAB_TITLETextBox.Size = New System.Drawing.Size(200, 21) - Me.TAB_TITLETextBox.TabIndex = 13 - ' - 'ADDED_WHOTextBox1 - ' - Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox1.Enabled = False - Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(113, 195) - Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" - Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(200, 21) - Me.ADDED_WHOTextBox1.TabIndex = 15 - ' - 'ADDED_WHENDateTimePicker - ' - Me.ADDED_WHENDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENDateTimePicker.Enabled = False - Me.ADDED_WHENDateTimePicker.Location = New System.Drawing.Point(113, 222) - Me.ADDED_WHENDateTimePicker.Name = "ADDED_WHENDateTimePicker" - Me.ADDED_WHENDateTimePicker.Size = New System.Drawing.Size(200, 21) - Me.ADDED_WHENDateTimePicker.TabIndex = 17 - ' - 'CHANGED_WHOTextBox1 - ' - Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox1.Enabled = False - Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(113, 249) - Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" - Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(200, 21) - Me.CHANGED_WHOTextBox1.TabIndex = 19 - ' - 'CHANGED_WHENDateTimePicker - ' - Me.CHANGED_WHENDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENDateTimePicker.Enabled = False - Me.CHANGED_WHENDateTimePicker.Location = New System.Drawing.Point(113, 276) - Me.CHANGED_WHENDateTimePicker.Name = "CHANGED_WHENDateTimePicker" - Me.CHANGED_WHENDateTimePicker.Size = New System.Drawing.Size(200, 21) - Me.CHANGED_WHENDateTimePicker.TabIndex = 21 - ' - 'TabPageDocuments - ' - Me.TabPageDocuments.Controls.Add(Label11) - Me.TabPageDocuments.Controls.Add(Label12) - Me.TabPageDocuments.Controls.Add(Label8) - Me.TabPageDocuments.Controls.Add(Me.BindingNavigator2) - Me.TabPageDocuments.Controls.Add(GUIDLabel2) - Me.TabPageDocuments.Controls.Add(Me.GUIDTextBox2) - Me.TabPageDocuments.Controls.Add(PROFILE_IDLabel1) - Me.TabPageDocuments.Controls.Add(Me.PROFILE_IDTextBox1) - Me.TabPageDocuments.Controls.Add(CONN_IDLabel1) - Me.TabPageDocuments.Controls.Add(Me.CONN_IDTextBox1) - Me.TabPageDocuments.Controls.Add(SQL_COMMANDLabel1) - Me.TabPageDocuments.Controls.Add(Me.TextBox2) - Me.TabPageDocuments.Controls.Add(Me.SQL_COMMANDTextBox1) - Me.TabPageDocuments.Controls.Add(TAB_INDEXLabel1) - Me.TabPageDocuments.Controls.Add(Me.TAB_INDEXTextBox1) - Me.TabPageDocuments.Controls.Add(Me.ACTIVECheckBox2) - Me.TabPageDocuments.Controls.Add(TAB_TITLELabel1) - Me.TabPageDocuments.Controls.Add(Me.TAB_TITLETextBox1) - Me.TabPageDocuments.Controls.Add(ADDED_WHOLabel2) - Me.TabPageDocuments.Controls.Add(Me.ADDED_WHOTextBox2) - Me.TabPageDocuments.Controls.Add(ADDED_WHENLabel2) - Me.TabPageDocuments.Controls.Add(Me.ADDED_WHENDateTimePicker1) - Me.TabPageDocuments.Controls.Add(CHANGED_WHOLabel2) - Me.TabPageDocuments.Controls.Add(Me.CHANGED_WHOTextBox2) - Me.TabPageDocuments.Controls.Add(CHANGED_WHENLabel2) - Me.TabPageDocuments.Controls.Add(Me.CHANGED_WHENDateTimePicker1) - Me.TabPageDocuments.Name = "TabPageDocuments" - Me.TabPageDocuments.Size = New System.Drawing.Size(1141, 564) - Me.TabPageDocuments.Text = "Dokument-Suchen" - ' - 'BindingNavigator2 - ' - Me.BindingNavigator2.AddNewItem = Me.BindingNavigatorAddNewItem2 - Me.BindingNavigator2.BindingSource = Me.TBCW_PROF_DOC_SEARCHBindingSource - Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem2 - Me.BindingNavigator2.CountItemFormat = "von {0} Dokument-Suchen" - Me.BindingNavigator2.DeleteItem = Me.BindingNavigatorDeleteItem2 - Me.BindingNavigator2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem2, Me.BindingNavigatorMovePreviousItem2, Me.BindingNavigatorSeparator6, Me.BindingNavigatorPositionItem2, Me.BindingNavigatorCountItem2, Me.BindingNavigatorSeparator7, Me.BindingNavigatorMoveNextItem2, Me.BindingNavigatorMoveLastItem2, Me.BindingNavigatorSeparator8, Me.BindingNavigatorAddNewItem2, Me.BindingNavigatorDeleteItem2, Me.ToolStripButton2}) - Me.BindingNavigator2.Location = New System.Drawing.Point(0, 0) - Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem2 - Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem2 - Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem2 - Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem2 - Me.BindingNavigator2.Name = "BindingNavigator2" - Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem2 - Me.BindingNavigator2.Size = New System.Drawing.Size(1141, 25) - Me.BindingNavigator2.TabIndex = 22 - Me.BindingNavigator2.Text = "BindingNavigator2" - ' - 'BindingNavigatorAddNewItem2 - ' - Me.BindingNavigatorAddNewItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorAddNewItem2.Image = CType(resources.GetObject("BindingNavigatorAddNewItem2.Image"), System.Drawing.Image) - Me.BindingNavigatorAddNewItem2.Name = "BindingNavigatorAddNewItem2" - Me.BindingNavigatorAddNewItem2.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorAddNewItem2.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorAddNewItem2.Text = "Neu hinzufügen" - ' - 'TBCW_PROF_DOC_SEARCHBindingSource - ' - Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH" - Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.MyDataset - ' - 'BindingNavigatorCountItem2 - ' - Me.BindingNavigatorCountItem2.Name = "BindingNavigatorCountItem2" - Me.BindingNavigatorCountItem2.Size = New System.Drawing.Size(147, 22) - Me.BindingNavigatorCountItem2.Text = "von {0} Dokument-Suchen" - Me.BindingNavigatorCountItem2.ToolTipText = "Die Gesamtanzahl der Elemente." - ' - 'BindingNavigatorDeleteItem2 - ' - Me.BindingNavigatorDeleteItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorDeleteItem2.Image = CType(resources.GetObject("BindingNavigatorDeleteItem2.Image"), System.Drawing.Image) - Me.BindingNavigatorDeleteItem2.Name = "BindingNavigatorDeleteItem2" - Me.BindingNavigatorDeleteItem2.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorDeleteItem2.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorDeleteItem2.Text = "Löschen" - ' - 'BindingNavigatorMoveFirstItem2 - ' - Me.BindingNavigatorMoveFirstItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveFirstItem2.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem2.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveFirstItem2.Name = "BindingNavigatorMoveFirstItem2" - Me.BindingNavigatorMoveFirstItem2.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveFirstItem2.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveFirstItem2.Text = "Erste verschieben" - ' - 'BindingNavigatorMovePreviousItem2 - ' - Me.BindingNavigatorMovePreviousItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMovePreviousItem2.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem2.Image"), System.Drawing.Image) - Me.BindingNavigatorMovePreviousItem2.Name = "BindingNavigatorMovePreviousItem2" - Me.BindingNavigatorMovePreviousItem2.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMovePreviousItem2.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMovePreviousItem2.Text = "Vorherige verschieben" - ' - 'BindingNavigatorSeparator6 - ' - Me.BindingNavigatorSeparator6.Name = "BindingNavigatorSeparator6" - Me.BindingNavigatorSeparator6.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorPositionItem2 - ' - Me.BindingNavigatorPositionItem2.AccessibleName = "Position" - Me.BindingNavigatorPositionItem2.AutoSize = False - Me.BindingNavigatorPositionItem2.Name = "BindingNavigatorPositionItem2" - Me.BindingNavigatorPositionItem2.Size = New System.Drawing.Size(50, 23) - Me.BindingNavigatorPositionItem2.Text = "0" - Me.BindingNavigatorPositionItem2.ToolTipText = "Aktuelle Position" - ' - 'BindingNavigatorSeparator7 - ' - Me.BindingNavigatorSeparator7.Name = "BindingNavigatorSeparator7" - Me.BindingNavigatorSeparator7.Size = New System.Drawing.Size(6, 25) - ' - 'BindingNavigatorMoveNextItem2 - ' - Me.BindingNavigatorMoveNextItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveNextItem2.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem2.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveNextItem2.Name = "BindingNavigatorMoveNextItem2" - Me.BindingNavigatorMoveNextItem2.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveNextItem2.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveNextItem2.Text = "Nächste verschieben" - ' - 'BindingNavigatorMoveLastItem2 - ' - Me.BindingNavigatorMoveLastItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorMoveLastItem2.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem2.Image"), System.Drawing.Image) - Me.BindingNavigatorMoveLastItem2.Name = "BindingNavigatorMoveLastItem2" - Me.BindingNavigatorMoveLastItem2.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorMoveLastItem2.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorMoveLastItem2.Text = "Letzte verschieben" - ' - 'BindingNavigatorSeparator8 - ' - Me.BindingNavigatorSeparator8.Name = "BindingNavigatorSeparator8" - Me.BindingNavigatorSeparator8.Size = New System.Drawing.Size(6, 25) - ' - 'ToolStripButton2 - ' - Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) - Me.ToolStripButton2.Name = "ToolStripButton2" - Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) - Me.ToolStripButton2.Text = "Daten speichern" - ' - 'GUIDTextBox2 - ' - Me.GUIDTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True)) - Me.GUIDTextBox2.Location = New System.Drawing.Point(113, 60) - Me.GUIDTextBox2.Name = "GUIDTextBox2" - Me.GUIDTextBox2.Size = New System.Drawing.Size(200, 21) - Me.GUIDTextBox2.TabIndex = 1 - ' - 'PROFILE_IDTextBox1 - ' - Me.PROFILE_IDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "PROFILE_ID", True)) - Me.PROFILE_IDTextBox1.Location = New System.Drawing.Point(113, 87) - Me.PROFILE_IDTextBox1.Name = "PROFILE_IDTextBox1" - Me.PROFILE_IDTextBox1.Size = New System.Drawing.Size(200, 21) - Me.PROFILE_IDTextBox1.TabIndex = 3 - ' - 'CONN_IDTextBox1 - ' - Me.CONN_IDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True)) - Me.CONN_IDTextBox1.Location = New System.Drawing.Point(113, 114) - Me.CONN_IDTextBox1.Name = "CONN_IDTextBox1" - Me.CONN_IDTextBox1.Size = New System.Drawing.Size(200, 21) - Me.CONN_IDTextBox1.TabIndex = 5 - ' - 'TextBox2 - ' - Me.TextBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "COUNT_COMMAND", True)) - Me.TextBox2.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TextBox2.Location = New System.Drawing.Point(319, 329) - Me.TextBox2.Multiline = True - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.TextBox2.Size = New System.Drawing.Size(724, 232) - Me.TextBox2.TabIndex = 7 - ' - 'SQL_COMMANDTextBox1 - ' - Me.SQL_COMMANDTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.SQL_COMMANDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True)) - Me.SQL_COMMANDTextBox1.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.SQL_COMMANDTextBox1.Location = New System.Drawing.Point(319, 60) - Me.SQL_COMMANDTextBox1.Multiline = True - Me.SQL_COMMANDTextBox1.Name = "SQL_COMMANDTextBox1" - Me.SQL_COMMANDTextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.SQL_COMMANDTextBox1.Size = New System.Drawing.Size(724, 237) - Me.SQL_COMMANDTextBox1.TabIndex = 7 - ' - 'TAB_INDEXTextBox1 - ' - Me.TAB_INDEXTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) - Me.TAB_INDEXTextBox1.Location = New System.Drawing.Point(113, 141) - Me.TAB_INDEXTextBox1.Name = "TAB_INDEXTextBox1" - Me.TAB_INDEXTextBox1.Size = New System.Drawing.Size(200, 21) - Me.TAB_INDEXTextBox1.TabIndex = 9 - ' - 'ACTIVECheckBox2 - ' - Me.ACTIVECheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox2.Location = New System.Drawing.Point(18, 36) - Me.ACTIVECheckBox2.Name = "ACTIVECheckBox2" - Me.ACTIVECheckBox2.Size = New System.Drawing.Size(200, 24) - Me.ACTIVECheckBox2.TabIndex = 11 - Me.ACTIVECheckBox2.Text = "Suche Aktiv" - Me.ACTIVECheckBox2.UseVisualStyleBackColor = True - ' - 'TAB_TITLETextBox1 - ' - Me.TAB_TITLETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True)) - Me.TAB_TITLETextBox1.Location = New System.Drawing.Point(113, 168) - Me.TAB_TITLETextBox1.Name = "TAB_TITLETextBox1" - Me.TAB_TITLETextBox1.Size = New System.Drawing.Size(200, 21) - Me.TAB_TITLETextBox1.TabIndex = 13 - ' - 'ADDED_WHOTextBox2 - ' - Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox2.Enabled = False - Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(113, 195) - Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" - Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(200, 21) - Me.ADDED_WHOTextBox2.TabIndex = 15 - ' - 'ADDED_WHENDateTimePicker1 - ' - Me.ADDED_WHENDateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENDateTimePicker1.Enabled = False - Me.ADDED_WHENDateTimePicker1.Location = New System.Drawing.Point(113, 222) - Me.ADDED_WHENDateTimePicker1.Name = "ADDED_WHENDateTimePicker1" - Me.ADDED_WHENDateTimePicker1.Size = New System.Drawing.Size(200, 21) - Me.ADDED_WHENDateTimePicker1.TabIndex = 17 - ' - 'CHANGED_WHOTextBox2 - ' - Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox2.Enabled = False - Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(113, 249) - Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" - Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(200, 21) - Me.CHANGED_WHOTextBox2.TabIndex = 19 - ' - 'CHANGED_WHENDateTimePicker1 - ' - Me.CHANGED_WHENDateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENDateTimePicker1.Enabled = False - Me.CHANGED_WHENDateTimePicker1.Location = New System.Drawing.Point(113, 276) - Me.CHANGED_WHENDateTimePicker1.Name = "CHANGED_WHENDateTimePicker1" - Me.CHANGED_WHENDateTimePicker1.Size = New System.Drawing.Size(200, 21) - Me.CHANGED_WHENDateTimePicker1.TabIndex = 21 - ' - 'TabPageBasicSettings - ' - Me.TabPageBasicSettings.Controls.Add(Me.GroupBox5) - Me.TabPageBasicSettings.Name = "TabPageBasicSettings" - Me.TabPageBasicSettings.Size = New System.Drawing.Size(1372, 596) - Me.TabPageBasicSettings.Text = "Grundeinstellungen" - ' - 'TBCW_PROF_DATA_SEARCHTableAdapter - ' - Me.TBCW_PROF_DATA_SEARCHTableAdapter.ClearBeforeFill = True - ' - 'TBCW_PROF_DOC_SEARCHTableAdapter - ' - Me.TBCW_PROF_DOC_SEARCHTableAdapter.ClearBeforeFill = True - ' - 'VWCW_GROUP_PROFILETableAdapter - ' - Me.VWCW_GROUP_PROFILETableAdapter.ClearBeforeFill = True + 'XtraTabControl3 + ' + Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl3.Name = "XtraTabControl3" + Me.XtraTabControl3.SelectedTabPage = Me.TabPageGeneralSettings + Me.XtraTabControl3.Size = New System.Drawing.Size(1193, 608) + Me.XtraTabControl3.TabIndex = 21 + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageData, Me.TabPageDocuments, Me.TabPageProcessAssignment, Me.TabPageUserAssignment, Me.TabPageGroupAssignment}) + ' + 'TabPageGeneralSettings + ' + Me.TabPageGeneralSettings.AutoScroll = True + Me.TabPageGeneralSettings.Controls.Add(Me.LayoutControl1) + Me.TabPageGeneralSettings.Name = "TabPageGeneralSettings" + Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1187, 580) + Me.TabPageGeneralSettings.Text = "Allgemein" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.textEdit3) + Me.LayoutControl1.Controls.Add(Me.textEdit4) + Me.LayoutControl1.Controls.Add(Me.textEdit5) + Me.LayoutControl1.Controls.Add(Me.CheckEdit1) + Me.LayoutControl1.Controls.Add(Me.textEdit2) + Me.LayoutControl1.Controls.Add(Me.TextEdit8) + Me.LayoutControl1.Controls.Add(Me.TextEdit7) + Me.LayoutControl1.Controls.Add(Me.CHANGEDWHOTextBox) + Me.LayoutControl1.Controls.Add(Me.TextEdit6) + Me.LayoutControl1.Controls.Add(Me.GUIDTextBox) + Me.LayoutControl1.Location = New System.Drawing.Point(3, 3) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1243, 199, 650, 400) + Me.LayoutControl1.Root = Me.LayoutControlGroup1 + Me.LayoutControl1.Size = New System.Drawing.Size(388, 318) + Me.LayoutControl1.TabIndex = 21 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'textEdit3 + ' + Me.textEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True)) + Me.textEdit3.Location = New System.Drawing.Point(12, 98) + Me.textEdit3.Name = "textEdit3" + Me.textEdit3.Size = New System.Drawing.Size(364, 20) + Me.textEdit3.StyleController = Me.LayoutControl1 + Me.textEdit3.TabIndex = 6 + ' + 'textEdit4 + ' + Me.textEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) + Me.textEdit4.Location = New System.Drawing.Point(12, 144) + Me.textEdit4.Name = "textEdit4" + Me.textEdit4.Size = New System.Drawing.Size(364, 20) + Me.textEdit4.StyleController = Me.LayoutControl1 + Me.textEdit4.TabIndex = 7 + ' + 'textEdit5 + ' + Me.textEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) + Me.textEdit5.Location = New System.Drawing.Point(12, 189) + Me.textEdit5.Name = "textEdit5" + Me.textEdit5.Size = New System.Drawing.Size(364, 20) + Me.textEdit5.StyleController = Me.LayoutControl1 + Me.textEdit5.TabIndex = 8 + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ACTIVE", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(12, 12) + Me.CheckEdit1.MenuManager = Me.RibbonControl2 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Profil Aktiv" + Me.CheckEdit1.Size = New System.Drawing.Size(180, 19) + Me.CheckEdit1.StyleController = Me.LayoutControl1 + Me.CheckEdit1.TabIndex = 10 ' 'RibbonControl2 ' + Me.RibbonControl2.ApplicationButtonDropDownControl = Me.ApplicationMenu1 Me.RibbonControl2.ExpandCollapseItem.Id = 0 - Me.RibbonControl2.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl2.ExpandCollapseItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14}) + Me.RibbonControl2.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl2.ExpandCollapseItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem15, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.labelStatus}) Me.RibbonControl2.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl2.MaxItemId = 15 + Me.RibbonControl2.MaxItemId = 8 Me.RibbonControl2.Name = "RibbonControl2" Me.RibbonControl2.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage2}) - Me.RibbonControl2.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl2.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide - Me.RibbonControl2.Size = New System.Drawing.Size(1378, 122) + Me.RibbonControl2.Size = New System.Drawing.Size(1357, 143) + Me.RibbonControl2.StatusBar = Me.RibbonStatusBar1 + ' + 'ApplicationMenu1 + ' + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem16) + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem17) + Me.ApplicationMenu1.Name = "ApplicationMenu1" + Me.ApplicationMenu1.Ribbon = Me.RibbonControl2 + ' + 'BarButtonItem16 + ' + Me.BarButtonItem16.Caption = "Datenbank Verbindungen" + Me.BarButtonItem16.Id = 16 + Me.BarButtonItem16.ImageOptions.Image = CType(resources.GetObject("BarButtonItem16.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem16.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem16.Name = "BarButtonItem16" + ' + 'BarButtonItem17 + ' + Me.BarButtonItem17.Caption = "Lizenz Informationen" + Me.BarButtonItem17.Id = 17 + Me.BarButtonItem17.ImageOptions.Image = CType(resources.GetObject("BarButtonItem17.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem17.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem17.Name = "BarButtonItem17" ' 'BarButtonItem1 ' @@ -2014,49 +660,1077 @@ Partial Class frmAdministration Me.BarButtonItem14.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItem14.Name = "BarButtonItem14" ' + 'BarButtonItem15 + ' + Me.BarButtonItem15.Caption = "Neue Suche" + Me.BarButtonItem15.Id = 1 + Me.BarButtonItem15.ImageOptions.Image = CType(resources.GetObject("BarButtonItem15.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem15.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem15.Name = "BarButtonItem15" + ' + 'BarButtonItem18 + ' + Me.BarButtonItem18.Caption = "Suche löschen" + Me.BarButtonItem18.Id = 2 + Me.BarButtonItem18.ImageOptions.Image = CType(resources.GetObject("BarButtonItem18.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem18.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem18.Name = "BarButtonItem18" + ' + 'BarButtonItem19 + ' + Me.BarButtonItem19.Caption = "Speichern" + Me.BarButtonItem19.Id = 3 + Me.BarButtonItem19.ImageOptions.Image = CType(resources.GetObject("BarButtonItem19.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem19.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem19.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem19.Name = "BarButtonItem19" + ' + 'BarButtonItem20 + ' + Me.BarButtonItem20.Caption = "Neue Suche" + Me.BarButtonItem20.Id = 4 + Me.BarButtonItem20.ImageOptions.Image = CType(resources.GetObject("BarButtonItem20.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem20.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem20.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem20.Name = "BarButtonItem20" + ' + 'BarButtonItem21 + ' + Me.BarButtonItem21.Caption = "Suche löschen" + Me.BarButtonItem21.Id = 5 + Me.BarButtonItem21.ImageOptions.Image = CType(resources.GetObject("BarButtonItem21.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem21.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem21.Name = "BarButtonItem21" + ' + 'BarButtonItem22 + ' + Me.BarButtonItem22.Caption = "Speichern" + Me.BarButtonItem22.Id = 6 + Me.BarButtonItem22.ImageOptions.Image = CType(resources.GetObject("BarButtonItem22.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem22.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem22.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem22.Name = "BarButtonItem22" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 7 + Me.labelStatus.ImageOptions.Image = CType(resources.GetObject("labelStatus.ImageOptions.Image"), System.Drawing.Image) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' 'RibbonPage2 ' - Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup6, Me.RibbonPageGroup7, Me.RibbonPageGroup2, Me.RibbonPageGroup1}) + Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroupProfile, Me.RibbonGroupDataSearch, Me.RibbonGroupDocSearch, Me.RibbonGroupProcess, Me.RibbonGroupWindow, Me.RibbonGroupUser, Me.RibbonGroupGroup}) Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' - 'RibbonPageGroup3 + 'RibbonGroupProfile ' - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3) - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem4) - Me.RibbonPageGroup3.Name = "RibbonPageGroup3" - Me.RibbonPageGroup3.Text = "Profil Verwaltung" + Me.RibbonGroupProfile.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonGroupProfile.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonGroupProfile.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonGroupProfile.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonGroupProfile.Name = "RibbonGroupProfile" + Me.RibbonGroupProfile.Text = "Profil Verwaltung" ' - 'RibbonPageGroup6 + 'RibbonGroupDataSearch ' - Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem5) - Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem6) - Me.RibbonPageGroup6.Name = "RibbonPageGroup6" - Me.RibbonPageGroup6.Text = "Prozess Zuordnung" + Me.RibbonGroupDataSearch.Enabled = False + Me.RibbonGroupDataSearch.ItemLinks.Add(Me.BarButtonItem20) + Me.RibbonGroupDataSearch.ItemLinks.Add(Me.BarButtonItem21) + Me.RibbonGroupDataSearch.ItemLinks.Add(Me.BarButtonItem22) + Me.RibbonGroupDataSearch.Name = "RibbonGroupDataSearch" + Me.RibbonGroupDataSearch.Text = "Daten-Suchen" ' - 'RibbonPageGroup7 + 'RibbonGroupDocSearch ' - Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem7) - Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem8) - Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem9) - Me.RibbonPageGroup7.Name = "RibbonPageGroup7" - Me.RibbonPageGroup7.Text = "Fenster Zuordnung" + Me.RibbonGroupDocSearch.Enabled = False + Me.RibbonGroupDocSearch.ItemLinks.Add(Me.BarButtonItem15) + Me.RibbonGroupDocSearch.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonGroupDocSearch.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonGroupDocSearch.Name = "RibbonGroupDocSearch" + Me.RibbonGroupDocSearch.Text = "Dokument-Suchen" ' - 'RibbonPageGroup2 + 'RibbonGroupProcess ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem11) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem12) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "Benutzer Zuordnung" + Me.RibbonGroupProcess.Enabled = False + Me.RibbonGroupProcess.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonGroupProcess.ItemLinks.Add(Me.BarButtonItem6) + Me.RibbonGroupProcess.Name = "RibbonGroupProcess" + Me.RibbonGroupProcess.Text = "Prozess Zuordnung" ' - 'RibbonPageGroup1 + 'RibbonGroupWindow ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem13) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem14) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "Gruppen Zuordnung" + Me.RibbonGroupWindow.Enabled = False + Me.RibbonGroupWindow.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonGroupWindow.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonGroupWindow.ItemLinks.Add(Me.BarButtonItem9) + Me.RibbonGroupWindow.Name = "RibbonGroupWindow" + Me.RibbonGroupWindow.Text = "Fenster Zuordnung" + ' + 'RibbonGroupUser + ' + Me.RibbonGroupUser.Enabled = False + Me.RibbonGroupUser.ItemLinks.Add(Me.BarButtonItem11) + Me.RibbonGroupUser.ItemLinks.Add(Me.BarButtonItem12) + Me.RibbonGroupUser.Name = "RibbonGroupUser" + Me.RibbonGroupUser.Text = "Benutzer Zuordnung" + ' + 'RibbonGroupGroup + ' + Me.RibbonGroupGroup.Enabled = False + Me.RibbonGroupGroup.ItemLinks.Add(Me.BarButtonItem13) + Me.RibbonGroupGroup.ItemLinks.Add(Me.BarButtonItem14) + Me.RibbonGroupGroup.Name = "RibbonGroupGroup" + Me.RibbonGroupGroup.Text = "Gruppen Zuordnung" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 751) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl2 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1357, 31) + ' + 'textEdit2 + ' + Me.textEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) + Me.textEdit2.Location = New System.Drawing.Point(12, 52) + Me.textEdit2.Name = "textEdit2" + Me.textEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.textEdit2.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("TYPE_NAME", "Profil Typ", 68, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])}) + Me.textEdit2.Properties.DataSource = Me.TBWH_PROFILE_TYPEBindingSource + Me.textEdit2.Properties.DisplayMember = "TYPE_NAME" + Me.textEdit2.Properties.NullText = "" + Me.textEdit2.Properties.PopupSizeable = False + Me.textEdit2.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard + Me.textEdit2.Properties.ValueMember = "TYPE_ID" + Me.textEdit2.Size = New System.Drawing.Size(364, 20) + Me.textEdit2.StyleController = Me.LayoutControl1 + Me.textEdit2.TabIndex = 5 + ' + 'TBWH_PROFILE_TYPEBindingSource + ' + Me.TBWH_PROFILE_TYPEBindingSource.DataMember = "TBWH_PROFILE_TYPE" + Me.TBWH_PROFILE_TYPEBindingSource.DataSource = Me.MyDataset + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) + Me.TextEdit8.Location = New System.Drawing.Point(12, 246) + Me.TextEdit8.Name = "TextEdit8" + Me.TextEdit8.Properties.ReadOnly = True + Me.TextEdit8.Size = New System.Drawing.Size(180, 20) + Me.TextEdit8.StyleController = Me.LayoutControl1 + Me.TextEdit8.TabIndex = 4 + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) + Me.TextEdit7.Location = New System.Drawing.Point(196, 246) + Me.TextEdit7.Name = "TextEdit7" + Me.TextEdit7.Properties.ReadOnly = True + Me.TextEdit7.Size = New System.Drawing.Size(180, 20) + Me.TextEdit7.StyleController = Me.LayoutControl1 + Me.TextEdit7.TabIndex = 5 + ' + 'CHANGEDWHOTextBox + ' + Me.CHANGEDWHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) + Me.CHANGEDWHOTextBox.Location = New System.Drawing.Point(12, 286) + Me.CHANGEDWHOTextBox.Name = "CHANGEDWHOTextBox" + Me.CHANGEDWHOTextBox.Properties.ReadOnly = True + Me.CHANGEDWHOTextBox.Size = New System.Drawing.Size(180, 20) + Me.CHANGEDWHOTextBox.StyleController = Me.LayoutControl1 + Me.CHANGEDWHOTextBox.TabIndex = 6 + ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit6.Location = New System.Drawing.Point(196, 286) + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Properties.ReadOnly = True + Me.TextEdit6.Size = New System.Drawing.Size(180, 20) + Me.TextEdit6.StyleController = Me.LayoutControl1 + Me.TextEdit6.TabIndex = 7 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(291, 12) + Me.GUIDTextBox.MenuManager = Me.RibbonControl2 + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(85, 20) + Me.GUIDTextBox.StyleController = Me.LayoutControl1 + Me.GUIDTextBox.TabIndex = 11 + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup1.GroupBordersVisible = False + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.layoutControlItem2, Me.layoutControlItem3, Me.layoutControlItem4, Me.layoutControlItem5, Me.LayoutControlItem7, Me.layoutControlItem1, Me.layoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.LayoutControlItem20}) + Me.LayoutControlGroup1.Name = "Root" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(388, 318) + Me.LayoutControlGroup1.TextVisible = False + ' + 'layoutControlItem2 + ' + Me.layoutControlItem2.Control = Me.textEdit2 + Me.layoutControlItem2.CustomizationFormText = "Profil Typ" + Me.layoutControlItem2.Location = New System.Drawing.Point(0, 24) + Me.layoutControlItem2.MinSize = New System.Drawing.Size(50, 25) + Me.layoutControlItem2.Name = "layoutControlItem2" + Me.layoutControlItem2.Size = New System.Drawing.Size(368, 46) + Me.layoutControlItem2.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom + Me.layoutControlItem2.Text = "Profil Typ" + Me.layoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top + Me.layoutControlItem2.TextSize = New System.Drawing.Size(92, 13) + ' + 'layoutControlItem3 + ' + Me.layoutControlItem3.Control = Me.textEdit3 + Me.layoutControlItem3.CustomizationFormText = "Name" + Me.layoutControlItem3.Location = New System.Drawing.Point(0, 70) + Me.layoutControlItem3.MaxSize = New System.Drawing.Size(404, 0) + Me.layoutControlItem3.MinSize = New System.Drawing.Size(116, 40) + Me.layoutControlItem3.Name = "layoutControlItem3" + Me.layoutControlItem3.Size = New System.Drawing.Size(368, 46) + Me.layoutControlItem3.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom + Me.layoutControlItem3.Text = "Name" + Me.layoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top + Me.layoutControlItem3.TextSize = New System.Drawing.Size(92, 13) + ' + 'layoutControlItem4 + ' + Me.layoutControlItem4.Control = Me.textEdit4 + Me.layoutControlItem4.CustomizationFormText = "Kommentar" + Me.layoutControlItem4.Location = New System.Drawing.Point(0, 116) + Me.layoutControlItem4.MaxSize = New System.Drawing.Size(404, 0) + Me.layoutControlItem4.MinSize = New System.Drawing.Size(116, 40) + Me.layoutControlItem4.Name = "layoutControlItem4" + Me.layoutControlItem4.Size = New System.Drawing.Size(368, 45) + Me.layoutControlItem4.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom + Me.layoutControlItem4.Text = "Kommentar" + Me.layoutControlItem4.TextLocation = DevExpress.Utils.Locations.Top + Me.layoutControlItem4.TextSize = New System.Drawing.Size(92, 13) + ' + 'layoutControlItem5 + ' + Me.layoutControlItem5.Control = Me.textEdit5 + Me.layoutControlItem5.CustomizationFormText = "Regular Expression" + Me.layoutControlItem5.Location = New System.Drawing.Point(0, 161) + Me.layoutControlItem5.MaxSize = New System.Drawing.Size(404, 0) + Me.layoutControlItem5.MinSize = New System.Drawing.Size(116, 40) + Me.layoutControlItem5.Name = "layoutControlItem5" + Me.layoutControlItem5.Size = New System.Drawing.Size(368, 57) + Me.layoutControlItem5.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom + Me.layoutControlItem5.Text = "Regular Expression" + Me.layoutControlItem5.TextLocation = DevExpress.Utils.Locations.Top + Me.layoutControlItem5.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.CheckEdit1 + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(184, 24) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'layoutControlItem1 + ' + Me.layoutControlItem1.Control = Me.TextEdit8 + Me.layoutControlItem1.CustomizationFormText = "layoutControlItem1" + Me.layoutControlItem1.Location = New System.Drawing.Point(0, 218) + Me.layoutControlItem1.Name = "layoutControlItem1" + Me.layoutControlItem1.Size = New System.Drawing.Size(184, 40) + Me.layoutControlItem1.Text = "Erstellt Wer" + Me.layoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top + Me.layoutControlItem1.TextSize = New System.Drawing.Size(92, 13) + ' + 'layoutControlItem6 + ' + Me.layoutControlItem6.Control = Me.TextEdit7 + Me.layoutControlItem6.CustomizationFormText = "layoutControlItem2" + Me.layoutControlItem6.Location = New System.Drawing.Point(184, 218) + Me.layoutControlItem6.Name = "layoutControlItem6" + Me.layoutControlItem6.Size = New System.Drawing.Size(184, 40) + Me.layoutControlItem6.Text = "Erstellt wann" + Me.layoutControlItem6.TextLocation = DevExpress.Utils.Locations.Top + Me.layoutControlItem6.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.CHANGEDWHOTextBox + Me.LayoutControlItem8.CustomizationFormText = "layoutControlItem3" + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 258) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Size = New System.Drawing.Size(184, 40) + Me.LayoutControlItem8.Text = "Geändert wer" + Me.LayoutControlItem8.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.TextEdit6 + Me.LayoutControlItem9.CustomizationFormText = "layoutControlItem4" + Me.LayoutControlItem9.Location = New System.Drawing.Point(184, 258) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Size = New System.Drawing.Size(184, 40) + Me.LayoutControlItem9.Text = "Geändert wann" + Me.LayoutControlItem9.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem20 + ' + Me.LayoutControlItem20.Control = Me.GUIDTextBox + Me.LayoutControlItem20.Location = New System.Drawing.Point(184, 0) + Me.LayoutControlItem20.Name = "LayoutControlItem20" + Me.LayoutControlItem20.Size = New System.Drawing.Size(184, 24) + Me.LayoutControlItem20.Text = "ID" + Me.LayoutControlItem20.TextSize = New System.Drawing.Size(92, 13) + ' + 'TabPageData + ' + Me.TabPageData.Controls.Add(Me.LayoutControl3) + Me.TabPageData.Controls.Add(Me.GridControl2) + Me.TabPageData.Name = "TabPageData" + Me.TabPageData.Size = New System.Drawing.Size(1187, 580) + Me.TabPageData.Text = "Daten-Suchen" + ' + 'LayoutControl3 + ' + Me.LayoutControl3.Controls.Add(Me.TextEdit12) + Me.LayoutControl3.Controls.Add(Me.TextEdit13) + Me.LayoutControl3.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.LayoutControl3.Controls.Add(Me.TextEdit11) + Me.LayoutControl3.Controls.Add(Me.CheckEdit2) + Me.LayoutControl3.Controls.Add(Me.TextEdit9) + Me.LayoutControl3.Controls.Add(Me.TextEdit10) + Me.LayoutControl3.Controls.Add(Me.ComboBoxEdit2) + Me.LayoutControl3.Controls.Add(Me.MemoEdit3) + Me.LayoutControl3.Controls.Add(Me.MemoEdit4) + Me.LayoutControl3.Controls.Add(Me.txtDATAGUID) + Me.LayoutControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl3.Location = New System.Drawing.Point(200, 0) + Me.LayoutControl3.Name = "LayoutControl3" + Me.LayoutControl3.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1013, 317, 650, 400) + Me.LayoutControl3.Root = Me.LayoutControlGroup3 + Me.LayoutControl3.Size = New System.Drawing.Size(987, 580) + Me.LayoutControl3.TabIndex = 26 + Me.LayoutControl3.Text = "LayoutControl3" + ' + 'TextEdit12 + ' + Me.TextEdit12.Location = New System.Drawing.Point(12, 124) + Me.TextEdit12.Name = "TextEdit12" + Me.TextEdit12.Properties.ReadOnly = True + Me.TextEdit12.Size = New System.Drawing.Size(178, 20) + Me.TextEdit12.StyleController = Me.LayoutControl3 + Me.TextEdit12.TabIndex = 4 + ' + 'TextEdit13 + ' + Me.TextEdit13.Location = New System.Drawing.Point(194, 124) + Me.TextEdit13.Name = "TextEdit13" + Me.TextEdit13.Properties.ReadOnly = True + Me.TextEdit13.Size = New System.Drawing.Size(186, 20) + Me.TextEdit13.StyleController = Me.LayoutControl3 + Me.TextEdit13.TabIndex = 5 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(12, 164) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.Properties.ReadOnly = True + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(178, 20) + Me.CHANGED_WHOTextBox1.StyleController = Me.LayoutControl3 + Me.CHANGED_WHOTextBox1.TabIndex = 6 + ' + 'TextEdit11 + ' + Me.TextEdit11.Location = New System.Drawing.Point(194, 164) + Me.TextEdit11.Name = "TextEdit11" + Me.TextEdit11.Properties.ReadOnly = True + Me.TextEdit11.Size = New System.Drawing.Size(186, 20) + Me.TextEdit11.StyleController = Me.LayoutControl3 + Me.TextEdit11.TabIndex = 7 + ' + 'CheckEdit2 + ' + Me.CheckEdit2.Location = New System.Drawing.Point(12, 12) + Me.CheckEdit2.MenuManager = Me.RibbonControl2 + Me.CheckEdit2.Name = "CheckEdit2" + Me.CheckEdit2.Properties.Caption = "Suche Aktiv" + Me.CheckEdit2.Size = New System.Drawing.Size(182, 19) + Me.CheckEdit2.StyleController = Me.LayoutControl3 + Me.CheckEdit2.TabIndex = 8 + ' + 'TextEdit9 + ' + Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TextEdit9.EditValue = "" + Me.TextEdit9.Location = New System.Drawing.Point(140, 36) + Me.TextEdit9.MenuManager = Me.RibbonControl2 + Me.TextEdit9.Name = "TextEdit9" + Me.TextEdit9.Size = New System.Drawing.Size(240, 20) + Me.TextEdit9.StyleController = Me.LayoutControl3 + Me.TextEdit9.TabIndex = 9 + ' + 'TextEdit10 + ' + Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) + Me.TextEdit10.Location = New System.Drawing.Point(140, 60) + Me.TextEdit10.MenuManager = Me.RibbonControl2 + Me.TextEdit10.Name = "TextEdit10" + Me.TextEdit10.Size = New System.Drawing.Size(240, 20) + Me.TextEdit10.StyleController = Me.LayoutControl3 + Me.TextEdit10.TabIndex = 10 + ' + 'ComboBoxEdit2 + ' + Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True)) + Me.ComboBoxEdit2.Location = New System.Drawing.Point(140, 84) + Me.ComboBoxEdit2.MenuManager = Me.RibbonControl2 + Me.ComboBoxEdit2.Name = "ComboBoxEdit2" + Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit2.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Verbindung", 80, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])}) + Me.ComboBoxEdit2.Properties.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.ComboBoxEdit2.Properties.DisplayMember = "BEZEICHNUNG" + Me.ComboBoxEdit2.Properties.NullText = "" + Me.ComboBoxEdit2.Properties.PopupSizeable = False + Me.ComboBoxEdit2.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard + Me.ComboBoxEdit2.Properties.ValueMember = "GUID" + Me.ComboBoxEdit2.Size = New System.Drawing.Size(240, 20) + Me.ComboBoxEdit2.StyleController = Me.LayoutControl3 + Me.ComboBoxEdit2.TabIndex = 11 + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset + ' + 'MemoEdit3 + ' + Me.MemoEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.MemoEdit3.Location = New System.Drawing.Point(384, 28) + Me.MemoEdit3.MenuManager = Me.RibbonControl2 + Me.MemoEdit3.Name = "MemoEdit3" + Me.MemoEdit3.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MemoEdit3.Properties.Appearance.Options.UseFont = True + Me.MemoEdit3.Size = New System.Drawing.Size(591, 233) + Me.MemoEdit3.StyleController = Me.LayoutControl3 + Me.MemoEdit3.TabIndex = 12 + ' + 'MemoEdit4 + ' + Me.MemoEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.MemoEdit4.Location = New System.Drawing.Point(384, 281) + Me.MemoEdit4.MenuManager = Me.RibbonControl2 + Me.MemoEdit4.Name = "MemoEdit4" + Me.MemoEdit4.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MemoEdit4.Properties.Appearance.Options.UseFont = True + Me.MemoEdit4.Size = New System.Drawing.Size(591, 287) + Me.MemoEdit4.StyleController = Me.LayoutControl3 + Me.MemoEdit4.TabIndex = 13 + ' + 'txtDATAGUID + ' + Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) + Me.txtDATAGUID.Location = New System.Drawing.Point(326, 12) + Me.txtDATAGUID.MenuManager = Me.RibbonControl2 + Me.txtDATAGUID.Name = "txtDATAGUID" + Me.txtDATAGUID.Size = New System.Drawing.Size(54, 20) + Me.txtDATAGUID.StyleController = Me.LayoutControl3 + Me.txtDATAGUID.TabIndex = 14 + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup3.GroupBordersVisible = False + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17, Me.LayoutControlItem16, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem21, Me.LayoutControlItem22, Me.EmptySpaceItem1, Me.LayoutControlItem23}) + Me.LayoutControlGroup3.Name = "Root" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(987, 580) + Me.LayoutControlGroup3.TextVisible = False + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.CheckEdit2 + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Size = New System.Drawing.Size(186, 24) + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem10.TextVisible = False + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.TextEdit12 + Me.LayoutControlItem14.CustomizationFormText = "layoutControlItem1" + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 96) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(182, 40) + Me.LayoutControlItem14.Text = "Erstellt wer:" + Me.LayoutControlItem14.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.Control = Me.TextEdit13 + Me.LayoutControlItem15.CustomizationFormText = "layoutControlItem2" + Me.LayoutControlItem15.Location = New System.Drawing.Point(182, 96) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Size = New System.Drawing.Size(190, 40) + Me.LayoutControlItem15.Text = "Erstellt wann:" + Me.LayoutControlItem15.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem17 + ' + Me.LayoutControlItem17.Control = Me.TextEdit11 + Me.LayoutControlItem17.CustomizationFormText = "layoutControlItem4" + Me.LayoutControlItem17.Location = New System.Drawing.Point(182, 136) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Size = New System.Drawing.Size(190, 40) + Me.LayoutControlItem17.Text = "Geändert wann:" + Me.LayoutControlItem17.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.CHANGED_WHOTextBox1 + Me.LayoutControlItem16.CustomizationFormText = "layoutControlItem3" + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 136) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Size = New System.Drawing.Size(182, 40) + Me.LayoutControlItem16.Text = "Geändert wer:" + Me.LayoutControlItem16.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.TextEdit9 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(372, 24) + Me.LayoutControlItem11.Text = "Titel:" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.TextEdit10 + Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Size = New System.Drawing.Size(372, 24) + Me.LayoutControlItem12.Text = "Position:" + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.ComboBoxEdit2 + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Size = New System.Drawing.Size(372, 24) + Me.LayoutControlItem13.Text = "Verbindung:" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem21 + ' + Me.LayoutControlItem21.Control = Me.MemoEdit3 + Me.LayoutControlItem21.Location = New System.Drawing.Point(372, 0) + Me.LayoutControlItem21.Name = "LayoutControlItem21" + Me.LayoutControlItem21.Size = New System.Drawing.Size(595, 253) + Me.LayoutControlItem21.Text = "SQL für Suche:" + Me.LayoutControlItem21.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem21.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem22 + ' + Me.LayoutControlItem22.Control = Me.MemoEdit4 + Me.LayoutControlItem22.Location = New System.Drawing.Point(372, 253) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Size = New System.Drawing.Size(595, 307) + Me.LayoutControlItem22.Text = "SQL für Ergebnis Zählung:" + Me.LayoutControlItem22.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem22.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem23 + ' + Me.LayoutControlItem23.Control = Me.txtDATAGUID + Me.LayoutControlItem23.Location = New System.Drawing.Point(186, 0) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Size = New System.Drawing.Size(186, 24) + Me.LayoutControlItem23.Text = "ID:" + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(125, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 176) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(372, 384) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'GridControl2 + ' + Me.GridControl2.DataSource = Me.TBCW_PROF_DATA_SEARCHBindingSource + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl2.Location = New System.Drawing.Point(0, 0) + Me.GridControl2.MainView = Me.GridView3 + Me.GridControl2.MenuManager = Me.RibbonControl2 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(200, 580) + Me.GridControl2.TabIndex = 10 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + ' + 'GridView3 + ' + Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE1}) + Me.GridView3.GridControl = Me.GridControl2 + Me.GridView3.Name = "GridView3" + Me.GridView3.OptionsBehavior.Editable = False + Me.GridView3.OptionsBehavior.ReadOnly = True + Me.GridView3.OptionsView.EnableAppearanceEvenRow = True + Me.GridView3.OptionsView.ShowAutoFilterRow = True + Me.GridView3.OptionsView.ShowGroupPanel = False + ' + 'colTAB_TITLE1 + ' + Me.colTAB_TITLE1.Caption = "Titel" + Me.colTAB_TITLE1.FieldName = "TAB_TITLE" + Me.colTAB_TITLE1.Name = "colTAB_TITLE1" + Me.colTAB_TITLE1.Visible = True + Me.colTAB_TITLE1.VisibleIndex = 0 + ' + 'TabPageDocuments + ' + Me.TabPageDocuments.Controls.Add(Me.LayoutControl2) + Me.TabPageDocuments.Controls.Add(Me.GridControl1) + Me.TabPageDocuments.Name = "TabPageDocuments" + Me.TabPageDocuments.Size = New System.Drawing.Size(1187, 580) + Me.TabPageDocuments.Text = "Dokument-Suchen" + ' + 'LayoutControl2 + ' + Me.LayoutControl2.Controls.Add(Me.CheckEdit3) + Me.LayoutControl2.Controls.Add(Me.TextEdit17) + Me.LayoutControl2.Controls.Add(Me.TextEdit15) + Me.LayoutControl2.Controls.Add(Me.TextEdit18) + Me.LayoutControl2.Controls.Add(Me.CHANGED_WHOTextBox2) + Me.LayoutControl2.Controls.Add(Me.TextEdit16) + Me.LayoutControl2.Controls.Add(Me.TextEdit19) + Me.LayoutControl2.Controls.Add(Me.LookUpEdit1) + Me.LayoutControl2.Controls.Add(Me.MemoEdit5) + Me.LayoutControl2.Controls.Add(Me.MemoEdit6) + Me.LayoutControl2.Controls.Add(Me.txtDOC_GUID) + Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl2.Location = New System.Drawing.Point(200, 0) + Me.LayoutControl2.Name = "LayoutControl2" + Me.LayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-854, 328, 650, 400) + Me.LayoutControl2.Root = Me.LayoutControlGroup2 + Me.LayoutControl2.Size = New System.Drawing.Size(987, 580) + Me.LayoutControl2.TabIndex = 24 + Me.LayoutControl2.Text = "LayoutControl2" + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem24, Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem31, Me.LayoutControlItem25, Me.LayoutControlItem27, Me.LayoutControlItem26, Me.LayoutControlItem28, Me.EmptySpaceItem2, Me.LayoutControlItem34, Me.LayoutControlItem33, Me.LayoutControlItem32}) + Me.LayoutControlGroup2.Name = "Root" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(987, 580) + Me.LayoutControlGroup2.TextVisible = False + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBCW_PROF_DOC_SEARCHBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView2 + Me.GridControl1.MenuManager = Me.RibbonControl2 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(200, 580) + Me.GridControl1.TabIndex = 10 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE}) + Me.GridView2.GridControl = Me.GridControl1 + Me.GridView2.Name = "GridView2" + Me.GridView2.OptionsBehavior.Editable = False + Me.GridView2.OptionsBehavior.ReadOnly = True + Me.GridView2.OptionsView.EnableAppearanceEvenRow = True + Me.GridView2.OptionsView.ShowGroupPanel = False + ' + 'colTAB_TITLE + ' + Me.colTAB_TITLE.Caption = "Titel" + Me.colTAB_TITLE.FieldName = "TAB_TITLE" + Me.colTAB_TITLE.Name = "colTAB_TITLE" + Me.colTAB_TITLE.Visible = True + Me.colTAB_TITLE.VisibleIndex = 0 + ' + 'TabPageProcessAssignment + ' + Me.TabPageProcessAssignment.Controls.Add(Me.CtrlApplicationAssignment1) + Me.TabPageProcessAssignment.Name = "TabPageProcessAssignment" + Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1187, 580) + Me.TabPageProcessAssignment.Text = "Anwendungs Zuordnung" + ' + 'CtrlApplicationAssignment1 + ' + Me.CtrlApplicationAssignment1.Dock = System.Windows.Forms.DockStyle.Fill + Me.CtrlApplicationAssignment1.Location = New System.Drawing.Point(0, 0) + Me.CtrlApplicationAssignment1.Name = "CtrlApplicationAssignment1" + Me.CtrlApplicationAssignment1.Size = New System.Drawing.Size(1187, 580) + Me.CtrlApplicationAssignment1.TabIndex = 2 + ' + 'TabPageUserAssignment + ' + Me.TabPageUserAssignment.Controls.Add(Me.SplitContainer1) + Me.TabPageUserAssignment.Name = "TabPageUserAssignment" + Me.TabPageUserAssignment.Size = New System.Drawing.Size(1187, 580) + Me.TabPageUserAssignment.Text = "Benutzer Zuordnung" + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.GridControlUserInProfile) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label1) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUserNotInProfile) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label2) + Me.SplitContainer1.Size = New System.Drawing.Size(1187, 580) + Me.SplitContainer1.SplitterDistance = 285 + Me.SplitContainer1.TabIndex = 98 + ' + 'GridControlUserInProfile + ' + Me.GridControlUserInProfile.DataSource = Me.VWUSER_PROFILEBindingSource + Me.GridControlUserInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlUserInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlUserInProfile.MainView = Me.GridViewUserInProfile + Me.GridControlUserInProfile.Name = "GridControlUserInProfile" + Me.GridControlUserInProfile.Size = New System.Drawing.Size(1187, 260) + Me.GridControlUserInProfile.TabIndex = 93 + Me.GridControlUserInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserInProfile}) + ' + 'GridViewUserInProfile + ' + Me.GridViewUserInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridViewUserInProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUserInProfile.Appearance.HeaderPanel.BackColor = System.Drawing.Color.Gray + Me.GridViewUserInProfile.Appearance.HeaderPanel.ForeColor = System.Drawing.Color.Black + Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseBackColor = True + Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseBorderColor = True + Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseForeColor = True + Me.GridViewUserInProfile.Appearance.Row.ForeColor = System.Drawing.Color.Black + Me.GridViewUserInProfile.Appearance.Row.Options.UseForeColor = True + Me.GridViewUserInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) + Me.GridViewUserInProfile.GridControl = Me.GridControlUserInProfile + Me.GridViewUserInProfile.Name = "GridViewUserInProfile" + Me.GridViewUserInProfile.OptionsBehavior.Editable = False + Me.GridViewUserInProfile.OptionsSelection.MultiSelect = True + Me.GridViewUserInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.GridViewUserInProfile.OptionsView.ColumnAutoWidth = False + Me.GridViewUserInProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUserInProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewUserInProfile.OptionsView.ShowDetailButtons = False + Me.GridViewUserInProfile.OptionsView.ShowGroupPanel = False + Me.GridViewUserInProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] + Me.GridViewUserInProfile.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] + ' + 'colGUID1 + ' + Me.colGUID1.Caption = "ID" + Me.colGUID1.FieldName = "GUID" + Me.colGUID1.Name = "colGUID1" + 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 + ' + 'Label1 + ' + Me.Label1.Dock = System.Windows.Forms.DockStyle.Top + Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(0, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(1187, 25) + Me.Label1.TabIndex = 94 + Me.Label1.Text = "Zugeordnete Benutzer:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GridControlUserNotInProfile + ' + Me.GridControlUserNotInProfile.DataSource = Me.TBWH_UserBindingSource + Me.GridControlUserNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlUserNotInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlUserNotInProfile.MainView = Me.GridViewUserNotInProfile + Me.GridControlUserNotInProfile.Name = "GridControlUserNotInProfile" + Me.GridControlUserNotInProfile.ShowOnlyPredefinedDetails = True + Me.GridControlUserNotInProfile.Size = New System.Drawing.Size(1187, 266) + Me.GridControlUserNotInProfile.TabIndex = 96 + Me.GridControlUserNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserNotInProfile}) + ' + 'GridViewUserNotInProfile + ' + Me.GridViewUserNotInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridViewUserNotInProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUserNotInProfile.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia + Me.GridViewUserNotInProfile.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewUserNotInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSurname, Me.GridColumn2, Me.GridColumn3, Me.colID}) + Me.GridViewUserNotInProfile.GridControl = Me.GridControlUserNotInProfile + Me.GridViewUserNotInProfile.Name = "GridViewUserNotInProfile" + Me.GridViewUserNotInProfile.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserNotInProfile.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserNotInProfile.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserNotInProfile.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUserNotInProfile.OptionsSelection.MultiSelect = True + Me.GridViewUserNotInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.GridViewUserNotInProfile.OptionsView.ColumnAutoWidth = False + Me.GridViewUserNotInProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUserNotInProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewUserNotInProfile.OptionsView.ShowGroupPanel = False + ' + '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" + ' + 'Label2 + ' + Me.Label2.Dock = System.Windows.Forms.DockStyle.Top + Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(0, 0) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(1187, 25) + Me.Label2.TabIndex = 97 + Me.Label2.Text = "Nicht zugeordnete Benutzer:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TabPageGroupAssignment + ' + Me.TabPageGroupAssignment.AutoScroll = True + Me.TabPageGroupAssignment.Controls.Add(Me.SplitContainer2) + Me.TabPageGroupAssignment.Name = "TabPageGroupAssignment" + Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1187, 580) + Me.TabPageGroupAssignment.Text = "Gruppen Zuordnung" + ' + 'SplitContainer2 + ' + Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer2.Name = "SplitContainer2" + Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer2.Panel1 + ' + Me.SplitContainer2.Panel1.Controls.Add(Me.GridControlGroupInProfile) + Me.SplitContainer2.Panel1.Controls.Add(Me.Label9) + ' + 'SplitContainer2.Panel2 + ' + Me.SplitContainer2.Panel2.Controls.Add(Me.GridControlGroupNotInProfile) + Me.SplitContainer2.Panel2.Controls.Add(Me.Label10) + Me.SplitContainer2.Size = New System.Drawing.Size(1187, 580) + Me.SplitContainer2.SplitterDistance = 282 + Me.SplitContainer2.TabIndex = 0 + ' + 'GridControlGroupInProfile + ' + Me.GridControlGroupInProfile.DataSource = Me.VWCW_GROUP_PROFILEBindingSource + Me.GridControlGroupInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlGroupInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlGroupInProfile.MainView = Me.GridViewGroupInProfile + Me.GridControlGroupInProfile.Name = "GridControlGroupInProfile" + Me.GridControlGroupInProfile.Size = New System.Drawing.Size(1187, 257) + Me.GridControlGroupInProfile.TabIndex = 1 + Me.GridControlGroupInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupInProfile}) + ' + 'VWCW_GROUP_PROFILEBindingSource + ' + Me.VWCW_GROUP_PROFILEBindingSource.DataMember = "VWCW_GROUP_PROFILE" + Me.VWCW_GROUP_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'GridViewGroupInProfile + ' + Me.GridViewGroupInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridViewGroupInProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewGroupInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID3, Me.colNAME2}) + Me.GridViewGroupInProfile.GridControl = Me.GridControlGroupInProfile + Me.GridViewGroupInProfile.Name = "GridViewGroupInProfile" + Me.GridViewGroupInProfile.OptionsBehavior.Editable = False + Me.GridViewGroupInProfile.OptionsBehavior.ReadOnly = True + Me.GridViewGroupInProfile.OptionsSelection.MultiSelect = True + Me.GridViewGroupInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.GridViewGroupInProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewGroupInProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewGroupInProfile.OptionsView.ShowGroupPanel = False + ' + 'colGUID3 + ' + Me.colGUID3.Caption = "ID" + Me.colGUID3.FieldName = "GUID" + Me.colGUID3.MaxWidth = 40 + Me.colGUID3.MinWidth = 40 + Me.colGUID3.Name = "colGUID3" + Me.colGUID3.Visible = True + Me.colGUID3.VisibleIndex = 1 + Me.colGUID3.Width = 40 + ' + 'colNAME2 + ' + Me.colNAME2.Caption = "Gruppe" + Me.colNAME2.FieldName = "NAME" + Me.colNAME2.Name = "colNAME2" + Me.colNAME2.Visible = True + Me.colNAME2.VisibleIndex = 2 + Me.colNAME2.Width = 40 + ' + 'Label9 + ' + Me.Label9.Dock = System.Windows.Forms.DockStyle.Top + Me.Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(0, 0) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(1187, 25) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "Zugeordnete Gruppen" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GridControlGroupNotInProfile + ' + Me.GridControlGroupNotInProfile.DataSource = Me.TBWH_GROUPBindingSource + Me.GridControlGroupNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlGroupNotInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlGroupNotInProfile.MainView = Me.GridViewGroupNotInProfile + Me.GridControlGroupNotInProfile.Name = "GridControlGroupNotInProfile" + Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1187, 269) + Me.GridControlGroupNotInProfile.TabIndex = 1 + Me.GridControlGroupNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupNotInProfile}) + ' + 'TBWH_GROUPBindingSource + ' + Me.TBWH_GROUPBindingSource.DataMember = "TBWH_GROUP" + Me.TBWH_GROUPBindingSource.DataSource = Me.MyDataset + ' + 'GridViewGroupNotInProfile + ' + Me.GridViewGroupNotInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GridViewGroupNotInProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewGroupNotInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID1, Me.colNAME3}) + Me.GridViewGroupNotInProfile.GridControl = Me.GridControlGroupNotInProfile + Me.GridViewGroupNotInProfile.Name = "GridViewGroupNotInProfile" + Me.GridViewGroupNotInProfile.OptionsBehavior.Editable = False + Me.GridViewGroupNotInProfile.OptionsBehavior.ReadOnly = True + Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelect = True + Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.GridViewGroupNotInProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewGroupNotInProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewGroupNotInProfile.OptionsView.ShowGroupPanel = False + ' + 'colID1 + ' + Me.colID1.Caption = "ID" + Me.colID1.FieldName = "ID" + Me.colID1.MaxWidth = 40 + Me.colID1.MinWidth = 40 + Me.colID1.Name = "colID1" + Me.colID1.Visible = True + Me.colID1.VisibleIndex = 1 + Me.colID1.Width = 40 + ' + 'colNAME3 + ' + Me.colNAME3.Caption = "Gruppe" + Me.colNAME3.FieldName = "NAME" + Me.colNAME3.Name = "colNAME3" + Me.colNAME3.Visible = True + Me.colNAME3.VisibleIndex = 2 + ' + 'Label10 + ' + Me.Label10.Dock = System.Windows.Forms.DockStyle.Top + Me.Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(0, 0) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(1187, 25) + Me.Label10.TabIndex = 1 + Me.Label10.Text = "Nicht zugeordnete Gruppen:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TBCW_PROF_DATA_SEARCHTableAdapter + ' + Me.TBCW_PROF_DATA_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'TBCW_PROF_DOC_SEARCHTableAdapter + ' + Me.TBCW_PROF_DOC_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'VWCW_GROUP_PROFILETableAdapter + ' + Me.VWCW_GROUP_PROFILETableAdapter.ClearBeforeFill = True ' 'RibbonPageGroup4 ' @@ -2068,39 +1742,403 @@ Partial Class frmAdministration Me.RibbonPageGroup5.Name = "RibbonPageGroup5" Me.RibbonPageGroup5.Text = "Prozess Zuordnung" ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 143) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlProfiles) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl3) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1357, 608) + Me.SplitContainerControl1.SplitterPosition = 159 + Me.SplitContainerControl1.TabIndex = 27 + Me.SplitContainerControl1.Text = "SplitContainerControl1" + ' + 'MemoEdit1 + ' + Me.MemoEdit1.Location = New System.Drawing.Point(511, 14) + Me.MemoEdit1.MenuManager = Me.RibbonControl2 + Me.MemoEdit1.Name = "MemoEdit1" + Me.MemoEdit1.Size = New System.Drawing.Size(171, 99) + Me.MemoEdit1.TabIndex = 9 + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.Control = Me.MemoEdit1 + Me.LayoutControlItem18.Location = New System.Drawing.Point(394, 2) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Size = New System.Drawing.Size(280, 103) + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(102, 13) + ' + 'MemoEdit2 + ' + Me.MemoEdit2.Location = New System.Drawing.Point(117, 117) + Me.MemoEdit2.MenuManager = Me.RibbonControl2 + Me.MemoEdit2.Name = "MemoEdit2" + Me.MemoEdit2.Size = New System.Drawing.Size(565, 16) + Me.MemoEdit2.TabIndex = 10 + ' + 'LayoutControlItem19 + ' + Me.LayoutControlItem19.Control = Me.MemoEdit2 + Me.LayoutControlItem19.Location = New System.Drawing.Point(0, 105) + Me.LayoutControlItem19.Name = "LayoutControlItem19" + Me.LayoutControlItem19.Size = New System.Drawing.Size(674, 20) + Me.LayoutControlItem19.TextSize = New System.Drawing.Size(102, 13) + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.Location = New System.Drawing.Point(117, 218) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl2 + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(236, 20) + Me.ComboBoxEdit1.TabIndex = 14 + ' + 'SimpleSeparator1 + ' + Me.SimpleSeparator1.AllowHotTrack = False + Me.SimpleSeparator1.Location = New System.Drawing.Point(394, 0) + Me.SimpleSeparator1.Name = "SimpleSeparator1" + Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2) + ' + 'LookUpEdit1 + ' + Me.LookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True)) + Me.LookUpEdit1.Location = New System.Drawing.Point(140, 84) + Me.LookUpEdit1.Name = "LookUpEdit1" + Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.LookUpEdit1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Verbindung", 80, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])}) + Me.LookUpEdit1.Properties.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.LookUpEdit1.Properties.DisplayMember = "BEZEICHNUNG" + Me.LookUpEdit1.Properties.NullText = "" + Me.LookUpEdit1.Properties.PopupSizeable = False + Me.LookUpEdit1.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard + Me.LookUpEdit1.Properties.ValueMember = "GUID" + Me.LookUpEdit1.Size = New System.Drawing.Size(163, 20) + Me.LookUpEdit1.StyleController = Me.LayoutControl2 + Me.LookUpEdit1.TabIndex = 11 + ' + 'txtDOC_GUID + ' + Me.txtDOC_GUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True)) + Me.txtDOC_GUID.Location = New System.Drawing.Point(222, 12) + Me.txtDOC_GUID.Name = "txtDOC_GUID" + Me.txtDOC_GUID.Size = New System.Drawing.Size(81, 20) + Me.txtDOC_GUID.StyleController = Me.LayoutControl2 + Me.txtDOC_GUID.TabIndex = 14 + ' + 'CHANGED_WHOTextBox2 + ' + Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(159, 164) + Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" + Me.CHANGED_WHOTextBox2.Properties.ReadOnly = True + Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(144, 20) + Me.CHANGED_WHOTextBox2.StyleController = Me.LayoutControl2 + Me.CHANGED_WHOTextBox2.TabIndex = 6 + ' + 'TextEdit15 + ' + Me.TextEdit15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.TextEdit15.Location = New System.Drawing.Point(159, 124) + Me.TextEdit15.Name = "TextEdit15" + Me.TextEdit15.Properties.ReadOnly = True + Me.TextEdit15.Size = New System.Drawing.Size(144, 20) + Me.TextEdit15.StyleController = Me.LayoutControl2 + Me.TextEdit15.TabIndex = 5 + ' + 'TextEdit16 + ' + Me.TextEdit16.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TextEdit16.EditValue = "" + Me.TextEdit16.Location = New System.Drawing.Point(140, 36) + Me.TextEdit16.Name = "TextEdit16" + Me.TextEdit16.Size = New System.Drawing.Size(163, 20) + Me.TextEdit16.StyleController = Me.LayoutControl2 + Me.TextEdit16.TabIndex = 9 + ' + 'MemoEdit5 + ' + Me.MemoEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.MemoEdit5.Location = New System.Drawing.Point(307, 28) + Me.MemoEdit5.Name = "MemoEdit5" + Me.MemoEdit5.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MemoEdit5.Properties.Appearance.Options.UseFont = True + Me.MemoEdit5.Size = New System.Drawing.Size(668, 242) + Me.MemoEdit5.StyleController = Me.LayoutControl2 + Me.MemoEdit5.TabIndex = 12 + ' + 'MemoEdit6 + ' + Me.MemoEdit6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.MemoEdit6.Location = New System.Drawing.Point(307, 290) + Me.MemoEdit6.Name = "MemoEdit6" + Me.MemoEdit6.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MemoEdit6.Properties.Appearance.Options.UseFont = True + Me.MemoEdit6.Size = New System.Drawing.Size(668, 278) + Me.MemoEdit6.StyleController = Me.LayoutControl2 + Me.MemoEdit6.TabIndex = 13 + ' + 'TextEdit17 + ' + Me.TextEdit17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True)) + Me.TextEdit17.Location = New System.Drawing.Point(12, 124) + Me.TextEdit17.Name = "TextEdit17" + Me.TextEdit17.Properties.ReadOnly = True + Me.TextEdit17.Size = New System.Drawing.Size(143, 20) + Me.TextEdit17.StyleController = Me.LayoutControl2 + Me.TextEdit17.TabIndex = 4 + ' + 'TextEdit18 + ' + Me.TextEdit18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit18.Location = New System.Drawing.Point(12, 164) + Me.TextEdit18.Name = "TextEdit18" + Me.TextEdit18.Properties.ReadOnly = True + Me.TextEdit18.Size = New System.Drawing.Size(143, 20) + Me.TextEdit18.StyleController = Me.LayoutControl2 + Me.TextEdit18.TabIndex = 7 + ' + 'TextEdit19 + ' + Me.TextEdit19.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) + Me.TextEdit19.Location = New System.Drawing.Point(140, 60) + Me.TextEdit19.Name = "TextEdit19" + Me.TextEdit19.Size = New System.Drawing.Size(163, 20) + Me.TextEdit19.StyleController = Me.LayoutControl2 + Me.TextEdit19.TabIndex = 10 + ' + 'CheckEdit3 + ' + Me.CheckEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ACTIVE", True)) + Me.CheckEdit3.Location = New System.Drawing.Point(12, 12) + Me.CheckEdit3.Name = "CheckEdit3" + Me.CheckEdit3.Properties.Caption = "Suche Aktiv" + Me.CheckEdit3.Size = New System.Drawing.Size(78, 19) + Me.CheckEdit3.StyleController = Me.LayoutControl2 + Me.CheckEdit3.TabIndex = 8 + ' + 'LayoutControlItem24 + ' + Me.LayoutControlItem24.Control = Me.CheckEdit3 + Me.LayoutControlItem24.CustomizationFormText = "LayoutControlItem10" + Me.LayoutControlItem24.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem24.Name = "LayoutControlItem24" + Me.LayoutControlItem24.Size = New System.Drawing.Size(82, 24) + Me.LayoutControlItem24.Text = "LayoutControlItem10" + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem24.TextVisible = False + ' + 'LayoutControlItem25 + ' + Me.LayoutControlItem25.Control = Me.TextEdit17 + Me.LayoutControlItem25.CustomizationFormText = "layoutControlItem1" + Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 96) + Me.LayoutControlItem25.Name = "LayoutControlItem25" + Me.LayoutControlItem25.Size = New System.Drawing.Size(147, 40) + Me.LayoutControlItem25.Text = "Erstellt wer:" + Me.LayoutControlItem25.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem25.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem26 + ' + Me.LayoutControlItem26.Control = Me.TextEdit15 + Me.LayoutControlItem26.CustomizationFormText = "layoutControlItem2" + Me.LayoutControlItem26.Location = New System.Drawing.Point(147, 96) + Me.LayoutControlItem26.Name = "LayoutControlItem26" + Me.LayoutControlItem26.Size = New System.Drawing.Size(148, 40) + Me.LayoutControlItem26.Text = "Erstellt wann:" + Me.LayoutControlItem26.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem26.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem27 + ' + Me.LayoutControlItem27.Control = Me.TextEdit18 + Me.LayoutControlItem27.CustomizationFormText = "layoutControlItem4" + Me.LayoutControlItem27.Location = New System.Drawing.Point(0, 136) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Size = New System.Drawing.Size(147, 40) + Me.LayoutControlItem27.Text = "Geändert wann:" + Me.LayoutControlItem27.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem28 + ' + Me.LayoutControlItem28.Control = Me.CHANGED_WHOTextBox2 + Me.LayoutControlItem28.CustomizationFormText = "layoutControlItem3" + Me.LayoutControlItem28.Location = New System.Drawing.Point(147, 136) + Me.LayoutControlItem28.Name = "LayoutControlItem28" + Me.LayoutControlItem28.Size = New System.Drawing.Size(148, 40) + Me.LayoutControlItem28.Text = "Geändert wer:" + Me.LayoutControlItem28.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem28.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem29 + ' + Me.LayoutControlItem29.Control = Me.TextEdit16 + Me.LayoutControlItem29.CustomizationFormText = "Titel:" + Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Size = New System.Drawing.Size(295, 24) + Me.LayoutControlItem29.Text = "Titel:" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem30 + ' + Me.LayoutControlItem30.Control = Me.TextEdit19 + Me.LayoutControlItem30.CustomizationFormText = "Position:" + Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Size = New System.Drawing.Size(295, 24) + Me.LayoutControlItem30.Text = "Position:" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem31 + ' + Me.LayoutControlItem31.Control = Me.LookUpEdit1 + Me.LayoutControlItem31.CustomizationFormText = "Verbindung:" + Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Size = New System.Drawing.Size(295, 24) + Me.LayoutControlItem31.Text = "Verbindung:" + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem32 + ' + Me.LayoutControlItem32.Control = Me.MemoEdit5 + Me.LayoutControlItem32.CustomizationFormText = "SQL für Suche:" + Me.LayoutControlItem32.Location = New System.Drawing.Point(295, 0) + Me.LayoutControlItem32.Name = "LayoutControlItem32" + Me.LayoutControlItem32.Size = New System.Drawing.Size(672, 262) + Me.LayoutControlItem32.Text = "SQL für Suche:" + Me.LayoutControlItem32.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem32.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem33 + ' + Me.LayoutControlItem33.Control = Me.MemoEdit6 + Me.LayoutControlItem33.CustomizationFormText = "SQL für Ergebnis Zählung:" + Me.LayoutControlItem33.Location = New System.Drawing.Point(295, 262) + Me.LayoutControlItem33.Name = "LayoutControlItem33" + Me.LayoutControlItem33.Size = New System.Drawing.Size(672, 298) + Me.LayoutControlItem33.Text = "SQL für Ergebnis Zählung:" + Me.LayoutControlItem33.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem33.TextSize = New System.Drawing.Size(125, 13) + ' + 'LayoutControlItem34 + ' + Me.LayoutControlItem34.Control = Me.txtDOC_GUID + Me.LayoutControlItem34.CustomizationFormText = "ID:" + Me.LayoutControlItem34.Location = New System.Drawing.Point(82, 0) + Me.LayoutControlItem34.Name = "LayoutControlItem34" + Me.LayoutControlItem34.Size = New System.Drawing.Size(213, 24) + Me.LayoutControlItem34.Text = "ID:" + Me.LayoutControlItem34.TextSize = New System.Drawing.Size(125, 13) + ' + 'EmptySpaceItem2 + ' + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 176) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(295, 384) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + ' 'frmAdministration ' Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1378, 764) - Me.Controls.Add(Me.XtraTabControl2) - Me.Controls.Add(Me.StatusStrip1) + Me.ClientSize = New System.Drawing.Size(1357, 782) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl2) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmAdministration" Me.Ribbon = Me.RibbonControl2 Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Administration" + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Clipboard Watcher - Administration" CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() - CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl2.ResumeLayout(False) - Me.TabPageProfiles.ResumeLayout(False) + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl3.ResumeLayout(False) Me.TabPageGeneralSettings.ResumeLayout(False) - Me.TabPageGeneralSettings.PerformLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.textEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.textEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.textEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.textEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGEDWHOTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GUIDTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.layoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.layoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.layoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPageData.ResumeLayout(False) + CType(Me.LayoutControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl3.ResumeLayout(False) + CType(Me.TextEdit12.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit13.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOTextBox1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDATAGUID.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPageDocuments.ResumeLayout(False) + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl2.ResumeLayout(False) + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageProcessAssignment.ResumeLayout(False) Me.TabPageUserAssignment.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) @@ -2122,20 +2160,37 @@ Partial Class frmAdministration CType(Me.GridControlGroupNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewGroupNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPageData.ResumeLayout(False) - Me.TabPageData.PerformLayout() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator1.ResumeLayout(False) - Me.BindingNavigator1.PerformLayout() - CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPageDocuments.ResumeLayout(False) - Me.TabPageDocuments.PerformLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator2.ResumeLayout(False) - Me.BindingNavigator2.PerformLayout() - CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPageBasicSettings.ResumeLayout(False) - CType(Me.RibbonControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOTextBox2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit15.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit16.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit17.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit18.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit19.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -2144,38 +2199,17 @@ Partial Class frmAdministration Friend WithEvents TBCW_PROFILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBCW_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter Friend WithEvents TableAdapterManager As DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager - Friend WithEvents 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 GridControlProfiles 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 VWUSER_PROFILEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWUSER_PROFILETableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter Friend WithEvents TimerTest As System.Windows.Forms.Timer Friend WithEvents TBWH_UserBindingSource As System.Windows.Forms.BindingSource Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker - Friend WithEvents lblLicenseDate As Label - Friend WithEvents lbllicenseCount As Label - Friend WithEvents Label6 As Label - Friend WithEvents Label5 As Label Friend WithEvents ToolTip1 As ToolTip - Friend WithEvents ACTIVECheckBox As CheckBox - Friend WithEvents GroupBox5 As GroupBox - Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents TabPageProfiles As DevExpress.XtraTab.XtraTabPage - Friend WithEvents TabPageBasicSettings As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl Friend WithEvents TabPageGeneralSettings As DevExpress.XtraTab.XtraTabPage Friend WithEvents TabPageProcessAssignment As DevExpress.XtraTab.XtraTabPage @@ -2190,69 +2224,17 @@ Partial Class frmAdministration Friend WithEvents Label1 As Label Friend WithEvents GridControlUserNotInProfile As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewUserNotInProfile 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 Label2 As Label - Friend WithEvents PROFILE_TYPEComboBox As ComboBox Friend WithEvents TabPageData As DevExpress.XtraTab.XtraTabPage Friend WithEvents TBCW_PROF_DATA_SEARCHBindingSource As BindingSource Friend WithEvents TBCW_PROF_DATA_SEARCHTableAdapter As MyDatasetTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter - Friend WithEvents BindingNavigator1 As BindingNavigator - Friend WithEvents BindingNavigatorAddNewItem1 As ToolStripButton - Friend WithEvents BindingNavigatorCountItem1 As ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem1 As ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem1 As ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem1 As ToolStripButton - Friend WithEvents BindingNavigatorSeparator3 As ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem1 As ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator4 As ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem1 As ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem1 As ToolStripButton - Friend WithEvents BindingNavigatorSeparator5 As ToolStripSeparator - Friend WithEvents GUIDTextBox1 As TextBox - Friend WithEvents PROFILE_IDTextBox As TextBox - Friend WithEvents CONN_IDTextBox As TextBox - Friend WithEvents SQL_COMMANDTextBox As TextBox - Friend WithEvents TAB_INDEXTextBox As TextBox - Friend WithEvents ACTIVECheckBox1 As CheckBox - Friend WithEvents TAB_TITLETextBox As TextBox - Friend WithEvents ADDED_WHOTextBox1 As TextBox - Friend WithEvents ADDED_WHENDateTimePicker As DateTimePicker - Friend WithEvents CHANGED_WHOTextBox1 As TextBox - Friend WithEvents CHANGED_WHENDateTimePicker As DateTimePicker - Friend WithEvents ToolStripButton3 As ToolStripButton Friend WithEvents TabPageDocuments As DevExpress.XtraTab.XtraTabPage Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource Friend WithEvents TBCW_PROF_DOC_SEARCHTableAdapter As MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter - Friend WithEvents GUIDTextBox2 As TextBox - Friend WithEvents PROFILE_IDTextBox1 As TextBox - Friend WithEvents CONN_IDTextBox1 As TextBox - Friend WithEvents SQL_COMMANDTextBox1 As TextBox - Friend WithEvents TAB_INDEXTextBox1 As TextBox - Friend WithEvents ACTIVECheckBox2 As CheckBox - Friend WithEvents TAB_TITLETextBox1 As TextBox - Friend WithEvents ADDED_WHOTextBox2 As TextBox - Friend WithEvents ADDED_WHENDateTimePicker1 As DateTimePicker - Friend WithEvents CHANGED_WHOTextBox2 As TextBox - Friend WithEvents CHANGED_WHENDateTimePicker1 As DateTimePicker - Friend WithEvents BindingNavigator2 As BindingNavigator - Friend WithEvents BindingNavigatorAddNewItem2 As ToolStripButton - Friend WithEvents BindingNavigatorCountItem2 As ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem2 As ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem2 As ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem2 As ToolStripButton - Friend WithEvents BindingNavigatorSeparator6 As ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem2 As ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator7 As ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem2 As ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem2 As ToolStripButton - Friend WithEvents BindingNavigatorSeparator8 As ToolStripSeparator - Friend WithEvents ToolStripButton2 As ToolStripButton - Friend WithEvents TextBox1 As TextBox - Friend WithEvents TextBox2 As TextBox Friend WithEvents TabPageGroupAssignment As DevExpress.XtraTab.XtraTabPage Friend WithEvents SplitContainer2 As SplitContainer Friend WithEvents GridControlGroupInProfile As DevExpress.XtraGrid.GridControl @@ -2276,21 +2258,121 @@ Partial Class frmAdministration Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupProfile As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupProcess As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPageGroup7 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupWindow As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupUser As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupGroup As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu + Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TBDD_CONNECTIONBindingSource As BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTAB_TITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem22 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonGroupDocSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTAB_TITLE1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RibbonGroupDataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents textEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents textEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents textEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents textEdit2 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents layoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents layoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents layoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents layoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGEDWHOTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents layoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents layoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents LayoutControl2 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControl3 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit12 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit13 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHOTextBox1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem17 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents MemoEdit1 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents MemoEdit2 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator + Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit10 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ComboBoxEdit2 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GUIDTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem20 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents MemoEdit3 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents MemoEdit4 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents txtDATAGUID As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents CheckEdit3 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents TextEdit17 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit15 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit18 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHOTextBox2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit16 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit19 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents MemoEdit5 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents MemoEdit6 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents txtDOC_GUID As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem24 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem26 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem27 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem28 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem29 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem30 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem31 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem32 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem33 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem34 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index a2c1bb1..f60968b 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -117,123 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - 355, 17 - - 355, 17 - - - 245, 17 - 245, 17 @@ -249,9 +135,6 @@ 789, 17 - - 1198, 17 - 1315, 17 @@ -267,188 +150,74 @@ 1234, 56 - - 579, 95 - - - 1284, 95 - - - 751, 134 - - - 751, 134 - - - 227, 134 - - - 17, 134 - - - 579, 95 - - - - - 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== - - - - 17, 95 - - - - 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+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+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 1284, 95 - - - - 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== - - 733, 95 - - - 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+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+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 301, 95 + + 17, 95 - - 1011, 95 - - - 492, 134 + + 997, 134 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAtdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz + b3VyY2U7RGF0YWJhc2U7RWRpdCj2upwAAADNSURBVDhPrZOxDcIwEEUzAAVdpqBJpOyQIgtQUDIAHR1i + DJSWHTIANTMwgQsWMP9fsHU5GScIiicryf/PyiUuvPeCux3IGmzBBdzBU8Fr3udz5qSnBRW4Ar8A5ior + 6FVgCb0VOBOYw/1d8PMrNOCbITZWsActyH3GDjArWAFn8AAs78AGrBQlc915qIF/U2tBbgYnU44SLfg0 + A1uOu3PVgtQMjgilylGiBakZZMtg9j+gIIQnZXawTgSpwxQEWiLllIDY46wFQSLFkaF4AT8rvvl6+7Su + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAtdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz + b3VyY2U7RGF0YWJhc2U7RWRpdCj2upwAAAGlSURBVFhHxZUxTsNAEEVT0CPRcQMKCiQoqBGUkGtQIqoU + IAWOQMdNkGgo0iKUjktAE6QUSCz/ITtydmZDvF7FxZOc2fn/TxyPMwgh9Ipb3CRucZO4xc/JdZNtcSKu + xKN4Fu/iQ3xXcE2NM3roRYN24eVlucVKsC9uxasImaDFAy83yy2qeSimwjPNAa+hl2UKUAk8oy5MvSxT + ADXPInEJZl6WKYCa55G4BHMvyxSA5khcglYD9P4T9P4Q9r6GI3EhSr2I8Bp5WaYAauYZeBN34lTkvorR + 4oFX9hp+iRfxIC7FmdgTO2KrgmtqnNFDLxq0tU/va3jjZZkCqPknEndlfH7/NBCHIlRwnRyg5AZ44Ysh + UgOUWsM43AyRGqDEGqa++dLn1ABd1/BY5qnbDos7khqgyxoeyXhVeA3nxddw1QPX5C8cUgPk/Bu2DofU + AG03YIyuMvdCa5bC0ZhwkGGbNcwKB3QmHGQK665hVjiQZcIB04pdcSBYxdQaYlaHxMF13YQDWSY8B5k1 + w9YKB7TGLAeZxaH/hgNaY5aDzJoDrBUOIYTBL0gqUmOSnmecAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAfdEVYdFRpdGxlAEN1cnJlbmN5O0RvbGxhcjtCdWNr + O0V1cm/480WPAAABg0lEQVQ4T33SzyvDYQDH8YUMmab8C5xJSfkR+QOcRElxnCgUFyuhJOxgK1JuDg6c + ttBmpLiNHOQiOTiJzMGPLcW8P+t56rsxh9f2fZ7n83y2Z89cybMJqw1hJPGBBHwogTOXwz6M4QsZPOEE + 92a8j1LkbLT00oJvKLwFN2rRbOYkgF+bRS8RKPSGKsybsY5hC1Lw4M8CnVmhLjPpRTWuYQukc2p73ZVP + G9SuwDQ0XsMGnqGjhc/j/uGFnWAvGzrgyS84hwpC0HgQi7g9jc0METpExiGNZbiRLdBV2a/ZhAZsHkdn + +wk8wm68RMgxjqJYBcWIQgUPGEUdizFHeAJeFKHPzIlPBaKrW0EamYu4f8QRuoHOG8QkrmDXErbA0lV1 + LO2u9jhC79A3qkE3XmHXUvkF9tfVldmQfGAOlajHJzSfLFSgq0qZkN73cIABaP0OWosUKpCACenTG1GG + coxD899o/a+gAkdQWBJYMs/arJvJ/g8KFUgJfLiAjvKCCNrB+rrrB+GDZXDkfIceAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAfdEVYdFRpdGxlAEN1cnJlbmN5O0RvbGxhcjtCdWNr + O0V1cm/480WPAAADBklEQVRYR8XWO2gUURTG8dVADD5QC23ECJbiCwQbBStFwQh5NomIjY2dYBpNoYUQ + LSzioxRBYpE0KYNpFCEWEUU0IQRMMMHOgAmSB+r6/5Y5cufmzMy6Cha/ZLlzzrlnZ++9M6X5l1c89ehA + P6axgkVMJGPtUIyXW7VyuVzyLjRjCuUCimmBV6MqcQN16IU3WR7lKDesVZW4gVomN8oNa1UlbKANXmH5 + iJvoxCVoDXhxqpGaoIg1oMU0C6+oJmtAmNgIL3YOf7QwrQF9M6/gOKxgF95iDHfgxYviUpPksQYG4BXT + 7db1E/iZjBUZRGqSPNbADOJCZ2C3fjv2JjQex4ZUKzVJHmtgGXGha7DAc9DdkBuIY0Mr3U8flqplDSxE + RWQE1sBdPEuMIo6dx32cRaM3URZrYBJx0QOwBn4nJOMWs4Rbr0eu7+RaB/oxDd2FRUwkY+2oR2pyyVuE + H3AUut4ErX7RuK7r+bCfIs2YQrmAYlrgNpC1DXVbdV2LcTgZ+4GhT8+791CgF95keZRTh1QDWQfRKo6h + Esz/XdiUJOdN/gBbo7GQclMNiB6vcQPyDT3Qb6/tqN+yLSkU+4rHOAnFXcUTaE3EsaqRakBuw2vCfBkb + 6dlB4mxQyLyCFmPlm0XeIY6fQ33cgB6pffAml3skdQZFQoegyU7jMjZjCBcwDi+nK27AtMJ7IWkiaSAq + YuzbatKiNWAGsxoQLUztDp3t2nJakLtJmomKmCNQA9ugNVBNAzN5DaQQbJaT5NgbaGta3DrocNJh5MXL + Si0NLCTJniU8wmFY/BaMwouvqYHJJDmP1oAW4Xko5yC8uJp+gqxF+D74bIvwBZSzEWGsyV2EKQSbrG14 + HPugLajnQwNOQTn67+VkbsM1CDY64byD6CLWI4wV7Q4vXgfRhloaED1e44LyGcNQM7rt+gm+w4tVjTVH + cSYFR27DKyxFB5FyK3X+pgE9UvvgTZBHx/max3EhS3C0otoXksoTMPQvGhAtTO2OQeiVbDWhzxrTtexX + Mv35f8qlX/mA3Bh8eSxTAAAAAElFTkSuQmCC + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -749,8 +518,180 @@ 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU + OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL + MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE + UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C + DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU + WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY + 9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g + Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE + fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH + D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA + 9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO + xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF + h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ + AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y + BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ + ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa + I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e + hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv + kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM + zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV + ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 + hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I + 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j + +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU + ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft + l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB + OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo + mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi + J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA + PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU + OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL + MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE + UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C + DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU + WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY + 9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g + Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE + fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH + D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA + 9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO + xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF + h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ + AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y + BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ + ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa + I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e + hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv + kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM + zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV + ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 + hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I + 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j + +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU + ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft + l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB + OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo + mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi + J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA + PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAahJREFUWEfN + lz1SwzAQhcMRSMXkCpyFPkeggg5aJjWTmqNQ5AoU3CC3yFCZ/TzejGQ/WZKNxxRfxuPs232RVj/ZNE2z + Ku3Hw+GzhJ2xN47GyTgblw6eecd3xBCrckSUGrg33oxvoymEWDRoVc6WnIEb49H4MlSREtCSg1yDGmMG + 7ox3QyWdArnIGdVJGSDww1CJ5kDOyIQywFCV/PIf48nYGrfdM+9UbAi5r9OhDDBfStjnGV2IvXvtxaSg + hjRAx5Y23DYs3uVgNFRsH2q0qwNdaIBlowSKOQaAWpEBNo6ada6m4KUXMwa1duhczO6lAlN4E9KANU0Y + sg8NsIWqoCU5hgbYx1XQkpxCAxwmKigJuhAVk+GMzsWcaCooiRd2VEyGC7p/Y2D1KahuQi/sqJgMURNW + L0Mv7KiYDNEyrN2ITDbbQLQR1W7FJptlYLAVQ81hZLJZBgaHEdQcxyabbCB5HEPphcRkkw0kLyRQeiWb + SvZKBqteSh0C/3IkyBUVhzEDwFAxX8WNKUBLjuuwh+QMOHQsy6ZmnyAWTdvtKUoNOMv9OV2PZvMLsfKg + vDjYoZ0AAAAASUVORK5CYII= + + + + 751, 134 + + + 1149, 134 + + + 227, 134 + + + 17, 134 + + + 301, 95 + + + 1011, 95 + + + 492, 134 + + + 17, 173 + - 26 + 159 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index 9bb1888..d7370ab 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -14,22 +14,13 @@ Public Class frmAdministration Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load Load_Profiles() Load_ProfileTypes() - - lbllicenseCount.Text = LICENSE_COUNT - If LICENSE_DATE.ToString.Contains("2099") Then - lblLicenseDate.Text = "Unlimited" - Else - lblLicenseDate.Text = LICENSE_DATE - End If - + Load_Connections() End Sub Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Save_Profile() - clsHotkey.Refresh_Profile_Links() - - Me.TableAdapterManager.UpdateAll(Me.MyDataset) - + ClassInit.Refresh_Profile_Links() + TableAdapterManager.UpdateAll(MyDataset) End Sub Sub Load_Profiles() Try @@ -56,44 +47,46 @@ Public Class frmAdministration Next End Sub + Public Sub Load_Connections() + Try + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_CONNECTIONTableAdapter.Fill(MyDataset.TBDD_CONNECTION) + Catch ex As Exception + MsgBox("Unexpected Error in Load Connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Save_Profile() Try Me.TBCW_PROFILESBindingSource.EndEdit() If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then - Me.CHANGED_WHOTextBox.Text = Environment.UserName + Me.CHANGEDWHOTextBox.Text = Environment.UserName Me.TBCW_PROFILESBindingSource.EndEdit() Me.TBCW_PROFILESTableAdapter.Update(MyDataset.TBCW_PROFILES) - Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow) + Status_Changed("Profil gespeichert") Else - Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent) + Status_Changed("Keine Änderung") End If Catch ex As Exception MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - Sub Status_Changed(text As String, col As System.Drawing.Color) - statuslabel.Text = text - statuslabel.BackColor = col + Sub Status_Changed(text As String) + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + labelStatus.Caption = $"{text} - {Now.ToShortTimeString}" End Sub Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName MyDataset.TBCW_PROFILES.PROFILE_TYPEColumn.DefaultValue = 0 + MyDataset.TBCW_PROFILES.WD_SEARCHColumn.DefaultValue = String.Empty + MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+" + MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = False XtraTabControl3.SelectedTabPage = TabPageGeneralSettings 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 = System.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 If GUIDTextBox.Text <> "" Then @@ -102,11 +95,6 @@ Public Class frmAdministration Refresh_Free_Groups(GUIDTextBox.Text) Load_Profile_Process() - TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString - TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text) - - TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString - TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text) End If End Sub @@ -117,10 +105,15 @@ Public Class frmAdministration VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, GUIDTextBox.Text) + + TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text) + + TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, 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) @@ -231,15 +224,6 @@ Public Class frmAdministration End If End Sub - Private Sub WD_SEARCHTextBox_MouseHover(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.MouseHover - ToolTip1.SetToolTip(WD_SEARCHTextBox, "Replace patterns for string fields: " & vbNewLine & "@Clipboard" & vbNewLine & "@CLIPBOARD" & vbNewLine & "@Zwischenablage" & - vbNewLine & "Replace patterns for integer fields: " & vbNewLine & "123456789" & vbNewLine & "4711") - ToolTip1.ToolTipTitle = "Replace patterns:" - ToolTip1.IsBalloon = True - ToolTip1.ToolTipIcon = ToolTipIcon.Info - ToolTip1.UseAnimation = True - End Sub - Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown If GUIDTextBox.Text = "" Then Refresh_Free_Users(0) @@ -251,9 +235,17 @@ Public Class frmAdministration MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1 + MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = False End Sub - Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click + Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew + MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = False + MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text + MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1 + End Sub + + Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Try TBCW_PROF_DATA_SEARCHBindingSource.EndEdit() If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then @@ -278,8 +270,8 @@ Public Class frmAdministration Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Save_Profile() - clsHotkey.Refresh_Profile_Links() - TableAdapterManager.UpdateAll(Me.MyDataset) + ClassInit.Refresh_Profile_Links() + 'TableAdapterManager.UpdateAll(MyDataset) End Sub Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick @@ -310,7 +302,7 @@ Public Class frmAdministration MsgBox("Error while assigning process!", MsgBoxStyle.Critical, "Clipboard Watcher") End If - Status_Changed("Prozess gespeichert - " & Now.ToString, Color.Yellow) + Status_Changed("Prozess gespeichert") End Sub Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick @@ -322,7 +314,7 @@ Public Class frmAdministration MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, "Clipboard Watcher") End If - Status_Changed("Prozess gelöscht - " & Now.ToString, Color.Yellow) + Status_Changed("Prozess gelöscht") End Sub Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick @@ -330,7 +322,7 @@ Public Class frmAdministration MsgBox("Error while assigning window!", MsgBoxStyle.Critical, "Clipboard Watcher") End If - Status_Changed("Fenster gespeichert - " & Now.ToString, Color.Yellow) + Status_Changed("Fenster gespeichert") End Sub Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick @@ -338,59 +330,63 @@ Public Class frmAdministration Exit Sub End If - If CtrlApplicationAssignment1.Process_DeleteAssignment() = False Then + If CtrlApplicationAssignment1.Window_DeleteAssignment() = False Then MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, "Clipboard Watcher") End If - Status_Changed("Fenster-Zuordnung gelöscht - " & Now.ToString, Color.Yellow) - Status_Changed("Fenster-Zuordnung gelöscht - " & Now.ToString, Color.Yellow) + Status_Changed("Fenster-Zuordnung gelöscht") End Sub Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick Try - Try - Dim i As Integer = CInt(GUIDTextBox.Text) - Catch ex As Exception + If GUIDTextBox.Text = String.Empty Then 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 TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5)) - If clsDatabase.Execute_non_Query(insert) = False Then - MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) - End If - End If - Next - For Each row As DataRow In MyDataset.TBWH_User.Rows - row.Item(0) = CBool(False) - Next - If GUIDTextBox.Text <> "" Then - Refresh_Free_Users(GUIDTextBox.Text) - Refresh_ProfileData() End If + Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows() + + For Each oRowHandle As Integer In oSelectedRows + Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle) + Dim oGuid As Integer = oRow.Item("ID") + Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, oGuid) + If clsDatabase.Execute_non_Query(insert) = False Then + MsgBox("Error while adding user!", MsgBoxStyle.Exclamation) + End If + Next + + Refresh_Free_Users(GUIDTextBox.Text) + Refresh_ProfileData() + + GridViewUserNotInProfile.ClearSelection() Catch ex As Exception + Logger.Error(ex) MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick Try - Dim ID = GridViewUserInProfile.GetFocusedRowCellValue(GridViewUserInProfile.Columns("GUID")) - Try - Dim I As Integer = CInt(ID) - Catch ex As Exception + If GUIDTextBox.Text = String.Empty Then Exit Sub - End Try - Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID) - If clsDatabase.Execute_non_Query(del) = True Then - Refresh_ProfileData() - If GUIDTextBox.Text <> "" Then - Refresh_Free_Users(GUIDTextBox.Text) - End If - End If + + Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows() + + For Each oRowHandle As Integer In oSelectedRows + Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle) + Dim oGuid As Integer = oRow.Item("GUID") + Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid) + If clsDatabase.Execute_non_Query(del) = False Then + MsgBox("Error while adding user!", MsgBoxStyle.Exclamation) + End If + Next + + Refresh_Free_Users(GUIDTextBox.Text) + Refresh_ProfileData() + + GridViewUserInProfile.ClearSelection() Catch ex As Exception + Logger.Error(ex) MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub @@ -442,6 +438,136 @@ Public Class frmAdministration End Sub Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged - 'TODO + Dim oTabName As String = e.Page.Name + + Select Case oTabName + Case TabPageProcessAssignment.Name + RibbonGroupProfile.Enabled = False + RibbonGroupUser.Enabled = False + RibbonGroupProcess.Enabled = True + RibbonGroupGroup.Enabled = False + RibbonGroupWindow.Enabled = True + RibbonGroupDocSearch.Enabled = False + RibbonGroupDataSearch.Enabled = False + + Case TabPageUserAssignment.Name + RibbonGroupProfile.Enabled = False + RibbonGroupUser.Enabled = True + RibbonGroupProcess.Enabled = False + RibbonGroupGroup.Enabled = False + RibbonGroupWindow.Enabled = False + RibbonGroupDocSearch.Enabled = False + RibbonGroupDataSearch.Enabled = False + + Case TabPageGroupAssignment.Name + RibbonGroupProfile.Enabled = False + RibbonGroupUser.Enabled = False + RibbonGroupProcess.Enabled = False + RibbonGroupGroup.Enabled = True + RibbonGroupWindow.Enabled = False + RibbonGroupDocSearch.Enabled = False + RibbonGroupDataSearch.Enabled = False + + Case TabPageData.Name + RibbonGroupProfile.Enabled = False + RibbonGroupUser.Enabled = False + RibbonGroupProcess.Enabled = False + RibbonGroupGroup.Enabled = False + RibbonGroupWindow.Enabled = False + RibbonGroupDocSearch.Enabled = False + RibbonGroupDataSearch.Enabled = True + + Case TabPageDocuments.Name + RibbonGroupProfile.Enabled = False + RibbonGroupUser.Enabled = False + RibbonGroupProcess.Enabled = False + RibbonGroupGroup.Enabled = False + RibbonGroupWindow.Enabled = False + RibbonGroupDocSearch.Enabled = True + RibbonGroupDataSearch.Enabled = False + + Case Else + RibbonGroupProfile.Enabled = True + RibbonGroupUser.Enabled = False + RibbonGroupProcess.Enabled = False + RibbonGroupGroup.Enabled = False + RibbonGroupWindow.Enabled = False + RibbonGroupDocSearch.Enabled = False + RibbonGroupDataSearch.Enabled = False + End Select + End Sub + + Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick + Dim oForm As New frmConnection() + oForm.ShowDialog() + End Sub + + Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick + If CtrlApplicationAssignment1.Window_SaveAssignment() = False Then + MsgBox("Error while saving window", MsgBoxStyle.Critical, Text) + End If + End Sub + + Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick + Dim oform As New frmLicenseInfo() + oform.ShowDialog() + End Sub + + Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick + TBCW_PROF_DOC_SEARCHBindingSource.AddNew() + End Sub + + Private Sub BarButtonItem21_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem21.ItemClick + If txtDATAGUID.Text = String.Empty Then + Exit Sub + End If + + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text) + If result = MsgBoxResult.Yes Then + TBCW_PROF_DATA_SEARCHTableAdapter.Delete(txtDATAGUID.Text) + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text) + End If + End Sub + + Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick + Try + TBCW_PROF_DATA_SEARCHBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then + CHANGED_WHOTextBox1.Text = Environment.UserName + TBCW_PROF_DATA_SEARCHBindingSource.EndEdit() + TBCW_PROF_DATA_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DATA_SEARCH) + End If + Catch ex As NoNullAllowedException + MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text) + Catch ex As Exception + MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick + TBCW_PROF_DATA_SEARCHBindingSource.AddNew() + End Sub + + Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text) + If result = MsgBoxResult.Yes Then + TBCW_PROF_DOC_SEARCHTableAdapter.Delete(txtDOC_GUID.Text) + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text) + End If + End Sub + + Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick + Try + TBCW_PROF_DOC_SEARCHBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROF_DOC_SEARCH.GetChanges) Then + CHANGED_WHOTextBox2.Text = Environment.UserName + TBCW_PROF_DOC_SEARCHBindingSource.EndEdit() + TBCW_PROF_DOC_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DOC_SEARCH) + End If + Catch ex As NoNullAllowedException + MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text) + Catch ex As Exception + MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try End Sub End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb index 79a932e..e8674f7 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb @@ -38,17 +38,16 @@ Partial Class frmConfig_Basic Me.txtPasswort = New System.Windows.Forms.TextBox() Me.BtnConnect = New System.Windows.Forms.Button() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.chkWDMaximized = New System.Windows.Forms.CheckBox() + Me.lblChanges = New System.Windows.Forms.Label() + Me.btnChangeHotkey = New System.Windows.Forms.Button() + Me.txtHotkeySearchKey = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cmbfunctionHit = New System.Windows.Forms.ComboBox() Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() Me.Button1 = New System.Windows.Forms.Button() Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() - Me.cmbfunctionHit = New System.Windows.Forms.ComboBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.txtHotkeySearchKey = New System.Windows.Forms.TextBox() - Me.btnChangeHotkey = New System.Windows.Forms.Button() - Me.lblChanges = New System.Windows.Forms.Label() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() @@ -213,7 +212,6 @@ Partial Class frmConfig_Basic Me.TabPage2.Controls.Add(Me.Label7) Me.TabPage2.Controls.Add(Me.Label6) Me.TabPage2.Controls.Add(Me.cmbfunctionHit) - Me.TabPage2.Controls.Add(Me.chkWDMaximized) Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly) Me.TabPage2.Controls.Add(Me.Button1) Me.TabPage2.Controls.Add(Me.btnApplicationFolder) @@ -226,16 +224,60 @@ Partial Class frmConfig_Basic Me.TabPage2.Text = "Weitere Einstellungen" Me.TabPage2.UseVisualStyleBackColor = True ' - 'chkWDMaximized + 'lblChanges ' - Me.chkWDMaximized.AutoSize = True - Me.chkWDMaximized.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.chkWDMaximized.Location = New System.Drawing.Point(8, 40) - Me.chkWDMaximized.Name = "chkWDMaximized" - Me.chkWDMaximized.Size = New System.Drawing.Size(162, 17) - Me.chkWDMaximized.TabIndex = 8 - Me.chkWDMaximized.Text = "windream-search maximiert?" - Me.chkWDMaximized.UseVisualStyleBackColor = True + Me.lblChanges.AutoSize = True + Me.lblChanges.BackColor = System.Drawing.Color.Yellow + Me.lblChanges.Location = New System.Drawing.Point(8, 115) + Me.lblChanges.Name = "lblChanges" + Me.lblChanges.Size = New System.Drawing.Size(38, 13) + Me.lblChanges.TabIndex = 14 + Me.lblChanges.Text = "Label8" + Me.lblChanges.Visible = False + ' + 'btnChangeHotkey + ' + Me.btnChangeHotkey.Location = New System.Drawing.Point(185, 89) + Me.btnChangeHotkey.Name = "btnChangeHotkey" + Me.btnChangeHotkey.Size = New System.Drawing.Size(121, 23) + Me.btnChangeHotkey.TabIndex = 13 + Me.btnChangeHotkey.Text = "Ändere Hotkey" + Me.btnChangeHotkey.UseVisualStyleBackColor = True + ' + 'txtHotkeySearchKey + ' + Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 91) + Me.txtHotkeySearchKey.Name = "txtHotkeySearchKey" + Me.txtHotkeySearchKey.Size = New System.Drawing.Size(65, 21) + Me.txtHotkeySearchKey.TabIndex = 12 + Me.txtHotkeySearchKey.Text = "f" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(102, 75) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(68, 13) + Me.Label7.TabIndex = 11 + Me.Label7.Text = "Zifferntaste:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(8, 75) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(82, 13) + Me.Label6.TabIndex = 10 + Me.Label6.Text = "Funktionstaste:" + ' + 'cmbfunctionHit + ' + Me.cmbfunctionHit.FormattingEnabled = True + Me.cmbfunctionHit.Items.AddRange(New Object() {"strg", "SHIFT"}) + Me.cmbfunctionHit.Location = New System.Drawing.Point(11, 91) + Me.cmbfunctionHit.Name = "cmbfunctionHit" + Me.cmbfunctionHit.Size = New System.Drawing.Size(79, 21) + Me.cmbfunctionHit.TabIndex = 9 ' 'chkLogErrorsOnly ' @@ -286,61 +328,6 @@ Partial Class frmConfig_Basic Me.LinkLabel1.TabStop = True Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data" ' - 'cmbfunctionHit - ' - Me.cmbfunctionHit.FormattingEnabled = True - Me.cmbfunctionHit.Items.AddRange(New Object() {"strg", "SHIFT"}) - Me.cmbfunctionHit.Location = New System.Drawing.Point(11, 91) - Me.cmbfunctionHit.Name = "cmbfunctionHit" - Me.cmbfunctionHit.Size = New System.Drawing.Size(79, 21) - Me.cmbfunctionHit.TabIndex = 9 - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(8, 75) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(82, 13) - Me.Label6.TabIndex = 10 - Me.Label6.Text = "Funktionstaste:" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(102, 75) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(68, 13) - Me.Label7.TabIndex = 11 - Me.Label7.Text = "Zifferntaste:" - ' - 'txtHotkeySearchKey - ' - Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 91) - Me.txtHotkeySearchKey.Name = "txtHotkeySearchKey" - Me.txtHotkeySearchKey.Size = New System.Drawing.Size(65, 21) - Me.txtHotkeySearchKey.TabIndex = 12 - Me.txtHotkeySearchKey.Text = "f" - ' - 'btnChangeHotkey - ' - Me.btnChangeHotkey.Location = New System.Drawing.Point(185, 89) - Me.btnChangeHotkey.Name = "btnChangeHotkey" - Me.btnChangeHotkey.Size = New System.Drawing.Size(121, 23) - Me.btnChangeHotkey.TabIndex = 13 - Me.btnChangeHotkey.Text = "Ändere Hotkey" - Me.btnChangeHotkey.UseVisualStyleBackColor = True - ' - 'lblChanges - ' - Me.lblChanges.AutoSize = True - Me.lblChanges.BackColor = System.Drawing.Color.Yellow - Me.lblChanges.Location = New System.Drawing.Point(8, 115) - Me.lblChanges.Name = "lblChanges" - Me.lblChanges.Size = New System.Drawing.Size(38, 13) - Me.lblChanges.TabIndex = 14 - Me.lblChanges.Text = "Label8" - Me.lblChanges.Visible = False - ' 'frmConfig_Basic ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -378,7 +365,6 @@ Partial Class frmConfig_Basic Friend WithEvents txtPasswort As System.Windows.Forms.TextBox Friend WithEvents BtnConnect As System.Windows.Forms.Button Friend WithEvents TabPage2 As System.Windows.Forms.TabPage - Friend WithEvents chkWDMaximized As System.Windows.Forms.CheckBox Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb index bce9039..4625f3f 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb @@ -1,9 +1,9 @@ -Imports System.Threading -Imports System.Globalization -Imports DD_LIB_Standards +Imports DD_LIB_Standards +Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey + Public Class frmConfig_Basic - Dim WithEvents Hotkey As New clsHotkey(Me) - Dim formloaded As Boolean = False + Dim WithEvents Hotkey As New ClassHotkey(Me) + Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click Try Dim con As String @@ -48,7 +48,7 @@ Public Class frmConfig_Basic If chkbxUserAut.Checked = False Then constr = constr.Replace(csb.Password, "XXXXX") End If - Me.txtActualConnection.Text = constr + txtActualConnection.Text = constr End If Catch ex As Exception Cursor = Cursors.Default @@ -61,25 +61,24 @@ Public Class frmConfig_Basic End Sub Sub Load_Databases() Try - Me.Cursor = Cursors.WaitCursor - Dim csb As New SqlClient.SqlConnectionStringBuilder - csb.DataSource = Me.txtServer.Text - csb.IntegratedSecurity = False - csb.UserID = Me.txtUser.Text - csb.Password = Me.txtPasswort.Text + Cursor = Cursors.WaitCursor + Dim csb As New SqlClient.SqlConnectionStringBuilder With { + .DataSource = txtServer.Text, + .IntegratedSecurity = False, + .UserID = txtUser.Text, + .Password = txtPasswort.Text + } Dim con As String If chkbxUserAut.Checked Then - con = "Data Source=" & Me.txtServer.Text & ";Trusted_Connection=True;" + con = $"Data Source={txtServer.Text};Trusted_Connection=True;" Else - 'con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" - con = "Server=" & Me.txtServer.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" + con = $"Server={txtServer.Text};User Id={txtUser.Text};Password={txtPasswort.Text};" End If - Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString) + Dim connection As New SqlClient.SqlConnection(con) connection.Open() Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) cmd.CommandType = CommandType.StoredProcedure - ' Ausführen und Ergebnis in einer ListBox anzeigen Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader If dr.HasRows Then cmbDatenbank.Items.Clear() @@ -100,10 +99,6 @@ Public Class frmConfig_Basic Cursor = Cursors.Default End Sub - Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - - End Sub - Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblChanges.Visible = False If Not MyConnectionString = String.Empty Then @@ -128,21 +123,16 @@ Public Class frmConfig_Basic End Try - Me.txtActualConnection.Text = constr + txtActualConnection.Text = constr chkLogErrorsOnly.Checked = LogErrorsOnly Catch ex As Exception MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - - - End If End Sub Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked - ' Specify that the link was visited. LinkLabel1.LinkVisited = True - ' Navigate to a URL. Process.Start("http://www.didalog.de/Support") End Sub @@ -158,16 +148,10 @@ Public Class frmConfig_Basic LogErrorsOnly = chkLogErrorsOnly.Checked LogConfig.Debug = Not LogErrorsOnly - 'SaveConfigValue("LogErrorsOnly", LogErrorsOnly) ConfigManager.Config.LogErrorsOnly = LogErrorsOnly ConfigManager.Save() End Sub - - Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown - formloaded = True - End Sub - Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Select Case TabControl1.SelectedIndex Case 1 @@ -182,36 +166,19 @@ Public Class frmConfig_Basic Private Sub chkbxUserAut_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserAut.CheckedChanged If chkbxUserAut.Checked Then - Me.txtPasswort.Enabled = False - Me.txtUser.Enabled = False + txtPasswort.Enabled = False + txtUser.Enabled = False Else - Me.txtPasswort.Enabled = True - Me.txtUser.Enabled = True + txtPasswort.Enabled = True + txtUser.Enabled = True End If End Sub - Private Sub txtActualConnection_TextChanged(sender As Object, e As EventArgs) Handles txtActualConnection.TextChanged - - End Sub - - Private Sub cmbDatenbank_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDatenbank.SelectedIndexChanged - - End Sub - - Private Sub txtPasswort_Leave(sender As Object, e As EventArgs) Handles txtPasswort.Leave - - End Sub - Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged - - End Sub - Private Sub btnChangeHotkey_Click(sender As Object, e As EventArgs) Handles btnChangeHotkey.Click Try If cmbfunctionHit.SelectedIndex <> -1 Then Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TRIGGER_WATCHER) - 'SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text) - 'SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text) ConfigManager.Config.HotkeyFunctionKey = cmbfunctionHit.Text ConfigManager.Config.HotkeySearchKey = txtHotkeySearchKey.Text ConfigManager.Save() @@ -221,13 +188,12 @@ Public Class frmConfig_Basic Dim obj As Object = kc.ConvertFromString(txtHotkeySearchKey.Text.ToUpper) keyCode = CType(obj, Keys) If cmbfunctionHit.Text = ClassConstants.HOTKEY_CTRL Then - Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) + Hotkey.AddHotKey(keyCode, MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) ElseIf cmbfunctionHit.Text = "SHIFT" Then - Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) + Hotkey.AddHotKey(keyCode, MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) End If - lblChanges.Text = "Hotkey changed - " & Now.ToString & " - Restart required" - lblChanges.Visible = True - Dim msg = "Die Änderung des Hotkeys war erfolgreich." & vbNewLine & "Da es sich um einen global Hotkey handelt muss die Anwendung aber neugestartet werden!" + + Dim msg = "Die Änderung des Hotkeys war erfolgreich." & vbNewLine & "Da es sich um einen global Hotkey handelt muss die Anwendung neugestartet werden!" If USER_LANGUAGE <> "de-DE" Then msg = "The change of your desired hotkey was successfull." & vbNewLine & "For using it the application must be restarted now!" End If @@ -236,8 +202,7 @@ Public Class frmConfig_Basic Application.Restart() End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in ChangeHotkey:") + MsgBox("Unexpected Error in ChangeHotkey:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) End Try - End Sub End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmConnection.Designer.vb b/app/DD_Clipboard_Searcher/frmConnection.Designer.vb new file mode 100644 index 0000000..6f45e33 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmConnection.Designer.vb @@ -0,0 +1,550 @@ + +Partial Class frmConnection + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + '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 BEZEICHNUNGLabel As System.Windows.Forms.Label + Dim SQL_PROVIDERLabel As System.Windows.Forms.Label + Dim SERVERLabel As System.Windows.Forms.Label + Dim DATENBANKLabel As System.Windows.Forms.Label + Dim USERNAMELabel As System.Windows.Forms.Label + Dim PASSWORDLabel As System.Windows.Forms.Label + Dim BEMERKUNGLabel As System.Windows.Forms.Label + Dim ERSTELLTWERLabel As System.Windows.Forms.Label + Dim ERSTELLTWANNLabel As System.Windows.Forms.Label + Dim GEANDERTWERLabel As System.Windows.Forms.Label + Dim GEAENDERTWANNLabel As System.Windows.Forms.Label + Dim GUIDLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnection)) + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSQL_PROVIDER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.chkWinAuth = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() + Me.SQL_PROVIDERComboBox = New System.Windows.Forms.ComboBox() + Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox() + Me.SERVERTextBox = New System.Windows.Forms.TextBox() + Me.USERNAMETextBox = New System.Windows.Forms.TextBox() + Me.PASSWORDTextBox = New System.Windows.Forms.TextBox() + Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.TBDD_CONNECTIONTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonAdd = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonDelete = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonSave = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + BEZEICHNUNGLabel = New System.Windows.Forms.Label() + SQL_PROVIDERLabel = New System.Windows.Forms.Label() + SERVERLabel = New System.Windows.Forms.Label() + DATENBANKLabel = New System.Windows.Forms.Label() + USERNAMELabel = New System.Windows.Forms.Label() + PASSWORDLabel = New System.Windows.Forms.Label() + BEMERKUNGLabel = New System.Windows.Forms.Label() + ERSTELLTWERLabel = New System.Windows.Forms.Label() + ERSTELLTWANNLabel = New System.Windows.Forms.Label() + GEANDERTWERLabel = New System.Windows.Forms.Label() + GEAENDERTWANNLabel = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'BEZEICHNUNGLabel + ' + BEZEICHNUNGLabel.AutoSize = True + BEZEICHNUNGLabel.Location = New System.Drawing.Point(220, 43) + BEZEICHNUNGLabel.Name = "BEZEICHNUNGLabel" + BEZEICHNUNGLabel.Size = New System.Drawing.Size(67, 13) + BEZEICHNUNGLabel.TabIndex = 2 + BEZEICHNUNGLabel.Text = "Bezeichnung" + ' + 'SQL_PROVIDERLabel + ' + SQL_PROVIDERLabel.AutoSize = True + SQL_PROVIDERLabel.Location = New System.Drawing.Point(14, 43) + SQL_PROVIDERLabel.Name = "SQL_PROVIDERLabel" + SQL_PROVIDERLabel.Size = New System.Drawing.Size(89, 13) + SQL_PROVIDERLabel.TabIndex = 4 + SQL_PROVIDERLabel.Text = "Datenbank Typ *" + ' + 'SERVERLabel + ' + SERVERLabel.AutoSize = True + SERVERLabel.Location = New System.Drawing.Point(14, 83) + SERVERLabel.Name = "SERVERLabel" + SERVERLabel.Size = New System.Drawing.Size(48, 13) + SERVERLabel.TabIndex = 6 + SERVERLabel.Text = "Server *" + ' + 'DATENBANKLabel + ' + DATENBANKLabel.AutoSize = True + DATENBANKLabel.Location = New System.Drawing.Point(14, 163) + DATENBANKLabel.Name = "DATENBANKLabel" + DATENBANKLabel.Size = New System.Drawing.Size(68, 13) + DATENBANKLabel.TabIndex = 8 + DATENBANKLabel.Text = "Datenbank *" + ' + 'USERNAMELabel + ' + USERNAMELabel.AutoSize = True + USERNAMELabel.Location = New System.Drawing.Point(14, 123) + USERNAMELabel.Name = "USERNAMELabel" + USERNAMELabel.Size = New System.Drawing.Size(65, 13) + USERNAMELabel.TabIndex = 10 + USERNAMELabel.Text = "USERNAME:" + ' + 'PASSWORDLabel + ' + PASSWORDLabel.AutoSize = True + PASSWORDLabel.Location = New System.Drawing.Point(220, 123) + PASSWORDLabel.Name = "PASSWORDLabel" + PASSWORDLabel.Size = New System.Drawing.Size(51, 13) + PASSWORDLabel.TabIndex = 12 + PASSWORDLabel.Text = "Passwort" + ' + 'BEMERKUNGLabel + ' + BEMERKUNGLabel.AutoSize = True + BEMERKUNGLabel.Location = New System.Drawing.Point(220, 83) + BEMERKUNGLabel.Name = "BEMERKUNGLabel" + BEMERKUNGLabel.Size = New System.Drawing.Size(60, 13) + BEMERKUNGLabel.TabIndex = 14 + BEMERKUNGLabel.Text = "Bemerkung" + ' + 'ERSTELLTWERLabel + ' + ERSTELLTWERLabel.AutoSize = True + ERSTELLTWERLabel.Location = New System.Drawing.Point(14, 243) + ERSTELLTWERLabel.Name = "ERSTELLTWERLabel" + ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 13) + ERSTELLTWERLabel.TabIndex = 18 + ERSTELLTWERLabel.Text = "Erstellt Wer:" + ' + 'ERSTELLTWANNLabel + ' + ERSTELLTWANNLabel.AutoSize = True + ERSTELLTWANNLabel.Location = New System.Drawing.Point(14, 271) + ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel" + ERSTELLTWANNLabel.Size = New System.Drawing.Size(75, 13) + ERSTELLTWANNLabel.TabIndex = 20 + ERSTELLTWANNLabel.Text = "Erstellt Wann:" + ' + 'GEANDERTWERLabel + ' + GEANDERTWERLabel.AutoSize = True + GEANDERTWERLabel.Location = New System.Drawing.Point(14, 297) + GEANDERTWERLabel.Name = "GEANDERTWERLabel" + GEANDERTWERLabel.Size = New System.Drawing.Size(79, 13) + GEANDERTWERLabel.TabIndex = 22 + GEANDERTWERLabel.Text = "Geändert Wer:" + ' + 'GEAENDERTWANNLabel + ' + GEAENDERTWANNLabel.AutoSize = True + GEAENDERTWANNLabel.Location = New System.Drawing.Point(14, 325) + GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" + GEAENDERTWANNLabel.Size = New System.Drawing.Size(87, 13) + GEAENDERTWANNLabel.TabIndex = 24 + GEAENDERTWANNLabel.Text = "Geändert Wann:" + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(14, 3) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(18, 13) + GUIDLabel.TabIndex = 28 + GUIDLabel.Text = "ID" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.IsSplitterFixed = True + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 122) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.chkWinAuth) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.Button1) + Me.SplitContainerControl1.Panel2.Controls.Add(GUIDLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.GUIDTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.DATENBANKComboBox) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SQL_PROVIDERComboBox) + Me.SplitContainerControl1.Panel2.Controls.Add(BEZEICHNUNGLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.BEZEICHNUNGTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(SQL_PROVIDERLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(SERVERLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SERVERTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(DATENBANKLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(USERNAMELabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.USERNAMETextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(PASSWORDLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.PASSWORDTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(BEMERKUNGLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.BEMERKUNGTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(ERSTELLTWERLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.ERSTELLTWERTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(ERSTELLTWANNLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.ERSTELLTWANNDateTimePicker) + Me.SplitContainerControl1.Panel2.Controls.Add(GEANDERTWERLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.GEANDERTWERTextBox) + Me.SplitContainerControl1.Panel2.Controls.Add(GEAENDERTWANNLabel) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.GEAENDERTWANNDateTimePicker) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(714, 376) + Me.SplitContainerControl1.SplitterPosition = 241 + Me.SplitContainerControl1.TabIndex = 0 + Me.SplitContainerControl1.Text = "SplitContainerControl1" + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(241, 376) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG, Me.colSQL_PROVIDER}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsBehavior.Editable = False + Me.GridView1.OptionsBehavior.ReadOnly = True + Me.GridView1.OptionsView.ShowGroupPanel = False + ' + 'colBEZEICHNUNG + ' + Me.colBEZEICHNUNG.FieldName = "BEZEICHNUNG" + Me.colBEZEICHNUNG.Name = "colBEZEICHNUNG" + Me.colBEZEICHNUNG.Visible = True + Me.colBEZEICHNUNG.VisibleIndex = 0 + ' + 'colSQL_PROVIDER + ' + Me.colSQL_PROVIDER.FieldName = "SQL_PROVIDER" + Me.colSQL_PROVIDER.Name = "colSQL_PROVIDER" + Me.colSQL_PROVIDER.Visible = True + Me.colSQL_PROVIDER.VisibleIndex = 1 + ' + 'chkWinAuth + ' + Me.chkWinAuth.AutoSize = True + Me.chkWinAuth.Location = New System.Drawing.Point(17, 217) + Me.chkWinAuth.Name = "chkWinAuth" + Me.chkWinAuth.Size = New System.Drawing.Size(154, 17) + Me.chkWinAuth.TabIndex = 31 + Me.chkWinAuth.Text = "Windows Authentifizierung" + Me.chkWinAuth.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.startwithoutdebugging_6556 + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(223, 166) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(200, 34) + Me.Button1.TabIndex = 30 + Me.Button1.Text = "Verbindungstest" + Me.Button1.UseVisualStyleBackColor = True + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True)) + Me.GUIDTextBox.Enabled = False + Me.GUIDTextBox.Location = New System.Drawing.Point(17, 19) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(200, 21) + Me.GUIDTextBox.TabIndex = 29 + ' + 'DATENBANKComboBox + ' + Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) + Me.DATENBANKComboBox.FormattingEnabled = True + Me.DATENBANKComboBox.Location = New System.Drawing.Point(17, 179) + Me.DATENBANKComboBox.Name = "DATENBANKComboBox" + Me.DATENBANKComboBox.Size = New System.Drawing.Size(200, 21) + Me.DATENBANKComboBox.TabIndex = 28 + ' + 'SQL_PROVIDERComboBox + ' + Me.SQL_PROVIDERComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SQL_PROVIDER", True)) + Me.SQL_PROVIDERComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.SQL_PROVIDERComboBox.FormattingEnabled = True + Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {"MS-SQL", "ORACLE"}) + Me.SQL_PROVIDERComboBox.Location = New System.Drawing.Point(17, 59) + Me.SQL_PROVIDERComboBox.Name = "SQL_PROVIDERComboBox" + Me.SQL_PROVIDERComboBox.Size = New System.Drawing.Size(200, 21) + Me.SQL_PROVIDERComboBox.TabIndex = 27 + ' + 'BEZEICHNUNGTextBox + ' + Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEZEICHNUNG", True)) + Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(223, 59) + Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox" + Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(200, 21) + Me.BEZEICHNUNGTextBox.TabIndex = 3 + ' + 'SERVERTextBox + ' + Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True)) + Me.SERVERTextBox.Location = New System.Drawing.Point(17, 99) + Me.SERVERTextBox.Name = "SERVERTextBox" + Me.SERVERTextBox.Size = New System.Drawing.Size(200, 21) + Me.SERVERTextBox.TabIndex = 7 + ' + 'USERNAMETextBox + ' + Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "USERNAME", True)) + Me.USERNAMETextBox.Location = New System.Drawing.Point(17, 139) + Me.USERNAMETextBox.Name = "USERNAMETextBox" + Me.USERNAMETextBox.Size = New System.Drawing.Size(200, 21) + Me.USERNAMETextBox.TabIndex = 11 + ' + 'PASSWORDTextBox + ' + Me.PASSWORDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "PASSWORD", True)) + Me.PASSWORDTextBox.Location = New System.Drawing.Point(223, 139) + Me.PASSWORDTextBox.Name = "PASSWORDTextBox" + Me.PASSWORDTextBox.Size = New System.Drawing.Size(200, 21) + Me.PASSWORDTextBox.TabIndex = 13 + ' + 'BEMERKUNGTextBox + ' + Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True)) + Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(223, 99) + Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" + Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(200, 21) + Me.BEMERKUNGTextBox.TabIndex = 15 + ' + 'ERSTELLTWERTextBox + ' + Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWER", True)) + Me.ERSTELLTWERTextBox.Enabled = False + Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(121, 240) + Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" + Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(302, 21) + Me.ERSTELLTWERTextBox.TabIndex = 19 + ' + 'ERSTELLTWANNDateTimePicker + ' + Me.ERSTELLTWANNDateTimePicker.CustomFormat = "MM.dd.yy hh:mm:ss" + Me.ERSTELLTWANNDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWANN", True)) + Me.ERSTELLTWANNDateTimePicker.Enabled = False + Me.ERSTELLTWANNDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.ERSTELLTWANNDateTimePicker.Location = New System.Drawing.Point(121, 267) + Me.ERSTELLTWANNDateTimePicker.Name = "ERSTELLTWANNDateTimePicker" + Me.ERSTELLTWANNDateTimePicker.Size = New System.Drawing.Size(302, 21) + Me.ERSTELLTWANNDateTimePicker.TabIndex = 21 + ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Enabled = False + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(121, 294) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(302, 21) + Me.GEANDERTWERTextBox.TabIndex = 23 + ' + 'GEAENDERTWANNDateTimePicker + ' + Me.GEAENDERTWANNDateTimePicker.CustomFormat = "MM.dd.yy hh:mm:ss" + Me.GEAENDERTWANNDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNDateTimePicker.Enabled = False + Me.GEAENDERTWANNDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.GEAENDERTWANNDateTimePicker.Location = New System.Drawing.Point(121, 321) + Me.GEAENDERTWANNDateTimePicker.Name = "GEAENDERTWANNDateTimePicker" + Me.GEAENDERTWANNDateTimePicker.Size = New System.Drawing.Size(302, 21) + Me.GEAENDERTWANNDateTimePicker.TabIndex = 25 + ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBCW_GROUP_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_DATA_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_DOC_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing + Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter + Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.BarButtonAdd, Me.BarButtonDelete, Me.BarButtonSave}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(714, 122) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonAdd + ' + Me.BarButtonAdd.Caption = "Neue Verbindung" + Me.BarButtonAdd.Id = 1 + Me.BarButtonAdd.ImageOptions.Image = CType(resources.GetObject("BarButtonAdd.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonAdd.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonAdd.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonAdd.Name = "BarButtonAdd" + ' + 'BarButtonDelete + ' + Me.BarButtonDelete.Caption = "Verbindung löschen" + Me.BarButtonDelete.Id = 2 + Me.BarButtonDelete.ImageOptions.Image = CType(resources.GetObject("BarButtonDelete.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonDelete.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonDelete.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonDelete.Name = "BarButtonDelete" + ' + 'BarButtonSave + ' + Me.BarButtonSave.Caption = "Verbindung speichern" + Me.BarButtonSave.Id = 3 + Me.BarButtonSave.ImageOptions.Image = CType(resources.GetObject("BarButtonSave.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonSave.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonSave.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonSave.Name = "BarButtonSave" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonAdd) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonDelete) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonSave) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Verbindungen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 498) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(714, 31) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'frmConnection + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(714, 529) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.MinimumSize = New System.Drawing.Size(724, 451) + Me.Name = "frmConnection" + Me.Ribbon = Me.RibbonControl1 + Me.ShowIcon = False + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Datenbank Verbindungen" + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents MyDataset As MyDataset + Friend WithEvents TBDD_CONNECTIONBindingSource As BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents SQL_PROVIDERComboBox As ComboBox + Friend WithEvents BEZEICHNUNGTextBox As TextBox + Friend WithEvents SERVERTextBox As TextBox + Friend WithEvents USERNAMETextBox As TextBox + Friend WithEvents PASSWORDTextBox As TextBox + Friend WithEvents BEMERKUNGTextBox As TextBox + Friend WithEvents ERSTELLTWERTextBox As TextBox + Friend WithEvents ERSTELLTWANNDateTimePicker As DateTimePicker + Friend WithEvents GEANDERTWERTextBox As TextBox + Friend WithEvents DATENBANKComboBox As ComboBox + Friend WithEvents Button1 As Button + Friend WithEvents colBEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSQL_PROVIDER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents chkWinAuth As CheckBox + Friend WithEvents GEAENDERTWANNDateTimePicker As DateTimePicker + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonAdd As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonDelete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GUIDTextBox As TextBox +End Class diff --git a/app/DD_Clipboard_Searcher/frmConnection.resx b/app/DD_Clipboard_Searcher/frmConnection.resx new file mode 100644 index 0000000..16e1179 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmConnection.resx @@ -0,0 +1,236 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + 127, 17 + + + 17, 17 + + + 371, 17 + + + 609, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU + OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL + MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE + UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C + DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU + WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY + 9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g + Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE + fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH + D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA + 9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO + xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF + h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ + AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y + BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ + ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa + I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e + hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv + kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM + zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV + ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 + hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I + 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j + +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU + ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft + l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB + OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo + mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi + J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA + PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmConnection.vb b/app/DD_Clipboard_Searcher/frmConnection.vb new file mode 100644 index 0000000..61dae7a --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmConnection.vb @@ -0,0 +1,178 @@ +Imports System.Data.SqlClient +Imports Oracle.ManagedDataAccess.Client + +Public Class frmConnection + Private Const PROVIDER_ORACLE = "ORACLE" + Private Const PROVIDER_MSSQL = "MS-SQL" + + Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Validate() + TBDD_CONNECTIONBindingSource.EndEdit() + TableAdapterManager.UpdateAll(MyDataset) + End Sub + + Private Sub frmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Load_Connections() + End Sub + + Private Sub Load_Connections() + Try + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_CONNECTIONTableAdapter.Fill(MyDataset.TBDD_CONNECTION) + Catch ex As Exception + Logger.Error(ex) + MsgBox("Fehler beim Laden der Verbindungen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) + End Try + End Sub + + Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew + MyDataset.TBDD_CONNECTION.AKTIVColumn.DefaultValue = True + MyDataset.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + ConnectionTest(SQL_PROVIDERComboBox.Text, chkWinAuth.Checked, SERVERTextBox.Text, USERNAMETextBox.Text, PASSWORDTextBox.Text, DATENBANKComboBox.Text) + End Sub + + Private Sub ConnectionTest(ConnectionType As String, WinAuth As Boolean, Server As String, UserId As String, Password As String, Database As String) + Dim oConnectionString As String = String.Empty + + Select Case ConnectionType + Case PROVIDER_MSSQL + If WinAuth Then + oConnectionString = $"Data Source={Server};Initial Catalog={Database};Trusted_Connection=True;" + Else + oConnectionString = $"Server={Server};Database={Database};User Id={UserId};Password={Password};" + End If + + Cursor = Cursors.WaitCursor + + Using oConnection As New SqlConnection(oConnectionString) + Try + oConnection.Open() + MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text) + Catch ex As Exception + Logger.Error(ex) + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text) + Finally + Cursor = Cursors.Default + End Try + End Using + Case PROVIDER_ORACLE + Try + Dim conn As New OracleConnectionStringBuilder + + oConnectionString = $"Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST={Server})(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME={Database})));User Id={UserId};Password={Password};" + + 'conn.DataSource = DATENBANKComboBox.Text + 'conn.UserID = txtUserId.Text + 'conn.Password = txtPassword.Text + 'conn.PersistSecurityInfo = True + 'conn.ConnectionTimeout = 120 + 'oConnectionString = conn.ConnectionString + + Using connection As New OracleConnection(oConnectionString) + connection.Open() + End Using + + MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text) + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message & vbNewLine & vbNewLine & oConnectionString, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") + End Try + End Select + End Sub + + Private Sub DATENBANKComboBox_Click(sender As Object, e As EventArgs) Handles DATENBANKComboBox.Click + Cursor = Cursors.WaitCursor + Dim oConnectionBuilder As New SqlConnectionStringBuilder + + If SERVERTextBox.Text = String.Empty Then + MsgBox("Bitte geben sie einen Server an!") + Exit Sub + End If + + If SQL_PROVIDERComboBox.Text = PROVIDER_ORACLE Then + Exit Sub + End If + + If chkWinAuth.Checked Then + oConnectionBuilder.DataSource = SERVERTextBox.Text + oConnectionBuilder.IntegratedSecurity = True + Else + If USERNAMETextBox.Text = String.Empty Or PASSWORDTextBox.Text = String.Empty Then + MsgBox("Bitte geben sie Benutzer und Passwort an!", MsgBoxStyle.Exclamation, Text) + Exit Sub + End If + + oConnectionBuilder.DataSource = SERVERTextBox.Text + oConnectionBuilder.IntegratedSecurity = False + oConnectionBuilder.UserID = USERNAMETextBox.Text + oConnectionBuilder.Password = PASSWORDTextBox.Text + End If + + Try + Using oConnection As New SqlConnection(oConnectionBuilder.ToString) + oConnection.Open() + + Using oCmd As New SqlCommand("sp_databases", oConnection) With {.CommandType = CommandType.StoredProcedure} + Using oReader As SqlDataReader = oCmd.ExecuteReader + If oReader.HasRows Then + DATENBANKComboBox.Items.Clear() + Do While oReader.Read() + DATENBANKComboBox.Items.Add(oReader.Item("Database_Name")) + Loop + DATENBANKComboBox.DroppedDown = True + Else + MsgBox("The standard-databases could not be retrieved." & vbNewLine & "Check rights in sql-server for user", MsgBoxStyle.Exclamation) + End If + End Using + End Using + End Using + Catch ex As Exception + Logger.Error(ex) + MsgBox("Error while loading Databases:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text) + Finally + Cursor = Cursors.Default + End Try + End Sub + + Private Sub chkWinAuth_CheckedChanged(sender As Object, e As EventArgs) Handles chkWinAuth.CheckedChanged + If chkWinAuth.Checked Then + USERNAMETextBox.Enabled = False + USERNAMETextBox.Text = "WINAUTH" + PASSWORDTextBox.Enabled = False + PASSWORDTextBox.Text = "" + Else + USERNAMETextBox.Enabled = True + USERNAMETextBox.Text = "" + PASSWORDTextBox.Enabled = True + PASSWORDTextBox.Text = "" + End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonAdd.ItemClick + TBDD_CONNECTIONBindingSource.AddNew() + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonDelete.ItemClick + Try + If GUIDTextBox.Text <> String.Empty Then + Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text) + If oResult = MsgBoxResult.Yes Then + TBDD_CONNECTIONTableAdapter.Delete(GUIDTextBox.Text) + End If + End If + Catch ex As Exception + Logger.Error(ex) + MsgBox("Fehler beim Löschen der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick + Validate() + TBDD_CONNECTIONBindingSource.EndEdit() + TableAdapterManager.UpdateAll(MyDataset) + End Sub + +End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmLicenseInfo.Designer.vb b/app/DD_Clipboard_Searcher/frmLicenseInfo.Designer.vb new file mode 100644 index 0000000..57688a6 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmLicenseInfo.Designer.vb @@ -0,0 +1,109 @@ + _ +Partial Class frmLicenseInfo + 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.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.lblLicenseDate = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.lbllicenseCount = New System.Windows.Forms.Label() + Me.GroupBox5.SuspendLayout() + Me.SuspendLayout() + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label5) + Me.GroupBox5.Controls.Add(Me.lblLicenseDate) + Me.GroupBox5.Controls.Add(Me.Label6) + Me.GroupBox5.Controls.Add(Me.lbllicenseCount) + Me.GroupBox5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox5.Location = New System.Drawing.Point(12, 12) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(290, 82) + Me.GroupBox5.TabIndex = 25 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "Lizenzen" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(6, 17) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(106, 13) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "Anzahl der Lizenzen:" + ' + 'lblLicenseDate + ' + Me.lblLicenseDate.AutoSize = True + Me.lblLicenseDate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLicenseDate.Location = New System.Drawing.Point(118, 39) + Me.lblLicenseDate.Name = "lblLicenseDate" + Me.lblLicenseDate.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblLicenseDate.Size = New System.Drawing.Size(13, 13) + Me.lblLicenseDate.TabIndex = 7 + Me.lblLicenseDate.Text = "0" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(6, 39) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(55, 13) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Gültigkeit:" + ' + 'lbllicenseCount + ' + Me.lbllicenseCount.AutoSize = True + Me.lbllicenseCount.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbllicenseCount.Location = New System.Drawing.Point(118, 17) + Me.lbllicenseCount.Name = "lbllicenseCount" + Me.lbllicenseCount.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lbllicenseCount.Size = New System.Drawing.Size(13, 13) + Me.lbllicenseCount.TabIndex = 6 + Me.lbllicenseCount.Text = "0" + ' + 'frmLicenseInfo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(314, 174) + Me.Controls.Add(Me.GroupBox5) + Me.Name = "frmLicenseInfo" + Me.ShowIcon = False + Me.Text = "Lizenz Informationen" + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents GroupBox5 As GroupBox + Friend WithEvents Label5 As Label + Friend WithEvents lblLicenseDate As Label + Friend WithEvents Label6 As Label + Friend WithEvents lbllicenseCount As Label +End Class diff --git a/app/DD_Clipboard_Searcher/frmLicenseInfo.resx b/app/DD_Clipboard_Searcher/frmLicenseInfo.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmLicenseInfo.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmLicenseInfo.vb b/app/DD_Clipboard_Searcher/frmLicenseInfo.vb new file mode 100644 index 0000000..217bce3 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmLicenseInfo.vb @@ -0,0 +1,10 @@ +Public Class frmLicenseInfo + Private Sub frmLicenseInfo_Load(sender As Object, e As EventArgs) Handles Me.Load + lbllicenseCount.Text = LICENSE_COUNT + If LICENSE_DATE.ToString.Contains("2099") Then + lblLicenseDate.Text = "Unlimited" + Else + lblLicenseDate.Text = LICENSE_DATE + End If + End Sub +End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb b/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb index e928b14..6526ac9 100644 --- a/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb @@ -39,6 +39,7 @@ Partial Class frmProcessCapture 'Button1 ' Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Enabled = False Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.Location = New System.Drawing.Point(12, 206) diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.vb b/app/DD_Clipboard_Searcher/frmProcessCapture.vb index d4dbfbc..fe753c0 100644 --- a/app/DD_Clipboard_Searcher/frmProcessCapture.vb +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.vb @@ -1,17 +1,23 @@ -Public Class frmProcessCapture +Imports System.Reflection + +Public Class frmProcessCapture Public ProcessId As Integer Public ProcessName As String Public WindowTitle As String Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick clsWINDOWSApi.Get_ForegroundWindow_Info() - If CurrPROC_Name <> "DD_Clipboard_Watcher" Then + Dim oProgramName As String = Assembly.GetEntryAssembly().GetName().Name + + If CurrPROC_Name <> oProgramName Then txtPID.Text = CurrPROC_PID txtName.Text = CurrPROC_Name txtWindowTitle.Text = CurrPROC_WindowTitle ProcessId = CurrPROC_PID ProcessName = CurrPROC_Name WindowTitle = CurrPROC_WindowTitle + + Button1.Enabled = True End If End Sub diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.vb index e5ab3c6..9167e65 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.vb @@ -1,6 +1,6 @@ Imports DD_Clipboard_Watcher.ClassProfileFilter +Imports DD_Clipboard_Watcher.ClassConstants Imports DevExpress.XtraEditors -Imports ClassConstants Public Class frmProfileMatch Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold) @@ -9,6 +9,12 @@ Public Class frmProfileMatch Private OpenForms As New List(Of IResultForm) Private ShouldHideInitially As Boolean = False + Private Enum ProfileType + ANY = 0 + DOCS_ONLY = 1 + DATA_ONLY = 2 + End Enum + Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load If Not ConfigManager.Config.MatchWindowLocation.IsEmpty Then Location = ConfigManager.Config.MatchWindowLocation @@ -26,10 +32,14 @@ Public Class frmProfileMatch Dim oCreatedTiles = CreateTiles() + If oCreatedTiles = -1 Then + Exit Sub + End If + ' Open Result Forms directly if only one match found If oCreatedTiles = 1 Then Dim oProfileId As Integer = CURRENT_MATCHING_PROFILES.Select(Function(p) p.Guid).First() - OpenResultForms(oProfileId) + OpenResultForms(oProfileId, ProfileType.ANY) ShouldHideInitially = True End If End Sub @@ -51,7 +61,7 @@ Public Class frmProfileMatch oDataGroup.Items.Clear() For Each oProfile As ProfileData In CURRENT_MATCHING_PROFILES - If oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_DOCS Then + If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Then If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then Dim oCountText = oProfile.CountData + oProfile.CountDocs Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse") @@ -60,7 +70,7 @@ Public Class frmProfileMatch End If End If - If oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DOCS_ONLY Then + If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = PROFILE_TYPE_DOCS_ONLY Then If oProfile.CountDocs > 0 Then Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dokumente") oDocumentGroup.Items.Add(oItem) @@ -68,7 +78,7 @@ Public Class frmProfileMatch End If End If - If oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_ONLY Then + If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = PROFILE_TYPE_DATA_ONLY Then If oProfile.CountData > 0 Then Dim oItem = CreateTile(oProfile, $"{oProfile.CountData} Datensätze") oDataGroup.Items.Add(oItem) @@ -89,41 +99,44 @@ Public Class frmProfileMatch Dim oItem As New TileItem() With {.Tag = Profile.Guid} oItem.Elements.Clear() - Dim oNameElement = New TileItemElement() - oNameElement.Text = Profile.Name - oNameElement.TextAlignment = TileItemContentAlignment.TopLeft + Dim oNameElement = New TileItemElement With { + .Text = Profile.Name, + .TextAlignment = TileItemContentAlignment.TopLeft + } oNameElement.Appearance.Normal.Font = PrimaryFont oItem.Elements.Add(oNameElement) - Dim oCommentElement = New TileItemElement() - oCommentElement.Text = Profile.Comment - oCommentElement.TextAlignment = TileItemContentAlignment.MiddleLeft + Dim oCommentElement = New TileItemElement With { + .Text = Profile.Comment, + .TextAlignment = TileItemContentAlignment.MiddleLeft + } oCommentElement.Appearance.Normal.Font = SecondaryFont oItem.Elements.Add(oCommentElement) - Dim oCountElement = New TileItemElement() - oCountElement.Text = GetCountText(Profile, CountText) - oCountElement.TextAlignment = TileItemContentAlignment.BottomRight + Dim oCountElement = New TileItemElement With { + .Text = GetCountText(Profile, CountText), + .TextAlignment = TileItemContentAlignment.BottomRight + } oCountElement.Appearance.Normal.Font = SecondaryFont oItem.Elements.Add(oCountElement) Return oItem End Function - Private Function GetCountText(Profile As ClassProfileFilter.ProfileData, CountText As String) As String + Private Function GetCountText(Profile As ProfileData, CountText As String) As String Dim oText As String = "No implemented" - If Profile.CountData = ClassConstants.INVALID_COUNT_SQL Then + If Profile.CountData = INVALID_COUNT_SQL Then oText = "Invalid SQL!" - ElseIf Profile.CountData = ClassConstants.NO_COUNT_SQL Then + ElseIf Profile.CountData = NO_COUNT_SQL Then oText = "No SQL!" Else oText = CountText End If - If Profile.CountDocs = ClassConstants.INVALID_COUNT_SQL Then + If Profile.CountDocs = INVALID_COUNT_SQL Then oText = "Invalid SQL!" - ElseIf Profile.CountDocs = ClassConstants.NO_COUNT_SQL Then + ElseIf Profile.CountDocs = NO_COUNT_SQL Then oText = "No SQL!" Else oText = CountText @@ -143,51 +156,51 @@ Public Class frmProfileMatch End Try End Sub - Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) - Close() - End Sub - Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick Dim oItem As TileItem = e.Item Dim oProfileId As Integer = oItem.Tag - OpenResultForms(oProfileId) + Select Case oItem.Group.Name + Case TileGroupData.Name + OpenResultForms(oProfileId, ProfileType.DATA_ONLY) + + Case TileGroupDocuments.Name + OpenResultForms(oProfileId, ProfileType.DOCS_ONLY) + + Case Else + OpenResultForms(oProfileId, ProfileType.ANY) + End Select Hide() End Sub - Private Sub OpenResultForms(ProfileId As Integer) + Private Sub OpenResultForms(ProfileId As Integer, OpenType As ProfileType) Dim oMatchingProfiles As New List(Of ProfileData) - If ProfileId = -1 Then - ' Click on Show all, add all matching profiles - oMatchingProfiles = CURRENT_MATCHING_PROFILES. - Select(Function(p) p). - ToList() - Else - ' Click on specific profile - Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES. + ' TODO: Implement Show All + + ' Click on specific profile + Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES. Where(Function(p) p.Guid = ProfileId). First() oMatchingProfiles.Add(oProfile) - If (oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DOCS_ONLY) And oProfile.CountDocs > 0 Then - ' Show Result Document Form - Dim oForm As New frmResultDoc(Me, oMatchingProfiles) - AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed - OpenForms.Add(oForm) + If OpenType = ProfileType.ANY Or OpenType = ProfileType.DOCS_ONLY Then + ' Show Result Document Form + Dim oForm As New frmResultDoc(Me, oMatchingProfiles) + AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed + OpenForms.Add(oForm) - oForm.Show() - End If + oForm.Show() + End If - If oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = ClassConstants.PROFILE_TYPE_DATA_ONLY And oProfile.CountData > 0 Then - ' Show Result Data Form - Dim oForm As New frmResultSQL(Me, oMatchingProfiles) - AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed - OpenForms.Add(oForm) + If OpenType = ProfileType.ANY Or OpenType = ProfileType.DATA_ONLY Then + ' Show Result Data Form + Dim oForm As New frmResultSQL(Me, oMatchingProfiles) + AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed + OpenForms.Add(oForm) - oForm.Show() - End If + oForm.Show() End If End Sub @@ -207,6 +220,7 @@ Public Class frmProfileMatch ' If frmProfileMatch should be shown, close all windows of this profile If oShouldOpenAgain Then For Each oForm As Form In OpenForms.Except(oThisForm) + ' Remove the Handler to prevent a loop RemoveHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed oForm.Close() Next diff --git a/app/DD_Clipboard_Searcher/frmStart.Designer.vb b/app/DD_Clipboard_Searcher/frmStart.Designer.vb index bde053c..c5ff3d1 100644 --- a/app/DD_Clipboard_Searcher/frmStart.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmStart.Designer.vb @@ -1,6 +1,6 @@  Partial Class frmStart - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraEditors.XtraForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -78,7 +78,7 @@ Partial Class frmStart 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 138) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 154) Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Size = New System.Drawing.Size(345, 22) Me.StatusStrip1.SizingGrip = False @@ -113,7 +113,7 @@ Partial Class frmStart Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(12, 38) + Me.Label1.Location = New System.Drawing.Point(12, 56) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(321, 26) Me.Label1.TabIndex = 7 @@ -126,7 +126,7 @@ Partial Class frmStart Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox1.Controls.Add(Me.labelHotkey) 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(15, 67) + Me.GroupBox1.Location = New System.Drawing.Point(15, 92) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(318, 59) Me.GroupBox1.TabIndex = 11 @@ -151,7 +151,7 @@ Partial Class frmStart Me.btnUserConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnUserConfig.Location = New System.Drawing.Point(15, 12) Me.btnUserConfig.Name = "btnUserConfig" - Me.btnUserConfig.Size = New System.Drawing.Size(151, 23) + Me.btnUserConfig.Size = New System.Drawing.Size(151, 32) Me.btnUserConfig.TabIndex = 13 Me.btnUserConfig.Text = "Grundeinstellungen" Me.btnUserConfig.UseVisualStyleBackColor = True @@ -162,16 +162,17 @@ Partial Class frmStart Me.btnAdminConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAdminConfig.Location = New System.Drawing.Point(182, 12) Me.btnAdminConfig.Name = "btnAdminConfig" - Me.btnAdminConfig.Size = New System.Drawing.Size(151, 23) + Me.btnAdminConfig.Size = New System.Drawing.Size(151, 32) Me.btnAdminConfig.TabIndex = 13 Me.btnAdminConfig.Text = "Administration" Me.btnAdminConfig.UseVisualStyleBackColor = True ' 'frmStart ' + Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(345, 160) + Me.ClientSize = New System.Drawing.Size(345, 176) Me.ContextMenuStrip = Me.ContextMenuStripForm Me.Controls.Add(Me.btnAdminConfig) Me.Controls.Add(Me.btnUserConfig) @@ -182,7 +183,8 @@ Partial Class frmStart Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.KeyPreview = True Me.MaximizeBox = False - Me.MinimumSize = New System.Drawing.Size(361, 199) + Me.MaximumSize = New System.Drawing.Size(361, 215) + Me.MinimumSize = New System.Drawing.Size(361, 215) Me.Name = "frmStart" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Clipboard Watcher" diff --git a/app/DD_Clipboard_Searcher/frmStart.vb b/app/DD_Clipboard_Searcher/frmStart.vb index 5db27cf..79e9575 100644 --- a/app/DD_Clipboard_Searcher/frmStart.vb +++ b/app/DD_Clipboard_Searcher/frmStart.vb @@ -1,66 +1,61 @@ Imports System.Threading Imports System.IO +Imports System.Globalization Imports DD_LIB_Standards +Imports DD_Clipboard_Watcher.ClassConstants Public Class frmStart - Dim WithEvents Hotkey As New clsHotkey(Me) + Dim WithEvents Hotkey As New ClassHotkey(Me) 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 WatcherChanged_New(ByVal sender As Object, ByVal e As EventArgs) Handles _Watcher.Changed - If MONITORING_ACTIVE = False Then - NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info) - Exit Sub - End If - - If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then - Exit Sub - End If - - Dim ClipboardContents As String = Clipboard.GetText() - Dim WindowTitle As String = clsHotkey.GetCaption() - Dim oProfileFilter As ClassProfileFilter - - Try - oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW) - Catch ex As Exception - MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.") - Exit Sub - End Try - - Dim oProfiles = oProfileFilter.Profiles.AsEnumerable() - - oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, CurrPROC_Name) - oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) - oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, WindowTitle) - oProfiles = oProfileFilter.FilterProfilesByWindowClipboardRegex(oProfiles, ClipboardContents) - oProfiles = oProfileFilter.RemoveDuplicateProfiles() - oProfiles = oProfiles.ToList() - - CURRENT_MATCHING_PROFILES = oProfiles - CURRENT_CLIPBOARD_CONTENTS = ClipboardContents - 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. + Dim splash As New frmSplash() + splash.ShowDialog() + If ERROR_INIT <> "INVALID USER" Then + Dim cultureInfo As New CultureInfo(USER_LANGUAGE) + Thread.CurrentThread.CurrentCulture = cultureInfo + Thread.CurrentThread.CurrentUICulture = cultureInfo + CultureInfo.DefaultThreadCurrentCulture = cultureInfo + CultureInfo.DefaultThreadCurrentUICulture = cultureInfo + End If + End Sub + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load + ClassWindowLocation.LoadFormLocationSize(Me) + If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then + frmConfig_Basic.ShowDialog() + End If + + If clsDatabase.DB_DEFAULT_INITIALIZED = True Then + If ERROR_INIT <> "" Then + If ERROR_INIT = "NO CLIENT" Then + MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) + Else + MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) + End If + Exit Sub + End If + NotifyIconMain.Visible = True + ClassInit.Refresh_Profile_Links() + Hotkey.AddHotKey(Keys.T, ClassHotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER) + Dim oKeyCode As Keys + Dim oConverter As New KeysConverter + Dim oObject As Object = oConverter.ConvertFromString(HotkeySearchKey.ToUpper) + oKeyCode = CType(oObject, Keys) + + If HotkeyFunctionKey = HOTKEY_CTRL Then + Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) + ElseIf HotkeyFunctionKey = HOTKEY_SHIFT Then + Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) + End If + + End If + tslblUser.Text = USER_USERNAME + labelHotkey.Text = $"STRG+C {HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}" End Sub Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing @@ -95,45 +90,50 @@ Public Class frmStart Next End Sub - Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load - ClassWindowLocation.LoadFormLocationSize(Me) - If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then - frmConfig_Basic.ShowDialog() - End If - - If clsDatabase.DB_DEFAULT_INITIALIZED = True Then - If ERROR_INIT <> "" Then - If ERROR_INIT = "NO CLIENT" Then - MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) - Else - MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) - End If - Exit Sub - End If - NotifyIconMain.Visible = True - clsHotkey.Refresh_Profile_Links() - Hotkey.AddHotKey(Keys.T, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TOGGLE_WATCHER) - Dim oKeyCode As Keys - Dim oConverter As New KeysConverter - Dim oObject As Object = oConverter.ConvertFromString(HotkeySearchKey.ToUpper) - oKeyCode = CType(oObject, Keys) - - If HotkeyFunctionKey = ClassConstants.HOTKEY_CTRL Then - Hotkey.AddHotKey(oKeyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) - ElseIf HotkeyFunctionKey = "SHIFT" Then - Hotkey.AddHotKey(oKeyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) - End If - - End If - tslblUser.Text = USER_USERNAME - labelHotkey.Text = $"STRG+C {HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}" + Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Disposed + _Watcher.Dispose() End Sub + + Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As EventArgs) Handles _Watcher.Changed + If MONITORING_ACTIVE = False Then + NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info) + Exit Sub + End If + + If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then + Exit Sub + End If + + Dim ClipboardContents As String = Clipboard.GetText() + Dim WindowTitle As String = ClassHotkey.GetCaption() + Dim oProfileFilter As ClassProfileFilter + + Try + oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW) + Catch ex As Exception + MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.") + Exit Sub + End Try + + Dim oProfiles = oProfileFilter.Profiles.AsEnumerable() + + oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, CurrPROC_Name) + oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) + oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, WindowTitle) + oProfiles = oProfileFilter.FilterProfilesByWindowClipboardRegex(oProfiles, ClipboardContents) + oProfiles = oProfileFilter.RemoveDuplicateProfiles() + oProfiles = oProfiles.ToList() + + CURRENT_MATCHING_PROFILES = oProfiles + CURRENT_CLIPBOARD_CONTENTS = ClipboardContents + End Sub + Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed - If HotKeyID = ClassConstants.HOTKEY_TRIGGER_WATCHER Then + If HotKeyID = HOTKEY_TRIGGER_WATCHER Then If CURRENT_MATCHING_PROFILES.Count > 0 And MONITORING_ACTIVE = True Then CHECK_PROFILE_MATCH() End If - ElseIf HotKeyID = ClassConstants.HOTKEY_TOGGLE_WATCHER Then + ElseIf HotKeyID = HOTKEY_TOGGLE_WATCHER Then Change_Monitoring_State() End If @@ -197,7 +197,7 @@ Public Class frmStart End Sub Sub Change_Monitoring_State() If MONITORING_ACTIVE = True Then - NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde inaktiviert!", ToolTipIcon.Info) + NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info) MONITORING_ACTIVE = False Else MONITORING_ACTIVE = True @@ -229,12 +229,12 @@ Public Class frmStart OpenClose() End Sub Sub OpenClose() - If Me.Visible = False Then - Me.BringToFront() - Me.Visible = True + If Visible = False Then + BringToFront() + Visible = True TimerClose.Start() Else - Me.Hide() + Hide() NotifyIconMain.Visible = True End If End Sub @@ -290,5 +290,4 @@ Public Class frmStart TimerClose.Start() MONITORING_ACTIVE = True End Sub - End Class