ZooFlow: Add Base Form

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -1,12 +1,13 @@
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_IDBAttribute
-    Implements interfaceAdmin_Form
+    Inherits frmAdmin_Base
+    Implements frmAdmin_Interface
 
-    Private Property Logger As Logger Implements interfaceAdmin_Form.Logger
-    Public Property HasChanges As Boolean = False Implements interfaceAdmin_Form.HasChanges
-    Public Property IsInsert As Boolean = False Implements interfaceAdmin_Form.IsInsert
-    Public Property PrimaryKey As Integer Implements interfaceAdmin_Form.PrimaryKey
+    Private Property Logger As Logger Implements frmAdmin_Interface.Logger
+    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 Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -22,7 +23,7 @@ Public Class frmAdmin_IDBAttribute
         Try
             TBIDB_ATTRIBUTETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE, PrimaryKey)
         Catch ex As Exception
-            Logger.Error(ex)
+            ShowError(ex)
         End Try
     End Sub
 
@@ -51,7 +52,7 @@ Public Class frmAdmin_IDBAttribute
         End If
     End Sub
 
-    Public Function SaveData() As Boolean Implements interfaceAdmin_Form.SaveData
+    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
         Try
             TBIDB_ATTRIBUTEBindingSource.EndEdit()
 
@@ -70,7 +71,7 @@ Public Class frmAdmin_IDBAttribute
 
             Return True
         Catch ex As Exception
-            Logger.Error(ex)
+            ShowError(ex)
             Return False
         End Try
     End Function