ZooFlow: IDB Admin

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb

@@ -435,7 +435,6 @@ Partial Class frmAdmin_IDBAttribute
         Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
-        Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'frmAdmin_IDBAttribute

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -76,8 +76,13 @@ Public Class frmAdmin_IDBAttribute
         End Try
     End Function
     Private Sub Update_Datasource()
-        Dim oupdate = $"UPDATE       TBIDB_ATTRIBUTE
+        Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE
-SET                TITLE = '@TITLE', TYP_ID = @TYP_ID, MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT
+                        SET TITLE = '@TITLE', 
-WHERE        (GUID = @GUID)"
+                        TYP_ID = @TYP_ID, 
+                        MULTI_CONTEXT = @MULTI_CONTEXT, 
+                        VIEW_SEQUENCE = @VIEW_SEQUENCE, 
+                        VIEW_VISIBLE = @VIEW_VISIBLE, 
+                        COMMENT = @COMMENT
+                        WHERE (GUID = @GUID)"
     End Sub
 End Class

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmAdmin_SourceSQL
+Partial Class frmAdmin_IDBEntity
     Inherits frmAdmin_Base
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -27,58 +27,57 @@ Partial Class frmAdmin_SourceSQL
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
-        Me.labelError = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
         Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
-        Me.TBZF_ADMIN_SOURCE_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TBIDB_BUSINESS_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
         Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
         Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
-        Me.TextEdit4 = New DevExpress.XtraEditors.MemoEdit()
+        Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit()
-        Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
         Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit()
         Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
         Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit()
-        Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit()
         Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
         Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.TBZF_ADMIN_SOURCE_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter()
+        Me.TBIDB_BUSINESS_ENTITYTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter()
         Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.LayoutControl1.SuspendLayout()
         CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -86,47 +85,39 @@ Partial Class frmAdmin_SourceSQL
         '
         Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.labelError})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.MaxItemId = 4
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
-        Me.RibbonControl1.Size = New System.Drawing.Size(800, 63)
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(837, 66)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
         '
         'BarButtonItem1
         '
         Me.BarButtonItem1.Caption = "Speichern und Schließen"
         Me.BarButtonItem1.Id = 1
-        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check1
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.markcomplete
         Me.BarButtonItem1.Name = "BarButtonItem1"
         '
         'BarButtonItem2
         '
         Me.BarButtonItem2.Caption = "Speichern"
         Me.BarButtonItem2.Id = 2
-        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save1
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save3
         Me.BarButtonItem2.Name = "BarButtonItem2"
         '
         'labelStatus
         '
-        Me.labelStatus.Caption = "labelStatus"
+        Me.labelStatus.Caption = "BarStaticItem1"
         Me.labelStatus.Id = 3
-        Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about1
+        Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about2
         Me.labelStatus.Name = "labelStatus"
         Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
-        Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
-        '
-        'labelError
-        '
-        Me.labelError.Caption = "labelError"
-        Me.labelError.Id = 4
-        Me.labelError.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.highimportance
-        Me.labelError.Name = "labelError"
-        Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
-        Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
         'RibbonPage1
         '
@@ -144,11 +135,10 @@ Partial Class frmAdmin_SourceSQL
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
-        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 465)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 22)
         '
         'RibbonPage2
         '
@@ -160,34 +150,35 @@ Partial Class frmAdmin_SourceSQL
         Me.LayoutControl1.Controls.Add(Me.TextEdit1)
         Me.LayoutControl1.Controls.Add(Me.TextEdit2)
         Me.LayoutControl1.Controls.Add(Me.TextEdit3)
+        Me.LayoutControl1.Controls.Add(Me.CheckEdit1)
         Me.LayoutControl1.Controls.Add(Me.TextEdit4)
-        Me.LayoutControl1.Controls.Add(Me.TextEdit5)
         Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit6)
         Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
         Me.LayoutControl1.Controls.Add(Me.TextEdit8)
-        Me.LayoutControl1.Controls.Add(Me.TextEdit9)
         Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(800, 363)
+        Me.LayoutControl1.Size = New System.Drawing.Size(837, 399)
         Me.LayoutControl1.TabIndex = 2
         Me.LayoutControl1.Text = "LayoutControl1"
         '
         'TextEdit1
         '
-        Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ENTITY_TITLE", True))
+        Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "GUID", True))
-        Me.TextEdit1.Location = New System.Drawing.Point(99, 60)
+        Me.TextEdit1.Location = New System.Drawing.Point(105, 20)
         Me.TextEdit1.MenuManager = Me.RibbonControl1
         Me.TextEdit1.Name = "TextEdit1"
-        Me.TextEdit1.Size = New System.Drawing.Size(681, 20)
+        Me.TextEdit1.Properties.ReadOnly = True
+        Me.TextEdit1.Size = New System.Drawing.Size(303, 20)
         Me.TextEdit1.StyleController = Me.LayoutControl1
         Me.TextEdit1.TabIndex = 4
         '
-        'TBZF_ADMIN_SOURCE_SQLBindingSource
+        'TBIDB_BUSINESS_ENTITYBindingSource
         '
-        Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataMember = "TBZF_ADMIN_SOURCE_SQL"
+        Me.TBIDB_BUSINESS_ENTITYBindingSource.DataMember = "TBIDB_BUSINESS_ENTITY"
-        Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten
+        Me.TBIDB_BUSINESS_ENTITYBindingSource.DataSource = Me.DSIDB_Stammdaten
         '
         'DSIDB_Stammdaten
         '
@@ -196,233 +187,232 @@ Partial Class frmAdmin_SourceSQL
         '
         'TextEdit2
         '
-        Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "PK_COLUMN", True))
+        Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "PARENT_ENT_ID", True))
-        Me.TextEdit2.Location = New System.Drawing.Point(99, 100)
+        Me.TextEdit2.Location = New System.Drawing.Point(513, 20)
         Me.TextEdit2.MenuManager = Me.RibbonControl1
         Me.TextEdit2.Name = "TextEdit2"
-        Me.TextEdit2.Size = New System.Drawing.Size(681, 20)
+        Me.TextEdit2.Size = New System.Drawing.Size(304, 20)
         Me.TextEdit2.StyleController = Me.LayoutControl1
         Me.TextEdit2.TabIndex = 5
         '
         'TextEdit3
         '
-        Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "COMMENT", True))
+        Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "TITLE", True))
-        Me.TextEdit3.Location = New System.Drawing.Point(99, 140)
+        Me.TextEdit3.Location = New System.Drawing.Point(105, 60)
         Me.TextEdit3.MenuManager = Me.RibbonControl1
         Me.TextEdit3.Name = "TextEdit3"
-        Me.TextEdit3.Size = New System.Drawing.Size(681, 20)
+        Me.TextEdit3.Size = New System.Drawing.Size(712, 20)
         Me.TextEdit3.StyleController = Me.LayoutControl1
         Me.TextEdit3.TabIndex = 6
         '
+        'CheckEdit1
+        '
+        Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "INHERITS_ATTRIBUTES", True))
+        Me.CheckEdit1.Location = New System.Drawing.Point(20, 140)
+        Me.CheckEdit1.MenuManager = Me.RibbonControl1
+        Me.CheckEdit1.Name = "CheckEdit1"
+        Me.CheckEdit1.Properties.Caption = "Erbt Attribute der übergeordneten Entität"
+        Me.CheckEdit1.Size = New System.Drawing.Size(797, 18)
+        Me.CheckEdit1.StyleController = Me.LayoutControl1
+        Me.CheckEdit1.TabIndex = 7
+        '
         'TextEdit4
         '
-        Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "SQL_COMMAND", True))
+        Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "COMMENT", True))
-        Me.TextEdit4.Location = New System.Drawing.Point(99, 180)
+        Me.TextEdit4.Location = New System.Drawing.Point(105, 100)
         Me.TextEdit4.MenuManager = Me.RibbonControl1
         Me.TextEdit4.Name = "TextEdit4"
-        Me.TextEdit4.Size = New System.Drawing.Size(681, 83)
+        Me.TextEdit4.Size = New System.Drawing.Size(712, 20)
         Me.TextEdit4.StyleController = Me.LayoutControl1
-        Me.TextEdit4.TabIndex = 7
+        Me.TextEdit4.TabIndex = 8
-        '
-        'TextEdit5
-        '
-        Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "GUID", True))
-        Me.TextEdit5.Location = New System.Drawing.Point(99, 20)
-        Me.TextEdit5.MenuManager = Me.RibbonControl1
-        Me.TextEdit5.Name = "TextEdit5"
-        Me.TextEdit5.Properties.ReadOnly = True
-        Me.TextEdit5.Size = New System.Drawing.Size(681, 20)
-        Me.TextEdit5.StyleController = Me.LayoutControl1
-        Me.TextEdit5.TabIndex = 8
         '
         'txtAddedWho
         '
-        Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHO", True))
+        Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHO", True))
-        Me.txtAddedWho.Location = New System.Drawing.Point(99, 283)
+        Me.txtAddedWho.Location = New System.Drawing.Point(105, 178)
         Me.txtAddedWho.MenuManager = Me.RibbonControl1
         Me.txtAddedWho.Name = "txtAddedWho"
-        Me.txtAddedWho.Size = New System.Drawing.Size(291, 20)
+        Me.txtAddedWho.Size = New System.Drawing.Size(303, 20)
         Me.txtAddedWho.StyleController = Me.LayoutControl1
         Me.txtAddedWho.TabIndex = 9
         '
+        'TextEdit6
+        '
+        Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHEN", True))
+        Me.TextEdit6.Location = New System.Drawing.Point(513, 178)
+        Me.TextEdit6.MenuManager = Me.RibbonControl1
+        Me.TextEdit6.Name = "TextEdit6"
+        Me.TextEdit6.Size = New System.Drawing.Size(304, 20)
+        Me.TextEdit6.StyleController = Me.LayoutControl1
+        Me.TextEdit6.TabIndex = 10
+        '
         'txtChangedWho
         '
-        Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHO", True))
+        Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHO", True))
-        Me.txtChangedWho.Location = New System.Drawing.Point(99, 323)
+        Me.txtChangedWho.Location = New System.Drawing.Point(105, 218)
         Me.txtChangedWho.MenuManager = Me.RibbonControl1
         Me.txtChangedWho.Name = "txtChangedWho"
-        Me.txtChangedWho.Size = New System.Drawing.Size(291, 20)
+        Me.txtChangedWho.Size = New System.Drawing.Size(303, 20)
         Me.txtChangedWho.StyleController = Me.LayoutControl1
-        Me.txtChangedWho.TabIndex = 10
+        Me.txtChangedWho.TabIndex = 11
         '
         'TextEdit8
         '
-        Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHEN", True))
+        Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit8.Location = New System.Drawing.Point(489, 283)
+        Me.TextEdit8.Location = New System.Drawing.Point(513, 218)
         Me.TextEdit8.MenuManager = Me.RibbonControl1
         Me.TextEdit8.Name = "TextEdit8"
-        Me.TextEdit8.Size = New System.Drawing.Size(291, 20)
+        Me.TextEdit8.Size = New System.Drawing.Size(304, 20)
         Me.TextEdit8.StyleController = Me.LayoutControl1
-        Me.TextEdit8.TabIndex = 11
+        Me.TextEdit8.TabIndex = 12
-        '
-        'TextEdit9
-        '
-        Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit9.Location = New System.Drawing.Point(489, 323)
-        Me.TextEdit9.MenuManager = Me.RibbonControl1
-        Me.TextEdit9.Name = "TextEdit9"
-        Me.TextEdit9.Size = New System.Drawing.Size(291, 20)
-        Me.TextEdit9.StyleController = Me.LayoutControl1
-        Me.TextEdit9.TabIndex = 12
         '
         'Root
         '
         Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
         Me.Root.GroupBordersVisible = False
-        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9})
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9})
         Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(800, 363)
