redesign wip

2020-03-02 13:59:59 +01:00
parent 40e80d0804
commit 5139d51c8d
30 changed files with 8041 additions and 18628 deletions
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -9,16 +9,12 @@ Public Class frmAdministration

    Private IsInsert As Boolean = False
    Dim frmloaded As Boolean = False
-    Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingNavigatorSaveItem.Click
+    Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Save_Dokumentart()
    End Sub

    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_REGEX_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen.
-
-        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_USER_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen.
        Try
-            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
            Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_EINGANGSARTENTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -30,19 +26,22 @@ Public Class frmAdministration
            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.VWGI_DOCTYPE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBGI_REGEX_DOCTYPETableAdapter.Connection.ConnectionString = MyConnectionString
        Catch ex As Exception
            MsgBox("Error in load Connection-Strings - Check Database Connection - Form will be closed: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
            Me.Close()
        End Try

-        XtraTabControl1.SelectedTabPageIndex = 0
-        ToolStripComboBox1.SelectedIndex = 0
+        Dim oDragDropManager As New ClassDragDrop()
+        oDragDropManager.AddGridView(viewAssignedGroups)
+        oDragDropManager.AddGridView(viewAvailableGroups)
+
+        RibbonPageCategoryUserGroups.Visible = False
+        RibbonPageCategoryMisc.Visible = False
+
        Try
+            Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
            Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
            Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
            Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
@@ -51,35 +50,36 @@ Public Class frmAdministration
        End Try
        If GI_withWindream = True Then
            If ClassWindream.Init() = True Then
-
            End If
        End If
    End Sub
    Private Sub ObjektTypenEintragen()
        Try
+            pnlObjekttype_Config.Enabled = False
+
            Dim oDokumentTyp As WINDREAMLib.WMObject
            ' Combobox leeren
            Me.OBJEKTTYPComboBox.Items.Clear()
+            ListBoxControl1.Items.Clear()
            ' alle Objekttypen durchlaufen
            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
                ' und in die Combobox eintragen
                Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
+                ListBoxControl1.Items.Add(oDokumentTyp.aName)
            Next
+
+            pnlObjekttype_Config.Enabled = True
        Catch ex As Exception
            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
        End Try

    End Sub
-    Sub Load_Dokart(Type As String)
+    Sub Load_Dokart()
        Try
-            '* Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
-            If Type = "Global-Indexer Dokarten" Then
-                Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART)
-            Else
-                Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
-            End If
+            Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART)
+
            If MyDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
-                enableControls(XtraTabPage1)
+                enableControls(XtraTabPageProfiles)
            End If
            If Me.DOKART_GUIDTextBox.Text <> "" Then
                Load_TabData()
@@ -101,9 +101,6 @@ Public Class frmAdministration
                Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
            Case 2
                Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
-            Case 3
-                Load_UserGroups()
-                Load_DokartZuordnung(DOKART_GUIDTextBox.Text)
            Case 4
                Try
                    Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME")
@@ -163,7 +160,7 @@ Public Class frmAdministration
                    End If
                End Try
                TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
-                lblSaveDokart.Visible = True
+                txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
                If IsInsert = True Then
                    Dim oNewID As Integer
                    oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)
@@ -173,8 +170,6 @@ Public Class frmAdministration
                    End If

                End If
-            Else
-                lblSaveDokart.Visible = False
            End If
            IsInsert = False
        Catch ex As Exception
@@ -196,16 +191,13 @@ Public Class frmAdministration
    End Sub

    Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged
-        lblSaveDokart.Visible = False
        If DOKART_GUIDTextBox.Text <> String.Empty Then
            CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
            Load_TabData()
+
+            gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(CURRENT_DOKART_ID)
+            gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
        End If
-
-    End Sub
-
-    Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged
-        Load_Dokart(ToolStripComboBox1.Text)
    End Sub

    Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
@@ -238,9 +230,8 @@ Public Class frmAdministration
        End Try

    End Sub
