AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VersionRelease

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-08-26 11:41:24 +02:00
parent a4086de11b
commit c7731cbb6d
35 changed files with 8126 additions and 4491 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_Clipboard_Searcher/ClassHotkey.vb
View File

@ -81,7 +81,10 @@ Public Class ClassHotkey
Private Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage Private Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
If m.Msg = WM_HOTKEY Then If m.Msg = WM_HOTKEY Then
RaiseEvent HotKeyPressed(_HotkeyList(CShort(m.WParam)).HotKeyID) If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
RaiseEvent HotKeyPressed(_HotkeyList(CShort(m.WParam)).HotKeyID)
End If
End If End If
End Function End Function

86
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@ -95,7 +95,42 @@ Public Class ClassInit
Return EncryptedConnectionString Return EncryptedConnectionString
End If End If
End Function End Function
Public Shared Function CheckModuleData()
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = Database.GetDatatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
'ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
Return False
End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
Logger.Info(">> Login Username: " & USER_USERNAME, False)
Logger.Info(">> Login time: " & Now.ToString, False)
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
USERCOUNT_LOGGED_IN += 1
Return True
Else
Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
End If
End Function
Public Shared Function InitUserLogin(Optional _User As String = "") Public Shared Function InitUserLogin(Optional _User As String = "")
Try Try
If _User = "" Then If _User = "" Then
@ -120,41 +155,10 @@ Public Class ClassInit
CLIENT_SELECTED = 1 CLIENT_SELECTED = 1
End Try End Try
'ClassLogger.Add(">> Username: " & USER_USERNAME, False) If CheckModuleData() = False Then
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = Database.GetDatatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
'ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
Return False Return False
End If End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
Logger.Info(">> Login Username: " & USER_USERNAME, False)
Logger.Info(">> Login time: " & Now.ToString, False)
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
Else
Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
End If
If USER_IN_MODULE = False Then If USER_IN_MODULE = False Then
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
@ -173,11 +177,12 @@ Public Class ClassInit
'Am System anmelden 'Am System anmelden
' sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_ID) ' sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_ID)
'Database.GetDatatable(sql) 'Database.GetDatatable(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'" Dim oSQL As String
Database.ExecuteNonQuery(sql) oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'"
Database.ExecuteNonQuery(oSQL)
sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Watcher','{2}','{3}')", USER_ID, 0, My.Application.Info.Version.ToString, Environment.MachineName) oSQL = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Watcher','{2}','{3}')", USER_ID, 0, My.Application.Info.Version.ToString, Environment.MachineName)
Database.ExecuteNonQuery(sql) Database.ExecuteNonQuery(oSQL)
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
If ESC_Hidden = True Then If ESC_Hidden = True Then
@ -207,8 +212,8 @@ Public Class ClassInit
Logger.Info(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False) Logger.Info(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen 'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'" oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
Database.ExecuteNonQuery(sql) Database.ExecuteNonQuery(oSQL)
Logger.Info(" - logged out the user", False) Logger.Info(" - logged out the user", False)
Return False Return False
End If End If
@ -241,11 +246,14 @@ Public Class ClassInit
Public Shared Sub Refresh_Profile_Links() Public Shared Sub Refresh_Profile_Links()
Try Try
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) Dim oSql = String.Format("SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE 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) DT_USER_PROFILES = Database.GetDatatable(oSql)
If DT_USER_PROFILES.Rows.Count = 0 Then If DT_USER_PROFILES.Rows.Count = 0 Then
MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation) MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)
Else Else
oSql = $"SELECT T.* FROM TBCW_PROFILE_PROCESS T, VWPM_PROFILE_USER T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND T1.USER_ID = {USER_ID}"
DTPROFILE_REL_PROCESS = Database.GetDatatable(oSql)
oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}" oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}"
DTPROFILE_REL_WINDOW = Database.GetDatatable(oSql) DTPROFILE_REL_WINDOW = Database.GetDatatable(oSql)

334
app/DD_Clipboard_Searcher/ClassProfileFilter.vb
View File

@ -1,9 +1,11 @@
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports DD_Clipboard_Watcher.ClassWindowAPI Imports DD_Clipboard_Watcher.ClassWindowAPI
Imports DigitalData.Modules.Language.Utils Imports DigitalData.Modules.Language.Utils
Imports System.Windows.Automation
Public Class ClassProfileFilter Public Class ClassProfileFilter
Private _ProfileTable As DataTable Private _ProfileTable As DataTable
Private _ProcessTable As DataTable
Private _WindowTable As DataTable Private _WindowTable As DataTable
Private _ControlTable As DataTable Private _ControlTable As DataTable
Private _Profiles As List(Of ProfileData) Private _Profiles As List(Of ProfileData)
@ -12,32 +14,47 @@ Public Class ClassProfileFilter
Class ProfileData Class ProfileData
Public Guid As Integer Public Guid As Integer
Public Regex As String Public Regex As String
Public ProcessName As String
Public Name As String Public Name As String
Public Comment As String Public Comment As String
Public ProfileType As Integer Public ProfileType As Integer
Public Processes As List(Of ProcessData)
Public Windows As List(Of WindowData) Public Windows As List(Of WindowData)
Public Controls As List(Of ControlData) Public Controls As List(Of ControlData)
Public CountDocs As Integer = 0 Public CountDocs As Integer = 0
Public CountData As Integer = 0 Public CountData As Integer = 0
End Class Public IsMatched As Boolean = False
Public MatchedProcessID As Integer = 0
Public MatchedWindowID As Integer = 0
Public MatchedControlID As Integer = 0
Public SelectCommand As String
End Class
Class ProcessData
Public Guid As Integer
Public PROFILE_ID As Integer
Public ProcessName As String
Public IsMatched As Boolean = False
End Class
Class WindowData Class WindowData
Public Guid As Integer
Public WindowProcessID As Integer
Public Title As String Public Title As String
Public Regex As String Public Regex As String
Public Sequence As Integer Public Sequence As Integer
Public ClipboardRegex As String Public IsMatched As Boolean = False
End Class End Class
Class ControlData Class ControlData
Public Guid As Integer
Public WINDOW_ID As Integer
Public Description As String Public Description As String
Public Regex As String Public Regex As String
Public AutomationId As String Public AutomationId As String
Public ControlName As String Public ControlName As String
Public IsMatched As Boolean = False
End Class End Class
' TODO: Fill this Class!!!! :D ' TODO: Fill this Class!!!! :D
@ -54,10 +71,11 @@ Public Class ClassProfileFilter
End Get End Get
End Property End Property
Public Sub New(ProfileDatatable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable) Public Sub New(ProfileDatatable As DataTable, ProcessTable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable)
Try Try
_DebugData = New DebugData() _DebugData = New DebugData()
_ProfileTable = ProfileDatatable _ProfileTable = ProfileDatatable
_ProcessTable = ProcessTable
_WindowTable = WindowDatatable _WindowTable = WindowDatatable
_ControlTable = ControlDatatable _ControlTable = ControlDatatable
_Profiles = TransformProfiles() _Profiles = TransformProfiles()
@ -76,26 +94,29 @@ Public Class ClassProfileFilter
GroupBy(Function(p) p.Guid). GroupBy(Function(p) p.Guid).
Select(Function(p) p.FirstOrDefault()) Select(Function(p) p.FirstOrDefault())
End Function End Function
Private Function NodeFind(ByVal n As TreeNode, searchTerm As String)
Public Function FilterProfilesByProcess(Profiles As List(Of ProfileData), CurrentProcessName As String) As List(Of ProfileData) Dim aNode As TreeNode
Dim oFilteredProfiles As New List(Of ProfileData) For Each aNode In n.Nodes
If aNode.Text = searchTerm Then
For Each oProfile In Profiles Return aNode
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 End If
Next Next
Return n
Return oFilteredProfiles
End Function End Function
Private Function GetLowestNode(ByVal n As TreeNode)
Dim aNode As TreeNode
If n.GetNodeCount(False) = 1 Then
For Each aNode In n.Nodes
Return GetLowestNode(aNode)
Next
Else
Return n
End If
End Function
Public Function FilterProfilesByClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData) Public Function FilterProfilesByClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
Dim oFilteredProfiles As New List(Of ProfileData) Dim oFilteredProfiles As New List(Of ProfileData)
For Each oProfile In Profiles For Each oProfile In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name) Logger.Debug("Current Profile: {0}", oProfile.Name)
@ -106,6 +127,17 @@ Public Class ClassProfileFilter
Logger.Debug("Global Clipboard Regex Matched: {0}", ClipboardContents) Logger.Debug("Global Clipboard Regex Matched: {0}", ClipboardContents)
'TODO: Add Debug Data 'TODO: Add Debug Data
oFilteredProfiles.Add(oProfile) oFilteredProfiles.Add(oProfile)
oProfile.IsMatched = True
Dim oNode As New TreeNode($"Profile: {oProfile.Name}")
oNode.ImageIndex = 0
Dim f = New Font("Tahoma", 9, FontStyle.Bold)
oNode.NodeFont = f
CurrMatchTreeView.Nodes.Add(oNode)
Dim oSubnode As New TreeNode($"MATCH on Global Clipboard Regex: {oProfile.Regex}")
oSubnode.ImageIndex = 1
oSubnode.Tag = oProfile.Name & "-REGEX"
oNode.Nodes.Add(oSubnode)
End If End If
Catch ex As Exception Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents) Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents)
@ -115,37 +147,106 @@ Public Class ClassProfileFilter
Return oFilteredProfiles Return oFilteredProfiles
End Function End Function
Public Function FilterProfilesByProcess(Profiles As List(Of ProfileData), CurrentProcessName As String) As List(Of ProfileData)
Dim oFilteredProfiles As New List(Of ProfileData)
Try
For Each oProfile In Profiles
If oProfile.IsMatched = False Then Continue For
Dim oProcesses As New List(Of ProcessData)
For Each oProcessDef As ProcessData In oProfile.Processes
Logger.Debug($"Checking Profile: {oProfile.Name} ...")
If oProcessDef.ProcessName.ToLower = CurrentProcessName.ToLower Then
Logger.Debug($"Processname Matched: {oProcessDef.ProcessName}")
'oProfile.MATCH_PROCESSNAME = $"Processname Matched: {oProfile.ProcessName}"
'TODO: Add Debug Data
oFilteredProfiles.Add(oProfile)
oProfile.MatchedProcessID = oProcessDef.Guid
oProcessDef.IsMatched = True
oProcesses.Add(oProcessDef)
oProfile.IsMatched = True
oProfile.MatchedProcessID = oProcessDef.Guid
Dim oParentNode As TreeNode
Dim oExit = False
For Each oTreeNode As TreeNode In CurrMatchTreeView.Nodes
For Each oNodes As TreeNode In oTreeNode.Nodes
If oExit = True Then Exit For
If oNodes.Tag = oProfile.Name & "-REGEX" Then
oParentNode = oNodes
oExit = True
Exit For
End If
Next
Next
If Not IsNothing(oParentNode) Then
Dim oNode As New TreeNode($"MATCH on Process: {oProcessDef.ProcessName}")
oNode.ImageIndex = 4
oNode.Tag = oProfile.Name & "-PROCESS"
oParentNode.Nodes.Add(oNode)
End If
End If
Next
If oFilteredProfiles.Count > 0 Then
oProfile.Processes = oProcesses
End If
Next
Return oFilteredProfiles
Catch ex As Exception
Logger.Warn("Unexpected error in FilterProfilesByProcess...")
Logger.Error(ex)
End Try
End Function
Public Function FilterWindowsByWindowTitleRegex(Profiles As List(Of ProfileData), WindowTitle As String) As List(Of ProfileData) Public Function FilterWindowsByWindowTitleRegex(Profiles As List(Of ProfileData), WindowTitle As String) As List(Of ProfileData)
Dim oProfiles As New List(Of ProfileData) Dim oProfiles As New List(Of ProfileData)
For Each oProfile As ProfileData In Profiles For Each oProfile As ProfileData In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name) Logger.Debug("Checking Profile: {0} for WindowDefinition...", oProfile.Name)
If oProfile.IsMatched = False Then Continue For
Dim oWindows As New List(Of WindowData) Dim oWindows As New List(Of WindowData)
For Each w As WindowData In oProfile.Windows For Each oWindowDef As WindowData In oProfile.Windows
If oWindowDef.WindowProcessID <> oProfile.MatchedProcessID Then Continue For
Logger.Debug($"Checking Windowdefinition: {oWindowDef.Guid} ...")
Try Try
If w.Regex = String.Empty Then If oWindowDef.Regex = String.Empty Then
oWindows.Add(w) oProfile.MatchedWindowID = oWindowDef.Guid
oWindowDef.IsMatched = True
oWindows.Add(oWindowDef)
Exit For
End If End If
Dim oRegex As New Regex(w.Regex) Dim oRegex As New Regex(oWindowDef.Regex)
Dim oMatch = oRegex.Match(WindowTitle) Dim oMatch = oRegex.Match(WindowTitle)
If oMatch.Success Then If oMatch.Success Then
Logger.Debug("Window Title Regex Matched: {0}", WindowTitle) Logger.Debug("MATCH on WindowTitle: {0}", WindowTitle)
'TODO: Add Debug Data 'TODO: Add Debug Data
oWindows.Add(w) oProfile.MatchedWindowID = oWindowDef.Guid
oWindowDef.IsMatched = True
oWindows.Add(oWindowDef)
Dim olowestNode As TreeNode = Node_Get_Lowest_Node(oProfile.Name & "-REGEX")
If Not IsNothing(olowestNode) Then
Dim oNode As New TreeNode($"MATCH on WindowTitle: [{WindowTitle}]")
oNode.ImageIndex = 3
oNode.Tag = oProfile.Name & "-WINDOW"
olowestNode.Nodes.Add(oNode)
End If
Exit For
End If End If
Catch ex As Exception Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.Regex, WindowTitle) Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oWindowDef.Regex, WindowTitle)
Logger.Error(ex) Logger.Error(ex)
End Try End Try
Next Next
If oWindows.Count > 0 Then If oWindows.Count > 0 Then
oProfile.Windows = oWindows oProfile.Windows = oWindows
oProfile.IsMatched = True
oProfiles.Add(oProfile) oProfiles.Add(oProfile)
End If End If
Next Next
@ -162,22 +263,39 @@ Public Class ClassProfileFilter
Dim oWindows As New List(Of WindowData) Dim oWindows As New List(Of WindowData)
For Each w As WindowData In oProfile.Windows For Each w As WindowData In oProfile.Windows
Try Try
If w.ClipboardRegex = String.Empty Then If w.Regex = String.Empty Then
oWindows.Add(w) oWindows.Add(w)
End If End If
Dim oRegex As New Regex(w.ClipboardRegex) Dim oRegex As New Regex(w.Regex)
Dim oMatch = oRegex.Match(ClipboardContents) Dim oMatch = oRegex.Match(ClipboardContents)
If oMatch.Success Then If oMatch.Success Then
Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents) Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents)
'TODO: Add Debug Data Dim oResult As TreeNode
For Each oTreeNode In CurrMatchTreeView.Nodes
If Not IsNothing(oResult) Then Exit For
If oTreeNode.Tag = oProfile.Name & "-REGEX" Then
oResult = oTreeNode
End If
Next
If Not IsNothing(oResult) Then
Dim oNode As New TreeNode($"MATCH on WINDOW Clipboard Regex: [{w.Regex}]")
oNode.ImageIndex = 2
oNode.Tag = oProfile.Name & "-WINDOW_REGEX"
Dim olowestNode As TreeNode = GetLowestNode(oResult)
olowestNode.Nodes.Add(oNode)
End If
oWindows.Add(w) oWindows.Add(w)
End If End If
Catch ex As Exception Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.ClipboardRegex, ClipboardContents) Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.Regex, ClipboardContents)
Logger.Error(ex) Logger.Error(ex)
End Try End Try
Next Next
@ -191,7 +309,7 @@ Public Class ClassProfileFilter
Return oProfiles Return oProfiles
End Function End Function
Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData) Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData), ClipboardContents As String, ControlFocusresult As String) As List(Of ProfileData)
Dim oWindow As WindowInfo Dim oWindow As WindowInfo
Dim oFocusedControl As WindowInfo Dim oFocusedControl As WindowInfo
Dim oFocusedControlName As String = String.Empty Dim oFocusedControlName As String = String.Empty
@ -214,74 +332,139 @@ Public Class ClassProfileFilter
Dim oFilteredProfiles As New List(Of ProfileData) Dim oFilteredProfiles As New List(Of ProfileData)
For Each oProfile In Profiles For Each oProfileMatchedSofar In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name) If oProfileMatchedSofar.IsMatched = False Then Continue For
If oProfile.Controls.Count = 0 Then Logger.Debug("Checking ControlDefiniotion on profile: {0}", oProfileMatchedSofar.Name)
oFilteredProfiles.Add(oProfile) If oProfileMatchedSofar.Controls.Count = 0 Then
oFilteredProfiles.Add(oProfileMatchedSofar)
Dim oNode As New TreeNode($"No Controls configured!")
oNode.ImageIndex = 2
oNode.ForeColor = Color.Blue
oNode.Tag = oProfileMatchedSofar.Name & "-NOCONTROLCONFIG"
Dim f = New Font("Tahoma", 10, FontStyle.Bold)
oNode.NodeFont = f
CurrMatchTreeView.Nodes.Add(oNode)
Continue For
End If End If
Dim oControls As New List(Of ControlData) Dim oControls As New List(Of ControlData)
For Each oControl In oProfile.Controls For Each oControlDefinition In oProfileMatchedSofar.Controls
Try Try
If oControl.Regex = String.Empty Then 'If oControlDefinition.WINDOW_ID <> oProfile.MatchedWindowID Then Continue For
oControls.Add(oControl) Logger.Debug($"Working on ControlDefinition: {oControlDefinition.Guid}-{oControlDefinition.ControlName}...")
If oControlDefinition.Regex = String.Empty Then
oProfileMatchedSofar.MatchedControlID = oControlDefinition.Guid
oControlDefinition.IsMatched = True
oControls.Add(oControlDefinition)
Exit For
End If End If
'Dim oResult As TreeNode
'For Each oTreeNode In CurrMatchTreeView.Nodes
' oResult = NodeFind(oTreeNode, $"Global Clipboard Regex Matched [{oProfile.Regex}]")
'Next
'Dim oNode As TreeNode
Dim oNodeCaption As String
'Dim oAddNode As Boolean = False
Dim oRegex As New Regex(oControlDefinition.Regex)
Dim oRegex As New Regex(oControl.Regex) Dim oFocusedControlResult As String = ""
If oControl.AutomationId <> String.Empty And oControl.ControlName <> String.Empty Then If oControlDefinition.AutomationId <> String.Empty And oControlDefinition.ControlName = String.Empty Then
If oControl.AutomationId = Automation.AutomationId And oControl.ControlName = oFocusedControlName Then Logger.Debug($"AutomationID should be used...")
If oRegex.Match(ClipboardContents).Success Then If Not IsNothing(ControlFocusresult) Then
Logger.Debug("Both AutomationId and ControlName matched!") If ControlFocusresult <> String.Empty Then
oControls.Add(oControl) Logger.Debug($"AutomationID will be used...")
oFocusedControlResult = ControlFocusresult
End If End If
End If End If
ElseIf oControl.AutomationId <> String.Empty Then ElseIf oControlDefinition.AutomationId = String.Empty And oControlDefinition.ControlName <> String.Empty Then
If oControl.AutomationId = Automation.AutomationId Then Logger.Debug($"ControlName should be used...")
If oRegex.Match(ClipboardContents).Success Then If Not IsNothing(oFocusedControlName) Then
Logger.Debug("Both AutomationId matched!") If oFocusedControlName <> String.Empty Then
oControls.Add(oControl) Logger.Debug($"ControlName will be used...")
oFocusedControlResult = oFocusedControlName
End If End If
End If End If
ElseIf oControl.ControlName <> String.Empty Then
If oControl.ControlName = oFocusedControlName Then End If
If oRegex.Match(ClipboardContents).Success Then If oFocusedControlResult <> String.Empty Then
Logger.Debug("Both ControlName matched!") Dim oControlRegex As New Regex(oControlDefinition.Regex)
oControls.Add(oControl) Dim oControlMatch = oRegex.Match(oFocusedControlResult)
If oControlMatch.Success Then
Logger.Debug($"MATCH on Focused Control [{oFocusedControlResult}] with Regex [{oControlDefinition.Regex}]")
oProfileMatchedSofar.IsMatched = True
oProfileMatchedSofar.MatchedControlID = oControlDefinition.Guid
oControlDefinition.IsMatched = True
oControls.Add(oControlDefinition)
Dim olowestNode As TreeNode = Node_Get_Lowest_Node(oProfileMatchedSofar.Name & "-REGEX")
If Not IsNothing(olowestNode) Then
Dim oNode As New TreeNode($"MATCH on Focused Control [{oFocusedControlResult}] with Regex [{oControlDefinition.Regex}]")
oNode.ImageIndex = 2
oNode.Tag = oProfileMatchedSofar.Name & "-WINDOW"
olowestNode.Nodes.Add(oNode)
End If End If
Exit For
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oControl.Regex, oFocusedControlName) Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oControlDefinition.Regex, oFocusedControlName)
Logger.Error(ex) Logger.Error(ex)
End Try End Try
Next Next
If oControls.Count > 0 Then If oControls.Count > 0 Then
oProfile.Controls = oControls oProfileMatchedSofar.Controls = oControls
oFilteredProfiles.Add(oProfile) oFilteredProfiles.Add(oProfileMatchedSofar)
End If End If
Next Next
Return oFilteredProfiles Return oFilteredProfiles
End Function End Function
Private Function Node_Get_Lowest_Node(NodeTag As String) As TreeNode
Dim oExit = False
Dim oParentNode As TreeNode
For Each oTreeNode As TreeNode In CurrMatchTreeView.Nodes
For Each oNodes As TreeNode In oTreeNode.Nodes
If oExit = True Then Exit For
If oNodes.Tag = NodeTag Then
oParentNode = oNodes
oExit = True
Exit For
End If
Next
Next
Dim olowestNode As TreeNode = GetLowestNode(oParentNode)
Return olowestNode
End Function
Public Function ClearNotMatchedProfiles(Profiles As List(Of ProfileData)) As List(Of ProfileData)
Dim oFilteredProfiles As New List(Of ProfileData)
For Each oProfile In Profiles
If oProfile.IsMatched Then
oFilteredProfiles.Add(oProfile)
End If
Next
Return oFilteredProfiles
End Function
Private Function TransformProfiles() As List(Of ProfileData) Private Function TransformProfiles() As List(Of ProfileData)
Dim oList As New List(Of ProfileData) Dim oList As New List(Of ProfileData)
For Each oRow As DataRow In _ProfileTable.Rows For Each oRow As DataRow In _ProfileTable.Rows
Dim oProfileId = oRow.Item("GUID") Dim oProfileId = oRow.Item("GUID")
Dim oProcessList As List(Of ProcessData) = TransformProcesses(oProfileId, _ProcessTable)
Dim oWindowList As List(Of WindowData) = TransformWindows(oProfileId, _WindowTable) Dim oWindowList As List(Of WindowData) = TransformWindows(oProfileId, _WindowTable)
Dim oControlList As List(Of ControlData) = TransformControls(oProfileId, _ControlTable) Dim oControlList As List(Of ControlData) = TransformControls(oProfileId, _ControlTable)
oList.Add(New ProfileData() With { oList.Add(New ProfileData() With {
.Guid = oRow.Item("GUID"), .Guid = oRow.Item("GUID"),
.ProcessName = NotNull(oRow.Item("PROC_NAME"), String.Empty),
.Regex = NotNull(oRow.Item("REGEX_EXPRESSION"), String.Empty), .Regex = NotNull(oRow.Item("REGEX_EXPRESSION"), String.Empty),
.Name = NotNull(oRow.Item("NAME"), String.Empty), .Name = NotNull(oRow.Item("NAME"), String.Empty),
.Comment = NotNull(oRow.Item("COMMENT"), String.Empty), .Comment = NotNull(oRow.Item("COMMENT"), String.Empty),
.ProfileType = NotNull(oRow.Item("PROFILE_TYPE"), String.Empty), .ProfileType = NotNull(oRow.Item("PROFILE_TYPE"), String.Empty),
.Processes = oProcessList,
.Windows = oWindowList, .Windows = oWindowList,
.Controls = oControlList .Controls = oControlList
}) })
@ -296,28 +479,43 @@ Public Class ClassProfileFilter
For Each oRow As DataRow In ControlDatatable.Rows For Each oRow As DataRow In ControlDatatable.Rows
If oRow.Item("PROFILE_ID") = ProfileId Then If oRow.Item("PROFILE_ID") = ProfileId Then
oControlList.Add(New ControlData() With { oControlList.Add(New ControlData() With {
.Guid = oRow.Item("GUID"),
.Description = NotNull(oRow.Item("DESCRIPTION"), String.Empty), .Description = NotNull(oRow.Item("DESCRIPTION"), String.Empty),
.Regex = NotNull(oRow.Item("REGEX"), String.Empty), .Regex = NotNull(oRow.Item("REGEX"), String.Empty),
.AutomationId = NotNull(oRow.Item("AUTOMATION_ID"), String.Empty) .AutomationId = NotNull(oRow.Item("AUTOMATION_ID"), String.Empty),
.WINDOW_ID = oRow.Item("WINDOW_ID")
}) })
End If End If
Next Next
Return oControlList Return oControlList
End Function End Function
Private Function TransformProcesses(ProfileId As Integer, ProcessDatatable As DataTable) As List(Of ProcessData)
Dim oProcessList As New List(Of ProcessData)
For Each oRow As DataRow In ProcessDatatable.Rows
oProcessList.Add(New ProcessData() With {
.Guid = oRow.Item("GUID"),
.PROFILE_ID = oRow.Item("PROFILE_ID"),
.ProcessName = NotNull(oRow.Item("PROC_NAME"), String.Empty)
})
Next
Return oProcessList
End Function
Private Function TransformWindows(ProfileId As Integer, WindowDatatable As DataTable) As List(Of WindowData) Private Function TransformWindows(ProfileId As Integer, WindowDatatable As DataTable) As List(Of WindowData)
Dim oWindowList As New List(Of WindowData) Dim oWindowList As New List(Of WindowData)
For Each oRow As DataRow In WindowDatatable.Rows For Each oRow As DataRow In WindowDatatable.Rows
If oRow.Item("PROFILE_ID") = ProfileId Then oWindowList.Add(New WindowData() With {
oWindowList.Add(New WindowData() With { .Guid = oRow.Item("GUID"),
.WindowProcessID = oRow.Item("PROCESS_ID"),
.Title = NotNull(oRow.Item("DESCRIPTION"), String.Empty), .Title = NotNull(oRow.Item("DESCRIPTION"), String.Empty),
.Regex = NotNull(oRow.Item("REGEX"), String.Empty), .Regex = NotNull(oRow.Item("REGEX"), String.Empty),
.Sequence = NotNull(oRow.Item("SEQUENCE"), 0), .Sequence = NotNull(oRow.Item("SEQUENCE"), 0)
.ClipboardRegex = NotNull(oRow.Item("REGEX_CLIPBOARD"), String.Empty)
}) })
End If
Next Next
Return oWindowList Return oWindowList

