MS Development Zooflow 1.0

GUIs.ZooFlow/frmFlowForm.vb

@@ -314,6 +314,16 @@ Public Class frmFlowForm
         If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then
             Exit Sub
         End If
+        Quicksearch1(False)
+
+        Me.Cursor = Cursors.Default
+    End Sub
+    Sub Quicksearch1(Reload As Boolean)
+        If Reload Then
+            Dim oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
+            My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatableIDB(oSQL)
+
+        End If
         For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
             If oRow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then
                 pnlQuicksearch1.Visible = True
@@ -324,14 +334,9 @@ Public Class frmFlowForm
                 ElseIf oRow.Item("CAT_STRING") = "Bottom" Then
                     pnlQuicksearch1.Dock = DockStyle.Bottom
                 End If
-
-
             End If
         Next
-
-        Me.Cursor = Cursors.Default
     End Sub
-
     Public Sub RegisterBar(ByVal dockEdge As ABEdge)
         AppDeskData = New AppDeskBar()
         AppDeskData.cbSize = Marshal.SizeOf(AppDeskData)
@@ -988,7 +993,6 @@ Public Class frmFlowForm
             oState.CurrentProfilesWithResults = oProfiles.ToList()
         Catch ex As Exception
             Logger.Error(ex)
-            MsgBox("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
         End Try
     End Sub
 
@@ -1060,6 +1064,7 @@ Public Class frmFlowForm
 
     Private Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click
         frmConfigBasic.ShowDialog()
+        Quicksearch1(True)
     End Sub
 
 
@@ -1096,6 +1101,7 @@ Public Class frmFlowForm
             If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
                 Dim oDTDocResult = My.DatabaseIDB.GetDatatable(DocResultBaseSearch)
                 If oDTDocResult.Rows.Count > 0 Then
+                    Logger.Debug($"Quicksearch1 got {oDTDocResult.Rows.Count} results")
                     oParams.Results.Add(New DocumentResultList.DocumentResult() With {
                               .Title = GetResultWindowString(TextEdit1.Text),
                                 .Datatable = oDTDocResult})
@@ -1106,7 +1112,13 @@ Public Class frmFlowForm
                     'OpenForms.Add(oForm)
                     oForm.Show()
                 Else
-                    MsgBox("No Results")
+                    Dim oMessage As String
+                    If My.Application.User.Language = "de-DE" Then
+                        oMessage = "Kein Ergebnis"
+                    Else
+                        oMessage = "No results"
+                    End If
+                    NotifyIcon.ShowBalloonTip(20000, $"Info", oMessage, ToolTipIcon.Info)
                 End If
             End If
 
@@ -1126,15 +1138,45 @@ Public Class frmFlowForm
 
     Sub CheckRunSearch1()
         If TextEdit1.Text <> String.Empty Then
+            If TextEdit1.Text = "porn" Then
+                NotifyIcon.ShowBalloonTip(20000, $"Info", "Think about Your search term an search again..", ToolTipIcon.Info)
+                Exit Sub
+            End If
             RunQuickSearch1()
         End If
     End Sub
     Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
+        If TextEdit1.Text = String.Empty Then
+            Open_FlowSearch()
+            Exit Sub
+        End If
+
         CheckRunSearch1()
     End Sub
 
     Private Sub frmFlowForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
     End Sub
+
+    Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
+        frmConfigBasic.ShowDialog()
+        Quicksearch1(True)
+    End Sub
+
+    Private Sub DatenbankverbindungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem1.Click
+        frmConfigDatabase.ShowDialog()
+    End Sub
+
+    Private Sub NeustartZooflowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeustartZooflowToolStripMenuItem.Click
+        Application.Restart()
+    End Sub
+
+    Private Sub ZooflowBeendenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZooflowBeendenToolStripMenuItem1.Click
+        ExitZooflow()
+    End Sub
+
+    Private Sub AppServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AppServiceToolStripMenuItem.Click
+        frmServiceConfig.ShowDialog()
+    End Sub
 End Class