MS17.11

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -1338,6 +1338,7 @@
     <None Include="Resources\brick.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\Permission_12796.png" />
     <None Include="Resources\search_glyph.png" />
     <None Include="Resources\xml.png" />
     <None Include="Resources\sql.png" />

app/DD-Record-Organiser/DD_ECMAdmin.xss

@@ -4,7 +4,7 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-14" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-14" ViewPortY="-14" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="13" X="45" Y="38" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
     <Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="12" X="385" Y="38" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
@@ -17,7 +17,7 @@
     <Shape ID="DesignTable:DT_VORSCHAU" ZOrder="9" X="1342" Y="401" Height="48" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" />
     <Shape ID="DesignTable:TBAD_Users" ZOrder="5" X="365" Y="384" Height="144" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
     <Shape ID="DesignTable:TBWH_Users1" ZOrder="3" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBWH_Users2" ZOrder="2" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBWH_Users2" ZOrder="2" X="794" Y="145" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
   </Shapes>
   <Connectors>
     <Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" ZOrder="11" LineWidth="11">

app/DD-Record-Organiser/ModuleHelperMethods.vb

@@ -186,9 +186,15 @@
 
         frm.Show()
     End Sub
+    Public Sub OpenViewsUser()
+        Dim frm As New frmViewsUser
+        frm = frmViewsUser
+        frm.MdiParent = MAIN_FORM
+        frm.Show()
+    End Sub
     Public Sub OpenSearchAllOVer()
-        Dim frm As New frmSearchAllOVer
+        Dim frm As New frmViewsUser
-        frm = frmSearchAllOVer
+        frm = frmViewsUser
         frm.MdiParent = MAIN_FORM
         frm.Show()
     End Sub

app/DD-Record-Organiser/My Project/Resources.resx

@@ -133,11 +133,8 @@
   <data name="UserInterfaceEditor_5845_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\UserInterfaceEditor_5845_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Carousel_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Carousel_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="DD_Icons-ADDI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -172,9 +169,6 @@
   <data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="asset_pie-series-chart_on_12X12" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\asset_pie-series-chart_on_12X12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Men3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Men3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -184,6 +178,12 @@
   <data name="Arrow_RedoRetry_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Arrow_RedoRetry_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Login_6031_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Login_6031_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="lock" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -202,11 +202,17 @@
   <data name="text" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\text.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="search_glyph" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="userAccounts" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="user_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,9 +223,6 @@
   <data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="dtp1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -259,18 +262,18 @@
   <data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="page_excel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="dtp" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Reports-collapsed_12995_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Reports-collapsed_12995_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="text1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\text1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -286,20 +289,26 @@
   <data name="application_view_detail" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="brick_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\brick_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="calendar_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\calendar_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Carousel_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="dtp1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Carousel_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="f5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -313,6 +322,9 @@
   <data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ComboBox_672" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ComboBox_672.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -325,8 +337,8 @@
   <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -334,24 +346,15 @@
   <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="lightbulb" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lightbulb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="UserInterfaceEditor_5845" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddExistingItem_62691" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\UserInterfaceEditor_5845.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\AddExistingItem_62691.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="arrow_Forward_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Arrow_RedoRetry_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Arrow_RedoRetry_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -364,9 +367,6 @@
   <data name="Property_501" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Property_501.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Works Finished (nonXP)" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Works Finished (nonXP).ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -382,6 +382,9 @@
   <data name="WMI_Task_21x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WMI_Task_21x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Connection_Manager" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Connection_Manager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -400,15 +403,9 @@
   <data name="lock_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lock_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="database_lightning" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -421,8 +418,8 @@
   <data name="Label_684" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Label_684.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bug_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bug_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,6 +457,9 @@
   <data name="view_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\view_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -469,11 +469,11 @@
   <data name="database_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="xml" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\xml.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -484,11 +484,8 @@
   <data name="f2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_go1" 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>
+    <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="AddExistingItem_62691" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AddExistingItem_62691.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -511,9 +508,6 @@
   <data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -523,6 +517,9 @@
   <data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="WebUserControl(ascx)_11270_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -544,11 +541,11 @@
   <data name="action_add_16xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="arrow_Forward_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Connection_Manager" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Connection_Manager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bricks" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -577,14 +574,17 @@
   <data name="folder_Open_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="note_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\note_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -598,8 +598,8 @@
   <data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bug_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bug_edit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -607,17 +607,20 @@
   <data name="Men4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Men4.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="lock" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="asset_pie-series-chart_on_12X12" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\lock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\asset_pie-series-chart_on_12X12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="keinbild" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="UserInterfaceEditor_5845" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\UserInterfaceEditor_5845.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Login_6031_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Login_6031_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -625,8 +628,8 @@
   <data name="f1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -670,8 +673,8 @@
   <data name="138_PushPin_32x42_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -694,10 +697,10 @@
   <data name="112_RefreshArrow_Blue_24x24_721" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\112_RefreshArrow_Blue_24x24_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Reports-collapsed_12995_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Reports-collapsed_12995_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="search_glyph" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Permission_12796" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Permission_12796.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

app/DD-Record-Organiser/frmConstructorDesigner.resx

@@ -1099,7 +1099,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
-        CQAAAk1TRnQBSQFMAgEBAgEAAXwBDAF8AQwBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAYwBDAGMAQwBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

app/DD-Record-Organiser/frmConstructor_Main.resx

@@ -319,7 +319,7 @@
     <value>Detail-Ansicht Datensatz</value>
   </data>
   <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
-    <value>252, 292</value>
+    <value>252, 270</value>
   </data>
   <data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
     <value>ContextMenuGrid</value>
@@ -343,7 +343,7 @@
     <value>0, 25</value>
   </data>
   <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 212</value>
+    <value>1067, 212</value>
   </data>
   <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -460,7 +460,7 @@
     <value>0, 0</value>
   </data>
   <data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 25</value>
+    <value>1067, 25</value>
   </data>
   <data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -541,7 +541,7 @@
     <value>0, 0</value>
   </data>
   <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>786, 343</value>
+    <value>786, 336</value>
   </data>
   <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -565,7 +565,7 @@
     <value>Panel2</value>
   </data>
   <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1356, 340</value>
   </data>
   <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -726,7 +726,7 @@
     <value>1</value>
   </data>
   <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 372</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabDetails.Text" xml:space="preserve">
     <value>Detailansicht</value>
@@ -744,7 +744,7 @@
     <value>0</value>
   </data>
   <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1362, 403</value>
+    <value>1362, 396</value>
   </data>
   <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -882,7 +882,7 @@
     <value>Aqua</value>
   </data>
   <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1356, 340</value>
   </data>
   <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
     <value>7</value>
@@ -1009,7 +1009,7 @@
     <value>1</value>
   </data>
   <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 372</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabWindream.Text" xml:space="preserve">
     <value>Dateien</value>
@@ -1440,7 +1440,7 @@
     <value>2</value>
   </data>
   <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 372</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabFollowUp.Text" xml:space="preserve">
     <value>Wiedervorlage</value>
@@ -1467,7 +1467,7 @@
     <value>Cyan</value>
   </data>
   <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1356, 340</value>
   </data>
   <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -1491,7 +1491,7 @@
     <value>0, 25</value>
   </data>
   <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1356, 340</value>
   </data>
   <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -1695,7 +1695,7 @@
 </value>
   </data>
   <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 372</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabPos.Text" xml:space="preserve">
     <value>Positionen</value>
@@ -1773,7 +1773,7 @@
     <value>1</value>
   </data>
   <data name="XtraTabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 372</value>
+    <value>1356, 365</value>
   </data>
   <data name="XtraTabPageVariant.Text" xml:space="preserve">
     <value>Vorgängervarianten</value>

