ZooFlow: Fix DetailPage, Fix BaseForm, Tweak Appearance

2021-07-08 14:22:10 +02:00
parent e8c78ad4da
commit 804812e562
20 changed files with 427 additions and 392 deletions
--- a/GUIs.ZooFlow/Administration/ClassDetailPage.vb
+++ b/GUIs.ZooFlow/Administration/ClassDetailPage.vb
@@ -88,6 +88,10 @@ Public Class ClassDetailPages
                    Continue For
                End If

+                If TypeOf oContainer.Control IsNot BaseEdit Then
+                    Continue For
+                End If
+
                Dim oControl As BaseEdit = oContainer.Control
                AddHandler oControl.GotFocus, AddressOf Handle_Focus
                AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged
--- a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb
@@ -1344,6 +1344,7 @@ Partial Class frmAdmin_ClipboardWatcher
        Me.Controls.Add(Me.XtraTabControl1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
        Me.Name = "frmAdmin_ClipboardWatcher"
        Me.Ribbon = Me.RibbonControl1
        Me.StatusBar = Me.RibbonStatusBar1
--- a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb
@@ -57,12 +57,14 @@ Public Class frmAdmin_ClipboardWatcher
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        InitializeBaseForm(My.LogConfig)
+
        Me.PrimaryKey = PrimaryKey
        Me.IsInsert = IsInsert
    End Sub

    Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Init(My.LogConfig)
+        InitializeBaseForm(My.LogConfig)

        'TODO: Diese Codezeile lädt Daten in die Tabelle "DSDD_Stammdaten.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.

--- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb
@@ -59,6 +59,7 @@ Partial Class frmAdmin_Globix
        Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit()
        Me.TextEdit13 = New DevExpress.XtraEditors.TextEdit()
        Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.ComboBoxEdit2 = New DevExpress.XtraEditors.ComboBoxEdit()
        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -74,6 +75,7 @@ Partial Class frmAdmin_Globix
        Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.Filestore = New DevExpress.XtraLayout.LayoutControlItem()
        Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPageManIndexe = New DevExpress.XtraTab.XtraTabPage()
        Me.LayoutControlManIndexe = New DevExpress.XtraLayout.LayoutControl()
@@ -92,6 +94,8 @@ Partial Class frmAdmin_Globix
        Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit()
        Me.TextEdit12 = New DevExpress.XtraEditors.TextEdit()
        Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit()
+        Me.ComboBoxEdit3 = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.ComboBoxEdit4 = New DevExpress.XtraEditors.ComboBoxEdit()
        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -107,6 +111,8 @@ Partial Class frmAdmin_Globix
        Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.ListBoxAutoIndexe = New System.Windows.Forms.ListBox()
        Me.XtraTabPageRework = New DevExpress.XtraTab.XtraTabPage()
        Me.LayoutControlRework = New DevExpress.XtraLayout.LayoutControl()
@@ -117,12 +123,6 @@ Partial Class frmAdmin_Globix
        Me.XtraTabPageDynamicFolder = New DevExpress.XtraTab.XtraTabPage()
        Me.XtraTabPageAutoSelect = New DevExpress.XtraTab.XtraTabPage()
        Me.TBDD_INDEX_MANTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter()
-        Me.ComboBoxEdit2 = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.Filestore = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.ComboBoxEdit3 = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.ComboBoxEdit4 = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -142,6 +142,7 @@ Partial Class frmAdmin_Globix
        CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit13.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -157,6 +158,7 @@ Partial Class frmAdmin_Globix
        CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Filestore, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl2.SuspendLayout()
        Me.XtraTabPageManIndexe.SuspendLayout()
@@ -171,6 +173,8 @@ Partial Class frmAdmin_Globix
        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit12.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -186,18 +190,14 @@ Partial Class frmAdmin_Globix
        CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabPageRework.SuspendLayout()
        CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabPageAutoIndexe.SuspendLayout()
        CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Filestore, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'RibbonControl1
@@ -497,6 +497,17 @@ Partial Class frmAdmin_Globix
        Me.ComboBoxEdit1.StyleController = Me.LayoutControlProfile
        Me.ComboBoxEdit1.TabIndex = 54
        '
+        'ComboBoxEdit2
+        '
+        Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_FILESTORE_ID", True))
+        Me.ComboBoxEdit2.Location = New System.Drawing.Point(746, 182)
+        Me.ComboBoxEdit2.MenuManager = Me.RibbonControl1
+        Me.ComboBoxEdit2.Name = "ComboBoxEdit2"
+        Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.ComboBoxEdit2.Size = New System.Drawing.Size(446, 20)
+        Me.ComboBoxEdit2.StyleController = Me.LayoutControlProfile
+        Me.ComboBoxEdit2.TabIndex = 55
+        '
        'Root
        '
        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -636,6 +647,14 @@ Partial Class frmAdmin_Globix
        Me.LayoutControlItem30.Text = "Namenkonvention"
        Me.LayoutControlItem30.TextSize = New System.Drawing.Size(139, 13)
        '
+        'Filestore
+        '
+        Me.Filestore.Control = Me.ComboBoxEdit2
+        Me.Filestore.Location = New System.Drawing.Point(592, 170)
+        Me.Filestore.Name = "Filestore"
+        Me.Filestore.Size = New System.Drawing.Size(592, 110)
+        Me.Filestore.TextSize = New System.Drawing.Size(139, 13)
+        '
        'XtraTabControl2
        '
        Me.XtraTabControl2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -834,6 +853,28 @@ Partial Class frmAdmin_Globix
        Me.SpinEdit1.StyleController = Me.LayoutControlManIndexe
        Me.SpinEdit1.TabIndex = 25
        '
+        'ComboBoxEdit3
+        '
+        Me.ComboBoxEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True))
+        Me.ComboBoxEdit3.Location = New System.Drawing.Point(542, 60)
+        Me.ComboBoxEdit3.MenuManager = Me.RibbonControl1
+        Me.ComboBoxEdit3.Name = "ComboBoxEdit3"
+        Me.ComboBoxEdit3.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.ComboBoxEdit3.Size = New System.Drawing.Size(416, 20)
+        Me.ComboBoxEdit3.StyleController = Me.LayoutControlManIndexe
+        Me.ComboBoxEdit3.TabIndex = 26
+        '
+        'ComboBoxEdit4
+        '
+        Me.ComboBoxEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
+        Me.ComboBoxEdit4.Location = New System.Drawing.Point(85, 108)
+        Me.ComboBoxEdit4.MenuManager = Me.RibbonControl1
+        Me.ComboBoxEdit4.Name = "ComboBoxEdit4"
+        Me.ComboBoxEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.ComboBoxEdit4.Size = New System.Drawing.Size(185, 20)
+        Me.ComboBoxEdit4.StyleController = Me.LayoutControlManIndexe
+        Me.ComboBoxEdit4.TabIndex = 27
+        '
        'LayoutControlGroup1
        '
        Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -977,6 +1018,24 @@ Partial Class frmAdmin_Globix
        Me.LayoutControlItem9.Text = "Reihenfolge"
        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(70, 13)
        '
