Код программы. Вывод основных уведомлений, страница 10

}

catch(...)

{

Application->MessageBoxA("Невозможно установить соединение с БД!", "Проблема соединения", MB_OK + MB_ICONSTOP);

}

}

//--------------------------------------------------------------------------void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

try {

DB1->Connected = false;

Transaction1->Active = false;

} catch (EIBInterBaseError&) {

}

}

//--------------------------------------------------------------------------void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)

{

if (Application->MessageBoxA("Вы действительно хотите завершить работу с интерфейсом составителя шаблонов?", "Завершение работы", MB_YESNO + MB_ICONQUESTION) == IDYES)

{

if (Form1->in_progress)

{

if (Application->MessageBoxA("Внимание! Имеется несохраненная информация! После выхода она будет утеряна! Продолжить?", "Завершение работы", MB_YESNO + MB_ICONQUESTION) == IDNO)

{

CanClose = false;

return;

}

}

Form1->Close();

}

else

CanClose = false;

}

//--------------------------------------------------------------------------Sp_shabl

//--------------------------------------------------------------------------#include <vcl.h>

#pragma hdrstop

#include "sp_shabl.h"

#include "Main.h"

#include "Unit2.h"

//--------------------------------------------------------------------------#pragma package(smart_init)

#pragma link "RzPanel"

#pragma link "RzButton"

#pragma link "RzChkLst"

#pragma link "RzLstBox"

#pragma link "RzBckgnd"

#pragma link "RzLabel"

#pragma link "RzDBGrid"

#pragma resource "*.dfm"

TFrame8 *Frame8;

//--------------------------------------------------------------------------__fastcall TFrame8::TFrame8(TComponent* Owner)

: TFrame(Owner)

{

}

//--------------------------------------------------------------------------bool TForm1::Z_spshabl(int kod_shabl)

{

// Берем всю информацию о шаблоне перед его изменением

if (Application->MessageBoxA("Изменить выбранный шаблон", "Работа с шаблонами", MB_YESNO + MB_ICONQUESTION) == IDYES) {

SDann dn;

map<int, SDann>::iterator it;

it = Form1->list.shabl.begin();

it = Form1->list.shabl.find(Form1->Frame81->Spisok->ItemIndex);

dn = (*it).second;

Form1->kod_shabl = dn.kod_sh;

Form1->id.type_shabl = dn.type_shabl;

Form1->id.tema_shabl = dn.tema_shabl;

Form1->id.time_t = dn.time_t;

Form1->id.f_lev = dn.f_lev;

Form1->id.s_lev = dn.s_lev;

Form1->id.t_lev = dn.t_lev;

Form1->id.date_cr = dn.date_cr;

Form1->id.time_cr = dn.time_cr;

Form1->Frame21->Type_Group->ItemIndex = Form1->id.type_shabl;

Form1->Frame41->Time_Group->ItemIndex = Form1->id.time_t;

Form1->Frame51->F_Level->Value = Form1->id.f_lev;

Form1->Frame51->S_Level->Value = Form1->id.s_lev;

Form1->Frame51->T_Level->Value = Form1->id.t_lev;

Form1->in_progress = true;

switch (Form1->ed_delTime_t->AsInteger)

{

case 15:

{

Form1->id.time_t = 0;

break;

}

case 20:

{

Form1->id.time_t = 1;

break;

}

case 25:

{

Form1->id.time_t = 2;

break;

}

case 30:

{

Form1->id.time_t = 3;

break;

}

case 0:

{

Form1->id.time_t = 4;

break;

}

}

Form1->Frame41->Time_Group->ItemIndex = Form1->id.time_t;

return true;

}

else

return false;

}

//--------------------------------------------------------------------------void TForm1::DelShabl(int kod_shabl)

{

// Удаляем шаблон

if (Application->MessageBoxA("Удалить выбранный шаблон?", "Работа с шаблонами", MB_YESNO + MB_ICONQUESTION) == IDYES) {

try

{

SDann dn;

map<int, SDann>::iterator it;