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

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

it = Form1->list.shabl.find(kod_shabl);

dn = (*it).second;

kod_shabl = dn.kod_sh;

Form1->ins1->Close();

Form1->ins1->SQL->Clear();

Form1->ins1->SQL->Add("delete from \"Shablons\" where \"Sh\" = "+IntToStr(kod_shabl));

Form1->ins1->ExecQuery();

Form1->Transaction1->CommitRetaining();

Form1->Sp_shabs();

Application->MessageBoxA("Выбранный вами шаблон был успешно удален", "Работа с шаблонами", MB_OK + MB_ICONINFORMATION);

}

catch (...)

{

Form1->Transaction1->RollbackRetaining();

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

}

}

}

//--------------------------------------------------------------------------void __fastcall TFrame8::RzBitBtn2Click(TObject *Sender)

{

if (Spisok->ItemIndex >= 0) {

switch (Form1->Frame81->deistv) {

case 0:

{

Form1->DelShabl(Form1->Frame81->Spisok->ItemIndex);

break;

}

case 1:

{

if (Form1->Z_spshabl(Form1->Frame81->Spisok->ItemIndex)) {

Form1->Frame81->Visible=false;

Form1->Frame21->Visible=true;

}

break;

}

}

}

else

Application->MessageBoxA("Сперва необходимо выбрать шаблон из списка", "Работа с шаблонами", MB_OK + MB_ICONSTOP);

}

//--------------------------------------------------------------------------void __fastcall TFrame8::RzBitBtn1Click(TObject *Sender)

{

Form1->Frame81->Visible=false;

Form1->Frame11->Visible=true;

}

//--------------------------------------------------------------------------void __fastcall TFrame8::FrameExit(TObject *Sender)

{

Spisok->Clear();       

}

//--------------------------------------------------------------------------void __fastcall TFrame8::RzBitBtn3Click(TObject *Sender)

{

if (!Panel1->Visible) {

Panel1->Left = 272; //272

Panel1->Width = 297; //297

Panel1->Visible = true;

return;

}

else {

Panel1->Visible = false;

return;

}

}

//--------------------------------------------------------------------------void __fastcall TFrame8::SpisokClick(TObject *Sender)

{

// Вывод детальной информации о шаблоне

Label1->Caption = "Время тестирования: ";

Label2->Caption = "Кол-во легких вопросов: ";

Label3->Caption = " Кол-во средних вопросов: ";

Label4->Caption = " Кол-во сложных вопросов: ";

Label5->Caption = "Дата создания шаблона: ";

Label6->Caption = "Время создания шаблона : ";

SDann dn;

map<int, SDann>::iterator it;

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

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

dn = (*it).second;

Form1->id.sost = dn.sost;

Form1->kod_shabl = dn.kod_sh;

Label1->Caption = Label1->Caption + IntToStr(dn.time_t);

Label2->Caption = Label2->Caption + IntToStr(dn.f_lev);

Label3->Caption = Label3->Caption + IntToStr(dn.s_lev);

Label4->Caption = Label4->Caption + IntToStr(dn.t_lev);

Label5->Caption = Label5->Caption + DateToStr(dn.date_cr);

Label6->Caption = Label6->Caption + TimeToStr(dn.time_cr);

}

//---------------------------------------------------------------------------

Папка “Main\Units” Unit1

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

#pragma hdrstop

#include "Unit1.h"

#include "Main.h"

#include "Unit2.h"

#include "Unit7.h"

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

#pragma link "RzLabel"

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzPanel"

#pragma link "RzRadGrp"

#pragma resource "*.dfm"

TFrame1 *Frame1;