ZooFLow: Almost finish sourcesql window

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -19,7 +19,7 @@
         Try
             TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
 
-            If DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.GetChanges() IsNot Nothing Then
+            If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then
                 HasChanges = True
 
                 If IsInsert Then
@@ -46,4 +46,29 @@
             ShowError(ex)
         End Try
     End Sub
+
+    Private Sub ResetMessages()
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    End Sub
+
+    Private Sub ShowStatus(Message As String)
+        labelStatus.Caption = Message
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        ResetMessages()
+
+        If SaveData() And HasChanges Then
+            ShowStatus("Attribute gespeichert!")
+        End If
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        ResetMessages()
+
+        If SaveData() Then
+            Close()
+        End If
+    End Sub
 End Class