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

68
app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb
View File

@@ -1,4 +1,4 @@
Imports DD_Record_Organizer.ClassDatabase
Imports DD_Record_Organizer.ClassControlBuilder
Imports DD_LIB_Standards
Imports System.Data.SqlClient
@@ -53,7 +53,7 @@ Public Class ClassControlCommandsUI
'Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE T.SCREEN_ID = {0} AND T.FORM_ID = {1} AND T.CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
Dim expression As String = String.Format("SCREEN_ID = {0} AND FORM_ID = {1} AND CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "") ' ClassDatabase.Return_Datatable(Sql, True)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "")
For Each dr As DataRow In DT.Rows
Dim parent As GroupBox = Nothing
@@ -346,7 +346,7 @@ Public Class ClassControlCommandsUI
Function SaveRecord(RecordID As Integer, FormID As Integer) As String
Try
Dim ADDED_WHO As String = USER_USERNAME
LOGGER.Debug("(SaveRecord) Update RecordID: " & RecordID, False)
LOGGER.Debug("(SaveRecord) Update RecordID: " & RecordID)
If UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) = True Then
Return "Datensatz aktualisiert - " & Now
Else
@@ -394,7 +394,7 @@ Public Class ClassControlCommandsUI
Private Sub UpsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap)
Dim existsSQL As String = "SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
Dim exists = ClassDatabase.Execute_Scalar(existsSQL)
Dim exists = MYDB_ECM.ExecuteNonQuery(existsSQL)
If IsNothing(exists) Then
InsertImage(ControlID, RecordID, image)
@@ -436,10 +436,10 @@ Public Class ClassControlCommandsUI
Private Sub LinkImage(ControlID As Integer, RecordID As Integer)
Try
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
Dim ImageID As Integer = ClassDatabase.Execute_Scalar(SQL)
Dim ImageID As Integer = MYDB_ECM.GetScalarValue(SQL)
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
Dim valueExists = ClassDatabase.Execute_Scalar(SQL)
Dim valueExists = MYDB_ECM.GetScalarValue(SQL)
Dim VALUE = "%%" & ImageID.ToString & "%%"
@@ -448,7 +448,7 @@ Public Class ClassControlCommandsUI
Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, USER_USERNAME)
End If
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
MsgBox("Error in LinkImage: " & vbNewLine & ex.Message)
End Try
@@ -489,11 +489,11 @@ Public Class ClassControlCommandsUI
Try
' Delete Image
Dim SQL = String.Format("DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
Dim result = ClassDatabase.Execute_non_Query(SQL)
Dim result = MYDB_ECM.ExecuteNonQuery(SQL)
' Delete Value
SQL = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
result = ClassDatabase.Execute_non_Query(SQL)
result = MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
MsgBox("Fehler beim löschen des Bildes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -504,16 +504,16 @@ Public Class ClassControlCommandsUI
Dim _error As Boolean = False
Dim sw As New SW("UpdateAllControls")
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
ClassDatabase.Execute_non_Query(del)
MYDB_ECM.ExecuteNonQuery(del)
CURRENT_CHANGE_STEP += 1
Dim sel = String.Format("SELECT RECORD_ID, CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordID)
Dim VALUE_EXISTS_DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim VALUE_EXISTS_DT As DataTable = MYDB_ECM.GetDatatable(sel)
For Each ctrl As Control In controls
Console.WriteLine("Updating Control " + ctrl.Name)
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID)
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID)
Dim CONTROL_VALUE As String = GetControlValue(ctrl)
Dim controltype = ctrl.GetType.ToString
If TypeOf ctrl Is PictureBox Then
@@ -542,7 +542,7 @@ Public Class ClassControlCommandsUI
Continue For
End If
'Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
Dim ValueExists = VALUE_EXISTS_DT.Select(String.Format("CONTROL_ID = {0}", CONTROL_ID))
Dim ValueChanged As Boolean = _CtrlBuilder.ControlsChanged.Contains(CONTROL_ID)
@@ -554,7 +554,7 @@ Public Class ClassControlCommandsUI
'If CONTROL_ID = 995 Or CONTROL_ID = 996 Or CONTROL_ID = 997 Or CONTROL_ID = 810 Then
' Console.WriteLine("sdasd")
'End If
LOGGER.Debug("InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
LOGGER.Debug("InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE)
If Not IsNothing(CONTROL_VALUE) Then
If TypeOf ctrl Is CustomComboBox And CONTROL_VALUE = "" Then
'Exit Sub - Zuviel des guten
@@ -577,9 +577,9 @@ Public Class ClassControlCommandsUI
If (isDateEdit Or isTextBox Or isComboBox) And isEmptyValue Then
Dim sql As String = $"DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = {RecordID} AND CONTROL_ID = {CONTROL_ID}"
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query(sql, True)
MYDB_ECM.ExecuteNonQuery(sql, True)
End If
End If
@@ -612,7 +612,7 @@ Public Class ClassControlCommandsUI
Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
Try
Dim val = String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId)
Dim dt As DataTable = ClassDatabase.Return_Datatable(val, True)
Dim dt As DataTable = MYDB_ECM.GetDatatable(val)
If IsNothing(dt) Then
Exit Sub
End If
@@ -644,7 +644,7 @@ Public Class ClassControlCommandsUI
End If
Next
For Each v As String In RemoveValues
ClassDatabase.Execute_non_Query(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
MYDB_ECM.ExecuteNonQuery(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
' ClassProxy.PRPROXY_CONTROL_DEL(RecordId, CURRENT_ENTITY_ID, ControlId)
Next
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, "")
@@ -657,14 +657,14 @@ Public Class ClassControlCommandsUI
Dim type = ctrl.GetType().Name
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
LOGGER.Debug("GetControlValue CONTROL_ID: " & CONTROL_ID, False)
LOGGER.Debug("GetControlValue CONTROL_ID: " & CONTROL_ID)
Dim CONTROL_VALUE As String = Nothing
LOGGER.Debug("type = " & type.ToString, False)
LOGGER.Debug("type = " & type.ToString)
Select Case type
Case "TextBox"
Return DirectCast(ctrl, TextBox).Text
Case "CustomComboBox"
LOGGER.Debug("Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
LOGGER.Debug("Return Value: " & DirectCast(ctrl, CustomComboBox).Text)
Return DirectCast(ctrl, CustomComboBox).Text
Case "CheckBox"
Return DirectCast(ctrl, CheckBox).Checked.ToString()
@@ -689,7 +689,7 @@ Public Class ClassControlCommandsUI
Case "CheckedListBoxControl"
Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID, True)
Dim SQL_COMAMND = MYDB_ECM.ExecuteNonQuery("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
If IsNothing(chklbx.DataSource) Then
@@ -718,10 +718,10 @@ Public Class ClassControlCommandsUI
If CInt(row(0)) > 0 Then
'Überprüfen ob es den Record gibt
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_Scalar(SQL, True) = 1 Then
If MYDB_ECM.ExecuteNonQuery(SQL) = 1 Then
SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_non_Query(SQL) = True Then
LOGGER.Debug("TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
LOGGER.Debug("TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted")
End If
End If
End If
@@ -744,12 +744,12 @@ Public Class ClassControlCommandsUI
checked_result.Add(checked_value)
checked_result_string = String.Join(";", checked_result)
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_Scalar(SQL, True) = 0 Then
If MYDB_ECM.ExecuteNonQuery(SQL, True) = 0 Then
If CURRENT_RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ClassRecordCommands.ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
LOGGER.Debug("Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
LOGGER.Debug("Checked ListBox record '" & rid.ToString & "' was linked successfully.")
End If
End If
@@ -779,7 +779,7 @@ Public Class ClassControlCommandsUI
' Überspringt den Rest der funktion
If Not IsNothing(checked_result_string) Then
'Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
'If ClassDatabase.Execute_Scalar(sql) = 0 Then
'If MYDB_ECM.GetScalarValue(SQL) = 0 Then
' InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "")
'End If
Return checked_result_string
@@ -792,7 +792,7 @@ Public Class ClassControlCommandsUI
Dim chk_grid As DevExpress.XtraGrid.GridControl
chk_grid = DirectCast(ctrl, DevExpress.XtraGrid.GridControl)
Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = chk_grid.MainView
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID, True)
Dim SQL_COMAMND = MYDB_ECM.ExecuteNonQuery("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
Dim result As New List(Of String)
Dim result_string As String
@@ -913,7 +913,7 @@ Public Class ClassControlCommandsUI
_result = 0
End If
Catch ex As Exception
Dim name = clsDatabase.Execute_Scalar("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
Dim name = MYDB_ECM.GetScalarValue("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateControlProcedure für Control: " & name)
LOGGER.Warn("Error in CreateControlProcedure: " & ex.Message, True)
Return 0
@@ -927,13 +927,13 @@ Public Class ClassControlCommandsUI
converted_value = converted_value.Replace("'", "´")
Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, converted_value, AddedWho)
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return ClassDatabase.Execute_non_Query(ins)
Return MYDB_ECM.ExecuteNonQuery(ins)
End If
Else
Return False
@@ -957,13 +957,13 @@ Public Class ClassControlCommandsUI
LOGGER.Warn(upd)
End If
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return ClassDatabase.Execute_non_Query(upd)
Return MYDB_ECM.ExecuteNonQuery(upd)
End If
Catch ex As Exception
LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)