14
app/DD_Clipboard_Searcher/ClassWindowAPI.vb
View File

@ -231,4 +231,18 @@ Public Class ClassWindowAPI
End Try End Try
End Function End Function
Public Shared Function FocusedControlinActiveWindow(WindowHandle As IntPtr) As IntPtr
Try
Dim activewindowhandle As IntPtr = GetForegroundWindow
Dim activewindowThread As IntPtr = GetWindowThreadProcessId(activewindowhandle, IntPtr.Zero)
Dim thiswindowthread As IntPtr = GetWindowThreadProcessId(WindowHandle, IntPtr.Zero)
AttachThreadInput(activewindowThread, thiswindowthread, True)
Dim focusedControlHandle As IntPtr = GetFocus()
AttachThreadInput(activewindowThread, thiswindowthread, False)
Return focusedControlHandle
Catch ex As Exception
Return Nothing
End Try
End Function
End Class End Class

22
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@ -68,21 +68,20 @@
<Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Controls.RegexEditor"> <Reference Include="DigitalData.Controls.RegexEditor">
<HintPath>..\..\..\DDMonorepo\Controls.RegexEditor\bin\Debug\DigitalData.Controls.RegexEditor.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\Controls\DigitalData.Controls.RegexEditor.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Database"> <Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Database.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Filesystem, Version=0.0.0.1, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Filesystem, Version=0.0.0.1, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Language, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Language">
<SpecificVersion>False</SpecificVersion> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Language.dll</HintPath>
<HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Logging"> <Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
@ -143,7 +142,6 @@
<Compile Include="ClassLicense.vb" /> <Compile Include="ClassLicense.vb" />
<Compile Include="ClassWindowsAPINativeMethods.vb" /> <Compile Include="ClassWindowsAPINativeMethods.vb" />
<Compile Include="clsPatterns.vb" /> <Compile Include="clsPatterns.vb" />
<Compile Include="clsSearch.vb" />
<Compile Include="ClassWindowAPI.vb" /> <Compile Include="ClassWindowAPI.vb" />
<Compile Include="clsWMDocGrid.vb" /> <Compile Include="clsWMDocGrid.vb" />
<Compile Include="ctrlApplicationAssignment.Designer.vb"> <Compile Include="ctrlApplicationAssignment.Designer.vb">
@ -261,6 +259,12 @@
<Compile Include="frmSplash.vb"> <Compile Include="frmSplash.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmTreeView.Designer.vb">
<DependentUpon>frmTreeView.vb</DependentUpon>
</Compile>
<Compile Include="frmTreeView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="IResultForm.vb" /> <Compile Include="IResultForm.vb" />
<Compile Include="modCurrent.vb" /> <Compile Include="modCurrent.vb" />
<Compile Include="My Project\AssemblyInfo.vb" /> <Compile Include="My Project\AssemblyInfo.vb" />
@ -351,6 +355,9 @@
<EmbeddedResource Include="frmSplash.resx"> <EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon> <DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTreeView.resx">
<DependentUpon>frmTreeView.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" /> <EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
@ -445,6 +452,9 @@
<None Include="Resources\ReduceSize.png" /> <None Include="Resources\ReduceSize.png" />
<None Include="Resources\KeyOutput_8167.png" /> <None Include="Resources\KeyOutput_8167.png" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<WCFMetadata Include="Connected Services\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

619
app/DD_Clipboard_Searcher/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

192
app/DD_Clipboard_Searcher/MyDataset.xsd
View File

