ZooFlow: PropertyDialog, ContextMenu, Async Queries in Database

GUIs.ZooFlow/frmFlowForm.vb

@@ -1,10 +1,10 @@
-Imports DevExpress.LookAndFeel
-Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraSplashScreen
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
 
 Public Class frmFlowForm
     ' Constants
+    Private Const OPACITY_INITIAL = 0
     Private Const OPACITY_HIDDEN = 0.65
     Private Const OPACITY_SHOWN = 0.85
 
@@ -28,7 +28,7 @@ Public Class frmFlowForm
         InitializeComponent()
 
         ' === Hide form initially ===
-        Opacity = 0
+        Opacity = OPACITY_INITIAL
     End Sub
 
 
@@ -78,7 +78,7 @@ Public Class frmFlowForm
 
         ' TODO: Clean up
         Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')"
-        Dim oDatatable As DataTable = My.Database_IDB.GetDatatable(oSQL)
+        Dim oDatatable As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
         PictureBoxSearch.Visible = False
 
         If Not IsNothing(oDatatable) OrElse oDatatable.Rows.Count > 0 Then
@@ -87,7 +87,7 @@ Public Class frmFlowForm
             PictureBoxSearch.Visible = True
         End If
 
-        My.DTAttributes = My.Database_IDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE")
+        My.DTAttributes = My.DatabaseIDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE")
     End Sub
 
 
@@ -138,7 +138,6 @@ Public Class frmFlowForm
         End If
     End Sub
 
-
     Public Sub OnEvent(Params As Object)
         Logger.Debug("OnEvent called!")
     End Sub