+        Me.Root.Size = New System.Drawing.Size(837, 399)
         Me.Root.TextVisible = False
         '
         'LayoutControlItem1
         '
         Me.LayoutControlItem1.Control = Me.TextEdit1
-        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 40)
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem1.Name = "LayoutControlItem1"
         Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 40)
-        Me.LayoutControlItem1.Text = "Entität"
+        Me.LayoutControlItem1.Text = "GUID"
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13)
-        '
-        'LayoutControlItem2
-        '
-        Me.LayoutControlItem2.Control = Me.TextEdit2
-        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 80)
-        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40)
-        Me.LayoutControlItem2.Text = "Primäschlüssel"
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(76, 13)
         '
         'LayoutControlItem3
         '
         Me.LayoutControlItem3.Control = Me.TextEdit3
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 120)
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 40)
         Me.LayoutControlItem3.Name = "LayoutControlItem3"
         Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(780, 40)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(817, 40)
-        Me.LayoutControlItem3.Text = "Kommentar"
+        Me.LayoutControlItem3.Text = "Titel"
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem4
         '
-        Me.LayoutControlItem4.Control = Me.TextEdit4
+        Me.LayoutControlItem4.Control = Me.CheckEdit1
-        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 160)
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120)
         Me.LayoutControlItem4.Name = "LayoutControlItem4"
         Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 103)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(817, 38)
-        Me.LayoutControlItem4.Text = "SQL Abfrage"
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem4.TextVisible = False
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.TextEdit2
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(408, 0)
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
+        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(409, 40)
+        Me.LayoutControlItem2.Text = "Parent Id"
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem5
         '
-        Me.LayoutControlItem5.Control = Me.TextEdit5
+        Me.LayoutControlItem5.Control = Me.TextEdit4
-        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 80)
         Me.LayoutControlItem5.Name = "LayoutControlItem5"
         Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem5.Size = New System.Drawing.Size(780, 40)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(817, 40)
-        Me.LayoutControlItem5.Text = "GUID"
+        Me.LayoutControlItem5.Text = "Kommentar"
-        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem6
         '
         Me.LayoutControlItem6.Control = Me.txtAddedWho
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 263)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 158)
         Me.LayoutControlItem6.Name = "LayoutControlItem6"
         Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem6.Size = New System.Drawing.Size(390, 40)
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(408, 40)
         Me.LayoutControlItem6.Text = "Erstellt Wer"
-        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13)
-        '
-        'LayoutControlItem7
-        '
-        Me.LayoutControlItem7.Control = Me.txtChangedWho
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 303)
-        Me.LayoutControlItem7.Name = "LayoutControlItem7"
-        Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem7.Size = New System.Drawing.Size(390, 40)
-        Me.LayoutControlItem7.Text = "Geändert Wer"
-        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(76, 13)
         '
         'LayoutControlItem8
         '
-        Me.LayoutControlItem8.Control = Me.TextEdit8
+        Me.LayoutControlItem8.Control = Me.txtChangedWho
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(390, 263)
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 198)
         Me.LayoutControlItem8.Name = "LayoutControlItem8"
         Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(390, 40)
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 181)
-        Me.LayoutControlItem8.Text = "Erstellt Wann"
+        Me.LayoutControlItem8.Text = "Geändert Wer"
-        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
+        '
+        'LayoutControlItem7
+        '
+        Me.LayoutControlItem7.Control = Me.TextEdit6
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(408, 158)
+        Me.LayoutControlItem7.Name = "LayoutControlItem7"
+        Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(409, 40)
+        Me.LayoutControlItem7.Text = "Erstellt Wann"
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem9
         '
-        Me.LayoutControlItem9.Control = Me.TextEdit9
+        Me.LayoutControlItem9.Control = Me.TextEdit8
-        Me.LayoutControlItem9.Location = New System.Drawing.Point(390, 303)
+        Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 198)
         Me.LayoutControlItem9.Name = "LayoutControlItem9"
         Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 40)
+        Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 181)
         Me.LayoutControlItem9.Text = "Geändert Wann"
-        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13)
+        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
         '
-        'TBZF_ADMIN_SOURCE_SQLTableAdapter
+        'TBIDB_BUSINESS_ENTITYTableAdapter
         '
-        Me.TBZF_ADMIN_SOURCE_SQLTableAdapter.ClearBeforeFill = True
+        Me.TBIDB_BUSINESS_ENTITYTableAdapter.ClearBeforeFill = True
         '
         'TableAdapterManager
         '
         Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
         Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
-        Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter
-        Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Me.TBZF_ADMIN_SOURCE_SQLTableAdapter
         Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
-        'frmAdmin_SourceSQL
+        'frmAdmin_IDBEntity
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.ClientSize = New System.Drawing.Size(837, 487)
         Me.Controls.Add(Me.LayoutControl1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
-        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment
-        Me.Name = "frmAdmin_SourceSQL"
+        Me.Name = "frmAdmin_IDBEntity"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "IDB - Source SQL"
+        Me.Text = "IDB - Entität"
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.LayoutControl1.ResumeLayout(False)
         CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -441,25 +431,37 @@ Partial Class frmAdmin_SourceSQL
     Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
     Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
     Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents TextEdit4 As DevExpress.XtraEditors.MemoEdit
+    Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit
-    Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit
     Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
-    Friend WithEvents TBZF_ADMIN_SOURCE_SQLBindingSource As BindingSource
-    Friend WithEvents TBZF_ADMIN_SOURCE_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter
-    Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
     Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
-    Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
+    Friend WithEvents TBIDB_BUSINESS_ENTITYBindingSource As BindingSource
+    Friend WithEvents TBIDB_BUSINESS_ENTITYTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter
+    Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
+    Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigator As BindingNavigator
+    Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
+    Friend WithEvents BindingNavigatorCountItem As ToolStripLabel
+    Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
+    Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton
+    Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
+    Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox
+    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
+    Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton
+    Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
+    Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigatorSaveItem As ToolStripButton
+    Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
 End Class

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx

@@ -117,14 +117,17 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="TBZF_ADMIN_SOURCE_SQLBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="TBIDB_BUSINESS_ENTITYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>474, 17</value>
+    <value>177, 17</value>
   </metadata>
   <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>314, 17</value>
+    <value>17, 17</value>
   </metadata>
-  <metadata name="TBZF_ADMIN_SOURCE_SQLTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>754, 17</value>
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TBIDB_BUSINESS_ENTITYTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>443, 17</value>
   </metadata>
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb

@@ -1,12 +1,11 @@
 Imports DigitalData.Modules.Logging
 
-Public Class frmAdmin_SourceSQL
+Public Class frmAdmin_IDBEntity
     Inherits frmAdmin_Base
     Implements frmAdmin_Interface
-
     Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
     Public Property Logger As Logger Implements frmAdmin_Interface.Logger
-    Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges
+    Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
     Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
@@ -19,47 +18,22 @@ Public Class frmAdmin_SourceSQL
         Me.IsInsert = IsInsert
     End Sub
 
+    Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
+        Catch ex As Exception
+            ShowError(ex)
+        End Try
+    End Sub
+
     Private Sub ResetMessages()
         labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
     End Sub
-
     Private Sub ShowStatus(Message As String)
         labelStatus.Caption = Message
         labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
     End Sub
 
-    Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey)
-        Catch ex As Exception
-            ShowError(ex)
-        End Try
-    End Sub
-
-    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
-        Try
-            TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
-
-            If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then
-                HasChanges = True
-
-                If IsInsert Then
-                    txtAddedWho.EditValue = My.Application.User.UserName
-                Else
-                    txtChangedWho.EditValue = My.Application.User.UserName
-                End If
-
-                TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
-                TBZF_ADMIN_SOURCE_SQLTableAdapter.Update(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL)
-            End If
-
-            Return True
-        Catch ex As Exception
-            ShowError(ex)
-            Return False
-        End Try
-    End Function
-
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
         ResetMessages()
 
@@ -75,4 +49,28 @@ Public Class frmAdmin_SourceSQL
             ShowStatus("Attribute gespeichert!")
         End If
     End Sub
+
+    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+        Try
+            TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
+
+            If DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.GetChanges() IsNot Nothing Then
+                HasChanges = True
+
+                If IsInsert Then
+                    txtAddedWho.EditValue = My.Application.User.UserName
+                Else
+                    txtChangedWho.EditValue = My.Application.User.UserName
+                End If
+
+                TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
+                TBIDB_BUSINESS_ENTITYTableAdapter.Update(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY)
+            End If
+
+            Return True
+        Catch ex As Exception
+            ShowError(ex)
+            Return False
+        End Try
+    End Function
 End Class

GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb

@@ -26,21 +26,7 @@ Partial Class frmAdmin_Start
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
-        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
-        Dim ADDED_WHENLabel As System.Windows.Forms.Label
-        Dim ADDED_WHOLabel As System.Windows.Forms.Label
-        Dim COMMENTLabel As System.Windows.Forms.Label
-        Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label
-        Dim TITLELabel As System.Windows.Forms.Label
-        Dim GUIDLabel As System.Windows.Forms.Label
-        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start))
-        Me.ViewCWProcesses = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.GridCWProfiles = New DevExpress.XtraGrid.GridControl()
-        Me.WinExplorerView1 = New DevExpress.XtraGrid.Views.WinExplorer.WinExplorerView()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
@@ -57,6 +43,8 @@ Partial Class frmAdmin_Start
         Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonGroup_ClipboardWatcher_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonGroup_ClipboardWatcher_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -66,11 +54,7 @@ Partial Class frmAdmin_Start
         Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPage_GlobalIndexer = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.ViewCWWindows = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.ViewCWControls = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList()
         Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
@@ -87,59 +71,23 @@ Partial Class frmAdmin_Start
         Me.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridAttributes = New DevExpress.XtraGrid.GridControl()
+        Me.TreeListIDBAttributes = New DevExpress.XtraTreeList.TreeList()
-        Me.ViewAttributes = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.IDBImages = New DevExpress.Utils.SvgImageCollection(Me.components)
-        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageIDB_Entities = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage()
+        Me.TreeListIDBEntities = New DevExpress.XtraTreeList.TreeList()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
-        Me.TITLETextBox = New System.Windows.Forms.TextBox()
-        Me.TYP_IDTextBox = New System.Windows.Forms.TextBox()
-        Me.MULTI_CONTEXTCheckBox = New System.Windows.Forms.CheckBox()
-        Me.VIEW_SEQUENCETextBox = New System.Windows.Forms.TextBox()
-        Me.VIEW_VISIBLECheckBox = New System.Windows.Forms.CheckBox()
-        Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
-        Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
-        Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
-        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
-        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
-        Me.XtraTabPageIDB_SourceSQL = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridSourceSQL = New DevExpress.XtraGrid.GridControl()
-        Me.ViewSourceSQL = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
-        Me.TreeList2 = New DevExpress.XtraTreeList.TreeList()
+        Me.TreeListGLOBIXProfiles = New DevExpress.XtraTreeList.TreeList()
         Me.GLOBIXImages = New DevExpress.Utils.SvgImageCollection(Me.components)
         Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageCWProfiles = New DevExpress.XtraTab.XtraTabPage()
