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

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

: TFrame(Owner)

{

}

//--------------------------------------------------------------------------void TForm1::Sp_shabs()

{

// Получаем список всех шаблонов

try {

if (!Form1->DB1->Connected) {

Form1->DB1->Connected = true;

Form1->Transaction1->Active = true;

}

Form1->ed_del->Close();

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

Form1->ed_del->SQL->Add("select * from \"Shablons\" where \"Sost\" = "+IntToStr(Form1->id.sost));

Form1->ed_del->Open();

Form1->Frame81->Spisok->Clear();

AnsiString str1, str2;

int i = 0;

while (!Form1->ed_del->Eof)

{

Form1->id.kod_sh = Form1->ed_delSh->AsInteger;

Form1->id.type_shabl = Form1->ed_delType->AsInteger;

Form1->id.tema_shabl = Form1->ed_delTema->AsInteger;

Form1->id.time_t = Form1->ed_delTime_t->AsInteger;

Form1->id.f_lev = Form1->ed_delF_level->AsInteger;

Form1->id.s_lev = Form1->ed_delS_level->AsInteger;

Form1->id.t_lev = Form1->ed_delT_level->AsInteger;

Form1->id.date_cr = Form1->ed_delDate_cr->AsDateTime;

Form1->id.time_cr = Form1->ed_delTime_cr->AsDateTime;

switch (Form1->ed_delType->AsInteger) {

case 0:

{

str1 = "Практическое задание";

break;

}

case 1:

{

str1 = "Лабораторная работа";

break;

}

case 2:

{

str1 = "Самостоятельная работа";

break;

}

case 3:

{

str1 = "Экзамен";

break;

}

}

str2 = "select * from \"Tems\" where \"Sh\" = "+IntToStr(Form1->id.tema_shabl);

Form1->nazv->Close();

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

Form1->nazv->SQL->Add(str2);

Form1->nazv->Open();

Form1->Frame81->Spisok->Items->Add(str1+"\t"+Form1->nazvNaim->AsString);

Form1->list.shabl[i] = Form1->id;

Form1->ed_del->Next();

i++;

}

}

catch (EIBInterBaseError&) {

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

}

}

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

{

Form1->Close();

}

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

{

// Начинаем работать с шаблоном (в зависимости от того, что нужно)

switch(MainGroup->ItemIndex)

{

case 0:

{

Form1->nshabl = true;

Form1->in_progress = true;

Form1->Frame11->Visible=false;

Form1->Frame21->Visible=true;

break;

}

case 1:

{

Form1->Frame11->Visible=false;

Form1->Frame81->Visible=true;

Form1->Sp_shabs();

Form1->Frame81->RzBitBtn2->Glyph->Assign(Form1->Frame81->Image2->Picture);

Form1->Frame81->deistv = 1; // Изменение

break;

}

case 2:

{

Form1->Frame11->Visible=false;

Form1->Frame81->Visible=true;

Form1->Sp_shabs();

Form1->Frame81->RzBitBtn2->Glyph->Assign(Form1->Frame81->Image1->Picture);

Form1->Frame81->deistv = 0; // Удаление

break;

}

}

}

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

Папка “Main\Units” Unit2

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

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Main.h"

#include "Unit7.h"

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

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzLabel"

#pragma link "RzPanel"