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

jj: add line in designer and constructor

Browse Source
This commit is contained in:
Jonathan Jenne
2018-04-04 14:14:07 +02:00
parent fd2dc4bf99
commit 6755ce60ea
7 changed files with 164 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/ClassControlCommands.vb
View File

@@ -10,6 +10,8 @@
Dim CurrentType As String = control.GetType.ToString.ToUpper
Select Case True
Case CurrentType.Contains("LineLabel".ToUpper)
Return 15
Case CurrentType.Contains("Label".ToUpper)
Return 1
Case CurrentType.Contains("TextBox".ToUpper)
@@ -42,8 +44,7 @@
Return 12
Case CurrentType.Contains("ListBoxControl".ToUpper)
Return 13
Case CurrentType.Contains("LineLabel")
Return 14
' Id 14 ist DataGridView Checkable - nicht verwendet
Case Else
Return -1
End Select
@@ -103,12 +104,7 @@
' SQL Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen
SQL = $"""
INSERT INTO TBPMO_CONTROL
(FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1)
VALUES
({CURRENT_ENTITY_ID}, {CONTROL_TYPE_ID}, '', '{NAME}', '{NAME}', {PARENT_CONTROL_ID}, '')
"""
SQL = $"INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES ({CURRENT_ENTITY_ID}, {CONTROL_TYPE_ID}, '', '{NAME}', '{NAME}', {PARENT_CONTROL_ID}, '')"
'If LogErrorsOnly = False Then ClassLogger.Add(SQL, True)
If ClassDatabase.Execute_non_Query(SQL) = True Then