+        'LayoutControlItem14
+        '
+        Me.LayoutControlItem14.Control = Me.ComboBoxEdit3
+        Me.LayoutControlItem14.Location = New System.Drawing.Point(457, 48)
+        Me.LayoutControlItem14.Name = "LayoutControlItem14"
+        Me.LayoutControlItem14.Size = New System.Drawing.Size(493, 24)
+        Me.LayoutControlItem14.Text = "Attribut"
+        Me.LayoutControlItem14.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'LayoutControlItem13
+        '
+        Me.LayoutControlItem13.Control = Me.ComboBoxEdit4
+        Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 96)
+        Me.LayoutControlItem13.Name = "LayoutControlItem13"
+        Me.LayoutControlItem13.Size = New System.Drawing.Size(262, 24)
+        Me.LayoutControlItem13.Text = "Datentyp"
+        Me.LayoutControlItem13.TextSize = New System.Drawing.Size(70, 13)
+        '
        'ListBoxAutoIndexe
        '
        Me.ListBoxAutoIndexe.DataSource = Me.TBDD_INDEX_MANBindingSource
@@ -1062,65 +1121,6 @@ Partial Class frmAdmin_Globix
        '
        Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True
        '
-        'ComboBoxEdit2
-        '
-        Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_FILESTORE_ID", True))
-        Me.ComboBoxEdit2.Location = New System.Drawing.Point(746, 182)
-        Me.ComboBoxEdit2.MenuManager = Me.RibbonControl1
-        Me.ComboBoxEdit2.Name = "ComboBoxEdit2"
-        Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.ComboBoxEdit2.Size = New System.Drawing.Size(446, 20)
-        Me.ComboBoxEdit2.StyleController = Me.LayoutControlProfile
-        Me.ComboBoxEdit2.TabIndex = 55
-        '
-        'Filestore
-        '
-        Me.Filestore.Control = Me.ComboBoxEdit2
-        Me.Filestore.Location = New System.Drawing.Point(592, 170)
-        Me.Filestore.Name = "Filestore"
-        Me.Filestore.Size = New System.Drawing.Size(592, 110)
-        Me.Filestore.TextSize = New System.Drawing.Size(139, 13)
-        '
-        'ComboBoxEdit3
-        '
-        Me.ComboBoxEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True))
-        Me.ComboBoxEdit3.Location = New System.Drawing.Point(542, 60)
-        Me.ComboBoxEdit3.MenuManager = Me.RibbonControl1
-        Me.ComboBoxEdit3.Name = "ComboBoxEdit3"
-        Me.ComboBoxEdit3.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.ComboBoxEdit3.Size = New System.Drawing.Size(416, 20)
-        Me.ComboBoxEdit3.StyleController = Me.LayoutControlManIndexe
-        Me.ComboBoxEdit3.TabIndex = 26
-        '
-        'LayoutControlItem14
-        '
-        Me.LayoutControlItem14.Control = Me.ComboBoxEdit3
-        Me.LayoutControlItem14.Location = New System.Drawing.Point(457, 48)
-        Me.LayoutControlItem14.Name = "LayoutControlItem14"
-        Me.LayoutControlItem14.Size = New System.Drawing.Size(493, 24)
-        Me.LayoutControlItem14.Text = "Attribut"
-        Me.LayoutControlItem14.TextSize = New System.Drawing.Size(70, 13)
-        '
-        'ComboBoxEdit4
-        '
-        Me.ComboBoxEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
-        Me.ComboBoxEdit4.Location = New System.Drawing.Point(85, 108)
-        Me.ComboBoxEdit4.MenuManager = Me.RibbonControl1
-        Me.ComboBoxEdit4.Name = "ComboBoxEdit4"
-        Me.ComboBoxEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.ComboBoxEdit4.Size = New System.Drawing.Size(185, 20)
-        Me.ComboBoxEdit4.StyleController = Me.LayoutControlManIndexe
-        Me.ComboBoxEdit4.TabIndex = 27
-        '
-        'LayoutControlItem13
-        '
-        Me.LayoutControlItem13.Control = Me.ComboBoxEdit4
-        Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 96)
-        Me.LayoutControlItem13.Name = "LayoutControlItem13"
-        Me.LayoutControlItem13.Size = New System.Drawing.Size(262, 24)
-        Me.LayoutControlItem13.Text = "Datentyp"
-        Me.LayoutControlItem13.TextSize = New System.Drawing.Size(70, 13)
-        '
        'frmAdmin_Globix
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1129,10 +1129,11 @@ Partial Class frmAdmin_Globix
        Me.Controls.Add(Me.XtraTabControl1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_G_DevExpress
        Me.Name = "frmAdmin_Globix"
        Me.Ribbon = Me.RibbonControl1
        Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "frmAdmin_Attribute"
+        Me.Text = "Global Indexer  - Profil"
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1152,6 +1153,7 @@ Partial Class frmAdmin_Globix
        CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit13.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1167,6 +1169,7 @@ Partial Class frmAdmin_Globix
        CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Filestore, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabControl2.ResumeLayout(False)
        Me.XtraTabPageManIndexe.ResumeLayout(False)
@@ -1181,6 +1184,8 @@ Partial Class frmAdmin_Globix
        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit12.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1196,18 +1201,14 @@ Partial Class frmAdmin_Globix
        CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabPageRework.ResumeLayout(False)
        CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabPageAutoIndexe.ResumeLayout(False)
        CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Filestore, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

--- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb
@@ -18,10 +18,10 @@ Public Class frmAdmin_Globix
    End Sub

    Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Init(My.LogConfig)
+        InitializeBaseForm(My.LogConfig)
        Try
            TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
-            Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
+            TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
            TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
            Load_TabData()

--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
@@ -10,13 +10,16 @@
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        InitializeBaseForm(My.LogConfig)
        Me.PrimaryKey = PrimaryKey
        Me.IsInsert = IsInsert
    End Sub

    Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
+            TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
            TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
+            VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
            VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
        Catch ex As Exception
            ShowErrorMessage(ex)
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb
@@ -11,13 +11,13 @@ Public Class frmAdmin_IDBEntity
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        InitializeBaseForm(My.LogConfig)
        Me.PrimaryKey = PrimaryKey
        Me.IsInsert = IsInsert
    End Sub

    Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
-            Init(My.LogConfig)
            TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
        Catch ex As Exception
            ShowErrorMessage(ex)
--- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb
@@ -243,6 +243,8 @@ Partial Class frmAdmin_SourceSQL
        Me.MemoEdit1.Location = New System.Drawing.Point(105, 220)
        Me.MemoEdit1.MenuManager = Me.RibbonControl
        Me.MemoEdit1.Name = "MemoEdit1"
+        Me.MemoEdit1.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MemoEdit1.Properties.Appearance.Options.UseFont = True
        Me.MemoEdit1.Size = New System.Drawing.Size(643, 127)
        Me.MemoEdit1.StyleController = Me.LayoutControl1
        Me.MemoEdit1.TabIndex = 9
--- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb
@@ -17,6 +17,7 @@ Public Class frmAdmin_SourceSQL
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        InitializeBaseForm(My.LogConfig)
        Me.PrimaryKey = PrimaryKey
    End Sub

@@ -33,9 +34,12 @@ Public Class frmAdmin_SourceSQL
                .TabPage = Nothing
            })

