Zooflow: Make PM Path configurable

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.Designer.vb

@@ -141,10 +141,10 @@ Partial Class frmAdmin_IDBEntity
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 465)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 463)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 24)
         '
         'RibbonPage2
         '
@@ -165,7 +165,7 @@ Partial Class frmAdmin_IDBEntity
         Me.LayoutControl1.Location = New System.Drawing.Point(0, 132)
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(837, 333)
+        Me.LayoutControl1.Size = New System.Drawing.Size(837, 331)
         Me.LayoutControl1.TabIndex = 2
         Me.LayoutControl1.Text = "LayoutControl1"
         '
@@ -207,7 +207,7 @@ Partial Class frmAdmin_IDBEntity
         Me.CheckEdit1.MenuManager = Me.RibbonControl1
         Me.CheckEdit1.Name = "CheckEdit1"
         Me.CheckEdit1.Properties.Caption = "Erbt Attribute der übergeordneten Entität"
-        Me.CheckEdit1.Size = New System.Drawing.Size(797, 18)
+        Me.CheckEdit1.Size = New System.Drawing.Size(797, 20)
         Me.CheckEdit1.StyleController = Me.LayoutControl1
         Me.CheckEdit1.TabIndex = 7
         '
@@ -224,7 +224,7 @@ Partial Class frmAdmin_IDBEntity
         'txtAddedWho
         '
         Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHO", True))
-        Me.txtAddedWho.Location = New System.Drawing.Point(114, 178)
+        Me.txtAddedWho.Location = New System.Drawing.Point(114, 180)
         Me.txtAddedWho.MenuManager = Me.RibbonControl1
         Me.txtAddedWho.Name = "txtAddedWho"
         Me.txtAddedWho.Size = New System.Drawing.Size(294, 20)
@@ -234,7 +234,7 @@ Partial Class frmAdmin_IDBEntity
         'TextEdit6
         '
         Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHEN", True))
-        Me.TextEdit6.Location = New System.Drawing.Point(522, 178)
+        Me.TextEdit6.Location = New System.Drawing.Point(522, 180)
         Me.TextEdit6.MenuManager = Me.RibbonControl1
         Me.TextEdit6.Name = "TextEdit6"
         Me.TextEdit6.Size = New System.Drawing.Size(295, 20)
@@ -244,7 +244,7 @@ Partial Class frmAdmin_IDBEntity
         'txtChangedWho
         '
         Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHO", True))
-        Me.txtChangedWho.Location = New System.Drawing.Point(114, 218)
+        Me.txtChangedWho.Location = New System.Drawing.Point(114, 220)
         Me.txtChangedWho.MenuManager = Me.RibbonControl1
         Me.txtChangedWho.Name = "txtChangedWho"
         Me.txtChangedWho.Size = New System.Drawing.Size(294, 20)
@@ -254,7 +254,7 @@ Partial Class frmAdmin_IDBEntity
         'TextEdit8
         '
         Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit8.Location = New System.Drawing.Point(522, 218)
+        Me.TextEdit8.Location = New System.Drawing.Point(522, 220)
         Me.TextEdit8.MenuManager = Me.RibbonControl1
         Me.TextEdit8.Name = "TextEdit8"
         Me.TextEdit8.Size = New System.Drawing.Size(295, 20)
@@ -267,7 +267,7 @@ Partial Class frmAdmin_IDBEntity
         Me.Root.GroupBordersVisible = False
         Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9})
         Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(837, 333)
+        Me.Root.Size = New System.Drawing.Size(837, 331)
         Me.Root.TextVisible = False
         '
         'LayoutControlItem1
@@ -296,7 +296,7 @@ Partial Class frmAdmin_IDBEntity
         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(817, 38)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(817, 40)
         Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem4.TextVisible = False
         '
@@ -313,7 +313,7 @@ Partial Class frmAdmin_IDBEntity
         'LayoutControlItem6
         '
         Me.LayoutControlItem6.Control = Me.txtAddedWho
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 158)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 160)
         Me.LayoutControlItem6.Name = "LayoutControlItem6"
         Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem6.Size = New System.Drawing.Size(408, 40)
@@ -323,17 +323,17 @@ Partial Class frmAdmin_IDBEntity
         'LayoutControlItem8
         '
         Me.LayoutControlItem8.Control = Me.txtChangedWho
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 198)
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 200)
         Me.LayoutControlItem8.Name = "LayoutControlItem8"
         Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 115)
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 111)
         Me.LayoutControlItem8.Text = "Geändert Wer"
         Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem7
         '
         Me.LayoutControlItem7.Control = Me.TextEdit6
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(408, 158)
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(408, 160)
         Me.LayoutControlItem7.Name = "LayoutControlItem7"
         Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
         Me.LayoutControlItem7.Size = New System.Drawing.Size(409, 40)
@@ -343,10 +343,10 @@ Partial Class frmAdmin_IDBEntity
         'LayoutControlItem9
         '
         Me.LayoutControlItem9.Control = Me.TextEdit8
-        Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 198)
+        Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 200)
         Me.LayoutControlItem9.Name = "LayoutControlItem9"
         Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 115)
+        Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 111)
         Me.LayoutControlItem9.Text = "Geändert Wann"
         Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
         '
@@ -360,7 +360,11 @@ Partial Class frmAdmin_IDBEntity
         Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter
+        Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Nothing
         Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
         Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.resx

@@ -150,6 +150,9 @@
   <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <metadata name="TBIDB_BUSINESS_ENTITYTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>443, 17</value>
   </metadata>

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