app/DD-Record-Organiser/frmMain.Designer.vb

@@ -68,9 +68,10 @@ Partial Class frmMain
         Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnGlobalSearch = New DevExpress.XtraBars.BarButtonItem()
         Me.LabelUser = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnItemViewsUser = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
         Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -100,26 +101,26 @@ Partial Class frmMain
         'NotifyIcon
         '
         Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
-        resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
         Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
+        resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
         '
         'cmsSystray
         '
-        resources.ApplyResources(Me.cmsSystray, "cmsSystray")
         Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
         Me.cmsSystray.Name = "cmsSystray"
+        resources.ApplyResources(Me.cmsSystray, "cmsSystray")
         '
         'ADDIBeendenToolStripMenuItem
         '
-        resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
         Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
         Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem"
+        resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
         '
         'CockpitAnzeigenToolStripMenuItem
         '
-        resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
         Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.WebUserControl_ascx__11270_16x
         Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem"
+        resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
         '
         'TimerTasks
         '
@@ -183,12 +184,12 @@ Partial Class frmMain
         '
         'ribbonMain
         '
-        resources.ApplyResources(Me.ribbonMain, "ribbonMain")
         Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
         Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
         Me.ribbonMain.ExpandCollapseItem.Id = 0
-        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.BarButtonItem23, Me.LabelUser, Me.BarButtonItem24})
+        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.BarButtonItem24, Me.bbtnItemViewsUser})
-        Me.ribbonMain.MaxItemId = 7
+        resources.ApplyResources(Me.ribbonMain, "ribbonMain")
+        Me.ribbonMain.MaxItemId = 8
         Me.ribbonMain.Name = "ribbonMain"
         Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
         Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
@@ -203,10 +204,6 @@ Partial Class frmMain
         Me.MainMenu.ItemLinks.Add(Me.itemAbout)
         Me.MainMenu.ItemLinks.Add(Me.BarButtonItem19)
         Me.MainMenu.ItemLinks.Add(Me.itemExit)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.MainMenu.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
         Me.MainMenu.Name = "MainMenu"
         Me.MainMenu.Ribbon = Me.ribbonMain
         '
@@ -424,10 +421,6 @@ Partial Class frmMain
         resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
         Me.BarSubItem1.Id = 38
         Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9)})
-        Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
-        Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
         Me.BarSubItem1.Name = "BarSubItem1"
         Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
@@ -465,13 +458,14 @@ Partial Class frmMain
         Me.BarButtonItem9.Id = 45
         Me.BarButtonItem9.Name = "BarButtonItem9"
         '
-        'BarButtonItem23
+        'btnGlobalSearch
         '
-        resources.ApplyResources(Me.BarButtonItem23, "BarButtonItem23")
+        resources.ApplyResources(Me.btnGlobalSearch, "btnGlobalSearch")
-        Me.BarButtonItem23.Glyph = CType(resources.GetObject("BarButtonItem23.Glyph"), System.Drawing.Image)
+        Me.btnGlobalSearch.Enabled = False
-        Me.BarButtonItem23.Id = 2
+        Me.btnGlobalSearch.Glyph = CType(resources.GetObject("btnGlobalSearch.Glyph"), System.Drawing.Image)
-        Me.BarButtonItem23.LargeGlyph = CType(resources.GetObject("BarButtonItem23.LargeGlyph"), System.Drawing.Image)
+        Me.btnGlobalSearch.Id = 2
-        Me.BarButtonItem23.Name = "BarButtonItem23"
+        Me.btnGlobalSearch.LargeGlyph = CType(resources.GetObject("btnGlobalSearch.LargeGlyph"), System.Drawing.Image)
+        Me.btnGlobalSearch.Name = "btnGlobalSearch"
         '
         'LabelUser
         '
@@ -486,6 +480,14 @@ Partial Class frmMain
         Me.BarButtonItem24.Id = 6
         Me.BarButtonItem24.Name = "BarButtonItem24"
         '
+        'bbtnItemViewsUser
+        '
+        resources.ApplyResources(Me.bbtnItemViewsUser, "bbtnItemViewsUser")
+        Me.bbtnItemViewsUser.Glyph = CType(resources.GetObject("bbtnItemViewsUser.Glyph"), System.Drawing.Image)
+        Me.bbtnItemViewsUser.Id = 7
+        Me.bbtnItemViewsUser.Name = "bbtnItemViewsUser"
+        Me.bbtnItemViewsUser.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
+        '
         'RibbonPageCategory1
         '
         Me.RibbonPageCategory1.Name = "RibbonPageCategory1"
@@ -516,17 +518,13 @@ Partial Class frmMain
         '
         Me.groupSearchAllOver.AllowMinimize = False
         Me.groupSearchAllOver.AllowTextClipping = False
-        Me.groupSearchAllOver.ItemLinks.Add(Me.BarButtonItem23)
+        Me.groupSearchAllOver.ItemLinks.Add(Me.btnGlobalSearch)
         Me.groupSearchAllOver.Name = "groupSearchAllOver"
         resources.ApplyResources(Me.groupSearchAllOver, "groupSearchAllOver")
         '
         'pageForms
         '
         Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
-        Me.pageForms.Appearance.FontSizeDelta = CType(resources.GetObject("pageForms.Appearance.FontSizeDelta"), Integer)
-        Me.pageForms.Appearance.FontStyleDelta = CType(resources.GetObject("pageForms.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.pageForms.Appearance.GradientMode = CType(resources.GetObject("pageForms.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image)
         Me.pageForms.Appearance.Options.UseBackColor = True
         Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2, Me.RibbonPageGroup4})
         Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form
@@ -580,6 +578,7 @@ Partial Class frmMain
         Me.RibbonPageGroupMenue.AllowTextClipping = False
         Me.RibbonPageGroupMenue.ItemLinks.Add(Me.BarButtonItem6)
         Me.RibbonPageGroupMenue.ItemLinks.Add(Me.BarButtonItem7)
+        Me.RibbonPageGroupMenue.ItemLinks.Add(Me.bbtnItemViewsUser)
         Me.RibbonPageGroupMenue.Name = "RibbonPageGroupMenue"
         resources.ApplyResources(Me.RibbonPageGroupMenue, "RibbonPageGroupMenue")
         '
@@ -593,12 +592,12 @@ Partial Class frmMain
         '
         'RibbonStatusBar1
         '
-        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
         '
@@ -632,14 +631,10 @@ Partial Class frmMain
         '
         'frmMain
         '
-        resources.ApplyResources(Me, "$this")
         Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
