WIP

2019-08-02 16:27:35 +02:00
parent 28d5e590b4
commit 926801f7ba
29 changed files with 6191 additions and 2821 deletions
--- a/app/DD_Clipboard_Searcher/frmAdministration.vb
+++ b/app/DD_Clipboard_Searcher/frmAdministration.vb
@@ -14,22 +14,13 @@ Public Class frmAdministration
    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Load_Profiles()
        Load_ProfileTypes()
-
-        lbllicenseCount.Text = LICENSE_COUNT
-        If LICENSE_DATE.ToString.Contains("2099") Then
-            lblLicenseDate.Text = "Unlimited"
-        Else
-            lblLicenseDate.Text = LICENSE_DATE
-        End If
-
+        Load_Connections()
    End Sub

    Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Save_Profile()
-        clsHotkey.Refresh_Profile_Links()
-
-        Me.TableAdapterManager.UpdateAll(Me.MyDataset)
-
+        ClassInit.Refresh_Profile_Links()
+        TableAdapterManager.UpdateAll(MyDataset)
    End Sub
    Sub Load_Profiles()
        Try
@@ -56,44 +47,46 @@ Public Class frmAdministration
        Next
    End Sub

+    Public Sub Load_Connections()
+        Try
+            TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBDD_CONNECTIONTableAdapter.Fill(MyDataset.TBDD_CONNECTION)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Load Connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
    Sub Save_Profile()
        Try
            Me.TBCW_PROFILESBindingSource.EndEdit()
            If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then
-                Me.CHANGED_WHOTextBox.Text = Environment.UserName
+                Me.CHANGEDWHOTextBox.Text = Environment.UserName
                Me.TBCW_PROFILESBindingSource.EndEdit()
                Me.TBCW_PROFILESTableAdapter.Update(MyDataset.TBCW_PROFILES)
-                Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow)
+                Status_Changed("Profil gespeichert")
            Else
-                Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent)
+                Status_Changed("Keine Änderung")
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

-    Sub Status_Changed(text As String, col As System.Drawing.Color)
-        statuslabel.Text = text
-        statuslabel.BackColor = col
+    Sub Status_Changed(text As String)
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        labelStatus.Caption = $"{text} - {Now.ToShortTimeString}"
    End Sub

    Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew
        MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
        MyDataset.TBCW_PROFILES.PROFILE_TYPEColumn.DefaultValue = 0
+        MyDataset.TBCW_PROFILES.WD_SEARCHColumn.DefaultValue = String.Empty
+        MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+"
+        MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = False

        XtraTabControl3.SelectedTabPage = TabPageGeneralSettings
    End Sub

-    Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
-        If Not Me.WD_SEARCHTextBox.Text = "" Then
-            Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
-        End If
-
-        If Me.OFDWindreamsuche.ShowDialog = System.Windows.Forms.DialogResult.OK Then
-            Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
-        End If
-    End Sub
-
    Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged

        If GUIDTextBox.Text <> "" Then
@@ -102,11 +95,6 @@ Public Class frmAdministration
            Refresh_Free_Groups(GUIDTextBox.Text)

            Load_Profile_Process()
-            TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
-            TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
-
-            TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
-            TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
        End If

    End Sub
@@ -117,10 +105,15 @@ Public Class frmAdministration

            VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
            VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, GUIDTextBox.Text)
+
+            TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
+
+            TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
        Catch ex As Exception
            MsgBox("Unexpected Error in Refresh Profile User: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
-
    End Sub

    Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs)
@@ -231,15 +224,6 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub WD_SEARCHTextBox_MouseHover(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.MouseHover
-        ToolTip1.SetToolTip(WD_SEARCHTextBox, "Replace patterns for string fields: " & vbNewLine & "@Clipboard" & vbNewLine & "@CLIPBOARD" & vbNewLine & "@Zwischenablage" &
-                            vbNewLine & "Replace patterns for integer fields: " & vbNewLine & "123456789" & vbNewLine & "4711")
-        ToolTip1.ToolTipTitle = "Replace patterns:"
-        ToolTip1.IsBalloon = True
-        ToolTip1.ToolTipIcon = ToolTipIcon.Info
-        ToolTip1.UseAnimation = True
-    End Sub
-
    Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If GUIDTextBox.Text = "" Then
            Refresh_Free_Users(0)
@@ -251,9 +235,17 @@ Public Class frmAdministration
        MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
        MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
        MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
+        MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = False
    End Sub

-    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+    Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
+        MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = False
+        MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
+        MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1
+    End Sub
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs)
        Try
            TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
            If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then
