MS bugfixing

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -11,6 +11,9 @@ Public Class frmAdministration
         Try
             Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
+            If MyDataset.TBCW_PROFILES.Rows.Count >= 1 Then
+                grpbxProfiles.Enabled = True
+            End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -257,4 +260,32 @@ Public Class frmAdministration
             Refresh_Free_Users(0)
         End If
     End Sub
+
+    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
+        Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text)
+        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
+        ' wenn Speichern ja
+        If result = MsgBoxResult.Yes Then
+            If clsDatabase.Execute_non_Query(swl) = True Then
+                Load_Profiles()
+            End If
+        End If
+
+
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Load_Profiles()
+        Refresh_Profile_user()
+        Try
+            Dim ID = CInt(GUIDTextBox.Text)
+        Catch ex As Exception
+            Exit Sub
+        End Try
+        Refresh_Free_Users(GUIDTextBox.Text)
+    End Sub
+
+    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
+        grpbxProfiles.Enabled = True
+    End Sub
 End Class