@ -12,61 +12,47 @@
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBCW_PROFILES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBCW_PROFILES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE))</CommandText> <CommandText>DELETE FROM [TBCW_PROFILES] WHERE [GUID] = @Original_GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@Original_PROFILE_TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="PROFILE_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO [TBCW_PROFILES] ([NAME], [COMMENT], [WD_SEARCH], [REGEX_EXPRESSION], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VALUES (@NAME, @COMMENT, @WD_SEARCH, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE); <CommandText>INSERT INTO TBCW_PROFILES
SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())</CommandText> (NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE)
VALUES (@NAME,@COMMENT,@REGEX_EXPRESSION,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@ACTIVE,@PROFILE_TYPE);
SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="PROFILE_TYPE" ColumnName="PROFILE_TYPE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@PROFILE_TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="PROFILE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@PROFILE_TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="PROFILE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES</CommandText> <CommandText>SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE
FROM TBCW_PROFILES</CommandText>
<Parameters /> <Parameters />
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBCW_PROFILES <CommandText>UPDATE TBCW_PROFILES
SET NAME = @NAME, COMMENT = @COMMENT, WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTIVE, SET NAME = @NAME, COMMENT = @COMMENT, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTIVE, PROFILE_TYPE = @PROFILE_TYPE
PROFILE_TYPE = @PROFILE_TYPE
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID)</CommandText> SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -82,7 +68,6 @@ SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN,
<Mapping SourceColumn="GUID" DataSetColumn="GUID" /> <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" /> <Mapping SourceColumn="NAME" DataSetColumn="NAME" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" /> <Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="WD_SEARCH" DataSetColumn="WD_SEARCH" />
<Mapping SourceColumn="REGEX_EXPRESSION" DataSetColumn="REGEX_EXPRESSION" /> <Mapping SourceColumn="REGEX_EXPRESSION" DataSetColumn="REGEX_EXPRESSION" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" /> <Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
@ -529,60 +514,51 @@ WHERE (GUID = @GUID)</CommandText>
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBCW_PROF_REL_WINDOW <CommandText>DELETE FROM TBCW_PROF_REL_WINDOW
WHERE (GUID = @Original_GUID)</CommandText> WHERE (GUID = @Original_GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO [TBCW_PROF_REL_WINDOW] ([PROFILE_ID], [PROCESS_NAME], [DESCRIPTION], [REGEX], [SEQUENCE], [REGEX_CLIPBOARD], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PROFILE_ID, @PROCESS_NAME, @DESCRIPTION, @REGEX, @SEQUENCE, @REGEX_CLIPBOARD, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); <CommandText>INSERT INTO TBCW_PROF_REL_WINDOW
(DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, PROCESS_ID)
VALUES (@DESCRIPTION,@REGEX,@SEQUENCE,@ADDED_WHO,@PROCESS_ID);
SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="0" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="PROCESS_ID" ColumnName="PROCESS_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROCESS_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROCESS_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_CLIPBOARD" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="REGEX_CLIPBOARD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT TBCW_PROF_REL_WINDOW.* <CommandText>SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, PROCESS_ID
FROM TBCW_PROF_REL_WINDOW WHERE PROCESS_NAME = @PROCESS_NAME AND PROFILE_ID = @PROFILE_ID</CommandText> FROM TBCW_PROF_REL_WINDOW
WHERE (PROCESS_ID = @PROCESS_ID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROCESS_NAME" ColumnName="PROCESS_NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="PROCESS_ID" ColumnName="PROCESS_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROCESS_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROCESS_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFILE_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBCW_PROF_REL_WINDOW <CommandText>UPDATE TBCW_PROF_REL_WINDOW
SET PROFILE_ID = @PROFILE_ID, PROCESS_NAME = @PROCESS_NAME, DESCRIPTION = @DESCRIPTION, REGEX = @REGEX, SEQUENCE = @SEQUENCE, REGEX_CLIPBOARD = @REGEX_CLIPBOARD, SET DESCRIPTION = @DESCRIPTION, REGEX = @REGEX, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, PROCESS_ID = @PROCESS_ID
ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID)</CommandText> SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFILE_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PROCESS_NAME" ColumnName="PROCESS_NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX_CLIPBOARD" ColumnName="REGEX_CLIPBOARD" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_CLIPBOARD" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX_CLIPBOARD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="PROCESS_ID" ColumnName="PROCESS_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROCESS_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROCESS_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_WINDOW" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
@ -592,16 +568,14 @@ SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPB
</MainSource> </MainSource>
<Mappings> <Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" /> <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="PROFILE_ID" DataSetColumn="PROFILE_ID" />
<Mapping SourceColumn="PROCESS_NAME" DataSetColumn="PROCESS_NAME" />
<Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" /> <Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" />
<Mapping SourceColumn="REGEX" DataSetColumn="REGEX" /> <Mapping SourceColumn="REGEX" DataSetColumn="REGEX" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" /> <Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
<Mapping SourceColumn="REGEX_CLIPBOARD" DataSetColumn="REGEX_CLIPBOARD" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" /> <Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="PROCESS_ID" DataSetColumn="PROCESS_ID" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -720,55 +694,48 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO [TBCW_PROF_REL_CONTROL] ([PROFILE_ID], [WINDOW_ID], [PROCESS_NAME], [DESCRIPTION], [AUTOMATION_ID], [FRAMEWORK_ID], [REGEX], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PROFILE_ID, @WINDOW_ID, @PROCESS_NAME, @DESCRIPTION, @AUTOMATION_ID, @FRAMEWORK_ID, @REGEX, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); <CommandText>INSERT INTO TBCW_PROF_REL_CONTROL
(WINDOW_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO)
VALUES (@WINDOW_ID,@DESCRIPTION,@AUTOMATION_ID,@FRAMEWORK_ID,@REGEX,@SEQUENCE,@ADDED_WHO);
SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="WINDOW_ID" ColumnName="WINDOW_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="AUTOMATION_ID" ColumnName="AUTOMATION_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@AUTOMATION_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="AUTOMATION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="FRAMEWORK_ID" ColumnName="FRAMEWORK_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@FRAMEWORK_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="FRAMEWORK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@AUTOMATION_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="AUTOMATION_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@FRAMEWORK_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FRAMEWORK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="0" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN <CommandText>SELECT GUID, WINDOW_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
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)</CommandText> WHERE (WINDOW_ID = @WINDOW_ID)
ORDER BY SEQUENCE</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROCESS_NAME" ColumnName="PROCESS_NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDOW_ID" ColumnName="WINDOW_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="WINDOW_ID" ColumnName="WINDOW_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFILE_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBCW_PROF_REL_CONTROL <CommandText>UPDATE TBCW_PROF_REL_CONTROL
SET PROFILE_ID = @PROFILE_ID, WINDOW_ID = @WINDOW_ID, PROCESS_NAME = @PROCESS_NAME, DESCRIPTION = @DESCRIPTION, AUTOMATION_ID = @AUTOMATION_ID, FRAMEWORK_ID = @FRAMEWORK_ID, SET WINDOW_ID = @WINDOW_ID, DESCRIPTION = @DESCRIPTION, AUTOMATION_ID = @AUTOMATION_ID, FRAMEWORK_ID = @FRAMEWORK_ID, REGEX = @REGEX, SEQUENCE = @SEQUENCE
REGEX = @REGEX, SEQUENCE = @SEQUENCE
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID)</CommandText> SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFILE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="WINDOW_ID" ColumnName="WINDOW_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDOW_ID" ColumnName="WINDOW_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PROCESS_NAME" ColumnName="PROCESS_NAME" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="AUTOMATION_ID" ColumnName="AUTOMATION_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@AUTOMATION_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="AUTOMATION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="FRAMEWORK_ID" ColumnName="FRAMEWORK_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@FRAMEWORK_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="FRAMEWORK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AUTOMATION_ID" ColumnName="AUTOMATION_ID" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@AUTOMATION_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="AUTOMATION_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FRAMEWORK_ID" ColumnName="FRAMEWORK_ID" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@FRAMEWORK_ID" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="FRAMEWORK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@ -776,9 +743,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
</MainSource> </MainSource>
<Mappings> <Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" /> <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="PROFILE_ID" DataSetColumn="PROFILE_ID" />
<Mapping SourceColumn="WINDOW_ID" DataSetColumn="WINDOW_ID" /> <Mapping SourceColumn="WINDOW_ID" DataSetColumn="WINDOW_ID" />
<Mapping SourceColumn="PROCESS_NAME" DataSetColumn="PROCESS_NAME" />
<Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" /> <Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" />
<Mapping SourceColumn="REGEX" DataSetColumn="REGEX" /> <Mapping SourceColumn="REGEX" DataSetColumn="REGEX" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" /> <Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
@ -817,13 +782,6 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="WD_SEARCH" msprop:Generator_ColumnVarNameInTable="columnWD_SEARCH" msprop:Generator_ColumnPropNameInRow="WD_SEARCH" msprop:Generator_ColumnPropNameInTable="WD_SEARCHColumn" msprop:Generator_UserColumnName="WD_SEARCH">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="REGEX_EXPRESSION" msprop:Generator_ColumnVarNameInTable="columnREGEX_EXPRESSION" msprop:Generator_ColumnPropNameInRow="REGEX_EXPRESSION" msprop:Generator_ColumnPropNameInTable="REGEX_EXPRESSIONColumn" msprop:Generator_UserColumnName="REGEX_EXPRESSION" default=""> <xs:element name="REGEX_EXPRESSION" msprop:Generator_ColumnVarNameInTable="columnREGEX_EXPRESSION" msprop:Generator_ColumnPropNameInRow="REGEX_EXPRESSION" msprop:Generator_ColumnPropNameInTable="REGEX_EXPRESSIONColumn" msprop:Generator_UserColumnName="REGEX_EXPRESSION" default="">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -1079,14 +1037,6 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="PROFILE_ID" msprop:Generator_ColumnVarNameInTable="columnPROFILE_ID" msprop:Generator_ColumnPropNameInRow="PROFILE_ID" msprop:Generator_ColumnPropNameInTable="PROFILE_IDColumn" msprop:Generator_UserColumnName="PROFILE_ID" type="xs:int" />
<xs:element name="PROCESS_NAME" msprop:Generator_ColumnVarNameInTable="columnPROCESS_NAME" msprop:Generator_ColumnPropNameInRow="PROCESS_NAME" msprop:Generator_ColumnPropNameInTable="PROCESS_NAMEColumn" msprop:Generator_UserColumnName="PROCESS_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION"> <xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -1102,13 +1052,6 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" /> <xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" />
<xs:element name="REGEX_CLIPBOARD" msprop:Generator_ColumnVarNameInTable="columnREGEX_CLIPBOARD" msprop:Generator_ColumnPropNameInRow="REGEX_CLIPBOARD" msprop:Generator_ColumnPropNameInTable="REGEX_CLIPBOARDColumn" msprop:Generator_UserColumnName="REGEX_CLIPBOARD">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO"> <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -1125,6 +1068,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" /> <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="PROCESS_ID" msprop:Generator_ColumnVarNameInTable="columnPROCESS_ID" msprop:Generator_ColumnPropNameInRow="PROCESS_ID" msprop:Generator_ColumnPropNameInTable="PROCESS_IDColumn" msprop:Generator_UserColumnName="PROCESS_ID" type="xs:int" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -1205,15 +1149,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="PROFILE_ID" msprop:Generator_ColumnVarNameInTable="columnPROFILE_ID" msprop:Generator_ColumnPropNameInRow="PROFILE_ID" msprop:Generator_ColumnPropNameInTable="PROFILE_IDColumn" msprop:Generator_UserColumnName="PROFILE_ID" type="xs:int" />
<xs:element name="WINDOW_ID" msprop:Generator_ColumnVarNameInTable="columnWINDOW_ID" msprop:Generator_ColumnPropNameInRow="WINDOW_ID" msprop:Generator_ColumnPropNameInTable="WINDOW_IDColumn" msprop:Generator_UserColumnName="WINDOW_ID" type="xs:int" /> <xs:element name="WINDOW_ID" msprop:Generator_ColumnVarNameInTable="columnWINDOW_ID" msprop:Generator_ColumnPropNameInRow="WINDOW_ID" msprop:Generator_ColumnPropNameInTable="WINDOW_IDColumn" msprop:Generator_UserColumnName="WINDOW_ID" type="xs:int" />
<xs:element name="PROCESS_NAME" msprop:Generator_ColumnVarNameInTable="columnPROCESS_NAME" msprop:Generator_ColumnPropNameInRow="PROCESS_NAME" msprop:Generator_ColumnPropNameInTable="PROCESS_NAMEColumn" msprop:Generator_UserColumnName="PROCESS_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION"> <xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -1313,8 +1249,6 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR
<xs:appinfo> <xs:appinfo>
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" /> <msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" /> <msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_PROF_ID" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_PROF_ID" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_PROF_ID" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
</xs:appinfo> </xs:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

66
app/DD_Clipboard_Searcher/MyDataset.xss
View File

@ -4,28 +4,28 @@
Changes to this file may cause incorrect behavior and will be lost if Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-54" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="7" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="18" X="13" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" /> <Shape ID="DesignTable:TBCW_PROFILES" ZOrder="16" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="4" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" /> <Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="5" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="17" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" /> <Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="15" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="15" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" /> <Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="13" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="14" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="12" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="12" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="10" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="1" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" /> <Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="3" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="9" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="7" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="7" X="10" Y="270" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" /> <Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="2" X="10" Y="259" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="3" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="4" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="328" Y="334" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="1" X="328" Y="330" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_User" ZOrder="16" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" /> <Shape ID="DesignTable:TBWH_User" ZOrder="14" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="10" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" /> <Shape ID="DesignTable:TBWH_GROUP" ZOrder="8" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="8" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" /> <Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="6" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
</Shapes> </Shapes>
<Connectors> <Connectors>
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="13" LineWidth="11"> <Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="11" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>253</X> <X>254</X>
<Y>-23</Y> <Y>-23</Y>
</Point> </Point>
<Point> <Point>
@ -34,10 +34,10 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="11" LineWidth="11"> <Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="9" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>253</X> <X>254</X>
<Y>61</Y> <Y>61</Y>
</Point> </Point>
<Point> <Point>
@ -46,33 +46,5 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_REL_CONTROL_PROF_ID" ZOrder="6" LineWidth="11">
<RoutePoints>
<Point>
<X>133</X>
<Y>242</Y>
</Point>
<Point>
<X>133</X>
<Y>270</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_REL_CONTROL_PROF_IF" ZOrder="5" LineWidth="11">
<RoutePoints>
<Point>
<X>236</X>
<Y>242</Y>
</Point>
<Point>
<X>236</X>
<Y>351</Y>
</Point>
<Point>
<X>328</X>
<Y>351</Y>
</Point>
</RoutePoints>
</Connector>
</Connectors> </Connectors>
</DiagramLayout> </DiagramLayout>

154
app/DD_Clipboard_Searcher/clsSearch.vb
View File

@ -1,154 +0,0 @@
Imports DD_LIB_Standards
Imports System.IO
Imports System.Text
Imports System.Runtime.InteropServices
Public Class clsSearch
'Fenster position ermitteln/auslesen
'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32
Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
<DllImport("user32.dll")>
Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private Structure RECT
Dim Left As Integer
Dim Top As Integer
Dim Right As Integer
Dim Bottom As Integer
End Structure
Private Shared fileContents As String
Public Shared Function RUN_WD_SEARCH(BaseSearch As String)
Try
Dim extension = Path.GetExtension(BaseSearch)
Dim windream_temp_search As String = ""
If IO.File.Exists(BaseSearch) = False Then
Logger.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True)
MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical)
Return Nothing
End If
fileContents = ""
'Eine tempfile generieren
Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
'Nur den Filenamen ohne Erweiterung
Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
'tempfile löschen
If My.Computer.FileSystem.FileExists(tempFilename1) Then
My.Computer.FileSystem.DeleteFile(tempFilename1)
End If
Dim temppath = Path.GetTempPath
Dim EncodingFormat As Encoding
If WD_UNICODE = True Then
EncodingFormat = Encoding.GetEncoding(1252) '1252
Logger.Debug(" ...Unicode is used (Encoding.GetEncoding(1252))", False)
Else
Logger.Debug(" ...UTF8 (Encoding.GetEncoding(65001))", False)
EncodingFormat = Encoding.GetEncoding(65001)
End If
Logger.Debug(" ...ReadAlltext: " & BaseSearch, False)
fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
Logger.Debug(" ...fileContents geladen", False)
fileContents = fileContents.Replace("Í", "Ö")
fileContents = fileContents.Replace("@Clipboard", CURRENT_CLIPBOARD_CONTENTS)
fileContents = fileContents.Replace("@CLIPBOARD", CURRENT_CLIPBOARD_CONTENTS)
fileContents = fileContents.Replace("@Zwischenablage", CURRENT_CLIPBOARD_CONTENTS)
fileContents = fileContents.Replace("123456789", CURRENT_CLIPBOARD_CONTENTS)
fileContents = fileContents.Replace("4711", CURRENT_CLIPBOARD_CONTENTS)
Try
'Die windream File zusammensetzen
windream_temp_search = temppath & tempName & extension
Try
'Die File schreiben
My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
Logger.Debug(" ...wrote Text to windream_temp_search: " & windream_temp_search, False)
' XML-Datei öffnen und laden
Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
Dim Reader As New System.Xml.XmlTextReader(Stream)
' XML-Datei initialisieren
Dim xml As New System.Xml.XmlDocument()
' XML-Datei öffnen und laden
xml.Load(Reader)
Reader.Close()
xml.Save(windream_temp_search)
Logger.Debug(" ...Xml Generiert: " & windream_temp_search, False)
Catch ex As Exception
Logger.Info("TempFile could not be created: " & ex.Message, True)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler in Write XmlSearch:")
End Try
CURRENT_WD_TEMPSEARCH = windream_temp_search
TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH)
Try
Dim myhWnd As IntPtr
Dim p As New Process()
p.StartInfo.FileName = windream_temp_search
If My.Settings.WDSearch_maximized = True Then
p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
Else
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
End If
p.Start()
myhWnd = p.MainWindowHandle
Threading.Thread.Sleep(1000)
Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain)
If LogErrorsOnly = False Then
Logger.Debug(" ...Top-Position: " & rctMain.Top.ToString, False)
Logger.Debug(" ...Left-Position: " & rctMain.Left.ToString, False)
Logger.Debug(" ...Right-Position: " & rctMain.Right.ToString, False)
Logger.Debug(" ...Bottom-Position: " & rctMain.Bottom.ToString, False)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen der windream-Suche:")
Logger.Info("Unexpected error while executing search: " & ex.Message, True)
Return "Unexpected error while executing search"
End Try
Dim psList() As Process
Try
psList = Process.GetProcesses()
For Each p As Process In psList
Console.WriteLine(p.Id.ToString() + " " + p.ProcessName)
If p.ProcessName.Contains("indream.Find") Then
AppActivate(p.Id)
If My.Settings.WDSearch_maximized = False Then
Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain)
If rctMain.Left = 0 Or rctMain.Right = 0 Then
ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE
End If
End If
SetForegroundWindow(p.MainWindowHandle)
End If
Next p
Catch ex As Exception
Logger.Info("Unexpected error while Setting foreground: " & ex.Message)
End Try
'CURR_MATCH_WM_SEARCH = Nothing
CURRENT_CLIPBOARD_CONTENTS = Nothing
Return ""
Catch ex As Exception
Logger.Info("Unexpected error in Create Search: " & ex.Message)
MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return "Unexpected error in Create Search"
End Try
Catch ex As Exception
Logger.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message)
MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return "Unerwarteter Unexpected error in RUN_WD_SEARCH"
End Try
End Function
End Class

