MS Anpassungen Views und Spalten

app/DD_Clipboard_Searcher/frmMain.vb

@@ -63,7 +63,7 @@ Public Class frmMain
 
         LanguageEx.LogApplicationLanguage(Logger)
 
-        If Database.DBInitialized = True Then
+        If MyDB_DDECM.DBInitialized = True Then
             If ERROR_INIT <> "" Then
                 If ERROR_INIT = "NO CLIENT" Then
 
@@ -109,7 +109,7 @@ Public Class frmMain
                 Else
                     bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                 End If
-                If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE Then
+                If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE = False Then
                     RibbonPageGroup1.Visible = False
                     RibbonControl1.Minimized = True
                 End If
@@ -145,7 +145,7 @@ Public Class frmMain
         End If
         Try
             Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND (MODULE = 'easyFLOW' OR MODULE = 'Clipboard-Watcher')"
-            Database.ExecuteNonQuery(sql)
+            MyDB_DDECM.ExecuteNonQuery(sql)
             ClassWindowLocation.SaveFormLocationSize(Me, "")
             My.Settings.Save()
         Catch ex As Exception
@@ -182,22 +182,22 @@ Public Class frmMain
         End If
 
         If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
-            Logger.Warn("DT_USER_PROFILES is empty!")
+            Logger.Warn("DT_USER_PROFILES is Nothing/contains no rows!")
             Exit Sub
         End If
 
         If DTPROFILE_REL_PROCESS Is Nothing OrElse DTPROFILE_REL_PROCESS.Rows.Count = 0 Then
-            Logger.Warn("DTPROFILE_REL_PROCESS is empty!")
+            Logger.Warn("DTPROFILE_REL_PROCESS is Nothing/contains no rows!")
             Exit Sub
         End If
 
         If DTPROFILE_REL_WINDOW Is Nothing Then
-            Logger.Warn("DTPROFILE_REL_WINDOW is empty!")
+            Logger.Warn("DTPROFILE_REL_WINDOW is Nothing!")
             Exit Sub
         End If
 
         If DTPROFILE_REL_CONTROL Is Nothing Then
-            Logger.Warn("DTPROFILE_REL_CONTROL is empty!")
+            Logger.Warn("DTPROFILE_REL_CONTROL is Nothing!")
             Exit Sub
         End If
 
@@ -372,7 +372,7 @@ Public Class frmMain
         }
 
         Dim oEnvironment As New Environment() With {
-            .Database = Database,
+            .Database = MyDB_DDECM,
             .Modules = Nothing,
             .User = oUser,
             .Settings = oSettings,
@@ -398,7 +398,7 @@ Public Class frmMain
             End If
         Else
             If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
-                MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License")
+                MsgBox("As an admin You have access! Please inforFm Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License")
             Else
                 If Not USER_IS_ADMIN Then
                     MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License")