MS Development Zooflow 1.0

GUIs.ZooFlow/frmConfigBasic.vb

@@ -1,7 +1,20 @@
-Public Class frmConfigBasic
+Imports DigitalData.Modules
+
+Public Class frmConfigBasic
+    Private FormLoaded As Boolean = False
     Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LoadScreens()
         CheckButtonDEBUG.Checked = My.LogConfig.Debug
+        For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
+            If orow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then
+                Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
+                Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
+            ElseIf orow.Item("CAT_TITLE") = "QUICKSEARCH1_POS" Then
+                Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
+                Quicksearch1CB_Pos.Tag = orow.Item("GUID")
+            End If
+        Next
+
     End Sub
 
     Private Sub LoadScreens()
@@ -21,7 +34,7 @@
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Process.Start(Windows.Forms.Application.LocalUserAppDataPath)
+        Process.Start(System.Windows.Forms.Application.LocalUserAppDataPath)
     End Sub
 
     Private Sub CheckButtonDEBUG_Click(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.Click
@@ -38,4 +51,48 @@
         End If
         My.UIConfigManager.Save()
     End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Try
+            Dim oUpd = "UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '', CAT_STRING  = "
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+
+
+    Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        FormLoaded = True
+    End Sub
+
+    Private Sub Quicksearch1CB_Pos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Quicksearch1CB_Pos.SelectedIndexChanged
+        If FormLoaded = False Then
+            Exit Sub
+        End If
+        Try
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{Quicksearch1CB_Pos.EditValue}'
+            WHERE GUID  = {Quicksearch1CB_Pos.Tag}"
+            If My.Database.ExecuteNonQuery(oUpd, EDMI.API.Constants.DatabaseType.IDB) = True Then
+                bsiInfo.Caption = "Position Quicksearch1 saved!"
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub Quicksearch1TitleTextBox_Leave(sender As Object, e As EventArgs) Handles Quicksearch1TitleTextBox.Leave
+        If FormLoaded = False Then
+            Exit Sub
+        End If
+        Try
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{Quicksearch1TitleTextBox.Text}'
+            WHERE GUID  = {Quicksearch1TitleTextBox.Tag}"
+            If My.Database.ExecuteNonQuery(oUpd, EDMI.API.Constants.DatabaseType.IDB) = True Then
+                bsiInfo.Caption = "Title Quicksearch1 saved!"
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class