32
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb generated
View File

@ -28,12 +28,10 @@ Partial Class ctrlApplicationAssignment
Me.TBCW_PROF_REL_WINDOWBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBCW_PROF_REL_WINDOWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
Me.GridView_Window = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridView_Window = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colPROCESS_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colREGEX = New DevExpress.XtraGrid.Columns.GridColumn() Me.colREGEX = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemRegexEdit = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit() Me.RepositoryItemRegexEdit = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit()
Me.colREGEX_CLIPBOARD = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.GridControl_Control = New DevExpress.XtraGrid.GridControl() Me.GridControl_Control = New DevExpress.XtraGrid.GridControl()
@ -124,21 +122,18 @@ 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.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.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.GridView_Window.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colDESCRIPTION, Me.colREGEX})
Me.GridView_Window.GridControl = Me.GridControl_Window Me.GridView_Window.GridControl = Me.GridControl_Window
Me.GridView_Window.Name = "GridView_Window" Me.GridView_Window.Name = "GridView_Window"
Me.GridView_Window.OptionsView.EnableAppearanceEvenRow = True Me.GridView_Window.OptionsView.EnableAppearanceEvenRow = True
' '
'colPROCESS_NAME
'
Me.colPROCESS_NAME.FieldName = "PROCESS_NAME"
Me.colPROCESS_NAME.Name = "colPROCESS_NAME"
'
'colGUID 'colGUID
' '
Me.colGUID.Caption = "GUID" Me.colGUID.Caption = "GUID"
Me.colGUID.FieldName = "GUID" Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID" Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True
Me.colGUID.VisibleIndex = 0
' '
'colDESCRIPTION 'colDESCRIPTION
' '
@ -146,7 +141,7 @@ Partial Class ctrlApplicationAssignment
Me.colDESCRIPTION.FieldName = "DESCRIPTION" Me.colDESCRIPTION.FieldName = "DESCRIPTION"
Me.colDESCRIPTION.Name = "colDESCRIPTION" Me.colDESCRIPTION.Name = "colDESCRIPTION"
Me.colDESCRIPTION.Visible = True Me.colDESCRIPTION.Visible = True
Me.colDESCRIPTION.VisibleIndex = 0 Me.colDESCRIPTION.VisibleIndex = 1
' '
'colREGEX 'colREGEX
' '
@ -155,7 +150,7 @@ Partial Class ctrlApplicationAssignment
Me.colREGEX.FieldName = "REGEX" Me.colREGEX.FieldName = "REGEX"
Me.colREGEX.Name = "colREGEX" Me.colREGEX.Name = "colREGEX"
Me.colREGEX.Visible = True Me.colREGEX.Visible = True
Me.colREGEX.VisibleIndex = 1 Me.colREGEX.VisibleIndex = 2
' '
'RepositoryItemRegexEdit 'RepositoryItemRegexEdit
' '
@ -163,15 +158,6 @@ Partial Class ctrlApplicationAssignment
Me.RepositoryItemRegexEdit.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) Me.RepositoryItemRegexEdit.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()})
Me.RepositoryItemRegexEdit.Name = "RepositoryItemRegexEdit" Me.RepositoryItemRegexEdit.Name = "RepositoryItemRegexEdit"
' '
'colREGEX_CLIPBOARD
'
Me.colREGEX_CLIPBOARD.Caption = "Clipboard Regex"
Me.colREGEX_CLIPBOARD.ColumnEdit = Me.RepositoryItemRegexEdit
Me.colREGEX_CLIPBOARD.FieldName = "REGEX_CLIPBOARD"
Me.colREGEX_CLIPBOARD.Name = "colREGEX_CLIPBOARD"
Me.colREGEX_CLIPBOARD.Visible = True
Me.colREGEX_CLIPBOARD.VisibleIndex = 2
'
'RepositoryItemSpinEdit1 'RepositoryItemSpinEdit1
' '
Me.RepositoryItemSpinEdit1.AutoHeight = False Me.RepositoryItemSpinEdit1.AutoHeight = False
@ -181,7 +167,7 @@ Partial Class ctrlApplicationAssignment
'Label1 'Label1
' '
Me.Label1.Dock = System.Windows.Forms.DockStyle.Top Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(915, 25) Me.Label1.Size = New System.Drawing.Size(915, 25)
@ -233,7 +219,7 @@ Partial Class ctrlApplicationAssignment
' '
'colDESCRIPTION1 'colDESCRIPTION1
' '
Me.colDESCRIPTION1.Caption = "Beschreibung" Me.colDESCRIPTION1.Caption = "FeldName"
Me.colDESCRIPTION1.FieldName = "DESCRIPTION" Me.colDESCRIPTION1.FieldName = "DESCRIPTION"
Me.colDESCRIPTION1.Name = "colDESCRIPTION1" Me.colDESCRIPTION1.Name = "colDESCRIPTION1"
Me.colDESCRIPTION1.Visible = True Me.colDESCRIPTION1.Visible = True
@ -266,7 +252,7 @@ Partial Class ctrlApplicationAssignment
'Label2 'Label2
' '
Me.Label2.Dock = System.Windows.Forms.DockStyle.Top Me.Label2.Dock = System.Windows.Forms.DockStyle.Top
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(0, 0) Me.Label2.Location = New System.Drawing.Point(0, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(915, 25) Me.Label2.Size = New System.Drawing.Size(915, 25)
@ -390,10 +376,8 @@ Partial Class ctrlApplicationAssignment
Friend WithEvents SplitContainer3 As SplitContainer Friend WithEvents SplitContainer3 As SplitContainer
Friend WithEvents GridControl_Window As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl_Window As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView_Window As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridView_Window As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colPROCESS_NAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colREGEX As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colREGEX As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colREGEX_CLIPBOARD As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridControl_Control As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl_Control As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView_Control As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridView_Control As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl

79
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@ -6,10 +6,10 @@ Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Controls.RegexEditor Imports DigitalData.Controls.RegexEditor
Public Class ctrlApplicationAssignment Public Class ctrlApplicationAssignment
Public AppSelectionString As String
Private Current_ProfileId As Integer Private Current_ProfileId As Integer
Private Current_WindowId As Integer Private Current_WindowId As Integer
Private Current_ProcessName As String Private Current_ProcessGUID As Integer
Private Sub ctrlApplicationAssignment_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub ctrlApplicationAssignment_Load(sender As Object, e As EventArgs) Handles Me.Load
TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString
@ -20,9 +20,18 @@ Public Class ctrlApplicationAssignment
AddHandler RepositoryItemButtonEdit1.ButtonClick, AddressOf RepositoryItemRegexEdit_Click AddHandler RepositoryItemButtonEdit1.ButtonClick, AddressOf RepositoryItemRegexEdit_Click
End Sub End Sub
Public Function Process_Load(ProfileId As Integer) As Boolean Public Function AssignProfileID(ProfileId As Integer) As Boolean
Try Try
Current_ProfileId = ProfileId Current_ProfileId = ProfileId
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Public Function Process_Load(ProfileId As Integer) As Boolean
Try
TBCW_PROFILE_PROCESSTableAdapter.Fill(MyDataset.TBCW_PROFILE_PROCESS, ProfileId) TBCW_PROFILE_PROCESSTableAdapter.Fill(MyDataset.TBCW_PROFILE_PROCESS, ProfileId)
Return True Return True
@ -46,7 +55,7 @@ Public Class ctrlApplicationAssignment
If Database.ExecuteNonQuery(oSQL) = False Then If Database.ExecuteNonQuery(oSQL) = False Then
Return False Return False
Else Else
oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$','{4}')", ProfileId, oProcessName, oProcessName, oWindowTitle, Environment.UserName) oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO,PROCESS_ID) VALUES ('{0}', '^{1}$','{3}',{4})", oWindowTitle, oWindowTitle, Environment.UserName, CURRENT_PROCESSID)
If Database.ExecuteNonQuery(oSQL) = False Then If Database.ExecuteNonQuery(oSQL) = False Then
Return False Return False
End If End If
@ -65,7 +74,7 @@ Public Class ctrlApplicationAssignment
Public Function Process_DeleteAssignment() As Boolean Public Function Process_DeleteAssignment() As Boolean
Try Try
Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID")) Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId) Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0},{1}", oProcessId, Current_ProfileId)
If Database.ExecuteNonQuery(oSQL) Then If Database.ExecuteNonQuery(oSQL) Then
Process_Load(Current_ProfileId) Process_Load(Current_ProfileId)
Return True Return True
@ -80,7 +89,7 @@ Public Class ctrlApplicationAssignment
Public Function Window_Load() As Boolean Public Function Window_Load() As Boolean
Try Try
TBCW_PROF_REL_WINDOWTableAdapter.Fill(MyDataset.TBCW_PROF_REL_WINDOW, Current_ProcessName, Current_ProfileId) TBCW_PROF_REL_WINDOWTableAdapter.Fill(MyDataset.TBCW_PROF_REL_WINDOW, CURRENT_PROCESSID)
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -112,7 +121,7 @@ Public Class ctrlApplicationAssignment
Dim oProcessName As String = oForm.ProcessName Dim oProcessName As String = oForm.ProcessName
If oWindowTitle <> "" Then If oWindowTitle <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$','{4}')", ProfileId, oProcessName, oProcessName, oWindowTitle, Environment.UserName) Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO,PROCESS_ID) VALUES ('{0}', '^{1}$','{2}',{3})", oWindowTitle, oWindowTitle, Environment.UserName, CURRENT_PROCESSID)
If Database.ExecuteNonQuery(insert) = False Then If Database.ExecuteNonQuery(insert) = False Then
Return False Return False
End If End If
@ -130,7 +139,7 @@ Public Class ctrlApplicationAssignment
Public Function Window_DeleteAssignment() As Boolean Public Function Window_DeleteAssignment() As Boolean
Try Try
Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID")) Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_WINDOW WHERE GUID = {0}", oGuid) Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then If Database.ExecuteNonQuery(oSQL) Then
Process_Load(Current_ProfileId) Process_Load(Current_ProfileId)
Return True Return True
@ -145,14 +154,15 @@ Public Class ctrlApplicationAssignment
Public Function Window_SaveAssignment() As Boolean Public Function Window_SaveAssignment() As Boolean
Try Try
GridView_Window.CloseEditor()
TBCW_PROF_REL_WINDOWBindingSource.EndEdit() TBCW_PROF_REL_WINDOWBindingSource.EndEdit()
GridView_Window.CloseEditor()
If Not IsNothing(MyDataset.TBCW_PROF_REL_WINDOW.GetChanges) Then If Not IsNothing(MyDataset.TBCW_PROF_REL_WINDOW.GetChanges) Then
TBCW_PROF_REL_WINDOWBindingSource.EndEdit() TBCW_PROF_REL_WINDOWBindingSource.EndEdit()
TBCW_PROF_REL_WINDOWTableAdapter.Update(MyDataset.TBCW_PROF_REL_WINDOW) TBCW_PROF_REL_WINDOWTableAdapter.Update(MyDataset.TBCW_PROF_REL_WINDOW)
Return True
End If End If
Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Return False Return False
@ -161,7 +171,7 @@ Public Class ctrlApplicationAssignment
Public Function Control_Load() As Boolean Public Function Control_Load() As Boolean
Try Try
TBCW_PROF_REL_CONTROLTableAdapter.Fill(MyDataset.TBCW_PROF_REL_CONTROL, Current_ProcessName, Current_WindowId, Current_ProfileId) TBCW_PROF_REL_CONTROLTableAdapter.Fill(MyDataset.TBCW_PROF_REL_CONTROL, Current_WindowId)
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -170,7 +180,7 @@ Public Class ctrlApplicationAssignment
End Try End Try
End Function End Function
Public Function Control_CreateAssignment(ProfileId As Integer) As Boolean Public Function Control_CreateAssignment() As Boolean
Dim oForm As New frmControlCapture() Dim oForm As New frmControlCapture()
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
@ -183,7 +193,8 @@ Public Class ctrlApplicationAssignment
Dim oDefaultRegex As String = "\.+" Dim oDefaultRegex As String = "\.+"
If oControlTitle <> "" Or oAutomationId <> "" Then If oControlTitle <> "" Or oAutomationId <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (PROFILE_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, PROCESS_NAME, REGEX, WINDOW_ID, ADDED_WHO) VALUES ({0}, '{1}', '{2}', '{3}', '{4}','^{5}$',{6},'{7}')", ProfileId, oControlTitle, oAutomationId, oFrameworkId, Current_ProcessName, oDefaultRegex, Current_WindowId, Environment.UserName) Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (WINDOW_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}', '{3}', '^{4}$','{5}')",
Current_WindowId, oControlTitle, oAutomationId, oFrameworkId, oDefaultRegex, Environment.UserName)
If Database.ExecuteNonQuery(insert) = False Then If Database.ExecuteNonQuery(insert) = False Then
Return False Return False
End If End If
@ -202,14 +213,15 @@ Public Class ctrlApplicationAssignment
Public Function Control_SaveAssignment() As Boolean Public Function Control_SaveAssignment() As Boolean
Try Try
GridView_Control.CloseEditor()
TBCW_PROF_REL_CONTROLBindingSource.EndEdit() TBCW_PROF_REL_CONTROLBindingSource.EndEdit()
GridView_Control.CloseEditor()
If Not IsNothing(MyDataset.TBCW_PROF_REL_CONTROL.GetChanges) Then If Not IsNothing(MyDataset.TBCW_PROF_REL_CONTROL.GetChanges) Then
TBCW_PROF_REL_CONTROLBindingSource.EndEdit() TBCW_PROF_REL_CONTROLBindingSource.EndEdit()
TBCW_PROF_REL_CONTROLTableAdapter.Update(MyDataset.TBCW_PROF_REL_CONTROL) TBCW_PROF_REL_CONTROLTableAdapter.Update(MyDataset.TBCW_PROF_REL_CONTROL)
Return True
End If End If
Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Return False Return False
@ -239,7 +251,12 @@ Public Class ctrlApplicationAssignment
Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle) Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle)
Dim oProcessName As String = oSelectedRow.Item("PROC_NAME") Dim oProcessName As String = oSelectedRow.Item("PROC_NAME")
Current_ProcessName = oProcessName Dim oPRocessGUID = oSelectedRow.Item("GUID")
AppSelectionString = $"Selected Profile: {oPRocessGUID}-{oProcessName}"
CURRENT_PROCESSID = oPRocessGUID
CURRENT_PROCESSNAME = oProcessName
MyDataset.TBCW_PROF_REL_CONTROL.Clear()
MyDataset.TBCW_PROF_REL_WINDOW.Clear()
If Window_Load() = False Then If Window_Load() = False Then
MsgBox($"Error while loading windows for process {oProcessName}", vbCritical, "") MsgBox($"Error while loading windows for process {oProcessName}", vbCritical, "")
@ -253,16 +270,32 @@ Public Class ctrlApplicationAssignment
End Function End Function
Private Sub GridView_Window_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Window.FocusedRowChanged Private Sub GridView_Window_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Window.FocusedRowChanged
Try
If e.FocusedRowHandle < 0 Then
Exit Sub
End If
Dim oSelectedRow As DataRow = GridView_Window.GetDataRow(e.FocusedRowHandle)
Dim oWindowId As String = oSelectedRow.Item("GUID")
Current_WindowId = oWindowId
AppSelectionString = AppSelectionString & $" / WindowID: {oWindowId}"
If Control_Load() = False Then
MsgBox($"Error while loading controls for window {oWindowId}", vbCritical, "")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridView_Control_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Control.FocusedRowChanged
If e.FocusedRowHandle < 0 Then If e.FocusedRowHandle < 0 Then
Exit Sub Exit Sub
End If End If
Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle) Dim oSelectedRow As DataRow = GridView_Control.GetDataRow(e.FocusedRowHandle)
Dim oWindowId As String = oSelectedRow.Item("GUID") Dim oControlGUID = oSelectedRow.Item("GUID")
Current_WindowId = oWindowId AppSelectionString = AppSelectionString & $" - Selected ControlGUID: {oControlGUID}"
If Control_Load() = False Then
MsgBox($"Error while loading controls for window {oWindowId}", vbCritical, "")
End If
End Sub End Sub
End Class End Class

