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

jj - fix default valu & datetime picker read only on creation

Browse Source
This commit is contained in:
JenneJ
2015-10-26 11:00:18 +01:00
parent 1d45aceb73
commit e47a7eac67
3 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -75,7 +75,7 @@
' SQL Befehl für CONTROL TABELLE ' SQL Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen ' 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_FORM_ID & ", " & CONTROL_TYPE_ID & ", 'False', '" & 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_FORM_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
If ClassDatabase.Execute_non_Query(SQL) = True Then If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL" SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"

3
app/DD-Record-Organiser/ClassControlProperties.vb
View File

@@ -180,6 +180,7 @@ Module ClassControlProperties
End Property End Property
<CategoryAttribute("Sonstige Einstellungen")> <CategoryAttribute("Sonstige Einstellungen")>
<DescriptionAttribute("Gibt den Standardwert dieses Elements an.")> <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
<DefaultValue("")>
Public Property DefaultValue() As String Public Property DefaultValue() As String
Get Get
Return _default_Value Return _default_Value
@@ -322,6 +323,7 @@ Module ClassControlProperties
<CategoryAttribute("Sonstige Einstellungen")> <CategoryAttribute("Sonstige Einstellungen")>
<DescriptionAttribute("Gibt den Standardwert dieses Elements an.")> <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
<DefaultValue(False)>
Public Overloads Property DefaultValue As Boolean Public Overloads Property DefaultValue As Boolean
Get Get
Return _default_value Return _default_value
@@ -352,6 +354,7 @@ Module ClassControlProperties
<CategoryAttribute("Sonstige Einstellungen")> <CategoryAttribute("Sonstige Einstellungen")>
<DescriptionAttribute("Gibt den Standardwert dieses Elements an.")> <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
<DefaultValue(False)>
Public Overloads Property DefaultValue As Boolean Public Overloads Property DefaultValue As Boolean
Get Get
Return _default_value Return _default_value

2
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@@ -123,7 +123,7 @@
' Aktuelles Control in die Datenbank speichern ' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
Case "dtp" Case "dtp"
CtrlBuilder.AddDateTimePicker("dtp" & random, 0, 0, def_font_family, def_font_size, def_font_style, 0, False, 0, 0, True, True, Parent) CtrlBuilder.AddDateTimePicker("dtp" & random, 0, 0, def_font_family, def_font_size, def_font_style, 0, False, 0, 0, False, True, Parent)
' Aktuelles Control in die Datenbank speichern ' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
Case "dgv" Case "dgv"