AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 15_12

Browse Source
This commit is contained in:
JenneJ
2015-12-15 15:51:44 +01:00
parent 7f63396433
commit 466df5c094
6 changed files with 248 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -43,7 +43,8 @@ Public Class ClassControlCommandsUI
Select Case dr.Item("CTRLTYPE_ID")
Case 1 ' Label
_CtrlBuilder.AddLabel(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddLabel(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -55,7 +56,8 @@ Public Class ClassControlCommandsUI
False,
parent)
Case 2 ' TextBox
_CtrlBuilder.AddTextBox(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddTextBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_FONT_FAMILY"),
@@ -72,7 +74,8 @@ Public Class ClassControlCommandsUI
False,
parent)
Case 3 ' ComboBox
_CtrlBuilder.AddComboBox(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddComboBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_FONT_FAMILY"),
@@ -90,7 +93,8 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_SQLCOMMAND_1"),
parent)
Case 4 ' DateTimePicker
_CtrlBuilder.AddDateTimePicker(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddDateTimePicker(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_FONT_FAMILY"),
@@ -104,7 +108,8 @@ Public Class ClassControlCommandsUI
False,
parent)
Case 5 ' GroupBox
_CtrlBuilder.AddGroupBox(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddGroupBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -118,7 +123,8 @@ Public Class ClassControlCommandsUI
False,
parent)
Case 6 ' PictureBox
_CtrlBuilder.AddPictureBox(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddPictureBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_WIDTH"),
@@ -127,7 +133,8 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_READ_ONLY"),
parent)
Case 7 ' DataGridView
_CtrlBuilder.AddDataGridView(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddDataGridView(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_WIDTH"),
@@ -142,7 +149,8 @@ Public Class ClassControlCommandsUI
'Else
' Checked = StrToBool(dr.Item("CONTROL_DEF_VALUE"))
'End If
_CtrlBuilder.AddCheckBox(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddCheckBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
Checked,
dr.Item("CTRLSCR_X_LOC"),
@@ -159,7 +167,8 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_READ_ONLY"),
parent)
Case 8 ' Function AddAppointment
_CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_NAME"),
_CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -169,7 +178,8 @@ Public Class ClassControlCommandsUI
parent)
AddHandler _CtrlBuilder.CurrentControl.Click, _AddAppointmentHandler
Case 9 ' Function AddFormData
_CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_NAME"),
_CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -185,7 +195,8 @@ Public Class ClassControlCommandsUI
'Else
' Checked = StrToBool(dr.Item("CONTROL_DEF_VALUE"))
'End If
_CtrlBuilder.AddRadioButton(dr.Item("CONTROL_NAME"),
_CtrlBuilder.AddRadioButton(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
Checked,
dr.Item("CTRLSCR_X_LOC"),
@@ -202,7 +213,8 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_READ_ONLY"),
parent)
Case 12 'CheckedListBox
CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_NAME"),
CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_FONT_FAMILY"),
@@ -219,7 +231,8 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_SQLCOMMAND_1"),
parent)
Case 13 'CheckedListBox
CtrlBuilder.AddListBox(dr.Item("CONTROL_NAME"),
CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_FONT_FAMILY"),