MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -3,6 +3,7 @@ Imports DevExpress.XtraSplashScreen
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
 Imports DigitalData.GUIs.ClipboardWatcher
+Imports DigitalData.GUIs.ZooFlow.ClassConstants
 
 Public Class frmFlowForm
     ' Constants
@@ -167,6 +168,27 @@ Public Class frmFlowForm
     Public Sub OnEvent(Params As Object)
         Logger.Debug("OnEvent called!")
     End Sub
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        Cursor = Cursors.WaitCursor
+        If TheFormIsAlreadyLoaded("frmFlowSearch") Then
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
+        Dim oSQL As String = ""
+        For Each oRow As DataRow In My.DTCOMMON_SQL.Rows
+            If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH1 Then
+                oSQL = oRow.Item("SQL_COMMAND")
+            End If
+        Next
+        If oSQL <> String.Empty Then
+            Dim oForm As New frmFlowSearch(oSQL)
+            oForm.Show()
+            oForm.BringToFront()
+        End If
+
+        Cursor = Cursors.Default
+
+    End Sub
 
     Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
         Cursor = Cursors.WaitCursor
@@ -174,7 +196,9 @@ Public Class frmFlowForm
             Cursor = Cursors.Default
             Exit Sub
         End If
-        Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
+
+
+        Dim oForm As New frmSearchStart(DTIDB_SEARCHES) 'frmFlowSearch(osql) 
         oForm.Show()
         Cursor = Cursors.Default
         If TimerCheckActiveForms.Enabled = False Then
@@ -407,4 +431,7 @@ Public Class frmFlowForm
         My.UIConfig.FlowForm.Location = Location
         My.UIConfigManager.Save()
     End Sub
+
+
+
 End Class