ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -1,12 +1,9 @@
-Imports DigitalData.Modules.Logging
+Public Class frmAdmin_IDBAttribute
+    Implements IAdminForm
 
-Public Class frmAdmin_IDBAttribute
-    Inherits frmAdmin_Base
-    Implements frmAdmin_Interface
-
-    Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges
-    Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert
-    Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
+    Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
+    Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
+    Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -22,7 +19,7 @@ Public Class frmAdmin_IDBAttribute
             TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
             VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub
 
@@ -51,7 +48,7 @@ Public Class frmAdmin_IDBAttribute
         End If
     End Sub
 
-    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+    Public Function SaveData() As Boolean Implements IAdminForm.SaveData
         Try
             VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
 
@@ -72,7 +69,7 @@ Public Class frmAdmin_IDBAttribute
 
             Return True
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
             Return False
         End Try
     End Function
@@ -87,12 +84,12 @@ Public Class frmAdmin_IDBAttribute
                         WHERE (GUID = @GUID)"
     End Sub
 
-    Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
+    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
         Try
             TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
             Return False
         End Try
     End Function