@@ -278,8 +270,8 @@ Public Class frmAdministration

    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
        Save_Profile()
-        clsHotkey.Refresh_Profile_Links()
-        TableAdapterManager.UpdateAll(Me.MyDataset)
+        ClassInit.Refresh_Profile_Links()
+        'TableAdapterManager.UpdateAll(MyDataset)
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
@@ -310,7 +302,7 @@ Public Class frmAdministration
            MsgBox("Error while assigning process!", MsgBoxStyle.Critical, "Clipboard Watcher")
        End If

-        Status_Changed("Prozess gespeichert - " & Now.ToString, Color.Yellow)
+        Status_Changed("Prozess gespeichert")
    End Sub

    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
@@ -322,7 +314,7 @@ Public Class frmAdministration
            MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, "Clipboard Watcher")
        End If

-        Status_Changed("Prozess gelöscht - " & Now.ToString, Color.Yellow)
+        Status_Changed("Prozess gelöscht")
    End Sub

    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
@@ -330,7 +322,7 @@ Public Class frmAdministration
            MsgBox("Error while assigning window!", MsgBoxStyle.Critical, "Clipboard Watcher")
        End If

-        Status_Changed("Fenster gespeichert - " & Now.ToString, Color.Yellow)
+        Status_Changed("Fenster gespeichert")
    End Sub

    Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
@@ -338,59 +330,63 @@ Public Class frmAdministration
            Exit Sub
        End If

-        If CtrlApplicationAssignment1.Process_DeleteAssignment() = False Then
+        If CtrlApplicationAssignment1.Window_DeleteAssignment() = False Then
            MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, "Clipboard Watcher")
        End If

-        Status_Changed("Fenster-Zuordnung gelöscht - " & Now.ToString, Color.Yellow)
-        Status_Changed("Fenster-Zuordnung gelöscht - " & Now.ToString, Color.Yellow)
+        Status_Changed("Fenster-Zuordnung gelöscht")
    End Sub

    Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
        Try
-            Try
-                Dim i As Integer = CInt(GUIDTextBox.Text)
-            Catch ex As Exception
+            If GUIDTextBox.Text = String.Empty Then
                Exit Sub
-            End Try
-            For Each row As DataRow In MyDataset.TBWH_User.Rows
-                If row.Item(0) = CBool(True) Then
-                    Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5))
-                    If clsDatabase.Execute_non_Query(insert) = 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 MyDataset.TBWH_User.Rows
-                row.Item(0) = CBool(False)
-            Next
-            If GUIDTextBox.Text <> "" Then
-                Refresh_Free_Users(GUIDTextBox.Text)
-                Refresh_ProfileData()
            End If

+            Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
+
+            For Each oRowHandle As Integer In oSelectedRows
+                Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
+                Dim oGuid As Integer = oRow.Item("ID")
+                Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, oGuid)
+                If clsDatabase.Execute_non_Query(insert) = False Then
+                    MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            Refresh_Free_Users(GUIDTextBox.Text)
+            Refresh_ProfileData()
+
+            GridViewUserNotInProfile.ClearSelection()
        Catch ex As Exception
+            Logger.Error(ex)
            MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
        Try
-            Dim ID = GridViewUserInProfile.GetFocusedRowCellValue(GridViewUserInProfile.Columns("GUID"))
-            Try
-                Dim I As Integer = CInt(ID)
-            Catch ex As Exception
+            If GUIDTextBox.Text = String.Empty Then
                Exit Sub
-            End Try
-            Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
-            If clsDatabase.Execute_non_Query(del) = True Then
-                Refresh_ProfileData()
-                If GUIDTextBox.Text <> "" Then
-                    Refresh_Free_Users(GUIDTextBox.Text)
-                End If
-
            End If
+
+            Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
+
+            For Each oRowHandle As Integer In oSelectedRows
+                Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
+                Dim oGuid As Integer = oRow.Item("GUID")
+                Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
+                If clsDatabase.Execute_non_Query(del) = False Then
+                    MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            Refresh_Free_Users(GUIDTextBox.Text)
+            Refresh_ProfileData()
+
+            GridViewUserInProfile.ClearSelection()
        Catch ex As Exception
+            Logger.Error(ex)
            MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
@@ -442,6 +438,136 @@ Public Class frmAdministration
    End Sub

    Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