-    Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
-
-        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{DOKART_GUIDTextBox.Text}"
+    Private Sub btnadd_Click(sender As Object, e As EventArgs)
+        Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{DOKART_GUIDTextBox.Text}"
        ClassDatabase.Execute_non_Query(osql)
        LoadGlobix_Doctypes()
    End Sub
@@ -249,8 +240,6 @@ Public Class frmAdministration
        If WINDREAM_DIRECTCheckBox.Checked = True Then
            load_WDIndices()
        End If
-
-
    End Sub
    Sub load_WDIndices()
        Try
@@ -285,7 +274,7 @@ Public Class frmAdministration
    End Sub
    Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If DOKART_GUIDTextBox.Text <> "" Then
-            Load_Dokart("Global-Indexer Dokarten")
+            Load_Dokart()
            'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
            Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
            If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
@@ -296,25 +285,11 @@ Public Class frmAdministration
            Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
        End If
        frmloaded = True
-        tscmbUser.SelectedIndex = 0
        TBDD_INDEX_MANBindingNav.Visible = True
        TBDD_INDEX_MANBindingNav.Visible = True
        WM_CHECKED_CHANGE()
    End Sub

-    Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
-        Try
-            If Not ListBox2.SelectedValue Is Nothing Then
-                Dim cmd As String = "Delete from TBDD_DOKUMENTART_MODULE where GUID = " & ListBox2.SelectedValue
-                ClassDatabase.Execute_non_Query(cmd, True)
-                Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete Zuordnung: ")
-        End Try
-
-    End Sub
-
    Private Sub Load_INDEXMAN(DA_ID As Integer)
        Try
            Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID)
@@ -441,52 +416,45 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub ToolStripButton15_Click(sender As Object, e As EventArgs) Handles ToolStripButton15.Click
-        If tscmbUser.SelectedIndex = 1 Then
-            Refresh_User(True)
-        Else
-            Refresh_User(False)
+    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
+        Dim oSelectedPageName = XtraTabControl1.SelectedTabPage.Name
+
+        If oSelectedPageName = XtraTabPageProfiles.Name Then
+            RibbonControl1.SelectedPage = RibbonPageStart
        End If

-    End Sub
-    Sub Refresh_User(All As Boolean)
-        Try
-            If All = True Then
-                Me.TBDD_USERTableAdapter.FillByAll(Me.MyDataset.TBDD_USER)
-            Else
-                Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER)
-            End If
-            If MyDataset.TBDD_USER.Rows.Count > 0 Then
-                enableControls(XtraTabPage2)
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_User: ")
-        End Try
-    End Sub
+        If oSelectedPageName = XtraTabPageUsersGroups.Name Then
+            RibbonPageCategoryUserGroups.Visible = True
+            RibbonControl1.SelectedPage = RibbonPageUserGroups
+        Else
+            RibbonPageCategoryUserGroups.Visible = False
+        End If
+
+        If oSelectedPageName = XtraTabPageEmail.Name Or oSelectedPageName = XtraTabPageFilenameRegex.Name Then
+            RibbonPageCategoryMisc.Visible = True
+
+            If oSelectedPageName = XtraTabPageEmail.Name Then
+                RibbonControl1.SelectedPage = RibbonPageEmail
+            End If
+
+            If oSelectedPageName = XtraTabPageFilenameRegex.Name Then
+                RibbonControl1.SelectedPage = RibbonPageFilenameRegex
+            End If
+        Else
+            RibbonPageCategoryMisc.Visible = False
+        End If

-    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
        Select Case XtraTabControl1.SelectedTabPageIndex
            Case 0
                If DOKART_GUIDTextBox.Text <> "" Then
                    Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
                End If
-            Case 1
-                If tscmbUser.SelectedIndex = 1 Then
-                    Refresh_User(True)
-                Else
-                    Refresh_User(False)
-                End If
-                If USER_GUIDTextBox.Text <> "" Then
-                    Load_UserRelation(USER_GUIDTextBox.Text)
-                End If
-
-                Load_UserGroups()
            Case 2
                ObjektTypenListBoxEintragen()
            Case 3
                Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
                Dim osql = "SELECT GUID, BEZEICHNUNG FROM TBDD_DOKUMENTART WHERE (GUID IN (SELECT T.DOKART_ID FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN " &
