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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
app/DD-Record-Organizer/frmLevel_Designer.vb
View File

@@ -169,7 +169,7 @@
Dim wid As Integer = Me.Width
Dim update_sizepnl As String = "UPDATE TBPMO_FORM_VIEW SET HEIGHT = " & pnlDesigner.Height & ",WIDTH = " & wid & " where FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
ClassDatabase.Execute_non_Query(update_sizepnl, False)
MYDB_ECM.ExecuteNonQuery(update_sizepnl)
Catch ex As Exception
MsgBox("Error in frmLevel_Designer_FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -185,10 +185,8 @@
AddressOf Control_Click,
AddressOf Groupbox_DragDrop)
If ClassDatabase.Init = True Then
LoadFormProperties()
LoadControls()
End If
LoadFormProperties()
LoadControls()
End Sub
@@ -200,12 +198,12 @@
#Region "+++++ Load Funktionen +++++"
Public Sub LoadFormProperties()
Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
Dim formviewid = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim formviewid = MYDB_ECM.GetScalarValue("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim TITLE_SQL As String = "SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = 'FORMVIEW_TITLE" & formviewid & "' 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_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim width = ClassDatabase.Execute_Scalar("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)
Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL)
Dim Height = MYDB_ECM.GetScalarValue("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim width = MYDB_ECM.GetScalarValue("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim name = MYDB_ECM.GetScalarValue(NAME_SQL)
Dim title = MYDB_ECM.GetScalarValue(TITLE_SQL)
' Check_Document_Config(CURRENT_ENTITY_ID)
If Not IsDBNull(Height) Then
If Height > 100 Then
@@ -225,7 +223,7 @@
Public Sub LoadControls()
Dim sql = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{0}', {1},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T" & _
" where T.FORM_ID = {2} and T.SCREEN_ID = {3}", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_ENTITY_ID, CURRENT_SCREEN_ID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
For Each dr As DataRow In dt.Rows
@@ -580,21 +578,21 @@
Dim currentPosition As Point = DesignerCtrlBuilder.CurrentControl.Location
' Das Control sollte nicht außerhalb des Panels geschoben werden (Koordinaten kleiner 0)
If CurrentPosition.X < 0 Then
If currentPosition.X < 0 Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(0, DesignerCtrlBuilder.CurrentControl.Location.Y)
End If
If CurrentPosition.Y < 0 Then
If currentPosition.Y < 0 Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(DesignerCtrlBuilder.CurrentControl.Location.X, 0)
End If
' Ebenso nicht über die Größe des Panels (X-Achse)
If CurrentPosition.X > pnlDesigner.Width Then
If currentPosition.X > pnlDesigner.Width Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(pnlDesigner.Width - DesignerCtrlBuilder.CurrentControl.Width, DesignerCtrlBuilder.CurrentControl.Location.Y)
End If
' Ebenso nicht über die Größe des Panels (Y-Achse)
If CurrentPosition.Y > pnlDesigner.Height Then
If currentPosition.Y > pnlDesigner.Height Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(DesignerCtrlBuilder.CurrentControl.Location.X, pnlDesigner.Height - DesignerCtrlBuilder.CurrentControl.Height)
End If
@@ -672,10 +670,11 @@
'Return True
Dim noerror As Boolean = False
Dim sql = "EXECUTE PRPMO_CREATE_SQL " & CURRENT_ENTITY_ID
noerror = ClassDatabase.Execute_non_Query_withConn(sql, 1)
sql = "EXECUTE PRPMO_CREATE_ENTITY_TABLE_VIEW " & CURRENT_ENTITY_ID
noerror = ClassDatabase.Execute_non_Query_withConn(sql, 1)
Dim sql = String.Format("DECLARE @return_value int " & vbNewLine &
"EXEC @return_value = dbo.PRPMO_CREATE_ENTITY_TABLE {0}" & vbNewLine &
"IF @return_value = 0 EXEC @return_value = [dbo].[PRPMO_CREATE_ENTITY_TABLE_VIEW] {0}" & vbNewLine &
"SELECT 'Return Value' = @return_value", CURRENT_ENTITY_ID)
noerror = MYDB_ECM.ExecuteNonQuery(sql)
If noerror = False Then
MsgBox("Error while rebuilding view! See Log for more information", MsgBoxStyle.Critical)
End If
@@ -710,15 +709,15 @@
'Dim sqlHint As String = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", controlId, USER_LANGUAGE)
Dim sqlHint = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}) AND LANGUAGE_TYPE = '{2}'", controlId, CURRENT_SCREEN_ID, USER_LANGUAGE)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim hint As String = ClassConverter.ToStringOrDefault(ClassDatabase.Execute_Scalar(sqlHint), Nothing)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim hint As String = ClassConverter.ToStringOrDefault(MYDB_ECM.GetScalarValue(sqlHint), Nothing)
Dim props As Object = Nothing
Dim r As DataRow = Nothing
Dim type As String = Nothing
If dt.Rows.Count <> 1 Then
MsgBox("Unexpected behaviour in LoadControlProperties: No Control could be loaded!" & vbNewLine & "Tag.ControlID: " & ControlId.ToString, MsgBoxStyle.Exclamation)
MsgBox("Unexpected behaviour in LoadControlProperties: No Control could be loaded!" & vbNewLine & "Tag.ControlID: " & controlId.ToString, MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -1054,7 +1053,7 @@
If IsGroupBox(DesignerCtrlBuilder.CurrentControl) Then
Dim parentID As Integer = GetControlID_for_Name(DesignerCtrlBuilder.CurrentControl.Name, CURRENT_ENTITY_ID)
Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE PARENT_CONTROL_ID = " & parentID
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
For Each dr As DataRow In dt.Rows
Dim id As Integer = dr.Item(0)