-        Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
+        Me.TreeListCWProfiles = New DevExpress.XtraTreeList.TreeList()
-        Me.COL_ENTITY = New DevExpress.XtraTreeList.Columns.TreeListColumn()
-        Me.COL_ENITY_SCOPE = New DevExpress.XtraTreeList.Columns.TreeListColumn()
-        Me.COL_PARENT = New DevExpress.XtraTreeList.Columns.TreeListColumn()
-        Me.COL_GUID = New DevExpress.XtraTreeList.Columns.TreeListColumn()
-        Me.COL_NODE_TITLE = New DevExpress.XtraTreeList.Columns.TreeListColumn()
         Me.CWImages = New DevExpress.Utils.SvgImageCollection(Me.components)
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl()
-        CHANGED_WHENLabel = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
-        CHANGED_WHOLabel = New System.Windows.Forms.Label()
+        Me.labelTitle = New System.Windows.Forms.Label()
-        ADDED_WHENLabel = New System.Windows.Forms.Label()
-        ADDED_WHOLabel = New System.Windows.Forms.Label()
-        COMMENTLabel = New System.Windows.Forms.Label()
-        VIEW_SEQUENCELabel = New System.Windows.Forms.Label()
-        TITLELabel = New System.Windows.Forms.Label()
-        GUIDLabel = New System.Windows.Forms.Label()
-        CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,130 +100,24 @@ Partial Class frmAdmin_Start
         CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControlIDB.SuspendLayout()
         Me.XtraTabPageIDB_Attributes_New.SuspendLayout()
-        CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TreeListIDBAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageIDB_Entities.SuspendLayout()
-        Me.XtraTabPageIDB_Attributes.SuspendLayout()
+        CType(Me.TreeListIDBEntities, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageIDB_SourceSQL.SuspendLayout()
-        CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPage_GlobalIndexer.SuspendLayout()
-        CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TreeListGLOBIXProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
         Me.XtraTabPageCWProfiles.SuspendLayout()
-        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TreeListCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.CWImages, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl.SuspendLayout()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
-        'CHANGED_WHENLabel
-        '
-        CHANGED_WHENLabel.AutoSize = True
-        CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188)
-        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
-        CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13)
-        CHANGED_WHENLabel.TabIndex = 20
-        CHANGED_WHENLabel.Text = "Geändert wann:"
-        '
-        'CHANGED_WHOLabel
-        '
-        CHANGED_WHOLabel.AutoSize = True
-        CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188)
-        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
-        CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13)
-        CHANGED_WHOLabel.TabIndex = 18
-        CHANGED_WHOLabel.Text = "Geändert wer:"
-        '
-        'ADDED_WHENLabel
-        '
-        ADDED_WHENLabel.AutoSize = True
-        ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146)
-        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
-        ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13)
-        ADDED_WHENLabel.TabIndex = 16
-        ADDED_WHENLabel.Text = "Erstellt wann:"
-        '
-        'ADDED_WHOLabel
-        '
-        ADDED_WHOLabel.AutoSize = True
-        ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146)
-        ADDED_WHOLabel.Name = "ADDED_WHOLabel"
-        ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13)
-        ADDED_WHOLabel.TabIndex = 14
-        ADDED_WHOLabel.Text = "Erstellt wer:"
-        '
-        'COMMENTLabel
-        '
-        COMMENTLabel.AutoSize = True
-        COMMENTLabel.Location = New System.Drawing.Point(351, 106)
-        COMMENTLabel.Name = "COMMENTLabel"
-        COMMENTLabel.Size = New System.Drawing.Size(68, 13)
-        COMMENTLabel.TabIndex = 12
-        COMMENTLabel.Text = "Kommentar:"
-        '
-        'VIEW_SEQUENCELabel
-        '
-        VIEW_SEQUENCELabel.AutoSize = True
-        VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82)
-        VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel"
-        VIEW_SEQUENCELabel.Size = New System.Drawing.Size(101, 13)
-        VIEW_SEQUENCELabel.TabIndex = 8
-        VIEW_SEQUENCELabel.Text = "View Reihenfolge:"
-        '
-        'TITLELabel
-        '
-        TITLELabel.AutoSize = True
-        TITLELabel.Location = New System.Drawing.Point(351, 12)
-        TITLELabel.Name = "TITLELabel"
-        TITLELabel.Size = New System.Drawing.Size(76, 13)
-        TITLELabel.TabIndex = 2
-        TITLELabel.Text = "Bezeichnung:"
-        '
-        'GUIDLabel
-        '
-        GUIDLabel.AutoSize = True
-        GUIDLabel.Location = New System.Drawing.Point(297, 12)
-        GUIDLabel.Name = "GUIDLabel"
-        GUIDLabel.Size = New System.Drawing.Size(37, 13)
-        GUIDLabel.TabIndex = 0
-        GUIDLabel.Text = "GUID:"
-        '
-        'ViewCWProcesses
-        '
-        Me.ViewCWProcesses.GridControl = Me.GridCWProfiles
-        Me.ViewCWProcesses.Name = "ViewCWProcesses"
-        Me.ViewCWProcesses.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Never
-        '
-        'GridCWProfiles
-        '
-        GridLevelNode1.LevelTemplate = Me.ViewCWProcesses
-        GridLevelNode2.LevelTemplate = Me.ViewCWWindows
-        GridLevelNode3.LevelTemplate = Me.ViewCWControls
-        GridLevelNode3.RelationName = "Level3"
-        GridLevelNode2.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
-        GridLevelNode2.RelationName = "Level2"
-        GridLevelNode1.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
-        GridLevelNode1.RelationName = "Level1"
-        Me.GridCWProfiles.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
-        Me.GridCWProfiles.Location = New System.Drawing.Point(819, 41)
-        Me.GridCWProfiles.MainView = Me.WinExplorerView1
-        Me.GridCWProfiles.MenuManager = Me.RibbonControl1
-        Me.GridCWProfiles.Name = "GridCWProfiles"
-        Me.GridCWProfiles.Size = New System.Drawing.Size(319, 266)
-        Me.GridCWProfiles.TabIndex = 0
-        Me.GridCWProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.WinExplorerView1, Me.ViewCWWindows, Me.ViewCWControls, Me.ViewCWProcesses})
-        '
-        'WinExplorerView1
-        '
-        Me.WinExplorerView1.GridControl = Me.GridCWProfiles
-        Me.WinExplorerView1.Name = "WinExplorerView1"
-        '
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
@@ -283,7 +125,7 @@ Partial Class frmAdmin_Start
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
         Me.RibbonControl1.MaxItemId = 15
         Me.RibbonControl1.Name = "RibbonControl1"
-        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB})
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_IDB, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl1.ShowToolbarCustomizeItem = False
         Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159)
@@ -385,7 +227,7 @@ Partial Class frmAdmin_Start
         '
         'BarButtonItem9
         '
-        Me.BarButtonItem9.Caption = "Source SQL neu laden"
+        Me.BarButtonItem9.Caption = "Daten neu laden"
         Me.BarButtonItem9.Id = 14
         Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.updatedataextract
         Me.BarButtonItem9.Name = "BarButtonItem9"
@@ -398,9 +240,25 @@ Partial Class frmAdmin_Start
         '
         'RibbonPageGroup2
         '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem9)
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "Daten"
+        '
+        'RibbonPage_IDB
+        '
+        Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes})
+        Me.RibbonPage_IDB.Name = "RibbonPage_IDB"
+        Me.RibbonPage_IDB.Text = "IDB Administration"
+        '
+        'RibbonPageGroupAttributes
+        '
+        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute)
+        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem7)
+        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute)
+        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem8)
+        Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes"
+        Me.RibbonPageGroupAttributes.Text = "Attribute"
         '
         'RibbonPage_ClipboardWatcher
         '
@@ -456,21 +314,6 @@ Partial Class frmAdmin_Start
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
         '
-        'RibbonPage_IDB
-        '
-        Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes})
-        Me.RibbonPage_IDB.Name = "RibbonPage_IDB"
-        Me.RibbonPage_IDB.Text = "IDB Administration"
-        '
-        'RibbonPageGroupAttributes
-        '
-        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute)
-        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem7)
-        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute)
-        Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem8)
-        Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes"
-        Me.RibbonPageGroupAttributes.Text = "Attribute"
-        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
@@ -480,16 +323,6 @@ Partial Class frmAdmin_Start
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
         Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22)
         '
-        'ViewCWWindows
-        '
-        Me.ViewCWWindows.GridControl = Me.GridCWProfiles
-        Me.ViewCWWindows.Name = "ViewCWWindows"
-        '
-        'ViewCWControls
-        '
-        Me.ViewCWControls.GridControl = Me.GridCWProfiles
-        Me.ViewCWControls.Name = "ViewCWControls"
-        '
         'RibbonPage2
         '
         Me.RibbonPage2.Name = "RibbonPage2"
@@ -507,12 +340,11 @@ Partial Class frmAdmin_Start
         Me.TreeListMenu.BeginUnboundLoad()
         Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "IDB_START")
         Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
-        Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES")
+        Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
-        Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 0, 3, 3, -1, "IDB_SOURCE_SQL")
         Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX_START")
-        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GLOBIX_PROFILES")
+        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 3, 4, 4, -1, "GLOBIX_PROFILES")
         Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CW_START")
-        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "CW_PROFILES")
+        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 5, 4, 4, -1, "CW_PROFILES")
         Me.TreeListMenu.EndUnboundLoad()
         Me.TreeListMenu.OptionsBehavior.Editable = False
         Me.TreeListMenu.OptionsView.ShowColumns = False
@@ -534,7 +366,7 @@ Partial Class frmAdmin_Start
         'MainTreeImages
         '
         Me.MainTreeImages.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg")
-        Me.MainTreeImages.Add("bo_organization", "image://svgimages/business objects/bo_organization.svg")
+        Me.MainTreeImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg")
         Me.MainTreeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
         Me.MainTreeImages.Add("managedatasource", "image://svgimages/spreadsheet/managedatasource.svg")
         Me.MainTreeImages.Add("grandtotals", "image://svgimages/dashboards/grandtotals.svg")
@@ -586,7 +418,6 @@ Partial Class frmAdmin_Start
         Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
-        Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBIDB_ATTRIBUTE_TYPEBindingSource
@@ -602,7 +433,7 @@ Partial Class frmAdmin_Start
         '
         Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB)
         Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB"
-        Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 547)
+        Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 501)
         Me.XtraTabPage_IDB.Text = "IDB"
         '
         'XtraTabControlIDB
@@ -611,260 +442,67 @@ Partial Class frmAdmin_Start
         Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControlIDB.Name = "XtraTabControlIDB"
         Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New
-        Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 547)
+        Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 501)
         Me.XtraTabControlIDB.TabIndex = 0
-        Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPageIDB_SourceSQL})
+        Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Entities})
         '
         'XtraTabPageIDB_Attributes_New
         '
-        Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes)
+        Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.TreeListIDBAttributes)
         Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New"
-        Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 524)
+        Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 478)
         Me.XtraTabPageIDB_Attributes_New.Text = "Attribute"
         '
-        'GridAttributes
+        'TreeListIDBAttributes
         '
-        Me.GridAttributes.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeListIDBAttributes.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridAttributes.Location = New System.Drawing.Point(0, 0)
+        Me.TreeListIDBAttributes.Location = New System.Drawing.Point(0, 0)
-        Me.GridAttributes.MainView = Me.ViewAttributes
+        Me.TreeListIDBAttributes.MenuManager = Me.RibbonControl1
-        Me.GridAttributes.MenuManager = Me.RibbonControl1
+        Me.TreeListIDBAttributes.Name = "TreeListIDBAttributes"
-        Me.GridAttributes.Name = "GridAttributes"
+        Me.TreeListIDBAttributes.Size = New System.Drawing.Size(1124, 478)
-        Me.GridAttributes.Size = New System.Drawing.Size(1124, 524)
+        Me.TreeListIDBAttributes.StateImageList = Me.IDBImages
-        Me.GridAttributes.TabIndex = 0
+        Me.TreeListIDBAttributes.TabIndex = 0
-        Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes, Me.GridView2})
         '
-        'ViewAttributes
+        'IDBImages
         '
-        Me.ViewAttributes.GridControl = Me.GridAttributes
+        Me.IDBImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg")
-        Me.ViewAttributes.Name = "ViewAttributes"
+        Me.IDBImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
         '
-        'GridView2
+        'XtraTabPageIDB_Entities
         '