-                    "TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID WHERE (T1.NAME = 'Global-Indexer'))) ORDER BY SEQUENCE, BEZEICHNUNG"
+                "TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID WHERE (T1.NAME = 'Global-Indexer'))) ORDER BY SEQUENCE, BEZEICHNUNG"
                Dim oDT As DataTable = ClassDatabase.Return_Datatable(osql)
                If Not IsNothing(oDT) Then
                    cmbDoctypeRegex.DataSource = oDT
@@ -529,11 +497,11 @@ Public Class frmAdministration
        Try
            Dim oDokumentTyp As WINDREAMLib.WMObject
            ' Combobox leeren
-            Me.ListBoxObjekttypen.Items.Clear()
+            ListBoxControl1.Items.Clear()
            ' alle Objekttypen durchlaufen
            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
                ' und in die Combobox eintragen
-                Me.ListBoxObjekttypen.Items.Add(oDokumentTyp.aName)
+                ListBoxControl1.Items.Add(oDokumentTyp.aName)
            Next
        Catch ex As Exception
            MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -585,17 +553,18 @@ Public Class frmAdministration
    End Sub
    Sub WM_CHECKED_CHANGE()
        If WINDREAM_DIRECTCheckBox.Checked Then
-            OBJEKTTYPComboBox.Visible = True
            lblObjekttyp.Visible = True
-            WD_INDEXComboBox.Visible = True
            lblWDINDEX.Visible = True
+            OBJEKTTYPComboBox.Visible = True
+            WD_INDEXComboBox.Visible = True
+
            If ClassWindream.Init() = True Then
                ObjektTypenEintragen()
            End If
        Else
-            OBJEKTTYPComboBox.Visible = False
            lblObjekttyp.Visible = False
            lblWDINDEX.Visible = False
+            OBJEKTTYPComboBox.Visible = False
            WD_INDEXComboBox.Visible = False
        End If
    End Sub
@@ -612,42 +581,24 @@ Public Class frmAdministration

    End Sub

-    Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxObjekttypen.SelectedIndexChanged
-        If ListBoxObjekttypen.SelectedIndex <> -1 Then
-            pnlObjekttype_Config.Enabled = True
-            LoadIDXEmail(ListBoxObjekttypen.SelectedItem)
-            load_WDIndicesemail(ListBoxObjekttypen.SelectedItem)
-            lblsavezuordnungIndex.Visible = False
+    Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
+        If ListBoxControl1.SelectedIndex <> -1 Then
+            LoadIDXEmail(ListBoxControl1.SelectedItem)
+            load_WDIndicesemail(ListBoxControl1.SelectedItem)
        End If
    End Sub

-    Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs) Handles btnidxemail_add.Click
-        pnlObjekttype_Config.Enabled = True
+    Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs)
        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
    End Sub

    Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew
-        If ListBoxObjekttypen.SelectedIndex <> -1 Then
+        If ListBoxControl1.SelectedIndex <> -1 Then
            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxObjekttypen.SelectedItem
+            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxControl1.SelectedItem
        End If
    End Sub

-    Private Sub btnidxemail_Save_Click(sender As Object, e As EventArgs) Handles btnidxemail_Save.Click
-        Try
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
-            If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox2.Text = Environment.UserName
-                TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
-                TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX)
-                lblsavezuordnungIndex.Visible = True
-            Else
-                lblsavezuordnungIndex.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Save Index-Email:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
    Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
        Load_TabData()
    End Sub
@@ -738,25 +689,6 @@ Public Class frmAdministration
        End Try
    End Sub

-    Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles ToolStripButton23.Click
-        Dim frm As New frmUserKonfig_AddUsers
-        Cursor = Cursors.WaitCursor
-        frm.ShowDialog()
-        If tscmbUser.SelectedIndex = 1 Then
-            Refresh_User(True)
-        Else
-            Refresh_User(False)
-        End If
-        Cursor = Cursors.Default
-    End Sub
-
-    Public Sub New()
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-
-    End Sub
-
    Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
        If TYPEComboBox.SelectedIndex <> -1 Then
            Select Case TYPEComboBox.Text