-        Me.Appearance.FontSizeDelta = CType(resources.GetObject("frmMain.Appearance.FontSizeDelta"), Integer)
-        Me.Appearance.FontStyleDelta = CType(resources.GetObject("frmMain.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.Appearance.GradientMode = CType(resources.GetObject("frmMain.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.Appearance.Image = CType(resources.GetObject("frmMain.Appearance.Image"), System.Drawing.Image)
         Me.Appearance.Options.UseBackColor = True
         Me.Appearance.Options.UseFont = True
+        resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.ribbonMain)
@@ -718,12 +713,13 @@ Partial Class frmMain
     Friend WithEvents itemAbout As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory
-    Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnGlobalSearch As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents groupSearchAllOver As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents LabelUser As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents bbtnItemViewsUser As DevExpress.XtraBars.BarButtonItem
 
 End Class
 

app/DD-Record-Organiser/frmMain.vb

@@ -318,10 +318,7 @@ Public Class frmMain
 
             End Try
 
-
-
             If dt.Rows.Count <> 0 Then
-
                 For Each row As DataRow In dt.Rows
                     If Not IsDBNull(row.Item("MENU_IMG")) Then
                         Dim bimg() As Byte = row.Item("MENU_IMG")
@@ -357,6 +354,14 @@ Public Class frmMain
                 Next
 
             End If
+
+            Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
+            Dim Count = ClassDatabase.Execute_Scalar(sql)
+            If Count = 0 Then
+                btnGlobalSearch.Enabled = False
+            Else
+                btnGlobalSearch.Enabled = True
+            End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Load QuickStart-Items:" & vbNewLine & ex.Message)
         End Try
@@ -837,13 +842,17 @@ Public Class frmMain
         End If
     End Sub
 
-    Private Sub BarButtonItem23_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem23.ItemClick
+    Private Sub BarButtonItem23_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnGlobalSearch.ItemClick
         OpenSearchAllOVer()
 
     End Sub
 
-    Private Sub BarButtonItem24_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem24.ItemClick
+    Private Sub BaButtonItem24_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem24.ItemClick
 
         frmGoogle.Show()
     End Sub
+
+    Private Sub BarButtonItem25_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtnItemViewsUser.ItemClick
+        OpenViewsUser()
+    End Sub
 End Class

app/DD-Record-Organiser/frmViewsUser.Designer.vb

@@ -32,26 +32,28 @@ Partial Class frmViewsUser
         Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl()
+        Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
         Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colID = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
-        Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.btndeleteUserConstructorRel = New System.Windows.Forms.Button()
-        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnAddUser2ConstructorREL = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
@@ -63,11 +65,12 @@ Partial Class frmViewsUser
         Me.GridControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.GridControl1.Location = New System.Drawing.Point(476, 63)
+        Me.GridControl1.DataSource = Me.TBWH_Users1BindingSource
+        Me.GridControl1.Location = New System.Drawing.Point(501, 63)
         Me.GridControl1.MainView = Me.GridView1
         Me.GridControl1.Name = "GridControl1"
         Me.GridControl1.ShowOnlyPredefinedDetails = True
-        Me.GridControl1.Size = New System.Drawing.Size(598, 221)
+        Me.GridControl1.Size = New System.Drawing.Size(354, 283)
         Me.GridControl1.TabIndex = 91
         Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         '
@@ -138,10 +141,20 @@ Partial Class frmViewsUser
         Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue
         Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue"
         Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True
-        Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 221)
+        Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 283)
         Me.GridControlUsers2Menue.TabIndex = 90
         Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue})
         '
+        'TBAD_UsersBindingSource
+        '
+        Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
+        Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin
+        '
+        'DD_ECMAdmin
+        '
+        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
+        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
         'GridViewlUsers2Menue
         '
         Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan
@@ -201,16 +214,6 @@ Partial Class frmViewsUser
         Me.colID.FieldName = "ID"
         Me.colID.Name = "colID"
         '
-        'DD_ECMAdmin
-        '
-        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
-        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'TBAD_UsersBindingSource
-        '
-        Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
-        Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin
-        '
         'TBWH_Users1BindingSource
         '
         Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1"
@@ -222,25 +225,56 @@ Partial Class frmViewsUser
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1087, 391)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(868, 382)
         Me.XtraTabControl1.TabIndex = 92
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
         '
         'XtraTabPage1
         '
+        Me.XtraTabPage1.Controls.Add(Me.btndeleteUserConstructorRel)
+        Me.XtraTabPage1.Controls.Add(Me.btnAddUser2ConstructorREL)
         Me.XtraTabPage1.Controls.Add(Me.Label2)
         Me.XtraTabPage1.Controls.Add(Me.GridControl1)
         Me.XtraTabPage1.Controls.Add(Me.Label1)
         Me.XtraTabPage1.Controls.Add(Me.GridControlUsers2Menue)
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(1085, 363)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(866, 357)
         Me.XtraTabPage1.Text = "Globale Suche"
         '
-        'XtraTabPage2
+        'btndeleteUserConstructorRel
         '
-        Me.XtraTabPage2.Name = "XtraTabPage2"
+        Me.btndeleteUserConstructorRel.Image = CType(resources.GetObject("btndeleteUserConstructorRel.Image"), System.Drawing.Image)
-        Me.XtraTabPage2.Size = New System.Drawing.Size(298, 275)
+        Me.btndeleteUserConstructorRel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.XtraTabPage2.Text = "XtraTabPage2"
+        Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(397, 92)
+        Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel"
+        Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(97, 23)
+        Me.btndeleteUserConstructorRel.TabIndex = 94
+        Me.btndeleteUserConstructorRel.Text = "Delete user"
+        Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btndeleteUserConstructorRel.UseVisualStyleBackColor = True
+        '
+        'btnAddUser2ConstructorREL
+        '
+        Me.btnAddUser2ConstructorREL.Image = CType(resources.GetObject("btnAddUser2ConstructorREL.Image"), System.Drawing.Image)
+        Me.btnAddUser2ConstructorREL.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnAddUser2ConstructorREL.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.btnAddUser2ConstructorREL.Location = New System.Drawing.Point(398, 63)
+        Me.btnAddUser2ConstructorREL.Name = "btnAddUser2ConstructorREL"
+        Me.btnAddUser2ConstructorREL.Size = New System.Drawing.Size(97, 23)
+        Me.btnAddUser2ConstructorREL.TabIndex = 93
+        Me.btnAddUser2ConstructorREL.Text = "Add user"
+        Me.btnAddUser2ConstructorREL.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAddUser2ConstructorREL.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(11, 47)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(196, 13)
+        Me.Label2.TabIndex = 92
+        Me.Label2.Text = "Auswahl noch nicht zugeordneter User:"
         '
         'Label1
         '
@@ -252,20 +286,17 @@ Partial Class frmViewsUser
         Me.Label1.Text = "Konfigurieren Sie hier welche User Zugriff auf die globale Suche haben!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Achtung:" & _
     " in dieser Suche werden alle Datensätze angezeigt!!"
         '
-        'Label2
+        'XtraTabPage2
         '
-        Me.Label2.AutoSize = True
+        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.Label2.Location = New System.Drawing.Point(11, 47)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 366)
-        Me.Label2.Name = "Label2"
+        Me.XtraTabPage2.Text = "XtraTabPage2"
-        Me.Label2.Size = New System.Drawing.Size(196, 13)
-        Me.Label2.TabIndex = 92
-        Me.Label2.Text = "Auswahl noch nicht zugeordneter User:"
         '
         'frmViewsUser
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1087, 391)
+        Me.ClientSize = New System.Drawing.Size(868, 382)
         Me.Controls.Add(Me.XtraTabControl1)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -274,9 +305,9 @@ Partial Class frmViewsUser
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl1.ResumeLayout(False)
@@ -307,4 +338,6 @@ Partial Class frmViewsUser
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents btndeleteUserConstructorRel As System.Windows.Forms.Button
+    Friend WithEvents btnAddUser2ConstructorREL As System.Windows.Forms.Button
 End Class

app/DD-Record-Organiser/frmViewsUser.resx

@@ -117,16 +117,45 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="TBWH_Users1BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>559, 17</value>
+  </metadata>
+  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>152, 17</value>
   </metadata>
   <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="TBWH_Users1BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>559, 17</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="btndeleteUserConstructorRel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd
+        tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8
+        PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI
+        vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm
+        RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2
+        yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E
+        A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y
+        Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu
+        YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI
+        nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y
+        todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ
+        RU5ErkJggg==
+</value>
+  </data>
+  <data name="btnAddUser2ConstructorREL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf
+        /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m
+        m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8
+        M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII=
+</value>
+  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA

app/DD-Record-Organiser/frmViewsUser.vb

@@ -1,3 +1,95 @@
 Public Class frmViewsUser
 