+            TBZF_ADMIN_SOURCE_SQLTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
+
            If IsInsert Then
                TBZF_ADMIN_SOURCE_SQLBindingSource.AddNew()
            Else
+
                TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey)
            End If

--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
@@ -99,8 +99,8 @@ Partial Class frmAdmin_Start
        Me.RibbonPageGroup17 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup18 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup19 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridMain = New DevExpress.XtraGrid.GridControl()
+        Me.ViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonGroup_ClipboardWatcher_Process = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -125,8 +125,8 @@ Partial Class frmAdmin_Start
        Me.Panel1.SuspendLayout()
        CType(Me.ActiveImages, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TypeImages, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'RibbonControl1
@@ -713,22 +713,22 @@ Partial Class frmAdmin_Start
        Me.RibbonPageGroup19.Name = "RibbonPageGroup19"
        Me.RibbonPageGroup19.Text = "Prozess-Zuordnung"
        '
-        'GridControl1
+        'GridMain
        '
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl1.Location = New System.Drawing.Point(200, 199)
-        Me.GridControl1.MainView = Me.GridView1
-        Me.GridControl1.MenuManager = Me.RibbonControl1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(877, 455)
-        Me.GridControl1.TabIndex = 12
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        Me.GridMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridMain.Location = New System.Drawing.Point(200, 199)
+        Me.GridMain.MainView = Me.ViewMain
+        Me.GridMain.MenuManager = Me.RibbonControl1
+        Me.GridMain.Name = "GridMain"
+        Me.GridMain.Size = New System.Drawing.Size(877, 455)
+        Me.GridMain.TabIndex = 12
+        Me.GridMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewMain})
        '
