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

Zooflow: Replace old Usermenu, waiting overlay for search and globix

Browse Source
This commit is contained in:
Jonathan Jenne
2022-02-21 16:41:11 +01:00
parent 77597f0ef2
commit 227bd7cf1b
25 changed files with 685 additions and 586 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
GUIs.ZooFlow/ClassInit.vb
View File

@@ -11,6 +11,8 @@ Imports DigitalData.GUIs.ZooFlow.ClassInitLoader
Imports DigitalData.Controls.SQLConfig
Imports System.Data.SqlClient
Imports DigitalData.Modules
Imports DevExpress.LookAndFeel
Imports DigitalData.Modules.Language
Public Class ClassInit
Inherits Base.BaseClass
@@ -208,13 +210,10 @@ Public Class ClassInit
End Sub
Private Sub InitBasicConfig(MyApplication As My.MyApplication)
Try
Dim oSQL = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSQL, EDMI.API.Constants.DatabaseType.IDB)
Dim oSql As String
oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}")
oSQL = $"Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '{MyApplication.User.Language}'"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'")
oSql = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSql, EDMI.API.Constants.DatabaseType.IDB)
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
@@ -223,6 +222,21 @@ Public Class ClassInit
DocResultBaseSearch = DocResultBaseSearch.Replace("@LANG_CODE", My.Application.User.Language)
End If
Next
oSql = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSql, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}")
For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
If oRow.Item("CAT_TITLE") = ClassConstants.USER_CATALOG_APPLICATION_THEME Then
Dim oPaletteName As String = oRow.ItemEx("CAT_STRING", "Digital Data")
UserLookAndFeel.Default.SetSkinStyle(SkinStyle.Basic, oPaletteName)
End If
Next
oSql = $"Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '{MyApplication.User.Language}'"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSql, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'")
If DocResultBaseSearch = "" Then
Logger.Warn($"ATTENTION: NO DocResultBaseSearch - Check if entry {SQLCMD_FLOW_SEARCH_BASE} exists in TBIDB_COMMON_SQL")
End If