ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb

@@ -1,18 +1,18 @@
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_IDBEntity
-    Inherits frmAdmin_Base
-    Implements frmAdmin_Interface
-    Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
-    Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
-    Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
+    Implements IAdminForm
+    Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
+    Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
+    Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
+        MyBase.New(My.LogConfig)
+
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Logger = My.LogConfig.GetLogger()
         Me.PrimaryKey = PrimaryKey
         Me.IsInsert = IsInsert
     End Sub
@@ -21,7 +21,7 @@ Public Class frmAdmin_IDBEntity
         Try
             TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub
 
@@ -49,7 +49,7 @@ Public Class frmAdmin_IDBEntity
         End If
     End Sub
 
-    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+    Public Function SaveData() As Boolean Implements IAdminForm.SaveData
         Try
             TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
 
@@ -68,17 +68,17 @@ Public Class frmAdmin_IDBEntity
 
             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
             TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
             Return False
         End Try
     End Function