EDMI: New Form Designer

EDMI_ClientSuite/FormEntityDesigner/frmFormDesigner.vb

@@ -0,0 +1,68 @@
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraLayout
+
+Public Class frmFormDesigner
+    Private Const CONTROL_TEXTEDIT = "TextBox"
+    Private Const CONTROL_MEMOEDIT = "Memoedit"
+    Private Const CONTROL_COMBOEDIT = "Combobox"
+    Private Const CONTROL_CHECKEDIT = "Checkbox"
+    Private Const CONTROL_RADIOEDIT = "Radiobutton"
+    Private Const CONTROL_DATEEDIT = "Datepicker"
+
+    Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        Dim oFormId As Int64 = 104
+
+        My.Channel.CreateDatabaseRequest("Load Controls", True)
+
+        Dim oSQL As String = $"SELECT * FROM VWICM_FORMCONTROL WHERE FORMID = {oFormId}"
+        Dim oResult = My.Channel.ReturnDatatable(oSQL)
+        Dim oTable = oResult.Table
+
+        If Not oResult.OK Then
+            ShowErrorMessage(New ApplicationException(oResult.ErrorMessage))
+        End If
+
+        My.Channel.CloseDatabaseRequest()
+
+        LoadControls(oTable)
+    End Sub
+
+    Private Sub LoadControls(Datatable As DataTable)
+        For Each oRow As DataRow In Datatable.Rows
+
+            Dim oEditor As BaseEdit = Nothing
+            Dim oCaption As String = oRow.Item("COLNAME")
+            Dim oControlType As String = oRow.Item("CTRLTYPE")
+            Dim oControlId As String = oRow.Item("RECORD_ID").ToString
+
+            Select Case oControlType
+                Case CONTROL_TEXTEDIT
+                    Dim oTextEdit As New TextEdit() With {.Name = oControlId}
+                    oEditor = oTextEdit
+                Case CONTROL_MEMOEDIT
+                    Dim oMemoEdit As New MemoEdit() With {.Name = oControlId}
+                    oEditor = oMemoEdit
+                Case CONTROL_DATEEDIT
+                    Dim oDateEdit As New DateEdit() With {.Name = oControlId}
+                    oEditor = oDateEdit
+                Case CONTROL_CHECKEDIT
+                    Dim oCheckEdit As New CheckEdit() With {.Name = oControlId}
+                    oEditor = oCheckEdit
+                Case CONTROL_COMBOEDIT
+                    Dim oComboEdit As New ComboBoxEdit() With {.Name = oControlId}
+                    oEditor = oComboEdit
+                Case Else
+
+            End Select
+
+            If oEditor Is Nothing Then
+                Continue For
+            End If
+
+            LayoutControlGroupMain.AddItem(oCaption, oEditor)
+        Next
+
+        LayoutControlGroupMain.AddItem(New EmptySpaceItem())
+    End Sub
+End Class