@@ -879,127 +811,15 @@ Public Class frmAdministration
        Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
    End Sub

-    Private Sub ToolStripButton38_Click(sender As Object, e As EventArgs) Handles ToolStripButton38.Click
-        Save_UserGroups()
-    End Sub
-    Sub Save_UserGroups()
-        Try
-            TBDD_GROUPSBindingSource.EndEdit()
-            If MyDataset.TBDD_GROUPS.GetChanges Is Nothing = False Then
-                Dim changes = MyDataset.TBDD_GROUPS.GetChanges()
-
-                ' If a Group was selected and deleted, delete references in TBDD_USRGRP_DOCTYPE and TBDD_GROUPS_USER
-                If Not IsNothing(GroupToDelete) And MyDataset.TBDD_GROUPS.GetChanges(DataRowState.Deleted) Is Nothing = False Then
-                    ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE GROUP_ID = {GroupToDelete}")
-                    ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_GROUPS_USER WHERE GROUP_ID = {GroupToDelete}")
-                    GroupToDelete = Nothing
-                End If
-
-                CHANGED_WHOTextBox5.Text = Environment.UserName
-                TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
-                Me.TBDD_GROUPSTableAdapter.Update(MyDataset.TBDD_GROUPS)
-                lblsaveTBDD_USER_GROUPS.Visible = True
-            Else
-                lblsaveTBDD_USER_GROUPS.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save User-Groups: ")
-        End Try
-    End Sub
-    Sub Load_UserGroups()
-        Try
-            Me.TBDD_GROUPSTableAdapter.FillNew(Me.MyDataset.TBDD_GROUPS)
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Groups: ")
-        End Try
-    End Sub
-
-    Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
-        Select Case XtraTabControl3.SelectedTabPageIndex
-            Case 0
-                Load_UserRelation(USER_GUIDTextBox.Text)
-            Case 1
-                Load_UserGroups()
-        End Select
-    End Sub
-
-    Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GROUPSBindingSource.AddingNew
-        Me.MyDataset.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
-    End Sub
-
    Private Sub Load_UserRelation(UserID As Integer)
        Try
            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Fill(Me.MyDataset.VWGI_USER_GROUPS_RELATION, UserID)
-            lblnewUserZuordnung.Visible = False
        Catch ex As System.Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Relation: ")
        End Try
    End Sub

-    Private Sub btnAddGroupRelation_Click(sender As Object, e As EventArgs) Handles btnAddGroupRelation.Click
-        If cmbGroup2User.SelectedIndex <> -1 And USER_GUIDTextBox.Text <> "" Then
-            Try
-                TBDD_GROUPS_USERTableAdapter.cmdinsert(USER_GUIDTextBox.Text, cmbGroup2User.SelectedValue, Environment.UserName)
-                Load_UserRelation(USER_GUIDTextBox.Text)
-                lblnewUserZuordnung.Visible = True
-            Catch ex As Exception
-                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add User-Relation: ")
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub btnDeleteGroupRelation_Click(sender As Object, e As EventArgs) Handles btnDeleteGroupRelation.Click
-        If Not ListBoxUserzuordnung.SelectedValue Is Nothing Then
-            TBDD_GROUPS_USERTableAdapter.Delete(ListBoxUserzuordnung.SelectedValue)
-            Load_UserRelation(USER_GUIDTextBox.Text)
-        End If
-    End Sub
-
-    Private Sub TBDD_USERBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.CurrentChanged
-        If USER_GUIDTextBox.Text <> "" Then
-            'Load_ZuordnungDokart_Module(ListBoxDokart.SelectedValue)
-            Load_TabData()
-            Load_UserRelation(USER_GUIDTextBox.Text)
-        End If
-
-    End Sub
-
-    Private Sub Load_DokartZuordnung(DokID As Integer)
-        Try
-            Me.VWGI_DOCTYPE_GROUPTableAdapter.Fill(Me.MyDataset.VWGI_DOCTYPE_GROUP, DokID)
-            lblnewDokartZuordnung.Visible = False
-        Catch ex As System.Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Doctype-Relation: ")
-        End Try
-
-    End Sub
-
-    Private Sub btnAddDokartGroupRelation_Click(sender As Object, e As EventArgs) Handles btnAddDokartGroupRelation.Click
-        If cmbGroup2Dokart.SelectedIndex <> -1 And DOKART_GUIDTextBox.Text <> "" Then
-            Try
-                VWGI_DOCTYPE_GROUPTableAdapter.cmdInsert(DOKART_GUIDTextBox.Text, cmbGroup2Dokart.SelectedValue, Environment.UserName)
-                Load_DokartZuordnung(DOKART_GUIDTextBox.Text)
-                lblnewDokartZuordnung.Visible = True
-            Catch ex As Exception
-                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Doctype-Relation: ")
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
-        If Not ListBoxDokartzuordnung.SelectedValue Is Nothing Then
-            VWGI_DOCTYPE_GROUPTableAdapter.cmdDelete(ListBoxDokartzuordnung.SelectedValue)
-            Load_DokartZuordnung(DOKART_GUIDTextBox.Text)
-        End If
-    End Sub
-
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        frmSQL_Admin.ShowDialog()
-    End Sub
-
-    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
+    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
        Dim result As MsgBoxResult

        If USER_LANGUAGE = "de-DE" Then