52
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

@ -27,7 +27,7 @@ Partial Class frmAdministration
Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl() Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewProfiles = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBWH_UserBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBWH_UserBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -210,10 +210,11 @@ Partial Class frmAdministration
Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
Me.labelSelection = New DevExpress.XtraBars.BarStaticItem()
CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -353,27 +354,27 @@ Partial Class frmAdministration
Me.GridControlProfiles.DataSource = Me.TBCW_PROFILESBindingSource Me.GridControlProfiles.DataSource = Me.TBCW_PROFILESBindingSource
Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0) Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0)
Me.GridControlProfiles.MainView = Me.GridView1 Me.GridControlProfiles.MainView = Me.GridViewProfiles
Me.GridControlProfiles.Name = "GridControlProfiles" Me.GridControlProfiles.Name = "GridControlProfiles"
Me.GridControlProfiles.Size = New System.Drawing.Size(159, 615) Me.GridControlProfiles.Size = New System.Drawing.Size(159, 615)
Me.GridControlProfiles.TabIndex = 18 Me.GridControlProfiles.TabIndex = 18
Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfiles})
' '
'GridView1 'GridViewProfiles
' '
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.GridViewProfiles.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewProfiles.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME}) Me.GridViewProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME})
Me.GridView1.GridControl = Me.GridControlProfiles Me.GridViewProfiles.GridControl = Me.GridControlProfiles
Me.GridView1.Name = "GridView1" Me.GridViewProfiles.Name = "GridViewProfiles"
Me.GridView1.OptionsBehavior.Editable = False Me.GridViewProfiles.OptionsBehavior.Editable = False
Me.GridView1.OptionsView.ColumnAutoWidth = False Me.GridViewProfiles.OptionsView.ColumnAutoWidth = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True Me.GridViewProfiles.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True Me.GridViewProfiles.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowDetailButtons = False Me.GridViewProfiles.OptionsView.ShowDetailButtons = False
Me.GridView1.OptionsView.ShowGroupPanel = False Me.GridViewProfiles.OptionsView.ShowGroupPanel = False
Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewProfiles.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView1.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewProfiles.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True]
' '
'colGUID 'colGUID
' '
@ -526,9 +527,9 @@ Partial Class frmAdministration
' '
Me.RibbonControl2.ApplicationButtonDropDownControl = Me.ApplicationMenu1 Me.RibbonControl2.ApplicationButtonDropDownControl = Me.ApplicationMenu1
Me.RibbonControl2.ExpandCollapseItem.Id = 0 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.BarButtonItem25, Me.BarButtonItem26}) 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.labelSelection})
Me.RibbonControl2.Location = New System.Drawing.Point(0, 0) Me.RibbonControl2.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl2.MaxItemId = 12 Me.RibbonControl2.MaxItemId = 13
Me.RibbonControl2.Name = "RibbonControl2" Me.RibbonControl2.Name = "RibbonControl2"
Me.RibbonControl2.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage2}) Me.RibbonControl2.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage2})
Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False]
@ -836,6 +837,7 @@ Partial Class frmAdministration
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelSelection)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 761) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 761)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl2 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl2
@ -2128,6 +2130,11 @@ Partial Class frmAdministration
Me.SimpleSeparator1.Name = "SimpleSeparator1" Me.SimpleSeparator1.Name = "SimpleSeparator1"
Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2) Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2)
' '
'labelSelection
'
Me.labelSelection.Id = 12
Me.labelSelection.Name = "labelSelection"
'
'frmAdministration 'frmAdministration
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -2147,7 +2154,7 @@ Partial Class frmAdministration
CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_UserBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWUSER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -2279,7 +2286,7 @@ Partial Class frmAdministration
Friend WithEvents TBCW_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter Friend WithEvents TBCW_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILESTableAdapter
Friend WithEvents TableAdapterManager As DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents GridControlProfiles As DevExpress.XtraGrid.GridControl Friend WithEvents GridControlProfiles As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridViewProfiles As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog
@ -2460,4 +2467,5 @@ Partial Class frmAdministration
Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents labelSelection As DevExpress.XtraBars.BarStaticItem
End Class End Class

34
app/DD_Clipboard_Searcher/frmAdministration.resx
View File

@ -124,7 +124,7 @@
<value>245, 17</value> <value>245, 17</value>
</metadata> </metadata>
<metadata name="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>345, 56</value> <value>122, 56</value>
</metadata> </metadata>
<metadata name="VWUSER_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWUSER_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
@ -136,28 +136,28 @@
<value>789, 17</value> <value>789, 17</value>
</metadata> </metadata>
<metadata name="OFDWindreamsuche.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OFDWindreamsuche.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1315, 17</value> <value>962, 17</value>
</metadata> </metadata>
<metadata name="VWUSER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWUSER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>1125, 17</value>
</metadata> </metadata>
<metadata name="TimerTest.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerTest.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>240, 56</value> <value>17, 56</value>
</metadata> </metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1071, 56</value> <value>316, 56</value>
</metadata> </metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1234, 56</value> <value>479, 56</value>
</metadata> </metadata>
<metadata name="TBCW_PROF_DOC_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DOC_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>733, 95</value> <value>1140, 56</value>
</metadata> </metadata>
<metadata name="TBCW_PROF_DATA_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DATA_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value> <value>578, 56</value>
</metadata> </metadata>
<metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>997, 134</value> <value>1270, 95</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BarButtonItem16.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem16.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -749,7 +749,7 @@
</value> </value>
</data> </data>
<metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>751, 134</value> <value>1024, 95</value>
</metadata> </metadata>
<data name="TabPageGeneralSettings.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPageGeneralSettings.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -762,7 +762,7 @@
</value> </value>
</data> </data>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1149, 134</value> <value>17, 134</value>
</metadata> </metadata>
<data name="TabPageDocuments.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPageDocuments.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -803,10 +803,10 @@
</value> </value>
</data> </data>
<metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>227, 134</value> <value>500, 95</value>
</metadata> </metadata>
<metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value> <value>290, 95</value>
</metadata> </metadata>
<data name="TabPageGroupAssignment.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPageGroupAssignment.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -820,16 +820,16 @@
</value> </value>
</data> </data>
<metadata name="TBCW_PROF_DATA_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DATA_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>301, 95</value> <value>862, 56</value>
</metadata> </metadata>
<metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1011, 95</value> <value>17, 95</value>
</metadata> </metadata>
<metadata name="VWCW_GROUP_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWCW_GROUP_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>492, 134</value> <value>765, 95</value>
</metadata> </metadata>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value> <value>261, 134</value>
</metadata> </metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>159</value> <value>159</value>

42
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@ -77,13 +77,12 @@ Public Class frmAdministration
Sub Status_Changed(text As String) Sub Status_Changed(text As String)
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
labelStatus.Caption = $"{text} - {Now.ToShortTimeString}" labelStatus.Caption = $"{text} - {Now.ToLongTimeString}"
End Sub End Sub
Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew
MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROFILES.PROFILE_TYPEColumn.DefaultValue = 0 MyDataset.TBCW_PROFILES.PROFILE_TYPEColumn.DefaultValue = 0
MyDataset.TBCW_PROFILES.WD_SEARCHColumn.DefaultValue = String.Empty
MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+" MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+"
MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = True MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = True
@ -93,11 +92,23 @@ Public Class frmAdministration
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
If PROFILE_IDTextBox.Text <> "" Then If PROFILE_IDTextBox.Text <> "" Then
If CtrlApplicationAssignment1.AssignProfileID(PROFILE_IDTextBox.Text) = False Then
MsgBox("Unexpected Error while assigning ProfileID!", MsgBoxStyle.Critical)
Exit Sub
End If
Refresh_ProfileData() Refresh_ProfileData()
Refresh_Free_Users(PROFILE_IDTextBox.Text) Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text) Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Load_Profile_Process() Load_Profile_Process()
If LogConfig.Debug = True Then
labelSelection.Caption = CtrlApplicationAssignment1.AppSelectionString
labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
End If End If
End Sub End Sub
@ -279,8 +290,6 @@ Public Class frmAdministration
Private Sub TBCW_PROF_REL_WINDOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) 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.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn.DefaultValue = SelectedProcessName
End Sub End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@ -299,19 +308,17 @@ Public Class frmAdministration
' wenn Speichern ja ' wenn Speichern ja
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If Database.ExecuteNonQuery(swl) = True Then If Database.ExecuteNonQuery(swl) = True Then
Load_Profiles() Refresh_ProfileScreen()
End If End If
End If End If
End Sub End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
Refresh_ProfileScreen()
End Sub
Sub Refresh_ProfileScreen()
Load_Profiles() Load_Profiles()
Refresh_ProfileData() Refresh_ProfileData()
Try
Dim ID = CInt(PROFILE_IDTextBox.Text)
Catch ex As Exception
Exit Sub
End Try
Refresh_Free_Users(PROFILE_IDTextBox.Text) Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text) Refresh_Free_Groups(PROFILE_IDTextBox.Text)
End Sub End Sub
@ -469,6 +476,7 @@ Public Class frmAdministration
Select Case oTabName Select Case oTabName
Case TabPageProcessAssignment.Name Case TabPageProcessAssignment.Name
CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
RibbonGroup_Profile.Enabled = False RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False RibbonGroup_Group.Enabled = False
@ -540,6 +548,7 @@ Public Class frmAdministration
RibbonGroup_DocSearch.Enabled = False RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False RibbonGroup_DataSearch.Enabled = False
End Select End Select
End Sub End Sub
Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
@ -640,7 +649,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
If CtrlApplicationAssignment1.Control_CreateAssignment(PROFILE_IDTextBox.Text) = False Then If CtrlApplicationAssignment1.Control_CreateAssignment() = False Then
MsgBox("Error while creating control", MsgBoxStyle.Critical, Text) MsgBox("Error while creating control", MsgBoxStyle.Critical, Text)
Else Else
Status_Changed("Feld-Zuordnung angelegt") Status_Changed("Feld-Zuordnung angelegt")
@ -666,4 +675,15 @@ Public Class frmAdministration
Status_Changed("Feld-Zuordnung gespeichert") Status_Changed("Feld-Zuordnung gespeichert")
End If End If
End Sub End Sub
Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'"
If Database.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not duplicate the profile...Check the logfile!", MsgBoxStyle.Exclamation)
Else
Refresh_ProfileScreen()
MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
End If
End Sub
End Class End Class

77
app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb generated
View File

@ -48,15 +48,21 @@ Partial Class frmConfig_Basic
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LabelVersion = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'TabControl1 'TabControl1
' '
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
@ -221,14 +227,14 @@ Partial Class frmConfig_Basic
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(668, 160) Me.TabPage2.Size = New System.Drawing.Size(668, 160)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Weitere Einstellungen" Me.TabPage2.Text = "Tastaturkombination und Eisntellungen"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'lblChanges 'lblChanges
' '
Me.lblChanges.AutoSize = True Me.lblChanges.AutoSize = True
Me.lblChanges.BackColor = System.Drawing.Color.Yellow Me.lblChanges.BackColor = System.Drawing.Color.Yellow
Me.lblChanges.Location = New System.Drawing.Point(8, 115) Me.lblChanges.Location = New System.Drawing.Point(8, 71)
Me.lblChanges.Name = "lblChanges" Me.lblChanges.Name = "lblChanges"
Me.lblChanges.Size = New System.Drawing.Size(38, 13) Me.lblChanges.Size = New System.Drawing.Size(38, 13)
Me.lblChanges.TabIndex = 14 Me.lblChanges.TabIndex = 14
@ -237,53 +243,61 @@ Partial Class frmConfig_Basic
' '
'btnChangeHotkey 'btnChangeHotkey
' '
Me.btnChangeHotkey.Location = New System.Drawing.Point(185, 89) Me.btnChangeHotkey.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnChangeHotkey.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
Me.btnChangeHotkey.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnChangeHotkey.Location = New System.Drawing.Point(186, 35)
Me.btnChangeHotkey.Name = "btnChangeHotkey" Me.btnChangeHotkey.Name = "btnChangeHotkey"
Me.btnChangeHotkey.Size = New System.Drawing.Size(121, 23) Me.btnChangeHotkey.Size = New System.Drawing.Size(132, 31)
Me.btnChangeHotkey.TabIndex = 13 Me.btnChangeHotkey.TabIndex = 13
Me.btnChangeHotkey.Text = "Ändere Hotkey" Me.btnChangeHotkey.Text = "Ändere Hotkey"
Me.btnChangeHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnChangeHotkey.UseVisualStyleBackColor = True Me.btnChangeHotkey.UseVisualStyleBackColor = True
' '
'txtHotkeySearchKey 'txtHotkeySearchKey
' '
Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 91) Me.txtHotkeySearchKey.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 39)
Me.txtHotkeySearchKey.Name = "txtHotkeySearchKey" Me.txtHotkeySearchKey.Name = "txtHotkeySearchKey"
Me.txtHotkeySearchKey.Size = New System.Drawing.Size(65, 21) Me.txtHotkeySearchKey.Size = New System.Drawing.Size(65, 23)
Me.txtHotkeySearchKey.TabIndex = 12 Me.txtHotkeySearchKey.TabIndex = 12
Me.txtHotkeySearchKey.Text = "f" Me.txtHotkeySearchKey.Text = "f"
' '
'Label7 'Label7
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(102, 75) Me.Label7.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(102, 20)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(68, 13) Me.Label7.Size = New System.Drawing.Size(78, 16)
Me.Label7.TabIndex = 11 Me.Label7.TabIndex = 11
Me.Label7.Text = "Zifferntaste:" Me.Label7.Text = "Zifferntaste:"
' '
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 75) Me.Label6.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(8, 20)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(82, 13) Me.Label6.Size = New System.Drawing.Size(95, 16)
Me.Label6.TabIndex = 10 Me.Label6.TabIndex = 10
Me.Label6.Text = "Funktionstaste:" Me.Label6.Text = "Funktionstaste:"
' '
'cmbfunctionHit 'cmbfunctionHit
' '
Me.cmbfunctionHit.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbfunctionHit.FormattingEnabled = True Me.cmbfunctionHit.FormattingEnabled = True
Me.cmbfunctionHit.Items.AddRange(New Object() {"strg", "SHIFT"}) Me.cmbfunctionHit.Items.AddRange(New Object() {"strg", "SHIFT"})
Me.cmbfunctionHit.Location = New System.Drawing.Point(11, 91) Me.cmbfunctionHit.Location = New System.Drawing.Point(11, 39)
Me.cmbfunctionHit.Name = "cmbfunctionHit" Me.cmbfunctionHit.Name = "cmbfunctionHit"
Me.cmbfunctionHit.Size = New System.Drawing.Size(79, 21) Me.cmbfunctionHit.Size = New System.Drawing.Size(88, 24)
Me.cmbfunctionHit.TabIndex = 9 Me.cmbfunctionHit.TabIndex = 9
' '
'chkLogErrorsOnly 'chkLogErrorsOnly
' '
Me.chkLogErrorsOnly.AutoSize = True Me.chkLogErrorsOnly.AutoSize = True
Me.chkLogErrorsOnly.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.chkLogErrorsOnly.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.chkLogErrorsOnly.Location = New System.Drawing.Point(8, 17) Me.chkLogErrorsOnly.Location = New System.Drawing.Point(462, 100)
Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly" Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly"
Me.chkLogErrorsOnly.Size = New System.Drawing.Size(100, 17) Me.chkLogErrorsOnly.Size = New System.Drawing.Size(100, 17)
Me.chkLogErrorsOnly.TabIndex = 7 Me.chkLogErrorsOnly.TabIndex = 7
@ -328,6 +342,37 @@ Partial Class frmConfig_Basic
Me.LinkLabel1.TabStop = True Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data" Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data"
' '
'TabPage3
'
Me.TabPage3.Controls.Add(Me.LabelVersion)
Me.TabPage3.Controls.Add(Me.PictureBox1)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(668, 160)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Info"
Me.TabPage3.UseVisualStyleBackColor = True
'
'LabelVersion
'
Me.LabelVersion.AutoSize = True
Me.LabelVersion.Location = New System.Drawing.Point(6, 115)
Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.Size = New System.Drawing.Size(38, 13)
Me.LabelVersion.TabIndex = 0
Me.LabelVersion.Text = "Label8"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(-80, -22)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(366, 134)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'frmConfig_Basic 'frmConfig_Basic
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -347,6 +392,9 @@ Partial Class frmConfig_Basic
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout() Me.TabPage2.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -375,4 +423,7 @@ Partial Class frmConfig_Basic
Friend WithEvents Label7 As Label Friend WithEvents Label7 As Label
Friend WithEvents btnChangeHotkey As Button Friend WithEvents btnChangeHotkey As Button
Friend WithEvents lblChanges As Label Friend WithEvents lblChanges As Label
Friend WithEvents TabPage3 As TabPage
Friend WithEvents LabelVersion As Label
Friend WithEvents PictureBox1 As PictureBox
End Class End Class

