ZooFlow

GUIs.ZooFlow/Administration/ClassDetailPage.vb

@@ -43,9 +43,13 @@ Public Class ClassDetailPages
         Public IsInsert As Boolean = False
         Public TabPage As XtraTabPage
         Public Name As String
+        <Description("The Binding Source for the Form")>
         Public BindingSource As BindingSource
+        <Description("The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)")>
         Public DataTable As DataTable
+        <Description("The TextEdit Control containing the AddedWho value")>
         Public AddedWhoEdit As TextEdit
+        <Description("The TextEdit Control containing the ChangedWhoEdit value")>
         Public ChangedWhoEdit As TextEdit
     End Class
 
@@ -80,6 +84,10 @@ Public Class ClassDetailPages
             AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus
 
             For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
+                If TypeOf oContainer Is EmptySpaceItem Then
+                    Continue For
+                End If
+
                 Dim oControl As BaseEdit = oContainer.Control
                 AddHandler oControl.GotFocus, AddressOf Handle_Focus
                 AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged

GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb

@@ -53,8 +53,6 @@ Public Class frmAdmin_ClipboardWatcher
     End Class
 
     Public Sub New(PrimaryKey As Integer)
-        MyBase.New(My.LogConfig)
-
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -64,6 +62,8 @@ Public Class frmAdmin_ClipboardWatcher
     End Sub
 
     Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Init(My.LogConfig)
+
         'TODO: Diese Codezeile lädt Daten in die Tabelle "DSDD_Stammdaten.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
         Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DSDD_Stammdaten.TBDD_CONNECTION)
         Try

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb

@@ -7,8 +7,6 @@ Public Class frmAdmin_IDBEntity
     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()
 
@@ -19,6 +17,7 @@ Public Class frmAdmin_IDBEntity
 
     Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
+            Init(My.LogConfig)
             TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
         Catch ex As Exception
             ShowErrorMessage(ex)

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

GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb

@@ -789,7 +789,7 @@ Partial Class frmAdmin_Start
         Me.Name = "frmAdmin_Start"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "Administration"
+        Me.Text = "Administration - ZooFlow"
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).EndInit()

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -15,16 +15,8 @@ Public Class frmAdmin_Start
 
     Private DetailForm As ClassDetailForm
 
-    Public Sub New()
-        MyBase.New(My.LogConfig)
-
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-    End Sub
-
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Init(My.LogConfig)
         DetailForm = New ClassDetailForm(My.LogConfig)
         AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed