#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
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.