+    Private Sub frmViewsUser_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Load_Users_GS()
+    End Sub
+    Sub Load_Users_GS()
+        Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME")
+        Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
+        Sql = String.Format("SELECT * FROM TBDD_USER WHERE GUID IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME")
+        Dim DT_USERS_CONFIGURED = ClassDatabase.Return_Datatable(Sql)
+        Try
+            DD_ECMAdmin.TBAD_Users.Clear()
+
+            For Each row As DataRow In DT_USER.Rows
+                Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
+                newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
+                newUserRow.Username = row.Item("USERNAME")
+                newUserRow.Surname = row.Item("NAME")
+                newUserRow.Prename = row.Item("PRENAME")
+                Try
+                    newUserRow.Email = row.Item("EMAIL")
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+
+                newUserRow.ID = row.Item("GUID")
+                DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
+                ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
+            Next
+
+            Try
+                DD_ECMAdmin.TBWH_Users1.Clear()
+
+                For Each row As DataRow In DT_USERS_CONFIGURED.Rows
+                    Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
+                    newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
+                    newUserRow.Surname = row.Item("NAME")
+                    newUserRow.Prename = row.Item("PRENAME")
+                    newUserRow.Username = row.Item("USERNAME")
+                    Try
+                        newUserRow.Email = row.Item("EMAIL")
+                    Catch ex As Exception
+                        newUserRow.Email = ""
+                    End Try
+
+                    newUserRow.ID = row.Item("GUID")
+                    DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
+                    ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
+                Next
+            Catch ex As Exception
+                MsgBox("Error loading Users for Global Search:" & vbNewLine & ex.Message)
+            End Try
+
+        Catch ex As Exception
+            MsgBox("Error in Load_Users_GS:" & vbNewLine & ex.Message)
+        End Try
+
+    End Sub
+
+    Private Sub btnAddUser2ConstructorREL_Click(sender As Object, e As EventArgs) Handles btnAddUser2ConstructorREL.Click
+        Try
+            For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+                If row.Item(0) = CBool(True) Then
+                    Dim insert = "INSERT INTO TBPMO_USER_GLOBAL_SEARCH (USER_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", '" & Environment.UserName & "')"
+                    If ClassDatabase.Execute_non_Query(insert, False) = False Then
+                        MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
+                    End If
+                End If
+            Next
+            For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+                row.Item(0) = CBool(False)
+            Next
+            Load_Users_GS()
+        Catch ex As Exception
+            MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click
+        Try
+            Dim refresh As Boolean = False
+            For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
+                If row.Item(0) = CBool(True) Then
+                    Dim delete = "DELETE FROM TBPMO_USER_GLOBAL_SEARCH WHERE GUID = " & row.Item(5)
+                    If ClassDatabase.Execute_non_Query(delete, True) Then
+                        refresh = True
+                    End If
+                End If
+            Next
+            If refresh = True Then Load_Users_GS()
+        Catch ex As Exception
+            MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class

app/RecordOrganizer_RightManager/ClassDatabase.vb

