Zooflow: Add Active Directory User Import

GUIs.Common/GridBuilder.vb

@@ -8,8 +8,8 @@ Public Class GridBuilder
 
     Public ReadOnly Property Views As New List(Of GridView)
 
-    Public Sub New(GridView As GridView)
+    Public Sub New(ParamArray GridViews As GridView())
-        Views.Add(GridView)
+        Views.AddRange(GridViews)
     End Sub
 
     Public Sub New(GridViews As List(Of GridView))

GUIs.ZooFlow/Administration/ClassDetailPage.vb

@@ -9,7 +9,7 @@ Imports DigitalData.Modules.Logging
 ''' <summary>
 ''' 
 ''' </summary>
-Public Class ClassDetailPages
+Public Class ClassDetailPageManager
     Private ReadOnly LogConfig As LogConfig
     Private ReadOnly Logger As Logger
     Private ReadOnly HostForm As IAdminForm
@@ -38,18 +38,50 @@ Public Class ClassDetailPages
         Public Property Page As DetailPage
     End Class
 
+    ''' <summary>
+    ''' An object representing a section of a form to edit an entity, ex. a user
+    ''' </summary>
+    ''' <remarks>A Page to edit would be called the user page.</remarks>
     Public Class DetailPage
+        ''' <summary>
+        ''' Is this the primary entity to be edited in this form?
+        ''' </summary>
         Public Property IsPrimary As Boolean = False
+
+        ''' <summary>
+        ''' Is this an insert of a new object?
+        ''' </summary>
+        ''' <returns></returns>
         Public Property IsInsert As Boolean = False
-        Public Property TabPage As XtraTabPage
+
+        ''' <summary>
+        ''' The tab page containing the page. This can be left empty
+        ''' </summary>
+        Public Property TabPage As XtraTabPage = Nothing
+
+        ''' <summary>
+        ''' The Name of the Page which the user will see
+        ''' </summary>
         Public Property Name As String
-        <Description("The Binding Source for the Form")>
+
+        ''' <summary>
+        ''' The Binding Source for the Page
+        ''' </summary>
         Public Property BindingSource As BindingSource
-        <Description("The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)")>
+
+        ''' <summary>
+        ''' The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)
+        ''' </summary>
         Public Property DataTable As DataTable
-        <Description("The TextEdit Control containing the AddedWho value")>
+
+        ''' <summary>
+        ''' The TextEdit Control containing the AddedWho value
+        ''' </summary>
         Public Property AddedWhoEdit As TextEdit
-        <Description("The TextEdit Control containing the ChangedWhoEdit value")>
+
+        ''' <summary>
+        ''' The TextEdit Control containing the ChangedWhoEdit value
+        ''' </summary>
         Public Property ChangedWhoEdit As TextEdit
     End Class
 
@@ -83,20 +115,43 @@ Public Class ClassDetailPages
             AddHandler oLayoutControl.Click, AddressOf Handle_Focus
             AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus
 
-            For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
+            For Each oContainer As BaseLayoutItem In oLayoutControl.Root.Items
-                If TypeOf oContainer Is EmptySpaceItem Then
+                Dim oItem As LayoutControlItem
+
+                If TypeOf oContainer IsNot LayoutControlItem Then
                     Continue For
                 End If
 
-                If TypeOf oContainer.Control IsNot BaseEdit Then
+                oItem = oContainer
+
+                If TypeOf oItem Is EmptySpaceItem Then
                     Continue For
                 End If
 
-                Dim oControl As BaseEdit = oContainer.Control
+                If TypeOf oItem.Control IsNot BaseEdit Then
+                    Continue For
+                End If
+
+                Dim oControl As BaseEdit = oItem.Control
                 AddHandler oControl.GotFocus, AddressOf Handle_Focus
                 AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged
                 AddHandler oControl.Validating, AddressOf Handle_Validating
             Next
+
+            'For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
+            '    If TypeOf oContainer Is EmptySpaceItem Then
+            '        Continue For
+            '    End If
+
+            '    If TypeOf oContainer.Control IsNot BaseEdit Then
+            '        Continue For
+            '    End If
+
+            '    Dim oControl As BaseEdit = oContainer.Control
+            '    AddHandler oControl.GotFocus, AddressOf Handle_Focus
+            '    AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged
+            '    AddHandler oControl.Validating, AddressOf Handle_Validating
+            'Next
         Next
     End Sub
 

GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb

@@ -9,7 +9,7 @@ Public Class frmAdmin_Globix
     Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
     Public Property GlobixHelper As ClassGIDatatables
 
-    Private Pages As ClassDetailPages
+    Private Pages As ClassDetailPageManager
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -44,9 +44,9 @@ Public Class frmAdmin_Globix
 
             ' Add Focus Handler to all controls in all LayoutControls
             Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlManIndexe, LayoutControlAutoIndexe, LayoutControlRework}
