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

MS Anpassungen Views und Spalten

Browse Source
This commit is contained in:
Developer01
2025-02-20 08:26:52 +01:00
parent 81b0e44d45
commit 6945585ca3
20 changed files with 901 additions and 741 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@@ -70,13 +70,13 @@ Public Class ctrlApplicationAssignment
If oProcessName <> "" Then
Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName)
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False
Else
Dim oNewProcessId = Database.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
Dim oNewProcessId = MyDB_DDECM.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO, PROCESS_ID) VALUES ('{0}', '^{1}$', '{2}' ,{3})", oWindowTitle, oWindowTitle, Environment.UserName, oNewProcessId)
If Database.ExecuteNonQuery(oSQL) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False
End If
End If
@@ -97,7 +97,7 @@ Public Class ctrlApplicationAssignment
Try
Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId)
If Database.ExecuteNonQuery(oSQL) Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Process_Load(SelectedProfileId)
Return True
End If
@@ -147,7 +147,7 @@ Public Class ctrlApplicationAssignment
If oWindowTitle <> "" Then
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 MyDB_DDECM.ExecuteNonQuery(insert) = False Then
Return False
End If
End If
@@ -167,7 +167,7 @@ Public Class ctrlApplicationAssignment
Try
Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Process_Load(SelectedProfileId)
Return True
End If
@@ -246,7 +246,7 @@ Public Class ctrlApplicationAssignment
{oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}
)"
If Database.ExecuteNonQuery(oSql) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
Return False
End If
@@ -336,7 +336,7 @@ Public Class ctrlApplicationAssignment
WHERE GUID = {SelectedControlId}
"
If Database.ExecuteNonQuery(oSql) = False Then
If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
Return False
End If
@@ -372,7 +372,7 @@ Public Class ctrlApplicationAssignment
Try
Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Window_Load()
Return True
End If