From eeb38b58497dbbc4bfb05328c6ea431266eb4137 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 8 Aug 2019 16:24:31 +0200 Subject: [PATCH] Final fixes before vacation \o/ --- app/DD_Clipboard_Searcher/ClassInit.vb | 5 +- .../ClassProfileFilter.vb | 224 ++- .../DD_Clipboard_Watcher.vbproj | 6 +- .../MyDataset.Designer.vb | 25 +- app/DD_Clipboard_Searcher/MyDataset.xsd | 44 +- app/DD_Clipboard_Searcher/MyDataset.xss | 4 +- .../ctrlApplicationAssignment.Designer.vb | 104 +- .../ctrlApplicationAssignment.resx | 15 + .../ctrlApplicationAssignment.vb | 65 +- .../frmAdministration.Designer.vb | 1436 +++++++++-------- .../frmAdministration.resx | 112 +- .../frmAdministration.vb | 221 +-- .../frmConnection.Designer.vb | 40 +- app/DD_Clipboard_Searcher/frmConnection.resx | 3 - app/DD_Clipboard_Searcher/frmConnection.vb | 26 +- .../frmControlCapture.vb | 3 + .../frmProcessCapture.vb | 5 +- .../frmStart.Designer.vb | 2 +- app/DD_Clipboard_Searcher/frmStart.vb | 9 +- app/DD_Clipboard_Searcher/modCurrent.vb | 1 + app/SetupWix/Product.wxs | 9 + 21 files changed, 1381 insertions(+), 978 deletions(-) diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb index 136e856..b379756 100644 --- a/app/DD_Clipboard_Searcher/ClassInit.vb +++ b/app/DD_Clipboard_Searcher/ClassInit.vb @@ -231,13 +231,16 @@ Public Class ClassInit 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) + Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE ACTIVE = 1 AND 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 = Database.GetDatatable(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 = Database.GetDatatable(oSql) + + oSql = $"SELECT * FROM VWCW_PROFILE_REL_CONTROL WHERE USER_ID = {USER_ID}" + DTPROFILE_REL_CONTROL = Database.GetDatatable(oSql) End If Catch ex As Exception Logger.Error(ex) diff --git a/app/DD_Clipboard_Searcher/ClassProfileFilter.vb b/app/DD_Clipboard_Searcher/ClassProfileFilter.vb index 820f8e4..24b971a 100644 --- a/app/DD_Clipboard_Searcher/ClassProfileFilter.vb +++ b/app/DD_Clipboard_Searcher/ClassProfileFilter.vb @@ -1,9 +1,10 @@ Imports System.Text.RegularExpressions -Imports DD_Clipboard_Watcher +Imports DD_Clipboard_Watcher.ClassWindowAPI Public Class ClassProfileFilter Private _ProfileTable As DataTable Private _WindowTable As DataTable + Private _ControlTable As DataTable Private _Profiles As List(Of ProfileData) Private _DebugData As DebugData @@ -18,6 +19,7 @@ Public Class ClassProfileFilter Public ProfileType As Integer Public Windows As List(Of WindowData) + Public Controls As List(Of ControlData) Public CountDocs As Integer = 0 Public CountData As Integer = 0 @@ -30,6 +32,11 @@ Public Class ClassProfileFilter Public ClipboardRegex As String End Class + Class ControlData + Public Description As String + Public Regex As String + End Class + ' TODO: Fill this Class!!!! :D Class DebugData Public ProcessMatch As List(Of String) @@ -44,11 +51,12 @@ Public Class ClassProfileFilter End Get End Property - Public Sub New(ProfileDatatable As DataTable, WindowDatatable As DataTable) + Public Sub New(ProfileDatatable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable) Try _DebugData = New DebugData() _ProfileTable = ProfileDatatable _WindowTable = WindowDatatable + _ControlTable = ControlDatatable _Profiles = TransformProfiles() Catch ex As Exception Logger.Error(ex) @@ -66,45 +74,54 @@ Public Class ClassProfileFilter Select(Function(p) p.FirstOrDefault()) End Function - Public Function FilterProfilesByProcess(Profiles As IEnumerable(Of ProfileData), CurrentProcessName As String) As IEnumerable(Of ProfileData) - Return Profiles. - Where(Function(p) - If p.ProcessName.ToLower = CurrentProcessName.ToLower Then - 'TODO: Add Debug Data - Return True - Else - Return False - End If - End Function) + Public Function FilterProfilesByProcess(Profiles As List(Of ProfileData), CurrentProcessName As String) As List(Of ProfileData) + Dim oFilteredProfiles As New List(Of ProfileData) + + For Each oProfile In Profiles + Logger.Debug("Current Profile: {0}", oProfile.Name) + + If oProfile.ProcessName.ToLower = CurrentProcessName.ToLower Then + Logger.Debug("Processname Matched: {0}", oProfile.ProcessName.ToLower) + 'TODO: Add Debug Data + oFilteredProfiles.Add(oProfile) + End If + Next + + Return oFilteredProfiles End Function - Public Function FilterProfilesByClipboardRegex(Profiles As IEnumerable(Of ProfileData), ClipboardContents As String) As IEnumerable(Of ProfileData) - Return Profiles. - Where(Function(p) - Try - Dim oRegex As New Regex(p.Regex) - Dim oMatch = oRegex.Match(ClipboardContents) - If oMatch.Success Then - 'TODO: Add Debug Data - Return True - Else - Return False - End If - Catch ex As Exception - Logger.Warn("Regex '{0}' could not be processed for input '{1}'", p.Regex, ClipboardContents) - Logger.Error(ex) - Return False - End Try - End Function) + Public Function FilterProfilesByClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData) + Dim oFilteredProfiles As New List(Of ProfileData) + + For Each oProfile In Profiles + Logger.Debug("Current Profile: {0}", oProfile.Name) + + Try + Dim oRegex As New Regex(oProfile.Regex) + Dim oMatch = oRegex.Match(ClipboardContents) + If oMatch.Success Then + Logger.Debug("Global Clipboard Regex Matched: {0}", ClipboardContents) + 'TODO: Add Debug Data + oFilteredProfiles.Add(oProfile) + End If + Catch ex As Exception + Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents) + Logger.Error(ex) + End Try + Next + + Return oFilteredProfiles End Function - Public Function FilterWindowsByWindowTitleRegex(Profiles As IEnumerable(Of ProfileData), WindowTitle As String) As IEnumerable(Of ProfileData) + Public Function FilterWindowsByWindowTitleRegex(Profiles As List(Of ProfileData), WindowTitle As String) As List(Of ProfileData) Dim oProfiles As New List(Of ProfileData) - For Each p As ProfileData In Profiles + For Each oProfile As ProfileData In Profiles + Logger.Debug("Current Profile: {0}", oProfile.Name) + Dim oWindows As New List(Of WindowData) - For Each w As WindowData In p.Windows + For Each w As WindowData In oProfile.Windows Try If w.Regex = String.Empty Then oWindows.Add(w) @@ -114,6 +131,7 @@ Public Class ClassProfileFilter Dim oMatch = oRegex.Match(WindowTitle) If oMatch.Success Then + Logger.Debug("Window Title Regex Matched: {0}", WindowTitle) 'TODO: Add Debug Data oWindows.Add(w) End If @@ -123,38 +141,107 @@ Public Class ClassProfileFilter End Try Next - p.Windows = oWindows + If oWindows.Count > 0 Then + oProfile.Windows = oWindows + oProfiles.Add(oProfile) + End If Next Return oProfiles End Function - Public Function FilterProfilesByWindowClipboardRegex(Profiles As IEnumerable(Of ProfileData), ClipboardContents As String) As IEnumerable(Of ProfileData) - Return _Profiles.Where(Function(p) - If p.Windows.Count = 0 Then Return True - - Return p.Windows. - Any(Function(w) - Try - If w.ClipboardRegex = String.Empty Then Return True - - Dim oRegex As New Regex(w.ClipboardRegex) - Dim oMatch = oRegex.Match(ClipboardContents) - - If oMatch.Success Then - 'TODO: Add Debug Data - Return True - Else - Return False - End If - Catch ex As Exception - Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.ClipboardRegex, ClipboardContents) - Logger.Error(ex) - Return False - End Try - End Function) - End Function) + Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData) + Dim oProfiles As New List(Of ProfileData) + + For Each oProfile As ProfileData In Profiles + Logger.Debug("Current Profile: {0}", oProfile.Name) + + Dim oWindows As New List(Of WindowData) + + For Each w As WindowData In oProfile.Windows + Try + If w.ClipboardRegex = String.Empty Then + oWindows.Add(w) + End If + + Dim oRegex As New Regex(w.ClipboardRegex) + Dim oMatch = oRegex.Match(ClipboardContents) + + If oMatch.Success Then + Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents) + 'TODO: Add Debug Data + oWindows.Add(w) + End If + Catch ex As Exception + Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.ClipboardRegex, ClipboardContents) + Logger.Error(ex) + End Try + Next + + If oWindows.Count > 0 Then + oProfile.Windows = oWindows + oProfiles.Add(oProfile) + End If + Next + + Return oProfiles + End Function + + Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData)) As List(Of ProfileData) + Dim oWindow As WindowInfo + Dim oFocusedControl As WindowInfo + + Try + oWindow = GetWindowInfo() + oFocusedControl = GetFocusedControl(oWindow.hWnd) + + If oFocusedControl Is Nothing OrElse oFocusedControl.ControlName = String.Empty Then + Logger.Warn("Could not get FocusedControl in Window {0}", oWindow.WindowTitle) + Return Profiles + End If + Catch ex As Exception + Logger.Warn("Error while getting Focused control") + Logger.Error(ex) + Return Profiles + End Try + + Dim oFilteredProfiles As New List(Of ProfileData) + + For Each oProfile In Profiles + Logger.Debug("Current Profile: {0}", oProfile.Name) + If oProfile.Controls.Count = 0 Then + oFilteredProfiles.Add(oProfile) + End If + + Dim oControls As New List(Of ControlData) + + For Each c In oProfile.Controls + Try + If c.Regex = String.Empty Then + oControls.Add(c) + End If + Dim oRegex As New Regex(c.Regex) + Dim oMatch = oRegex.Match(oFocusedControl.ControlName) + + If oMatch.Success Then + Logger.Debug("Focused Control Name Regex Matched: {0}", oFocusedControl.ControlName) + 'TODO: Add Debug Data + oControls.Add(c) + End If + Catch ex As Exception + Logger.Warn("Regex '{0}' could not be processed for input '{1}'", c.Regex, oFocusedControl.ControlName) + Logger.Error(ex) + End Try + Next + + If oControls.Count > 0 Then + oProfile.Controls = oControls + oFilteredProfiles.Add(oProfile) + End If + Next + + Return oFilteredProfiles End Function Private Function TransformProfiles() As List(Of ProfileData) @@ -163,6 +250,7 @@ Public Class ClassProfileFilter For Each oRow As DataRow In _ProfileTable.Rows Dim oProfileId = oRow.Item("GUID") Dim oWindowList As List(Of WindowData) = TransformWindows(oProfileId, _WindowTable) + Dim oControlList As List(Of ControlData) = TransformControls(oProfileId, _ControlTable) oList.Add(New ProfileData() With { .Guid = oRow.Item("GUID"), @@ -173,13 +261,29 @@ Public Class ClassProfileFilter .SQLCountDocs = oRow.Item("SQL_COUNT_DOCS"), .SQLCountData = oRow.Item("SQL_COUNT_DATA"), .ProfileType = oRow.Item("PROFILE_TYPE"), - .Windows = oWindowList + .Windows = oWindowList, + .Controls = oControlList }) Next Return oList End Function + Private Function TransformControls(ProfileId As Integer, ControlDatatable As DataTable) As List(Of ControlData) + Dim oControlList As New List(Of ControlData) + + For Each oRow As DataRow In ControlDatatable.Rows + If oRow.Item("PROFILE_ID") = ProfileId Then + oControlList.Add(New ControlData() With { + .Description = oRow.Item("DESCRIPTION"), + .Regex = oRow.Item("REGEX") + }) + End If + Next + + Return oControlList + End Function + Private Function TransformWindows(ProfileId As Integer, WindowDatatable As DataTable) As List(Of WindowData) Dim oWindowList As New List(Of WindowData) diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index 1cd0442..c734498 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -67,6 +67,9 @@ + + ..\..\..\DDMonorepo\Controls.RegexEditor\bin\Debug\DigitalData.Controls.RegexEditor.dll + ..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll @@ -90,9 +93,6 @@ P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll - - ..\..\..\DDMonorepo\Controls.RegexEditor\bin\Debug\RegexEditor.dll - diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index 898a8ab..487f11e 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -12032,16 +12032,28 @@ Namespace MyDatasetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBCW_PROF_REL_CONTROL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL" + Me._commandCollection(0).CommandText = "SELECT TBCW_PROF_REL_CONTROL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL WHER"& _ + "E PROCESS_NAME = @PROCESS_NAME AND WINDOW_ID = @WINDOW_ID AND PROFILE_ID = @PROF"& _ + "ILE_ID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable, ByVal PROCESS_NAME As String, ByVal WINDOW_ID As Integer, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (PROCESS_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(WINDOW_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -12053,8 +12065,15 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As MyDataset.TBCW_PROF_REL_CONTROLDataTable + Public Overloads Overridable Function GetData(ByVal PROCESS_NAME As String, ByVal WINDOW_ID As Integer, ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_REL_CONTROLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (PROCESS_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(WINDOW_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(PROFILE_ID,Integer) Dim dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable = New MyDataset.TBCW_PROF_REL_CONTROLDataTable() Me.Adapter.Fill(dataTable) Return dataTable diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index 5a57a99..7ac5b5a 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -752,8 +752,12 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, SELECT TBCW_PROF_REL_CONTROL.* -FROM TBCW_PROF_REL_CONTROL - +FROM TBCW_PROF_REL_CONTROL WHERE PROCESS_NAME = @PROCESS_NAME AND WINDOW_ID = @WINDOW_ID AND PROFILE_ID = @PROFILE_ID + + + + + @@ -814,7 +818,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -867,7 +871,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -884,7 +888,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -913,7 +917,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -924,7 +928,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -947,7 +951,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -995,7 +999,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1043,7 +1047,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1060,7 +1064,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1068,7 +1072,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1082,7 +1086,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1090,7 +1094,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1143,7 +1147,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1216,7 +1220,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - + @@ -1312,10 +1316,10 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, - - - - + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index 4c0516c..e40eccd 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -16,10 +16,10 @@ + - diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb index 88ed84c..5c35684 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb @@ -34,12 +34,17 @@ Partial Class ctrlApplicationAssignment Me.colREGEX = New DevExpress.XtraGrid.Columns.GridColumn() Me.RepositoryItemRegexEdit = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit() 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.GridControl_Control = New DevExpress.XtraGrid.GridControl() + Me.TBCW_PROF_REL_CONTROLBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridView_Control = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colREGEX1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemButtonEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit() + Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label2 = New System.Windows.Forms.Label() + Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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() @@ -47,6 +52,9 @@ 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.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() + Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager() + Me.TBCW_PROF_REL_CONTROLTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer3.Panel1.SuspendLayout() Me.SplitContainer3.Panel2.SuspendLayout() @@ -58,7 +66,10 @@ Partial Class ctrlApplicationAssignment CType(Me.RepositoryItemRegexEdit, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl_Control, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() @@ -111,7 +122,7 @@ Partial Class ctrlApplicationAssignment ' 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.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPROCESS_NAME, Me.colGUID, Me.colDESCRIPTION, Me.colREGEX, Me.colREGEX_CLIPBOARD}) Me.GridView_Window.GridControl = Me.GridControl_Window Me.GridView_Window.Name = "GridView_Window" Me.GridView_Window.OptionsView.EnableAppearanceEvenRow = True @@ -159,15 +170,6 @@ Partial Class ctrlApplicationAssignment Me.colREGEX_CLIPBOARD.Visible = True Me.colREGEX_CLIPBOARD.VisibleIndex = 2 ' - 'colSEQUENCE - ' - Me.colSEQUENCE.Caption = "Anordnung" - Me.colSEQUENCE.ColumnEdit = Me.RepositoryItemSpinEdit1 - Me.colSEQUENCE.FieldName = "SEQUENCE" - Me.colSEQUENCE.Name = "colSEQUENCE" - Me.colSEQUENCE.Visible = True - Me.colSEQUENCE.VisibleIndex = 3 - ' 'RepositoryItemSpinEdit1 ' Me.RepositoryItemSpinEdit1.AutoHeight = False @@ -187,23 +189,60 @@ Partial Class ctrlApplicationAssignment ' 'GridControl_Control ' + Me.GridControl_Control.DataSource = Me.TBCW_PROF_REL_CONTROLBindingSource Me.GridControl_Control.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControl_Control.Enabled = False Me.GridControl_Control.Location = New System.Drawing.Point(0, 25) Me.GridControl_Control.MainView = Me.GridView_Control Me.GridControl_Control.Name = "GridControl_Control" + Me.GridControl_Control.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemButtonEdit1}) Me.GridControl_Control.Size = New System.Drawing.Size(915, 302) Me.GridControl_Control.TabIndex = 69 Me.GridControl_Control.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Control}) ' + 'TBCW_PROF_REL_CONTROLBindingSource + ' + Me.TBCW_PROF_REL_CONTROLBindingSource.DataMember = "TBCW_PROF_REL_CONTROL" + Me.TBCW_PROF_REL_CONTROLBindingSource.DataSource = Me.MyDataset + ' 'GridView_Control ' Me.GridView_Control.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.GridView_Control.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView_Control.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colREGEX1, Me.colDESCRIPTION1, Me.colGUID1}) + Me.GridView_Control.CustomizationFormBounds = New System.Drawing.Rectangle(902, 520, 252, 236) Me.GridView_Control.GridControl = Me.GridControl_Control Me.GridView_Control.Name = "GridView_Control" Me.GridView_Control.OptionsView.EnableAppearanceEvenRow = True ' + 'colREGEX1 + ' + Me.colREGEX1.Caption = "Feld Name Regex" + Me.colREGEX1.ColumnEdit = Me.RepositoryItemButtonEdit1 + Me.colREGEX1.FieldName = "REGEX" + Me.colREGEX1.Name = "colREGEX1" + Me.colREGEX1.Visible = True + Me.colREGEX1.VisibleIndex = 0 + ' + 'RepositoryItemButtonEdit1 + ' + Me.RepositoryItemButtonEdit1.AutoHeight = False + Me.RepositoryItemButtonEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.RepositoryItemButtonEdit1.Name = "RepositoryItemButtonEdit1" + ' + 'colDESCRIPTION1 + ' + Me.colDESCRIPTION1.Caption = "Beschreibung" + Me.colDESCRIPTION1.FieldName = "DESCRIPTION" + Me.colDESCRIPTION1.Name = "colDESCRIPTION1" + Me.colDESCRIPTION1.Visible = True + Me.colDESCRIPTION1.VisibleIndex = 1 + ' + 'colGUID1 + ' + Me.colGUID1.Caption = "GUID" + Me.colGUID1.FieldName = "GUID" + Me.colGUID1.Name = "colGUID1" + ' 'Label2 ' Me.Label2.Dock = System.Windows.Forms.DockStyle.Top @@ -215,6 +254,11 @@ Partial Class ctrlApplicationAssignment Me.Label2.Text = "Zugeordnete Felder:" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' + 'TBCW_PROF_DOC_SEARCHBindingSource + ' + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH" + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.MyDataset + ' 'GridControl3 ' Me.GridControl3.DataSource = Me.TBCW_PROFILE_PROCESSBindingSource @@ -271,6 +315,28 @@ Partial Class ctrlApplicationAssignment ' Me.TBCW_PROF_REL_WINDOWTableAdapter.ClearBeforeFill = True ' + 'TBCW_PROF_DOC_SEARCHTableAdapter + ' + Me.TBCW_PROF_DOC_SEARCHTableAdapter.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 = Me.TBCW_PROF_DOC_SEARCHTableAdapter + Me.TableAdapterManager.TBCW_PROF_REL_CONTROLTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Me.TBCW_PROF_REL_WINDOWTableAdapter + Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Me.TBCW_PROFILE_PROCESSTableAdapter + Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing + Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBCW_PROF_REL_CONTROLTableAdapter + ' + Me.TBCW_PROF_REL_CONTROLTableAdapter.ClearBeforeFill = True + ' 'ctrlApplicationAssignment ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -290,7 +356,10 @@ Partial Class ctrlApplicationAssignment CType(Me.RepositoryItemRegexEdit, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl_Control, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() @@ -302,7 +371,6 @@ Partial Class ctrlApplicationAssignment Friend WithEvents GridControl_Window As DevExpress.XtraGrid.GridControl Friend WithEvents GridView_Window As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colPROCESS_NAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSEQUENCE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colREGEX As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colREGEX_CLIPBOARD As DevExpress.XtraGrid.Columns.GridColumn @@ -322,4 +390,14 @@ Partial Class ctrlApplicationAssignment Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label + Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DOC_SEARCHTableAdapter As MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter + Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBCW_PROF_REL_CONTROLBindingSource As BindingSource + Friend WithEvents TBCW_PROF_REL_CONTROLTableAdapter As MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter + Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colREGEX1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemRegexEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit + Friend WithEvents RepositoryItemButtonEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit + Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx index c4a6393..3abdb81 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.resx @@ -123,6 +123,12 @@ 558, 12 + + 741, 56 + + + 17, 56 + 20, 10 @@ -132,6 +138,15 @@ 703, 18 + + 295, 56 + + + 568, 56 + + + 1024, 56 + 112 diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb index d319ec8..c099c5f 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb @@ -8,13 +8,16 @@ Imports DigitalData.Controls.RegexEditor Public Class ctrlApplicationAssignment Private Current_ProfileId As Integer + Private Current_WindowId As Integer Private Current_ProcessName As String Private Sub ctrlApplicationAssignment_Load(sender As Object, e As EventArgs) Handles Me.Load TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString TBCW_PROF_REL_WINDOWTableAdapter.Connection.ConnectionString = MyConnectionString + TBCW_PROF_REL_CONTROLTableAdapter.Connection.ConnectionString = MyConnectionString AddHandler RepositoryItemRegexEdit.ButtonClick, AddressOf RepositoryItemRegexEdit_Click + AddHandler RepositoryItemButtonEdit1.ButtonClick, AddressOf RepositoryItemRegexEdit_Click End Sub Public Function Process_Load(ProfileId As Integer) As Boolean @@ -156,7 +159,18 @@ Public Class ctrlApplicationAssignment End Try End Function - Public Function Control_CreateAssignment(ProfileId As Integer, WindowId As Integer) + Public Function Control_Load() As Boolean + Try + TBCW_PROF_REL_CONTROLTableAdapter.Fill(MyDataset.TBCW_PROF_REL_CONTROL, Current_ProcessName, Current_WindowId, Current_ProfileId) + + Return True + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Public Function Control_CreateAssignment(ProfileId As Integer) As Boolean Dim oForm As New frmControlCapture() Dim oResult = oForm.ShowDialog() @@ -166,21 +180,55 @@ Public Class ctrlApplicationAssignment Dim oProcessName As String = oForm.ProcessName If oControlTitle <> "" Then - Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$','{4}')", ProfileId, oProcessName, oProcessName, oControlTitle, Environment.UserName) + Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, WINDOW_ID, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$',{4},'{5}')", ProfileId, Current_ProcessName, Current_ProcessName, oControlTitle, Current_WindowId, Environment.UserName) If Database.ExecuteNonQuery(insert) = False Then Return False End If End If - Window_Load() + Control_Load() Return True Catch ex As Exception Logger.Error(ex) Return False End Try + Else + Return True End If End Function + Public Function Control_SaveAssignment() As Boolean + Try + GridView_Control.CloseEditor() + TBCW_PROF_REL_CONTROLBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROF_REL_CONTROL.GetChanges) Then + TBCW_PROF_REL_CONTROLBindingSource.EndEdit() + TBCW_PROF_REL_CONTROLTableAdapter.Update(MyDataset.TBCW_PROF_REL_CONTROL) + End If + + Return True + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Public Function Control_DeleteAssignment() As Boolean + Try + Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID")) + Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid) + If Database.ExecuteNonQuery(oSQL) Then + Window_Load() + Return True + End If + + Return False + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + Private Sub GridViewProcessProfile_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProcessProfile.FocusedRowChanged If e.FocusedRowHandle < 0 Then Exit Sub @@ -201,6 +249,17 @@ Public Class ctrlApplicationAssignment Replace(vbNullChar, "") End Function + Private Sub GridView_Window_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Window.FocusedRowChanged + If e.FocusedRowHandle < 0 Then + Exit Sub + End If + Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle) + Dim oWindowId As String = oSelectedRow.Item("GUID") + Current_WindowId = oWindowId + If Control_Load() = False Then + MsgBox($"Error while loading controls for window {oWindowId}", vbCritical, "") + End If + End Sub End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 0da629b..70dc6be 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -74,15 +74,18 @@ Partial Class frmAdministration Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem() Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem() 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.RibbonGroupControl = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_DataSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_Process = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_Window = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_User = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_Group = 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) @@ -90,7 +93,7 @@ Partial Class frmAdministration 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.PROFILE_IDTextBox = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() Me.layoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.layoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() @@ -103,36 +106,6 @@ Partial Class frmAdministration Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem3 = New DevExpress.XtraLayout.EmptySpaceItem() Me.layoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.TabPageData = New DevExpress.XtraTab.XtraTabPage() - Me.LayoutControlData = 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.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.TextEdit10 = New DevExpress.XtraEditors.ComboBoxEdit() - 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.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() - Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() - 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.LayoutControlDocs = New DevExpress.XtraLayout.LayoutControl() Me.CheckEdit3 = New DevExpress.XtraEditors.CheckEdit() @@ -142,6 +115,7 @@ Partial Class frmAdministration Me.CHANGED_WHOTextBox2 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit16 = New DevExpress.XtraEditors.TextEdit() Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MemoEdit5 = New DevExpress.XtraEditors.MemoEdit() Me.MemoEdit6 = New DevExpress.XtraEditors.MemoEdit() Me.txtDOC_GUID = New DevExpress.XtraEditors.TextEdit() @@ -162,6 +136,35 @@ Partial Class frmAdministration Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colTAB_TITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TabPageData = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlData = 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.ComboBoxEdit2 = New DevExpress.XtraEditors.LookUpEdit() + Me.MemoEdit3 = New DevExpress.XtraEditors.MemoEdit() + Me.MemoEdit4 = New DevExpress.XtraEditors.MemoEdit() + Me.txtDATAGUID = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit10 = New DevExpress.XtraEditors.ComboBoxEdit() + 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.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.TabPageProcessAssignment = New DevExpress.XtraTab.XtraTabPage() Me.CtrlApplicationAssignment1 = New DD_Clipboard_Watcher.ctrlApplicationAssignment() Me.TabPageUserAssignment = New DevExpress.XtraTab.XtraTabPage() @@ -207,7 +210,6 @@ Partial Class frmAdministration Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() - Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() @@ -233,7 +235,7 @@ Partial Class frmAdministration 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.PROFILE_IDTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() @@ -246,36 +248,6 @@ Partial Class frmAdministration CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPageData.SuspendLayout() - CType(Me.LayoutControlData, System.ComponentModel.ISupportInitialize).BeginInit() - Me.LayoutControlData.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.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.TextEdit10.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.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageDocuments.SuspendLayout() CType(Me.LayoutControlDocs, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControlDocs.SuspendLayout() @@ -286,6 +258,7 @@ Partial Class frmAdministration CType(Me.CHANGED_WHOTextBox2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit16.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MemoEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -305,6 +278,35 @@ Partial Class frmAdministration CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPageData.SuspendLayout() + CType(Me.LayoutControlData, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlData.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.ComboBoxEdit2.Properties, 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.TextEdit10.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.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageProcessAssignment.SuspendLayout() Me.TabPageUserAssignment.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -411,6 +413,7 @@ Partial Class frmAdministration 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_CONTROLTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter @@ -450,7 +453,7 @@ Partial Class frmAdministration Me.XtraTabControl3.SelectedTabPage = Me.TabPageGeneralSettings Me.XtraTabControl3.Size = New System.Drawing.Size(1194, 615) Me.XtraTabControl3.TabIndex = 21 - Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageData, Me.TabPageDocuments, Me.TabPageProcessAssignment, Me.TabPageUserAssignment, Me.TabPageGroupAssignment}) + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageDocuments, Me.TabPageData, Me.TabPageProcessAssignment, Me.TabPageUserAssignment, Me.TabPageGroupAssignment}) ' 'TabPageGeneralSettings ' @@ -472,7 +475,7 @@ Partial Class frmAdministration 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.Controls.Add(Me.PROFILE_IDTextBox) 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) @@ -523,9 +526,9 @@ Partial Class frmAdministration ' 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.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem15, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.labelStatus, Me.BarButtonItem23, Me.BarButtonItem24}) + 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.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26}) Me.RibbonControl2.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl2.MaxItemId = 10 + Me.RibbonControl2.MaxItemId = 12 Me.RibbonControl2.Name = "RibbonControl2" Me.RibbonControl2.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage2}) Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False] @@ -730,78 +733,105 @@ Partial Class frmAdministration Me.BarButtonItem23.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem23.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItem23.Name = "BarButtonItem23" ' + 'BarButtonItem24 + ' + Me.BarButtonItem24.Caption = "Zuordnung löschen" + Me.BarButtonItem24.Id = 9 + Me.BarButtonItem24.ImageOptions.Image = CType(resources.GetObject("BarButtonItem24.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem24.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem24.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem24.Name = "BarButtonItem24" + ' + 'BarButtonItem25 + ' + Me.BarButtonItem25.Caption = "Speichern" + Me.BarButtonItem25.Id = 10 + Me.BarButtonItem25.ImageOptions.Image = CType(resources.GetObject("BarButtonItem25.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem25.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem25.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem25.Name = "BarButtonItem25" + ' + 'BarButtonItem26 + ' + Me.BarButtonItem26.Caption = "Profil duplizieren" + Me.BarButtonItem26.Id = 11 + Me.BarButtonItem26.ImageOptions.Image = CType(resources.GetObject("BarButtonItem26.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem26.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem26.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem26.Name = "BarButtonItem26" + ' 'RibbonPage2 ' - Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroupProfile, Me.RibbonGroupDataSearch, Me.RibbonGroupDocSearch, Me.RibbonGroupProcess, Me.RibbonGroupWindow, Me.RibbonGroupUser, Me.RibbonGroupGroup, Me.RibbonGroupControl}) + Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_Profile, Me.RibbonGroup_DocSearch, Me.RibbonGroup_DataSearch, Me.RibbonGroup_Process, Me.RibbonGroup_Window, Me.RibbonGroup_Control, Me.RibbonGroup_User, Me.RibbonGroup_Group}) Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' - 'RibbonGroupProfile + 'RibbonGroup_Profile ' - 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" + Me.RibbonGroup_Profile.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonGroup_Profile.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonGroup_Profile.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonGroup_Profile.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonGroup_Profile.ItemLinks.Add(Me.BarButtonItem26) + Me.RibbonGroup_Profile.Name = "RibbonGroup_Profile" + Me.RibbonGroup_Profile.Text = "Profil Verwaltung" ' - 'RibbonGroupDataSearch + 'RibbonGroup_DocSearch ' - Me.RibbonGroupDataSearch.Enabled = False - Me.RibbonGroupDataSearch.ItemLinks.Add(Me.BarButtonItem20) - Me.RibbonGroupDataSearch.ItemLinks.Add(Me.BarButtonItem22) - Me.RibbonGroupDataSearch.ItemLinks.Add(Me.BarButtonItem21) - Me.RibbonGroupDataSearch.Name = "RibbonGroupDataSearch" - Me.RibbonGroupDataSearch.Text = "Daten-Suchen" + Me.RibbonGroup_DocSearch.Enabled = False + Me.RibbonGroup_DocSearch.ItemLinks.Add(Me.BarButtonItem15) + Me.RibbonGroup_DocSearch.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonGroup_DocSearch.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonGroup_DocSearch.Name = "RibbonGroup_DocSearch" + Me.RibbonGroup_DocSearch.Text = "Dokument-Suchen" ' - 'RibbonGroupDocSearch + 'RibbonGroup_DataSearch ' - Me.RibbonGroupDocSearch.Enabled = False - Me.RibbonGroupDocSearch.ItemLinks.Add(Me.BarButtonItem15) - Me.RibbonGroupDocSearch.ItemLinks.Add(Me.BarButtonItem19) - Me.RibbonGroupDocSearch.ItemLinks.Add(Me.BarButtonItem18) - Me.RibbonGroupDocSearch.Name = "RibbonGroupDocSearch" - Me.RibbonGroupDocSearch.Text = "Dokument-Suchen" + Me.RibbonGroup_DataSearch.Enabled = False + Me.RibbonGroup_DataSearch.ItemLinks.Add(Me.BarButtonItem20) + Me.RibbonGroup_DataSearch.ItemLinks.Add(Me.BarButtonItem22) + Me.RibbonGroup_DataSearch.ItemLinks.Add(Me.BarButtonItem21) + Me.RibbonGroup_DataSearch.Name = "RibbonGroup_DataSearch" + Me.RibbonGroup_DataSearch.Text = "Daten-Suchen" ' - 'RibbonGroupProcess + 'RibbonGroup_Process ' - 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" + Me.RibbonGroup_Process.Enabled = False + Me.RibbonGroup_Process.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonGroup_Process.ItemLinks.Add(Me.BarButtonItem6) + Me.RibbonGroup_Process.Name = "RibbonGroup_Process" + Me.RibbonGroup_Process.Text = "Prozess Zuordnung" ' - 'RibbonGroupWindow + 'RibbonGroup_Window ' - Me.RibbonGroupWindow.Enabled = False - Me.RibbonGroupWindow.ItemLinks.Add(Me.BarButtonItem7) - Me.RibbonGroupWindow.ItemLinks.Add(Me.BarButtonItem9) - Me.RibbonGroupWindow.ItemLinks.Add(Me.BarButtonItem8) - Me.RibbonGroupWindow.Name = "RibbonGroupWindow" - Me.RibbonGroupWindow.Text = "Fenster Zuordnung" + Me.RibbonGroup_Window.Enabled = False + Me.RibbonGroup_Window.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonGroup_Window.ItemLinks.Add(Me.BarButtonItem9) + Me.RibbonGroup_Window.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonGroup_Window.Name = "RibbonGroup_Window" + Me.RibbonGroup_Window.Text = "Fenster Zuordnung" ' - 'RibbonGroupUser + 'RibbonGroup_Control ' - 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" + Me.RibbonGroup_Control.Enabled = False + Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem23) + Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem25) + Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem24) + Me.RibbonGroup_Control.Name = "RibbonGroup_Control" + Me.RibbonGroup_Control.Text = "Feld Zuordnung" ' - 'RibbonGroupGroup + 'RibbonGroup_User ' - 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" + Me.RibbonGroup_User.Enabled = False + Me.RibbonGroup_User.ItemLinks.Add(Me.BarButtonItem11) + Me.RibbonGroup_User.ItemLinks.Add(Me.BarButtonItem12) + Me.RibbonGroup_User.Name = "RibbonGroup_User" + Me.RibbonGroup_User.Text = "Benutzer Zuordnung" ' - 'RibbonGroupControl + 'RibbonGroup_Group ' - Me.RibbonGroupControl.ItemLinks.Add(Me.BarButtonItem23) - Me.RibbonGroupControl.ItemLinks.Add(Me.BarButtonItem24) - Me.RibbonGroupControl.Name = "RibbonGroupControl" - Me.RibbonGroupControl.Text = "Feld Zuordnung" + Me.RibbonGroup_Group.Enabled = False + Me.RibbonGroup_Group.ItemLinks.Add(Me.BarButtonItem13) + Me.RibbonGroup_Group.ItemLinks.Add(Me.BarButtonItem14) + Me.RibbonGroup_Group.Name = "RibbonGroup_Group" + Me.RibbonGroup_Group.Text = "Gruppen Zuordnung" ' 'RibbonStatusBar1 ' @@ -873,16 +903,16 @@ Partial Class frmAdministration Me.TextEdit6.StyleController = Me.LayoutControl1 Me.TextEdit6.TabIndex = 7 ' - 'GUIDTextBox + 'PROFILE_IDTextBox ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) - Me.GUIDTextBox.Location = New System.Drawing.Point(107, 35) - Me.GUIDTextBox.MenuManager = Me.RibbonControl2 - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.Properties.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(269, 20) - Me.GUIDTextBox.StyleController = Me.LayoutControl1 - Me.GUIDTextBox.TabIndex = 11 + Me.PROFILE_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) + Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(107, 35) + Me.PROFILE_IDTextBox.MenuManager = Me.RibbonControl2 + Me.PROFILE_IDTextBox.Name = "PROFILE_IDTextBox" + Me.PROFILE_IDTextBox.Properties.ReadOnly = True + Me.PROFILE_IDTextBox.Size = New System.Drawing.Size(269, 20) + Me.PROFILE_IDTextBox.StyleController = Me.LayoutControl1 + Me.PROFILE_IDTextBox.TabIndex = 11 ' 'LayoutControlGroup1 ' @@ -989,7 +1019,7 @@ Partial Class frmAdministration ' 'LayoutControlItem20 ' - Me.LayoutControlItem20.Control = Me.GUIDTextBox + Me.LayoutControlItem20.Control = Me.PROFILE_IDTextBox Me.LayoutControlItem20.Location = New System.Drawing.Point(0, 23) Me.LayoutControlItem20.Name = "LayoutControlItem20" Me.LayoutControlItem20.Size = New System.Drawing.Size(368, 24) @@ -1017,647 +1047,647 @@ Partial Class frmAdministration Me.layoutControlItem3.TextLocation = DevExpress.Utils.Locations.Left Me.layoutControlItem3.TextSize = New System.Drawing.Size(92, 13) ' - 'TabPageData + 'TabPageDocuments ' - Me.TabPageData.Controls.Add(Me.LayoutControlData) - Me.TabPageData.Controls.Add(Me.GridControl2) - Me.TabPageData.ImageOptions.Image = CType(resources.GetObject("TabPageData.ImageOptions.Image"), System.Drawing.Image) - Me.TabPageData.Name = "TabPageData" - Me.TabPageData.Size = New System.Drawing.Size(1192, 587) - Me.TabPageData.Text = "Daten-Suchen" + Me.TabPageDocuments.Controls.Add(Me.LayoutControlDocs) + Me.TabPageDocuments.Controls.Add(Me.GridControl1) + Me.TabPageDocuments.ImageOptions.Image = CType(resources.GetObject("TabPageDocuments.ImageOptions.Image"), System.Drawing.Image) + Me.TabPageDocuments.Name = "TabPageDocuments" + Me.TabPageDocuments.Size = New System.Drawing.Size(1192, 587) + Me.TabPageDocuments.Text = "Dokument-Suchen" ' - 'LayoutControlData + 'LayoutControlDocs ' - Me.LayoutControlData.Controls.Add(Me.TextEdit12) - Me.LayoutControlData.Controls.Add(Me.TextEdit13) - Me.LayoutControlData.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.LayoutControlData.Controls.Add(Me.TextEdit11) - Me.LayoutControlData.Controls.Add(Me.CheckEdit2) - Me.LayoutControlData.Controls.Add(Me.TextEdit9) - Me.LayoutControlData.Controls.Add(Me.ComboBoxEdit2) - Me.LayoutControlData.Controls.Add(Me.MemoEdit3) - Me.LayoutControlData.Controls.Add(Me.MemoEdit4) - Me.LayoutControlData.Controls.Add(Me.txtDATAGUID) - Me.LayoutControlData.Controls.Add(Me.TextEdit10) - Me.LayoutControlData.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControlData.Location = New System.Drawing.Point(200, 0) - Me.LayoutControlData.Name = "LayoutControlData" - Me.LayoutControlData.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-714, 293, 650, 400) - Me.LayoutControlData.Root = Me.LayoutControlGroup3 - Me.LayoutControlData.Size = New System.Drawing.Size(992, 587) - Me.LayoutControlData.TabIndex = 26 - Me.LayoutControlData.Text = "LayoutControl3" + Me.LayoutControlDocs.Controls.Add(Me.CheckEdit3) + Me.LayoutControlDocs.Controls.Add(Me.TextEdit17) + Me.LayoutControlDocs.Controls.Add(Me.TextEdit15) + Me.LayoutControlDocs.Controls.Add(Me.TextEdit18) + Me.LayoutControlDocs.Controls.Add(Me.CHANGED_WHOTextBox2) + Me.LayoutControlDocs.Controls.Add(Me.TextEdit16) + Me.LayoutControlDocs.Controls.Add(Me.LookUpEdit1) + Me.LayoutControlDocs.Controls.Add(Me.MemoEdit5) + Me.LayoutControlDocs.Controls.Add(Me.MemoEdit6) + Me.LayoutControlDocs.Controls.Add(Me.txtDOC_GUID) + Me.LayoutControlDocs.Controls.Add(Me.TextEdit19) + Me.LayoutControlDocs.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlDocs.Location = New System.Drawing.Point(200, 0) + Me.LayoutControlDocs.Name = "LayoutControlDocs" + Me.LayoutControlDocs.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-854, 328, 650, 400) + Me.LayoutControlDocs.Root = Me.LayoutControlGroup2 + Me.LayoutControlDocs.Size = New System.Drawing.Size(992, 587) + Me.LayoutControlDocs.TabIndex = 24 + Me.LayoutControlDocs.Text = "LayoutControl2" ' - 'TextEdit12 + 'CheckEdit3 ' - Me.TextEdit12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True)) - Me.TextEdit12.Location = New System.Drawing.Point(12, 147) - Me.TextEdit12.Name = "TextEdit12" - Me.TextEdit12.Properties.ReadOnly = True - Me.TextEdit12.Size = New System.Drawing.Size(127, 20) - Me.TextEdit12.StyleController = Me.LayoutControlData - Me.TextEdit12.TabIndex = 4 + 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(328, 19) + Me.CheckEdit3.StyleController = Me.LayoutControlDocs + Me.CheckEdit3.TabIndex = 8 ' - 'TextEdit13 + 'TextEdit17 ' - Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) - Me.TextEdit13.Location = New System.Drawing.Point(143, 147) - Me.TextEdit13.Name = "TextEdit13" - Me.TextEdit13.Properties.ReadOnly = True - Me.TextEdit13.Size = New System.Drawing.Size(197, 20) - Me.TextEdit13.StyleController = Me.LayoutControlData - Me.TextEdit13.TabIndex = 5 + 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, 147) + Me.TextEdit17.Name = "TextEdit17" + Me.TextEdit17.Properties.ReadOnly = True + Me.TextEdit17.Size = New System.Drawing.Size(127, 20) + Me.TextEdit17.StyleController = Me.LayoutControlDocs + Me.TextEdit17.TabIndex = 4 ' - 'CHANGED_WHOTextBox1 + 'TextEdit15 ' - Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(12, 187) - Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" - Me.CHANGED_WHOTextBox1.Properties.ReadOnly = True - Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(127, 20) - Me.CHANGED_WHOTextBox1.StyleController = Me.LayoutControlData - Me.CHANGED_WHOTextBox1.TabIndex = 6 + 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(143, 147) + Me.TextEdit15.Name = "TextEdit15" + Me.TextEdit15.Properties.ReadOnly = True + Me.TextEdit15.Size = New System.Drawing.Size(197, 20) + Me.TextEdit15.StyleController = Me.LayoutControlDocs + Me.TextEdit15.TabIndex = 5 ' - 'TextEdit11 + 'TextEdit18 ' - Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) - Me.TextEdit11.Location = New System.Drawing.Point(143, 187) - Me.TextEdit11.Name = "TextEdit11" - Me.TextEdit11.Properties.ReadOnly = True - Me.TextEdit11.Size = New System.Drawing.Size(197, 20) - Me.TextEdit11.StyleController = Me.LayoutControlData - Me.TextEdit11.TabIndex = 7 + 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(143, 187) + Me.TextEdit18.Name = "TextEdit18" + Me.TextEdit18.Properties.ReadOnly = True + Me.TextEdit18.Size = New System.Drawing.Size(197, 20) + Me.TextEdit18.StyleController = Me.LayoutControlDocs + Me.TextEdit18.TabIndex = 7 ' - 'CheckEdit2 + 'CHANGED_WHOTextBox2 ' - Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ACTIVE", True)) - 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(328, 19) - Me.CheckEdit2.StyleController = Me.LayoutControlData - Me.CheckEdit2.TabIndex = 8 + 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(12, 187) + Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" + Me.CHANGED_WHOTextBox2.Properties.ReadOnly = True + Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(127, 20) + Me.CHANGED_WHOTextBox2.StyleController = Me.LayoutControlDocs + Me.CHANGED_WHOTextBox2.TabIndex = 6 ' - 'TextEdit9 + 'TextEdit16 ' - 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, 59) - Me.TextEdit9.MenuManager = Me.RibbonControl2 - Me.TextEdit9.Name = "TextEdit9" - Me.TextEdit9.Size = New System.Drawing.Size(200, 20) - Me.TextEdit9.StyleController = Me.LayoutControlData - Me.TextEdit9.TabIndex = 9 + 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, 59) + Me.TextEdit16.Name = "TextEdit16" + Me.TextEdit16.Size = New System.Drawing.Size(200, 20) + Me.TextEdit16.StyleController = Me.LayoutControlDocs + Me.TextEdit16.TabIndex = 9 ' - 'ComboBoxEdit2 + 'LookUpEdit1 ' - 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, 107) - 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(200, 20) - Me.ComboBoxEdit2.StyleController = Me.LayoutControlData - Me.ComboBoxEdit2.TabIndex = 11 + 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, 107) + 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(200, 20) + Me.LookUpEdit1.StyleController = Me.LayoutControlDocs + Me.LookUpEdit1.TabIndex = 11 ' 'TBDD_CONNECTIONBindingSource ' Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset ' - 'MemoEdit3 + 'MemoEdit5 ' - 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(344, 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(636, 233) - Me.MemoEdit3.StyleController = Me.LayoutControlData - Me.MemoEdit3.TabIndex = 12 + 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(344, 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(636, 232) + Me.MemoEdit5.StyleController = Me.LayoutControlDocs + Me.MemoEdit5.TabIndex = 12 ' - 'MemoEdit4 + 'MemoEdit6 ' - 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(344, 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(636, 294) - Me.MemoEdit4.StyleController = Me.LayoutControlData - Me.MemoEdit4.TabIndex = 13 + 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(344, 280) + 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(636, 295) + Me.MemoEdit6.StyleController = Me.LayoutControlDocs + Me.MemoEdit6.TabIndex = 13 ' - 'txtDATAGUID + 'txtDOC_GUID ' - Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) - Me.txtDATAGUID.Location = New System.Drawing.Point(140, 35) - Me.txtDATAGUID.MenuManager = Me.RibbonControl2 - Me.txtDATAGUID.Name = "txtDATAGUID" - Me.txtDATAGUID.Properties.ReadOnly = True - Me.txtDATAGUID.Size = New System.Drawing.Size(200, 20) - Me.txtDATAGUID.StyleController = Me.LayoutControlData - Me.txtDATAGUID.TabIndex = 14 + 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(140, 35) + Me.txtDOC_GUID.Name = "txtDOC_GUID" + Me.txtDOC_GUID.Properties.ReadOnly = True + Me.txtDOC_GUID.Size = New System.Drawing.Size(200, 20) + Me.txtDOC_GUID.StyleController = Me.LayoutControlDocs + Me.txtDOC_GUID.TabIndex = 14 ' - 'TextEdit10 + 'TextEdit19 ' - Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) - Me.TextEdit10.Location = New System.Drawing.Point(140, 83) - Me.TextEdit10.MenuManager = Me.RibbonControl2 - Me.TextEdit10.Name = "TextEdit10" - Me.TextEdit10.Properties.AutoHeight = False - Me.TextEdit10.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.TextEdit10.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"}) - Me.TextEdit10.Size = New System.Drawing.Size(200, 20) - Me.TextEdit10.StyleController = Me.LayoutControlData - Me.TextEdit10.TabIndex = 10 + Me.TextEdit19.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) + Me.TextEdit19.Location = New System.Drawing.Point(140, 83) + Me.TextEdit19.Name = "TextEdit19" + Me.TextEdit19.Properties.AutoHeight = False + Me.TextEdit19.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.TextEdit19.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"}) + Me.TextEdit19.Size = New System.Drawing.Size(200, 20) + Me.TextEdit19.StyleController = Me.LayoutControlDocs + Me.TextEdit19.TabIndex = 10 ' - 'LayoutControlGroup3 + 'LayoutControlGroup2 ' - 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(992, 587) - Me.LayoutControlGroup3.TextVisible = False + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem31, Me.LayoutControlItem25, Me.LayoutControlItem27, Me.LayoutControlItem26, Me.EmptySpaceItem2, Me.LayoutControlItem33, Me.LayoutControlItem32, Me.LayoutControlItem34, Me.LayoutControlItem24, Me.LayoutControlItem28}) + Me.LayoutControlGroup2.Name = "Root" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(992, 587) + Me.LayoutControlGroup2.TextVisible = False ' - 'LayoutControlItem10 + 'LayoutControlItem29 ' - 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(332, 23) - Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem10.TextVisible = False + Me.LayoutControlItem29.Control = Me.TextEdit16 + Me.LayoutControlItem29.CustomizationFormText = "Titel:" + Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 47) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem29.Text = "Titel:" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem14 + 'LayoutControlItem30 ' - Me.LayoutControlItem14.Control = Me.TextEdit12 - Me.LayoutControlItem14.CustomizationFormText = "layoutControlItem1" - Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 119) - Me.LayoutControlItem14.Name = "LayoutControlItem14" - Me.LayoutControlItem14.Size = New System.Drawing.Size(131, 40) - Me.LayoutControlItem14.Text = "Erstellt wer:" - Me.LayoutControlItem14.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem14.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem30.Control = Me.TextEdit19 + Me.LayoutControlItem30.CustomizationFormText = "Position:" + Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 71) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem30.Text = "Position/Reihenfolge:" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem15 + 'LayoutControlItem31 ' - Me.LayoutControlItem15.Control = Me.TextEdit13 - Me.LayoutControlItem15.CustomizationFormText = "layoutControlItem2" - Me.LayoutControlItem15.Location = New System.Drawing.Point(131, 119) - Me.LayoutControlItem15.Name = "LayoutControlItem15" - Me.LayoutControlItem15.Size = New System.Drawing.Size(201, 40) - Me.LayoutControlItem15.Text = "Erstellt wann:" - Me.LayoutControlItem15.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem15.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem31.Control = Me.LookUpEdit1 + Me.LayoutControlItem31.CustomizationFormText = "Verbindung:" + Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 95) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem31.Text = "Datenbank-Verbindung:" + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem17 + 'LayoutControlItem25 ' - Me.LayoutControlItem17.Control = Me.TextEdit11 - Me.LayoutControlItem17.CustomizationFormText = "layoutControlItem4" - Me.LayoutControlItem17.Location = New System.Drawing.Point(131, 159) - Me.LayoutControlItem17.Name = "LayoutControlItem17" - Me.LayoutControlItem17.Size = New System.Drawing.Size(201, 40) - Me.LayoutControlItem17.Text = "Geändert wann:" - Me.LayoutControlItem17.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem17.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem25.Control = Me.TextEdit17 + Me.LayoutControlItem25.CustomizationFormText = "layoutControlItem1" + Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 119) + Me.LayoutControlItem25.Name = "LayoutControlItem25" + Me.LayoutControlItem25.Size = New System.Drawing.Size(131, 40) + Me.LayoutControlItem25.Text = "Erstellt wer:" + Me.LayoutControlItem25.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem25.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem16 + 'LayoutControlItem27 ' - Me.LayoutControlItem16.Control = Me.CHANGED_WHOTextBox1 - Me.LayoutControlItem16.CustomizationFormText = "layoutControlItem3" - Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 159) - Me.LayoutControlItem16.Name = "LayoutControlItem16" - Me.LayoutControlItem16.Size = New System.Drawing.Size(131, 40) - Me.LayoutControlItem16.Text = "Geändert wer:" - Me.LayoutControlItem16.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem16.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem27.Control = Me.TextEdit18 + Me.LayoutControlItem27.CustomizationFormText = "layoutControlItem4" + Me.LayoutControlItem27.Location = New System.Drawing.Point(131, 159) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Size = New System.Drawing.Size(201, 40) + Me.LayoutControlItem27.Text = "Geändert wann:" + Me.LayoutControlItem27.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem11 + 'LayoutControlItem26 ' - Me.LayoutControlItem11.Control = Me.TextEdit9 - Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 47) - Me.LayoutControlItem11.Name = "LayoutControlItem11" - Me.LayoutControlItem11.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem11.Text = "Titel:" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem26.Control = Me.TextEdit15 + Me.LayoutControlItem26.CustomizationFormText = "layoutControlItem2" + Me.LayoutControlItem26.Location = New System.Drawing.Point(131, 119) + Me.LayoutControlItem26.Name = "LayoutControlItem26" + Me.LayoutControlItem26.Size = New System.Drawing.Size(201, 40) + Me.LayoutControlItem26.Text = "Erstellt wann:" + Me.LayoutControlItem26.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem26.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem12 + 'EmptySpaceItem2 ' - Me.LayoutControlItem12.Control = Me.TextEdit10 - Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 71) - Me.LayoutControlItem12.Name = "LayoutControlItem12" - Me.LayoutControlItem12.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem12.Text = "Position/Reihenfolge:" - Me.LayoutControlItem12.TextSize = New System.Drawing.Size(125, 13) + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 199) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(332, 368) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) ' - 'LayoutControlItem13 + 'LayoutControlItem33 ' - Me.LayoutControlItem13.Control = Me.ComboBoxEdit2 - Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 95) - Me.LayoutControlItem13.Name = "LayoutControlItem13" - Me.LayoutControlItem13.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem13.Text = "Datenbank-Verbindung:" - Me.LayoutControlItem13.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem33.Control = Me.MemoEdit6 + Me.LayoutControlItem33.CustomizationFormText = "SQL für Ergebnis Zählung:" + Me.LayoutControlItem33.Location = New System.Drawing.Point(332, 252) + Me.LayoutControlItem33.Name = "LayoutControlItem33" + Me.LayoutControlItem33.Size = New System.Drawing.Size(640, 315) + 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) ' - 'LayoutControlItem21 + 'LayoutControlItem32 ' - Me.LayoutControlItem21.Control = Me.MemoEdit3 - Me.LayoutControlItem21.Location = New System.Drawing.Point(332, 0) - Me.LayoutControlItem21.Name = "LayoutControlItem21" - Me.LayoutControlItem21.Size = New System.Drawing.Size(640, 253) - Me.LayoutControlItem21.Text = "SQL für Suche:" - Me.LayoutControlItem21.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem21.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem32.Control = Me.MemoEdit5 + Me.LayoutControlItem32.CustomizationFormText = "SQL für Suche:" + Me.LayoutControlItem32.Location = New System.Drawing.Point(332, 0) + Me.LayoutControlItem32.Name = "LayoutControlItem32" + Me.LayoutControlItem32.Size = New System.Drawing.Size(640, 252) + Me.LayoutControlItem32.Text = "SQL für Suche:" + Me.LayoutControlItem32.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem32.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem22 + 'LayoutControlItem34 ' - Me.LayoutControlItem22.Control = Me.MemoEdit4 - Me.LayoutControlItem22.Location = New System.Drawing.Point(332, 253) - Me.LayoutControlItem22.Name = "LayoutControlItem22" - Me.LayoutControlItem22.Size = New System.Drawing.Size(640, 314) - 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) + Me.LayoutControlItem34.Control = Me.txtDOC_GUID + Me.LayoutControlItem34.CustomizationFormText = "ID:" + Me.LayoutControlItem34.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlItem34.Name = "LayoutControlItem34" + Me.LayoutControlItem34.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem34.Text = "ID:" + Me.LayoutControlItem34.TextSize = New System.Drawing.Size(125, 13) ' - 'EmptySpaceItem1 + 'LayoutControlItem24 ' - Me.EmptySpaceItem1.AllowHotTrack = False - Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 199) - Me.EmptySpaceItem1.Name = "EmptySpaceItem1" - Me.EmptySpaceItem1.Size = New System.Drawing.Size(332, 368) - Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + 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(332, 23) + Me.LayoutControlItem24.Text = "LayoutControlItem10" + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem24.TextVisible = False ' - 'LayoutControlItem23 + 'LayoutControlItem28 ' - Me.LayoutControlItem23.Control = Me.txtDATAGUID - Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 23) - Me.LayoutControlItem23.Name = "LayoutControlItem23" - Me.LayoutControlItem23.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem23.Text = "ID:" - Me.LayoutControlItem23.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem28.Control = Me.CHANGED_WHOTextBox2 + Me.LayoutControlItem28.CustomizationFormText = "layoutControlItem3" + Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 159) + Me.LayoutControlItem28.Name = "LayoutControlItem28" + Me.LayoutControlItem28.Size = New System.Drawing.Size(131, 40) + Me.LayoutControlItem28.Text = "Geändert wer:" + Me.LayoutControlItem28.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem28.TextSize = New System.Drawing.Size(125, 13) ' - 'GridControl2 + 'GridControl1 ' - 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, 587) - Me.GridControl2.TabIndex = 10 - Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + 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, 587) + Me.GridControl1.TabIndex = 10 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' - 'GridView3 + 'GridView2 ' - 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 + 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.ShowAutoFilterRow = True + Me.GridView2.OptionsView.ShowGroupPanel = False ' - 'colTAB_TITLE1 + 'colTAB_TITLE ' - 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 + 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 ' - 'TabPageDocuments + 'TabPageData ' - Me.TabPageDocuments.Controls.Add(Me.LayoutControlDocs) - Me.TabPageDocuments.Controls.Add(Me.GridControl1) - Me.TabPageDocuments.ImageOptions.Image = CType(resources.GetObject("TabPageDocuments.ImageOptions.Image"), System.Drawing.Image) - Me.TabPageDocuments.Name = "TabPageDocuments" - Me.TabPageDocuments.Size = New System.Drawing.Size(1192, 587) - Me.TabPageDocuments.Text = "Dokument-Suchen" + Me.TabPageData.Controls.Add(Me.LayoutControlData) + Me.TabPageData.Controls.Add(Me.GridControl2) + Me.TabPageData.ImageOptions.Image = CType(resources.GetObject("TabPageData.ImageOptions.Image"), System.Drawing.Image) + Me.TabPageData.Name = "TabPageData" + Me.TabPageData.Size = New System.Drawing.Size(1192, 587) + Me.TabPageData.Text = "Daten-Suchen" ' - 'LayoutControlDocs + 'LayoutControlData ' - Me.LayoutControlDocs.Controls.Add(Me.CheckEdit3) - Me.LayoutControlDocs.Controls.Add(Me.TextEdit17) - Me.LayoutControlDocs.Controls.Add(Me.TextEdit15) - Me.LayoutControlDocs.Controls.Add(Me.TextEdit18) - Me.LayoutControlDocs.Controls.Add(Me.CHANGED_WHOTextBox2) - Me.LayoutControlDocs.Controls.Add(Me.TextEdit16) - Me.LayoutControlDocs.Controls.Add(Me.LookUpEdit1) - Me.LayoutControlDocs.Controls.Add(Me.MemoEdit5) - Me.LayoutControlDocs.Controls.Add(Me.MemoEdit6) - Me.LayoutControlDocs.Controls.Add(Me.txtDOC_GUID) - Me.LayoutControlDocs.Controls.Add(Me.TextEdit19) - Me.LayoutControlDocs.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControlDocs.Location = New System.Drawing.Point(200, 0) - Me.LayoutControlDocs.Name = "LayoutControlDocs" - Me.LayoutControlDocs.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-854, 328, 650, 400) - Me.LayoutControlDocs.Root = Me.LayoutControlGroup2 - Me.LayoutControlDocs.Size = New System.Drawing.Size(992, 587) - Me.LayoutControlDocs.TabIndex = 24 - Me.LayoutControlDocs.Text = "LayoutControl2" + Me.LayoutControlData.Controls.Add(Me.TextEdit12) + Me.LayoutControlData.Controls.Add(Me.TextEdit13) + Me.LayoutControlData.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.LayoutControlData.Controls.Add(Me.TextEdit11) + Me.LayoutControlData.Controls.Add(Me.CheckEdit2) + Me.LayoutControlData.Controls.Add(Me.TextEdit9) + Me.LayoutControlData.Controls.Add(Me.ComboBoxEdit2) + Me.LayoutControlData.Controls.Add(Me.MemoEdit3) + Me.LayoutControlData.Controls.Add(Me.MemoEdit4) + Me.LayoutControlData.Controls.Add(Me.txtDATAGUID) + Me.LayoutControlData.Controls.Add(Me.TextEdit10) + Me.LayoutControlData.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlData.Location = New System.Drawing.Point(200, 0) + Me.LayoutControlData.Name = "LayoutControlData" + Me.LayoutControlData.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-714, 293, 650, 400) + Me.LayoutControlData.Root = Me.LayoutControlGroup3 + Me.LayoutControlData.Size = New System.Drawing.Size(992, 587) + Me.LayoutControlData.TabIndex = 26 + Me.LayoutControlData.Text = "LayoutControl3" ' - 'CheckEdit3 + 'TextEdit12 ' - 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(328, 19) - Me.CheckEdit3.StyleController = Me.LayoutControlDocs - Me.CheckEdit3.TabIndex = 8 + Me.TextEdit12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True)) + Me.TextEdit12.Location = New System.Drawing.Point(12, 147) + Me.TextEdit12.Name = "TextEdit12" + Me.TextEdit12.Properties.ReadOnly = True + Me.TextEdit12.Size = New System.Drawing.Size(127, 20) + Me.TextEdit12.StyleController = Me.LayoutControlData + Me.TextEdit12.TabIndex = 4 ' - 'TextEdit17 + 'TextEdit13 ' - 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, 147) - Me.TextEdit17.Name = "TextEdit17" - Me.TextEdit17.Properties.ReadOnly = True - Me.TextEdit17.Size = New System.Drawing.Size(127, 20) - Me.TextEdit17.StyleController = Me.LayoutControlDocs - Me.TextEdit17.TabIndex = 4 + Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.TextEdit13.Location = New System.Drawing.Point(143, 147) + Me.TextEdit13.Name = "TextEdit13" + Me.TextEdit13.Properties.ReadOnly = True + Me.TextEdit13.Size = New System.Drawing.Size(197, 20) + Me.TextEdit13.StyleController = Me.LayoutControlData + Me.TextEdit13.TabIndex = 5 ' - 'TextEdit15 + 'CHANGED_WHOTextBox1 ' - 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(143, 147) - Me.TextEdit15.Name = "TextEdit15" - Me.TextEdit15.Properties.ReadOnly = True - Me.TextEdit15.Size = New System.Drawing.Size(197, 20) - Me.TextEdit15.StyleController = Me.LayoutControlDocs - Me.TextEdit15.TabIndex = 5 + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(12, 187) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.Properties.ReadOnly = True + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(127, 20) + Me.CHANGED_WHOTextBox1.StyleController = Me.LayoutControlData + Me.CHANGED_WHOTextBox1.TabIndex = 6 ' - 'TextEdit18 + 'TextEdit11 ' - 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(143, 187) - Me.TextEdit18.Name = "TextEdit18" - Me.TextEdit18.Properties.ReadOnly = True - Me.TextEdit18.Size = New System.Drawing.Size(197, 20) - Me.TextEdit18.StyleController = Me.LayoutControlDocs - Me.TextEdit18.TabIndex = 7 + Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit11.Location = New System.Drawing.Point(143, 187) + Me.TextEdit11.Name = "TextEdit11" + Me.TextEdit11.Properties.ReadOnly = True + Me.TextEdit11.Size = New System.Drawing.Size(197, 20) + Me.TextEdit11.StyleController = Me.LayoutControlData + Me.TextEdit11.TabIndex = 7 ' - 'CHANGED_WHOTextBox2 + 'CheckEdit2 ' - 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(12, 187) - Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" - Me.CHANGED_WHOTextBox2.Properties.ReadOnly = True - Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(127, 20) - Me.CHANGED_WHOTextBox2.StyleController = Me.LayoutControlDocs - Me.CHANGED_WHOTextBox2.TabIndex = 6 + Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ACTIVE", True)) + 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(328, 19) + Me.CheckEdit2.StyleController = Me.LayoutControlData + Me.CheckEdit2.TabIndex = 8 ' - 'TextEdit16 + 'TextEdit9 ' - 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, 59) - Me.TextEdit16.Name = "TextEdit16" - Me.TextEdit16.Size = New System.Drawing.Size(200, 20) - Me.TextEdit16.StyleController = Me.LayoutControlDocs - Me.TextEdit16.TabIndex = 9 + 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, 59) + Me.TextEdit9.MenuManager = Me.RibbonControl2 + Me.TextEdit9.Name = "TextEdit9" + Me.TextEdit9.Size = New System.Drawing.Size(200, 20) + Me.TextEdit9.StyleController = Me.LayoutControlData + Me.TextEdit9.TabIndex = 9 ' - 'LookUpEdit1 + 'ComboBoxEdit2 ' - 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, 107) - 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(200, 20) - Me.LookUpEdit1.StyleController = Me.LayoutControlDocs - Me.LookUpEdit1.TabIndex = 11 + 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, 107) + 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(200, 20) + Me.ComboBoxEdit2.StyleController = Me.LayoutControlData + Me.ComboBoxEdit2.TabIndex = 11 ' - 'MemoEdit5 + 'MemoEdit3 ' - 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(344, 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(636, 232) - Me.MemoEdit5.StyleController = Me.LayoutControlDocs - Me.MemoEdit5.TabIndex = 12 + 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(344, 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(636, 233) + Me.MemoEdit3.StyleController = Me.LayoutControlData + Me.MemoEdit3.TabIndex = 12 ' - 'MemoEdit6 + 'MemoEdit4 ' - 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(344, 280) - 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(636, 295) - Me.MemoEdit6.StyleController = Me.LayoutControlDocs - Me.MemoEdit6.TabIndex = 13 + 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(344, 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(636, 294) + Me.MemoEdit4.StyleController = Me.LayoutControlData + Me.MemoEdit4.TabIndex = 13 ' - 'txtDOC_GUID + 'txtDATAGUID ' - 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(140, 35) - Me.txtDOC_GUID.Name = "txtDOC_GUID" - Me.txtDOC_GUID.Properties.ReadOnly = True - Me.txtDOC_GUID.Size = New System.Drawing.Size(200, 20) - Me.txtDOC_GUID.StyleController = Me.LayoutControlDocs - Me.txtDOC_GUID.TabIndex = 14 + Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) + Me.txtDATAGUID.Location = New System.Drawing.Point(140, 35) + Me.txtDATAGUID.MenuManager = Me.RibbonControl2 + Me.txtDATAGUID.Name = "txtDATAGUID" + Me.txtDATAGUID.Properties.ReadOnly = True + Me.txtDATAGUID.Size = New System.Drawing.Size(200, 20) + Me.txtDATAGUID.StyleController = Me.LayoutControlData + Me.txtDATAGUID.TabIndex = 14 ' - 'TextEdit19 + 'TextEdit10 ' - Me.TextEdit19.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) - Me.TextEdit19.Location = New System.Drawing.Point(140, 83) - Me.TextEdit19.Name = "TextEdit19" - Me.TextEdit19.Properties.AutoHeight = False - Me.TextEdit19.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.TextEdit19.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"}) - Me.TextEdit19.Size = New System.Drawing.Size(200, 20) - Me.TextEdit19.StyleController = Me.LayoutControlDocs - Me.TextEdit19.TabIndex = 10 + Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) + Me.TextEdit10.Location = New System.Drawing.Point(140, 83) + Me.TextEdit10.MenuManager = Me.RibbonControl2 + Me.TextEdit10.Name = "TextEdit10" + Me.TextEdit10.Properties.AutoHeight = False + Me.TextEdit10.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.TextEdit10.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"}) + Me.TextEdit10.Size = New System.Drawing.Size(200, 20) + Me.TextEdit10.StyleController = Me.LayoutControlData + Me.TextEdit10.TabIndex = 10 ' - 'LayoutControlGroup2 + 'LayoutControlGroup3 ' - Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.LayoutControlGroup2.GroupBordersVisible = False - Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem31, Me.LayoutControlItem25, Me.LayoutControlItem27, Me.LayoutControlItem26, Me.EmptySpaceItem2, Me.LayoutControlItem33, Me.LayoutControlItem32, Me.LayoutControlItem34, Me.LayoutControlItem24, Me.LayoutControlItem28}) - Me.LayoutControlGroup2.Name = "Root" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(992, 587) - Me.LayoutControlGroup2.TextVisible = False + 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(992, 587) + Me.LayoutControlGroup3.TextVisible = False ' - 'LayoutControlItem29 + 'LayoutControlItem10 ' - Me.LayoutControlItem29.Control = Me.TextEdit16 - Me.LayoutControlItem29.CustomizationFormText = "Titel:" - Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 47) - Me.LayoutControlItem29.Name = "LayoutControlItem29" - Me.LayoutControlItem29.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem29.Text = "Titel:" - Me.LayoutControlItem29.TextSize = New System.Drawing.Size(125, 13) + 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(332, 23) + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem10.TextVisible = False ' - 'LayoutControlItem30 + 'LayoutControlItem14 ' - Me.LayoutControlItem30.Control = Me.TextEdit19 - Me.LayoutControlItem30.CustomizationFormText = "Position:" - Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 71) - Me.LayoutControlItem30.Name = "LayoutControlItem30" - Me.LayoutControlItem30.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem30.Text = "Position/Reihenfolge:" - Me.LayoutControlItem30.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem14.Control = Me.TextEdit12 + Me.LayoutControlItem14.CustomizationFormText = "layoutControlItem1" + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 119) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(131, 40) + Me.LayoutControlItem14.Text = "Erstellt wer:" + Me.LayoutControlItem14.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem31 + 'LayoutControlItem15 ' - Me.LayoutControlItem31.Control = Me.LookUpEdit1 - Me.LayoutControlItem31.CustomizationFormText = "Verbindung:" - Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 95) - Me.LayoutControlItem31.Name = "LayoutControlItem31" - Me.LayoutControlItem31.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem31.Text = "Datenbank-Verbindung:" - Me.LayoutControlItem31.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem15.Control = Me.TextEdit13 + Me.LayoutControlItem15.CustomizationFormText = "layoutControlItem2" + Me.LayoutControlItem15.Location = New System.Drawing.Point(131, 119) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Size = New System.Drawing.Size(201, 40) + Me.LayoutControlItem15.Text = "Erstellt wann:" + Me.LayoutControlItem15.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem25 + 'LayoutControlItem17 ' - Me.LayoutControlItem25.Control = Me.TextEdit17 - Me.LayoutControlItem25.CustomizationFormText = "layoutControlItem1" - Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 119) - Me.LayoutControlItem25.Name = "LayoutControlItem25" - Me.LayoutControlItem25.Size = New System.Drawing.Size(131, 40) - Me.LayoutControlItem25.Text = "Erstellt wer:" - Me.LayoutControlItem25.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem25.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem17.Control = Me.TextEdit11 + Me.LayoutControlItem17.CustomizationFormText = "layoutControlItem4" + Me.LayoutControlItem17.Location = New System.Drawing.Point(131, 159) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Size = New System.Drawing.Size(201, 40) + Me.LayoutControlItem17.Text = "Geändert wann:" + Me.LayoutControlItem17.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem27 + 'LayoutControlItem16 ' - Me.LayoutControlItem27.Control = Me.TextEdit18 - Me.LayoutControlItem27.CustomizationFormText = "layoutControlItem4" - Me.LayoutControlItem27.Location = New System.Drawing.Point(131, 159) - Me.LayoutControlItem27.Name = "LayoutControlItem27" - Me.LayoutControlItem27.Size = New System.Drawing.Size(201, 40) - Me.LayoutControlItem27.Text = "Geändert wann:" - Me.LayoutControlItem27.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem27.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem16.Control = Me.CHANGED_WHOTextBox1 + Me.LayoutControlItem16.CustomizationFormText = "layoutControlItem3" + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 159) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Size = New System.Drawing.Size(131, 40) + Me.LayoutControlItem16.Text = "Geändert wer:" + Me.LayoutControlItem16.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem26 + 'LayoutControlItem11 ' - Me.LayoutControlItem26.Control = Me.TextEdit15 - Me.LayoutControlItem26.CustomizationFormText = "layoutControlItem2" - Me.LayoutControlItem26.Location = New System.Drawing.Point(131, 119) - Me.LayoutControlItem26.Name = "LayoutControlItem26" - Me.LayoutControlItem26.Size = New System.Drawing.Size(201, 40) - Me.LayoutControlItem26.Text = "Erstellt wann:" - Me.LayoutControlItem26.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem26.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem11.Control = Me.TextEdit9 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 47) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem11.Text = "Titel:" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(125, 13) ' - 'EmptySpaceItem2 + 'LayoutControlItem12 ' - Me.EmptySpaceItem2.AllowHotTrack = False - Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 199) - Me.EmptySpaceItem2.Name = "EmptySpaceItem2" - Me.EmptySpaceItem2.Size = New System.Drawing.Size(332, 368) - Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem12.Control = Me.TextEdit10 + Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 71) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem12.Text = "Position/Reihenfolge:" + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem33 + 'LayoutControlItem13 ' - Me.LayoutControlItem33.Control = Me.MemoEdit6 - Me.LayoutControlItem33.CustomizationFormText = "SQL für Ergebnis Zählung:" - Me.LayoutControlItem33.Location = New System.Drawing.Point(332, 252) - Me.LayoutControlItem33.Name = "LayoutControlItem33" - Me.LayoutControlItem33.Size = New System.Drawing.Size(640, 315) - 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) + Me.LayoutControlItem13.Control = Me.ComboBoxEdit2 + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 95) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem13.Text = "Datenbank-Verbindung:" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem32 + 'LayoutControlItem21 ' - Me.LayoutControlItem32.Control = Me.MemoEdit5 - Me.LayoutControlItem32.CustomizationFormText = "SQL für Suche:" - Me.LayoutControlItem32.Location = New System.Drawing.Point(332, 0) - Me.LayoutControlItem32.Name = "LayoutControlItem32" - Me.LayoutControlItem32.Size = New System.Drawing.Size(640, 252) - Me.LayoutControlItem32.Text = "SQL für Suche:" - Me.LayoutControlItem32.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem32.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem21.Control = Me.MemoEdit3 + Me.LayoutControlItem21.Location = New System.Drawing.Point(332, 0) + Me.LayoutControlItem21.Name = "LayoutControlItem21" + Me.LayoutControlItem21.Size = New System.Drawing.Size(640, 253) + Me.LayoutControlItem21.Text = "SQL für Suche:" + Me.LayoutControlItem21.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem21.TextSize = New System.Drawing.Size(125, 13) ' - 'LayoutControlItem34 + 'LayoutControlItem22 ' - Me.LayoutControlItem34.Control = Me.txtDOC_GUID - Me.LayoutControlItem34.CustomizationFormText = "ID:" - Me.LayoutControlItem34.Location = New System.Drawing.Point(0, 23) - Me.LayoutControlItem34.Name = "LayoutControlItem34" - Me.LayoutControlItem34.Size = New System.Drawing.Size(332, 24) - Me.LayoutControlItem34.Text = "ID:" - Me.LayoutControlItem34.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem22.Control = Me.MemoEdit4 + Me.LayoutControlItem22.Location = New System.Drawing.Point(332, 253) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Size = New System.Drawing.Size(640, 314) + 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) ' - 'LayoutControlItem24 + 'EmptySpaceItem1 ' - 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(332, 23) - Me.LayoutControlItem24.Text = "LayoutControlItem10" - Me.LayoutControlItem24.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem24.TextVisible = False + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 199) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(332, 368) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) ' - 'LayoutControlItem28 + 'LayoutControlItem23 ' - Me.LayoutControlItem28.Control = Me.CHANGED_WHOTextBox2 - Me.LayoutControlItem28.CustomizationFormText = "layoutControlItem3" - Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 159) - Me.LayoutControlItem28.Name = "LayoutControlItem28" - Me.LayoutControlItem28.Size = New System.Drawing.Size(131, 40) - Me.LayoutControlItem28.Text = "Geändert wer:" - Me.LayoutControlItem28.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem28.TextSize = New System.Drawing.Size(125, 13) + Me.LayoutControlItem23.Control = Me.txtDATAGUID + Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Size = New System.Drawing.Size(332, 24) + Me.LayoutControlItem23.Text = "ID:" + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(125, 13) ' - 'GridControl1 + 'GridControl2 ' - 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, 587) - Me.GridControl1.TabIndex = 10 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + 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, 587) + Me.GridControl2.TabIndex = 10 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' - 'GridView2 + 'GridView3 ' - 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.ShowAutoFilterRow = True - Me.GridView2.OptionsView.ShowGroupPanel = False + 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_TITLE + 'colTAB_TITLE1 ' - 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 + 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 ' 'TabPageProcessAssignment ' @@ -2098,14 +2128,6 @@ Partial Class frmAdministration Me.SimpleSeparator1.Name = "SimpleSeparator1" Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2) ' - 'BarButtonItem24 - ' - Me.BarButtonItem24.Caption = "Zuordnung löschen" - Me.BarButtonItem24.Id = 9 - Me.BarButtonItem24.ImageOptions.Image = CType(resources.GetObject("BarButtonItem24.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem24.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem24.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BarButtonItem24.Name = "BarButtonItem24" - ' 'frmAdministration ' Me.Appearance.Options.UseFont = True @@ -2147,7 +2169,7 @@ Partial Class frmAdministration 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.PROFILE_IDTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() @@ -2160,36 +2182,6 @@ Partial Class frmAdministration CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPageData.ResumeLayout(False) - CType(Me.LayoutControlData, System.ComponentModel.ISupportInitialize).EndInit() - Me.LayoutControlData.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.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.TextEdit10.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.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageDocuments.ResumeLayout(False) CType(Me.LayoutControlDocs, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControlDocs.ResumeLayout(False) @@ -2200,6 +2192,7 @@ Partial Class frmAdministration CType(Me.CHANGED_WHOTextBox2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit16.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MemoEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -2219,6 +2212,35 @@ Partial Class frmAdministration CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPageData.ResumeLayout(False) + CType(Me.LayoutControlData, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlData.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.ComboBoxEdit2.Properties, 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.TextEdit10.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.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageProcessAssignment.ResumeLayout(False) Me.TabPageUserAssignment.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) @@ -2315,23 +2337,23 @@ 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 RibbonGroupProfile As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonGroupProcess As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_Process 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 RibbonGroupWindow As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_Window 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 RibbonGroupUser As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonGroupGroup As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_User As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_Group 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 @@ -2347,11 +2369,11 @@ Partial Class frmAdministration 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 RibbonGroup_DocSearch 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 RibbonGroup_DataSearch 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 @@ -2399,7 +2421,7 @@ Partial Class frmAdministration 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 PROFILE_IDTextBox 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 @@ -2434,6 +2456,8 @@ Partial Class frmAdministration Friend WithEvents TextEdit19 As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents TextEdit10 As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonGroupControl As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_Control As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index d33fb28..6106dbf 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -668,48 +668,84 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAALHRFWHRUaXRsZQBOZXh0O0Rv - dWJsZTtBcnJvdztGYXN0O1Jld2luZDtJbmNyZWFzZcl3QB8AAAB/SURBVDhPtZDBDYAwDAO7YNdhAJZg - BP682C40FkIlXCEfHudKlm1FLWZW6rxXf3vIIyQtbLFAHiE5w7cCeYSkC18F8ghJCKvQ2KIXy85oQIXG - Y2Ral/SA83nJ14DzOvLrBamPHA2kyg4NKEgeIaEgeYSEgpmyI6FgpuygmcfKAXuxrY4cCR8rAAAAAElF - TkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAsdEVYdFRpdGxlAE5leHQ7RG91YmxlO0Fycm93O0Zh + c3Q7UmV3aW5kO0luY3JlYXNlyXdAHwAAAH9JREFUOE+1kMENgDAMA7tg12EAlmAE/rzYLjQWQiVcIR8e + 50qWbUUtZlbqvFd/e8gjJC1ssUAeITnDtwJ5hKQLXwXyCEkIq9DYohfLzmhAhcZjZFqX9IDzecnXgPM6 + 8usFqY8cDaTKDg0oSB4hoSB5hISCmbIjoWCm7KCZx8oBe7GtjhwJHysAAAAASUVORK5CYII= - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAALHRFWHRUaXRsZQBOZXh0O0Rv - dWJsZTtBcnJvdztGYXN0O1Jld2luZDtJbmNyZWFzZcl3QB8AAAD6SURBVFhHxZLBDYMwEARpkHZSQJpI - Cfnnle4cHwqSbQaWwyfzGKHMit0TypRSuhWUI0E5P78pM1NmqNwDyv/A7ojKPaAsBnBE5R5QNgObEZV7 - QAkD1QhkVe4BJZSvLCP5+Wl8lXtACcUlcybsCJRQ2hJ2BEooJEKOQAlle3QfgRKKjug6AiWUKOQRj/cL - t1BCwRkufYmNMODls7iPqH6swItnuPULXP4jooSCIy6PGyihZI+ucQMlFBHd4wZKKGsJGTdQQmFJ2LiB - EkpXlvL8DBk3UEJxVQ5ZlXtAqcpV7gGlKle5B5SqXOUeUKryqHED5UhQjgTlONL0A0h+ATgx7MVAAAAA - AElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAsdEVYdFRpdGxlAE5leHQ7RG91YmxlO0Fycm93O0Zh + c3Q7UmV3aW5kO0luY3JlYXNlyXdAHwAAAPpJREFUWEfFksENgzAQBGmQdlJAmkgJ+eeV7hwfCpJtBpbD + J/MYocyK3RPKlFK6FZQjQTk/vykzU2ao3APK/8DuiMo9oCwGcETlHlA2A5sRlXtACQPVCGRV7gEllK8s + I/n5aXyVe0AJxSVzJuwIlFDaEnYESigkQo5ACWV7dB+BEoqO6DoCJZQo5BGP9wu3UELBGS59iY0w4OWz + uI+ofqzAi2e49Qtc/iOihIIjLo8bKKFkj65xAyUUEd3jBkooawkZN1BCYUnYuIESSleW8vwMGTdQQnFV + DlmVe0CpylXuAaUqV7kHlKpc5R5QqvKocQPlSFCOBOU40vQDSH4BODHsxUAAAAAASUVORK5CYII= - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAI3RFWHRUaXRsZQBDYW5jZWw7 - U3RvcDtFeGl0O0JhcnM7UmliYm9uO0yWlrIAAADCSURBVDhPjZNLCgIxEERzOGFWegkvIH4QRhyv6UkU - V20VpCTpTquLB0n9GAZSzKzct6s1mHn+B2Qv7PCs8gsYuPqwB5lbzbKzoXCqgkhH4Kks9jLOzggj0Hz5 - SL0NpCM4D8vkM1CDfmQBaZl0AwQBP9LSlUl3EQiORkKZBIEg7D+bLKNsEBAclUUY6S4I+PIBhB/bdr6W - Gy8d+VkW0IYjNPgwWiOUBTw/MlOcwKMKaVkgo5EnmCRyZOfDGcjyAU5mVt7SQJzMJkqbYgAAAABJRU5E - rkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y + BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ + ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa + I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAI3RFWHRUaXRsZQBDYW5jZWw7 - U3RvcDtFeGl0O0JhcnM7UmliYm9uO0yWlrIAAAFuSURBVFhHxZZNSgQxFIRn5gIOeiU3LhxBj+BRRRTF - Wc9VXMWqJg+e6XpNXoS4+BYpUj/Q3dC7Usq/IsWZSHEmUpyJFC/Pt3+iyTr4c4sUa9AVeAF39dyNy7kH - r+Do8z1ShIHlH6CAb5AaUTNYTi8zPoEcsRJw8QC4mkYjO8KXG8zct32/DgYuPoE2oHeEKuf5QXWtBILL - 5LEa26CtEalyIkUYjMyIdDmRIkyenhFD5USKMLZsjRguJ1KEWRGNGC4nUkRAhBrhSZUTKSJki2jEUg5k - ZoQUGbKBeuY2YHkxVWaEFBkSEJUbywiVGSFFhCiit11p3SOkiIDecj7z8BNV2S1ShLm33O4Mj5AijJly - Y2iEFGEiUfkJ+GJPeoQUYRgpN1IjVgIu7sFbNfqAnnJDjXgH3T8k1+CrGrPlluFHnMFN20NWAsFlwhFc - nSonLocjmCHLiRQtCPD/0J+7aLLyv+UzkeJMpDgTKc6j7H4AaYUNY+IvplgAAAAASUVORK5CYII= + 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 + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENvcHk7QmFycztSaWJib247U3Rh + bmRhcmQ7Q2xvbmVtDt9bAAAAb0lEQVQ4T+2OwQ2AIBAE6ckW700HlOaXIny4cgbIokE5w9NNJhC4HXAA + GkQEHfa8LjzflBUd6kXvvPcrS8yClI0ltfREjFGLt3PtDr0aQqiSEpNAc5WYBExJ3r8LOL9gkoBJ+fSD + s1OYJxiFywDcAUEvVDi/LQTFAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENvcHk7QmFycztSaWJib247U3Rh + bmRhcmQ7Q2xvbmVtDt9bAAAA50lEQVRYR+2TwQqDMAyGfT6fq1dRevfJxFNhD7EdsvysgukSp1vtBusH + P5K0id9BGyL6atRmyajNNM45OpjAaTmYfcp6tyis8BA/9oP7XdfdxnFsuUx3iVoUVt4RmOdZlSgmADSJ + ogIgldgUwOCReO9pmiYeleBsTZS4QoLPxDtFkQ6+Avf7vqcQQuw80PYsEnwmvomPBbA4lUB/Ixe+kk8A + aBIWcSavANgrcZoA2CNxqgBYJLS/A2QXsDIMQ7wlwRmTR2ALa1cVqAJVoAr8l4AVpowAI/ZrEUUV+AmB + nFnvtqI2y4WaO7s+m1CnlB8XAAAAAElFTkSuQmCC @@ -728,6 +764,14 @@ 1149, 134 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAFRleHQ7UGFnZTtSZXBvcnR2YWEA + AAAAVUlEQVQ4T2P4//8/RRjOaGlp+Y8H/4PSxsiaQRjFAHwAJN/X13cX3RCSDACCX+iGkGQAMgYC0gxA + BngN8G3agReDwKgLaO0CYgDtDCAFYxhAHv7PAAC6Jy+iz67OxwAAAABJRU5ErkJggg== + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -735,14 +779,6 @@ dG9yrLHqcgAAAIhJREFUOE9j+P//P8O7I0UgLADEUUA8C4jPAfEnJAzig8RB8iB1YH0gDDPACIiXAvF/ IjBInRG6AXOQFBCD56Ab8A5NASH8juoGUOwFMyAmJRDN0A1IA2JPICYmGkHq0tANAIXBAyAGKYoDYl0g 5kHCID5IHCQPUjcaBrQIA4ozEwiTkZ3/MwAAShbqQY39CKgAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAFRleHQ7UGFnZTtSZXBvcnR2YWEA - AAAAVUlEQVQ4T2P4//8/RRjOaGlp+Y8H/4PSxsiaQRjFAHwAJN/X13cX3RCSDACCX+iGkGQAMgYC0gxA - BngN8G3agReDwKgLaO0CYgDtDCAFYxhAHv7PAAC6Jy+iz67OxwAAAABJRU5ErkJggg== diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index cd0658f..fad7a6f 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -90,12 +90,12 @@ Public Class frmAdministration XtraTabControl3.SelectedTabPage = TabPageGeneralSettings End Sub - Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged + Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged - If GUIDTextBox.Text <> "" Then + If PROFILE_IDTextBox.Text <> "" Then Refresh_ProfileData() - Refresh_Free_Users(GUIDTextBox.Text) - Refresh_Free_Groups(GUIDTextBox.Text) + Refresh_Free_Users(PROFILE_IDTextBox.Text) + Refresh_Free_Groups(PROFILE_IDTextBox.Text) Load_Profile_Process() End If @@ -104,19 +104,19 @@ Public Class frmAdministration Sub Refresh_ProfileData() Try VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, GUIDTextBox.Text) + VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, PROFILE_IDTextBox.Text) VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, GUIDTextBox.Text) + VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text) TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString - TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text) + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text) If MyDataset.TBCW_PROF_DOC_SEARCH.Count = 0 Then LayoutControlDocs.Enabled = False End If TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString - TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text) + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text) If MyDataset.TBCW_PROF_DATA_SEARCH.Count = 0 Then LayoutControlData.Enabled = False End If @@ -128,13 +128,13 @@ Public Class frmAdministration Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs) Try Try - Dim i As Integer = CInt(GUIDTextBox.Text) + Dim i As Integer = CInt(PROFILE_IDTextBox.Text) Catch ex As Exception Exit Sub End Try For Each row As DataRow In MyDataset.TBWH_User.Rows If row.Item(0) = CBool(True) Then - Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5)) + Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, row.Item(5)) If Database.ExecuteNonQuery(insert) = False Then MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) End If @@ -143,8 +143,8 @@ Public Class frmAdministration 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) + If PROFILE_IDTextBox.Text <> "" Then + Refresh_Free_Users(PROFILE_IDTextBox.Text) Refresh_ProfileData() End If @@ -213,8 +213,8 @@ Public Class frmAdministration Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID) If Database.ExecuteNonQuery(del) = True Then Refresh_ProfileData() - If GUIDTextBox.Text <> "" Then - Refresh_Free_Users(GUIDTextBox.Text) + If PROFILE_IDTextBox.Text <> "" Then + Refresh_Free_Users(PROFILE_IDTextBox.Text) End If End If @@ -224,17 +224,17 @@ Public Class frmAdministration End Sub Private Sub Load_Profile_Process() - If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then + If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then Exit Sub End If - If CtrlApplicationAssignment1.Process_Load(GUIDTextBox.Text) = False Then + If CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text) = False Then MsgBox("Unexpected Error while loading processes:", MsgBoxStyle.Critical) End If End Sub Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown - If GUIDTextBox.Text = "" Then + If PROFILE_IDTextBox.Text = "" Then Refresh_Free_Users(0) Refresh_Free_Groups(0) End If @@ -244,7 +244,7 @@ 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.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1 MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = True @@ -254,7 +254,7 @@ Public Class frmAdministration 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 = True - MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text + MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1 LayoutControlDocs.Enabled = True @@ -275,7 +275,7 @@ Public Class frmAdministration Private Sub TBCW_PROF_REL_WINDOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) MyDataset.TBCW_PROF_REL_WINDOW.ADDED_WHOColumn.DefaultValue = Environment.UserName - MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text + MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text MyDataset.TBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn.DefaultValue = SelectedProcessName End Sub @@ -290,8 +290,8 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text) - Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", PROFILE_IDTextBox.Text) + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, Text) ' wenn Speichern ja If result = MsgBoxResult.Yes Then If Database.ExecuteNonQuery(swl) = True Then @@ -304,24 +304,24 @@ Public Class frmAdministration Load_Profiles() Refresh_ProfileData() Try - Dim ID = CInt(GUIDTextBox.Text) + Dim ID = CInt(PROFILE_IDTextBox.Text) Catch ex As Exception Exit Sub End Try - Refresh_Free_Users(GUIDTextBox.Text) - Refresh_Free_Groups(GUIDTextBox.Text) + Refresh_Free_Users(PROFILE_IDTextBox.Text) + Refresh_Free_Groups(PROFILE_IDTextBox.Text) End Sub Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick - If CtrlApplicationAssignment1.Process_CreateAssignment(GUIDTextBox.Text) = False Then - MsgBox("Error while assigning process!", MsgBoxStyle.Critical, "Clipboard Watcher") + If CtrlApplicationAssignment1.Process_CreateAssignment(PROFILE_IDTextBox.Text) = False Then + MsgBox("Error while assigning process!", MsgBoxStyle.Critical, Text) + Else + Status_Changed("Prozess zugeordnet") End If - - Status_Changed("Prozess zugeordnet") End Sub Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick - If MsgBox($"Wollen Sie den Prozess löschen?" & vbNewLine & "Dies wird alle Fenster löschen, die diesem Prozess zugeordnet sind!", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Prozess löschen") = MsgBoxResult.No Then + If MsgBox($"Wollen Sie den Prozess löschen?" & vbNewLine & "Dies wird alle Fenster löschen, die diesem Prozess zugeordnet sind!", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then Exit Sub End If @@ -333,15 +333,15 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick - If CtrlApplicationAssignment1.Window_CreateAssignment(GUIDTextBox.Text) = False Then + If CtrlApplicationAssignment1.Window_CreateAssignment(PROFILE_IDTextBox.Text) = False Then MsgBox("Error while assigning window!", MsgBoxStyle.Critical, "Clipboard Watcher") + Else + Status_Changed("Fenster zugeordnet") End If - - Status_Changed("Fenster zugeordnet") End Sub Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick - If MsgBox($"Wollen Sie die Fenster-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Prozess löschen") = MsgBoxResult.No Then + If MsgBox($"Wollen Sie die Fenster-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then Exit Sub End If @@ -354,7 +354,7 @@ Public Class frmAdministration Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick Try - If GUIDTextBox.Text = String.Empty Then + If PROFILE_IDTextBox.Text = String.Empty Then Exit Sub End If @@ -363,13 +363,13 @@ Public Class frmAdministration 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) + Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid) If Database.ExecuteNonQuery(insert) = False Then MsgBox("Error while adding user!", MsgBoxStyle.Exclamation) End If Next - Refresh_Free_Users(GUIDTextBox.Text) + Refresh_Free_Users(PROFILE_IDTextBox.Text) Refresh_ProfileData() GridViewUserNotInProfile.ClearSelection() @@ -383,7 +383,7 @@ Public Class frmAdministration Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick Try - If GUIDTextBox.Text = String.Empty Then + If PROFILE_IDTextBox.Text = String.Empty Then Exit Sub End If @@ -398,7 +398,7 @@ Public Class frmAdministration End If Next - Refresh_Free_Users(GUIDTextBox.Text) + Refresh_Free_Users(PROFILE_IDTextBox.Text) Refresh_ProfileData() GridViewUserInProfile.ClearSelection() @@ -417,7 +417,7 @@ Public Class frmAdministration For Each oRowHandle In oSelectedGroups Dim oRow As MyDataset.TBWH_GROUPRow = DirectCast(GridViewGroupNotInProfile.GetRow(oRowHandle), DataRowView).Row Dim oGroupId As Integer = oRow.ID - Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({GUIDTextBox.Text},{oGroupId})" + Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.Text},{oGroupId})" If Database.ExecuteNonQuery(oSQL) = False Then MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation) @@ -426,7 +426,7 @@ Public Class frmAdministration GridViewGroupNotInProfile.ClearSelection() - Refresh_Free_Groups(GUIDTextBox.Text) + Refresh_Free_Groups(PROFILE_IDTextBox.Text) Refresh_ProfileData() Status_Changed($"{oSelectedGroups.Count} Gruppen zugeordnet") @@ -451,7 +451,7 @@ Public Class frmAdministration GridViewGroupInProfile.ClearSelection() - Refresh_Free_Groups(GUIDTextBox.Text) + Refresh_Free_Groups(PROFILE_IDTextBox.Text) Refresh_ProfileData() Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht") @@ -465,58 +465,76 @@ Public Class frmAdministration 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 + RibbonGroup_Profile.Enabled = False + RibbonGroup_User.Enabled = False + RibbonGroup_Group.Enabled = False + + RibbonGroup_Process.Enabled = True + RibbonGroup_Window.Enabled = True + RibbonGroup_Control.Enabled = True + + RibbonGroup_DocSearch.Enabled = False + RibbonGroup_DataSearch.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 + RibbonGroup_Profile.Enabled = False + RibbonGroup_User.Enabled = True + RibbonGroup_Group.Enabled = False + + RibbonGroup_Process.Enabled = False + RibbonGroup_Window.Enabled = False + RibbonGroup_Control.Enabled = False + + RibbonGroup_DocSearch.Enabled = False + RibbonGroup_DataSearch.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 + RibbonGroup_Profile.Enabled = False + RibbonGroup_User.Enabled = False + RibbonGroup_Group.Enabled = True + + RibbonGroup_Process.Enabled = False + RibbonGroup_Window.Enabled = False + RibbonGroup_Control.Enabled = False + + RibbonGroup_DocSearch.Enabled = False + RibbonGroup_DataSearch.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 + RibbonGroup_Profile.Enabled = False + RibbonGroup_User.Enabled = False + RibbonGroup_Group.Enabled = False + + RibbonGroup_Process.Enabled = False + RibbonGroup_Window.Enabled = False + RibbonGroup_Control.Enabled = False + + RibbonGroup_DocSearch.Enabled = False + RibbonGroup_DataSearch.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 + RibbonGroup_Profile.Enabled = False + RibbonGroup_User.Enabled = False + RibbonGroup_Group.Enabled = False + + RibbonGroup_Process.Enabled = False + RibbonGroup_Window.Enabled = False + RibbonGroup_Control.Enabled = False + + RibbonGroup_DocSearch.Enabled = True + RibbonGroup_DataSearch.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 + RibbonGroup_Profile.Enabled = True + RibbonGroup_User.Enabled = False + RibbonGroup_Group.Enabled = False + + RibbonGroup_Process.Enabled = False + RibbonGroup_Window.Enabled = False + RibbonGroup_Control.Enabled = False + + RibbonGroup_DocSearch.Enabled = False + RibbonGroup_DataSearch.Enabled = False End Select End Sub @@ -528,9 +546,9 @@ Public Class frmAdministration 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) + Else + Status_Changed("Fensterzuordnung gespeichert") End If - - Status_Changed("Fensterzuordnung gespeichert") End Sub Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick @@ -555,7 +573,7 @@ Public Class frmAdministration 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) + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text) Status_Changed("Daten-Suche gelöscht") End If End Sub @@ -567,7 +585,7 @@ Public Class frmAdministration CHANGED_WHOTextBox1.Text = Environment.UserName TBCW_PROF_DATA_SEARCHBindingSource.EndEdit() TBCW_PROF_DATA_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DATA_SEARCH) - TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text) + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text) Status_Changed("Daten-Suche gespeichert") End If Catch ex As NoNullAllowedException @@ -590,7 +608,7 @@ Public Class frmAdministration 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) + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text) Status_Changed("Dokument-Suche gelöscht") End If End Sub @@ -602,7 +620,7 @@ Public Class frmAdministration CHANGED_WHOTextBox2.Text = Environment.UserName TBCW_PROF_DOC_SEARCHBindingSource.EndEdit() TBCW_PROF_DOC_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DOC_SEARCH) - TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text) + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text) Status_Changed("Dokument-Suche gespeichert") End If Catch ex As NoNullAllowedException @@ -618,7 +636,26 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick - Dim oForm As New frmControlCapture() - oForm.ShowDialog() + If CtrlApplicationAssignment1.Control_CreateAssignment(PROFILE_IDTextBox.Text) = False Then + MsgBox("Error while saving control", MsgBoxStyle.Critical, Text) + Else + Status_Changed("Feld-Zuordnung gespeichert") + End If + End Sub + + Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick + If MsgBox($"Wollen Sie die Feld-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then + Exit Sub + End If + + If CtrlApplicationAssignment1.Control_DeleteAssignment() = False Then + MsgBox("Error while deleting assignment of control!", MsgBoxStyle.Critical, Text) + End If + + Status_Changed("Feld-Zuordnung gelöscht") + End Sub + + Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick + 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 index faaeeca..03d1df9 100644 --- a/app/DD_Clipboard_Searcher/frmConnection.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmConnection.Designer.vb @@ -43,6 +43,8 @@ Partial Class frmConnection Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSQL_PROVIDER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label1 = New System.Windows.Forms.Label() + Me.ODBCServerTextBox = New System.Windows.Forms.ComboBox() Me.chkWinAuth = New System.Windows.Forms.CheckBox() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() @@ -67,8 +69,6 @@ Partial Class frmConnection Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.ODBCServerTextBox = New System.Windows.Forms.ComboBox() - Me.Label1 = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label() SQL_PROVIDERLabel = New System.Windows.Forms.Label() SERVERLabel = New System.Windows.Forms.Label() @@ -283,6 +283,23 @@ Partial Class frmConnection Me.colSQL_PROVIDER.Visible = True Me.colSQL_PROVIDER.VisibleIndex = 1 ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(220, 3) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(101, 13) + Me.Label1.TabIndex = 33 + Me.Label1.Text = "ODBC Verbindung *" + ' + 'ODBCServerTextBox + ' + Me.ODBCServerTextBox.FormattingEnabled = True + Me.ODBCServerTextBox.Location = New System.Drawing.Point(223, 19) + Me.ODBCServerTextBox.Name = "ODBCServerTextBox" + Me.ODBCServerTextBox.Size = New System.Drawing.Size(200, 21) + Me.ODBCServerTextBox.TabIndex = 32 + ' 'chkWinAuth ' Me.chkWinAuth.AutoSize = True @@ -352,6 +369,7 @@ Partial Class frmConnection 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.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) Me.PASSWORDTextBox.Size = New System.Drawing.Size(200, 21) Me.PASSWORDTextBox.TabIndex = 13 ' @@ -413,6 +431,7 @@ Partial Class frmConnection 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_CONTROLTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing @@ -492,23 +511,6 @@ Partial Class frmConnection Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' - 'ODBCServerTextBox - ' - Me.ODBCServerTextBox.FormattingEnabled = True - Me.ODBCServerTextBox.Location = New System.Drawing.Point(223, 19) - Me.ODBCServerTextBox.Name = "ODBCServerTextBox" - Me.ODBCServerTextBox.Size = New System.Drawing.Size(200, 21) - Me.ODBCServerTextBox.TabIndex = 32 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(220, 3) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(101, 13) - Me.Label1.TabIndex = 33 - Me.Label1.Text = "ODBC Verbindung *" - ' 'frmConnection ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/app/DD_Clipboard_Searcher/frmConnection.resx b/app/DD_Clipboard_Searcher/frmConnection.resx index 13da9f4..bfa1040 100644 --- a/app/DD_Clipboard_Searcher/frmConnection.resx +++ b/app/DD_Clipboard_Searcher/frmConnection.resx @@ -159,9 +159,6 @@ 17, 17 - - 17, 17 - 371, 17 diff --git a/app/DD_Clipboard_Searcher/frmConnection.vb b/app/DD_Clipboard_Searcher/frmConnection.vb index 10c9188..e61e959 100644 --- a/app/DD_Clipboard_Searcher/frmConnection.vb +++ b/app/DD_Clipboard_Searcher/frmConnection.vb @@ -1,8 +1,8 @@ Imports System.Data.SqlClient Imports System.Data.Odbc -Imports Oracle.ManagedDataAccess.Client Imports Microsoft.Win32 Imports DigitalData.Modules.Database.Constants +Imports DigitalData.Modules Public Class frmConnection Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) @@ -91,13 +91,14 @@ Public Class frmConnection 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};" + Dim oOracle As New Database.Oracle(LogConfig, oConnectionString) - Using connection As New OracleConnection(oConnectionString) - connection.Open() + If oOracle.DBInitialized Then MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text) - End Using + Else + MsgBox("Fehler beim Verbindungsaufbau (ORACLE): Fehler im Log", MsgBoxStyle.Critical, Text) + End If Catch ex As Exception Logger.Error(ex) MsgBox("Fehler beim Verbindungsaufbau (ORACLE): " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) @@ -194,14 +195,21 @@ Public Class frmConnection 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) + Dim oSQL = $"SELECT dbo.FNCW_GET_SEARCH_COUNT_FOR_CONNECTION({GUIDTextBox.Text})" + Dim oCount = Database.GetScalarValue(oSQL) + + If oCount IsNot Nothing AndAlso oCount = 0 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 + Else + MsgBox($"Die Verbindung '{BEZEICHNUNGTextBox.Text}' kann nicht gelöscht werden, da sie von mindestens einer Suche verwendet wird!", MsgBoxStyle.Exclamation, Text) End If End If Catch ex As Exception Logger.Error(ex) - MsgBox("Fehler beim Löschen der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Fehler beim Löschen der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) End Try End Sub diff --git a/app/DD_Clipboard_Searcher/frmControlCapture.vb b/app/DD_Clipboard_Searcher/frmControlCapture.vb index 3723ef8..a81a052 100644 --- a/app/DD_Clipboard_Searcher/frmControlCapture.vb +++ b/app/DD_Clipboard_Searcher/frmControlCapture.vb @@ -13,6 +13,9 @@ Public Class frmControlCapture txtControlName.Text = oResult.ControlName ControlName = oResult.ControlName ProcessName = oResult.ProcessName + Button1.Enabled = True + Else + Button1.Enabled = False End If End Sub End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.vb b/app/DD_Clipboard_Searcher/frmProcessCapture.vb index c501d34..2670d0f 100644 --- a/app/DD_Clipboard_Searcher/frmProcessCapture.vb +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.vb @@ -8,7 +8,10 @@ Public Class frmProcessCapture Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim oWindow = ClassWindowAPI.GetWindowInfo() - 'clsWINDOWSApi.Get_ForegroundWindow_Info() + If oWindow Is Nothing Then + Exit Sub + End If + Dim oProgramName As String = Assembly.GetEntryAssembly().GetName().Name If oWindow.ProcessName <> oProgramName Then diff --git a/app/DD_Clipboard_Searcher/frmStart.Designer.vb b/app/DD_Clipboard_Searcher/frmStart.Designer.vb index e711e69..d1763b0 100644 --- a/app/DD_Clipboard_Searcher/frmStart.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmStart.Designer.vb @@ -151,7 +151,7 @@ Partial Class frmStart Me.labelHotkey.Name = "labelHotkey" Me.labelHotkey.Size = New System.Drawing.Size(312, 39) Me.labelHotkey.TabIndex = 13 - Me.labelHotkey.Text = "STRG+C {0}" + Me.labelHotkey.Text = "CLIPBOARD + {0}" Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'btnUserConfig diff --git a/app/DD_Clipboard_Searcher/frmStart.vb b/app/DD_Clipboard_Searcher/frmStart.vb index 218fc5a..17827db 100644 --- a/app/DD_Clipboard_Searcher/frmStart.vb +++ b/app/DD_Clipboard_Searcher/frmStart.vb @@ -111,7 +111,7 @@ Public Class frmStart Dim oProfileFilter As ClassProfileFilter Try - oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW) + oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW, DTPROFILE_REL_CONTROL) Catch ex As Exception MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.") Exit Sub @@ -122,7 +122,8 @@ Public Class frmStart oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName) oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle) - oProfiles = oProfileFilter.FilterProfilesByWindowClipboardRegex(oProfiles, ClipboardContents) + oProfiles = oProfileFilter.FilterWindowsByWindowClipboardRegex(oProfiles, ClipboardContents) + oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles) oProfiles = oProfileFilter.RemoveDuplicateProfiles() oProfiles = oProfiles.ToList() @@ -151,8 +152,8 @@ Public Class frmStart Dim oResultDocs As Integer = 0 Dim oResultData As Integer = 0 - Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE PROFILE_ID = {oProfile.Guid}") - Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE PROFILE_ID = {oProfile.Guid}") + Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}") + Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}") For Each oRow As DataRow In oDataSearches.Rows Try diff --git a/app/DD_Clipboard_Searcher/modCurrent.vb b/app/DD_Clipboard_Searcher/modCurrent.vb index 7b18d2e..cda5bd0 100644 --- a/app/DD_Clipboard_Searcher/modCurrent.vb +++ b/app/DD_Clipboard_Searcher/modCurrent.vb @@ -65,6 +65,7 @@ Module modCurrent Public CLIENT_SELECTED As Integer = 0 Public CurrDT_PROFILE_MATCH As DataTable Public DTPROFILE_REL_WINDOW As DataTable + Public DTPROFILE_REL_CONTROL As DataTable Public CURRENT_DT_DOC_SEARCHES As DataTable Public CURRENT_DT_DATA_SEARCHES As DataTable diff --git a/app/SetupWix/Product.wxs b/app/SetupWix/Product.wxs index fdb9f39..1fd16d6 100644 --- a/app/SetupWix/Product.wxs +++ b/app/SetupWix/Product.wxs @@ -91,6 +91,10 @@ + + + + @@ -109,6 +113,10 @@ + + + + @@ -128,6 +136,7 @@ +