ZooFlow

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -10,6 +10,8 @@ Public Class frmAdmin_SourceSQL
 
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
+    Private Pages As ClassDetailPages
+
     Public Sub New(PrimaryKey As Integer)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -20,6 +22,17 @@ Public Class frmAdmin_SourceSQL
 
     Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
+            Pages = New ClassDetailPages(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1})
+            Pages.Add(New ClassDetailPages.PrimaryPage(IsInsert) With {
+                .Name = "Source SQL",
+                .AddedWhoEdit = txtAddedWho,
+                .ChangedWhoEdit = txtChangedWho,
+                .BindingSource = TBZF_ADMIN_SOURCE_SQLBindingSource,
+                .DataTable = DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL,
+                .IsInsert = IsInsert,
+                .TabPage = Nothing
+            })
+
             If IsInsert Then
                 TBZF_ADMIN_SOURCE_SQLBindingSource.AddNew()
             Else