EDMI: Work on ClassDataASorDB

GUIs.ZooFlow/MyApplication.vb

@@ -2,7 +2,7 @@
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.ZooFlow
-
+Imports DigitalData.Modules.EDMI.API
 
 Namespace My
     ''' <summary>
@@ -28,10 +28,16 @@ Namespace My
         Property LogConfig As LogConfig
         Property MainForm As frmAdmin_Start
         Property SearchForm As frmSearchStart
-        Property Database As MSSQLServer
+
+#Region "Database"
+        Property Database As DatabaseWithFallback
+        Property DatabaseECM As MSSQLServer
         Property DatabaseIDB As MSSQLServer
+
         Property Tables As New ClassTables
         Property Queries As New ClassQueries
+#End Region
+
         Property Filestore_Work As String
         Property Filestore_Archive As String
     End Module
@@ -56,7 +62,7 @@ Namespace My
 
         Public Function GetEnvironment() As Environment
             Return New Environment With {
-                .Database = My.Database,
+                .Database = My.DatabaseECM,
                 .DatabaseIDB = My.DatabaseIDB,
                 .Modules = My.Application.Modules,
                 .Service = My.Application.Service,