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

jj 22.06 visible / treeview property

Browse Source
This commit is contained in:
JenneJ
2016-06-22 13:12:09 +02:00
parent d71de0dc2f
commit c8d0b3f52b
6 changed files with 104 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD-Record-Organiser/ClassControlCommands.vb
View File

@@ -192,6 +192,8 @@
Dim FORMAT_TYPE As String
Dim SHOW_COLUMN As Integer
Dim STATIC_LIST As String
Dim VISIBLE As Integer
Dim TREE_VIEW As Integer
' So sollte diese Funktion später mal aussehen :(
'Select Case type
@@ -209,6 +211,7 @@
NAME = properties.Name
VISIBLE = BoolToInt(properties.Visible)
If propExists(properties, "Multiline") Then
MULTILINE = BoolToInt(properties.Multiline)
@@ -222,6 +225,10 @@
COL_NAME = String.Empty
End If
If Not (type = "RadioButton" Or type = "CheckBox" Or type = "GroupBox") Then
TREE_VIEW = BoolToInt(properties.TreeView)
End If
If type = "RadioButton" Then
DEFAULTVALUE = properties.DefaultValue
ElseIf type = "CheckBox" Then
@@ -297,11 +304,22 @@
CURRENT_CONTROL_ID = properties.ID
End If
SQL = "UPDATE TBPMO_CONTROL SET REQUIRED = " & REQUIRED & ", READ_ONLY = " & READ_ONLY & ", SHOW_COLUMN = " & SHOW_COLUMN & _
", FORMAT_TYPE = '" & FORMAT_TYPE & "', DEFAULT_VALUE = '" & DEFAULTVALUE & "', NAME = '" & NAME & "', SQL_COMMAND_1 = '" & SQLCommand & _
"', CHANGED_WHO = '" & CHANGED_WHO & "', COL_NAME = '" & COL_NAME & "', MULTILINE = " & MULTILINE & ", MASTER_DATA_ID = " & MASTER_DATA_ID & _
", STATIC_LIST = '" & STATIC_LIST & "', SQL_COMMAND_2 = '" & EnabledWhen & _
"' WHERE GUID = " & CURRENT_CONTROL_ID
SQL = String.Format(
"UPDATE TBPMO_CONTROL SET REQUIRED = {0}, READ_ONLY = {1}, SHOW_COLUMN = {2}, FORMAT_TYPE = '{3}', DEFAULT_VALUE = '{4}', " &
"NAME = '{5}', SQL_COMMAND_1 = '{6}', CHANGED_WHO = '{7}', COL_NAME = '{8}', MULTILINE = {9}, MASTER_DATA_ID = {10}, " &
"STATIC_LIST = '{11}', SQL_COMMAND_2 = '{12}', VISIBLE = {13}, TREE_VIEW = {14} " &
"WHERE GUID = {15}",
REQUIRED, READ_ONLY, SHOW_COLUMN, FORMAT_TYPE, DEFAULTVALUE,
NAME, SQLCommand, CHANGED_WHO, COL_NAME, MULTILINE, MASTER_DATA_ID,
STATIC_LIST, EnabledWhen, VISIBLE, TREE_VIEW,
CURRENT_CONTROL_ID
)
'SQL = "UPDATE TBPMO_CONTROL SET REQUIRED = " & REQUIRED & ", READ_ONLY = " & READ_ONLY & ", SHOW_COLUMN = " & SHOW_COLUMN & _
' ", FORMAT_TYPE = '" & FORMAT_TYPE & "', DEFAULT_VALUE = '" & DEFAULTVALUE & "', NAME = '" & NAME & "', SQL_COMMAND_1 = '" & SQLCommand & _
' "', CHANGED_WHO = '" & CHANGED_WHO & "', COL_NAME = '" & COL_NAME & "', MULTILINE = " & MULTILINE & ", MASTER_DATA_ID = " & MASTER_DATA_ID & _
' ", STATIC_LIST = '" & STATIC_LIST & "', SQL_COMMAND_2 = '" & EnabledWhen & "', VISIBLE = " & VISIBLE & ", TREE_VIEW = " & TREE_VIEW & _
' " WHERE GUID = " & CURRENT_CONTROL_ID
If ClassDatabase.Execute_non_Query(SQL) = True Then
Return UpdateControlScreen(control, properties)