Zooflow: Add Active Directory User Import

GUIs.ZooFlow/Administration/ClassDetailPage.vb

@@ -9,7 +9,7 @@ Imports DigitalData.Modules.Logging
 ''' <summary>
 ''' 
 ''' </summary>
-Public Class ClassDetailPages
+Public Class ClassDetailPageManager
     Private ReadOnly LogConfig As LogConfig
     Private ReadOnly Logger As Logger
     Private ReadOnly HostForm As IAdminForm
@@ -38,18 +38,50 @@ Public Class ClassDetailPages
         Public Property Page As DetailPage
     End Class
 
+    ''' <summary>
+    ''' An object representing a section of a form to edit an entity, ex. a user
+    ''' </summary>
+    ''' <remarks>A Page to edit would be called the user page.</remarks>
     Public Class DetailPage
+        ''' <summary>
+        ''' Is this the primary entity to be edited in this form?
+        ''' </summary>
         Public Property IsPrimary As Boolean = False
+
+        ''' <summary>
+        ''' Is this an insert of a new object?
+        ''' </summary>
+        ''' <returns></returns>
         Public Property IsInsert As Boolean = False
-        Public Property TabPage As XtraTabPage
+
+        ''' <summary>
+        ''' The tab page containing the page. This can be left empty
+        ''' </summary>
+        Public Property TabPage As XtraTabPage = Nothing
+
+        ''' <summary>
+        ''' The Name of the Page which the user will see
+        ''' </summary>
         Public Property Name As String
-        <Description("The Binding Source for the Form")>
+
+        ''' <summary>
+        ''' The Binding Source for the Page
+        ''' </summary>
         Public Property BindingSource As BindingSource
-        <Description("The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)")>
+
+        ''' <summary>
+        ''' The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)
+        ''' </summary>
         Public Property DataTable As DataTable
-        <Description("The TextEdit Control containing the AddedWho value")>
+
+        ''' <summary>
+        ''' The TextEdit Control containing the AddedWho value
+        ''' </summary>
         Public Property AddedWhoEdit As TextEdit
-        <Description("The TextEdit Control containing the ChangedWhoEdit value")>
+
+        ''' <summary>
+        ''' The TextEdit Control containing the ChangedWhoEdit value
+        ''' </summary>
         Public Property ChangedWhoEdit As TextEdit
     End Class
 
@@ -83,20 +115,43 @@ Public Class ClassDetailPages
             AddHandler oLayoutControl.Click, AddressOf Handle_Focus
             AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus
 
-            For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
-                If TypeOf oContainer Is EmptySpaceItem Then
+            For Each oContainer As BaseLayoutItem In oLayoutControl.Root.Items
+                Dim oItem As LayoutControlItem
+
+                If TypeOf oContainer IsNot LayoutControlItem Then
                     Continue For
                 End If
 
-                If TypeOf oContainer.Control IsNot BaseEdit Then
+                oItem = oContainer
+
+                If TypeOf oItem Is EmptySpaceItem Then
                     Continue For
                 End If
 
-                Dim oControl As BaseEdit = oContainer.Control
+                If TypeOf oItem.Control IsNot BaseEdit Then
+                    Continue For
+                End If
+
+                Dim oControl As BaseEdit = oItem.Control
                 AddHandler oControl.GotFocus, AddressOf Handle_Focus
                 AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged
                 AddHandler oControl.Validating, AddressOf Handle_Validating
             Next
+
+            'For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
+            '    If TypeOf oContainer Is EmptySpaceItem Then
+            '        Continue For
+            '    End If
+
+            '    If TypeOf oContainer.Control IsNot BaseEdit Then
+            '        Continue For
+            '    End If
+
+            '    Dim oControl As BaseEdit = oContainer.Control
+            '    AddHandler oControl.GotFocus, AddressOf Handle_Focus
+            '    AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged
+            '    AddHandler oControl.Validating, AddressOf Handle_Validating
+            'Next
         Next
     End Sub