-            Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls)
+            Pages = New ClassDetailPageManager(My.LogConfig, Me, oLayoutControls)
             Pages.AddRange({
-                New ClassDetailPages.PrimaryPage(IsInsert) With {
+                New ClassDetailPageManager.PrimaryPage(IsInsert) With {
                     .Name = "Profile Globix",
                     .TabPage = XtraTabPageProfile,
                     .BindingSource = TBDD_DOKUMENTARTBindingSource,
@@ -54,7 +54,7 @@ Public Class frmAdmin_Globix
                     .AddedWhoEdit = TextEditErstelltWer,
                     .ChangedWhoEdit = TextEditGeandertWer
                 },
-                New ClassDetailPages.DetailPage With {
+                New ClassDetailPageManager.DetailPage With {
                     .Name = "Manual Attributes",
                     .TabPage = XtraTabPageManIndexe,
                     .BindingSource = TBDD_INDEX_MANBindingSource,
@@ -62,7 +62,7 @@ Public Class frmAdmin_Globix
                     .AddedWhoEdit = TextEditAddedWho_ManIndex,
                     .ChangedWhoEdit = TextEditChangedWho_ManIndex
                 },
-                 New ClassDetailPages.DetailPage With {
+                 New ClassDetailPageManager.DetailPage With {
                     .Name = "Auto Attributes",
                     .TabPage = XtraTabPageAutoIndexe,
                     .BindingSource = TBDD_INDEX_AUTOMBindingSource,
@@ -70,7 +70,7 @@ Public Class frmAdmin_Globix
                     .AddedWhoEdit = ADDED_WHOTextBoxAutoAttribut,
                     .ChangedWhoEdit = CHANGED_WHOTextEditAutoAttribut
                 },
-                 New ClassDetailPages.DetailPage With {
+                 New ClassDetailPageManager.DetailPage With {
                     .Name = "Auto Attributes",
                     .TabPage = XtraTabPageAutoSelect,
                     .BindingSource = TBGI_REGEX_DOCTYPEBindingSource,
@@ -78,7 +78,7 @@ Public Class frmAdmin_Globix
                     .AddedWhoEdit = AddedWhoAutoSelect,
                     .ChangedWhoEdit = ChangedWhoAutoSelect
                 },
-                 New ClassDetailPages.DetailPage With {
+                 New ClassDetailPageManager.DetailPage With {
                     .Name = "Dynamic Folder",
                     .TabPage = XtraTabPageDynamicFolder,
                     .BindingSource = TBDD_DOKUMENTARTBindingSource,
@@ -116,7 +116,7 @@ Public Class frmAdmin_Globix
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
         End Try
     End Sub
-    Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs)
+    Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPageManager.DetailPageEventArgs)
         If Not IsNothing(e.Page) Then
             If e.Page.IsPrimary = True Then
                 BarButtonNew.Enabled = False
@@ -187,7 +187,7 @@ Public Class frmAdmin_Globix
         '    ShowStatus("Keine Änderungen!")
         'End If
     End Sub
-    Private Function Save_manIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
+    Private Function Save_manIndexe(oPage As ClassDetailPageManager.DetailPage) As Boolean
         Try
             TBDD_INDEX_MANBindingSource.EndEdit()
             If GlobixDataset.TBDD_INDEX_MAN.GetChanges() IsNot Nothing Then
@@ -204,7 +204,7 @@ Public Class frmAdmin_Globix
             Return False
         End Try
     End Function
-    Private Function Save_AutoIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
+    Private Function Save_AutoIndexe(oPage As ClassDetailPageManager.DetailPage) As Boolean
         Try
             TBDD_INDEX_AUTOMBindingSource.EndEdit()
             If GlobixDataset.TBDD_INDEX_AUTOM.GetChanges() IsNot Nothing Then
@@ -221,7 +221,7 @@ Public Class frmAdmin_Globix
             Return False
         End Try
     End Function
-    Private Function Save_AutoSelect(oPage As ClassDetailPages.DetailPage) As Boolean
+    Private Function Save_AutoSelect(oPage As ClassDetailPageManager.DetailPage) As Boolean
         Try
             TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
             If GlobixDataset.TBGI_REGEX_DOCTYPE.GetChanges() IsNot Nothing Then

GUIs.ZooFlow/Administration/IAdminForm.vb

@@ -1,7 +1,22 @@
 Public Interface IAdminForm
+    ''' <summary>
+    ''' Used to deliver the primary key for loading an existing entity.
+    ''' </summary>
     Property PrimaryKey As Integer
+
+    ''' <summary>
+    ''' Did the user change one or more properties in this form?
+    ''' </summary>
     Property HasChanges As Boolean
+
+    ''' <summary>
+    ''' Is the user creating a new object or editing an existing one?
+    ''' </summary>
+    ''' <returns></returns>
     Property IsInsert As Boolean
 
+    ''' <summary>
+    ''' Function to delete the currently openened object
+    ''' </summary>
     Function DeleteData() As Boolean
 End Interface

GUIs.ZooFlow/Administration/Users/frmAdmin_ImportUser.Designer.vb

@@ -0,0 +1,302 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmAdmin_ImportUser
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.btnImportUsers = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnImportGroups = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.gridGroupList = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colCount = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.gridUserList = New DevExpress.XtraGrid.GridControl()
+        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DigitalData.GUIs.ZooFlow.frmWaitForm), True, True)
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl1.Panel1.SuspendLayout()
+        CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl1.Panel2.SuspendLayout()
+        Me.SplitContainerControl1.SuspendLayout()
+        CType(Me.gridGroupList, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.gridUserList, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnImportUsers, Me.btnImportGroups, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 7
+        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.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(1012, 132)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
+        '
+        'btnImportUsers
+        '
+        Me.btnImportUsers.Caption = "Benutzer Importieren"
+        Me.btnImportUsers.Id = 1
+        Me.btnImportUsers.Name = "btnImportUsers"
+        '
+        'btnImportGroups
+        '
+        Me.btnImportGroups.Caption = "Gruppen Importieren"
+        Me.btnImportGroups.Id = 2
+        Me.btnImportGroups.Name = "btnImportGroups"
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Import von ausgewählten Benutzern Starten"
+        Me.BarButtonItem1.Id = 3
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send1
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Import von ausgewählten Gruppen starten"
+        Me.BarButtonItem2.Id = 4
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send2
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "Gruppen laden"
+        Me.BarButtonItem3.Id = 5
+        Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check1
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Daten laden"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "Import"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 525)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1012, 24)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'SplitContainerControl1
+        '
+        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 132)
+        Me.SplitContainerControl1.Name = "SplitContainerControl1"
+        '
+        'SplitContainerControl1.Panel1
+        '
+        Me.SplitContainerControl1.Panel1.Controls.Add(Me.gridGroupList)
+        Me.SplitContainerControl1.Panel1.Text = "Panel1"
+        '
+        'SplitContainerControl1.Panel2
+        '
+        Me.SplitContainerControl1.Panel2.Controls.Add(Me.gridUserList)
+        Me.SplitContainerControl1.Panel2.Text = "Panel2"
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1012, 393)
+        Me.SplitContainerControl1.SplitterPosition = 263
+        Me.SplitContainerControl1.TabIndex = 2
+        '
+        'gridGroupList
+        '
+        Me.gridGroupList.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridGroupList.Location = New System.Drawing.Point(0, 0)
+        Me.gridGroupList.MainView = Me.GridView1
+        Me.gridGroupList.MenuManager = Me.RibbonControl1
+        Me.gridGroupList.Name = "gridGroupList"
+        Me.gridGroupList.Size = New System.Drawing.Size(263, 393)
+        Me.gridGroupList.TabIndex = 0
+        Me.gridGroupList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        '
+        'GridView1
+        '
+        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colCount})
+        Me.GridView1.GridControl = Me.gridGroupList
+        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        '
+        'colName
+        '
+        Me.colName.Caption = "Name"
+        Me.colName.FieldName = "Name"
+        Me.colName.Name = "colName"
+        Me.colName.Visible = True
+        Me.colName.VisibleIndex = 0
+        '
+        'colCount
+        '
+        Me.colCount.Caption = "Benutzer"
+        Me.colCount.FieldName = "Count"
+        Me.colCount.Name = "colCount"
+        Me.colCount.Visible = True
+        Me.colCount.VisibleIndex = 1
+        '
+        'gridUserList
+        '
+        Me.gridUserList.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridUserList.Location = New System.Drawing.Point(0, 0)
+        Me.gridUserList.MainView = Me.GridView2
+        Me.gridUserList.MenuManager = Me.RibbonControl1
+        Me.gridUserList.Name = "gridUserList"
+        Me.gridUserList.Size = New System.Drawing.Size(739, 393)
+        Me.gridUserList.TabIndex = 0
+        Me.gridUserList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        '
+        'GridView2
+        '
+        Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4})
+        Me.GridView2.GridControl = Me.gridUserList
+        Me.GridView2.Name = "GridView2"
+        Me.GridView2.OptionsSelection.MultiSelect = True
+        Me.GridView2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
+        Me.GridView2.OptionsView.ShowAutoFilterRow = True
+        '
+        'GridColumn1
+        '
+        Me.GridColumn1.Caption = "Benutzername"
+        Me.GridColumn1.FieldName = "samAccountName"
+        Me.GridColumn1.Name = "GridColumn1"
+        Me.GridColumn1.Visible = True
+        Me.GridColumn1.VisibleIndex = 1
+        '
+        'GridColumn2
+        '
+        Me.GridColumn2.Caption = "Vorname"
+        Me.GridColumn2.FieldName = "Surname"
+        Me.GridColumn2.Name = "GridColumn2"
+        Me.GridColumn2.Visible = True
+        Me.GridColumn2.VisibleIndex = 2
+        '
+        'GridColumn3
+        '
+        Me.GridColumn3.Caption = "Nachname"
+        Me.GridColumn3.FieldName = "GivenName"
+        Me.GridColumn3.Name = "GridColumn3"
+        Me.GridColumn3.Visible = True
+        Me.GridColumn3.VisibleIndex = 3
+        '
+        'GridColumn4
+        '
+        Me.GridColumn4.Caption = "Email"
+        Me.GridColumn4.FieldName = "Email"
+        Me.GridColumn4.Name = "GridColumn4"
+        Me.GridColumn4.Visible = True
+        Me.GridColumn4.VisibleIndex = 4
+        '
+        'SplashScreenManager1
+        '
+        Me.SplashScreenManager1.ClosingDelay = 500
+        '
+        'frmAdmin_ImportUser
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1012, 549)
+        Me.Controls.Add(Me.SplitContainerControl1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.text
+        Me.Name = "frmAdmin_ImportUser"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Active Directory Import"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.ResumeLayout(False)
+        CType(Me.gridGroupList, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.gridUserList, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents gridGroupList As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents gridUserList As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents btnImportUsers As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnImportGroups As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents colCount As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+End Class

GUIs.ZooFlow/Administration/Users/frmAdmin_ImportUser.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

GUIs.ZooFlow/Administration/Users/frmAdmin_ImportUser.vb

@@ -0,0 +1,231 @@
+Imports DevExpress.XtraSplashScreen
+Imports DigitalData.Modules.Interfaces
+Imports DigitalData.Modules.Logging
+Imports DigitalData.GUIs.Common
+Imports DevExpress.XtraGrid.Views.Grid
+
+Public Class frmAdmin_ImportUser
+    Private ReadOnly Logger As Logger = My.LogConfig.GetLogger
+    Private ActiveDirectory As ActiveDirectoryInterface
+
+    Private Sub frmAdmin_ImportUser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ActiveDirectory = New ActiveDirectoryInterface(My.LogConfig, Nothing)
+
+        Dim oGridManager = New GridBuilder(GridView1, GridView2)
+        oGridManager.
+            WithDefaults().
+            WithReadOnlyOptions().
+            WithClipboardHandler()
+    End Sub
+
+    Private Async Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        SplashScreenManager1.ShowWaitForm()
+        SplashScreenManager1.SetWaitFormCaption("Loading Groups")
+
+        Try
+            Dim oGroups As List(Of ADGroup) = Await ActiveDirectory.ListGroupsAsync()
+            Dim oGroupList As New List(Of GroupListing)
+
+            For Each oGroup As ADGroup In oGroups
+                Try
+                    SplashScreenManager1.SetWaitFormDescription(oGroup.SAMAccountName)
+
+                    Dim oUsers As List(Of ADUser) = Await ActiveDirectory.ListUsersAsync(oGroup.Name)
+                    Dim oListing As New GroupListing(oGroup) With {
+                        .Count = oUsers.Count,
+                        .Users = oUsers
+                    }
+
+                    If oUsers.Count > 0 Then
+                        oGroupList.Add(oListing)
+                    End If
+
+                Catch ex As Exception
+                    Logger.Error(ex)
+                End Try
+            Next
+
+            gridGroupList.ForceInitialize()
+            gridGroupList.DataSource = oGroupList
+
+        Catch ex As Exception
+            Logger.Error(ex)
+        Finally
+            SplashScreenManager1.CloseWaitForm()
+        End Try
+    End Sub
+
+    Private Sub btnImportUsers_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnImportUsers.ItemClick
+        Dim oForm As New frmAdmin_ImportUser()
+        oForm.ShowDialog()
+    End Sub
+
+    Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
+        Dim oGroup As GroupListing = GridView1.GetRow(e.FocusedRowHandle)
+
+        If Not IsNothing(oGroup) Then
+            Try
+                gridUserList.DataSource = oGroup.Users
+
+            Catch ex As Exception
+                Logger.Error(ex)
+            End Try
+        End If
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Dim oSelected = GridView2.GetSelectedRows()
+        Dim oDialogResult = MsgBox($"Wollen Sie die ausgewählten [{oSelected.Count}] Benutzer importieren?",
+                                   MsgBoxStyle.Question Or MsgBoxStyle.YesNo,
+                                   "Import von Benutzern")
+
+        If DialogResult.No = oDialogResult Then
+            Exit Sub
+        End If
+
+        Dim oImported = 0
+        Dim oSkipped = 0
+
+        Try
+            For Each oHandle In oSelected
+                Dim oRow As ADUser = GridView2.GetRow(oHandle)
+
+                If Not UserExists(oRow.samAccountName) Then
+                    If InsertUser(oRow.samAccountName, oRow.Surname, oRow.GivenName, oRow.Email) Then
+                        oImported += 1
+                    Else
+                        Logger.Warn("User [{0}] could not be imported!", oRow.samAccountName)
+                    End If
+                Else
+                    oSkipped += 1
+                End If
+            Next
+
+            If oImported = 0 Then
+                Logger.Warn("No new users imported. All selected users are already in database.")
+                MsgBox($"Es wurden keine neuen Benutzer importiert, da alle ausgewählten Benutzer bereits in der Benutzerverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager")
+            Else
+                Logger.Info($"Import successful!{vbNewLine}{vbNewLine}{oImported} users imported{vbNewLine}{oSkipped} users skipped")
+                MsgBox($"{oImported} Benutzer wurden erfolgreich importiert!", MsgBoxStyle.Information, Text)
+            End If
+        Catch ex As Exception
+            Logger.Error(ex, "Error while importing users")
+            MsgBox($"Error while importing users: {ex.Message}", MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Dim oSelected = GridView1.GetSelectedRows()
+        Dim oMessage = $"Wollen Sie die ausgewählten [{oSelected.Count}] Gruppen importieren? Achtung: Es werden NUR die GRUPPEN importiert, nicht die enthaltenen Benutzer!"
+        Dim oDialogResult = MsgBox(oMessage,
+                                   MsgBoxStyle.Question Or MsgBoxStyle.YesNo,
+                                   "Import von Gruppen")
+
+        If DialogResult.No = oDialogResult Then
+            Exit Sub
+        End If
+
+        Dim oImported = 0
+        Dim oSkipped = 0
+
+        Try
+            For Each oHandle In oSelected
+                Dim oRow As ADGroup = GridView2.GetRow(oHandle)
+
+                If Not GroupExists(oRow.SAMAccountName) Then
+                    If InsertGroup(oRow.SAMAccountName) Then
+                        oImported += 1
+                    Else
+                        Logger.Warn("Group [{0}] could not be imported!", oRow.SAMAccountName)
+                    End If
+                Else
+                    oSkipped += 1
+                End If
+            Next
+
+            If oImported = 0 Then
+                Logger.Warn("No new groups imported. All selected groups are already in database.")
+                MsgBox($"Es wurden keine neuen Gruppen importiert, da alle ausgewählten Gruppen bereits in der Gruppenverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager")
+            Else
+                Logger.Info($"Import successful!{vbNewLine}{vbNewLine}{oImported} groups imported{vbNewLine}{oSkipped} groups skipped")
+                MsgBox($"{oImported} Gruppen wurden erfolgreich importiert!", MsgBoxStyle.Information, Text)
+            End If
+        Catch ex As Exception
+            Logger.Error(ex, "Error while importing users")
+            MsgBox($"Error while importing users: {ex.Message}", MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Public Function GroupExists(groupName As String) As Boolean
+        Try
+            Dim oSql As String = $"SELECT COUNT(GUID) FROM TBDD_GROUPS WHERE NAME = '{groupName}'"
+            Dim oResult = My.DatabaseECM.GetScalarValue(oSql)
+
+            Return Convert.ToBoolean(oResult)
+        Catch ex As Exception
+            Logger.Error($"Error in GroupExists: {ex.Message}")
+            Return Nothing
+        End Try
+    End Function
+
+    Public Function UserExists(userName As String) As Boolean
+        Try
+            Dim oSql As String = $"SELECT COUNT(GUID) FROM TBDD_USER WHERE USERNAME = '{userName}'"
+            Dim oResult = My.DatabaseECM.GetScalarValue(oSql)
+
+            Return Convert.ToBoolean(oResult)
+        Catch ex As Exception
+            Logger.Error($"Error in UserExists: {ex.Message}")
+            Return Nothing
+        End Try
+    End Function
+
+    Public Function InsertUser(username As String, prename As String, name As String, email As String)
+        Try
+            Dim oAddedWho As String = Environment.UserName
+            Dim oSql As String = $"INSERT INTO TBDD_USER (PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) 
+                                  VALUES ('{prename}','{name}','{username}','{email}','{oAddedWho}')"
+            Dim oResult = My.DatabaseECM.ExecuteNonQuery(oSql)
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function InsertGroup(name As String, Optional ECM_FK_ID As Integer = 1, Optional adSync As Boolean = True, Optional internal As Boolean = False, Optional active As Boolean = True)
+        Try
+            Dim addedWho As String = Environment.UserName
+            Dim sql As String = $"INSERT INTO TBDD_GROUPS (NAME, ADDED_WHO, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE) 
+                                  VALUES ('{name}', '{addedWho}', {ECM_FK_ID}, 
+                                  {Convert.ToInt32(adSync)}, 
+                                  {Convert.ToInt32(internal)}, 
+                                  {Convert.ToInt32(active)})"
+            Dim oResult = My.DatabaseECM.ExecuteNonQuery(sql)
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Class GroupListing
+        Public Group As ADGroup
+        Public Users As List(Of ADUser)
+        Public Property Count As Integer
+        Public ReadOnly Property Name As String
+            Get
+                Return Group?.Name
+            End Get
+        End Property
+
+        Public Sub New(pGroup As ADGroup)
+            Group = pGroup
+            Count = 0
+        End Sub
+    End Class
+
+
+End Class

GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdmin_User
     Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,13 +20,13 @@ Partial Class frmAdmin_User
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.txtStatus = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@@ -44,23 +44,23 @@ Partial Class frmAdmin_User
         Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit()
         Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit()
         Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit()
+        Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit61 = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit81 = 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.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.TextEdit61 = New DevExpress.XtraEditors.TextEdit()
-        Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
-        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
-        Me.TextEdit81 = New DevExpress.XtraEditors.TextEdit()
         Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -74,48 +74,41 @@ Partial Class frmAdmin_User
         CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit81.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.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.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
         '
         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.BarButtonItem3})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.txtStatus})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 4
+        Me.RibbonControl1.MaxItemId = 5
         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.ShowToolbarCustomizeItem = False
-        Me.RibbonControl1.Size = New System.Drawing.Size(816, 63)
+        Me.RibbonControl1.Size = New System.Drawing.Size(639, 63)
         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.bo_validation1
-        Me.BarButtonItem1.Name = "BarButtonItem1"
-        '
         'BarButtonItem2
         '
         Me.BarButtonItem2.Caption = "Speichern"
@@ -130,6 +123,12 @@ Partial Class frmAdmin_User
         Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.delete1
         Me.BarButtonItem3.Name = "BarButtonItem3"
         '
+        'txtStatus
+        '
+        Me.txtStatus.Caption = "Status"
+        Me.txtStatus.Id = 4
+        Me.txtStatus.Name = "txtStatus"
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -138,7 +137,6 @@ Partial Class frmAdmin_User
         '
         'RibbonPageGroup1
         '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
@@ -146,10 +144,11 @@ Partial Class frmAdmin_User
         '
         'RibbonStatusBar1
         '
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 517)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.txtStatus)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 406)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(816, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(639, 24)
         '
         'RibbonPage2
         '
@@ -196,7 +195,7 @@ Partial Class frmAdmin_User
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(688, 133, 1038, 537)
         Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(816, 454)
+        Me.LayoutControl1.Size = New System.Drawing.Size(639, 343)
         Me.LayoutControl1.TabIndex = 2
         Me.LayoutControl1.Text = "LayoutControl1"
         '
@@ -206,7 +205,7 @@ Partial Class frmAdmin_User
         Me.TextEdit1.Location = New System.Drawing.Point(114, 20)
         Me.TextEdit1.MenuManager = Me.RibbonControl1
         Me.TextEdit1.Name = "TextEdit1"
-        Me.TextEdit1.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit1.Size = New System.Drawing.Size(505, 20)
         Me.TextEdit1.StyleController = Me.LayoutControl1
         Me.TextEdit1.TabIndex = 4
         '
@@ -216,7 +215,7 @@ Partial Class frmAdmin_User
         Me.TextEdit2.Location = New System.Drawing.Point(114, 60)
         Me.TextEdit2.MenuManager = Me.RibbonControl1
         Me.TextEdit2.Name = "TextEdit2"
-        Me.TextEdit2.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit2.Size = New System.Drawing.Size(195, 20)
         Me.TextEdit2.StyleController = Me.LayoutControl1
         Me.TextEdit2.TabIndex = 5
         '
@@ -226,67 +225,99 @@ Partial Class frmAdmin_User
         Me.TextEdit3.Location = New System.Drawing.Point(114, 100)
         Me.TextEdit3.MenuManager = Me.RibbonControl1
         Me.TextEdit3.Name = "TextEdit3"
-        Me.TextEdit3.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit3.Size = New System.Drawing.Size(195, 20)
         Me.TextEdit3.StyleController = Me.LayoutControl1
         Me.TextEdit3.TabIndex = 6
         '
         'TextEdit4
         '
         Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "NAME", True))
-        Me.TextEdit4.Location = New System.Drawing.Point(114, 140)
+        Me.TextEdit4.Location = New System.Drawing.Point(423, 100)
         Me.TextEdit4.MenuManager = Me.RibbonControl1
         Me.TextEdit4.Name = "TextEdit4"
-        Me.TextEdit4.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit4.Size = New System.Drawing.Size(196, 20)
         Me.TextEdit4.StyleController = Me.LayoutControl1
         Me.TextEdit4.TabIndex = 7
         '
         'TextEdit5
         '
         Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "SHORTNAME", True))
-        Me.TextEdit5.Location = New System.Drawing.Point(114, 180)
+        Me.TextEdit5.Location = New System.Drawing.Point(423, 60)
         Me.TextEdit5.MenuManager = Me.RibbonControl1
         Me.TextEdit5.Name = "TextEdit5"
-        Me.TextEdit5.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit5.Size = New System.Drawing.Size(196, 20)
         Me.TextEdit5.StyleController = Me.LayoutControl1
         Me.TextEdit5.TabIndex = 8
         '
         'TextEdit6
         '
         Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "EMAIL", True))
-        Me.TextEdit6.Location = New System.Drawing.Point(114, 220)
+        Me.TextEdit6.Location = New System.Drawing.Point(114, 140)
         Me.TextEdit6.MenuManager = Me.RibbonControl1
         Me.TextEdit6.Name = "TextEdit6"
-        Me.TextEdit6.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit6.Size = New System.Drawing.Size(505, 20)
         Me.TextEdit6.StyleController = Me.LayoutControl1
         Me.TextEdit6.TabIndex = 9
         '
         'TextEdit7
         '
         Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "LANGUAGE", True))
-        Me.TextEdit7.Location = New System.Drawing.Point(114, 260)
+        Me.TextEdit7.Location = New System.Drawing.Point(114, 180)
         Me.TextEdit7.MenuManager = Me.RibbonControl1
         Me.TextEdit7.Name = "TextEdit7"
-        Me.TextEdit7.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit7.Size = New System.Drawing.Size(195, 20)
         Me.TextEdit7.StyleController = Me.LayoutControl1
         Me.TextEdit7.TabIndex = 10
         '
         'TextEdit8
         '
         Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "DATE_FORMAT", True))
-        Me.TextEdit8.Location = New System.Drawing.Point(114, 300)
+        Me.TextEdit8.Location = New System.Drawing.Point(423, 180)
         Me.TextEdit8.MenuManager = Me.RibbonControl1
         Me.TextEdit8.Name = "TextEdit8"
-        Me.TextEdit8.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit8.Size = New System.Drawing.Size(196, 20)
         Me.TextEdit8.StyleController = Me.LayoutControl1
         Me.TextEdit8.TabIndex = 11
         '
+        'txtAddedWho
+        '
+        Me.txtAddedWho.Location = New System.Drawing.Point(114, 220)
+        Me.txtAddedWho.Name = "txtAddedWho"
+        Me.txtAddedWho.Size = New System.Drawing.Size(195, 20)
+        Me.txtAddedWho.StyleController = Me.LayoutControl1
+        Me.txtAddedWho.TabIndex = 9
+        '
+        'txtChangedWho
+        '
+        Me.txtChangedWho.Location = New System.Drawing.Point(114, 260)
+        Me.txtChangedWho.Name = "txtChangedWho"
+        Me.txtChangedWho.Size = New System.Drawing.Size(195, 20)
+        Me.txtChangedWho.StyleController = Me.LayoutControl1
+        Me.txtChangedWho.TabIndex = 11
+        '
+        'TextEdit61
+        '
+        Me.TextEdit61.Location = New System.Drawing.Point(423, 220)
+        Me.TextEdit61.Name = "TextEdit61"
+        Me.TextEdit61.Size = New System.Drawing.Size(196, 20)
+        Me.TextEdit61.StyleController = Me.LayoutControl1
+        Me.TextEdit61.TabIndex = 10
+        '
+        'TextEdit81
+        '
+        Me.TextEdit81.Location = New System.Drawing.Point(423, 260)
+        Me.TextEdit81.Name = "TextEdit81"
+        Me.TextEdit81.Size = New System.Drawing.Size(196, 20)
+        Me.TextEdit81.StyleController = Me.LayoutControl1
+        Me.TextEdit81.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.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem12})
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem5, Me.LayoutControlItem4, Me.LayoutControlItem8})
         Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(816, 454)
+        Me.Root.Size = New System.Drawing.Size(639, 343)
         Me.Root.TextVisible = False
         '
         'LayoutControlItem1
@@ -296,7 +327,7 @@ Partial Class frmAdmin_User
         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(796, 40)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(619, 40)
         Me.LayoutControlItem1.Text = "ID"
         Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13)
         '
@@ -306,7 +337,7 @@ Partial Class frmAdmin_User
         Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
         Me.LayoutControlItem2.Name = "LayoutControlItem2"
         Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(309, 40)
         Me.LayoutControlItem2.Text = "Benutzername"
         Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13)
         '
@@ -316,101 +347,39 @@ Partial Class frmAdmin_User
         Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80)
         Me.LayoutControlItem3.Name = "LayoutControlItem3"
         Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(309, 40)
         Me.LayoutControlItem3.Text = "Vorname"
         Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13)
         '
-        'LayoutControlItem4
-        '
-        Me.LayoutControlItem4.Control = Me.TextEdit4
-        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(796, 40)
-        Me.LayoutControlItem4.Text = "Nachname"
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(82, 13)
-        '
-        'LayoutControlItem5
-        '
-        Me.LayoutControlItem5.Control = Me.TextEdit5
-        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 160)
-        Me.LayoutControlItem5.Name = "LayoutControlItem5"
-        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem5.Size = New System.Drawing.Size(796, 40)
-        Me.LayoutControlItem5.Text = "Kurzname"
-        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13)
-        '
         'LayoutControlItem6
         '
         Me.LayoutControlItem6.Control = Me.TextEdit6
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 200)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120)
         Me.LayoutControlItem6.Name = "LayoutControlItem6"
         Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem6.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(619, 40)
         Me.LayoutControlItem6.Text = "Email Adresse"
         Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem7
         '
         Me.LayoutControlItem7.Control = Me.TextEdit7
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 240)
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 160)
         Me.LayoutControlItem7.Name = "LayoutControlItem7"
         Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem7.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(309, 40)
         Me.LayoutControlItem7.Text = "Sprache"
         Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13)
         '
-        'LayoutControlItem8
-        '
-        Me.LayoutControlItem8.Control = Me.TextEdit8
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 280)
-        Me.LayoutControlItem8.Name = "LayoutControlItem8"
-        Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(796, 40)
-        Me.LayoutControlItem8.Text = "Datumsformat"
-        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
-        '
-        'TextEdit61
-        '
-        Me.TextEdit61.Location = New System.Drawing.Point(511, 340)
-        Me.TextEdit61.Name = "TextEdit61"
-        Me.TextEdit61.Size = New System.Drawing.Size(285, 20)
-        Me.TextEdit61.StyleController = Me.LayoutControl1
-        Me.TextEdit61.TabIndex = 10
-        '
-        'txtAddedWho
-        '
-        Me.txtAddedWho.Location = New System.Drawing.Point(114, 340)
-        Me.txtAddedWho.Name = "txtAddedWho"
-        Me.txtAddedWho.Size = New System.Drawing.Size(283, 20)
-        Me.txtAddedWho.StyleController = Me.LayoutControl1
-        Me.txtAddedWho.TabIndex = 9
-        '
-        'txtChangedWho
-        '
-        Me.txtChangedWho.Location = New System.Drawing.Point(114, 380)
-        Me.txtChangedWho.Name = "txtChangedWho"
-        Me.txtChangedWho.Size = New System.Drawing.Size(283, 20)
-        Me.txtChangedWho.StyleController = Me.LayoutControl1
-        Me.txtChangedWho.TabIndex = 11
-        '
-        'TextEdit81
-        '
-        Me.TextEdit81.Location = New System.Drawing.Point(511, 380)
-        Me.TextEdit81.Name = "TextEdit81"
-        Me.TextEdit81.Size = New System.Drawing.Size(285, 20)
-        Me.TextEdit81.StyleController = Me.LayoutControl1
-        Me.TextEdit81.TabIndex = 12
-        '
         'LayoutControlItem9
         '
         Me.LayoutControlItem9.Control = Me.txtAddedWho
         Me.LayoutControlItem9.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
         Me.LayoutControlItem9.CustomizationFormText = "Erstellt Wer"
-        Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 320)
+        Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 200)
         Me.LayoutControlItem9.Name = "LayoutControlItem9"
         Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem9.Size = New System.Drawing.Size(397, 40)
+        Me.LayoutControlItem9.Size = New System.Drawing.Size(309, 40)
         Me.LayoutControlItem9.Text = "Erstellt Wer"
         Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
         '
@@ -419,10 +388,10 @@ Partial Class frmAdmin_User
         Me.LayoutControlItem10.Control = Me.txtChangedWho
         Me.LayoutControlItem10.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
         Me.LayoutControlItem10.CustomizationFormText = "Geändert Wer"
-        Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 360)
+        Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 240)
         Me.LayoutControlItem10.Name = "LayoutControlItem10"
         Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem10.Size = New System.Drawing.Size(397, 74)
+        Me.LayoutControlItem10.Size = New System.Drawing.Size(309, 83)
         Me.LayoutControlItem10.Text = "Geändert Wer"
         Me.LayoutControlItem10.TextSize = New System.Drawing.Size(82, 13)
         '
@@ -431,10 +400,10 @@ Partial Class frmAdmin_User
         Me.LayoutControlItem11.Control = Me.TextEdit61
         Me.LayoutControlItem11.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
         Me.LayoutControlItem11.CustomizationFormText = "Erstellt Wann"
-        Me.LayoutControlItem11.Location = New System.Drawing.Point(397, 320)
+        Me.LayoutControlItem11.Location = New System.Drawing.Point(309, 200)
         Me.LayoutControlItem11.Name = "LayoutControlItem11"
         Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem11.Size = New System.Drawing.Size(399, 40)
+        Me.LayoutControlItem11.Size = New System.Drawing.Size(310, 40)
         Me.LayoutControlItem11.Text = "Erstellt Wann"
         Me.LayoutControlItem11.TextSize = New System.Drawing.Size(82, 13)
         '
@@ -443,21 +412,52 @@ Partial Class frmAdmin_User
         Me.LayoutControlItem12.Control = Me.TextEdit81
         Me.LayoutControlItem12.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
         Me.LayoutControlItem12.CustomizationFormText = "Geändert Wann"
-        Me.LayoutControlItem12.Location = New System.Drawing.Point(397, 360)
+        Me.LayoutControlItem12.Location = New System.Drawing.Point(309, 240)
         Me.LayoutControlItem12.Name = "LayoutControlItem12"
         Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem12.Size = New System.Drawing.Size(399, 74)
+        Me.LayoutControlItem12.Size = New System.Drawing.Size(310, 83)
         Me.LayoutControlItem12.Text = "Geändert Wann"
         Me.LayoutControlItem12.TextSize = New System.Drawing.Size(82, 13)
         '
+        'LayoutControlItem5
+        '
+        Me.LayoutControlItem5.Control = Me.TextEdit5
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(309, 40)
+        Me.LayoutControlItem5.Name = "LayoutControlItem5"
+        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(310, 40)
+        Me.LayoutControlItem5.Text = "Kurzname"
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13)
+        '
+        'LayoutControlItem4
+        '
+        Me.LayoutControlItem4.Control = Me.TextEdit4
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(309, 80)
+        Me.LayoutControlItem4.Name = "LayoutControlItem4"
+        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(310, 40)
+        Me.LayoutControlItem4.Text = "Nachname"
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(82, 13)
+        '
+        'LayoutControlItem8
+        '
+        Me.LayoutControlItem8.Control = Me.TextEdit8
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(309, 160)
+        Me.LayoutControlItem8.Name = "LayoutControlItem8"
+        Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(310, 40)
+        Me.LayoutControlItem8.Text = "Datumsformat"
+        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
+        '
         'frmAdmin_User
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(816, 541)
+        Me.ClientSize = New System.Drawing.Size(639, 430)
         Me.Controls.Add(Me.LayoutControl1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
+        Me.KeyPreview = True
         Me.Name = "frmAdmin_User"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
@@ -475,23 +475,23 @@ Partial Class frmAdmin_User
         CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit81.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.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.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -516,7 +516,6 @@ Partial Class frmAdmin_User
     Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit
@@ -535,4 +534,5 @@ Partial Class frmAdmin_User
     Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents txtStatus As DevExpress.XtraBars.BarButtonItem
 End Class

GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb

@@ -1,4 +1,7 @@
-Imports DigitalData.GUIs.Common.Base
+Imports DevExpress.XtraLayout
+Imports DigitalData.GUIs.Common
+Imports DigitalData.GUIs.Common.Base
+Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_User
     Implements IAdminForm
@@ -8,7 +11,10 @@ Public Class frmAdmin_User
     Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
 
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
-    Public Property ErrorHandler As BaseErrorHandler
+
+    Private Property ErrorHandler As BaseErrorHandler
+    Private Property Pages As ClassDetailPageManager
+    Private Property Logger As Logger
 
     Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -18,6 +24,7 @@ Public Class frmAdmin_User
         PrimaryKey = pPrimaryKey
         IsInsert = pIsInsert
         ErrorHandler = New BaseErrorHandler(My.LogConfig, My.LogConfig.GetLogger, Me)
+        Logger = My.LogConfig.GetLogger()
     End Sub
 
     Private Sub frmAdmin_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -25,17 +32,39 @@ Public Class frmAdmin_User
             TBDD_USERTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
 
             If IsInsert Then
+                DSDD_Stammdaten.TBDD_USER.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
                 TBDD_USERBindingSource.AddNew()
             Else
                 TBDD_USERTableAdapter.Fill(DSDD_Stammdaten.TBDD_USER, PrimaryKey)
-
             End If
-        Catch ex As System.Exception
+
+            ' Add Focus Handler to all controls in all LayoutControls
+            Pages = New ClassDetailPageManager(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1})
+            Pages.Add(New ClassDetailPageManager.PrimaryPage(IsInsert) With {
+                .Name = "Benutzer",
+                .BindingSource = TBDD_USERBindingSource,
+                .DataTable = DSDD_Stammdaten.TBDD_USER,
+                .AddedWhoEdit = txtAddedWho,
+                .ChangedWhoEdit = txtChangedWho
+            })
+
+            Pages.PrepareLoad()
+
+        Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
-    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
+#Region "DELETE ----------------------------------------------"
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        If DeleteData() Then
+            Close()
+        Else
+            txtStatus.Caption = $"Error while deleting!"
+        End If
+    End Sub
+
+    Private Function DeleteData() As Boolean Implements IAdminForm.DeleteData
         Try
             TBDD_USERTableAdapter.Delete(PrimaryKey)
             Return True
@@ -44,31 +73,32 @@ Public Class frmAdmin_User
             Return False
         End Try
     End Function
-    Public Function SaveData() As Boolean
+#End Region
-        Try
-            TBDD_USERBindingSource.EndEdit()
-
-            If DSDD_Stammdaten.TBDD_USER.GetChanges() IsNot Nothing Then
-                HasChanges = True
-
-                If IsInsert Then
-                    txtAddedWho.EditValue = My.Application.User.UserName
-                Else
-                    txtChangedWho.EditValue = My.Application.User.UserName
-                End If
-
-                TBDD_USERBindingSource.EndEdit()
-                TBDD_USERTableAdapter.Update(DSDD_Stammdaten.TBDD_USER)
-            End If
-
-            Return True
-        Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "DeleteData")
-            Return False
-        End Try
-    End Function
-
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
 
+#Region "SAVE ----------------------------------------------"
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        SaveData()
     End Sub
+
+    Private Sub frmAdmin_User_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
+        If e.KeyCode = Keys.F5 Then
+            SaveData()
+        End If
+    End Sub
+
+    Private Sub SaveData()
+        If Pages.PrepareSave() = True Then
+            Try
+                Dim oPage = Pages.Current
+                TBDD_USERTableAdapter.Update(oPage.DataTable)
+                oPage.IsInsert = False
+                txtStatus.Caption = $"{oPage.Name} gespeichert!"
+            Catch ex As Exception
+                ErrorHandler.ShowErrorMessage(ex, "ItemClick")
+            End Try
+        Else
+            txtStatus.Caption = $"Keine Änderungen"
+        End If
+    End Sub
+#End Region
 End Class

GUIs.ZooFlow/Administration/Users/frmWaitForm.Designer.vb

@@ -0,0 +1,83 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmWaitForm
+    Inherits DevExpress.XtraWaitForm.WaitForm
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.progressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
+        Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.tableLayoutPanel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'progressPanel1
+        '
+        Me.progressPanel1.Appearance.BackColor = System.Drawing.Color.Transparent
+        Me.progressPanel1.Appearance.Options.UseBackColor = True
+        Me.progressPanel1.AppearanceCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.progressPanel1.AppearanceCaption.Options.UseFont = True
+        Me.progressPanel1.AppearanceDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        Me.progressPanel1.AppearanceDescription.Options.UseFont = True
+        Me.progressPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.progressPanel1.ImageHorzOffset = 20
+        Me.progressPanel1.Location = New System.Drawing.Point(0, 17)
+        Me.progressPanel1.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3)
+        Me.progressPanel1.Name = "progressPanel1"
+        Me.progressPanel1.Size = New System.Drawing.Size(246, 39)
+        Me.progressPanel1.TabIndex = 0
+        Me.progressPanel1.Text = "progressPanel1"
+        ' 
+        'tableLayoutPanel1
+        '
+        Me.tableLayoutPanel1.AutoSize = True
+        Me.tableLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.tableLayoutPanel1.BackColor = System.Drawing.Color.Transparent
+        Me.tableLayoutPanel1.ColumnCount = 1
+        Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.tableLayoutPanel1.Controls.Add(Me.progressPanel1, 0, 0)
+        Me.tableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.tableLayoutPanel1.Name = "tableLayoutPanel1"
+        Me.tableLayoutPanel1.Padding = New System.Windows.Forms.Padding(0, 14, 0, 14)
+        Me.tableLayoutPanel1.RowCount = 1
+        Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.tableLayoutPanel1.Size = New System.Drawing.Size(246, 73)
+        Me.tableLayoutPanel1.TabIndex = 1
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.ClientSize = New System.Drawing.Size(246, 73)
+        Me.Controls.Add(Me.tableLayoutPanel1)
+        Me.DoubleBuffered = True
+        Me.Name = "Form1"
+        Me.StartPosition = FormStartPosition.Manual
+        Me.Text = "Form1"
+        Me.tableLayoutPanel1.ResumeLayout(false)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+    End Sub
+
+    Private WithEvents progressPanel1 As DevExpress.XtraWaitForm.ProgressPanel
+    Private WithEvents tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+End Class

GUIs.ZooFlow/Administration/Users/frmWaitForm.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+	<!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+	<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+		<xsd:import namespace="http://www.w3.org/XML/1998/namespace"></xsd:import>
+		<xsd:element name="root" msdata:IsDataSet="true">
+			<xsd:complexType>
+				<xsd:choice maxOccurs="unbounded">
+					<xsd:element name="metadata">
+						<xsd:complexType>
+							<xsd:sequence>
+								<xsd:element name="value" type="xsd:string" minOccurs="0"></xsd:element>
+							</xsd:sequence>
+							<xsd:attribute name="name" use="required" type="xsd:string"></xsd:attribute>
+							<xsd:attribute name="type" type="xsd:string"></xsd:attribute>
+							<xsd:attribute name="mimetype" type="xsd:string"></xsd:attribute>
+							<xsd:attribute ref="xml:space"></xsd:attribute>
+						</xsd:complexType>
+					</xsd:element>
+					<xsd:element name="assembly">
+						<xsd:complexType>
+							<xsd:attribute name="alias" type="xsd:string"></xsd:attribute>
+							<xsd:attribute name="name" type="xsd:string"></xsd:attribute>
+						</xsd:complexType>
+					</xsd:element>
+					<xsd:element name="data">
+						<xsd:complexType>
+							<xsd:sequence>
+								<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1"></xsd:element>
+								<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2"></xsd:element>
+							</xsd:sequence>
+							<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1"></xsd:attribute>
+							<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3"></xsd:attribute>
+							<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4"></xsd:attribute>
+							<xsd:attribute ref="xml:space"></xsd:attribute>
+						</xsd:complexType>
+					</xsd:element>
+					<xsd:element name="resheader">
+						<xsd:complexType>
+							<xsd:sequence>
+								<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1"></xsd:element>
+							</xsd:sequence>
+							<xsd:attribute name="name" type="xsd:string" use="required"></xsd:attribute>
+						</xsd:complexType>
+					</xsd:element>
+				</xsd:choice>
+			</xsd:complexType>
+		</xsd:element>
+	</xsd:schema>
+	<resheader name="resmimetype">
+		<value>text/microsoft-resx</value>
+	</resheader>
+	<resheader name="version">
+		<value>2.0</value>
+	</resheader>
+	<resheader name="reader">
+		<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+	</resheader>
+	<resheader name="writer">
+		<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+	</resheader>
+</root>

GUIs.ZooFlow/Administration/Users/frmWaitForm.vb

@@ -0,0 +1,24 @@
+Public Class frmWaitForm
+    Sub New
+        InitializeComponent()
+        Me.progressPanel1.AutoHeight = True
+    End Sub
+
+    Public Overrides Sub SetCaption(ByVal caption As String)
+        MyBase.SetCaption(caption)
+        Me.progressPanel1.Caption = caption
+    End Sub
+
+    Public Overrides Sub SetDescription(ByVal description As String)
+        MyBase.SetDescription(description)
+        Me.progressPanel1.Description = description
+    End Sub
+
+    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
+        MyBase.ProcessCommand(cmd, arg)
+    End Sub
+
+    Public Enum WaitFormCommand
+        SomeCommandId
+    End Enum
+End Class

GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb

@@ -32,7 +32,7 @@ Public Class frmAdmin_ClipboardWatcher
     Private Const PROFILE_TYPE_DOCS_ONLY As Integer = 1
     Private Const PROFILE_TYPE_DATA_ONLY As Integer = 2
 
-    Private Pages As ClassDetailPages
+    Private Pages As ClassDetailPageManager
 
     Friend Class ProfileType
         Public Property Id As Integer
@@ -97,9 +97,9 @@ Public Class frmAdmin_ClipboardWatcher
             DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DOCS_ONLY, "Nur Dokumente")
             DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DATA_ONLY, "Nur Daten")
 
-            Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls)
+            Pages = New ClassDetailPageManager(My.LogConfig, Me, oLayoutControls)
             Pages.AddRange({
-                New ClassDetailPages.PrimaryPage(IsInsert) With {
+                New ClassDetailPageManager.PrimaryPage(IsInsert) With {
                     .Name = "Profil",
                     .TabPage = PageProfile,
                     .BindingSource = TBCW_PROFILESBindingSource,
@@ -107,7 +107,7 @@ Public Class frmAdmin_ClipboardWatcher
                     .AddedWhoEdit = txtAddedWho,
                     .ChangedWhoEdit = txtChangedWho
                 },
-                New ClassDetailPages.DetailPage With {
+                New ClassDetailPageManager.DetailPage With {
                     .Name = "Dokument-Suche",
                     .TabPage = PageDocumentSearch,
                     .BindingSource = TBCW_PROF_DOC_SEARCHBindingSource,
@@ -115,7 +115,7 @@ Public Class frmAdmin_ClipboardWatcher
                     .AddedWhoEdit = txtAddedWho1,
                     .ChangedWhoEdit = txtChangedWho1
                 },
-                New ClassDetailPages.DetailPage With {
+                New ClassDetailPageManager.DetailPage With {
                     .Name = "Daten-Suche",
                     .TabPage = PageDataSearch,
                     .BindingSource = TBCW_PROF_DATA_SEARCHBindingSource,
@@ -133,7 +133,7 @@ Public Class frmAdmin_ClipboardWatcher
         End Try
     End Sub
 
-    Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs)
+    Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPageManager.DetailPageEventArgs)
         If Not IsNothing(e.Page) Then
             If e.Page.IsPrimary = True Then
                 BarButtonNew.Enabled = False

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -10,7 +10,7 @@ Public Class frmAdmin_SourceSQL
 
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
-    Private Pages As ClassDetailPages
+    Private Pages As ClassDetailPageManager
 
     Public Sub New(PrimaryKey As Integer)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -23,8 +23,8 @@ Public Class frmAdmin_SourceSQL
 
     Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            Pages = New ClassDetailPages(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1})
+            Pages = New ClassDetailPageManager(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1})
-            Pages.Add(New ClassDetailPages.PrimaryPage(IsInsert) With {
+            Pages.Add(New ClassDetailPageManager.PrimaryPage(IsInsert) With {
                 .Name = "Source SQL",
                 .AddedWhoEdit = txtAddedWho,
                 .ChangedWhoEdit = txtChangedWho,

GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb

@@ -59,6 +59,7 @@ Partial Class frmAdmin_Start
         Me.btnAddRecord = New DevExpress.XtraBars.BarButtonItem()
         Me.btnEditRecord = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -133,9 +134,9 @@ Partial Class frmAdmin_Start
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord, Me.BarButtonItem26})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord, Me.BarButtonItem26, Me.BarButtonItem27})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 35
+        Me.RibbonControl1.MaxItemId = 37
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -232,7 +233,7 @@ Partial Class frmAdmin_Start
         '
         'BarButtonItem9
         '
-        Me.BarButtonItem9.Caption = "Daten neu laden"
+        Me.BarButtonItem9.Caption = "Übersichtsdaten neu laden"
         Me.BarButtonItem9.Id = 14
         Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.updatedataextract
         Me.BarButtonItem9.Name = "BarButtonItem9"
@@ -364,6 +365,13 @@ Partial Class frmAdmin_Start
         Me.BarButtonItem26.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem26.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem26.Name = "BarButtonItem26"
         '
+        'BarButtonItem27
+        '
+        Me.BarButtonItem27.Caption = "Active Directory Import"
+        Me.BarButtonItem27.Id = 35
+        Me.BarButtonItem27.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.text1
+        Me.BarButtonItem27.Name = "BarButtonItem27"
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
@@ -373,6 +381,7 @@ Partial Class frmAdmin_Start
         'RibbonPageGroup2
         '
         Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem27)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem9)
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
         Me.RibbonPageGroup2.Text = "Daten"
@@ -932,4 +941,5 @@ Partial Class frmAdmin_Start
     Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem
 End Class

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -276,4 +276,9 @@ Public Class frmAdmin_Start
             Logger.Error(ex)
         End Try
     End Sub
+
+    Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
+        Dim oForm As New frmAdmin_ImportUser()
+        oForm.ShowDialog()
+    End Sub
 End Class

GUIs.ZooFlow/ClassConstants.vb

@@ -10,6 +10,7 @@
     Public Const USER_CATALOG_QUICKSEARCH1_TITLE = "QUICKSEARCH1_TITLE"
     Public Const USER_CATALOG_QUICKSEARCH1_POS = "QUICKSEARCH1_POS"
     Public Const USER_CATALOG_GLOBIX_DROPAREA = "GLOBIX_DROPAREA"
+    Public Const USER_AD_ROOT_PATH = "ACTIVE_DIRECTORY_ROOT"
 
     Public Const FOLDER_NAME_LAYOUT = "Layout"
 

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

@@ -520,6 +520,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_send1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_send1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_send2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_send2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -1050,6 +1070,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property open2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("open2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -1270,6 +1300,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property text() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("text", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property text1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("text1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>

GUIs.ZooFlow/My Project/Resources.resx

@@ -124,11 +124,8 @@
   <data name="actions_addcircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="del5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="editnames" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\del5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\editnames.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="save5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="StatusAnnotations_Stop_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\StatusAnnotations_Stop_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -148,9 +145,6 @@
   <data name="doublenext2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\doublenext2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="ZooFlow_PM_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ZooFlow_PM_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="doublenext1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\doublenext1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -160,29 +154,38 @@
   <data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_deletecircled6" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_send1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_send1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="definednameuseinformula3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\definednameuseinformula3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="text" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\text.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="definednameuseinformula" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <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="about1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ZooFlow_PM_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\ZooFlow_PM_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</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>
@@ -193,15 +196,18 @@
   <data name="about2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <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="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\cancel.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="actions_check4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -211,9 +217,6 @@
   <data name="actions_window" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_window.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -229,18 +232,12 @@
   <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="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="markcomplete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -277,6 +274,9 @@
   <data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="doublenext" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="2_LUPE_AKTIV_ZOO" 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>
   </data>
@@ -286,23 +286,23 @@
   <data name="properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\properties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="CW_klein" 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>
-  </data>
   <data name="Checked-outforEdit_13297" 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>
   </data>
   <data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="bo_appearance" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="editnames" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="del5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\editnames.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\del5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="save9" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save9.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -310,8 +310,11 @@
   <data name="actions_addcircled5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="highimportance" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="about1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="pagesetup1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -334,6 +337,9 @@
   <data name="DD_Icons_ICO_PMANAGER_256px" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ZooFlow_CW_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -343,8 +349,11 @@
   <data name="insertsheet" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\insertsheet.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="ZooFlow_CW_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="delete1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\delete1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="actions_edit2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_edit2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -367,8 +376,11 @@
   <data name="about3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="doublenext" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="open2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\open2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_add1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -379,15 +391,12 @@
   <data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="actions_check5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="Hamburger_icon.svg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Hamburger_icon.svg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -397,8 +406,8 @@
   <data name="del4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bo_validation" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_validation.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -406,8 +415,8 @@
   <data name="bo_document" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_refresh.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -436,17 +445,17 @@
   <data name="actions_deletecircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\3_PERSON_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="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="bo_appearance" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_addcircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -454,20 +463,23 @@
   <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="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="text1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\text1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="actions_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="managedatasource2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\managedatasource2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_deletecircled6" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Flow" 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>
+    <value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bo_appearance1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_appearance1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -475,8 +487,11 @@
   <data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="highimportance" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_deletecircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -505,7 +520,7 @@
   <data name="bo_validation1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_validation1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="delete1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_send2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\delete1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_send2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

GUIs.ZooFlow/Resources/actions_send1.svg

@@ -0,0 +1,15 @@
+<?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;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Send">
+    <polygon points="2,20 8,22.4 24,10 12,24 12,30 16.3,25.7 22,28 30,2  " class="Blue" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/actions_send2.svg

@@ -0,0 +1,15 @@
+<?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;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Send">
+    <polygon points="2,20 8,22.4 24,10 12,24 12,30 16.3,25.7 22,28 30,2  " class="Blue" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/open2.svg

@@ -0,0 +1,13 @@
+<?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="Open2" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Green{fill:#039C23;}
+	.Yellow{fill:#FFB115;}
+	.st0{opacity:0.75;}
+</style>
+  <g class="st0">
+    <path d="M19.2,10H12V7c0-0.6-0.4-1-1-1H3C2.4,6,2,6.5,2,7v18c0,0.2,0,0.3,0.1,0.4c0,0,0.1-0.1,0.1-0.2l5.5-10   C8,14.5,8.7,14,9.5,14h13.7L19.2,10z" class="Yellow" />
+  </g>
+  <path d="M29.3,16H9.6L4,26h19.8c0.5,0,1.1-0.2,1.3-0.6l4.9-8.9C30.1,16.2,29.8,16,29.3,16z" class="Yellow" />
+  <path d="M28,8c0-3.3-2.7-6-6-6s-6,2.7-6,6c0-2.2,1.8-4,4-4s4,1.8,4,4h-4l6,6l6-6H28z" class="Green" />
+</svg>

GUIs.ZooFlow/Resources/text.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="Text" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+</style>
+  <path d="M16.5,20h-3l1.5-5h0L16.5,20z M4,5c0,0.6,0.4,1,1,1h23v23c0,0.6-0.4,1-1,1H5c-1.7,0-3-1.3-3-3V5  c0-1.7,1.3-3,3-3h22c0.6,0,1,0.4,1,1v1H5C4.4,4,4,4.4,4,5z M10,24h2.3l0.6-2l4.2,0l0.6,2H20l-3.8-12h-2.3L10,24z" class="Yellow" />
+</svg>

GUIs.ZooFlow/Resources/text1.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="Text" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+</style>
+  <path d="M16.5,20h-3l1.5-5h0L16.5,20z M4,5c0,0.6,0.4,1,1,1h23v23c0,0.6-0.4,1-1,1H5c-1.7,0-3-1.3-3-3V5  c0-1.7,1.3-3,3-3h22c0.6,0,1,0.4,1,1v1H5C4.4,4,4,4.4,4,5z M10,24h2.3l0.6-2l4.2,0l0.6,2H20l-3.8-12h-2.3L10,24z" class="Yellow" />
+</svg>

GUIs.ZooFlow/ZooFlow.vbproj

@@ -223,12 +223,24 @@
     <Compile Include="Administration\frmAdmin_SourceSQL.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Administration\Users\frmAdmin_ImportUser.Designer.vb">
+      <DependentUpon>frmAdmin_ImportUser.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Administration\Users\frmAdmin_ImportUser.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Administration\Users\frmAdmin_User.Designer.vb">
       <DependentUpon>frmAdmin_User.vb</DependentUpon>
     </Compile>
     <Compile Include="Administration\Users\frmAdmin_User.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Administration\Users\frmWaitForm.Designer.vb">
+      <DependentUpon>frmWaitForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Administration\Users\frmWaitForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="ApplicationEvents.vb" />
     <Compile Include="ClassDragDrop.vb" />
     <Compile Include="ClassModules.vb" />
@@ -446,9 +458,15 @@
     <EmbeddedResource Include="Administration\frmSQLDesigner.resx">
       <DependentUpon>frmSQLDesigner.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Administration\Users\frmAdmin_ImportUser.resx">
+      <DependentUpon>frmAdmin_ImportUser.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Administration\Users\frmAdmin_User.resx">
       <DependentUpon>frmAdmin_User.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Administration\Users\frmWaitForm.resx">
+      <DependentUpon>frmWaitForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmConfigBasic.resx">
       <DependentUpon>frmConfigBasic.vb</DependentUpon>
     </EmbeddedResource>
@@ -633,6 +651,10 @@
       <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
       <Name>Filesystem</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Modules.Interfaces\Interfaces.vbproj">
+      <Project>{ab6f09bf-e794-4f6a-94bb-c97c0ba84d64}</Project>
+      <Name>Interfaces</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Language\Language.vbproj">
       <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
       <Name>Language</Name>
@@ -739,6 +761,7 @@
     <None Include="Resources\save_16xLG.png" />
   </ItemGroup>
   <ItemGroup>
+    <Folder Include="Administration\DetailPages\" />
     <Folder Include="My Project\DataSources\" />
   </ItemGroup>
   <ItemGroup>
@@ -1014,6 +1037,11 @@
     <None Include="Resources\bo_validation1.svg" />
     <None Include="Resources\save9.svg" />
     <None Include="Resources\delete1.svg" />
+    <None Include="Resources\text.svg" />
+    <None Include="Resources\text1.svg" />
+    <None Include="Resources\open2.svg" />
+    <None Include="Resources\actions_send1.svg" />
+    <None Include="Resources\actions_send2.svg" />
     <Content Include="Zooflow.ico" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

GUIs.ZooFlow/frmConfigBasic.Designer.vb

@@ -39,30 +39,34 @@ Partial Class frmConfigBasic
         Me.ToggleSwitchDebug = New DevExpress.XtraEditors.ToggleSwitch()
         Me.Quicksearch1CB_Pos = New DevExpress.XtraEditors.ComboBoxEdit()
         Me.Quicksearch1TitleTextBox = New DevExpress.XtraEditors.TextEdit()
+        Me.ProcessManagerPathTextbox = New DevExpress.XtraEditors.TextEdit()
         Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
         Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
         Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
         Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.ProcessManagerPathTextbox = New DevExpress.XtraEditors.TextEdit()
-        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.ADRootPathTextBox = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.LayoutControl1.SuspendLayout()
         CType(Me.ToggleSwitchDebug.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Quicksearch1CB_Pos.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Quicksearch1TitleTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ProcessManagerPathTextbox.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ProcessManagerPathTextbox.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ADRootPathTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
@@ -157,6 +161,7 @@ Partial Class frmConfigBasic
         Me.LayoutControl1.Controls.Add(Me.Quicksearch1CB_Pos)
         Me.LayoutControl1.Controls.Add(Me.Quicksearch1TitleTextBox)
         Me.LayoutControl1.Controls.Add(Me.ProcessManagerPathTextbox)
+        Me.LayoutControl1.Controls.Add(Me.ADRootPathTextBox)
         Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.LayoutControl1.Location = New System.Drawing.Point(0, 158)
         Me.LayoutControl1.Name = "LayoutControl1"
@@ -197,6 +202,15 @@ Partial Class frmConfigBasic
         Me.Quicksearch1TitleTextBox.StyleController = Me.LayoutControl1
         Me.Quicksearch1TitleTextBox.TabIndex = 6
         '
+        'ProcessManagerPathTextbox
+        '
+        Me.ProcessManagerPathTextbox.Location = New System.Drawing.Point(178, 173)
+        Me.ProcessManagerPathTextbox.MenuManager = Me.RibbonControl1
+        Me.ProcessManagerPathTextbox.Name = "ProcessManagerPathTextbox"
+        Me.ProcessManagerPathTextbox.Size = New System.Drawing.Size(598, 20)
+        Me.ProcessManagerPathTextbox.StyleController = Me.LayoutControl1
+        Me.ProcessManagerPathTextbox.TabIndex = 9
+        '
         'Root
         '
         Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -254,31 +268,40 @@ Partial Class frmConfigBasic
         Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem4.TextVisible = False
         '
-        'ProcessManagerPathTextbox
+        'LayoutControlGroup2
         '
-        Me.ProcessManagerPathTextbox.Location = New System.Drawing.Point(178, 173)
+        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem5})
-        Me.ProcessManagerPathTextbox.MenuManager = Me.RibbonControl1
+        Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 128)
-        Me.ProcessManagerPathTextbox.Name = "ProcessManagerPathTextbox"
+        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
-        Me.ProcessManagerPathTextbox.Size = New System.Drawing.Size(598, 20)
+        Me.LayoutControlGroup2.Size = New System.Drawing.Size(780, 120)
-        Me.ProcessManagerPathTextbox.StyleController = Me.LayoutControl1
+        Me.LayoutControlGroup2.Text = "Weitere Einstellungen"
-        Me.ProcessManagerPathTextbox.TabIndex = 9
         '
         'LayoutControlItem2
         '
         Me.LayoutControlItem2.Control = Me.ProcessManagerPathTextbox
         Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(756, 75)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(756, 24)
         Me.LayoutControlItem2.Text = "Pfad zum Process Manager"
         Me.LayoutControlItem2.TextSize = New System.Drawing.Size(142, 13)
         '
-        'LayoutControlGroup2
+        'ADRootPathTextBox
         '
-        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
+        Me.ADRootPathTextBox.Location = New System.Drawing.Point(178, 197)
-        Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 128)
+        Me.ADRootPathTextBox.MenuManager = Me.RibbonControl1
-        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
+        Me.ADRootPathTextBox.Name = "ADRootPathTextBox"
-        Me.LayoutControlGroup2.Size = New System.Drawing.Size(780, 120)
+        Me.ADRootPathTextBox.Size = New System.Drawing.Size(598, 20)
-        Me.LayoutControlGroup2.Text = "Weitere Einstellungen"
+        Me.ADRootPathTextBox.StyleController = Me.LayoutControl1
+        Me.ADRootPathTextBox.TabIndex = 10
+        '
+        'LayoutControlItem5
+        '
+        Me.LayoutControlItem5.Control = Me.ADRootPathTextBox
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem5.Name = "LayoutControlItem5"
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(756, 51)
+        Me.LayoutControlItem5.Text = "Active Directory Root Pfad"
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(142, 13)
         '
         'frmConfigBasic
         '
@@ -299,15 +322,17 @@ Partial Class frmConfigBasic
         CType(Me.ToggleSwitchDebug.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Quicksearch1CB_Pos.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Quicksearch1TitleTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ProcessManagerPathTextbox.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ProcessManagerPathTextbox.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ADRootPathTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -338,4 +363,6 @@ Partial Class frmConfigBasic
     Friend WithEvents ProcessManagerPathTextbox As DevExpress.XtraEditors.TextEdit
     Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup
     Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents ADRootPathTextBox As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
 End Class

GUIs.ZooFlow/frmConfigBasic.vb

@@ -8,29 +8,35 @@ Public Class frmConfigBasic
     Dim oFormLoaded As Boolean = False
 
     Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        LoadScreens()
-
         Logger = My.LogConfig.GetLogger()
         ToggleSwitchDebug.IsOn = My.LogConfig.Debug
 
-        For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
+        For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
-            Select Case orow.Item("CAT_TITLE")
+            Dim oId = oRow.Item("GUID")
+            Dim oTitle As String = oRow.Item("CAT_TITLE")
+            Dim oValue As String = oRow.ItemEx("CAT_STRING", String.Empty)
+
+            Select Case oTitle
                 Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE
-                    Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
+                    Quicksearch1TitleTextBox.Text = oValue
-                    Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
+                    Quicksearch1TitleTextBox.Tag = oId
+
                 Case ClassConstants.USER_CATALOG_QUICKSEARCH1_POS
-                    Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
+                    Quicksearch1CB_Pos.EditValue = oValue
-                    Quicksearch1CB_Pos.Tag = orow.Item("GUID")
+                    Quicksearch1CB_Pos.Tag = oId
+
+                Case ClassConstants.USER_AD_ROOT_PATH
+                    ADRootPathTextBox.EditValue = oValue
+                    ADRootPathTextBox.Tag = oId
+
                 Case ClassConstants.USER_CATALOG_APPLICATION_THEME
                     Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().
-                        Where(Function(item) item.Value = orow.ItemEx("CAT_STRING", String.Empty)).
+                        Where(Function(item) item.Value = oValue).
                         FirstOrDefault()
 
-
                     If Not IsNothing(oItem) Then
                         SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
                     End If
-
             End Select
         Next
 
@@ -41,16 +47,8 @@ Public Class frmConfigBasic
         oFormLoaded = True
     End Sub
 
-    Private Sub LoadScreens()
+    Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        'cmbScreens.Properties.Items.Clear()
+        FormLoaded = True
-        'For Each oScreen In Screen.AllScreens
-        '    cmbScreens.Properties.Items.Add(oScreen.DeviceName)
-        'Next
-    End Sub
-
-    Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs)
-        'My.UIConfig.SidebarScreen = cmbScreens.EditValue
-        My.UIConfigManager.Save()
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
@@ -62,26 +60,12 @@ Public Class frmConfigBasic
     End Sub
 
 
-    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+    Private Sub SaveCatalogSetting(pKey As Integer, pValue As String)
         Try
-            Dim oUpd = "UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '', CAT_STRING  = "
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{pValue}'
-        Catch ex As Exception
+            WHERE GUID  = {pKey}"
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
 
-    Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+            If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then
-        FormLoaded = True
-    End Sub
-
-    Private Sub Quicksearch1CB_Pos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Quicksearch1CB_Pos.SelectedIndexChanged
-        If FormLoaded = False Then
-            Exit Sub
-        End If
-        Try
-            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{Quicksearch1CB_Pos.EditValue}'
-            WHERE GUID  = {Quicksearch1CB_Pos.Tag}"
-            If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
                 bsiInfo.Caption = "Position Quicksearch1 saved!"
             End If
         Catch ex As Exception
@@ -89,21 +73,20 @@ Public Class frmConfigBasic
         End Try
     End Sub
 
-    Private Sub Quicksearch1TitleTextBox_Leave(sender As Object, e As EventArgs) Handles Quicksearch1TitleTextBox.Leave
+    Private Sub TextEdit_Leave(sender As Object, e As EventArgs) Handles _
+        Quicksearch1TitleTextBox.Leave,
+        ADRootPathTextBox.Leave,
+        Quicksearch1CB_Pos.SelectedIndexChanged
+
         If FormLoaded = False Then
             Exit Sub
         End If
-        Try
+
-            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{Quicksearch1TitleTextBox.Text}'
+        Dim oTextbox As BaseEdit = sender
-            WHERE GUID  = {Quicksearch1TitleTextBox.Tag}"
+        SaveCatalogSetting(oTextbox.Tag, oTextbox.EditValue)
-            If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
-                bsiInfo.Caption = "Title Quicksearch1 saved!"
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
-        End Try
     End Sub
 
+
     Private Sub SkinPaletteRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinPaletteRibbonGalleryBarItem1.GalleryItemClick
         UpdateThemeSettings()
     End Sub
@@ -181,4 +164,6 @@ Public Class frmConfigBasic
 
 
     End Sub
+
+
 End Class

Modules.Interfaces/ActiveDirectoryInterface.vb

@@ -123,6 +123,9 @@ Public Class ActiveDirectoryInterface
         Return ListGroups(_rootNode, Query)
     End Function
 
+    Public Async Function ListGroupsAsync(Optional Query As String = DEFAULT_GROUP_FILTER) As Task(Of List(Of ADGroup))
+        Return Await Task.Run(Function() ListGroups(Query))
+    End Function
 
     Public Function ListGroups(RootNode As DirectoryEntry, Optional Query As String = DEFAULT_GROUP_FILTER) As List(Of ADGroup)
         Dim oGroups As New List(Of ADGroup)
@@ -148,6 +151,10 @@ Public Class ActiveDirectoryInterface
         Return ListUsers(GroupName, New List(Of AttributeMapping), Filter)
     End Function
 
+    Public Async Function ListUsersAsync(GroupName As String, Optional Filter As String = DEFAULT_USER_FILTER) As Task(Of List(Of ADUser))
+        Return Await Task.Run(Function() ListUsers(GroupName, Filter))
+    End Function
+
     Public Function ListUsers(GroupName As String, AttributeMappings As List(Of AttributeMapping), Optional Filter As String = DEFAULT_USER_FILTER) As List(Of ADUser)
         Dim oUsers As New List(Of ADUser)
 

Modules.Interfaces/ActiveDirectoryInterface/ActiveDirectoryGroup.vb

@@ -1,13 +1,13 @@
 Public Class ADGroup
-    Public SAMAccountName As String
+    Public Property SAMAccountName As String
-    Public ObjectClass As String
+    Public Property ObjectClass As String
-    Public CN As String
+    Public Property CN As String
-    Public Description As String
+    Public Property Description As String
-    Public DistinguishedName As String
+    Public Property DistinguishedName As String
-    Public Name As String
+    Public Property Name As String
-    Public ObjectCategory As String
+    Public Property ObjectCategory As String
 
     Public Overrides Function ToString() As String
-        Return $"SAMAccountName={SAMAccountName}"
+        Return SAMAccountName
     End Function
 End Class

Modules.Interfaces/ActiveDirectoryInterface/ActiveDirectoryUser.vb

@@ -1,19 +1,20 @@
 Imports System.Security.Principal
 
 Public Class ADUser
-    Public GUID As Guid
+    Public Property GUID As Guid
-    Public SId As SecurityIdentifier
+    Public Property samAccountName As String
-    Public samAccountName As String
+    Public Property SId As SecurityIdentifier
-    Public Surname As String
+    Public Property Surname As String
-    Public GivenName As String
+    Public Property GivenName As String
-    Public Middlename As String
+    Public Property Middlename As String
-    Public Email As String
+    Public Property Email As String
 
     Public CustomAttributes As List(Of CustomAttribute)
 
     Public Overrides Function Equals(obj As Object) As Boolean
         Return DirectCast(obj, ADUser).samAccountName
     End Function
+
     Public Overrides Function ToString() As String
         Return samAccountName
     End Function