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

Ms Dev suche

Browse Source
This commit is contained in:
SchreiberM
2022-02-14 17:53:03 +01:00
parent dcf7bc7810
commit 2b00f22a38
9 changed files with 662 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -224,17 +224,22 @@ Public Class frmFlowForm
AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged
PictureBoxSearch1.Visible = False
Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL)
If Not IsNothing(oDatatable) Then
If oDatatable.Rows.Count > 0 Then
'Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
'Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL)
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
IDBSearchActive = True
DTIDB_SEARCHES = oDatatable
PictureBoxSearch1.Visible = True
End If
Next
'If Not IsNothing(oDatatable) Then
' If oDatatable.Rows.Count > 0 Then
' IDBSearchActive = True
' DTIDB_SEARCHES = oDatatable
' PictureBoxSearch1.Visible = True
' End If
End If
'End If
If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then
Try
@@ -298,7 +303,7 @@ Public Class frmFlowForm
End If
oSQL = "SELECT * FROM TBIDB_ATTRIBUTE"
'oSQL = "SELECT * FROM TBIDB_ATTRIBUTE"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("TBIDB_ATTRIBUTE", "SELECT * FROM TBIDB_ATTRIBUTE", EDMI.API.Constants.DatabaseType.IDB)
Me.Cursor = Cursors.Default
@@ -438,21 +443,22 @@ Public Class frmFlowForm
Cursor = Cursors.Default
Exit Sub
End If
Dim oSQLFlowSearch As String = ""
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then
oSQLFlowSearch = oRow.Item("SQL_COMMAND")
'Dim oSQLFlowSearch As String = ""
'For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
' If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then
' oSQLFlowSearch = oRow.Item("SQL_COMMAND")
End If
Next
If oSQLFlowSearch <> String.Empty Then
oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE_ID", My.Application.User.LanguageId)
oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE", My.Application.User.Language)
Dim oForm As New frmFlowSearch1()
oForm.Show()
oForm.BringToFront()
End If
' End If
'Next
'If oSQLFlowSearch <> String.Empty Then
'oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
'oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE_ID", My.Application.User.LanguageId)
'oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE", My.Application.User.Language)
'End If
Dim oForm As New frmFlowSearch1()
oForm.Show()
oForm.BringToFront()
Cursor = Cursors.Default
End Sub