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

jj 16.03 hints

Browse Source
This commit is contained in:
JenneJ
2016-03-16 16:48:19 +01:00
parent 9b2a80d017
commit bb5f74b02c
15 changed files with 163 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -314,6 +314,7 @@
Dim FONT_SIZE As Integer
Dim FONT_STYLE As Integer
Dim BACK_COLOR As Integer
Dim HINT As String = properties.Hint
X_LOC = properties.Location.X
Y_LOC = properties.Location.Y
@@ -366,8 +367,9 @@
SQL = "UPDATE TBPMO_CONTROL_SCREEN SET TAB_INDEX = " & TAB_INDEX & ", TAB_STOP = " & TAB_STOP & ", X_LOC = " & X_LOC & ", Y_LOC = " & Y_LOC & ", HEIGHT = " & HEIGHT & ", WIDTH = " & WIDTH & ", CONTROL_TEXT = '" & CONTROL_TEXT & "', CHANGED_WHO = '" & CHANGED_WHO & "', FONT_COLOR = " & FONT_COLOR & ", FONT_SIZE = " & FONT_SIZE & ", FONT_STYLE = " & FONT_STYLE & ", FONT_FAMILY = '" & FONT_FAMILY & "' , BACK_COLOR = " & BACK_COLOR & " WHERE CONTROL_ID = " & CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(SQL) = True Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_LANGUAGE SET CAPTION = '{0}' WHERE LANGUAGE_TYPE = '{1}' AND " & _
"CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & " AND LANGUAGE_TYPE = '" & USER_LANGUAGE & "')", CONTROL_TEXT, USER_LANGUAGE)
Dim upd = String.Format("UPDATE TBPMO_CONTROL_LANGUAGE SET CAPTION = '{0}', HINT = '{1}' WHERE LANGUAGE_TYPE = '{2}' AND " & _
"CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & _
CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & ")", CONTROL_TEXT, HINT, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(upd, True)
If CurrentType.Contains("Button") Then
'If control.Tag = "ADDAPPOINTMENT" Then
@@ -432,6 +434,12 @@
ClassFunctionCommands.UpdateAddFormDataFunction(ControlId, FormID, ScreenID)
End If
End If
Return True
Else
Throw New Exception()
@@ -523,7 +531,7 @@
Else
Throw New Exception()
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in DeleteControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in DeleteControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)