-        'TODO
+        Dim oTabName As String = e.Page.Name
+
+        Select Case oTabName
+            Case TabPageProcessAssignment.Name
+                RibbonGroupProfile.Enabled = False
+                RibbonGroupUser.Enabled = False
+                RibbonGroupProcess.Enabled = True
+                RibbonGroupGroup.Enabled = False
+                RibbonGroupWindow.Enabled = True
+                RibbonGroupDocSearch.Enabled = False
+                RibbonGroupDataSearch.Enabled = False
+
+            Case TabPageUserAssignment.Name
+                RibbonGroupProfile.Enabled = False
+                RibbonGroupUser.Enabled = True
+                RibbonGroupProcess.Enabled = False
+                RibbonGroupGroup.Enabled = False
+                RibbonGroupWindow.Enabled = False
+                RibbonGroupDocSearch.Enabled = False
+                RibbonGroupDataSearch.Enabled = False
+
+            Case TabPageGroupAssignment.Name
+                RibbonGroupProfile.Enabled = False
+                RibbonGroupUser.Enabled = False
+                RibbonGroupProcess.Enabled = False
+                RibbonGroupGroup.Enabled = True
+                RibbonGroupWindow.Enabled = False
+                RibbonGroupDocSearch.Enabled = False
+                RibbonGroupDataSearch.Enabled = False
+
+            Case TabPageData.Name
+                RibbonGroupProfile.Enabled = False
+                RibbonGroupUser.Enabled = False
+                RibbonGroupProcess.Enabled = False
+                RibbonGroupGroup.Enabled = False
+                RibbonGroupWindow.Enabled = False
+                RibbonGroupDocSearch.Enabled = False
+                RibbonGroupDataSearch.Enabled = True
+
+            Case TabPageDocuments.Name
+                RibbonGroupProfile.Enabled = False
+                RibbonGroupUser.Enabled = False
+                RibbonGroupProcess.Enabled = False
+                RibbonGroupGroup.Enabled = False
+                RibbonGroupWindow.Enabled = False
+                RibbonGroupDocSearch.Enabled = True
+                RibbonGroupDataSearch.Enabled = False
+
+            Case Else
+                RibbonGroupProfile.Enabled = True
+                RibbonGroupUser.Enabled = False
+                RibbonGroupProcess.Enabled = False
+                RibbonGroupGroup.Enabled = False
+                RibbonGroupWindow.Enabled = False
+                RibbonGroupDocSearch.Enabled = False
+                RibbonGroupDataSearch.Enabled = False
+        End Select
+    End Sub
+
+    Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
+        Dim oForm As New frmConnection()
+        oForm.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
+        If CtrlApplicationAssignment1.Window_SaveAssignment() = False Then
+            MsgBox("Error while saving window", MsgBoxStyle.Critical, Text)
+        End If
+    End Sub
+
+    Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
+        Dim oform As New frmLicenseInfo()
+        oform.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
+        TBCW_PROF_DOC_SEARCHBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem21_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem21.ItemClick
+        If txtDATAGUID.Text = String.Empty Then
+            Exit Sub
+        End If
+
+        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text)
+        If result = MsgBoxResult.Yes Then
+            TBCW_PROF_DATA_SEARCHTableAdapter.Delete(txtDATAGUID.Text)
+            TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
+        End If
+    End Sub
+
+    Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
+        Try
+            TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
+            If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then
+                CHANGED_WHOTextBox1.Text = Environment.UserName
+                TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
+                TBCW_PROF_DATA_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DATA_SEARCH)
+            End If
+        Catch ex As NoNullAllowedException
+            MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
+        Catch ex As Exception
+            MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
+        TBCW_PROF_DATA_SEARCHBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
+        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text)
+        If result = MsgBoxResult.Yes Then
+            TBCW_PROF_DOC_SEARCHTableAdapter.Delete(txtDOC_GUID.Text)
+            TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
+        End If
+    End Sub
+
+    Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
+        Try
+            TBCW_PROF_DOC_SEARCHBindingSource.EndEdit()
+            If Not IsNothing(MyDataset.TBCW_PROF_DOC_SEARCH.GetChanges) Then
+                CHANGED_WHOTextBox2.Text = Environment.UserName
+                TBCW_PROF_DOC_SEARCHBindingSource.EndEdit()
+                TBCW_PROF_DOC_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DOC_SEARCH)
+            End If
+        Catch ex As NoNullAllowedException
+            MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
+        Catch ex As Exception
+            MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
    End Sub
 End Class