-        Me.GridView2.GridControl = Me.GridAttributes
+        Me.XtraTabPageIDB_Entities.Controls.Add(Me.TreeListIDBEntities)
-        Me.GridView2.Name = "GridView2"
+        Me.XtraTabPageIDB_Entities.Name = "XtraTabPageIDB_Entities"
+        Me.XtraTabPageIDB_Entities.Size = New System.Drawing.Size(1124, 478)
+        Me.XtraTabPageIDB_Entities.Text = "Entitäten"
         '
-        'XtraTabPageIDB_Attributes
+        'TreeListIDBEntities
         '
-        Me.XtraTabPageIDB_Attributes.AutoScroll = True
+        Me.TreeListIDBEntities.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ComboBox1)
+        Me.TreeListIDBEntities.Location = New System.Drawing.Point(0, 0)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GridControl1)
+        Me.TreeListIDBEntities.MenuManager = Me.RibbonControl1
-        Me.XtraTabPageIDB_Attributes.Controls.Add(GUIDLabel)
+        Me.TreeListIDBEntities.Name = "TreeListIDBEntities"
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GUIDTextBox)
+        Me.TreeListIDBEntities.Size = New System.Drawing.Size(1124, 478)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(TITLELabel)
+        Me.TreeListIDBEntities.StateImageList = Me.IDBImages
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TITLETextBox)
+        Me.TreeListIDBEntities.TabIndex = 0
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TYP_IDTextBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.MULTI_CONTEXTCheckBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(VIEW_SEQUENCELabel)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_SEQUENCETextBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_VISIBLECheckBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(COMMENTLabel)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.COMMENTTextBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHOLabel)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHOTextBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHENLabel)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHENTextBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHOLabel)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHOTextBox)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel)
-        Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox)
-        Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes"
-        Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 524)
-        Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung"
-        '
-        'ComboBox1
-        '
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(650, 28)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
-        Me.ComboBox1.TabIndex = 29
-        '
-        'GridControl1
-        '
-        Me.GridControl1.DataSource = Me.TBIDB_ATTRIBUTEBindingSource
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl1.MainView = Me.GridView1
-        Me.GridControl1.MenuManager = Me.RibbonControl1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(282, 524)
-        Me.GridControl1.TabIndex = 28
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
-        '
-        'GridView1
-        '
-        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
-        Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE})
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
-        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
-        '
-        'colGUID
-        '
-        Me.colGUID.Caption = "ID"
-        Me.colGUID.FieldName = "GUID"
-        Me.colGUID.Name = "colGUID"
-        Me.colGUID.Visible = True
-        Me.colGUID.VisibleIndex = 0
-        Me.colGUID.Width = 49
-        '
-        'colTITLE
-        '
-        Me.colTITLE.Caption = "Title"
-        Me.colTITLE.FieldName = "TITLE"
-        Me.colTITLE.Name = "colTITLE"
-        Me.colTITLE.Visible = True
-        Me.colTITLE.VisibleIndex = 1
-        Me.colTITLE.Width = 135
-        '
-        'colATTR_TYPE
-        '
-        Me.colATTR_TYPE.Caption = "Typ"
-        Me.colATTR_TYPE.FieldName = "ATTR_TYPE"
-        Me.colATTR_TYPE.Name = "colATTR_TYPE"
-        Me.colATTR_TYPE.Visible = True
-        Me.colATTR_TYPE.VisibleIndex = 2
-        Me.colATTR_TYPE.Width = 73
-        '
-        'GUIDTextBox
-        '
-        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True))
-        Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28)
-        Me.GUIDTextBox.Name = "GUIDTextBox"
-        Me.GUIDTextBox.ReadOnly = True
-        Me.GUIDTextBox.Size = New System.Drawing.Size(33, 22)
-        Me.GUIDTextBox.TabIndex = 1
-        '
-        'TITLETextBox
-        '
-        Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True))
-        Me.TITLETextBox.Location = New System.Drawing.Point(354, 28)
-        Me.TITLETextBox.Name = "TITLETextBox"
-        Me.TITLETextBox.Size = New System.Drawing.Size(290, 22)
-        Me.TITLETextBox.TabIndex = 3
-        '
-        'TYP_IDTextBox
-        '
-        Me.TYP_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True))
-        Me.TYP_IDTextBox.Location = New System.Drawing.Point(777, 28)
-        Me.TYP_IDTextBox.Name = "TYP_IDTextBox"
-        Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 22)
-        Me.TYP_IDTextBox.TabIndex = 5
-        '
-        'MULTI_CONTEXTCheckBox
-        '
-        Me.MULTI_CONTEXTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True))
-        Me.MULTI_CONTEXTCheckBox.Location = New System.Drawing.Point(354, 55)
-        Me.MULTI_CONTEXTCheckBox.Name = "MULTI_CONTEXTCheckBox"
-        Me.MULTI_CONTEXTCheckBox.Size = New System.Drawing.Size(142, 24)
-        Me.MULTI_CONTEXTCheckBox.TabIndex = 7
-        Me.MULTI_CONTEXTCheckBox.Text = "Vektor/Multi Context"
-        Me.MULTI_CONTEXTCheckBox.UseVisualStyleBackColor = True
-        '
-        'VIEW_SEQUENCETextBox
-        '
-        Me.VIEW_SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
-        Me.VIEW_SEQUENCETextBox.Location = New System.Drawing.Point(450, 79)
-        Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox"
-        Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 22)
-        Me.VIEW_SEQUENCETextBox.TabIndex = 9
-        '
-        'VIEW_VISIBLECheckBox
-        '
-        Me.VIEW_VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True))
-        Me.VIEW_VISIBLECheckBox.Location = New System.Drawing.Point(502, 77)
-        Me.VIEW_VISIBLECheckBox.Name = "VIEW_VISIBLECheckBox"
-        Me.VIEW_VISIBLECheckBox.Size = New System.Drawing.Size(104, 24)
-        Me.VIEW_VISIBLECheckBox.TabIndex = 11
-        Me.VIEW_VISIBLECheckBox.Text = "View visible"
-        Me.VIEW_VISIBLECheckBox.UseVisualStyleBackColor = True
-        '
-        'COMMENTTextBox
-        '
-        Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True))
-        Me.COMMENTTextBox.Location = New System.Drawing.Point(354, 122)
-        Me.COMMENTTextBox.Name = "COMMENTTextBox"
-        Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 22)
-        Me.COMMENTTextBox.TabIndex = 13
-        '
-        'ADDED_WHOTextBox
-        '
-        Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True))
-        Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164)
-        Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
-        Me.ADDED_WHOTextBox.ReadOnly = True
-        Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 22)
-        Me.ADDED_WHOTextBox.TabIndex = 15
-        '
-        'ADDED_WHENTextBox
-        '
-        Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
-        Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164)
-        Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
-        Me.ADDED_WHENTextBox.ReadOnly = True
-        Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 22)
-        Me.ADDED_WHENTextBox.TabIndex = 17
-        '
-        'CHANGED_WHOTextBox
-        '
-        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
-        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204)
-        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
-        Me.CHANGED_WHOTextBox.ReadOnly = True
-        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 22)
-        Me.CHANGED_WHOTextBox.TabIndex = 19
-        '
-        'CHANGED_WHENTextBox
-        '
-        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
-        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204)
-        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
-        Me.CHANGED_WHENTextBox.ReadOnly = True
-        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 22)
-        Me.CHANGED_WHENTextBox.TabIndex = 21
-        '
-        'XtraTabPageIDB_SourceSQL
-        '
-        Me.XtraTabPageIDB_SourceSQL.Controls.Add(Me.GridSourceSQL)
-        Me.XtraTabPageIDB_SourceSQL.Name = "XtraTabPageIDB_SourceSQL"
-        Me.XtraTabPageIDB_SourceSQL.Size = New System.Drawing.Size(1124, 524)
-        Me.XtraTabPageIDB_SourceSQL.Text = "Source SQL"
-        '
-        'GridSourceSQL
-        '
-        Me.GridSourceSQL.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridSourceSQL.Location = New System.Drawing.Point(0, 0)
-        Me.GridSourceSQL.MainView = Me.ViewSourceSQL
-        Me.GridSourceSQL.MenuManager = Me.RibbonControl1
-        Me.GridSourceSQL.Name = "GridSourceSQL"
-        Me.GridSourceSQL.Size = New System.Drawing.Size(1124, 524)
-        Me.GridSourceSQL.TabIndex = 0
-        Me.GridSourceSQL.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewSourceSQL})
-        '
-        'ViewSourceSQL
-        '
-        Me.ViewSourceSQL.GridControl = Me.GridSourceSQL
-        Me.ViewSourceSQL.Name = "ViewSourceSQL"
         '
         'XtraTabPage_GlobalIndexer
         '
-        Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeList2)
+        Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeListGLOBIXProfiles)
         Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
         Me.XtraTabPage_GlobalIndexer.PageVisible = False
-        Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 547)
+        Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 501)
         Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
         '
-        'TreeList2
+        'TreeListGLOBIXProfiles
         '
-        Me.TreeList2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeListGLOBIXProfiles.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TreeList2.Location = New System.Drawing.Point(0, 0)
+        Me.TreeListGLOBIXProfiles.Location = New System.Drawing.Point(0, 0)
-        Me.TreeList2.MenuManager = Me.RibbonControl1
+        Me.TreeListGLOBIXProfiles.MenuManager = Me.RibbonControl1
-        Me.TreeList2.Name = "TreeList2"
+        Me.TreeListGLOBIXProfiles.Name = "TreeListGLOBIXProfiles"
-        Me.TreeList2.PreviewFieldName = "Title"
+        Me.TreeListGLOBIXProfiles.PreviewFieldName = "Title"
-        Me.TreeList2.Size = New System.Drawing.Size(1126, 547)
+        Me.TreeListGLOBIXProfiles.Size = New System.Drawing.Size(1126, 501)
-        Me.TreeList2.StateImageList = Me.GLOBIXImages
+        Me.TreeListGLOBIXProfiles.StateImageList = Me.GLOBIXImages
-        Me.TreeList2.TabIndex = 0
+        Me.TreeListGLOBIXProfiles.TabIndex = 0
         '
         'GLOBIXImages
         '
@@ -877,78 +515,38 @@ Partial Class frmAdmin_Start
         Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.XtraTabControl1)
         Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
         Me.XtraTabPage_ClipboardWatcher.PageVisible = False
-        Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 547)
+        Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 501)
         Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
         '
         'XtraTabControl1
         '
+        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageCWProfiles
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 547)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 501)
         Me.XtraTabControl1.TabIndex = 0
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageCWProfiles, Me.XtraTabPage2})
         '
         'XtraTabPageCWProfiles
         '
-        Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeList1)
+        Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeListCWProfiles)
-        Me.XtraTabPageCWProfiles.Controls.Add(Me.GridCWProfiles)
         Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles"
-        Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 524)
+        Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 478)
         Me.XtraTabPageCWProfiles.Text = "Profile"
         '
-        'TreeList1
+        'TreeListCWProfiles
         '
