MS12.02.2016

Global_Indexer/frmHotKey_Add.vb

@@ -719,6 +719,7 @@
         GroupBoxMainWindow.Visible = False
         GroupBox2_Controls.Visible = False
         ListBox_FormTitles.Enabled = True
+        btnAddCopypasteConfig.Enabled = True
     End Sub
 
     Private Sub TEXT1TextBox_TextChanged(sender As Object, e As EventArgs) Handles TEXT1TextBox.TextChanged
@@ -746,4 +747,35 @@
     Private Sub chklbUser_MouseLeave(sender As Object, e As EventArgs) Handles chklbUser.MouseLeave
         ToolTipController1.HideHint()
     End Sub
+
+    Private Sub btnAddCopypasteConfig_Click(sender As Object, e As EventArgs) Handles btnAddCopypasteConfig.Click
+        Try
+            lblLinkCopyPaste.Visible = False
+            If txtcopypastePatter.Text = "" Then
+                Exit Sub
+            End If
+            Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
+            Dim kopfid = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            If IsDBNull(kopfid) Then
+                TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName)
+            Else
+                TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopfid)
+            End If
+            lblSaveHotkey.Visible = True
+            sql = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
+            Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            If id > 0 Then
+                TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtcopypastePatter.Text, cmbCopyPasteFunction.Text, Environment.UserName, txtControl.Text)
+                lblLinkCopyPaste.Text = "Pattern-Link " & cmbCopyPasteFunction.Text & " || " & txtcopypastePatter.Text & " erfolgreich angelegt"
+                lblLinkCopyPaste.Visible = True
+                btnAddCopypasteConfig.Enabled = False
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in CopyPaste Add Pattern or Profile:")
+        End Try
+    End Sub
+
+    Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged
+
+    End Sub
 End Class