3366
app/DD_Clipboard_Searcher/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

2
app/DD_Clipboard_Searcher/frmConfig_Basic.vb
View File

@ -161,6 +161,8 @@ Public Class frmConfig_Basic
Catch ex As Exception Catch ex As Exception
End Try End Try
Case 2
LabelVersion.Text = $"Version: {My.Application.Info.Version.ToString}"
End Select End Select
End Sub End Sub

76
app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb generated
View File

@ -40,6 +40,8 @@ Partial Class frmControlCapture
Me.txtFrameworkId = New System.Windows.Forms.TextBox() Me.txtFrameworkId = New System.Windows.Forms.TextBox()
Me.chkAutomationId = New System.Windows.Forms.CheckBox() Me.chkAutomationId = New System.Windows.Forms.CheckBox()
Me.chkControlName = New System.Windows.Forms.CheckBox() Me.chkControlName = New System.Windows.Forms.CheckBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtNewFocusControlHandle = New System.Windows.Forms.TextBox()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Timer1 'Timer1
@ -49,7 +51,8 @@ Partial Class frmControlCapture
' '
'Label3 'Label3
' '
Me.Label3.Location = New System.Drawing.Point(12, 142) Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(12, 183)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(438, 42) Me.Label3.Size = New System.Drawing.Size(438, 42)
Me.Label3.TabIndex = 11 Me.Label3.TabIndex = 11
@ -59,17 +62,17 @@ Partial Class frmControlCapture
'Label4 'Label4
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(12, 89) Me.Label4.Location = New System.Drawing.Point(12, 89)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(71, 13) Me.Label4.Size = New System.Drawing.Size(61, 13)
Me.Label4.TabIndex = 8 Me.Label4.TabIndex = 8
Me.Label4.Text = "Feld Name:" Me.Label4.Text = "Feld Name:"
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(12, 35) Me.Label2.Location = New System.Drawing.Point(12, 35)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(78, 13) Me.Label2.Size = New System.Drawing.Size(78, 13)
@ -79,38 +82,38 @@ Partial Class frmControlCapture
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(61, 13) Me.Label1.Size = New System.Drawing.Size(62, 13)
Me.Label1.TabIndex = 10 Me.Label1.TabIndex = 10
Me.Label1.Text = "Prozess ID:" Me.Label1.Text = "Prozess ID:"
' '
'txtControlName 'txtControlName
' '
Me.txtControlName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtControlName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtControlName.Location = New System.Drawing.Point(226, 84) Me.txtControlName.Location = New System.Drawing.Point(226, 84)
Me.txtControlName.Name = "txtControlName" Me.txtControlName.Name = "txtControlName"
Me.txtControlName.ReadOnly = True Me.txtControlName.ReadOnly = True
Me.txtControlName.Size = New System.Drawing.Size(224, 20) Me.txtControlName.Size = New System.Drawing.Size(224, 21)
Me.txtControlName.TabIndex = 6 Me.txtControlName.TabIndex = 6
' '
'txtName 'txtName
' '
Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtName.Location = New System.Drawing.Point(226, 32) Me.txtName.Location = New System.Drawing.Point(226, 32)
Me.txtName.Name = "txtName" Me.txtName.Name = "txtName"
Me.txtName.ReadOnly = True Me.txtName.ReadOnly = True
Me.txtName.Size = New System.Drawing.Size(224, 20) Me.txtName.Size = New System.Drawing.Size(224, 21)
Me.txtName.TabIndex = 7 Me.txtName.TabIndex = 7
' '
'txtPID 'txtPID
' '
Me.txtPID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPID.Location = New System.Drawing.Point(226, 4) Me.txtPID.Location = New System.Drawing.Point(226, 4)
Me.txtPID.Name = "txtPID" Me.txtPID.Name = "txtPID"
Me.txtPID.ReadOnly = True Me.txtPID.ReadOnly = True
Me.txtPID.Size = New System.Drawing.Size(224, 20) Me.txtPID.Size = New System.Drawing.Size(224, 21)
Me.txtPID.TabIndex = 5 Me.txtPID.TabIndex = 5
' '
'Button1 'Button1
@ -118,7 +121,7 @@ Partial Class frmControlCapture
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(15, 206) Me.Button1.Location = New System.Drawing.Point(15, 242)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 34) Me.Button1.Size = New System.Drawing.Size(159, 34)
Me.Button1.TabIndex = 0 Me.Button1.TabIndex = 0
@ -130,7 +133,7 @@ Partial Class frmControlCapture
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(291, 206) Me.Button2.Location = New System.Drawing.Point(291, 242)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(159, 34) Me.Button2.Size = New System.Drawing.Size(159, 34)
Me.Button2.TabIndex = 0 Me.Button2.TabIndex = 0
@ -139,46 +142,46 @@ Partial Class frmControlCapture
' '
'txtAutomationId 'txtAutomationId
' '
Me.txtAutomationId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAutomationId.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAutomationId.Location = New System.Drawing.Point(226, 110) Me.txtAutomationId.Location = New System.Drawing.Point(226, 110)
Me.txtAutomationId.Name = "txtAutomationId" Me.txtAutomationId.Name = "txtAutomationId"
Me.txtAutomationId.ReadOnly = True Me.txtAutomationId.ReadOnly = True
Me.txtAutomationId.Size = New System.Drawing.Size(224, 20) Me.txtAutomationId.Size = New System.Drawing.Size(224, 21)
Me.txtAutomationId.TabIndex = 6 Me.txtAutomationId.TabIndex = 6
' '
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(12, 115) Me.Label5.Location = New System.Drawing.Point(12, 115)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(89, 13) Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 8 Me.Label5.TabIndex = 8
Me.Label5.Text = "Automation Id:" Me.Label5.Text = "Automation Id:"
' '
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(12, 61) Me.Label6.Location = New System.Drawing.Point(12, 61)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(74, 13) Me.Label6.Size = New System.Drawing.Size(77, 13)
Me.Label6.TabIndex = 8 Me.Label6.TabIndex = 8
Me.Label6.Text = "Framework Id:" Me.Label6.Text = "Framework Id:"
' '
'txtFrameworkId 'txtFrameworkId
' '
Me.txtFrameworkId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtFrameworkId.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFrameworkId.Location = New System.Drawing.Point(226, 58) Me.txtFrameworkId.Location = New System.Drawing.Point(226, 58)
Me.txtFrameworkId.Name = "txtFrameworkId" Me.txtFrameworkId.Name = "txtFrameworkId"
Me.txtFrameworkId.ReadOnly = True Me.txtFrameworkId.ReadOnly = True
Me.txtFrameworkId.Size = New System.Drawing.Size(224, 20) Me.txtFrameworkId.Size = New System.Drawing.Size(224, 21)
Me.txtFrameworkId.TabIndex = 6 Me.txtFrameworkId.TabIndex = 6
' '
'chkAutomationId 'chkAutomationId
' '
Me.chkAutomationId.AutoSize = True Me.chkAutomationId.AutoSize = True
Me.chkAutomationId.Location = New System.Drawing.Point(133, 112) Me.chkAutomationId.Location = New System.Drawing.Point(133, 139)
Me.chkAutomationId.Name = "chkAutomationId" Me.chkAutomationId.Name = "chkAutomationId"
Me.chkAutomationId.Size = New System.Drawing.Size(87, 17) Me.chkAutomationId.Size = New System.Drawing.Size(87, 17)
Me.chkAutomationId.TabIndex = 12 Me.chkAutomationId.TabIndex = 12
@ -195,11 +198,32 @@ Partial Class frmControlCapture
Me.chkControlName.Text = "Übernehmen" Me.chkControlName.Text = "Übernehmen"
Me.chkControlName.UseVisualStyleBackColor = True Me.chkControlName.UseVisualStyleBackColor = True
' '
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(12, 140)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(107, 13)
Me.Label7.TabIndex = 14
Me.Label7.Text = "FocusControlHandle:"
'
'txtNewFocusControlHandle
'
Me.txtNewFocusControlHandle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtNewFocusControlHandle.Location = New System.Drawing.Point(226, 137)
Me.txtNewFocusControlHandle.Name = "txtNewFocusControlHandle"
Me.txtNewFocusControlHandle.ReadOnly = True
Me.txtNewFocusControlHandle.Size = New System.Drawing.Size(224, 21)
Me.txtNewFocusControlHandle.TabIndex = 13
'
'frmControlCapture 'frmControlCapture
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(462, 251) Me.ClientSize = New System.Drawing.Size(462, 300)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtNewFocusControlHandle)
Me.Controls.Add(Me.chkControlName) Me.Controls.Add(Me.chkControlName)
Me.Controls.Add(Me.chkAutomationId) Me.Controls.Add(Me.chkAutomationId)
Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label3)
@ -215,9 +239,11 @@ Partial Class frmControlCapture
Me.Controls.Add(Me.txtPID) Me.Controls.Add(Me.txtPID)
Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmControlCapture" Me.Name = "frmControlCapture"
Me.Text = "Feld Auswertung" Me.Text = "Feld Auswertung"
Me.TopMost = True
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -238,4 +264,6 @@ Partial Class frmControlCapture
Friend WithEvents txtFrameworkId As TextBox Friend WithEvents txtFrameworkId As TextBox
Friend WithEvents chkAutomationId As CheckBox Friend WithEvents chkAutomationId As CheckBox
Friend WithEvents chkControlName As CheckBox Friend WithEvents chkControlName As CheckBox
Friend WithEvents Label7 As Label
Friend WithEvents txtNewFocusControlHandle As TextBox
End Class End Class

22
app/DD_Clipboard_Searcher/frmControlCapture.vb
View File

@ -11,6 +11,7 @@ Public Class frmControlCapture
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim oResult As WindowInfo = GetFocusedControl(Handle) Dim oResult As WindowInfo = GetFocusedControl(Handle)
Dim newoResult As IntPtr = FocusedControlinActiveWindow(Handle)
If oResult IsNot Nothing Then If oResult IsNot Nothing Then
txtPID.Text = oResult.ClassName txtPID.Text = oResult.ClassName
@ -18,10 +19,15 @@ Public Class frmControlCapture
txtControlName.Text = oResult.ControlName txtControlName.Text = oResult.ControlName
txtAutomationId.Text = Automation.AutomationId txtAutomationId.Text = Automation.AutomationId
txtFrameworkId.Text = Automation.FrameworkId txtFrameworkId.Text = Automation.FrameworkId
Console.WriteLine($"Automation.AutomationId: {Automation.AutomationId}")
FrameworkId = Automation.FrameworkId FrameworkId = Automation.FrameworkId
AutomationId = Automation.AutomationId
ControlName = oResult.ControlName ControlName = oResult.ControlName
Console.WriteLine($"oResult.ControlName: {oResult.ControlName}")
txtNewFocusControlHandle.Text = newoResult.ToString
AutomationId = newoResult.ToString
Console.WriteLine($"newoResult: {newoResult.ToString}")
ProcessName = oResult.ProcessName ProcessName = oResult.ProcessName
End If End If
End Sub End Sub
@ -48,4 +54,16 @@ Public Class frmControlCapture
DialogResult = DialogResult.None DialogResult = DialogResult.None
End If End If
End Sub End Sub
Private Sub chkControlName_CheckedChanged(sender As Object, e As EventArgs) Handles chkControlName.CheckedChanged
If chkControlName.Checked Then
chkAutomationId.Checked = False
End If
End Sub
Private Sub chkAutomationId_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutomationId.CheckedChanged
If chkAutomationId.Checked Then
chkControlName.Checked = False
End If
End Sub
End Class End Class

2
app/DD_Clipboard_Searcher/frmDocViewAbout.designer.vb generated
View File

@ -104,7 +104,7 @@ Partial Class frmDocViewAbout
'lblGdPictureDemo 'lblGdPictureDemo
' '
Me.lblGdPictureDemo.AutoSize = True Me.lblGdPictureDemo.AutoSize = True
Me.lblGdPictureDemo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblGdPictureDemo.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGdPictureDemo.Location = New System.Drawing.Point(13, 14) Me.lblGdPictureDemo.Location = New System.Drawing.Point(13, 14)
Me.lblGdPictureDemo.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblGdPictureDemo.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblGdPictureDemo.Name = "lblGdPictureDemo" Me.lblGdPictureDemo.Name = "lblGdPictureDemo"

32
app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb generated
View File

@ -38,36 +38,36 @@ Partial Class frmProcessCapture
' '
'txtPID 'txtPID
' '
Me.txtPID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPID.Location = New System.Drawing.Point(132, 4) Me.txtPID.Location = New System.Drawing.Point(132, 4)
Me.txtPID.Name = "txtPID" Me.txtPID.Name = "txtPID"
Me.txtPID.ReadOnly = True Me.txtPID.ReadOnly = True
Me.txtPID.Size = New System.Drawing.Size(224, 20) Me.txtPID.Size = New System.Drawing.Size(224, 21)
Me.txtPID.TabIndex = 1 Me.txtPID.TabIndex = 1
' '
'txtName 'txtName
' '
Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtName.Location = New System.Drawing.Point(132, 32) Me.txtName.Location = New System.Drawing.Point(132, 32)
Me.txtName.Name = "txtName" Me.txtName.Name = "txtName"
Me.txtName.ReadOnly = True Me.txtName.ReadOnly = True
Me.txtName.Size = New System.Drawing.Size(224, 20) Me.txtName.Size = New System.Drawing.Size(224, 21)
Me.txtName.TabIndex = 2 Me.txtName.TabIndex = 2
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(61, 13) Me.Label1.Size = New System.Drawing.Size(62, 13)
Me.Label1.TabIndex = 3 Me.Label1.TabIndex = 3
Me.Label1.Text = "Prozess ID:" Me.Label1.Text = "Prozess ID:"
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(12, 35) Me.Label2.Location = New System.Drawing.Point(12, 35)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(78, 13) Me.Label2.Size = New System.Drawing.Size(78, 13)
@ -76,7 +76,8 @@ Partial Class frmProcessCapture
' '
'Label3 'Label3
' '
Me.Label3.Location = New System.Drawing.Point(12, 118) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(12, 98)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(344, 42) Me.Label3.Size = New System.Drawing.Size(344, 42)
Me.Label3.TabIndex = 4 Me.Label3.TabIndex = 4
@ -89,20 +90,20 @@ Partial Class frmProcessCapture
' '
'txtWindowTitle 'txtWindowTitle
' '
Me.txtWindowTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtWindowTitle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtWindowTitle.Location = New System.Drawing.Point(132, 58) Me.txtWindowTitle.Location = New System.Drawing.Point(132, 58)
Me.txtWindowTitle.Name = "txtWindowTitle" Me.txtWindowTitle.Name = "txtWindowTitle"
Me.txtWindowTitle.ReadOnly = True Me.txtWindowTitle.ReadOnly = True
Me.txtWindowTitle.Size = New System.Drawing.Size(224, 20) Me.txtWindowTitle.Size = New System.Drawing.Size(224, 21)
Me.txtWindowTitle.TabIndex = 2 Me.txtWindowTitle.TabIndex = 2
' '
'Label4 'Label4
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(12, 61) Me.Label4.Location = New System.Drawing.Point(12, 61)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(68, 13) Me.Label4.Size = New System.Drawing.Size(71, 13)
Me.Label4.TabIndex = 3 Me.Label4.TabIndex = 3
Me.Label4.Text = "Fenster Titel:" Me.Label4.Text = "Fenster Titel:"
' '
@ -111,7 +112,7 @@ Partial Class frmProcessCapture
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(194, 206) Me.Button2.Location = New System.Drawing.Point(197, 155)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(159, 34) Me.Button2.Size = New System.Drawing.Size(159, 34)
Me.Button2.TabIndex = 0 Me.Button2.TabIndex = 0
@ -124,7 +125,7 @@ Partial Class frmProcessCapture
Me.Button1.Enabled = False Me.Button1.Enabled = False
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(15, 206) Me.Button1.Location = New System.Drawing.Point(18, 155)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 34) Me.Button1.Size = New System.Drawing.Size(159, 34)
Me.Button1.TabIndex = 0 Me.Button1.TabIndex = 0
@ -135,7 +136,7 @@ Partial Class frmProcessCapture
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(365, 252) Me.ClientSize = New System.Drawing.Size(362, 199)
Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
@ -148,6 +149,7 @@ Partial Class frmProcessCapture
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmProcessCapture" Me.Name = "frmProcessCapture"
Me.Text = "Prozess Auswertung" Me.Text = "Prozess Auswertung"
Me.TopMost = True
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