-        'GridView1
+        'ViewMain
        '
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
-        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.ViewMain.GridControl = Me.GridMain
+        Me.ViewMain.Name = "ViewMain"
+        Me.ViewMain.OptionsSelection.EnableAppearanceFocusedCell = False
        '
        'RibbonPageGroupAttributes
        '
@@ -782,7 +782,7 @@ Partial Class frmAdmin_Start
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1077, 676)
-        Me.Controls.Add(Me.GridControl1)
+        Me.Controls.Add(Me.GridMain)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.DockPanel1)
        Me.Controls.Add(Me.RibbonStatusBar1)
@@ -807,8 +807,8 @@ Partial Class frmAdmin_Start
        Me.Panel1.ResumeLayout(False)
        CType(Me.ActiveImages, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TypeImages, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridMain, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewMain, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -885,8 +885,8 @@ Partial Class frmAdmin_Start
    Friend WithEvents RibbonPageGroup19 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents GridControl1 As GridControl
-    Friend WithEvents GridView1 As GridView
+    Friend WithEvents GridMain As GridControl
+    Friend WithEvents ViewMain As GridView
    Friend WithEvents btnAddRecord As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents btnEditRecord As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx
@@ -254,6 +254,9 @@
  <metadata name="MainTreeImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>122, 17</value>
  </metadata>
+  <metadata name="MainTreeImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>122, 17</value>
+  </metadata>
  <metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>396, 17</value>
  </metadata>
@@ -263,6 +266,9 @@
  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>531, 17</value>
  </metadata>
+  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>531, 17</value>
+  </metadata>
  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1141, 17</value>
  </metadata>
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
@@ -15,8 +15,15 @@ Public Class frmAdmin_Start

    Private DetailForm As ClassDetailForm

+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        InitializeBaseForm(My.LogConfig)
+    End Sub
+
    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Init(My.LogConfig)
        DetailForm = New ClassDetailForm(My.LogConfig)
        AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed

@@ -32,21 +39,21 @@ Public Class frmAdmin_Start
    End Sub

    Private Function Handle_LoadPage(Page As String) As Boolean
-        Dim oKey = $"{Page}-OVERVIEW"
-
        If DetailForm.DetailSettingsList.ContainsKey(Page) Then
            Dim oNode = DetailForm.DetailSettingsList.Item(Page)
            CurrentModule = oNode.Module
            labelTitle.Text = oNode.GridTitle
            btnAddRecord.Caption = oNode.NewRecordTitle
        Else
-            MsgBox($"Page [{Page}] not found in AdminNodes! Exiting." & vbNewLine &
-                   "Check your definitions in the TreeList NodeEditor and in SourceSQL", MsgBoxStyle.Critical, Text)
+            MsgBox($"Page [{Page}] not found! Exiting." & vbNewLine &
+                   "Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text)
            Return False
        End If

        ' This dictionary can contain the same entity multiple times to save
        ' OVERVIEW, INSERT, UPDATE, etc. data records, so we specifically look for the overview key
+        Dim oKey = $"{Page}-OVERVIEW"
+
        If DetailForm.DetailDataList.ContainsKey(oKey) Then

            Dim oItem = DetailForm.DetailDataList.Item(oKey)
@@ -140,34 +147,36 @@ Public Class frmAdmin_Start
            Exit Sub
        End If

-        GridControl1.DataSource = Source.SQLResult
-        GridControl1.ForceInitialize()
-        GridView1.PopulateColumns()
+        ViewMain.ShowLoadingPanel()

-        If GridView1.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then
+        GridMain.DataSource = Source.SQLResult
+        GridMain.ForceInitialize()
+        ViewMain.PopulateColumns()
+
+        If ViewMain.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then
            Dim oActiveColumn = New GridColumn() With {.FieldName = COLUMN_NAME_ACTIVE}
-            GridView1.Columns.Add(oActiveColumn)
+            ViewMain.Columns.Add(oActiveColumn)
            Style_ActiveColumn(oActiveColumn)
        Else
-            Style_ActiveColumn(GridView1.Columns.Item(COLUMN_NAME_ACTIVE))
+            Style_ActiveColumn(ViewMain.Columns.Item(COLUMN_NAME_ACTIVE))
        End If

-        With GridView1.Appearance.EvenRow
+        With ViewMain.Appearance.EvenRow
            .BackColor = Color.Snow
            .Options.UseBackColor = True
        End With

-        With GridView1.Appearance.FocusedCell
+        With ViewMain.Appearance.FocusedCell
            .BackColor = Color.Gold
            .Options.UseBackColor = True
        End With

-        With GridView1.OptionsBehavior
+        With ViewMain.OptionsBehavior
            .Editable = False
            .ReadOnly = True
        End With

-        With GridView1.OptionsView
+        With ViewMain.OptionsView
            .ShowAutoFilterRow = True
            .EnableAppearanceEvenRow = True
            .ShowIndicator = False
@@ -175,17 +184,18 @@ Public Class frmAdmin_Start
            .ShowVerticalLines = DefaultBoolean.True
        End With

-        With GridView1.OptionsClipboard
+        With ViewMain.OptionsClipboard
            .CopyColumnHeaders = DefaultBoolean.False
        End With

-        With GridView1.OptionsFind
+        With ViewMain.OptionsFind
            .AlwaysVisible = True
        End With

-        AddHandler GridView1.KeyDown, AddressOf GridView1_KeyDown
+        AddHandler ViewMain.KeyDown, AddressOf GridView1_KeyDown

-        GridView1.BestFitColumns()
+        ViewMain.BestFitColumns()
+        ViewMain.HideLoadingPanel()
    End Sub

    Public Sub GridView1_KeyDown(sender As GridView, e As KeyEventArgs)
@@ -199,7 +209,7 @@ Public Class frmAdmin_Start
        End If
    End Sub

-    Private Sub GridView1_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView1.RowClick
+    Private Sub GridView1_RowClick(sender As Object, e As RowClickEventArgs) Handles ViewMain.RowClick
        Try
            If e.Clicks = 2 And e.Button = MouseButtons.Left Then
                Dim oPrimaryKey = Get_PrimaryKey(e.RowHandle)
@@ -217,7 +227,7 @@ Public Class frmAdmin_Start

    Private Function Get_PrimaryKey(RowHandle As Integer)
        Try
-            Dim oView As GridView = GridView1
+            Dim oView As GridView = ViewMain
            Dim oRowView As DataRowView = oView.GetRow(RowHandle)
            Dim oItem As ClassDetailForm.DetailData = CurrentItem
            Dim oGuid = oRowView.Row.Item(oItem.PrimaryKey)
@@ -253,11 +263,11 @@ Public Class frmAdmin_Start

    Private Sub btnEditRecord_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditRecord.ItemClick
        Try
-            If GridView1.FocusedRowHandle = GridControl.InvalidRowHandle Then
+            If ViewMain.FocusedRowHandle = GridControl.InvalidRowHandle Then
                Exit Sub
            End If

-            Dim oPrimaryKey = Get_PrimaryKey(GridView1.FocusedRowHandle)
+            Dim oPrimaryKey = Get_PrimaryKey(ViewMain.FocusedRowHandle)

            If oPrimaryKey IsNot Nothing Then
                DetailForm.Handle_OpenDetail(oPrimaryKey, CurrentPage, False)