@@ -40,11 +40,27 @@ Partial Class frmAdmin_User
         Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
         Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
         Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit8 = 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()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -54,11 +70,27 @@ Partial Class frmAdmin_User
         CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        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.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()
         Me.SuspendLayout()
         '
         'RibbonControl1
@@ -73,7 +105,7 @@ Partial Class frmAdmin_User
         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(800, 63)
+        Me.RibbonControl1.Size = New System.Drawing.Size(816, 63)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
         '
@@ -114,10 +146,10 @@ Partial Class frmAdmin_User
         '
         'RibbonStatusBar1
         '
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 517)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(816, 24)
         '
         'RibbonPage2
         '
@@ -151,71 +183,122 @@ Partial Class frmAdmin_User
         Me.LayoutControl1.Controls.Add(Me.TextEdit2)
         Me.LayoutControl1.Controls.Add(Me.TextEdit3)
         Me.LayoutControl1.Controls.Add(Me.TextEdit4)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit5)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit6)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit7)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit8)
+        Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
+        Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit61)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit81)
         Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
         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(800, 363)
+        Me.LayoutControl1.Size = New System.Drawing.Size(816, 454)
         Me.LayoutControl1.TabIndex = 2
         Me.LayoutControl1.Text = "LayoutControl1"
         '
         'TextEdit1
         '
         Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "GUID", True))
-        Me.TextEdit1.Location = New System.Drawing.Point(133, 20)
+        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(647, 20)
+        Me.TextEdit1.Size = New System.Drawing.Size(682, 20)
         Me.TextEdit1.StyleController = Me.LayoutControl1
         Me.TextEdit1.TabIndex = 4
         '
         'TextEdit2
         '
         Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "USERNAME", True))
-        Me.TextEdit2.Location = New System.Drawing.Point(133, 60)
+        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(647, 20)
+        Me.TextEdit2.Size = New System.Drawing.Size(682, 20)
         Me.TextEdit2.StyleController = Me.LayoutControl1
         Me.TextEdit2.TabIndex = 5
         '
         'TextEdit3
         '
         Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "PRENAME", True))
-        Me.TextEdit3.Location = New System.Drawing.Point(133, 100)
+        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(647, 20)
+        Me.TextEdit3.Size = New System.Drawing.Size(682, 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(133, 140)
+        Me.TextEdit4.Location = New System.Drawing.Point(114, 140)
         Me.TextEdit4.MenuManager = Me.RibbonControl1
         Me.TextEdit4.Name = "TextEdit4"
-        Me.TextEdit4.Size = New System.Drawing.Size(647, 20)
+        Me.TextEdit4.Size = New System.Drawing.Size(682, 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.MenuManager = Me.RibbonControl1
+        Me.TextEdit5.Name = "TextEdit5"
+        Me.TextEdit5.Size = New System.Drawing.Size(682, 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.MenuManager = Me.RibbonControl1
+        Me.TextEdit6.Name = "TextEdit6"
+        Me.TextEdit6.Size = New System.Drawing.Size(682, 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.MenuManager = Me.RibbonControl1
+        Me.TextEdit7.Name = "TextEdit7"
+        Me.TextEdit7.Size = New System.Drawing.Size(682, 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.MenuManager = Me.RibbonControl1
+        Me.TextEdit8.Name = "TextEdit8"
+        Me.TextEdit8.Size = New System.Drawing.Size(682, 20)
+        Me.TextEdit8.StyleController = Me.LayoutControl1
+        Me.TextEdit8.TabIndex = 11
+        '
         '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.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.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(800, 363)
+        Me.Root.Size = New System.Drawing.Size(816, 454)
         Me.Root.TextVisible = False
         '
         'LayoutControlItem1
         '
         Me.LayoutControlItem1.Control = Me.TextEdit1
+        Me.LayoutControlItem1.Enabled = False
         Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem1.Name = "LayoutControlItem1"
         Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40)
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(101, 13)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem1.Text = "ID"
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem2
         '
@@ -223,8 +306,9 @@ 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(780, 40)
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(101, 13)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem2.Text = "Benutzername"
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem3
         '
@@ -232,8 +316,9 @@ 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(780, 40)
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(101, 13)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(796, 40)
+        Me.LayoutControlItem3.Text = "Vorname"
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13)
         '
         'LayoutControlItem4
         '
@@ -241,14 +326,135 @@ Partial Class frmAdmin_User
         Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120)
         Me.LayoutControlItem4.Name = "LayoutControlItem4"
         Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 223)
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(101, 13)
+        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.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.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.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.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.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.Text = "Erstellt Wer"
+        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
+        '
+        'LayoutControlItem10
+        '
+        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.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.Text = "Geändert Wer"
+        Me.LayoutControlItem10.TextSize = New System.Drawing.Size(82, 13)
+        '
+        'LayoutControlItem11
+        '
+        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.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.Text = "Erstellt Wann"
+        Me.LayoutControlItem11.TextSize = New System.Drawing.Size(82, 13)
+        '
+        'LayoutControlItem12
+        '
+        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.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.Text = "Geändert Wann"
+        Me.LayoutControlItem12.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(800, 450)
+        Me.ClientSize = New System.Drawing.Size(816, 541)
         Me.Controls.Add(Me.LayoutControl1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
@@ -265,11 +471,27 @@ Partial Class frmAdmin_User
         CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        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.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()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -297,4 +519,20 @@ Partial Class frmAdmin_User
     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
+    Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents TextEdit61 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents TextEdit81 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
 End Class

GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb

@@ -44,4 +44,31 @@ Public Class frmAdmin_User
             Return False
         End Try
     End Function
+    Public Function SaveData() As Boolean
+        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
+
+    End Sub
 End Class