ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

GUIs.ZooFlow/Administration/frmAdmin_Globix.vb

@@ -1,18 +1,18 @@
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_Globix
-    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
+    Implements IAdminForm
+    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)
+        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
@@ -22,7 +22,7 @@ Public Class frmAdmin_Globix
             TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
             Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub
 
@@ -51,7 +51,7 @@ Public Class frmAdmin_Globix
         End If
     End Sub
 
-    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+    Public Function SaveData() As Boolean Implements IAdminForm.SaveData
         Try
             TBDD_DOKUMENTARTBindingSource.EndEdit()
 
@@ -70,7 +70,7 @@ Public Class frmAdmin_Globix
 
             Return True
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
             Return False
         End Try
     End Function
@@ -79,7 +79,7 @@ Public Class frmAdmin_Globix
 
     End Sub
 
-    Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
+    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
         Throw New NotImplementedException()
     End Function
 End Class