20
app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb generated
View File

@ -22,12 +22,16 @@ Partial Class frmProfileMatch
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.TileControlMatch = New DevExpress.XtraEditors.TileControl() Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup() Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup() Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup()
Me.TileGroupData = New DevExpress.XtraEditors.TileGroup() Me.TileGroupData = New DevExpress.XtraEditors.TileGroup()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AblaufSucheAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label1 'Label1
@ -63,6 +67,7 @@ Partial Class frmProfileMatch
Me.TileControlMatch.AppearanceItem.Normal.Options.UseFont = True Me.TileControlMatch.AppearanceItem.Normal.Options.UseFont = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseForeColor = True Me.TileControlMatch.AppearanceItem.Normal.Options.UseForeColor = True
Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TileControlMatch.ContextMenuStrip = Me.ContextMenuStrip1
Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData) Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData)
Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments) Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments)
@ -91,6 +96,18 @@ Partial Class frmProfileMatch
Me.TileGroupData.Name = "TileGroupData" Me.TileGroupData.Name = "TileGroupData"
Me.TileGroupData.Text = "Daten" Me.TileGroupData.Text = "Daten"
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufSucheAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48)
'
'AblaufSucheAnzeigenToolStripMenuItem
'
Me.AblaufSucheAnzeigenToolStripMenuItem.Name = "AblaufSucheAnzeigenToolStripMenuItem"
Me.AblaufSucheAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
Me.AblaufSucheAnzeigenToolStripMenuItem.Text = "Ablauf Suche anzeigen"
'
'frmProfileMatch 'frmProfileMatch
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -108,6 +125,7 @@ Partial Class frmProfileMatch
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Profile Match" Me.Text = "Profile Match"
Me.TopMost = True Me.TopMost = True
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -117,4 +135,6 @@ Partial Class frmProfileMatch
Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents AblaufSucheAnzeigenToolStripMenuItem As ToolStripMenuItem
End Class End Class

3
app/DD_Clipboard_Searcher/frmProfileMatch.resx
View File

@ -117,6 +117,9 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

7
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@ -37,7 +37,7 @@ Public Class frmProfileMatch
End If End If
If oCreatedTiles = 0 Then If oCreatedTiles = 0 Then
Logger.Warn("No Results found for {0}", CURRENT_CLIPBOARD_CONTENTS) Logger.Warn("No Results found for ""{0}""", CURRENT_CLIPBOARD_CONTENTS)
Me.Close() Me.Close()
End If End If
@ -155,6 +155,7 @@ Public Class frmProfileMatch
ConfigManager.Config.MatchWindowSize = Size ConfigManager.Config.MatchWindowSize = Size
ConfigManager.Config.MatchWindowLocation = Location ConfigManager.Config.MatchWindowLocation = Location
ConfigManager.Save() ConfigManager.Save()
CURRENT_CLIPBOARD_CONTENTS = Nothing
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message) Logger.Info("Error in Save FormLayout: " & ex.Message)
@ -234,5 +235,7 @@ Public Class frmProfileMatch
End If End If
End Sub End Sub
Private Sub AblaufSucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AblaufSucheAnzeigenToolStripMenuItem.Click
frmTreeView.ShowDialog()
End Sub
End Class End Class

27
app/DD_Clipboard_Searcher/frmResultDoc.vb
View File

@ -52,6 +52,7 @@ Public Class frmResultDoc
Public TabIndex As Integer Public TabIndex As Integer
Public TabCaption As String Public TabCaption As String
Public ProfileId As Integer Public ProfileId As Integer
Public SQLCommand As String
End Class End Class
Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
@ -115,7 +116,8 @@ Public Class frmResultDoc
.DataTable = oDatatable, .DataTable = oDatatable,
.ProfileId = oProfileId, .ProfileId = oProfileId,
.TabCaption = oTabTitle, .TabCaption = oTabTitle,
.TabIndex = oCounter .TabIndex = oCounter,
.SQLCommand = oSQL
}) })
oCounter += 1 oCounter += 1
@ -150,7 +152,11 @@ Public Class frmResultDoc
Return Nothing Return Nothing
End Try End Try
End Function End Function
Sub Filter_EventTab(FilterCount As Integer)
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
Dim oTabTitle = DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
XtraTabControlDocs.TabPages(TabIndex).Text = $"{oTabTitle} ({FilterCount} Filtered)"
End Sub
Sub RefreshTabDoc(ProfileId As Integer, Datatable As DataTable, TabIndex As Integer, TabCaption As String) Sub RefreshTabDoc(ProfileId As Integer, Datatable As DataTable, TabIndex As Integer, TabCaption As String)
Try Try
Dim myGridControl As GridControl = GridControlDocSearch1 Dim myGridControl As GridControl = GridControlDocSearch1
@ -536,6 +542,7 @@ Public Class frmResultDoc
tslblState.Text = "" tslblState.Text = ""
End Try End Try
End Sub End Sub
Sub ReLoad_Active_DocTab() Sub ReLoad_Active_DocTab()
Try Try
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
@ -647,4 +654,20 @@ Public Class frmResultDoc
ShouldReturnToMatchForm = True ShouldReturnToMatchForm = True
Close() Close()
End Sub End Sub
Private Sub GridViewDocSearch1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch1.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch1.RowCount)
End Sub
Private Sub GridViewDocSearch2_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch2.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch2.RowCount)
End Sub
Private Sub GridViewDocSearch3_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch3.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch3.RowCount)
End Sub
Private Sub GridViewDocSearch4_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch4.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch4.RowCount)
End Sub
Private Sub GridViewDocSearch5_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch5.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch5.RowCount)
End Sub
End Class End Class

8
app/DD_Clipboard_Searcher/frmResultSQL.vb
View File

@ -35,7 +35,7 @@ Public Class frmResultSQL
_frmProfileMatch = ProfileMatchForm _frmProfileMatch = ProfileMatchForm
End Sub End Sub
Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load Private Async Sub frmResultSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not ConfigManager.Config.ResultDataWindowSize.IsEmpty Then If Not ConfigManager.Config.ResultDataWindowSize.IsEmpty Then
Size = ConfigManager.Config.ResultDataWindowSize Size = ConfigManager.Config.ResultDataWindowSize
End If End If
@ -49,7 +49,9 @@ Public Class frmResultSQL
GridViewDataSearch1.ShowLoadingPanel() GridViewDataSearch1.ShowLoadingPanel()
Dim oSearches = Await LoadSearchesAsync() Dim oSearches = Await LoadSearchesAsync()
If oSearches.Count = 0 Then
Me.Close()
End If
For Each oSearch In oSearches For Each oSearch In oSearches
RefreshTabData(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption) RefreshTabData(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption)
Next Next
@ -57,7 +59,7 @@ Public Class frmResultSQL
GridViewDataSearch1.HideLoadingPanel() GridViewDataSearch1.HideLoadingPanel()
End Sub End Sub
Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmResultSQL_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try Try
ConfigManager.Config.ResultDataWindowSize = Size ConfigManager.Config.ResultDataWindowSize = Size
ConfigManager.Config.ResultDataWindowLocation = Location ConfigManager.Config.ResultDataWindowLocation = Location

1
app/DD_Clipboard_Searcher/frmSplash.Designer.vb generated
View File

@ -106,6 +106,7 @@ Partial Class frmSplash
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmSplash" Me.Name = "frmSplash"
Me.ShowIcon = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmSplash" Me.Text = "frmSplash"
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()

6724
app/DD_Clipboard_Searcher/frmSplash.resx
View File

File diff suppressed because it is too large Load Diff

66
app/DD_Clipboard_Searcher/frmStart.Designer.vb generated
View File

@ -28,19 +28,21 @@ Partial Class frmStart
Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel() Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.labelVersion = New System.Windows.Forms.ToolStripStatusLabel() Me.lblrefresh = New System.Windows.Forms.ToolStripStatusLabel()
Me.TimerClose = New System.Windows.Forms.Timer(Me.components) Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.labelHotkey = New System.Windows.Forms.Label() Me.labelHotkey = New System.Windows.Forms.Label()
Me.btnUserConfig = New System.Windows.Forms.Button() Me.btnUserConfig = New System.Windows.Forms.Button()
Me.btnAdminConfig = New System.Windows.Forms.Button() Me.btnAdminConfig = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.cmstrpNotifyIcon.SuspendLayout() Me.cmstrpNotifyIcon.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.ContextMenuStripForm.SuspendLayout() Me.ContextMenuStripForm.SuspendLayout()
@ -61,7 +63,7 @@ Partial Class frmStart
' '
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem}) Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem})
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon" Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 92) Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 70)
' '
'tsmiChangeState 'tsmiChangeState
' '
@ -78,9 +80,16 @@ Partial Class frmStart
Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen" Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
' '
'ClientBeendenToolStripMenuItem
'
Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
'
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.labelVersion}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.lblrefresh})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 154) Me.StatusStrip1.Location = New System.Drawing.Point(0, 154)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(345, 22) Me.StatusStrip1.Size = New System.Drawing.Size(345, 22)
@ -95,12 +104,10 @@ Partial Class frmStart
Me.labelUser.Size = New System.Drawing.Size(37, 17) Me.labelUser.Size = New System.Drawing.Size(37, 17)
Me.labelUser.Text = "{0}" Me.labelUser.Text = "{0}"
' '
'labelVersion 'lblrefresh
' '
Me.labelVersion.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Information_16xMD_color Me.lblrefresh.Name = "lblrefresh"
Me.labelVersion.Name = "labelVersion" Me.lblrefresh.Size = New System.Drawing.Size(0, 17)
Me.labelVersion.Size = New System.Drawing.Size(78, 17)
Me.labelVersion.Text = "Version {0}"
' '
'TimerClose 'TimerClose
' '
@ -145,6 +152,17 @@ Partial Class frmStart
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Aktuelle Tastenkombination:" Me.GroupBox1.Text = "Aktuelle Tastenkombination:"
' '
'Label2
'
Me.Label2.Dock = System.Windows.Forms.DockStyle.Top
Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(3, 17)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(312, 13)
Me.Label2.TabIndex = 14
Me.Label2.Text = "Zwischenablage gefolgt von:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'labelHotkey 'labelHotkey
' '
Me.labelHotkey.Dock = System.Windows.Forms.DockStyle.Bottom Me.labelHotkey.Dock = System.Windows.Forms.DockStyle.Bottom
@ -179,23 +197,19 @@ Partial Class frmStart
Me.btnAdminConfig.Text = "Administration" Me.btnAdminConfig.Text = "Administration"
Me.btnAdminConfig.UseVisualStyleBackColor = True Me.btnAdminConfig.UseVisualStyleBackColor = True
' '
'Label2 'ImageList1
' '
Me.Label2.Dock = System.Windows.Forms.DockStyle.Top Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(3, 17) Me.ImageList1.Images.SetKeyName(0, "WorkItem_32xMD.png")
Me.Label2.Name = "Label2" Me.ImageList1.Images.SetKeyName(1, "key_16xLG.png")
Me.Label2.Size = New System.Drawing.Size(312, 13) Me.ImageList1.Images.SetKeyName(2, "ResultstoFile_9946.png")
Me.Label2.TabIndex = 14 Me.ImageList1.Images.SetKeyName(3, "WindowsForm_817.ico")
Me.Label2.Text = "Zwischenablage gefolgt von:" Me.ImageList1.Images.SetKeyName(4, "process_16xMD.png")
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
' '
'ClientBeendenToolStripMenuItem 'TimerRefresh
' '
Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel Me.TimerRefresh.Interval = 120000
Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
' '
'frmStart 'frmStart
' '
@ -241,7 +255,9 @@ Partial Class frmStart
Friend WithEvents labelHotkey As Label Friend WithEvents labelHotkey As Label
Friend WithEvents btnUserConfig As Button Friend WithEvents btnUserConfig As Button
Friend WithEvents btnAdminConfig As Button Friend WithEvents btnAdminConfig As Button
Friend WithEvents labelVersion As ToolStripStatusLabel
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents ClientBeendenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ClientBeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ImageList1 As ImageList
Friend WithEvents TimerRefresh As Timer
Friend WithEvents lblrefresh As ToolStripStatusLabel
End Class End Class

62
app/DD_Clipboard_Searcher/frmStart.resx
View File

@ -4655,6 +4655,68 @@
<metadata name="ContextMenuStripForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStripForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>528, 17</value> <value>528, 17</value>
</metadata> </metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>707, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
CwAAAk1TRnQBSQFMAgEBBQEAARgBAAEYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/4UABvQ5AAH0AfAB9AJt
AfQB8AH0NwAB9AHwARQBbQITAW0BFAHwAfQ2AAL0AW0BkgL0AZIBbQP0NQAB9AFtAeoB9AKSAfQBEwFt
AfQB8AH0NAAB9AFtAeoB9AKSAfQBEwFtAbwBFAHwAfQzAAL0AW0BkgL0AZIBbQH0AQcBbQL0MwAB9AHw
ARQBbQITAW0BFAHwAfQBEwFtAfQ0AAH0AfAB9AJtAfQB8AHxAfQBEwFtAfQ1AAP0AbwBBwL0AZIBbQL0
NgAB9AHwARQBbQITAW0BFAHwAfQ3AAH0AfAB9AJtAfQB8AH0OQAG9JcADPQZAAH0GgAB9AoUAfQUAAL0
AgAD9BkAAfQKFAH0AQAP9AMAAfQBvAHtAvQB8AEUAfQZAAH0AhQG9AIUAfQBAAH0DRQB9AQAAfQB6gEU
AbwCFAH0BwAF9AEABvQGAAH0AhQG9AIUAfQBAAH0ARQL9AEUAfQEAAH/AfQEFAH0Af8GAAH0ARQB9AEU
AvQB8wFtAhQBbQHzAfQFAAH0AhQG9AIUAfQBAAH0ARQB9AMUBfQBFAH0ARQB9AQAAfQB8AQUARMB9AH/
BAAC9AEUAfQBFAL0AW0EFAFtAfQFAAH0AhQG9AIUAfQBAAH0ARQF9AUUAfQBFAH0AwAB9AHwBhQBEwP0
AgAB9AcUARMC8gIUAfIFAAH0AhQG9AIUAfQBAAH0ARQL9AEUAfQDAAH0AQcCFAETBhQB8wH0AQAB9AcU
ARMC8gIUAfQDAAP0Ae8BFAb0AhQB9AEAAfQBFAH0AxQF9AEUAfQBFAH0BAAE9AETBBQBbQH0AgAH9AFt
BBQBbQH0AwAB9AG0AYoBtAHvBPQDFAHsAfQBAAH0ARQF9AUUAfQBFAH0BwAB/wH0ARMCFAHsAfQJAAH0
AfMBbQIUAW0B8wH0AQAE9AG0AYoBtAT0AhQB7AH0Af8BAAH0ARQL9AEUAfQIAAH0AbwBFAHsAfQLAAb0
AgAB9AaKAbQB7wMUAewB9AH/AgAB9A0UAfQJAAH0AewB9BQAAfQGigG0Ae8CFAHsAfQB/wMAAfQNFAH0
CQAC9BUABPQBtAGKAbQF9AH/BAAP9CIAAfQBtAGKAbQB9AH/OgAE9AH/GQABQgFNAT4HAAE+AwABKAMA
AUADAAEgAwABAQEAAQEGAAEBFgAD/wEAAv8GAAL/BgAB8AE/BgAB4AEfBgABwAEPBgABwAEHBgABwAED
BgABwAEBBgABwAEBBgABwAEBBgAB4AEBBgAB8AEBBgAB+AEBBgAB/AEDBgAB/gEHBgAC/wYABP8B8AEA
A/8BvwL/AfABAAL/AfMBHwL/AfABAAGAAQAB4AEfAv8B8AEAAYABAAHwAR8BwQEDAfABAAGAAQAB8AEP
AcABAQHwAQABgAEAAfABBwGAAQEB8AEAAYABAAHgAQEBgAEBAfABAAGAAQAB4AEAAYABAQHAAQABgAEA
AfABAQGAAQEBwAEAAYABAAH+AQMB/gEBAgABgAEAAf8BBwH/AQMBAAEBAYABAAH/AY8C/wEAAQMBgAEA
Af8BnwL/AQABBwGAAQAE/wHAB/8BwQP/Cw==
</value>
</data>
<metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>817, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAEAAAAAAAEAIAAoIAQAFgAAACgAAAAAAQAAAAIAAAEAIAAAAAAAACAEABMLAAATCwAAAAAAAAAA AAABAAEAAAAAAAEAIAAoIAQAFgAAACgAAAAAAQAAAAIAAAEAIAAAAAAAACAEABMLAAATCwAAAAAAAAAA

