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
+ Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
+ Dim oProfiles As New List(Of ProfileData)
- Return p.Windows.
- Any(Function(w)
- Try
- If w.ClipboardRegex = String.Empty Then Return True
+ For Each oProfile As ProfileData In Profiles
+ Logger.Debug("Current Profile: {0}", oProfile.Name)
- Dim oRegex As New Regex(w.ClipboardRegex)
- Dim oMatch = oRegex.Match(ClipboardContents)
+ Dim oWindows As New List(Of WindowData)
- 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)
+ 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,329 +1047,6 @@ Partial Class frmAdministration
Me.layoutControlItem3.TextLocation = DevExpress.Utils.Locations.Left
Me.layoutControlItem3.TextSize = New System.Drawing.Size(92, 13)
'
- 'TabPageData
- '
- 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"
- '
- 'LayoutControlData
- '
- 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"
- '
- 'TextEdit12
- '
- 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
- '
- 'TextEdit13
- '
- Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True))
- Me.TextEdit13.Location = New System.Drawing.Point(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
- '
- 'CHANGED_WHOTextBox1
- '
- 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
- '
- 'TextEdit11
- '
- Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True))
- Me.TextEdit11.Location = New System.Drawing.Point(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
- '
- 'CheckEdit2
- '
- 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
- '
- 'TextEdit9
- '
- Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True))
- Me.TextEdit9.EditValue = ""
- Me.TextEdit9.Location = New System.Drawing.Point(140, 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
- '
- 'ComboBoxEdit2
- '
- Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True))
- Me.ComboBoxEdit2.Location = New System.Drawing.Point(140, 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
- '
- 'TBDD_CONNECTIONBindingSource
- '
- Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
- Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset
- '
- 'MemoEdit3
- '
- Me.MemoEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True))
- Me.MemoEdit3.Location = New System.Drawing.Point(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
- '
- 'MemoEdit4
- '
- Me.MemoEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True))
- Me.MemoEdit4.Location = New System.Drawing.Point(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
- '
- 'txtDATAGUID
- '
- Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True))
- Me.txtDATAGUID.Location = New System.Drawing.Point(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
- '
- 'TextEdit10
- '
- Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True))
- Me.TextEdit10.Location = New System.Drawing.Point(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
- '
- 'LayoutControlGroup3
- '
- Me.LayoutControlGroup3.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
- Me.LayoutControlGroup3.GroupBordersVisible = False
- Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17, Me.LayoutControlItem16, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem21, Me.LayoutControlItem22, Me.EmptySpaceItem1, Me.LayoutControlItem23})
- Me.LayoutControlGroup3.Name = "Root"
- Me.LayoutControlGroup3.Size = New System.Drawing.Size(992, 587)
- Me.LayoutControlGroup3.TextVisible = False
- '
- 'LayoutControlItem10
- '
- Me.LayoutControlItem10.Control = Me.CheckEdit2
- Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0)
- Me.LayoutControlItem10.Name = "LayoutControlItem10"
- Me.LayoutControlItem10.Size = New System.Drawing.Size(332, 23)
- Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0)
- Me.LayoutControlItem10.TextVisible = False
- '
- 'LayoutControlItem14
- '
- Me.LayoutControlItem14.Control = Me.TextEdit12
- Me.LayoutControlItem14.CustomizationFormText = "layoutControlItem1"
- Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 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)
- '
- 'LayoutControlItem15
- '
- 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)
- '
- 'LayoutControlItem17
- '
- 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)
- '
- 'LayoutControlItem16
- '
- 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)
- '
- 'LayoutControlItem11
- '
- 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)
- '
- 'LayoutControlItem12
- '
- 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)
- '
- 'LayoutControlItem13
- '
- 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)
- '
- 'LayoutControlItem21
- '
- 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)
- '
- 'LayoutControlItem22
- '
- 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)
- '
- 'EmptySpaceItem1
- '
- 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)
- '
- 'LayoutControlItem23
- '
- 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)
- '
- 'GridControl2
- '
- Me.GridControl2.DataSource = Me.TBCW_PROF_DATA_SEARCHBindingSource
- Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Left
- Me.GridControl2.Location = New System.Drawing.Point(0, 0)
- Me.GridControl2.MainView = Me.GridView3
- Me.GridControl2.MenuManager = Me.RibbonControl2
- Me.GridControl2.Name = "GridControl2"
- Me.GridControl2.Size = New System.Drawing.Size(200, 587)
- Me.GridControl2.TabIndex = 10
- Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
- '
- 'GridView3
- '
- Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
- Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE1})
- Me.GridView3.GridControl = Me.GridControl2
- Me.GridView3.Name = "GridView3"
- Me.GridView3.OptionsBehavior.Editable = False
- Me.GridView3.OptionsBehavior.ReadOnly = True
- Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
- Me.GridView3.OptionsView.ShowAutoFilterRow = True
- Me.GridView3.OptionsView.ShowGroupPanel = False
- '
- 'colTAB_TITLE1
- '
- Me.colTAB_TITLE1.Caption = "Titel"
- Me.colTAB_TITLE1.FieldName = "TAB_TITLE"
- Me.colTAB_TITLE1.Name = "colTAB_TITLE1"
- Me.colTAB_TITLE1.Visible = True
- Me.colTAB_TITLE1.VisibleIndex = 0
- '
'TabPageDocuments
'
Me.TabPageDocuments.Controls.Add(Me.LayoutControlDocs)
@@ -1448,6 +1155,11 @@ Partial Class frmAdministration
Me.LookUpEdit1.StyleController = Me.LayoutControlDocs
Me.LookUpEdit1.TabIndex = 11
'
+ 'TBDD_CONNECTIONBindingSource
+ '
+ Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
+ Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset
+ '
'MemoEdit5
'
Me.MemoEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True))
@@ -1659,6 +1371,324 @@ Partial Class frmAdministration
Me.colTAB_TITLE.Visible = True
Me.colTAB_TITLE.VisibleIndex = 0
'
+ 'TabPageData
+ '
+ 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"
+ '
+ 'LayoutControlData
+ '
+ 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"
+ '
+ 'TextEdit12
+ '
+ 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
+ '
+ 'TextEdit13
+ '
+ Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True))
+ Me.TextEdit13.Location = New System.Drawing.Point(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
+ '
+ 'CHANGED_WHOTextBox1
+ '
+ 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
+ '
+ 'TextEdit11
+ '
+ Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True))
+ Me.TextEdit11.Location = New System.Drawing.Point(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
+ '
+ 'CheckEdit2
+ '
+ 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
+ '
+ 'TextEdit9
+ '
+ Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True))
+ Me.TextEdit9.EditValue = ""
+ Me.TextEdit9.Location = New System.Drawing.Point(140, 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
+ '
+ 'ComboBoxEdit2
+ '
+ Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True))
+ Me.ComboBoxEdit2.Location = New System.Drawing.Point(140, 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
+ '
+ 'MemoEdit3
+ '
+ Me.MemoEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True))
+ Me.MemoEdit3.Location = New System.Drawing.Point(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
+ '
+ 'MemoEdit4
+ '
+ Me.MemoEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True))
+ Me.MemoEdit4.Location = New System.Drawing.Point(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
+ '
+ 'txtDATAGUID
+ '
+ Me.txtDATAGUID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True))
+ Me.txtDATAGUID.Location = New System.Drawing.Point(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
+ '
+ 'TextEdit10
+ '
+ Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True))
+ Me.TextEdit10.Location = New System.Drawing.Point(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
+ '
+ 'LayoutControlGroup3
+ '
+ Me.LayoutControlGroup3.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+ Me.LayoutControlGroup3.GroupBordersVisible = False
+ Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17, Me.LayoutControlItem16, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem21, Me.LayoutControlItem22, Me.EmptySpaceItem1, Me.LayoutControlItem23})
+ Me.LayoutControlGroup3.Name = "Root"
+ Me.LayoutControlGroup3.Size = New System.Drawing.Size(992, 587)
+ Me.LayoutControlGroup3.TextVisible = False
+ '
+ 'LayoutControlItem10
+ '
+ Me.LayoutControlItem10.Control = Me.CheckEdit2
+ Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0)
+ Me.LayoutControlItem10.Name = "LayoutControlItem10"
+ Me.LayoutControlItem10.Size = New System.Drawing.Size(332, 23)
+ Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0)
+ Me.LayoutControlItem10.TextVisible = False
+ '
+ 'LayoutControlItem14
+ '
+ Me.LayoutControlItem14.Control = Me.TextEdit12
+ Me.LayoutControlItem14.CustomizationFormText = "layoutControlItem1"
+ Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 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)
+ '
+ 'LayoutControlItem15
+ '
+ 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)
+ '
+ 'LayoutControlItem17
+ '
+ 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)
+ '
+ 'LayoutControlItem16
+ '
+ 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)
+ '
+ 'LayoutControlItem11
+ '
+ 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)
+ '
+ 'LayoutControlItem12
+ '
+ 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)
+ '
+ 'LayoutControlItem13
+ '
+ 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)
+ '
+ 'LayoutControlItem21
+ '
+ 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)
+ '
+ 'LayoutControlItem22
+ '
+ 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)
+ '
+ 'EmptySpaceItem1
+ '
+ 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)
+ '
+ 'LayoutControlItem23
+ '
+ 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)
+ '
+ 'GridControl2
+ '
+ Me.GridControl2.DataSource = Me.TBCW_PROF_DATA_SEARCHBindingSource
+ Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Left
+ Me.GridControl2.Location = New System.Drawing.Point(0, 0)
+ Me.GridControl2.MainView = Me.GridView3
+ Me.GridControl2.MenuManager = Me.RibbonControl2
+ Me.GridControl2.Name = "GridControl2"
+ Me.GridControl2.Size = New System.Drawing.Size(200, 587)
+ Me.GridControl2.TabIndex = 10
+ Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
+ '
+ 'GridView3
+ '
+ Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
+ Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE1})
+ Me.GridView3.GridControl = Me.GridControl2
+ Me.GridView3.Name = "GridView3"
+ Me.GridView3.OptionsBehavior.Editable = False
+ Me.GridView3.OptionsBehavior.ReadOnly = True
+ Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
+ Me.GridView3.OptionsView.ShowAutoFilterRow = True
+ Me.GridView3.OptionsView.ShowGroupPanel = False
+ '
+ 'colTAB_TITLE1
+ '
+ Me.colTAB_TITLE1.Caption = "Titel"
+ Me.colTAB_TITLE1.FieldName = "TAB_TITLE"
+ Me.colTAB_TITLE1.Name = "colTAB_TITLE1"
+ Me.colTAB_TITLE1.Visible = True
+ Me.colTAB_TITLE1.VisibleIndex = 0
+ '
'TabPageProcessAssignment
'
Me.TabPageProcessAssignment.Controls.Add(Me.CtrlApplicationAssignment1)
@@ -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 @@
+