First Pass of new control loader add BaseClass that provides Logger

EDMI_ClientSuite/ClassControlLoader.vb

@@ -0,0 +1,57 @@
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraLayout
+Imports DigitalData.Controls.LookupGrid
+Imports DigitalData.Modules.Logging
+
+Public Class ClassControlLoader
+    Inherits BaseClass
+
+    Public Sub New(LogConfig As LogConfig)
+        MyBase.New(LogConfig)
+    End Sub
+
+    Public Sub LoadControls(Datatable As DataTable, LayoutControlGroup As LayoutControlGroup)
+        For Each oRow As DataRow In Datatable.Rows
+            Dim oCaption As String = oRow.Item("COLNAME")
+            Dim oControlType As String = oRow.Item("CTRLTYPE")
+            Dim oControlId As String = oRow.Item("RECORD_ID").ToString
+            Dim oEditor As BaseEdit = CreateLayoutControl(oControlType, oControlId)
+
+            If oEditor Is Nothing Then
+                Continue For
+            End If
+
+            LayoutControlGroup.AddItem(oCaption, oEditor)
+        Next
+
+        LayoutControlGroup.AddItem(New EmptySpaceItem())
+    End Sub
+
+    Public Function CreateLayoutControl(Type As String, Name As String)
+        Dim oEditor As BaseEdit = Nothing
+
+        Logger.Debug("Create new Control of type {0} with name {1}", Type, Name)
+
+        Select Case Type
+            Case ClassConstants.CONTROL_TEXTEDIT
+                Dim oTextEdit As New TextEdit() With {.Name = Name}
+                oEditor = oTextEdit
+            Case ClassConstants.CONTROL_MEMOEDIT
+                Dim oMemoEdit As New MemoEdit() With {.Name = Name}
+                oEditor = oMemoEdit
+            Case ClassConstants.CONTROL_DATEEDIT
+                Dim oDateEdit As New DateEdit() With {.Name = Name}
+                oEditor = oDateEdit
+            Case ClassConstants.CONTROL_CHECKEDIT
+                Dim oCheckEdit As New CheckEdit() With {.Name = Name}
+                oEditor = oCheckEdit
+            Case ClassConstants.CONTROL_COMBOEDIT
+                Dim oComboEdit As New LookupControl2() With {.Name = Name}
+                oEditor = oComboEdit
+            Case Else
+                oEditor = Nothing
+        End Select
+
+        Return oEditor
+    End Function
+End Class