Zooflow: Add Active Directory User Import

GUIs.ZooFlow/frmConfigBasic.vb

@@ -8,29 +8,35 @@ Public Class frmConfigBasic
     Dim oFormLoaded As Boolean = False
 
     Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        LoadScreens()
-
         Logger = My.LogConfig.GetLogger()
         ToggleSwitchDebug.IsOn = My.LogConfig.Debug
 
-        For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
-            Select Case orow.Item("CAT_TITLE")
+        For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
+            Dim oId = oRow.Item("GUID")
+            Dim oTitle As String = oRow.Item("CAT_TITLE")
+            Dim oValue As String = oRow.ItemEx("CAT_STRING", String.Empty)
+
+            Select Case oTitle
                 Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE
-                    Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
-                    Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
+                    Quicksearch1TitleTextBox.Text = oValue
+                    Quicksearch1TitleTextBox.Tag = oId
+
                 Case ClassConstants.USER_CATALOG_QUICKSEARCH1_POS
-                    Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
-                    Quicksearch1CB_Pos.Tag = orow.Item("GUID")
+                    Quicksearch1CB_Pos.EditValue = oValue
+                    Quicksearch1CB_Pos.Tag = oId
+
+                Case ClassConstants.USER_AD_ROOT_PATH
+                    ADRootPathTextBox.EditValue = oValue
+                    ADRootPathTextBox.Tag = oId
+
                 Case ClassConstants.USER_CATALOG_APPLICATION_THEME
                     Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().
-                        Where(Function(item) item.Value = orow.ItemEx("CAT_STRING", String.Empty)).
+                        Where(Function(item) item.Value = oValue).
                         FirstOrDefault()
 
-
                     If Not IsNothing(oItem) Then
                         SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
                     End If
-
             End Select
         Next
 
@@ -41,16 +47,8 @@ Public Class frmConfigBasic
         oFormLoaded = True
     End Sub
 
-    Private Sub LoadScreens()
-        'cmbScreens.Properties.Items.Clear()
-        'For Each oScreen In Screen.AllScreens
-        '    cmbScreens.Properties.Items.Add(oScreen.DeviceName)
-        'Next
-    End Sub
-
-    Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs)
-        'My.UIConfig.SidebarScreen = cmbScreens.EditValue
-        My.UIConfigManager.Save()
+    Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        FormLoaded = True
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
@@ -62,26 +60,12 @@ Public Class frmConfigBasic
     End Sub
 
 
-    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+    Private Sub SaveCatalogSetting(pKey As Integer, pValue As String)
         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
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{pValue}'
+            WHERE GUID  = {pKey}"
 
-    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, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
+            If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then
                 bsiInfo.Caption = "Position Quicksearch1 saved!"
             End If
         Catch ex As Exception
@@ -89,21 +73,20 @@ Public Class frmConfigBasic
         End Try
     End Sub
 
-    Private Sub Quicksearch1TitleTextBox_Leave(sender As Object, e As EventArgs) Handles Quicksearch1TitleTextBox.Leave
+    Private Sub TextEdit_Leave(sender As Object, e As EventArgs) Handles _
+        Quicksearch1TitleTextBox.Leave,
+        ADRootPathTextBox.Leave,
+        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  = '{Quicksearch1TitleTextBox.Text}'
-            WHERE GUID  = {Quicksearch1TitleTextBox.Tag}"
-            If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.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
+
+        Dim oTextbox As BaseEdit = sender
+        SaveCatalogSetting(oTextbox.Tag, oTextbox.EditValue)
     End Sub
 
+
     Private Sub SkinPaletteRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinPaletteRibbonGalleryBarItem1.GalleryItemClick
         UpdateThemeSettings()
     End Sub
@@ -181,4 +164,6 @@ Public Class frmConfigBasic
 
 
     End Sub
+
+
 End Class