@@ -1013,11 +833,7 @@ Public Class frmAdministration
                Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
                If ClassDatabase.Execute_non_Query(del, True) = True Then
                    Dim str = "Global-Indexer Dokarten"
-                    If ToolStripComboBox1.Text <> "" Then
-                        str = ToolStripComboBox1.Text
-                    End If
-                    Load_Dokart(str)
-
+                    Load_Dokart()

                    If USER_LANGUAGE = "de-DE" Then
                        MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@@ -1032,50 +848,12 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub ToolStripButton40_Click(sender As Object, e As EventArgs) Handles ToolStripButton40.Click
+    Private Sub ToolStripButton40_Click(sender As Object, e As EventArgs)
        LoadGlobix_Doctypes()
    End Sub
    Sub LoadGlobix_Doctypes()
        Dim str = "Global-Indexer Dokarten"
-        If ToolStripComboBox1.Text <> "" Then
-            str = ToolStripComboBox1.Text
-        End If
-        Load_Dokart(str)
-    End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        frmLicense.ShowDialog()
-    End Sub
-
-    Private Sub tscmbUser_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscmbUser.SelectedIndexChanged
-        If tscmbUser.SelectedIndex = 1 Then
-            Refresh_User(True)
-        Else
-            Refresh_User(False)
-        End If
-    End Sub
-
-    Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click
-        Save_User()
-    End Sub
-    Sub Save_User()
-        Try
-            TBDD_USERBindingSource.EndEdit()
-            If MyDataset.TBDD_USER.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBoxUser.Text = Environment.UserName
-                TBDD_USERBindingSource.EndEdit()
-                Me.TBDD_USERTableAdapter.Update(MyDataset.TBDD_USER)
-                lblsaveUSer.Visible = True
-            Else
-                lblsaveUSer.Visible = False
-            End If
-            If ClassDatabase.Execute_Scalar("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = " & USER_GUIDTextBox.Text, MyConnectionString) = 0 Then
-                Dim sql As String = "UPDATE TBDD_USER SET MODULE_GI = 1 where GUID = " & USER_GUIDTextBox.Text
-                ClassDatabase.Execute_non_Query(sql)
-
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save User: ")
-        End Try
+        Load_Dokart()
    End Sub

    Private Sub btncrFolder_delete_Click(sender As Object, e As EventArgs) Handles btncrFolder_delete.Click
@@ -1099,7 +877,7 @@ Public Class frmAdministration
            txtcrFoldermanuell.Text = ""
        End If
        Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
-        Me.lblSaveDokart.Visible = True
+        txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
    End Sub
    Private Sub cmbCrFolderIndex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderIndex.SelectedIndexChanged
        cmbCrFolderDate.SelectedIndex = -1
