zooflow: msgbox

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb

@@ -1,4 +1,6 @@
-Public Class frmAdmin_IDBAttribute
+Imports DigitalData.GUIs.Common
+
+Public Class frmAdmin_IDBAttribute
     Implements IAdminForm
 
     Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
@@ -7,15 +9,16 @@
     Private Const ConstDetail = "Detail"
     Private Const ConstTranslate = "Translate"
     Private Property oMode As String = "Detail"
+    Private Property FormHelper As FormHelper
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        InitializeBaseForm(My.LogConfig)
         Me.PrimaryKey = PrimaryKey
         Me.IsInsert = IsInsert
+        FormHelper = New FormHelper(My.LogConfig, Me)
     End Sub
 
     Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -30,7 +33,7 @@
                 DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmAdmin_Attribute_Load")
         End Try
     End Sub
     Private Sub FillAttribute()
@@ -113,7 +116,7 @@
             FillAttribute()
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "SaveData")
             ShowStatus($"Unexpeced error saving attribute {TextEdit2.Text} - {ex.Message}", Color.Red)
             Return False
         End Try
@@ -128,7 +131,7 @@
             End If
 
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "DeleteAttribute")
             Return False
         End Try
     End Function