SQL Connection cleanup

This commit is contained in:
Jonathan Jenne
2022-08-09 15:18:47 +02:00
parent 8c76b53273
commit 7c9160a270
14 changed files with 144 additions and 140 deletions

View File

@@ -7,7 +7,6 @@ Imports DigitalData.Modules.ZooFlow
Module ModuleRuntimeVariables
Public Property Database As DatabaseWithFallback
Public Property DatabaseECM As MSSQLServer
Public Property DatabaseIDB As MSSQLServer
Public Property EDMIService As New State.ServiceState
@@ -29,7 +28,6 @@ Module ModuleRuntimeVariables
Public Property CURRENT_ProfilGUID As Integer
Public Property CURRENT_ProfilName As String
Public Property CURRENT_PROFILE_LOG_INDEX As String
Public Property CURRENT_HTML_DOC As String
Public Property CURRENT_DOC_GUID As Integer
Public Property CURRENT_DOC_ID As Integer
@@ -38,8 +36,6 @@ Module ModuleRuntimeVariables
Public Property CURRENT_CONVERSATION_NEW As Long
Public Property CURRENT_CONN_ID As Integer
Public Property CURRENT_JUMP_DOC_GUID As Integer
Public Property CURRENT_WMFILE As WMObject
@@ -47,7 +43,6 @@ Module ModuleRuntimeVariables
Public Property ERROR_STATE = ""
Public Property USER_USERNAME As String
Public Property DT_USER2MODULE As DataTable
Public Property CHANGES_FORM_DESIGN As Boolean = False
@@ -107,9 +102,6 @@ Module ModuleRuntimeVariables
Public Property CURRENT_INDEX_ID As Integer
Public Property CURRENT_OBJECTTYPE As String
Public Property CURRENT_DESIGN_TYPE As String = "FINAL_INDEX"
Public Property CURRENT_SQL_CON As Integer
Public Property CURRENT_SQL_COMAMND As String
Public Property CURRENT_DT_SQL_CONFIG_TABLE As DataTable
Public Property CURRENT_CLICKED_PROFILE_ID As Integer = 0
Public Property CURRENT_CLICKED_PROFILE_TITLE As String
@@ -130,12 +122,8 @@ Module ModuleRuntimeVariables
Public Property CURRENT_DT_PROFILES As DataTable
Public Property CURRENT_DT_PROFILE As DataTable
Public Property CURRENT_CONTROL_LIST As New List(Of Control)
Public Property CURRENT_CONTROL_NAME_LIST As New List(Of String)
Public CURRENT_INDEX_ARRAY(100, 250) As String
Public Property DTVWCONTROLS_INDEX As DataTable
Public Property DTVWCONTROL_INDEX As DataTable