ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -2,13 +2,13 @@
 Imports DevExpress.XtraLayout
 
 Public Class frmAdmin_SourceSQL
-    Implements frmAdmin_Interface
+    Implements IAdminForm
 
-    Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
+    Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
 
-    Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
+    Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
 
-    Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
+    Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
     Public Sub New(PrimaryKey As Integer)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -28,7 +28,7 @@ Public Class frmAdmin_SourceSQL
 
             ValidationHelper()
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub
 
@@ -69,7 +69,7 @@ Public Class frmAdmin_SourceSQL
         Return oControlList
     End Function
 
-    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+    Public Function SaveData() As Boolean Implements IAdminForm.SaveData
         Try
 
 
@@ -90,17 +90,17 @@ Public Class frmAdmin_SourceSQL
 
             Return True
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
             Return False
         End Try
     End Function
 
-    Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
+    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
         Try
             TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
             Return False
         End Try
     End Function