-        Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.COL_ENTITY, Me.COL_ENITY_SCOPE, Me.COL_PARENT, Me.COL_GUID, Me.COL_NODE_TITLE})
+        Me.TreeListCWProfiles.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TreeList1.KeyFieldName = ""
+        Me.TreeListCWProfiles.KeyFieldName = ""
-        Me.TreeList1.Location = New System.Drawing.Point(4, 3)
+        Me.TreeListCWProfiles.Location = New System.Drawing.Point(0, 0)
-        Me.TreeList1.MenuManager = Me.RibbonControl1
+        Me.TreeListCWProfiles.MenuManager = Me.RibbonControl1
-        Me.TreeList1.Name = "TreeList1"
+        Me.TreeListCWProfiles.Name = "TreeListCWProfiles"
-        Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
+        Me.TreeListCWProfiles.OptionsView.ShowIndentAsRowStyle = True
-        Me.TreeList1.ParentFieldName = ""
+        Me.TreeListCWProfiles.ParentFieldName = ""
-        Me.TreeList1.Size = New System.Drawing.Size(809, 504)
+        Me.TreeListCWProfiles.Size = New System.Drawing.Size(1124, 478)
-        Me.TreeList1.StateImageList = Me.CWImages
+        Me.TreeListCWProfiles.StateImageList = Me.CWImages
-        Me.TreeList1.TabIndex = 2
+        Me.TreeListCWProfiles.TabIndex = 2
-        '
-        'COL_ENTITY
-        '
-        Me.COL_ENTITY.Caption = "Entität"
-        Me.COL_ENTITY.FieldName = "Entity"
-        Me.COL_ENTITY.Name = "COL_ENTITY"
-        Me.COL_ENTITY.Visible = True
-        Me.COL_ENTITY.VisibleIndex = 1
-        '
-        'COL_ENITY_SCOPE
-        '
-        Me.COL_ENITY_SCOPE.Caption = "Scope"
-        Me.COL_ENITY_SCOPE.FieldName = "Scope"
-        Me.COL_ENITY_SCOPE.Name = "COL_ENITY_SCOPE"
-        Me.COL_ENITY_SCOPE.Visible = True
-        Me.COL_ENITY_SCOPE.VisibleIndex = 2
-        '
-        'COL_PARENT
-        '
-        Me.COL_PARENT.Caption = "ParentId"
-        Me.COL_PARENT.FieldName = "ParentId"
-        Me.COL_PARENT.Name = "COL_PARENT"
-        Me.COL_PARENT.Visible = True
-        Me.COL_PARENT.VisibleIndex = 3
-        '
-        'COL_GUID
-        '
-        Me.COL_GUID.Caption = "Guid"
-        Me.COL_GUID.FieldName = "Guid"
-        Me.COL_GUID.Name = "COL_GUID"
-        Me.COL_GUID.Visible = True
-        Me.COL_GUID.VisibleIndex = 4
-        '
-        'COL_NODE_TITLE
-        '
-        Me.COL_NODE_TITLE.Caption = "Titel"
-        Me.COL_NODE_TITLE.FieldName = "Title"
-        Me.COL_NODE_TITLE.Name = "COL_NODE_TITLE"
-        Me.COL_NODE_TITLE.Visible = True
-        Me.COL_NODE_TITLE.VisibleIndex = 0
         '
         'CWImages
         '
@@ -959,26 +557,49 @@ Partial Class frmAdmin_Start
         'XtraTabPage2
         '
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 524)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 478)
         Me.XtraTabPage2.Text = "XtraTabPage2"
         '
         'XtraTabControl
         '
         Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl.Location = New System.Drawing.Point(200, 159)
+        Me.XtraTabControl.Location = New System.Drawing.Point(200, 205)
         Me.XtraTabControl.Name = "XtraTabControl"
         Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB
         Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
-        Me.XtraTabControl.Size = New System.Drawing.Size(1128, 570)
+        Me.XtraTabControl.Size = New System.Drawing.Size(1128, 524)
         Me.XtraTabControl.TabIndex = 4
         Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB})
         '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.labelTitle)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(200, 159)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1128, 46)