@@ -0,0 +1,256 @@
+Imports System.Data.Odbc
+Public Class ClassDatabase
+    Public Shared ConnectionStringRM As String
+
+    Public Shared Function Init()
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            SQLconnect.ConnectionString = ConnectionStringRM
+            SQLconnect.Open()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            MsgBox("Error in DatabaseInit: " & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    Public Shared Function GetConnectionString(id As Integer)
+        Dim connectionString As String = ""
+        Try
+            'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
+            Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
+            If DTConnection.Rows.Count = 1 Then
+                Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
+                    Case "MS-SQLServer"
+                        If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
+                            connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
+                        Else
+                            connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                        End If
+                        ' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                    Case Else
+                        MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
+                End Select
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in GetConnectionString: " & ex.Message, MsgBoxStyle.Critical)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
+        End Try
+        Return connectionString
+    End Function
+    Public Shared Function Return_Datatable(Select_anweisung As String, Optional CallMethod As String = "")
+        Try
+
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConnectionStringRM
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+
+
+            Return dt
+        Catch ex As Exception
+            MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung & vbNewLine & vbNewLine & "Call-Method: " & CallMethod, MsgBoxStyle.Critical)
+          
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function MSSQL_ReturnDTWithConnection(connectionId As Integer, sql As String)
+        Try
+            Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
+            Dim match As System.Text.RegularExpressions.Match = regex.Match(sql)
+
+            If match.Success Then
+                'Return Nothing
+            End If
+
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(connectionId)
+            If connectionString <> "" Then
+
+                Dim SQLconnect As New SqlClient.SqlConnection
+                Dim SQLcommand As SqlClient.SqlCommand
+                SQLconnect.ConnectionString = connectionString
+                SQLconnect.Open()
+                SQLcommand = SQLconnect.CreateCommand
+                SQLcommand.CommandText = sql
+
+                Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+                Dim dt As DataTable = New DataTable()
+                adapter1.Fill(dt)
+                SQLconnect.Close()
+                Return dt
+            Else
+                MsgBox("No Connection received for ID: " & connectionId.ToString, MsgBoxStyle.Exclamation)
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            MsgBox("Unexpected Error in MSSQL_ReturnDTWithConnection:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+
+
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Return_Datatable_Connection(Select_anweisung As String, connectionId As Integer, Optional userInput As Boolean = False)
+        Try
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(connectionId)
+            If connectionString <> "" Then
+
+
+                Dim SQLconnect As New SqlClient.SqlConnection
+                Dim SQLcommand As SqlClient.SqlCommand
+                SQLconnect.ConnectionString = connectionString
+                SQLconnect.Open()
+                SQLcommand = SQLconnect.CreateCommand
+                SQLcommand.CommandText = Select_anweisung
+
+                Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+                Dim dt As DataTable = New DataTable()
+                adapter1.Fill(dt)
+                SQLconnect.Close()
+
+
+                Return dt
+            Else
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False)
+        Try
+         
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+
+            SQLconnect.ConnectionString = ConnectionStringRM
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandTimeout = 120
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query_withConn(ExecuteCMD As String, ConnID As Integer)
+        Try
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(ConnID)
+            If connectionString <> "" Then
+                Dim SQLconnect As New SqlClient.SqlConnection
+                Dim SQLcommand As SqlClient.SqlCommand
+                SQLconnect.ConnectionString = connectionString
+                SQLconnect.Open()
+                SQLcommand = SQLconnect.CreateCommand
+                'Update Last Created Record in Foo
+                SQLcommand.CommandText = ExecuteCMD
+                SQLcommand.ExecuteNonQuery()
+                SQLcommand.Dispose()
+                SQLconnect.Close()
+
+                Return True
+            Else
+                MsgBox("No ConnectionID for Conn-ID: " & ConnID.ToString, MsgBoxStyle.Exclamation)
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in Execute_non_Query_withConn: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_Scalar(cmdscalar As String, Optional Userinput As Boolean = False)
+        Dim result
+        Try
+
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConnectionStringRM
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+
+
+            Return result
+        Catch ex As Exception
+
+            MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
+
+
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function Execute_ScalarWithConnection(connectionId As Integer, cmdscalar As String)
+        Dim result
+        Try
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(connectionId)
+            If connectionString <> "" Then
+                Dim SQLconnect As New SqlClient.SqlConnection
+                Dim SQLcommand As SqlClient.SqlCommand
+                SQLconnect.ConnectionString = connectionString
+                SQLconnect.Open()
+                SQLcommand = SQLconnect.CreateCommand
+                'Update Last Created Record in Foo
+                SQLcommand.CommandText = cmdscalar
+                result = SQLcommand.ExecuteScalar()
+                SQLcommand.Dispose()
+                SQLconnect.Close()
+                Return result
+            Else
+                MsgBox("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar, MsgBoxStyle.Exclamation)
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+End Class

app/RecordOrganizer_RightManager/MyDataset.Designer.vb

@@ -27,6 +27,8 @@ Partial Public Class MyDataset
     
     Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable
 
+    Private tableTBAD_Users As TBAD_UsersDataTable
+
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -59,6 +61,9 @@ Partial Public Class MyDataset
             If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then
                 MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED")))
             End If
+            If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then
+                MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users")))
+            End If
             Me.DataSetName = ds.DataSetName
             Me.Prefix = ds.Prefix
             Me.Namespace = ds.Namespace
@@ -86,6 +91,16 @@ Partial Public Class MyDataset
         End Get
     End Property
 
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
+     Global.System.ComponentModel.Browsable(False), _
+     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
+    Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable
+        Get
+            Return Me.tableTBAD_Users
+        End Get
+    End Property
+
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
      Global.System.ComponentModel.BrowsableAttribute(True), _
@@ -156,6 +171,9 @@ Partial Public Class MyDataset
             If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then
                 MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED")))
             End If
+            If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then
+                MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users")))
+            End If
             Me.DataSetName = ds.DataSetName
             Me.Prefix = ds.Prefix
             Me.Namespace = ds.Namespace
@@ -194,6 +212,12 @@ Partial Public Class MyDataset
                 Me.tableVWPMO_RIGHTS_2B_WORKED.InitVars()
             End If
         End If
+        Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"), TBAD_UsersDataTable)
+        If (initTable = True) Then
+            If (Not (Me.tableTBAD_Users) Is Nothing) Then
+                Me.tableTBAD_Users.InitVars()
+            End If
+        End If
     End Sub
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -206,6 +230,8 @@ Partial Public Class MyDataset
         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
         Me.tableVWPMO_RIGHTS_2B_WORKED = New VWPMO_RIGHTS_2B_WORKEDDataTable()
         MyBase.Tables.Add(Me.tableVWPMO_RIGHTS_2B_WORKED)
+        Me.tableTBAD_Users = New TBAD_UsersDataTable()
+        MyBase.Tables.Add(Me.tableTBAD_Users)
     End Sub
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -214,6 +240,12 @@ Partial Public Class MyDataset
         Return False
     End Function
 
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Private Function ShouldSerializeTBAD_Users() As Boolean
+        Return False
+    End Function
+
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@@ -275,6 +307,9 @@ Partial Public Class MyDataset
     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
     Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent)
 
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent)
+
     '''<summary>
     '''Represents the strongly named DataTable class.
     '''</summary>
@@ -637,6 +672,327 @@ Partial Public Class MyDataset
         End Function
     End Class
 
+    '''<summary>
+    '''Represents the strongly named DataTable class.
+    '''</summary>
+    <Global.System.Serializable(), _
+     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
+    Partial Public Class TBAD_UsersDataTable
+        Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow)
+
+        Private columnSelect As Global.System.Data.DataColumn
+
+        Private columnUsername As Global.System.Data.DataColumn
+
+        Private columnPrename As Global.System.Data.DataColumn
+
+        Private columnSurname As Global.System.Data.DataColumn
+
+        Private columnEmail As Global.System.Data.DataColumn
+
+        Private columnID As Global.System.Data.DataColumn
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub New()
+            MyBase.New()
+            Me.TableName = "TBAD_Users"
+            Me.BeginInit()
+            Me.InitClass()
+            Me.EndInit()
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Friend Sub New(ByVal table As Global.System.Data.DataTable)
+            MyBase.New()
+            Me.TableName = table.TableName
+            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+                Me.CaseSensitive = table.CaseSensitive
+            End If
+            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+                Me.Locale = table.Locale
+            End If
+            If (table.Namespace <> table.DataSet.Namespace) Then
+                Me.Namespace = table.Namespace
+            End If
+            Me.Prefix = table.Prefix
+            Me.MinimumCapacity = table.MinimumCapacity
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+            MyBase.New(info, context)
+            Me.InitVars()
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnSelect
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnUsername
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnPrename
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnSurname
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnEmail
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnID
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
+         Global.System.ComponentModel.Browsable(False)> _
+        Public ReadOnly Property Count() As Integer
+            Get
+                Return Me.Rows.Count
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Default Public ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow
+            Get
+                Return CType(Me.Rows(index), TBAD_UsersRow)
+            End Get
+        End Property
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow)
+            Me.Rows.Add(row)
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow
+            Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow, TBAD_UsersRow)
+            Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID}
+            rowTBAD_UsersRow.ItemArray = columnValuesArray
+            Me.Rows.Add(rowTBAD_UsersRow)
+            Return rowTBAD_UsersRow
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Overrides Function Clone() As Global.System.Data.DataTable
+            Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone, TBAD_UsersDataTable)
+            cln.InitVars()
+            Return cln
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+            Return New TBAD_UsersDataTable()
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Friend Sub InitVars()
+            Me.columnSelect = MyBase.Columns("Select")
+            Me.columnUsername = MyBase.Columns("Username")
+            Me.columnPrename = MyBase.Columns("Prename")
+            Me.columnSurname = MyBase.Columns("Surname")
+            Me.columnEmail = MyBase.Columns("Email")
+            Me.columnID = MyBase.Columns("ID")
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Private Sub InitClass()
+            Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn")
+            Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect")
+            Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select")
+            MyBase.Columns.Add(Me.columnSelect)
+            Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnUsername)
+            Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnPrename)
+            Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnSurname)
+            Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnEmail)
+            Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnID)
+            Me.columnSelect.DefaultValue = CType(False, Boolean)
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function NewTBAD_UsersRow() As TBAD_UsersRow
+            Return CType(Me.NewRow, TBAD_UsersRow)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+            Return New TBAD_UsersRow(builder)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Function GetRowType() As Global.System.Type
+            Return GetType(TBAD_UsersRow)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowChanged(e)
+            If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then
+                RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowChanging(e)
+            If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then
+                RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowDeleted(e)
+            If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then
+                RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowDeleting(e)
+            If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then
+                RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow)
+            Me.Rows.Remove(row)
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+            Dim ds As MyDataset = New MyDataset()
+            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+            any1.MinOccurs = New Decimal(0)
+            any1.MaxOccurs = Decimal.MaxValue
+            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any1)
+            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+            any2.MinOccurs = New Decimal(1)
+            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any2)
+            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute1.Name = "namespace"
+            attribute1.FixedValue = ds.Namespace
+            type.Attributes.Add(attribute1)
+            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute2.Name = "tableTypeName"
+            attribute2.FixedValue = "TBAD_UsersDataTable"
+            type.Attributes.Add(attribute2)
+            type.Particle = sequence
+            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+            If xs.Contains(dsSchema.TargetNamespace) Then
+                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Try
+                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+                    dsSchema.Write(s1)
+                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+                    Do While schemas.MoveNext
+                        schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema)
+                        s2.SetLength(0)
+                        schema.Write(s2)
+                        If (s1.Length = s2.Length) Then
+                            s1.Position = 0
+                            s2.Position = 0
+
+                            Do While ((s1.Position <> s1.Length) _
+                                        AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+                            Loop
+                            If (s1.Position = s1.Length) Then
+                                Return type
+                            End If
+                        End If
+
+                    Loop
+                Finally
+                    If (Not (s1) Is Nothing) Then
+                        s1.Close()
+                    End If
+                    If (Not (s2) Is Nothing) Then
+                        s2.Close()
+                    End If
+                End Try
+            End If
+            xs.Add(dsSchema)
+            Return type
+        End Function
+    End Class
+
     '''<summary>
     '''Represents strongly named DataRow class.
     '''</summary>
@@ -773,6 +1129,184 @@ Partial Public Class MyDataset
         End Sub
     End Class
 
+    '''<summary>
+    '''Represents strongly named DataRow class.
+    '''</summary>
+    Partial Public Class TBAD_UsersRow
+        Inherits Global.System.Data.DataRow
+
+        Private tableTBAD_Users As TBAD_UsersDataTable
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
+            MyBase.New(rb)
+            Me.tableTBAD_Users = CType(Me.Table, TBAD_UsersDataTable)
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property _Select() As Boolean
+            Get
+                Try
+                    Return CType(Me(Me.tableTBAD_Users.SelectColumn), Boolean)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As Boolean)
+                Me(Me.tableTBAD_Users.SelectColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property Username() As String
+            Get
+                Try
+                    Return CType(Me(Me.tableTBAD_Users.UsernameColumn), String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As String)
+                Me(Me.tableTBAD_Users.UsernameColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property Prename() As String
+            Get
+                Try
+                    Return CType(Me(Me.tableTBAD_Users.PrenameColumn), String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As String)
+                Me(Me.tableTBAD_Users.PrenameColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property Surname() As String
+            Get
+                Try
+                    Return CType(Me(Me.tableTBAD_Users.SurnameColumn), String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As String)
+                Me(Me.tableTBAD_Users.SurnameColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property Email() As String
+            Get
+                Try
+                    Return CType(Me(Me.tableTBAD_Users.EmailColumn), String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As String)
+                Me(Me.tableTBAD_Users.EmailColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property ID() As Short
+            Get
+                Try
+                    Return CType(Me(Me.tableTBAD_Users.IDColumn), Short)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As Short)
+                Me(Me.tableTBAD_Users.IDColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function Is_SelectNull() As Boolean
+            Return Me.IsNull(Me.tableTBAD_Users.SelectColumn)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub Set_SelectNull()
+            Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function IsUsernameNull() As Boolean
+            Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub SetUsernameNull()
+            Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function IsPrenameNull() As Boolean
+            Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub SetPrenameNull()
+            Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function IsSurnameNull() As Boolean
+            Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub SetSurnameNull()
+            Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function IsEmailNull() As Boolean
+            Return Me.IsNull(Me.tableTBAD_Users.EmailColumn)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub SetEmailNull()
+            Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Function IsIDNull() As Boolean
+            Return Me.IsNull(Me.tableTBAD_Users.IDColumn)
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub SetIDNull()
+            Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull
+        End Sub
+    End Class
+
     '''<summary>
     '''Row event argument class
     '''</summary>
@@ -808,6 +1342,42 @@ Partial Public Class MyDataset
             End Get
         End Property
     End Class
+
+    '''<summary>
+    '''Row event argument class
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Public Class TBAD_UsersRowChangeEvent
+        Inherits Global.System.EventArgs
+
+        Private eventRow As TBAD_UsersRow
+
+        Private eventAction As Global.System.Data.DataRowAction
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction)
+            MyBase.New()
+            Me.eventRow = row
+            Me.eventAction = action
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property Row() As TBAD_UsersRow
+            Get
+                Return Me.eventRow
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property Action() As Global.System.Data.DataRowAction
+            Get
+                Return Me.eventAction
+            End Get
+        End Property
+    End Class
 End Class
 
 Namespace MyDatasetTableAdapters

app/RecordOrganizer_RightManager/MyDataset.xsd

@@ -39,7 +39,7 @@ FROM            VWPMO_RIGHTS_2B_WORKED</CommandText>
   <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_TableClassName="VWPMO_RIGHTS_2B_WORKEDDataTable" msprop:Generator_TableVarName="tableVWPMO_RIGHTS_2B_WORKED" msprop:Generator_TablePropName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowDeletingName="VWPMO_RIGHTS_2B_WORKEDRowDeleting" msprop:Generator_RowChangingName="VWPMO_RIGHTS_2B_WORKEDRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RIGHTS_2B_WORKEDRowDeleted" msprop:Generator_UserTableName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowChangedName="VWPMO_RIGHTS_2B_WORKEDRowChanged" msprop:Generator_RowEvArgName="VWPMO_RIGHTS_2B_WORKEDRowChangeEvent" msprop:Generator_RowClassName="VWPMO_RIGHTS_2B_WORKEDRow">
+        <xs:element name="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_TableClassName="VWPMO_RIGHTS_2B_WORKEDDataTable" msprop:Generator_TableVarName="tableVWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowChangedName="VWPMO_RIGHTS_2B_WORKEDRowChanged" msprop:Generator_TablePropName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowDeletingName="VWPMO_RIGHTS_2B_WORKEDRowDeleting" msprop:Generator_RowChangingName="VWPMO_RIGHTS_2B_WORKEDRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RIGHTS_2B_WORKEDRowDeleted" msprop:Generator_RowClassName="VWPMO_RIGHTS_2B_WORKEDRow" msprop:Generator_UserTableName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowEvArgName="VWPMO_RIGHTS_2B_WORKEDRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -77,6 +77,18 @@ FROM            VWPMO_RIGHTS_2B_WORKED</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
+        <xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent" msprop:Generator_RowClassName="TBAD_UsersRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
+              <xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
+              <xs:element name="Prename" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
+              <xs:element name="Surname" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
+              <xs:element name="Email" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
+              <xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
       </xs:choice>
     </xs:complexType>
     <xs:unique name="Constraint1" msdata:PrimaryKey="true">

app/RecordOrganizer_RightManager/MyDataset.xss

@@ -4,9 +4,10 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-10" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="1" X="769" Y="276" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="2" X="222" Y="98" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:TBAD_Users" ZOrder="1" X="43" Y="108" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
   </Shapes>
   <Connectors />
 </DiagramLayout>

app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj

@@ -89,6 +89,13 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="ClassDatabase.vb" />
+    <Compile Include="frmUsersReworkRights.Designer.vb">
+      <DependentUpon>frmUsersReworkRights.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmUsersReworkRights.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmSupervisorEntity.Designer.vb">
       <DependentUpon>frmSupervisorEntity.vb</DependentUpon>
     </Compile>
@@ -137,6 +144,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmUsersReworkRights.resx">
+      <DependentUpon>frmUsersReworkRights.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmSupervisorEntity.resx">
       <DependentUpon>frmSupervisorEntity.vb</DependentUpon>
     </EmbeddedResource>

app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb

@@ -44,6 +44,8 @@ Public Class frmCheckRightsEntity
                     Exit Sub
                 Else
                     clsLogger.Add(String.Format(">> {0} files must be transferred!", DT_FILES.Rows.Count), False)
+                    Dim del = "DELETE FROM TBPMO_USER_RIGHTS_JOBS WHERE ENTITY_ID = " & ENTITY_ID
+                    clsDatabase.Execute_non_Query(del)
                 End If
                 btncancel.Visible = True
                 lblstate.Visible = True
@@ -103,6 +105,7 @@ Public Class frmCheckRightsEntity
             End If
         Next
         DD_Rights.ClassRights.Finalize_SettingRights()
+       
     End Sub
 
     Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click

app/RecordOrganizer_RightManager/frmStart.Designer.vb

@@ -48,6 +48,7 @@ Partial Class frmStart
         Me.Label1 = New System.Windows.Forms.Label()
         Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter = New RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter()
         Me.TableAdapterManager = New RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager()
+        Me.btnCheckRenewUserRights = New System.Windows.Forms.Button()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
         Me.XtraTabPage1.SuspendLayout()
@@ -73,7 +74,7 @@ Partial Class frmStart
         '
         Me.btnWorkUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnWorkUserRights.ForeColor = System.Drawing.Color.DarkRed
-        Me.btnWorkUserRights.Location = New System.Drawing.Point(3, 65)
+        Me.btnWorkUserRights.Location = New System.Drawing.Point(3, 114)
         Me.btnWorkUserRights.Name = "btnWorkUserRights"
         Me.btnWorkUserRights.Size = New System.Drawing.Size(312, 45)
         Me.btnWorkUserRights.TabIndex = 2
@@ -84,7 +85,7 @@ Partial Class frmStart
         '
         Me.btnWorkUserRightsSV_ADD.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnWorkUserRightsSV_ADD.ForeColor = System.Drawing.Color.DarkRed
-        Me.btnWorkUserRightsSV_ADD.Location = New System.Drawing.Point(3, 116)
+        Me.btnWorkUserRightsSV_ADD.Location = New System.Drawing.Point(0, 164)
         Me.btnWorkUserRightsSV_ADD.Name = "btnWorkUserRightsSV_ADD"
         Me.btnWorkUserRightsSV_ADD.Size = New System.Drawing.Size(312, 45)
         Me.btnWorkUserRightsSV_ADD.TabIndex = 3
@@ -110,19 +111,20 @@ Partial Class frmStart
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(827, 332)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(827, 247)
         Me.XtraTabControl1.TabIndex = 4
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
         '
         'XtraTabPage1
         '
+        Me.XtraTabPage1.Controls.Add(Me.btnCheckRenewUserRights)
         Me.XtraTabPage1.Controls.Add(Me.GroupBox1)
         Me.XtraTabPage1.Controls.Add(Me.Button1)
         Me.XtraTabPage1.Controls.Add(Me.Button2)
         Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRightsSV_ADD)
         Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRights)
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(825, 307)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(825, 222)
         Me.XtraTabPage1.Text = "Jobs and Tools"
         '
         'GroupBox1
@@ -153,7 +155,7 @@ Partial Class frmStart
         Me.XtraTabPage2.Controls.Add(Me.GridControl1)
         Me.XtraTabPage2.Controls.Add(Me.Label1)
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(821, 304)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(825, 307)
         Me.XtraTabPage2.Text = "Rights 2b worked"
         '
         'btnrefreshJobs
@@ -301,11 +303,21 @@ Partial Class frmStart
         Me.TableAdapterManager.Connection = Nothing
         Me.TableAdapterManager.UpdateOrder = RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
+        'btnCheckRenewUserRights
+        '
+        Me.btnCheckRenewUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnCheckRenewUserRights.Location = New System.Drawing.Point(3, 63)
+        Me.btnCheckRenewUserRights.Name = "btnCheckRenewUserRights"
+        Me.btnCheckRenewUserRights.Size = New System.Drawing.Size(312, 45)
+        Me.btnCheckRenewUserRights.TabIndex = 7
+        Me.btnCheckRenewUserRights.Text = "Check or Renew Rights for Users"
+        Me.btnCheckRenewUserRights.UseVisualStyleBackColor = True
+        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(827, 332)
+        Me.ClientSize = New System.Drawing.Size(827, 247)
         Me.Controls.Add(Me.XtraTabControl1)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -351,5 +363,6 @@ Partial Class frmStart
     Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents chkLogerrorsonly As System.Windows.Forms.CheckBox
     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents btnCheckRenewUserRights As System.Windows.Forms.Button
 
 End Class

app/RecordOrganizer_RightManager/frmStart.vb

@@ -8,6 +8,12 @@ Public Class frmStart
                 MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
                 Me.Close()
             End If
+            ClassDatabase.ConnectionStringRM = My.Settings.MyConnectionString
+            If ClassDatabase.Init = False Then
+                MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
+                Me.Close()
+            End If
+
             chkLogerrorsonly.Checked = CBool(clsDatabase.Execute_Scalar("SELECT LOG_ERR_ONLY FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1"))
             Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
             clsLogger.Add(">> Login at: " & Now.ToString, False)
@@ -150,4 +156,8 @@ Public Class frmStart
     Private Sub chklogerrors_CheckedChanged(sender As Object, e As EventArgs)
 
     End Sub
+
+    Private Sub btnCheckRenewUserRights_Click(sender As Object, e As EventArgs) Handles btnCheckRenewUserRights.Click
+        frmUsersReworkRights.ShowDialog()
+    End Sub
 End Class

app/RecordOrganizer_RightManager/frmUsersReworkRights.Designer.vb

@@ -0,0 +1,223 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmUsersReworkRights
+    Inherits System.Windows.Forms.Form
+
+    '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.Label1 = New System.Windows.Forms.Label()
+        Me.BW_RightsEntity = New System.ComponentModel.BackgroundWorker()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.btncancel = New System.Windows.Forms.Button()
+        Me.btnCheckRights = New System.Windows.Forms.Button()
+        Me.lblstate = New System.Windows.Forms.Label()
+        Me.MyDataset = New RecordOrganizer_RightManager.MyDataset()
+        Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource()
+        Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colID = New DevExpress.XtraGrid.Columns.GridColumn()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(25, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(327, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Please choose the user which You would like to rework:"
+        '
+        'BW_RightsEntity
+        '
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(28, 287)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(463, 31)
+        Me.ProgressBar1.TabIndex = 3
+        Me.ProgressBar1.Visible = False
+        '
+        'btncancel
+        '
+        Me.btncancel.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.cancel1
+        Me.btncancel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btncancel.Location = New System.Drawing.Point(426, 229)
+        Me.btncancel.Name = "btncancel"
+        Me.btncancel.Size = New System.Drawing.Size(76, 39)
+        Me.btncancel.TabIndex = 4
+        Me.btncancel.Text = "Cancel"
+        Me.btncancel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btncancel.UseVisualStyleBackColor = True
+        Me.btncancel.Visible = False
+        '
+        'btnCheckRights
+        '
+        Me.btnCheckRights.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources._112_RightArrowShort_Blue_24x24_72
+        Me.btnCheckRights.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCheckRights.Location = New System.Drawing.Point(28, 229)
+        Me.btnCheckRights.Name = "btnCheckRights"
+        Me.btnCheckRights.Size = New System.Drawing.Size(392, 39)
+        Me.btnCheckRights.TabIndex = 2
+        Me.btnCheckRights.Text = "Check rights for all documents related to the selected user(s)"
+        Me.btnCheckRights.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCheckRights.UseVisualStyleBackColor = True
+        '
+        'lblstate
+        '
+        Me.lblstate.AutoSize = True
+        Me.lblstate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblstate.Location = New System.Drawing.Point(25, 271)
+        Me.lblstate.Name = "lblstate"
+        Me.lblstate.Size = New System.Drawing.Size(38, 13)
+        Me.lblstate.TabIndex = 7
+        Me.lblstate.Text = "Label2"
+        '
+        'MyDataset
+        '
+        Me.MyDataset.DataSetName = "MyDataset"
+        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TBAD_UsersBindingSource
+        '
+        Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
+        Me.TBAD_UsersBindingSource.DataSource = Me.MyDataset
+        '
+        'GridControlUsers2Menue
+        '
+        Me.GridControlUsers2Menue.DataSource = Me.TBAD_UsersBindingSource
+        Me.GridControlUsers2Menue.Location = New System.Drawing.Point(28, 28)
+        Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue
+        Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue"
+        Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True
+        Me.GridControlUsers2Menue.Size = New System.Drawing.Size(474, 195)
+        Me.GridControlUsers2Menue.TabIndex = 89
+        Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue})
+        '
+        'GridViewlUsers2Menue
+        '
+        Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan
+        Me.GridViewlUsers2Menue.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
+        Me.GridViewlUsers2Menue.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridViewlUsers2Menue.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn1, Me.GridColumn2, Me.colID})
+        Me.GridViewlUsers2Menue.GridControl = Me.GridControlUsers2Menue
+        Me.GridViewlUsers2Menue.Name = "GridViewlUsers2Menue"
+        Me.GridViewlUsers2Menue.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewlUsers2Menue.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewlUsers2Menue.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewlUsers2Menue.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewlUsers2Menue.OptionsView.ColumnAutoWidth = False
+        Me.GridViewlUsers2Menue.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewlUsers2Menue.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewlUsers2Menue.OptionsView.ShowGroupPanel = False
+        '
+        'colSelect
+        '
+        Me.colSelect.Caption = "Selection"
+        Me.colSelect.FieldName = "Select"
+        Me.colSelect.Name = "colSelect"
+        Me.colSelect.Visible = True
+        Me.colSelect.VisibleIndex = 0
+        Me.colSelect.Width = 54
+        '
+        'colSurname
+        '
+        Me.colSurname.Caption = "Name"
+        Me.colSurname.FieldName = "Surname"
+        Me.colSurname.Name = "colSurname"
+        Me.colSurname.Visible = True
+        Me.colSurname.VisibleIndex = 1
+        '
+        'GridColumn1
+        '
+        Me.GridColumn1.FieldName = "Username"
+        Me.GridColumn1.Name = "GridColumn1"
+        Me.GridColumn1.OptionsColumn.AllowEdit = False
+        Me.GridColumn1.Visible = True
+        Me.GridColumn1.VisibleIndex = 2
+        Me.GridColumn1.Width = 107
+        '
+        'GridColumn2
+        '
+        Me.GridColumn2.FieldName = "Email"
+        Me.GridColumn2.Name = "GridColumn2"
+        Me.GridColumn2.OptionsColumn.AllowEdit = False
+        Me.GridColumn2.Visible = True
+        Me.GridColumn2.VisibleIndex = 3
+        Me.GridColumn2.Width = 102
+        '
+        'colID
+        '
+        Me.colID.FieldName = "ID"
+        Me.colID.Name = "colID"
+        '
+        'frmUsersReworkRights
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(528, 324)
+        Me.Controls.Add(Me.GridControlUsers2Menue)
+        Me.Controls.Add(Me.lblstate)
+        Me.Controls.Add(Me.btncancel)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.btnCheckRights)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmUsersReworkRights"
+        Me.ShowInTaskbar = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Rework Rights for User"
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents btnCheckRights As System.Windows.Forms.Button
+    Friend WithEvents BW_RightsEntity As System.ComponentModel.BackgroundWorker
+    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+    Friend WithEvents btncancel As System.Windows.Forms.Button
+    Friend WithEvents lblstate As System.Windows.Forms.Label
+    Friend WithEvents MyDataset As RecordOrganizer_RightManager.MyDataset
+    Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents GridControlUsers2Menue As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewlUsers2Menue As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn
+End Class

app/RecordOrganizer_RightManager/frmUsersReworkRights.resx

@@ -0,0 +1,129 @@
+<?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>
+  <metadata name="BW_RightsEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>157, 17</value>
+  </metadata>
+  <metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>267, 17</value>
+  </metadata>
+</root>

app/RecordOrganizer_RightManager/frmUsersReworkRights.vb

@@ -0,0 +1,123 @@
+Imports DD_Rights
+Imports System.ComponentModel
+
+Public Class frmUsersReworkRights
+    Private _error As Boolean = False
+    Private Sub frmCheckRightsEntity_Load(sender As Object, e As EventArgs) Handles Me.Load
+        lblstate.Visible = False
+        Refresh_Users()
+    End Sub
+    Sub Refresh_Users()
+        Try
+            Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 ORDER By USERNAME")
+            Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
+            Try
+                MyDataset.TBAD_Users.Clear()
+
+                For Each row As DataRow In DT_USER.Rows
+                    Dim newUserRow As MyDataset.TBAD_UsersRow
+                    newUserRow = MyDataset.TBAD_Users.NewTBAD_UsersRow
+                    newUserRow.Username = row.Item("USERNAME")
+                    newUserRow.Surname = row.Item("NAME")
+                    newUserRow.Prename = row.Item("PRENAME")
+                    Try
+                        newUserRow.Email = row.Item("EMAIL")
+                    Catch ex As Exception
+                        newUserRow.Email = ""
+                    End Try
+
+                    newUserRow.ID = row.Item("GUID")
+                    MyDataset.TBAD_Users.Rows.Add(newUserRow)
+                    ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
+                Next
+            Catch ex As Exception
+                MsgBox("Error Load_Users for menues:" & vbNewLine & ex.Message)
+            End Try
+        Catch ex As Exception
+            MsgBox("Unexpected error in load Users List: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btnCheckRights_Click(sender As Object, e As EventArgs) Handles btnCheckRights.Click
+        Dim Count As Integer
+        For Each row As DataRow In MyDataset.TBAD_Users.Rows
+            If row.Item(0) = CBool(True) Then
+                Count += 1
+            End If
+        Next
+
+        If Count > 0 Then
+            Try
+                Me.Cursor = Cursors.WaitCursor
+                
+
+               
+                ''BackgroundWorker erstellen ...
+                BW_RightsEntity = New BackgroundWorker
+                BW_RightsEntity.WorkerReportsProgress = True
+                ProgressBar1.Maximum = Count + 1
+                lblstate.Visible = True
+                lblstate.Text = "Background Worker started...."
+                Me.ProgressBar1.Visible = True
+                btnCheckRights.Enabled = False
+                btncancel.Visible = True
+                AddHandler BW_RightsEntity.DoWork, AddressOf bw_DoWork
+                BW_RightsEntity.ReportProgress(1)
+                '.. und starten
+                BW_RightsEntity.RunWorkerAsync()
+            Catch ex As Exception
+                MsgBox("Unexpected error in starting backgroundworker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                Me.ProgressBar1.Visible = False
+            End Try
+        End If
+        Me.Cursor = Cursors.Default
+
+    End Sub
+
+    Private Sub BW_RightsEntity_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BW_RightsEntity.ProgressChanged
+        Me.ProgressBar1.Value = e.ProgressPercentage
+    End Sub
+    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
+        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
+        _error = False
+        Dim i As Integer = 1
+        For Each row As DataRow In MyDataset.TBAD_Users.Rows
+            If row.Item(0) = CBool(True) Then
+                Dim proc = String.Format("EXEC PRPMO_RIGHTS_SERVICE_CHECK_USER {0}, '{1}'", row.Item(5), Environment.UserName)
+                If ClassDatabase.Execute_non_Query(proc) = False Then
+                    MsgBox("Unexpected Error in Executing rightprocedure - Check the log!", MsgBoxStyle.Critical)
+                    _error = True
+                    BW_RightsEntity.ReportProgress(+1)
+                    Exit For
+                Else
+                    Dim del = String.Format("DELETE FROM TBPMO_USER_RIGHTS_JOBS WHERE USER_ID = {0}", row.Item(5))
+                    ClassDatabase.Execute_non_Query(del)
+                End If
+            End If
+            BW_RightsEntity.ReportProgress(+1)
+        Next
+    End Sub
+
+    Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+        ' Cancel the asynchronous operation.
+        Me.BW_RightsEntity.CancelAsync()
+    End Sub
+
+    Private Sub BW_RightsEntity_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BW_RightsEntity.RunWorkerCompleted
+        Try
+            btncancel.Visible = False
+            ProgressBar1.Visible = False
+            lblstate.Visible = False
+            If _error = False Then
+                MsgBox("All rights of files belonging to User were checked and transmitted to the server!" & vbNewLine & "The setting of the rights might take up to 10 minutes!", MsgBoxStyle.Information)
+            Else
+                MsgBox("Some errors occured while checking and transmitting the rights...please check the log!", MsgBoxStyle.Exclamation)
+            End If
+            btnCheckRights.Enabled = True
+            btncancel.Visible = False
+        Catch ex As Exception
+            btnCheckRights.Enabled = True
+            btncancel.Visible = False
+        End Try
+    End Sub
+End Class