AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

move override sql property to button only, add help texts for a few properties

Browse Source
This commit is contained in:
Jonathan Jenne 2022-08-11 13:21:15 +02:00
parent 5469c93c6b
commit b7b137e690
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
app/DD_PM_WINDREAM/ModuleControlProperties.vb
View File

@ -85,7 +85,6 @@ Public Module ModuleControlProperties
Private _index_type As String Private _index_type As String
Private _sql_command As String Private _sql_command As String
Friend _sql_connection As Integer = 0 Friend _sql_connection As Integer = 0
Private _Override_SQL As String
Private _Enable_SQL As String Private _Enable_SQL As String
Private _Enable_SQL_ONLOAD As String Private _Enable_SQL_ONLOAD As String
Private _default_value Private _default_value
@ -102,6 +101,7 @@ Public Module ModuleControlProperties
Public Property [ReadOnly]() As Boolean Public Property [ReadOnly]() As Boolean
<DisplayName("Save Changes On Read Only")> <DisplayName("Save Changes On Read Only")>
<Description("Stores data of Read Only fields when document is saved. Default behaviour is NOT to save Read Only fields.")>
<Category(ClassConstants.CAT_BEHAVIOUR)> <Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property [SaveChangeOnReadOnly]() As Boolean Public Property [SaveChangeOnReadOnly]() As Boolean
@ -144,19 +144,8 @@ Public Module ModuleControlProperties
End Set End Set
End Property End Property
<DisplayName("Completion Override SQL")>
<Category(ClassConstants.CAT_VALIDATION)>
Public Property Override_SQL() As SQLValue
Get
Return New SQLValue(NotNull(_Override_SQL, ""), _sql_connection)
End Get
Set(ByVal value As SQLValue)
_Override_SQL = value.Value
SQLConnection = value.ConnectionId
End Set
End Property
<DisplayName("Enable On Change SQL")> <DisplayName("Enable On Change SQL")>
<Description("SQL Command that determines if a control should be enabled/disabled when another, referenced control changes. Should return 0 or 1. Can include a Control-Placeholder.")>
<Category(ClassConstants.CAT_BEHAVIOUR)> <Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Enable_SQL() As SQLValue Public Property Enable_SQL() As SQLValue
Get Get
@ -169,6 +158,7 @@ Public Module ModuleControlProperties
End Property End Property
<DisplayName("Enable On Load SQL")> <DisplayName("Enable On Load SQL")>
<Description("SQL Command that determines if a control should be enabled/disabled when the form loads. Should return 0 or 1. Can include a Control-Placeholder.")>
<Category(ClassConstants.CAT_BEHAVIOUR)> <Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Enable_SQL_OnLoad() As SQLValue Public Property Enable_SQL_OnLoad() As SQLValue
Get Get
@ -298,7 +288,7 @@ Public Module ModuleControlProperties
Inherits InputProperties Inherits InputProperties
Private _image_Value As String Private _image_Value As String
Private _Override_SQL As String
<Category(ClassConstants.CAT_DISPLAY)> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Text() As String Public Property Text() As String
@ -313,6 +303,18 @@ Public Module ModuleControlProperties
_image_Value = value.Value _image_Value = value.Value
End Set End Set
End Property End Property
<DisplayName("Completion Override SQL")>
<Category(ClassConstants.CAT_VALIDATION)>
Public Property Override_SQL() As SQLValue
Get
Return New SQLValue(NotNull(_Override_SQL, ""), _sql_connection)
End Get
Set(ByVal value As SQLValue)
_Override_SQL = value.Value
SQLConnection = value.ConnectionId
End Set
End Property
End Class End Class
Public Class LookupControlProperties Public Class LookupControlProperties