@@ -1116,7 +894,7 @@ Public Class frmAdministration
        cmbCrFolderIndex.SelectedIndex = -1
    End Sub

-    Private Sub tsbtnCopyDoctype_Click(sender As Object, e As EventArgs) Handles tsbtnCopyDoctype.Click
+    Private Sub tsbtnCopyDoctype_Click(sender As Object, e As EventArgs)
        Dim result As MsgBoxResult

        If USER_LANGUAGE = "de-DE" Then
@@ -1136,11 +914,7 @@ Public Class frmAdministration
                        MsgBox("Documenttype was copied successfully and set to INACTIVE." & vbNewLine & "Please note:" & vbNewLine & "- Documenttype was not assigned to a usergroup", MsgBoxStyle.Information)
                    End If

-                    Dim str = "Global-Indexer Dokarten"
-                    If ToolStripComboBox1.Text <> "" Then
-                        str = ToolStripComboBox1.Text
-                    End If
-                    Load_Dokart(str)
+                    Load_Dokart()
                End If
            Catch ex As Exception
                MsgBox("Error in Copy Doctype:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -1158,7 +932,7 @@ Public Class frmAdministration
    End Sub
    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
        MyDataset.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
-        enableControls(XtraTabPage2)
+        enableControls(XtraTabPageUsersGroups)
    End Sub

    Private Sub btnAddWindowsVariable_Click(sender As Object, e As EventArgs) Handles btnAddWindowsVariable.Click
@@ -1238,47 +1012,10 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
-        Dim result As MsgBoxResult
-
-        If USER_LANGUAGE = "de-DE" Then
-            result = MessageBox.Show("Sind Sie sicher dass Sie diesen User löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        Else
-            result = MessageBox.Show("Are you sure you want to delete this user?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        End If
-
-        If result = MsgBoxResult.Yes Then
-            Try
-                Dim del As String = " EXEC PRDD_GLOBIX_DELETE_USER " & USER_GUIDTextBox.Text
-                If ClassDatabase.Execute_non_Query(del, True) = True Then
-                    If tscmbUser.SelectedIndex = 1 Then
-                        Refresh_User(True)
-
-                    Else
-                        Refresh_User(False)
-                    End If
-                End If
-            Catch ex As Exception
-                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete User: ")
-            End Try
-        End If
-    End Sub
-
    Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs) Handles tsbtnRefreshAutomatic.Click
        Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
    End Sub

-    Private Sub ToolStripButton33_Click(sender As Object, e As EventArgs) Handles ToolStripButton33.Click
-        Dim list As ListBox = ListBox4
-
-        If Not IsNothing(list.SelectedItem) Then
-            Dim item As DataRowView = list.SelectedItem
-            GroupToDelete = Integer.Parse(item.Row.Item("GUID"))
-        Else
-            GroupToDelete = Nothing
-        End If
-    End Sub
-
    Private _indexIsVectorField As Boolean = False

    Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
@@ -1307,11 +1044,11 @@ Public Class frmAdministration
        End Try
    End Function

-    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
+    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)

    End Sub

-    Private Sub ToolStripButton42_Click(sender As Object, e As EventArgs) Handles ToolStripButton42.Click
+    Private Sub ToolStripButton42_Click(sender As Object, e As EventArgs)
        Try
            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
        Catch ex As Exception
@@ -1334,7 +1071,7 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub BindingNavigatorAddNewItem1_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem1.Click
+    Private Sub BindingNavigatorAddNewItem1_Click(sender As Object, e As EventArgs)
        Me.TBGI_REGEX_DOCTYPEBindingSource.AddNew()
    End Sub

@@ -1343,7 +1080,7 @@ Public Class frmAdministration
        MyDataset.TBGI_REGEX_DOCTYPE.REGEXColumn.DefaultValue = txtFilenameTest.Text
    End Sub

-    Private Sub XtraTabPage1_Paint(sender As Object, e As PaintEventArgs) Handles XtraTabPage1.Paint
+    Private Sub XtraTabPage1_Paint(sender As Object, e As PaintEventArgs) Handles XtraTabPageProfiles.Paint

    End Sub

@@ -1361,7 +1098,165 @@ Public Class frmAdministration
        End Try
    End Sub

-    Private Sub BindingNavigatorDeleteItem1_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem1.Click
+    Private Sub BindingNavigatorDeleteItem1_Click(sender As Object, e As EventArgs)
+
+
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        frmSQL_Admin.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        frmLicense.ShowDialog()
+    End Sub
+
+    Private Sub gridAssignedGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedGroups.DragDrop
+        Try
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim groupId As Integer = data.Split("|")(0)
+
+            Dim profileId As Integer = DOKART_GUIDTextBox.Text
+
+            ClassDatatables.AddGroupToProfile(groupId, profileId)
+            gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(profileId)
+            gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(profileId)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+        End Try
+    End Sub
+
+    Private Sub gridAvailableGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableGroups.DragDrop
+        Try
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim groupId As Integer = data.Split("|")(0)
+            Dim profileId As Integer = DOKART_GUIDTextBox.Text
+
+            ClassDatatables.RemoveGroupFromProfile(groupId, profileId)
+            gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(profileId)
+            gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(profileId)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Dim result As MsgBoxResult
+
+        If USER_LANGUAGE = "de-DE" Then
+            result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Else
+            result = MessageBox.Show("Are you sure you want to delete this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        End If
+
+        If result = MsgBoxResult.Yes Then
+            Try
+                Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
+                If ClassDatabase.Execute_non_Query(del, True) = True Then
+                    Load_Dokart()
+
+
+                    If USER_LANGUAGE = "de-DE" Then
+                        MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
+                    Else
+                        MsgBox("Documenttype successfully deleted!", MsgBoxStyle.Information)
+                    End If
+
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
+            End Try
+        End If
+    End Sub
+
+    Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
+        Dim result As MsgBoxResult
+
+        If USER_LANGUAGE = "de-DE" Then
+            result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Else
+            result = MessageBox.Show("Are you sure you want to copy this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        End If
+
+        If result = MsgBoxResult.Yes Then
+            Try
+                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
+                If ClassDatabase.Execute_non_Query(copy, True) Then
+
+                    If USER_LANGUAGE = "de-DE" Then
+                        MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
+                    Else
+                        MsgBox("Documenttype was copied successfully and set to INACTIVE." & vbNewLine & "Please note:" & vbNewLine & "- Documenttype was not assigned to a usergroup", MsgBoxStyle.Information)
+                    End If
+
+                    Load_Dokart()
+                End If
+            Catch ex As Exception
+                MsgBox("Error in Copy Doctype:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        End If
+    End Sub
+
+    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
+        LoadGlobix_Doctypes()
+    End Sub
+
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+        Save_Dokumentart()
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        TBDD_DOKUMENTARTBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
+
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
+        Try
+            Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
+            If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then
+                CHANGED_WHOTextBox2.Text = Environment.UserName
+                TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
+                TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX)
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Save Index-Email:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
+        MsgBox("TODO: Implement", MsgBoxStyle.OkCancel Or MsgBoxStyle.Exclamation)
+    End Sub
+
+    Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
+        Try
+            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+        Catch ex As Exception
+
+            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            Exit Sub
+        End Try
+
+        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
+            Me.CHANGED_WHOTextBox1.Text = Environment.UserName
+            Try
+                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+            Catch ex As Exception
+
+                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+
+            End Try
+            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
+
+        End If
+    End Sub
+
+    Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
        Try
            Dim oSQL = $"DELETE FROM TBGI_REGEX_DOCTYPE WHERE GUID = {GUIDTextBox.Text}"
            If ClassDatabase.Execute_non_Query(oSQL, True) = True Then
@@ -1370,6 +1265,9 @@ Public Class frmAdministration
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Deleting Regex:")
        End Try
+    End Sub

+    Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
+        TBGI_REGEX_DOCTYPEBindingSource.AddNew()
    End Sub
 End Class