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

Referenzen glattgezogen und MSI Paket neu konfiguriert

Browse Source
This commit is contained in:
Developer01
2026-05-04 14:35:33 +02:00
parent 45159b9ffc
commit bc75ea0d55
24 changed files with 528 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_Clipboard_Searcher/ClassDataASorDB.vb
View File

@@ -38,14 +38,14 @@ Public Class ClassDataASorDB
DT_LOGIN_USER_MODULE = MyDB_DDECM.GetDatatable(oSql)
If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
modCurrent._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_LOGIN_USER_MODULE.Rows.Count = 1 Then
Logger.Info(">> Login Username: " & USER_USERNAME, False)
Logger.Info(">> Login time: " & Now.ToString, False)
modCurrent._Logger.Info(">> Login Username: " & USER_USERNAME, False)
modCurrent._Logger.Info(">> Login time: " & Now.ToString, False)
USER_ID = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SURNAME"))
USER_PRENAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_PRENAME"))
@@ -70,14 +70,14 @@ Public Class ClassDataASorDB
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
Dim oMode As String
For Each oMode In oSplitWorkMode
Logger.Debug($"oWorkingMode Parameter: {oMode}")
modCurrent._Logger.Debug($"oWorkingMode Parameter: {oMode}")
If oMode = "NO_BASICCONF" Then
Logger.Info($"NO_BASICCONF will be set to false")
modCurrent._Logger.Info($"NO_BASICCONF will be set to false")
BASIC_CONF_VISIBLE = False
ElseIf oMode.StartsWith("NOMATCH_INFO") Then
Try
Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
Logger.Info($"NOMATCH_INFO will be set to {oResult}")
modCurrent._Logger.Info($"NOMATCH_INFO will be set to {oResult}")
NOMATCH_INFO = CBool(oResult)
Catch ex As Exception
NOMATCH_INFO = False
@@ -85,7 +85,7 @@ Public Class ClassDataASorDB
ElseIf oMode.StartsWith("HotkeySearchKey") Then
Try
Dim oResult = oMode.Replace("HotkeySearchKey=", "")
Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
modCurrent._Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True
Catch ex As Exception
@@ -93,12 +93,12 @@ Public Class ClassDataASorDB
End Try
Else
Logger.Info($"Wrong oMode [{oMode}]")
modCurrent._Logger.Info($"Wrong oMode [{oMode}]")
End If
Next
Return True
Else
Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
modCurrent._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.")
@@ -106,7 +106,7 @@ Public Class ClassDataASorDB
Return False
End If
Catch ex As Exception
Logger.Error(ex)
modCurrent._Logger.Error(ex)
Return False
End Try
@@ -131,7 +131,7 @@ Public Class ClassDataASorDB
DT_CONNECTIONS = oDatatable
Catch ex As Exception
Logger.Error(ex)
modCurrent._Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_Connections: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub