ZooFlow: Admin

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -86,4 +86,22 @@ Public Class frmAdmin_IDBAttribute
                         COMMENT = @COMMENT
                         WHERE (GUID = @GUID)"
     End Sub
+
+    Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
+        Try
+            TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
+            Return True
+        Catch ex As Exception
+            ShowError(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        If MsgBox($"Wollen Sie das Attribut [{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