module drmf_main;
import system;
import kitcomp;
import stdio;
import qtime;
import drmf_data;
import drmf_db;
import drmf_dialog;
import drmf_process;
import drmf_log;
using module system;
using module kitcomp;
using module stdio;
using module qtime;
using module drmf_data;
using module drmf_db;
using module drmf_dialog;
using module drmf_process;
using module drmf_log;
//------------------------------------------------------------
// Функция конструктора, инициализация, создание объектов
//------------------------------------------------------------
void Init()
{
Log_Init(); Dbase_Init();
}
//------------------------------------------------------------
// Функция деструктора, удаление созданных объектов
//------------------------------------------------------------
void Done()
{
Dbase_Done(); Log_Done();
}
//------------------------------------------------------------
// Основной алгоритм программы
//------------------------------------------------------------
void Work()
{
bool bres; TFindInfo pInfo;
if ( !Dialog_Execute( pInfo ) ) return;
if ( !Dbase_Connect_Abacs() ) return;
if ( Dbase_Connect_IC() ) {
Processes_Start( pInfo ); // Module "*.Process"
Dbase_Disconnect_IC();
}
Dbase_Disconnect_Abacs();
}
//------------------------------------------------------------
// Функция "main"
// всегда вызывается при старте программы первой
//------------------------------------------------------------
void main()
{
Init();
Work();
Done();
}
//---------------------- Конец файла --------------------------
|
