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

DocCount und anderes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-07-12 11:03:46 +02:00
parent feafd96cb6
commit 6d9f41ea09
20 changed files with 1315 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
app/DD_Clipboard_Searcher/frmStart.vb
View File

@@ -23,7 +23,7 @@ Public Class frmStart
Exit Sub
End If
CURR_MATCH_RESULT = Nothing
CURR_MATCH_WM_SEARCH = Nothing
'CURR_MATCH_WM_SEARCH = Nothing
If MONITORING_ACTIVE = False Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Exit Sub
@@ -44,6 +44,7 @@ Public Class frmStart
Dim oDTMatchProfiles As DataTable = New DataTable
oDTMatchProfiles.Columns.Add("GUID")
oDTMatchProfiles.Columns.Add("NAME")
oDTMatchProfiles.Columns.Add("COUNT")
oDTMatchProfiles.Columns.Add("COMMENT")
For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
@@ -57,15 +58,27 @@ Public Class frmStart
' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
CURR_MATCH_RESULT = match.Groups(0).Value
If Not IsNothing(CURR_MATCH_RESULT) Then
CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
'CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
Dim oSQL_COUNT As String = oProfileRow.Item("SQL_COUNT_RESULT")
Dim oRESULTDocs As Integer
If oSQL_COUNT <> String.Empty Then
oSQL_COUNT = clsPatterns.ReplaceAllValues(oSQL_COUNT, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileRow.Item("GUID"))
Try
oRESULTDocs = ClassDatabase.Execute_Scalar(oSQL_COUNT, MyConnectionString)
Catch ex As Exception
oRESULTDocs = 99999
End Try
Else
oRESULTDocs = 99998
End If
Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
onewMatchRow("GUID") = oProfileRow.Item("GUID")
onewMatchRow("NAME") = oProfileRow.Item("NAME")
onewMatchRow("COMMENT") = oProfileRow.Item("COMMENT")
onewMatchRow("COUNT") = oRESULTDocs
oDTMatchProfiles.Rows.Add(onewMatchRow)
found = True
End If
'Else
' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", String.Format("Clipboard Watcher fired but Clipboardcontent is equal: '{0}'", CURR_MATCH_RESULT), ToolTipIcon.Info)
@@ -82,6 +95,7 @@ Public Class frmStart
CurrDT_PROFILE_MATCH = Nothing
Else
CurrDT_PROFILE_MATCH = oDTMatchProfiles
End If
End Sub
@@ -198,8 +212,19 @@ Public Class frmStart
End Sub
Sub CHECK_PROFILE_MATCH()
If CurrDT_PROFILE_MATCH.Rows.Count = 1 Then
frmProfileMatch.ShowDialog()
clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
If CurrDT_PROFILE_MATCH.Rows(0).Item("COUNT") = 99999 Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your MatchCountConfig in Profiles!", ToolTipIcon.Info)
Exit Sub
ElseIf CurrDT_PROFILE_MATCH.Rows(0).Item("COUNT") = 99998 Then
NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but MatchCountConfig is not configured!", ToolTipIcon.Info)
End If
CurrDocSearch2Load = CurrDT_PROFILE_MATCH.Rows(0).Item("GUID")
frmResultDoc.Show()
'frmProfileMatch.ShowDialog()
'clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
Else
frmProfileMatch.ShowDialog()
End If