Public Function FUN_START() As Boolean ' Начальный вход в программу
'
'Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_Start")
'---------------------------------------------------------------------------
On Error GoTo FUN_Start_Error
'---------------------------------------------------------------------------
FUN_START = False
' поиск расположения базы
If FUN_FILE_YES_NO(FUN_Patch_File(App.Path, "settings.cfg")) = True Then ' если файл на месте
If FUN_OUT_TXT(FUN_Patch_File(App.Path, "settings.cfg"), 1) = "" Then ' читаем из файла путь к таблицам
MsgBox "Не указан путь к БД в файле settings.cfg." & vbCrLf & FUN_Patch_File(App.Path, "settings.cfg"), vbExclamation, App.Title
FUN_Get_Patch_Connection
Else
' читаем путь из "settings.cfg"
GLB_Patch_Connection = FUN_OUT_TXT(FUN_Patch_File(App.Path, "settings.cfg"), 1)
If FUN_FILE_YES_NO(GLB_Patch_Connection) = False Then
Call FUN_Get_Patch_Connection ' глобальное подключение
End If
End If
Else 'FUN_Patch_File(App.Path, "Error.txt")
MsgBox "Не найден файл (путь)." & vbCrLf & FUN_Patch_File(App.Path, "settings.cfg"), vbExclamation, App.Title
Call FUN_Get_Patch_Connection ' глобальное подключение
End If
If GLB_Patch_Connection = "" Then Call FUN_Get_Patch_Connection
If GLB_Patch_Connection = "" Then MsgBox "Путь к БД не определен", vbExclamation, App.Title: Exit Function
' MsgBox GLB_Patch_Connection
If FUN_FILE_YES_NO(GLB_Patch_Connection) = True Then 'путь к базе найден
If FUN_Get_GlobalConnection = False Then ' не удача при подключении
FUN_START = False
End If
FUN_START = True 'старт состоялся
Call FUN_IN_Settings_cfg(GLB_Patch_Connection)
Else
FUN_START = False
Call FUN_IN_Settings_cfg("")
End If
'---------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_Start_Error:
End Function
|