+        Me.Panel1.TabIndex = 8
+        Me.Panel1.TabStop = True
+        '
+        'labelTitle
+        '
+        Me.labelTitle.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.labelTitle.Font = New System.Drawing.Font("Segoe UI Semilight", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.labelTitle.Location = New System.Drawing.Point(0, 0)
+        Me.labelTitle.Name = "labelTitle"
+        Me.labelTitle.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
+        Me.labelTitle.Size = New System.Drawing.Size(1128, 46)
+        Me.labelTitle.TabIndex = 0
+        Me.labelTitle.Text = "labelTitle"
+        Me.labelTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
         '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(1328, 751)
         Me.Controls.Add(Me.XtraTabControl)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.DockPanel1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
@@ -987,12 +608,7 @@ Partial Class frmAdmin_Start
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
         Me.Text = "Administration"
-        CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1005,27 +621,22 @@ Partial Class frmAdmin_Start
         CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControlIDB.ResumeLayout(False)
         Me.XtraTabPageIDB_Attributes_New.ResumeLayout(False)
-        CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TreeListIDBAttributes, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageIDB_Entities.ResumeLayout(False)
-        Me.XtraTabPageIDB_Attributes.ResumeLayout(False)
+        CType(Me.TreeListIDBEntities, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageIDB_Attributes.PerformLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageIDB_SourceSQL.ResumeLayout(False)
-        CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPage_GlobalIndexer.ResumeLayout(False)
-        CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TreeListGLOBIXProfiles, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl1.ResumeLayout(False)
         Me.XtraTabPageCWProfiles.ResumeLayout(False)
-        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TreeListCWProfiles, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.CWImages, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1076,50 +687,22 @@ Partial Class frmAdmin_Start
     Friend WithEvents XtraTabPage_IDB As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents XtraTabControlIDB As DevExpress.XtraTab.XtraTabControl
     Friend WithEvents XtraTabPageIDB_Attributes_New As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridAttributes As DevExpress.XtraGrid.GridControl
-    Friend WithEvents ViewAttributes As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents ComboBox1 As ComboBox
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
-    Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn
-    Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn
-    Friend WithEvents GUIDTextBox As TextBox
-    Friend WithEvents TITLETextBox As TextBox
-    Friend WithEvents TYP_IDTextBox As TextBox
-    Friend WithEvents MULTI_CONTEXTCheckBox As CheckBox
-    Friend WithEvents VIEW_SEQUENCETextBox As TextBox
-    Friend WithEvents VIEW_VISIBLECheckBox As CheckBox
-    Friend WithEvents COMMENTTextBox As TextBox
-    Friend WithEvents ADDED_WHOTextBox As TextBox
-    Friend WithEvents ADDED_WHENTextBox As TextBox
-    Friend WithEvents CHANGED_WHOTextBox As TextBox
-    Friend WithEvents CHANGED_WHENTextBox As TextBox
-    Friend WithEvents XtraTabPageIDB_SourceSQL As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents GridSourceSQL As DevExpress.XtraGrid.GridControl
-    Friend WithEvents ViewSourceSQL As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
     Friend WithEvents XtraTabPageCWProfiles As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridCWProfiles As GridControl
-    Friend WithEvents GridView2 As GridView
-    Friend WithEvents ViewCWProcesses As GridView
-    Friend WithEvents ViewCWWindows As GridView
-    Friend WithEvents ViewCWControls As GridView
-    Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
-    Friend WithEvents WinExplorerView1 As Views.WinExplorer.WinExplorerView
-    Friend WithEvents COL_ENTITY As DevExpress.XtraTreeList.Columns.TreeListColumn
-    Friend WithEvents COL_ENITY_SCOPE As DevExpress.XtraTreeList.Columns.TreeListColumn
-    Friend WithEvents COL_PARENT As DevExpress.XtraTreeList.Columns.TreeListColumn
-    Friend WithEvents COL_GUID As DevExpress.XtraTreeList.Columns.TreeListColumn
-    Friend WithEvents COL_NODE_TITLE As DevExpress.XtraTreeList.Columns.TreeListColumn
     Friend WithEvents CWImages As DevExpress.Utils.SvgImageCollection
-    Friend WithEvents TreeList2 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents TreeListGLOBIXProfiles As DevExpress.XtraTreeList.TreeList
     Friend WithEvents GLOBIXImages As DevExpress.Utils.SvgImageCollection
+    Friend WithEvents TreeListCWProfiles As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents labelTitle As Label
+    Friend WithEvents TreeListIDBAttributes As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents XtraTabPageIDB_Entities As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents TreeListIDBEntities As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents IDBImages As DevExpress.Utils.SvgImageCollection
 End Class

GUIs.ZooFlow/Administration/frmAdmin_Start.resx

@@ -117,30 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="ADDED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="ADDED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="COMMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="VIEW_SEQUENCELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="TITLELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
   <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -294,20 +270,14 @@
   <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>
-  <metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="IDBImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>691, 17</value>
+    <value>531, 56</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="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>264, 17</value>
   </metadata>
   <data name="frmAdmin_Start.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -332,6 +302,15 @@
         LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
 </value>
   </data>
+  <metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>691, 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="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="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>919, 17</value>
   </metadata>
@@ -344,4 +323,19 @@
   <metadata name="TBIDB_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>277, 56</value>
   </metadata>
+  <metadata name="IDBImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>531, 56</value>
+  </metadata>
+  <metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>264, 17</value>
+  </metadata>
+  <metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>264, 17</value>
+  </metadata>
+  <metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -1,11 +1,8 @@
-Imports DevExpress.Utils
+Imports System.ComponentModel
+Imports DevExpress.Utils
 Imports DevExpress.XtraBars.Ribbon
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Views.Grid
-Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DevExpress.XtraTab
 Imports DevExpress.XtraTreeList
-Imports DevExpress.XtraTreeList.Nodes
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_Start
@@ -13,7 +10,7 @@ Public Class frmAdmin_Start
 
     Private Const IDB_START = "IDB_START"
     Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
-    Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY"
+    Private Const IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES"
     Private Const IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
     Private Const GLOBIX_PROFILES = "GLOBIX_PROFILES"
     Private Const CW_PROFILES = "CW_PROFILES"
@@ -22,6 +19,21 @@ Public Class frmAdmin_Start
     Private AdminItems As New List(Of AdminItem)
     Private CurrentPage As String
 
+    Private Function IsIDBAttribute(Item As AdminItem) As Boolean
+        Return Item.Entity = "IDB" And Item.Scope = "ATTRIBUTE"
+    End Function
+
+    Private Function IsIDBEntity(Item As AdminItem) As Boolean
+        Return Item.Entity = "IDB" And Item.Scope = "ENTITY"
+    End Function
+
+    Private Function IsCWItem(Item As AdminItem) As Boolean
+        Return Item.Entity = "CW"
+    End Function
+
+    Private Function IsGLOBIXItem(Item As AdminItem) As Boolean
+        Return Item.Entity = "GLOBIX"
+    End Function
 
     Private Class AdminItem
         Public Property Guid As Integer
@@ -30,6 +42,19 @@ Public Class frmAdmin_Start
         Public Property Entity As String
         Public Property Scope As String
         Public Property Summary As String
+
+        ''' <summary>
+        ''' The GUID coming from the Database starts with a 3-char long identifier that needs to be removed
+        ''' </summary>
+        Public ReadOnly Property RealGuid As Integer
+            Get
+                Return Guid.ToString.Substring(3)
+            End Get
+        End Property
+
+        Public Overrides Function ToString() As String
+            Return $"{Title} ({Guid})"
+        End Function
     End Class
 
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -37,6 +62,11 @@ Public Class frmAdmin_Start
 
         TreeListMenu.ExpandAll()
 
+        AddHandler TreeListIDBAttributes.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeListIDBEntities.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeListCWProfiles.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeListGLOBIXProfiles.DoubleClick, AddressOf TreeList_DoubleClick
+
         ' Show Tab Header in Development, hide when running the app
         XtraTabControl.ShowTabHeader = DefaultBoolean.False
     End Sub
@@ -48,8 +78,8 @@ Public Class frmAdmin_Start
 
             For Each oRow As DataRow In oTable.Rows
                 Dim oItem As New AdminItem With {
-                    .Guid = oRow.Item("GUID"),
+                    .Guid = CInt(oRow.Item("GUID")),
-                    .ParentId = oRow.Item("PARENT"),
+                    .ParentId = CInt(oRow.Item("PARENT")),
                     .Entity = oRow.Item("ENTITY").ToString,
                     .Scope = oRow.Item("ENTITY_SCOPE").ToString,
                     .Title = oRow.Item("NODE_TITLE").ToString,
@@ -98,6 +128,7 @@ Public Class frmAdmin_Start
     Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged
         Try
             If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
+                labelTitle.Text = "Start"
                 Exit Sub
             End If
 
@@ -105,171 +136,138 @@ Public Class frmAdmin_Start
 
             Select Case e.Node.Tag.ToString
                 Case IDB_START
+                    labelTitle.Text = "IDB Übersicht"
                     Display_Tab(XtraTabPage_IDB)
 
                 Case IDB_ATTRIBUTES
+                    labelTitle.Text = "IDB Attribute"
                     Display_Tab(XtraTabPage_IDB)
                     Display_Tab(XtraTabPageIDB_Attributes_New)
 
-                    'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
+                    Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList()
-                    'Load_Grid(oTable, oSource, GridAttributes)
+                    Load_Tree(oItems, TreeListIDBAttributes)
 
-                Case IDB_BUSINESS_ENTITY
+                Case IDB_BUSINESS_ENTITIES
-                'DisplayTab(XtraTabPage_Entities)
+                    labelTitle.Text = "IDB Entitäten"
+                    Display_Tab(XtraTabPage_IDB)
+                    Display_Tab(XtraTabPageIDB_Entities)
+
+                    Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList()
+                    Load_Tree(oItems, TreeListIDBEntities)
 
                 Case GLOBIX_PROFILES
+                    labelTitle.Text = "Global Indexer Profile"
                     Display_Tab(XtraTabPage_GlobalIndexer)
                     Display_RibbonPage(RibbonPage_GlobalIndexer)
 
-                    Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems
+                    Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsGLOBIXItem).ToList()
-                                                          Where Item.Entity = "GLOBIX"
+                    Load_Tree(oItems, TreeListGLOBIXProfiles)
-                                                          Select Item).ToList()
-                    Load_Tree(oCWItems, TreeList2)
 
                 Case CW_PROFILES
+                    labelTitle.Text = "Clipboard Watcher Profile"
                     Display_Tab(XtraTabPage_ClipboardWatcher)
                     Display_Tab(XtraTabPageCWProfiles)
                     Display_RibbonPage(RibbonPage_ClipboardWatcher)
 
-                    Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems
+                    Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList()
-                                                          Where Item.Entity = "CW"
+                    Load_Tree(oItems, TreeListCWProfiles)
-                                                          Select Item).ToList()
-                    Load_Tree(oCWItems, TreeList1)
-
-                Case IDB_SOURCE_SQL
-                    Display_Tab(XtraTabPage_IDB)
-                    Display_Tab(XtraTabPageIDB_SourceSQL)
-
-                    'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
-                    'Load_Grid(oTable, oSource, GridSourceSQL)
 
             End Select
         Catch ex As Exception
             ShowError(ex)
         End Try
-
     End Sub
 
-    'Private Sub Load_Children(Source As AdminItem, DataSet As DataSet, DataTable As DataTable)
-    '    Dim oChildren = AdminItems.Where(Function(cmd) cmd.Value.ParentId = Source.Guid).ToList()
-
-    '    If oChildren.Count > 0 Then
-    '        For Each oChild In oChildren
-    '            Dim oChildSource As AdminItem = oChild.Value
-    '            Dim oChildTable As DataTable = My.Database.GetDatatable(oChildSource.Title)
-    '            oChildTable.TableName = oChildSource.Title
-    '            Dim oRelationName As String = $"{Source.Title}__{oChildSource.Title}"
-
-    '            DataSet.Tables.Add(oChildTable)
-    '            DataSet.Relations.Add(New DataRelation(oRelationName,
-    '                                    DataTable.Columns.Item(Source.Entity),
-    '                                    oChildTable.Columns.Item(oChildSource.Scope)))
-
-    '            Load_Children(oChildSource, DataSet, oChildTable)
-    '        Next
-    '    End If
-    'End Sub
-
     Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList)
+        Dim oColumns As New List(Of Columns.TreeListColumn) From {
+            New Columns.TreeListColumn() With {
+                .Name = "columnTitle",
+                .Caption = "Titel",
+                .FieldName = "Title",
+                .Visible = True,
+                .VisibleIndex = 0
+            },
+            New Columns.TreeListColumn() With {
+                .Name = "columnScope",
+                .Caption = "Typ",
+                .FieldName = "Scope",
+                .Visible = True,
+                .VisibleIndex = 1
+            },
+            New Columns.TreeListColumn() With {
+                .Name = "columnSummary",
+                .Caption = "Beschreibung",
+                .FieldName = "Summary",
+                .Visible = True,
+                .VisibleIndex = 2
+            }
+        }
+
+        TreeList.Columns.Clear()
+        TreeList.Columns.AddRange(oColumns.ToArray)
         TreeList.HierarchyFieldName = "Title"
         TreeList.KeyFieldName = "Guid"
         TreeList.ParentFieldName = "ParentId"
-        'TreeList.PreviewFieldName = "Summary"
-        'TreeList.PreviewLineCount = 3
-        'TreeList.OptionsView.ShowPreview = True
         TreeList.DataSource = Source
         TreeList.ForceInitialize()
+
+        With TreeList.Appearance.EvenRow
+            .BackColor = Color.Snow
+            .Options.UseBackColor = True
+        End With
+
+        With TreeList.Appearance.FocusedCell
+            .BackColor = Color.Gold
+            .Options.UseBackColor = True
+        End With
+
+        With TreeList.OptionsBehavior
+            .Editable = False
+            .ReadOnly = True
+        End With
+
+        With TreeList.OptionsView
+            .ShowAutoFilterRow = True
+            .EnableAppearanceEvenRow = True
+            .ShowIndicator = False
+        End With
+
+        With TreeList.OptionsClipboard
+            .CopyColumnHeaders = DefaultBoolean.False
+        End With
+
+        With TreeList.OptionsFind
+            .AlwaysVisible = True
+        End With
+
+        AddHandler TreeList.KeyDown, Sub(sender As Object, e As KeyEventArgs)
+                                         Dim oTreeList As TreeList = DirectCast(sender, TreeList)
+                                         If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
+                                             Dim oCellValue = oTreeList.GetRowCellValue(oTreeList.FocusedNode, oTreeList.FocusedColumn)
+                                             If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
+                                                 Clipboard.SetText(oCellValue.ToString)
+                                             End If
+                                             e.Handled = True
+                                         End If
+                                     End Sub
+
+        TreeList.BestFitColumns()
     End Sub
 
-    Private Sub Load_Grid(DataSource As DataTable, Source As AdminItem, GridControl As GridControl)
+    Private Sub TreeList_DoubleClick(sender As Object, e As EventArgs)
-        Try
+        Dim oView As TreeList = TryCast(sender, TreeList)
-            PrimaryKey = Source.Entity
+        Dim hitInfo As TreeListHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
-
+        If hitInfo.InRow Then
-            Dim oDataSet As New DataSet()
-            DataSource.TableName = Source.Title
-            oDataSet.Tables.Add(DataSource)
-
-            'Load_Children(Source, oDataSet, DataSource)
-
-            'GridControl.DataSource = oDataSet.Tables.Item(Source.Title)
-            'GridControl.ForceInitialize()
-
-            'Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
-
-            'With oGridView.Appearance.EvenRow
-            '    .BackColor = Color.Gainsboro
-            '    .Options.UseBackColor = True
-            'End With
-
-            'With oGridView.Appearance.FocusedCell
-            '    .BackColor = Color.Gold
-            '    .Options.UseBackColor = True
-            'End With
-
-            'With oGridView.Appearance.FocusedRow
-            '    .BackColor = Color.Gold
-            '    .Options.UseBackColor = True
-            'End With
-
-            'With oGridView.OptionsBehavior
-            '    .Editable = False
-            '    .ReadOnly = True
-            'End With
-
-            'With oGridView.OptionsClipboard
-            '    .CopyColumnHeaders = DefaultBoolean.False
-            'End With
-
-            'With oGridView.OptionsFind
-            '    .AlwaysVisible = True
-            'End With
-
-            'With oGridView.OptionsView
-            '    .ShowAutoFilterRow = True
-            '    .EnableAppearanceEvenRow = True
-            '    .ShowIndicator = False
-            'End With
-
-            'AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs)
-            '                                  Dim oView As GridView = DirectCast(sender, GridView)
-            '                                  If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
-            '                                      Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn)
-            '                                      If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
-            '                                          Clipboard.SetText(oCellValue.ToString)
-            '                                      End If
-            '                                      e.Handled = True
-            '                                  End If
-            '                              End Sub
-
-            'oGridView.BestFitColumns()
-
-        Catch ex As Exception
-            ShowError(ex)
-        End Try
-    End Sub
-
-    Private Sub View_DoubleClick(sender As Object, e As EventArgs) Handles _
-        ViewAttributes.DoubleClick, ViewSourceSQL.DoubleClick
-        Dim oView As GridView = TryCast(sender, GridView)
-        Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
-        If hitInfo.InDataRow Then
             Try
-                Dim oRow As DataRow = oView.GetFocusedDataRow
+                Dim oItem As AdminItem = oView.GetFocusedRow
-                If oRow IsNot Nothing Then
+                If oItem IsNot Nothing Then
-                    Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
-
                     Select Case oView.Name
-                        Case ViewAttributes.Name
+                        Case TreeListIDBAttributes.Name
-                            Load_Attribute(oPrimaryKey)
+                            Load_IDBAttribute(oItem.RealGuid)
-
-                        Case ViewSourceSQL.Name
-                            Load_SourceSql(oPrimaryKey)
-
-                        Case WinExplorerView1.Name
-                            Load_CWProfile(oPrimaryKey)
 
+                        Case TreeListIDBEntities.Name
+                            Load_IDBEntity(oItem.RealGuid)
                     End Select
-
                 End If
             Catch ex As Exception
                 ShowError(ex)
@@ -277,30 +275,30 @@ Public Class frmAdmin_Start
         End If
     End Sub
 
-    Private Sub Load_Attribute(PrimaryKey As Integer)
+    Private Sub Load_IDBAttribute(PrimaryKey As Integer)
         Try
             Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey)
             oForm.ShowDialog()
 
             If oForm.HasChanges Then
-                Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
+                Load_SQLData()
-                Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
+                Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList
-                Load_Grid(oTable, oSource, GridAttributes)
+                Load_Tree(oItems, TreeListIDBAttributes)
             End If
         Catch ex As Exception
             ShowError(ex)
         End Try
     End Sub
 
-    Private Sub Load_SourceSql(PrimaryKey As Integer)
+    Private Sub Load_IDBEntity(PrimaryKey As Integer)
         Try
-            Dim oForm As New frmAdmin_SourceSQL(PrimaryKey)
+            Dim oForm As New frmAdmin_IDBEntity(PrimaryKey)
             oForm.ShowDialog()
 
             If oForm.HasChanges Then
-                Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
+                Load_SQLData()
-                Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
+                Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList
-                Load_Grid(oTable, oSource, GridSourceSQL)
+                Load_Tree(oItems, TreeListIDBEntities)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -313,6 +311,7 @@ Public Class frmAdmin_Start
             oForm.ShowDialog()
 
             If oForm.HasChanges Then
+
                 Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
                 Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
                 'Load_Tree(oTable, oSource, TreeList1)
@@ -324,10 +323,10 @@ Public Class frmAdmin_Start
 
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
         Try
-            Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
+            Dim oRow As DataRow = TreeListIDBAttributes.GetFocusedDataRow
             If oRow IsNot Nothing Then
-                Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
+                Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer)
-                Load_Attribute(oPrimaryKey)
+                Load_IDBAttribute(oPrimaryKey)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -348,9 +347,11 @@ Public Class frmAdmin_Start
         labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
     End Sub
 
-    Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList1.GetStateImage
+
+
+    Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListCWProfiles.GetStateImage
         Dim oTreeList As TreeList = DirectCast(sender, TreeList)
-        Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
+        Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
 
         Select Case oItem.Scope
             Case "PROFILE"
@@ -368,9 +369,9 @@ Public Class frmAdmin_Start
 
     End Sub
 
-    Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList2.GetStateImage
+    Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListGLOBIXProfiles.GetStateImage
         Dim oTreeList As TreeList = DirectCast(sender, TreeList)
-        Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
+        Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
 
         Select Case oItem.Scope
             Case "PROFILE"
@@ -385,4 +386,12 @@ Public Class frmAdmin_Start
         End Select
 
     End Sub
+
+    Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBAttributes.GetStateImage
+        e.NodeImageIndex = 1
+    End Sub
+
+    Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBEntities.GetStateImage
+        e.NodeImageIndex = 0
+    End Sub
 End Class

GUIs.ZooFlow/ClassLayout.vb

@@ -72,7 +72,7 @@ Public Class ClassWindowLocation
             MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
-    Private Function IsVisibleOnAnyScreen(rect As Rectangle)
+    Private Function IsVisibleOnAnyScreen(rect As Rectangle) As Boolean
         Try
             Dim result As Boolean = False
             For Each Screen As Screen In Screen.AllScreens

GUIs.ZooFlow/DSIDB_Stammdaten.xsd

@@ -21,31 +21,36 @@ WHERE        (GUID = @Original_GUID)</CommandText>
                   </DbCommand>
                 </DeleteCommand>
                 <InsertCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>INSERT INTO TBIDB_BUSINESS_ENTITY
+                    <CommandText>INSERT INTO [TBIDB_BUSINESS_ENTITY] ([PARENT_ENT_ID], [TITLE], [INHERITS_ATTRIBUTES], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PARENT_ENT_ID, @TITLE, @INHERITS_ATTRIBUTES, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);
-                         (PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)
-VALUES        (@PARENT_ENT_ID,@TITLE,@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO);  
 SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="PARENT_ENT_ID" ColumnName="PARENT_ENT_ID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PARENT_ENT_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PARENT_ENT_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PARENT_ENT_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PARENT_ENT_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="INHERITS_ATTRIBUTES" ColumnName="INHERITS_ATTRIBUTES" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@INHERITS_ATTRIBUTES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="INHERITS_ATTRIBUTES" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@INHERITS_ATTRIBUTES" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="INHERITS_ATTRIBUTES" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>SELECT        GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-FROM            TBIDB_BUSINESS_ENTITY</CommandText>
+FROM            TBIDB_BUSINESS_ENTITY
-                    <Parameters />
+WHERE GUID = @GUID</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
                   </DbCommand>
                 </SelectCommand>
                 <UpdateCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>UPDATE       TBIDB_BUSINESS_ENTITY
-SET                PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO
+SET                PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, 
+                         CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN
 WHERE        (GUID = @Original_GUID); 
 SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = @GUID)</CommandText>
                     <Parameters>
@@ -53,7 +58,10 @@ SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDE
                       <Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="INHERITS_ATTRIBUTES" ColumnName="INHERITS_ATTRIBUTES" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@INHERITS_ATTRIBUTES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="INHERITS_ATTRIBUTES" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
@@ -242,98 +250,6 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
             </Mappings>
             <Sources />
           </TableAdapter>
-          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBZF_ADMIN_SOURCE_SQLTableAdapter" GeneratorDataComponentClassName="TBZF_ADMIN_SOURCE_SQLTableAdapter" Name="TBZF_ADMIN_SOURCE_SQL" UserDataComponentName="TBZF_ADMIN_SOURCE_SQLTableAdapter">
-            <MainSource>
-              <DbSource ConnectionRef="DD_ECM_TESTConnectionString (Settings)" DbObjectName="DD_ECM_TEST.dbo.TBZF_ADMIN_SOURCE_SQL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
-                <DeleteCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>DELETE FROM [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
-                    <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                    </Parameters>
-                  </DbCommand>
-                </DeleteCommand>
-                <InsertCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([ENTITY_TITLE], [PK_COLUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@ENTITY_TITLE, @PK_COLUMN, @COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);
-SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY())</CommandText>
-                    <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                    </Parameters>
-                  </DbCommand>
-                </InsertCommand>
-                <SelectCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
-                    <CommandText>SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE GUID = @GUID</CommandText>
-                    <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBZF_ADMIN_SOURCE_SQL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                    </Parameters>
-                  </DbCommand>
-                </SelectCommand>
-                <UpdateCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [ENTITY_TITLE] = @ENTITY_TITLE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [SQL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
-SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID)</CommandText>
-                    <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBZF_ADMIN_SOURCE_SQL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                    </Parameters>
-                  </DbCommand>
-                </UpdateCommand>
-              </DbSource>
-            </MainSource>
-            <Mappings>
-              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
-              <Mapping SourceColumn="ENTITY_TITLE" DataSetColumn="ENTITY_TITLE" />
-              <Mapping SourceColumn="PK_COLUMN" DataSetColumn="PK_COLUMN" />
-              <Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
-              <Mapping SourceColumn="SQL_COMMAND" DataSetColumn="SQL_COMMAND" />
-              <Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
-              <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
-              <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
-              <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
-            </Mappings>
-            <Sources />
-          </TableAdapter>
         </Tables>
         <Sources />
       </DataSource>
@@ -362,14 +278,14 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
+              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="30" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
               <xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
@@ -479,57 +395,6 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_TableClassName="TBZF_ADMIN_SOURCE_SQLDataTable" msprop:Generator_TableVarName="tableTBZF_ADMIN_SOURCE_SQL" msprop:Generator_TablePropName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowDeletingName="TBZF_ADMIN_SOURCE_SQLRowDeleting" msprop:Generator_RowChangingName="TBZF_ADMIN_SOURCE_SQLRowChanging" msprop:Generator_RowEvHandlerName="TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBZF_ADMIN_SOURCE_SQLRowDeleted" msprop:Generator_UserTableName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowChangedName="TBZF_ADMIN_SOURCE_SQLRowChanged" msprop:Generator_RowEvArgName="TBZF_ADMIN_SOURCE_SQLRowChangeEvent" msprop:Generator_RowClassName="TBZF_ADMIN_SOURCE_SQLRow">
-          <xs:complexType>
-            <xs:sequence>
-              <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
-              <xs:element name="ENTITY_TITLE" msprop:Generator_ColumnVarNameInTable="columnENTITY_TITLE" msprop:Generator_ColumnPropNameInRow="ENTITY_TITLE" msprop:Generator_ColumnPropNameInTable="ENTITY_TITLEColumn" msprop:Generator_UserColumnName="ENTITY_TITLE">
-                <xs:simpleType>
-                  <xs:restriction base="xs:string">
-                    <xs:maxLength value="100" />
-                  </xs:restriction>
-                </xs:simpleType>
-              </xs:element>
-              <xs:element name="PK_COLUMN" msprop:Generator_ColumnVarNameInTable="columnPK_COLUMN" msprop:Generator_ColumnPropNameInRow="PK_COLUMN" msprop:Generator_ColumnPropNameInTable="PK_COLUMNColumn" msprop:Generator_UserColumnName="PK_COLUMN">
-                <xs:simpleType>
-                  <xs:restriction base="xs:string">
-                    <xs:maxLength value="100" />
-                  </xs:restriction>
-                </xs:simpleType>
-              </xs:element>
-              <xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
-                <xs:simpleType>
-                  <xs:restriction base="xs:string">
-                    <xs:maxLength value="500" />
-                  </xs:restriction>
-                </xs:simpleType>
-              </xs:element>
-              <xs:element name="SQL_COMMAND" msprop:Generator_ColumnVarNameInTable="columnSQL_COMMAND" msprop:Generator_ColumnPropNameInRow="SQL_COMMAND" msprop:Generator_ColumnPropNameInTable="SQL_COMMANDColumn" msprop:Generator_UserColumnName="SQL_COMMAND">
-                <xs:simpleType>
-                  <xs:restriction base="xs:string">
-                    <xs:maxLength value="2147483647" />
-                  </xs:restriction>
-                </xs:simpleType>
-              </xs:element>
-              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
-                <xs:simpleType>
-                  <xs:restriction base="xs:string">
-                    <xs:maxLength value="30" />
-                  </xs:restriction>
-                </xs:simpleType>
-              </xs:element>
-              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
-              <xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
-                <xs:simpleType>
-                  <xs:restriction base="xs:string">
-                    <xs:maxLength value="30" />
-                  </xs:restriction>
-                </xs:simpleType>
-              </xs:element>
-              <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
-            </xs:sequence>
-          </xs:complexType>
-        </xs:element>
       </xs:choice>
     </xs:complexType>
     <xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -544,10 +409,6 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE
       <xs:selector xpath=".//mstns:TBIDB_ATTRIBUTE_TYPE" />
       <xs:field xpath="mstns:GUID" />
     </xs:unique>
-    <xs:unique name="TBZF_ADMIN_SOURCE_SQL_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
-      <xs:selector xpath=".//mstns:TBZF_ADMIN_SOURCE_SQL" />
-      <xs:field xpath="mstns:GUID" />
-    </xs:unique>
   </xs:element>
   <xs:annotation>
     <xs:appinfo>

GUIs.ZooFlow/DSIDB_Stammdaten.xss

@@ -6,13 +6,12 @@
 </autogenerated>-->
 <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="3" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="5" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="4" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="4" X="359" Y="41" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="3" X="359" Y="41" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBIDB_ATTRIBUTE_TYPE" ZOrder="3" X="677" Y="48" Height="286" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBIDB_ATTRIBUTE_TYPE" ZOrder="2" X="677" Y="48" Height="286" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBZF_ADMIN_SOURCE_SQL" ZOrder="1" X="40" Y="422" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
   </Shapes>
   <Connectors>
-    <Connector ID="DesignRelation:FK_TYP_ID" ZOrder="2" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TYP_ID" ZOrder="1" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>677</X>

GUIs.ZooFlow/Globix/ClassEmailHeaderExtractor.vb

@@ -7,7 +7,7 @@ Public Class ClassEmailHeaderExtractor
     ''' </summary>
     ''' <param name="path">Der Pfad einer .msg Datei</param>
     ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
-    Public Shared Function getMessageHeaders(path As String)
+    Public Shared Function getMessageHeaders(path As String) As String
         Try
             Dim msg As New Msg.Message(path)
             Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
@@ -22,7 +22,7 @@ Public Class ClassEmailHeaderExtractor
     ''' </summary>
     ''' <param name="msg">Eine Email vom Typ Msg.Message</param>
     ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
-    Public Shared Function getMessageHeaders(msg As Msg.Message)
+    Public Shared Function getMessageHeaders(msg As Msg.Message) As String
         Try
             Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
             Return headers
@@ -38,7 +38,7 @@ Public Class ClassEmailHeaderExtractor
     ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
     ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
     ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) As String
         If IsNothing(messageHeaders) Then
             Return Nothing
         End If
@@ -54,9 +54,9 @@ Public Class ClassEmailHeaderExtractor
 
         Return Nothing
     End Function
-    Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
+    Public Shared Function extractFromHeader(messageHeaders As String, Regex As String) As String
         Try
-            Dim result
+            Dim result As String
             Dim i As Integer = 0
             If IsNothing(messageHeaders) Then
                 Return Nothing
@@ -93,7 +93,7 @@ Public Class ClassEmailHeaderExtractor
     ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
     ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
     ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) As String
         If IsNothing(messageHeaders) Then
             Return Nothing
         End If

GUIs.ZooFlow/Globix/ClassFileDrop.vb

@@ -1,4 +1,6 @@
-Imports System.IO
+Option Strict Off
+
+Imports System.IO
 Imports DigitalData.Modules.Logging
 Imports Microsoft.Office.Interop
 
@@ -10,7 +12,7 @@ Public Class ClassFileDrop
         _LOGGER = LogConfig.GetLogger()
         clsFilehandle = New ClassFilehandle()
     End Sub
-    Public Function Drop_File(e As DragEventArgs)
+    Public Function Drop_File(e As DragEventArgs) As Boolean
         Try
             _LOGGER.Info("Available Drop Formats:")
 
@@ -24,7 +26,7 @@ Public Class ClassFileDrop
                 Dim MyFiles() As String
                 Dim i As Integer
                 ' Assign the files to an array. 
-                MyFiles = e.Data.GetData(DataFormats.FileDrop)
+                MyFiles = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
                 ' Loop through the array and add the files to the list. 
                 For i = 0 To MyFiles.Length - 1
                     _LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
@@ -143,8 +145,4 @@ Public Class ClassFileDrop
             Return False
         End Try
     End Function
-
-
-
-
 End Class

GUIs.ZooFlow/Globix/ClassFilehandle.vb

@@ -23,13 +23,13 @@ Public Class ClassFilehandle
         Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
         Return r.Replace(Input, replacement)
     End Function
-    Public Function Decide_FileHandle(filename As String, handletype As String)
+    Public Function Decide_FileHandle(filename As String, handletype As String) As Boolean
         Try
             If filename.EndsWith(".msg") Then
                 My.Application.Globix.CurrMessageID = ""
                 Dim _msg As New Msg.Message(filename)
                 If _msg.Attachments.Count > 0 Then
-                    Dim result As MsgBoxResult
+                    Dim result As DialogResult
 
                     If My.Application.User.Language = "de-DE" Then
                         result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@@ -62,7 +62,7 @@ Public Class ClassFilehandle
             Return False
         End Try
     End Function
-    Private Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+    Private Function Email_Decay(msgname As String, Optional FW As Boolean = False) As Boolean
         Try
             Dim msgonly As String = "|MSGONLY|"
             Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
@@ -147,7 +147,7 @@ Public Class ClassFilehandle
         End Try
     End Function
 
-    Private Function Insert_GI_File(filename As String, handleType As String)
+    Private Function Insert_GI_File(filename As String, handleType As String) As Boolean
         Try
             filename = filename.Replace("'", "''")
 
@@ -183,9 +183,9 @@ Public Class ClassFilehandle
         End If
 
     End Function
-    Public Function Versionierung_Datei(Dateiname As String)
+    Public Function Versionierung_Datei(Dateiname As String) As String
-        Dim extension
+        Dim extension As String
-        Dim _NewFileString
+        Dim _NewFileString As String
         Try
             Dim version As Integer = 1
 

GUIs.ZooFlow/Globix/ClassFolderwatcher.vb

@@ -34,7 +34,7 @@ Public Class ClassFolderwatcher
             Logger.Error(ex.Message)
         End Try
     End Function
-    Public Function Restart_FolderWatchSCAN()
+    Public Sub Restart_FolderWatchSCAN()
         Try
             If FWScan.EnableRaisingEvents = True Then
                 'Gestartet also Stoppen
@@ -53,13 +53,9 @@ Public Class ClassFolderwatcher
             Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
             Logger.Error(ex.Message)
         End Try
-    End Function
+    End Sub
-    Public Function StartStop_FolderWatch()
+    Public Sub StartStop_FolderWatch()
         Try
-            If My.Application.Globix.CurrentFolderWatchPath = "" Then
-                'MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation)
-                Return False
-            End If
             If FWFolderWatcher Is Nothing Then
                 FWFolderWatcher = New System.IO.FileSystemWatcher(My.Application.Globix.CurrentFolderWatchPath, "*.*")
                 Logger.Info(" >> FolderWatch Gestartet")
@@ -70,7 +66,6 @@ Public Class ClassFolderwatcher
                 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True")
                 My.UIConfig.Globix.FolderWatchStarted = True
                 My.UIConfigManager.Save()
-                Return 1
             End If
             If FWFolderWatcher.EnableRaisingEvents = False Then
                 ' Dim watcher As New FileSystemWatcher()
@@ -84,7 +79,6 @@ Public Class ClassFolderwatcher
                 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True")
                 My.UIConfig.Globix.FolderWatchStarted = True
                 My.UIConfigManager.Save()
-                Return 1
             Else
                 'Gestartet also Stoppen
                 FWFolderWatcher.EnableRaisingEvents = False
@@ -93,15 +87,12 @@ Public Class ClassFolderwatcher
                 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "False")
                 My.UIConfig.Globix.FolderWatchStarted = False
                 My.UIConfigManager.Save()
-                Return 0
             End If
-
         Catch ex As Exception
             Logger.Error(ex.Message)
             MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return 99
         End Try
-    End Function
+    End Sub
     Public Function StartStop_FolderWatchSCAN() As Integer
         Try
             If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = "" Then

GUIs.ZooFlow/My Project/Resources.Designer.vb

@@ -200,6 +200,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property about2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("about2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -310,6 +320,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property bo_appointment() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("bo_appointment", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -440,6 +460,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property markcomplete() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("markcomplete", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -480,6 +510,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property save3() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("save3", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

GUIs.ZooFlow/My Project/Resources.resx

@@ -118,17 +118,20 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ZooFlow-25" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -136,8 +139,8 @@
   <data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ZooFlow-25" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -151,8 +154,8 @@
   <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -172,11 +175,14 @@
   <data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -190,8 +196,8 @@
   <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -247,6 +253,9 @@
   <data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="markcomplete" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="actions_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -259,7 +268,10 @@
   <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="bo_appointment" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\bo_appointment.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="about2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

GUIs.ZooFlow/Resources/about2.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{display:none;}
+	.st2{display:inline;fill:#039C23;}
+	.st3{display:inline;fill:#D11C1C;}
+	.st4{display:inline;fill:#727272;}
+</style>
+  <g id="About">
+    <path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M16,6c1.1,0,2,0.9,2,2s-0.9,2-2,2s-2-0.9-2-2   S14.9,6,16,6z M20,24h-8v-2h2v-8h-2v-2h2h4v10h2V24z" class="Blue" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/bo_appointment.svg

@@ -0,0 +1,29 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{display:none;}
+	.st3{display:inline;fill:#FFB115;}
+	.st4{display:inline;}
+	.st5{display:inline;opacity:0.75;}
+	.st6{display:inline;opacity:0.5;}
+	.st7{display:inline;fill:#039C23;}
+	.st8{display:inline;fill:#D11C1C;}
+	.st9{display:inline;fill:#1177D7;}
+	.st10{display:inline;fill:#FFFFFF;}
+</style>
+  <g id="Appointment">
+    <path d="M0,3v24c0,0.6,0.4,1,1,1h28c0.6,0,1-0.4,1-1V3c0-0.6-0.4-1-1-1H1C0.4,2,0,2.4,0,3z M28,26H2V6h26V26z" class="Black" />
+    <rect x="10" y="14" width="4" height="4" rx="0" ry="0" class="Red" />
+    <g class="st0">
+      <path d="M8,24H4v-4h4V24z M14,20h-4v4h4V20z M20,20h-4v4h4V20z M26,20h-4v4h4V20z M20,8h-4v4h4V8z M26,8h-4v4h4V8z     M26,14h-4v4h4V14z M20,14h-4v4h4V14z M8,14H4v4h4V14z M14,8h-4v4h4V8z M8,8H4v4h4V8z" class="Black" />
+    </g>
+  </g>
+</svg>

GUIs.ZooFlow/Resources/markcomplete.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{display:none;}
+	.st2{display:inline;fill:#039C23;}
+	.st3{display:inline;fill:#D11C1C;}
+	.st4{display:inline;fill:#727272;}
+</style>
+  <g id="MarkComplete">
+    <polygon points="27,4 11,20 5,14 2,17 11,26 30,7  " class="Green" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/save3.svg

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Save" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+</style>
+  <path d="M27,4h-3v10H8V4H5C4.4,4,4,4.4,4,5v22c0,0.6,0.4,1,1,1h22c0.6,0,1-0.4,1-1V5C28,4.4,27.6,4,27,4z M24,24H8v-6  h16V24z M10,4v8h10V4H10z M14,10h-2V6h2V10z" class="Black" />
+</svg>

GUIs.ZooFlow/ZooFlow.vbproj

@@ -26,6 +26,9 @@
     <DefineDebug>true</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <ErrorReport>prompt</ErrorReport>
+    <WarningsAsErrors>
+    </WarningsAsErrors>
+    <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -35,6 +38,9 @@
     <DefineDebug>false</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <ErrorReport>prompt</ErrorReport>
+    <WarningsAsErrors>
+    </WarningsAsErrors>
+    <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
   </PropertyGroup>
   <PropertyGroup>
     <MyType>WindowsForms</MyType>
@@ -120,13 +126,13 @@
     <Compile Include="Administration\frmAdmin_IDBAttribute.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Administration\frmAdmin_Interface.vb" />
+    <Compile Include="Administration\frmAdmin_IDBEntity.Designer.vb">
-    <Compile Include="Administration\frmAdmin_SourceSQL.Designer.vb">
+      <DependentUpon>frmAdmin_IDBEntity.vb</DependentUpon>
-      <DependentUpon>frmAdmin_SourceSQL.vb</DependentUpon>
     </Compile>
-    <Compile Include="Administration\frmAdmin_SourceSQL.vb">
+    <Compile Include="Administration\frmAdmin_IDBEntity.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Administration\frmAdmin_Interface.vb" />
     <Compile Include="ApplicationEvents.vb" />
     <Compile Include="Base\BaseClass.vb" />
     <Compile Include="ClipboardWatcher\ClassProfileLoader.vb" />
@@ -279,8 +285,8 @@
     <EmbeddedResource Include="Administration\frmAdmin_IDBAttribute.resx">
       <DependentUpon>frmAdmin_IDBAttribute.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Administration\frmAdmin_SourceSQL.resx">
+    <EmbeddedResource Include="Administration\frmAdmin_IDBEntity.resx">
-      <DependentUpon>frmAdmin_SourceSQL.vb</DependentUpon>
+      <DependentUpon>frmAdmin_IDBEntity.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="Globix\frmGlobixBasicConfig.resx">
       <DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
@@ -580,6 +586,18 @@
   <ItemGroup>
     <None Include="Resources\save2.svg" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\markcomplete.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\save3.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\bo_appointment.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\about2.svg" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.

GUIs.ZooFlow/frmFlowForm.vb

@@ -819,7 +819,7 @@ Public Class frmFlowForm
                         If My.Application.Globix.ABORT_INDEXING = True Then
                             Exit For
                         End If
-                        Dim FileForWork As String = row.Item(1)
+                        Dim FileForWork As String = row.Item(1).ToString
                         Logger.Info(" In Timer Folderwatch - File: " & FileForWork)
                         Dim fileInUse As Boolean = FileHandle.IsFileInUse(FileForWork)
                         Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
@@ -827,7 +827,7 @@ Public Class frmFlowForm
                             If fileexists = True Then
                                 My.Application.Globix.CURRENT_WORKFILE = FileForWork
                                 My.Application.Globix.CURRENT_FILENAME = FileForWork
-                                My.Application.Globix.CURRENT_WORKFILE_GUID = row.Item("GUID")
+                                My.Application.Globix.CURRENT_WORKFILE_GUID = DirectCast(row.Item("GUID"), Integer)
                                 Globix_Open_IndexDialog()
                             Else
                                 Logger.Info(" File not existing - Row will be deleted!")
@@ -835,7 +835,7 @@ Public Class frmFlowForm
                                 My.Database.ExecuteNonQuery(oDel)
                             End If
                         Else
-                            Logger.Info(" file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!")
+                            Logger.Info(" file '" & row.Item(1).ToString & "' could not be opened exclusively - fileInUse!")
                         End If
 
                     Next