54 lines
2.4 KiB
VB.net
54 lines
2.4 KiB
VB.net
Public Class ClassParamRefresh
|
|
Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
|
|
If DT_CHECKUSER.Rows.Count = 1 Then
|
|
USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
|
Try
|
|
WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
|
|
Catch ex As Exception
|
|
WORKING_MODE = ""
|
|
End Try
|
|
'Try
|
|
' ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
|
|
' If ADDITIONAL_TITLE = String.Empty Then
|
|
' ADDITIONAL_TITLE = My.Application.Info.ProductName
|
|
' End If
|
|
'Catch ex As Exception
|
|
' ADDITIONAL_TITLE = My.Application.Info.ProductName
|
|
'End Try
|
|
|
|
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
|
|
|
|
' Use For Each loop over words and display them.
|
|
Dim oMode As String
|
|
For Each oMode In oSplitWorkMode
|
|
LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
|
|
If oMode.StartsWith("IDB_CONID!") Then
|
|
Dim CON_ID = oMode.Replace("GLOBIX.IDB_CONID!", "")
|
|
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
|
|
CONNECTION_STRING_IDB = oConString
|
|
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
|
|
Dim oDT As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
|
|
If Not IsNothing(oDT) Then
|
|
If oDT.Rows.Count > 0 Then
|
|
IDB_ACTIVE = True
|
|
Else
|
|
LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
|
|
End If
|
|
Else
|
|
LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
|
|
End If
|
|
ElseIf oMode.StartsWith("IDB.LOG_INDEX") Then
|
|
IDB_LOG_INDEX = oMode.Replace("IDB.LOG_INDEX!", "")
|
|
'ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
|
|
' Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
|
|
' RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
|
|
|
|
Else
|
|
LOGGER.Info($"Wrong oMode: {oMode}")
|
|
End If
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
End Class
|