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

MS_17022016

Browse Source
This commit is contained in:
SchreiberM
2016-02-17 11:11:35 +01:00
parent 880a2b04f3
commit 39da7d9b0c
29 changed files with 8613 additions and 7351 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,7 +20,7 @@
End Function
Public Sub SetFormTitle(title As String)
Me.Text = "Formulardesigner für Formular: " & title
Me.Text = "Formdesigner: " & title
End Sub
Public Sub SetFormName(name As String)
@@ -260,7 +260,7 @@
#Region "+++++ Load Funktionen +++++"
Public Sub LoadFormProperties()
Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID
Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
Dim TITLE_SQL As String = "SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = 'FORMVIEW_TITLE" & CURRENT_FORM_ID & "' and SCREEN_ID = " & CURRENT_SCREEN_ID & " AND LANGUAGE_TYPE = '" & USER_LANGUAGE & "'"
Dim Height = ClassDatabase.Execute_Scalar("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim width = ClassDatabase.Execute_Scalar("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)