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

10
app/DD-Record-Organizer/frmDiagrams.vb
View File

@@ -18,9 +18,9 @@ Public Class frmDiagrams
CHART_TITLE_SQL = String.Format("SELECT NAME FROM TBPMO_FORM WHERE GUID = {0}", CURRENT_ENTITY_ID)
CHART_ENTITY_SQL = String.Format("SELECT * FROM TBPMO_CHART_ENTITY WHERE ENTITY_ID = {0}", CURRENT_ENTITY_ID)
CHART_GROUPS_SQL = String.Format("SELECT DISTINCT GROUP_ID FROM TBPMO_CHART_ENTITY WHERE ENTITY_ID = {0} ORDER BY GROUP_ID", CURRENT_ENTITY_ID)
CHART_TITLE_STRING = ClassDatabase.Execute_Scalar(CHART_TITLE_SQL)
CHART_ENTITY_DT = ClassDatabase.Return_Datatable(CHART_ENTITY_SQL)
CHART_GROUPS_DT = ClassDatabase.Return_Datatable(CHART_GROUPS_SQL)
CHART_TITLE_STRING = MYDB_ECM.GetScalarValue(CHART_TITLE_SQL)
CHART_ENTITY_DT = MYDB_ECM.GetDatatable(CHART_ENTITY_SQL)
CHART_GROUPS_DT = MYDB_ECM.GetDatatable(CHART_GROUPS_SQL)
Dim Groups As DataRowCollection = CHART_GROUPS_DT.Rows
groupCount = Groups.Count
@@ -54,7 +54,7 @@ Public Class frmDiagrams
Dim argument = cRow.Item("ARGUMENT")
Dim sql = cRow.Item("SQL_COMMAND")
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DATA_DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim series As Series = Create_Series(title, type)
@@ -92,7 +92,7 @@ Public Class frmDiagrams
Dim argument = row.Item("ARGUMENT")
Dim sql = row.Item("SQL_COMMAND")
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DATA_DT As DataTable = MYDB_ECM.GetDatatable(sql)
' Create Series based on type
Dim series As Series = Create_Series(title, type)