MS2501

2017-01-25 10:16:40 +01:00
parent 042f24e231
commit 64c99f80b9
43 changed files with 5067 additions and 2448 deletions
--- a/Global_Indexer/frmHotKey_Add.vb
+++ b/Global_Indexer/frmHotKey_Add.vb
@@ -238,11 +238,6 @@
            Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName
        End If
    End Sub
-
-    Private Sub txtKey_KeyUp(sender As Object, e As KeyEventArgs) Handles txtKey.KeyUp
-        Console.WriteLine(e.KeyCode)
-    End Sub
-
    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
        Select Case TabControlMain.SelectedIndex

@@ -290,23 +285,29 @@
    End Sub

    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
-        If ListBox_Profiles.SelectedIndex <> -1 Then
+        Dim ID
+        Try
+            ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
+        Catch ex As Exception
+            ID = 0
+        End Try
+        If ID > 1 Then
            Dim result As MsgBoxResult
            result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = MsgBoxResult.Yes Then
                Try

-                    Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue
+                    Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ID
                    If ClassDatabase.Execute_non_Query(del, True) = True Then
-                        del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue & ")"
+                        del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID & ")"
                        If ClassDatabase.Execute_non_Query(del, True) = True Then
-                            del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue
+                            del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID
                            If ClassDatabase.Execute_non_Query(del, True) = True Then
-                                del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue
+                                del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ID
                                If ClassDatabase.Execute_non_Query(del, True) = True Then
-                                    del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ListBox_Profiles.SelectedValue
+                                    del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID
                                    If ClassDatabase.Execute_non_Query(del, True) = True Then
-                                        ClassLogger.Add(">> Hotkey-Profil: " & ListBox_Profiles.SelectedValue & " wurde gelöscht!", False)
+                                        ClassLogger.Add(">> Hotkey-Profil: " & ID & " wurde gelöscht!", False)
                                        Load_Profiles()
                                        Load_UserForProfiles()
                                        MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
@@ -326,16 +327,22 @@
        Try
            Dim added As Integer = 0
            Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems
-            If ListBox_Profiles.SelectedIndex <> -1 And items.Count > 0 Then
+            Dim ID
+            Try
+                ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
+            Catch ex As Exception
+                ID = 0
+            End Try
+            If ID > 1 And items.Count > 0 Then
                For Each item In items
                    Dim SQL
                    SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
                    Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)

-                    SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue
+                    SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID
                    Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
                    If exists = 0 Then
-                        TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ListBox_Profiles.SelectedValue)
+                        TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ID)
                        added += 1
                    End If

@@ -359,15 +366,29 @@
    End Sub

    Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click
-        For i = 0 To chklbUser.Items.Count - 1
-            chklbUser.SetItemChecked(i, True)
-        Next
+        If TabControl1.SelectedIndex = 1 Then
+            For i = 0 To chklbUser.Items.Count - 1
+                chklbUser.SetItemChecked(i, True)
+            Next
+        ElseIf TabControl1.SelectedIndex = 2 Then
+            For i = 0 To chklbUserProfile.Items.Count - 1
+                chklbUserProfile.SetItemChecked(i, True)
+            Next
+        End If
+       
    End Sub

    Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click
-        For i = 0 To chklbUser.Items.Count - 1
-            chklbUser.SetItemChecked(i, False)
-        Next
+        If TabControl1.SelectedIndex = 1 Then
+            For i = 0 To chklbUser.Items.Count - 1
+                chklbUser.SetItemChecked(i, False)
+            Next
+        ElseIf TabControl1.SelectedIndex = 2 Then
+            For i = 0 To chklbUserProfile.Items.Count - 1
+                chklbUserProfile.SetItemChecked(i, False)
+            Next
+        End If
+       
    End Sub

    Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
@@ -381,9 +402,15 @@
    End Sub
    Sub Load_UserForProfiles()
        Try
-            If ListBox_Profiles.SelectedIndex <> -1 Then
+            Dim ID
+            Try
+                ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
+            Catch ex As Exception
+                ID = 0
+            End Try
+            If ID > 1 Then
                chklbUserProfile.Items.Clear()
-                Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ListBox_Profiles.SelectedValue
+                Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ID
                Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
                If Not IsNothing(DT) Then
                    For Each dr As DataRow In DT.Rows
@@ -396,9 +423,14 @@
        End Try
    End Sub

-    Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Profiles.SelectedIndexChanged
-
-        If ListBox_Profiles.SelectedIndex <> -1 Then
+    Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ID
+        Try
+            ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
+        Catch ex As Exception
+            ID = 0
+        End Try
+        If ID > 0 Then
            Select Case TabControl1.SelectedIndex
                Case 1
                    'Try
@@ -436,7 +468,13 @@
        Try
            Dim deleted As Integer = 0
            Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems
-            If ListBox_Profiles.SelectedIndex <> -1 And items.Count > 0 Then
+            Dim ID
+            Try
+                ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
+            Catch ex As Exception
+                ID = 0
+            End Try
+            If ID > 1 And items.Count > 0 Then
                For Each item In items
                    Dim SQL
                    SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
@@ -445,10 +483,10 @@
                        MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation)
                        Exit Sub
                    End If
-                    SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue
-                    Dim ID = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-                    If ID > 0 Then
-                        TBHOTKEY_USER_PROFILETableAdapter.Delete(ID)
+                    SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID
+                    Dim ID1 = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
+                    If ID1 > 0 Then
+                        TBHOTKEY_USER_PROFILETableAdapter.Delete(ID1)
                        deleted += 1
                    End If
                Next
@@ -778,4 +816,12 @@
    Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged

    End Sub
+
+    Private Sub chklbUserProfile_MouseEnter(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseEnter
+        ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter)
+    End Sub
+
+    Private Sub chklbUserProfile_MouseLeave(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseLeave
+        ToolTipController1.HideHint()
+    End Sub
 End Class