Zooflow: Add Active Directory User Import

2022-03-07 15:51:27 +01:00
parent 4dec4be471
commit 6ffc699fb1
30 changed files with 1514 additions and 348 deletions
--- a/GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb
+++ b/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