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

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzLabel"

#pragma link "RzPanel"

#pragma link "RzRadGrp"

#pragma link "RzDBGrid"

#pragma link "RzCmboBx"

#pragma link "RzDBCmbo"

#pragma resource "*.dfm"

TFrame3 *Frame3;

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

: TFrame(Owner)

{

}

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

{

Form1->Frame31->Visible=false;

Form1->Frame21->Visible=true;

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

}

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

{

// Если выбрали тему – идем дальше

if (Type_SR->ItemIndex != -1) {

Form1->Frame41->Time_Group->ItemEnabled[4] = false;

Form1->id.sr_info = Type_SR->ItemIndex;

}

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

if (Form1->id.tema_shabl == NULL) {

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

return;

}

else {

Form1->Frame71->Ltemsh->Caption = Form1->nazvNaim->AsString;

Form1->Frame31->Visible=false;

Form1->Frame41->Visible=true;

}

}

//--------------------------------------------------------------------------void __fastcall TFrame3::VidsSelect(TObject *Sender)

{

// Выбираем подтему

AnsiString fil;

fil = "select * from \"Tems\" where \"Vid\" = "+Vids->Value+" and \"Kod\" = "+IntToStr(Form1->id.type_shabl);

Form1->nazv->Close();

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

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

Form1->nazv->Open();

Form1->nazv->First();

}

//--------------------------------------------------------------------------Папка “Main\Units” Unit4

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

#pragma hdrstop

#include "Unit4.h"

#include "Unit3.h"

#include "Main.h"

#include "Unit5.h"

#include "Unit3_1.h"

#include "Unit3_2.h"

#include "Unit3_3.h"

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

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzLabel"

#pragma link "RzPanel"

#pragma link "RzRadGrp"

#pragma resource "*.dfm"

TFrame4 *Frame4;

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

: TFrame(Owner)

{

}

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

{

// Идем назад

TLocateOptions Opts;

Opts.Clear();

Opts << loPartialKey;

Form1->Frame41->Visible=false;

Form1->Frame31->Visible=true;

Form1->nazv->Locate("Sh", Form1->id.tema_shabl, Opts);

}

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

{

// Выбираем время

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

Form1->Frame71->Ltime->Caption = Time_Group->Items->ValueFromIndex[Time_Group->ItemIndex];

if (Form1->Frame31->Type_SR->ItemIndex == 0) {

Form1->Frame71->Visible = true;

}

else

Form1->Frame51->Visible = true;

Form1->Frame41->Visible = false;

}

//--------------------------------------------------------------------------Папка “Main\Units” Unit5