ZooFlow: Admin

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -39,6 +39,16 @@
         End Try
     End Function
 
+    Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
+        Try
+            TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
+            Return True
+        Catch ex As Exception
+            ShowError(ex)
+            Return False
+        End Try
+    End Function
+
     Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey)
@@ -71,4 +81,12 @@
             Close()
         End If
     End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        If MsgBox($"Wollen Sie den SourceSQL [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
+            If DeleteData() Then
+                Close()
+            End If
+        End If
+    End Sub
 End Class