diff --git a/DDUserManager/DDUserManager/frmMain.Designer.vb b/DDUserManager/DDUserManager/frmMain.Designer.vb
index 4690db5..36bba75 100644
--- a/DDUserManager/DDUserManager/frmMain.Designer.vb
+++ b/DDUserManager/DDUserManager/frmMain.Designer.vb
@@ -181,7 +181,6 @@ Partial Class frmMain
Me.TBDD_USERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
- Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
@@ -190,6 +189,7 @@ Partial Class frmMain
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+ Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
Me.TBDD_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.btnImportUsers = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
@@ -2089,15 +2089,6 @@ Partial Class frmMain
Me.BindingNavigatorCountItem.Text = "von {0} Benutzern"
Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
'
- 'BindingNavigatorDeleteItem
- '
- Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
- Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
- Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
- Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
- Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
- Me.BindingNavigatorDeleteItem.Text = "Löschen"
- '
'BindingNavigatorMoveFirstItem
'
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -2158,6 +2149,15 @@ Partial Class frmMain
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
'
+ 'BindingNavigatorDeleteItem
+ '
+ Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+ Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
+ Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
+ Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
+ Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
+ Me.BindingNavigatorDeleteItem.Text = "Löschen"
+ '
'TBDD_USERBindingNavigatorSaveItem
'
Me.TBDD_USERBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
diff --git a/DDUserManager/DDUserManager/frmMain.resx b/DDUserManager/DDUserManager/frmMain.resx
index 6313187..bda8c14 100644
--- a/DDUserManager/DDUserManager/frmMain.resx
+++ b/DDUserManager/DDUserManager/frmMain.resx
@@ -220,19 +220,19 @@
17, 17
- 642, 95
+ 469, 95
489, 56
- 911, 56
+ 703, 56
- 17, 173
+ 1026, 134
- 1162, 134
+ 906, 134
693, 17
@@ -310,7 +310,7 @@
- 190, 95
+ 17, 95
@@ -403,7 +403,7 @@
- 420, 95
+ 247, 95
@@ -477,7 +477,7 @@
- 1082, 95
+ 909, 95
@@ -535,37 +535,37 @@
256, 56
- 1116, 56
+ 908, 56
- 865, 95
+ 692, 95
- 17, 134
+ 1148, 95
- 273, 134
+ 17, 134
- 524, 134
+ 268, 134
- 641, 134
+ 385, 134
- 910, 134
+ 654, 134
- 237, 173
+ 1246, 134
- 445, 173
+ 17, 173
1152, 17
- 17, 95
+ 1107, 56
198
diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index 92711ec..f64caca 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -1115,7 +1115,8 @@ Public Class frmMain
Dim oMessage = String.Format("Wollen sie den Benutzer {0} löschen?", oUsername)
If MessageBox.Show(oMessage, "Benutzer löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
- If QueriesTableAdapter1.PRDD_DELETE_USER(oUserId) = -1 Then
+ Dim osql = $"EXEC PRDD_DELETE_USER {oUserId}"
+ If clsDatabase.Execute_Scalar(osql) = -1 Then
MessageBox.Show("Fehler beim Löschen des Benutzers.", "Benutzer löschen", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
UpdateSavedLabel()