Remove ClassFormFunctions, switch to Database Module for getting connection string from connection id

Global_Indexer/ClassParamRefresh.vb

@@ -9,14 +9,6 @@ Public Class ClassParamRefresh
             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("#")
 
@@ -26,15 +18,12 @@ Public Class ClassParamRefresh
                 LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
                 If oMode.StartsWith("IDB_CONID!") Then
                     Dim oConnectionId = oMode.Replace("GLOBIX.IDB_CONID!", "")
-
-                    'Dim oConString = ClassDatabase.Get_ConnectionString(oConnectionId)
                     Dim oConString = DATABASE_ECM.Get_ConnectionStringforID(oConnectionId)
 
                     CONNECTION_STRING_IDB = oConString
                     DATABASE_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)
 
                     Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
-                    ' Dim oDT As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
                     Dim oDT As DataTable = DATABASE_IDB.GetDatatable(oSQL)
 
                     If Not IsNothing(oDT) Then
@@ -48,10 +37,6 @@ Public Class ClassParamRefresh
                     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