62
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -3,6 +3,8 @@ Imports System.IO
Imports System.Globalization Imports System.Globalization
Imports DD_LIB_Standards Imports DD_LIB_Standards
Imports DD_Clipboard_Watcher.ClassConstants Imports DD_Clipboard_Watcher.ClassConstants
Imports System.Windows.Automation
Imports DD_Clipboard_Watcher.ClassWindowAPI
Public Class frmStart Public Class frmStart
Dim WithEvents Hotkey As New ClassHotkey(Me) Dim WithEvents Hotkey As New ClassHotkey(Me)
@ -56,7 +58,6 @@ Public Class frmStart
End If End If
labelUser.Text = String.Format(labelUser.Text, USER_USERNAME) labelUser.Text = String.Format(labelUser.Text, USER_USERNAME)
labelVersion.Text = String.Format(labelVersion.Text, My.Application.Info.Version.ToString)
labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}") labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
End Sub End Sub
@ -109,33 +110,61 @@ Public Class frmStart
Dim oWindowInfo = ClassWindowAPI.GetWindowInfo() Dim oWindowInfo = ClassWindowAPI.GetWindowInfo()
Dim ClipboardContents As String = Clipboard.GetText() Dim ClipboardContents As String = Clipboard.GetText()
Dim oProfileFilter As ClassProfileFilter Dim oProfileFilter As ClassProfileFilter
Dim newoResult As IntPtr = FocusedControlinActiveWindow(Handle)
Try Try
oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW, DTPROFILE_REL_CONTROL) oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_PROCESS, DTPROFILE_REL_WINDOW, DTPROFILE_REL_CONTROL)
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.", MsgBoxStyle.Critical, Text) MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.", MsgBoxStyle.Critical, Text)
Exit Sub Exit Sub
End Try End Try
Dim oProfiles = oProfileFilter.Profiles.AsEnumerable() Dim oProfiles = oProfileFilter.Profiles.AsEnumerable()
CurrMatchTreeView.Nodes.Clear()
CurrMatchTreeView.ImageList = ImageList1
CurrMatchTreeView.SelectedImageIndex = 0
oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle) If oProfiles.Count > 0 Then
oProfiles = oProfileFilter.FilterWindowsByWindowClipboardRegex(oProfiles, ClipboardContents) oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents) If oProfiles.Count > 0 Then
oProfiles = oProfileFilter.RemoveDuplicateProfiles() oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle)
If oProfiles.Count > 0 Then
' Dim ControlFocusResult
Dim oResult As WindowInfo = GetFocusedControl(Handle)
'Automation = New ClassAutomation(LogConfig)
'If Not IsNothing(Automation.AutomationId) Then
' ControlFocusResult = Automation.AutomationId
'Else
' ControlFocusResult = String.Empty
'End If
' MsgBox(newoResult.ToString)
oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, newoResult.ToString)
'oProfiles = oProfileFilter.FilterWindowsByWindowClipboardRegex(oProfiles, ClipboardContents)
End If
End If
End If
'oProfiles = oProfileFilter.RemoveDuplicateProfiles()
oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles)
oProfiles = oProfiles.ToList() oProfiles = oProfiles.ToList()
CURRENT_MATCHING_PROFILES = oProfiles CURRENT_MATCHING_PROFILES = oProfiles
CURRENT_CLIPBOARD_CONTENTS = ClipboardContents CURRENT_CLIPBOARD_CONTENTS = ClipboardContents
End Sub End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
If HotKeyID = HOTKEY_TRIGGER_WATCHER Then If HotKeyID = HOTKEY_TRIGGER_WATCHER Then
If CURRENT_MATCHING_PROFILES.Count > 0 And MONITORING_ACTIVE = True Then If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
CHECK_PROFILE_MATCH() If CURRENT_MATCHING_PROFILES.Count > 0 And MONITORING_ACTIVE = True Then
CHECK_PROFILE_MATCH()
End If
End If End If
ElseIf HotKeyID = HOTKEY_TOGGLE_WATCHER Then ElseIf HotKeyID = HOTKEY_TOGGLE_WATCHER Then
Change_Monitoring_State() Change_Monitoring_State()
End If End If
@ -227,6 +256,7 @@ Public Class frmStart
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
btnAdminConfig.Visible = True btnAdminConfig.Visible = True
End If End If
TimerRefresh.Start()
End Sub End Sub
Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
@ -296,8 +326,18 @@ Public Class frmStart
End Sub End Sub
Private Sub ClientBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientBeendenToolStripMenuItem.Click Private Sub ClientBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientBeendenToolStripMenuItem.Click
Shut_Down
End Sub
Sub Shut_Down()
If MsgBox("Wollen Sie das Programm beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then If MsgBox("Wollen Sie das Programm beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
Close() Close()
End If End If
End Sub End Sub
Private Sub TimerRefresh_Tick(sender As Object, e As EventArgs) Handles TimerRefresh.Tick
ClassInit.Refresh_Profile_Links()
lblrefresh.Text =
ClassInit.CheckModuleData()
lblrefresh.Text = $"Refreshed: {Now.ToShortTimeString} - UserLoggedIn: {USERCOUNT_LOGGED_IN}"
End Sub
End Class End Class

81
app/DD_Clipboard_Searcher/frmTreeView.Designer.vb generated Normal file
View File

@ -0,0 +1,81 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTreeView
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTreeView))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 463)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1"
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeView1.Location = New System.Drawing.Point(0, 0)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Size = New System.Drawing.Size(933, 463)
Me.TreeView1.TabIndex = 2
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "WorkItem_32xMD.png")
Me.ImageList1.Images.SetKeyName(1, "key_16xLG.png")
Me.ImageList1.Images.SetKeyName(2, "ResultstoFile_9946.png")
Me.ImageList1.Images.SetKeyName(3, "WindowsForm_817.ico")
Me.ImageList1.Images.SetKeyName(4, "process_16xMD.png")
'
'frmTreeView
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 485)
Me.Controls.Add(Me.TreeView1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmTreeView"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Ablauf Suchalgorithmus"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents TreeView1 As TreeView
Friend WithEvents ImageList1 As ImageList
End Class

216
app/DD_Clipboard_Searcher/frmTreeView.resx Normal file
View File

@ -0,0 +1,216 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
CwAAAk1TRnQBSQFMAgEBBQEAARgBAAEYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/4UABvQ5AAH0AfAB9AJt
AfQB8AH0NwAB9AHwARQBbQITAW0BFAHwAfQ2AAL0AW0BkgL0AZIBbQP0NQAB9AFtAeoB9AKSAfQBEwFt
AfQB8AH0NAAB9AFtAeoB9AKSAfQBEwFtAbwBFAHwAfQzAAL0AW0BkgL0AZIBbQH0AQcBbQL0MwAB9AHw
ARQBbQITAW0BFAHwAfQBEwFtAfQ0AAH0AfAB9AJtAfQB8AHxAfQBEwFtAfQ1AAP0AbwBBwL0AZIBbQL0
NgAB9AHwARQBbQITAW0BFAHwAfQ3AAH0AfAB9AJtAfQB8AH0OQAG9JcADPQZAAH0GgAB9AoUAfQUAAL0
AgAD9BkAAfQKFAH0AQAP9AMAAfQBvAHtAvQB8AEUAfQZAAH0AhQG9AIUAfQBAAH0DRQB9AQAAfQB6gEU
AbwCFAH0BwAF9AEABvQGAAH0AhQG9AIUAfQBAAH0ARQL9AEUAfQEAAH/AfQEFAH0Af8GAAH0ARQB9AEU
AvQB8wFtAhQBbQHzAfQFAAH0AhQG9AIUAfQBAAH0ARQB9AMUBfQBFAH0ARQB9AQAAfQB8AQUARMB9AH/
BAAC9AEUAfQBFAL0AW0EFAFtAfQFAAH0AhQG9AIUAfQBAAH0ARQF9AUUAfQBFAH0AwAB9AHwBhQBEwP0
AgAB9AcUARMC8gIUAfIFAAH0AhQG9AIUAfQBAAH0ARQL9AEUAfQDAAH0AQcCFAETBhQB8wH0AQAB9AcU
ARMC8gIUAfQDAAP0Ae8BFAb0AhQB9AEAAfQBFAH0AxQF9AEUAfQBFAH0BAAE9AETBBQBbQH0AgAH9AFt
BBQBbQH0AwAB9AG0AYoBtAHvBPQDFAHsAfQBAAH0ARQF9AUUAfQBFAH0BwAB/wH0ARMCFAHsAfQJAAH0
AfMBbQIUAW0B8wH0AQAE9AG0AYoBtAT0AhQB7AH0Af8BAAH0ARQL9AEUAfQIAAH0AbwBFAHsAfQLAAb0
AgAB9AaKAbQB7wMUAewB9AH/AgAB9A0UAfQJAAH0AewB9BQAAfQGigG0Ae8CFAHsAfQB/wMAAfQNFAH0
CQAC9BUABPQBtAGKAbQF9AH/BAAP9CIAAfQBtAGKAbQB9AH/OgAE9AH/GQABQgFNAT4HAAE+AwABKAMA
AUADAAEgAwABAQEAAQEGAAEBFgAD/wEAAv8GAAL/BgAB8AE/BgAB4AEfBgABwAEPBgABwAEHBgABwAED
BgABwAEBBgABwAEBBgABwAEBBgAB4AEBBgAB8AEBBgAB+AEBBgAB/AEDBgAB/gEHBgAC/wYABP8B8AEA
A/8BvwL/AfABAAL/AfMBHwL/AfABAAGAAQAB4AEfAv8B8AEAAYABAAHwAR8BwQEDAfABAAGAAQAB8AEP
AcABAQHwAQABgAEAAfABBwGAAQEB8AEAAYABAAHgAQEBgAEBAfABAAGAAQAB4AEAAYABAQHAAQABgAEA
AfABAQGAAQEBwAEAAYABAAH+AQMB/gEBAgABgAEAAf8BBwH/AQMBAAEBAYABAAH/AY8C/wEAAQMBgAEA
Af8BnwL/AQABBwGAAQAE/wHAB/8BwQP/Cw==
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAD///8AAAAAD493+PAAAAD4d3d3jwAAAP93/3f/AAAA9393938A
AAD3f3f3fwAAAP93/3f///8A+Hd3d493+PAPj3f4d3d3jwD///93/3f/AAAA9393938AAAD3f3f3fwAA
AP93/3f/AAAA+Hd3d48AAAAPj3f48AAAAAD///8AwP8AAIB/AAAAPwAAAD8AAAA/AAAAPwAAAAMAAAAB
AACAAAAAwAAAAPwAAAD8AAAA/AAAAPwAAAD+AQAA/wMAACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBYWFgAb29vAJqZmQCzs7MA1NTUAPHv8AD29vYA+vr6AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAKCQkJCQoAAAAAAAAAAAAJBwkEBAkHCQAAAAAAAAAKBwEEAgIEAQcK
AAAAAAAACQkEBQgIBQQJCQAAAAAAAAkEAwgFBQgCBAkAAAAAAAAJBAMIBQUIAgQJAAAAAAAACQkEBQgI
BQQJCQkJCQoAAAoHAQQCAgQBBgkEBAkHCQAACQcJBAQJBgEEAwMEAQcKAAAKCQkJCQkEBQgIBQQJCQAA
AAAAAAkEAwgFBQgCBAkAAAAAAAAJBAMIBQUIAgQJAAAAAAAACQkEBQgIBQQJCQAAAAAAAAoHAQQCAgQB
BwoAAAAAAAAACQcJBAQJBwkAAAAAAAAAAAAKCQkJCQoAAMD/AACAfwAAAD8AAAA/AAAAPwAAAD8AAAAD
AAAAAQAAgAAAAMAAAAD8AAAA/AAAAPwAAAD8AAAA/gEAAP8DAAA=
</value>
</data>
</root>

21
app/DD_Clipboard_Searcher/frmTreeView.vb Normal file
View File

@ -0,0 +1,21 @@
Public Class frmTreeView
Private Sub frmTreeView_Load(sender As Object, e As EventArgs) Handles Me.Load
TreeView1.Nodes.Clear()
TreeView1.ImageList = ImageList1
If Not IsNothing(CurrMatchTreeView) Then
CurrMatchTreeView.BeginUpdate()
For Each node As TreeNode In CurrMatchTreeView.Nodes
If IsNothing(node.Tag) Then
node.ImageIndex = 0
Else
node.ImageIndex = 2
End If
TreeView1.Nodes.Add(node.Clone)
Next
CurrMatchTreeView.EndUpdate()
End If
TreeView1.ExpandAll()
End Sub
End Class

5
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@ -51,7 +51,6 @@ Module modCurrent
Public DT_USER_PROFILES As DataTable Public DT_USER_PROFILES As DataTable
Public DT_CONNECTIONS As MyDataset.TBDD_CONNECTIONDataTable Public DT_CONNECTIONS As MyDataset.TBDD_CONNECTIONDataTable
Public CLIPBOARD_TEXT As String
Public CURRENT_MATCHING_PROFILES As New List(Of ClassProfileFilter.ProfileData) Public CURRENT_MATCHING_PROFILES As New List(Of ClassProfileFilter.ProfileData)
Public CURRENT_CLIPBOARD_CONTENTS Public CURRENT_CLIPBOARD_CONTENTS
@ -65,10 +64,14 @@ Module modCurrent
Public CLIENT_SELECTED As Integer = 0 Public CLIENT_SELECTED As Integer = 0
Public CurrDT_PROFILE_MATCH As DataTable Public CurrDT_PROFILE_MATCH As DataTable
Public DTPROFILE_REL_PROCESS As DataTable
Public DTPROFILE_REL_WINDOW As DataTable Public DTPROFILE_REL_WINDOW As DataTable
Public DTPROFILE_REL_CONTROL As DataTable Public DTPROFILE_REL_CONTROL As DataTable
Public CURRENT_DT_DOC_SEARCHES As DataTable Public CURRENT_DT_DOC_SEARCHES As DataTable
Public CURRENT_DT_DATA_SEARCHES As DataTable Public CURRENT_DT_DATA_SEARCHES As DataTable
Public CurrSearchOpen As Boolean = False Public CurrSearchOpen As Boolean = False
Public CurrMatchTreeView As New TreeView
End Module End Module