MS23032016

app/DD-Record-Organiser/frmUserKonfig.vb

@@ -487,4 +487,21 @@
             chklbxUsersforClient.SelectedIndex = -1
         End If
     End Sub
+
+    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
+        Dim msg = "Sind Sie sicher, dass Sie diesen User löschen wollen?"
+        If USER_LANGUAGE <> "de-DE" Then
+            msg = "Are You sure You want to delete the selected user?"
+        End If
+        Dim result As MsgBoxResult
+        result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        If result = MsgBoxResult.Yes Then
+            Dim del = "EXEC [dbo].[PRPMO_DELETE_USER] " & USER_GUIDTextBox.Text
+            If ClassDatabase.Execute_non_Query(del, True) = True Then
+                Load_User()
+            End If
+        End If
+
+      
+    End Sub
 End Class