{

if(Photo->Execute())

fPhoto->Picture->LoadFromFile(Photo->FileName);

fPhoto->CopyToClipboard();

fPhoto->PasteFromClipboard();

}

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

void __fastcall TForm3::BitBNaytiClick(TObject *Sender)

{

TLocateOptions Options; //организация метода Locate

// поиск по названию страны

Options.Clear();

if (!DataModulTurAg->TVibStrani->Locate("Strana",Edit2->Text,Options))

ShowMessage ("Не найдено такой страны" + Edit2->Text);

}

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

void __fastcall TForm3::FormShow(TObject *Sender)

{

int n;

AnsiString stDay[7] = {"воскреcенье","понедельник","вторник","среда",

"четверг","пятница","суббота"};

AnsiString stMonth[12] = {"января","февраля","марта","апреля",

"мая","июня","июля","августа","сентября",

"октября","ноября","декабря"};

TDateTime Todey;

Word Year, Month, Day;

EStrana->Clear();

//--------- определение min стоимости тура ---------------------------------

DataModulTurAg->TVibStrani->Refresh();

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TVibStrani->First();

for (int i=0;i<DataModulTurAg->TVibStrani->RecordCount;i++)

{

QMin->Close();

QMin->Params->Items[0]->AsString=

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString;

if (QMin->Prepared)

QMin->Prepare();

QMin->Open();

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Stoim")->AsCurrency=

QMin->FieldByName("MIN OF Cena")->AsCurrency;

DataModulTurAg->TVibStrani->Post();

DataModulTurAg->TVibStrani->Next();

}

DataModulTurAg->TVibStrani->First();

//--------------------- Вычисление сегодняшней даты ----------------------------

Todey = Now();

DecodeDate(Todey, Year, Month, Day);

Label8-> Caption = "Сегодня: " + IntToStr(Day) + " " + stMonth[Month-1] + " " +

IntToStr(Year) + " года, " + stDay[DayOfWeek(Todey) -1];

//---------------- организация вывода количества туров ------------------------

DataModulTurAg->TVibStrani->First();

DataModulTurAg->TTuri->First();

for (int i=0;i<DataModulTurAg->TVibStrani->RecordCount;i++)

{

for (int j=0;j<DataModulTurAg->TTuri->RecordCount;j++)

{

n=DataModulTurAg->TVibStrani->FieldByName("Putev")->AsInteger;

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Putev")->AsInteger=n;

DataModulTurAg->TVibStrani->Post();

DataModulTurAg->TVibStrani->Next();

}

}

DataModulTurAg->TVibStrani->First();

}

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

void __fastcall TForm3::BitBtn2Click(TObject *Sender)

{

WinHelp(Form3,"MHelp\\TurAgHelp.hlp",HELP_INDEX,0);

}

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

void __fastcall TForm3::BitBtn3Click(TObject *Sender)

{

if (Application->MessageBox (

"Вы действительно хотите завершить работу?",

"Подтвердите выход из программы",

MB_YESNOCANCEL + MB_ICONQUESTION) != IDYES)

Abort () ;

Application->Terminate();

}

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

void __fastcall TForm3::BNaytiClick(TObject *Sender)

{

if ((Edit4->Text).Length() == 0)

{

MessageDlg("Укажите длительность 'от' ", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Edit4->Handle);

return;

}

if ((Edit5->Text).Length() == 0)

{

MessageDlg("Укажите длительность 'до' ", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Edit5->Handle);

return;

}

if ((Cena1->Text).Length() == 0)

{

MessageDlg("Укажите начальную цену", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Cena1->Handle);

return;

}

if ((Cena2->Text).Length() == 0)

{

MessageDlg("Укажите конечную цену", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Cena2->Handle);

return;

}

if ((Edit4->Text).Length() > (Edit5->Text).Length())

{

MessageDlg("Неверно указано количество дней пребывания", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Edit5->Handle);

return;

}

if ((Cena1->Text).Length() > (Cena2->Text).Length())

{

MessageDlg("Цена конечная больше цены начальной", mtInformation, TMsgDlgButtons()

<< mbOK, 0);

::SetFocus(Cena2->Handle);

return;

}

DataModulTurAg->QSort2->Close();

DataModulTurAg->QSort2->Params->Items[0]->AsString=Strana->Text;

DataModulTurAg->QSort2->Params->Items[1]->AsDateTime=Date1->Date;

DataModulTurAg->QSort2->Params->Items[2]->AsDateTime=Date2->Date;

DataModulTurAg->QSort2->Params->Items[3]->AsInteger=StrToInt(Edit4->Text);

DataModulTurAg->QSort2->Params->Items[4]->AsInteger=StrToInt(Edit5->Text);

DataModulTurAg->QSort2->Params->Items[5]->AsCurrency=StrToCurr(Cena1->Text);

DataModulTurAg->QSort2->Params->Items[6]->AsCurrency=StrToCurr(Cena2->Text);

DataModulTurAg->QSort2->Params->Items[7]->AsString=CBVidTura->Text;

DataModulTurAg->QSort2->Open();

if (DataModulTurAg->QSort2->RecordCount!=0)

DataModulTurAg->DataSTuri->DataSet=DataModulTurAg->QSort2;

else

{

ShowMessage ("По Вашему запросу ничего не найдено");

return;

}

Form2->QTurov->Close();

Form2->QTurov->Params->Items[0]->AsString=Form3->Strana->Text;;

Form2->QTurov->Open();

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Putev")->AsInteger=

Form2->QTurov->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TVibStrani->Post();

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TVibStrani->Refresh();

Form2->Show();

}

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

void __fastcall TForm3::BitBtn4Click(TObject *Sender)

{

Form2->QTurov->Close();

Form2->QTurov->Params->Items[0]->AsString=

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString;

Form2->QTurov->Open();

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Putev")->AsInteger=

Form2->QTurov->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TVibStrani->Post();

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->DataSTuri->DataSet=DataModulTurAg->TTuri;

Form2->Show();

}

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

void __fastcall TForm3::BitBtn4MouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

BitBtn4->Font->Color=clRed;

}

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

void __fastcall TForm3::FormMouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

BitBtn1->Font->Color=clBlack;

BitBtn2->Font->Color=clBlack;

BitBtn3->Font->Color=clBlack;

BitBtn4->Font->Color=clBlack;

BitBtn6->Font->Color=clBlack;

}

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

void __fastcall TForm3::BitBtn1MouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

BitBtn1->Font->Color=clRed;

}

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

void __fastcall TForm3::BitBtn2MouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

BitBtn2->Font->Color=clRed;

}

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

void __fastcall TForm3::BitBtn3MouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

BitBtn3->Font->Color=clRed;

}

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

void __fastcall TForm3::BitBtn5MouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

BitBtn6->Font->Color=clGreen;

}

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

void __fastcall TForm3::BInsertClick(TObject *Sender)

{

DataModulTurAg->TVibStrani->Insert();

EStrana->Clear();

EStrana->SetFocus();

}

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

void __fastcall TForm3::BSaveClick(TObject *Sender)

{

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString=EStrana->Text;

DataModulTurAg->TVibStrani->Post();

}

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

void __fastcall TForm3::BDeleteClick(TObject *Sender)

{

DataModulTurAg->TVibStrani->Delete();

}

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

void __fastcall TForm3::EStranaKeyPress(TObject *Sender, char &Key)

{

if ((Key>='А')&&(Key<='я'))

return;

else Key=0;

}

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

void __fastcall TForm3::BEditClick(TObject *Sender)

{

EStrana->Text=DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString;

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString=EStrana->Text;

DataModulTurAg->TVibStrani->Post();

}

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

void __fastcall TForm3::BitBtn5Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm3::BitBtn7Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm3::BitBtn9Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm3::BitBtn11Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm3::BitBtn12Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm3::BitBtn13Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm3::StranaKeyPress(TObject *Sender, char &Key)

{

if ((Key>='А')&&(Key<='я')||(Key==' '))

return;

else Key=0;

}

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

void __fastcall TForm3::Cena2KeyPress(TObject *Sender, char &Key)

{

if ((Key>='0')&&(Key<='9'))

return;

else Key=0;

}

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

void __fastcall TForm3::Cena1KeyPress(TObject *Sender, char &Key)

{

if ((Key>='0')&&(Key<='9'))

return;

else Key=0;

}

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

Листинг формы «Каталог туров»

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

#include <vcl.h>

#pragma hdrstop

#include "TuriPoRussii.h"

#include "ViborGoroda.h"

#include "Turi.h"

#include "PoiskPoDate.h"

#include "ZaprosPoCene.h"

#include "Brony.h"

#include "Dobav.h"

#include "ZapOTuristah.h"

#include "jpeg.hpp"

#include "DModulTurAg.h"

#include "PoiskPoDatam.h"

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

#pragma package(smart_init)

#pragma link "CSPIN"

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::BitBtn5Click(TObject *Sender)

{

DataModulTurAg->TVibStrani->Refresh();

Form3->Show();

}

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

void __fastcall TForm2::InsertTurClick(TObject *Sender)

{

DataModulTurAg->TTuri->Insert();

FormDobav->Tag=0;

FormDobav->DBEKod->Clear();

FormDobav->DBENameHotel->Clear();

FormDobav->ShowModal();

if (FormDobav->Tag)

{

DataModulTurAg->TTuri->Refresh();

}

}

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

void __fastcall TForm2::N3Click(TObject *Sender)

{

FormDobav->Tag=0;

FormDobav->ShowModal();

}

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

void __fastcall TForm2::N4Click(TObject *Sender)

{

DataModulTurAg->TTuri->Delete();

}

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

void __fastcall TForm2::DiapazonDatClick(TObject *Sender)

{

Form7->Tag=0;

Form7->ShowModal(); //отбражает окно запроса

if (Form7->Tag)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="((DataZaezda>='"+DateToStr(Form7->DDate1->Date)+

"')AND(DataZaezda<='"+DateToStr(Form7->DDate2->Date)+"'))";

DataModulTurAg->TTuri->Filtered=true;

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

}

}

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

void __fastcall TForm2::N12Click(TObject *Sender)

{

FormDiapazonCen->Tag=0;

FormDiapazonCen->ShowModal();

if (FormDiapazonCen->Tag)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="((Cena>='"+CurrToStr(FormDiapazonCen->Edit2->Text)+

"')AND(Cena<='"+CurrToStr(FormDiapazonCen->Edit3->Text)+"'))";

DataModulTurAg->TTuri->Filtered=true;

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

}

}

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

void __fastcall TForm2::BZakazClick(TObject *Sender)

{

FormBrony->EZakaz->Clear();

FormBrony->Fam->Clear();

FormBrony->Name->Clear();

FormBrony->Ot->Clear();

FormBrony->N->Clear();

FormBrony->Ser->Clear();

FormBrony->Tel->Clear();

FormBrony->Show();

}

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

void __fastcall TForm2::VseZapPoiskClick(TObject *Sender)

{

DataModulTurAg->DataSTuri->DataSet=DataModulTurAg->TTuri;

}

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

void __fastcall TForm2::NParamClick(TObject *Sender)

{

FormPodborTura->Tag=0;

FormPodborTura->ShowModal();

if (FormPodborTura->Tag)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="((VidTura='"+

FormPodborTura->CBoxTur->Text+"')AND((DataZaezda>='"+

DateToStr(FormPodborTura->DData1->Date)+

"')AND(DataZaezda<='"+DateToStr(FormPodborTura->DData2->Date)+

"'))AND((KolDney>='"+StrToInt(FormPodborTura->Edit4->Text)+"')AND(KolDney<='"+

StrToInt(FormPodborTura->Edit3->Text)+"'))AND((Cena>="+

CurrToStr(FormPodborTura->Edit6->Text)+

")AND(Cena<="+CurrToStr(FormPodborTura->Edit5->Text)+")))";

DataModulTurAg->TTuri->Filtered=true;

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

}

DataModulTurAg->TTuri->Refresh();

}

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

void __fastcall TForm2::N9Click(TObject *Sender)

{

FormZapOTuristah->ShowModal();

}

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

void __fastcall TForm2::DBGTuriDrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

AnsiString s,a;

s= DataModulTurAg->TTuri->FieldByName(Column->FieldName)->AsString;

if (Column->FieldName == "KolMest")

{

DBGTuri->Canvas->Font->Color = clRed;

DBGTuri->Canvas->FillRect(Rect);

DBGTuri->Canvas->TextOut(Rect.Left+2,Rect.Top,s);

}

a= DataModulTurAg->TTuri->FieldByName(Column->FieldName)->AsString;

if (Column->FieldName == "Ost")

{

DBGTuri->Canvas->Font->Color = clGreen;

DBGTuri->Canvas->FillRect(Rect);

DBGTuri->Canvas->TextOut(Rect.Left+2,Rect.Top,a);

}

}

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

void __fastcall TForm2::BitBtn1Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm2::BitBtn6Click(TObject *Sender)

{

AnsiString hotvib=LCHotel->Text;

AnsiString hot;

DataModulTurAg->TTuri->First();

for (int i=0;i<DataModulTurAg->TTuri->RecordCount;i++)

{

hot=DataModulTurAg->TTuri->FieldByName("Hotel")->AsString;

if (hotvib == hot)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="Hotel='"+LCHotel->Text+"'";

DataModulTurAg->TTuri->Filtered=true;

DataModulTurAg->TTuri->Next();

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

return;

}

else DataModulTurAg->TTuri->Next();

}

ShowMessage("Туров с названием такого отеля нет");

}

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

void __fastcall TForm2::BitVypClick(TObject *Sender)

{

DataModulTurAg->TTuri->Cancel();

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filtered=true;

DataModulTurAg->TTuri->Filter="((KolMest>="+(EKol1->Text)+")and(KolMest<="+

(EKol2->Text)+ "))and((DataZaezda>='"+DateToStr(DTData1->Date)+

"')and(DataZaezda<='"+DateToStr(DTData2->Date)+"'))";

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

}

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

void __fastcall TForm2::BitBtn8Click(TObject *Sender)

{

DataModulTurAg->TTuri->Filtered=false;

QTurov->Close();

QTurov->Params->Items[0]->AsString=

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString;

QTurov->Open();

Edit1->Clear();

Edit2->Clear();

Edit3->Clear();

Edit4->Clear();

EKol1->Clear();

EKol2->Clear();

}

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

void __fastcall TForm2::FormShow(TObject *Sender)

{///--------- вычисление числа свободных путевок (остатка) ----------------------

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TTuri->First();

for (int i=0;i<DataModulTurAg->TTuri->RecordCount;i++)

{

Form2->QueryTurist->Close();

Form2->QueryTurist->Cancel();

Form2->QueryTurist->Params->Items[0]->AsString=

DataModulTurAg->TTuri->FieldByName("Tur")->AsString;

if (Form2->QueryTurist->Prepared)

Form2->QueryTurist->Prepare();

Form2->QueryTurist->Open();

DataModulTurAg->TZakaz->Edit();

DataModulTurAg->TZakaz->FieldByName("Vsego")->AsInteger=

Form2->QueryTurist->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TTuri->Edit();

DataModulTurAg->TTuri->FieldByName("Ost")->AsInteger=

DataModulTurAg->TTuri->FieldByName("KolMest")->AsInteger -

DataModulTurAg->TZakaz->FieldByName("Vsego")->AsInteger;

DataModulTurAg->TTuri->Post();

DataModulTurAg->TTuri->Next();

}

DataModulTurAg->TTuri->First();

//---------- определение общего числа туров --------------------------------

QTurov->Close();

QTurov->Params->Items[0]->AsString=

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString;

QTurov->Open();

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Putev")->AsInteger=

QTurov->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TVibStrani->Post();

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TVibStrani->Refresh();

}

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

void __fastcall TForm2::BPoiskVidTuraClick(TObject *Sender)

{

AnsiString VidTurVib=CBDep->Text;

AnsiString VidTur;

DataModulTurAg->TTuri->First();

for (int i=0;i<DataModulTurAg->TTuri->RecordCount;i++)

{

VidTur=DataModulTurAg->TTuri->FieldByName("VidTura")->AsString;

if (VidTurVib == VidTur)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="VidTura='"+CBDep->Text+"'";

DataModulTurAg->TTuri->Filtered=true;

DataModulTurAg->TTuri->Next();

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

return;

}

else DataModulTurAg->TTuri->Next();

}

ShowMessage("Туров с указанным видом нет");

}

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

void __fastcall TForm2::N10Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm2::N18Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TForm2::RBPoisk1Click(TObject *Sender)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="(KolDney>='"+(Edit1->Text)+"')AND(KolDney<='"+

(Edit4->Text)+"')";

DataModulTurAg->TTuri->Filtered=true;

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

}

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

void __fastcall TForm2::RBPoisk2Click(TObject *Sender)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter="(Ost>='"+(Edit2->Text)+"')AND(Ost<='"+(Edit3->Text)+"')";

DataModulTurAg->TTuri->Filtered=true;

DBETuri->Text=IntToStr(DataModulTurAg->TTuri->RecordCount);

}

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

void __fastcall TForm2::N11Click(TObject *Sender)

{

WinHelp(Form2,"MHelp\\TurAgHelp.hlp",HELP_INDEX,0);

}

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

void __fastcall TForm2::N7Click(TObject *Sender)

{

if (Application->MessageBox (

"Вы действительно хотите завершить работу?",

"Подтвердите выход из программы",

MB_YESNOCANCEL + MB_ICONQUESTION) != IDYES)

Abort () ;

Application->Terminate();

}

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

Листинг формы «Добавление / редактирование сведений о турах»

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

#include <vcl.h>

#pragma hdrstop

#include "Dobav.h"

#include "TuriPoRussii.h"

#include "ViborGoroda.h"

#include "DModulTurAg.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormDobav *FormDobav;

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

__fastcall TFormDobav::TFormDobav(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormDobav::BSaveAndExitClick(TObject *Sender)

{

if (Application->MessageBox (

"Внести изменения?",

"Подтвердите свои действия",

MB_YESNOCANCEL + MB_ICONQUESTION) != IDYES)

Abort () ;

DataModulTurAg->TTuri->Edit();

DataModulTurAg->TTuri->FieldByName("VidTura")->AsString=CBVidTura->Text;

DataModulTurAg->TTuri->FieldByName("Hotel")->AsString=

DataModulTurAg->THotelLookUp->FieldByName("NameHotel")->AsString;

DataModulTurAg->TTuri->Post();

//----------- вычисление количества туров -------------------

Form2->QTurov->Close();

Form2->QTurov->Params->Items[0]->AsString=

DataModulTurAg->TVibStrani->FieldByName("Strana")->AsString;

Form2->QTurov->Open();

DataModulTurAg->TVibStrani->Edit();

DataModulTurAg->TVibStrani->FieldByName("Putev")->AsInteger=

Form2->QTurov->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TVibStrani->Post();

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TVibStrani->Refresh();

//--------- вычисление количества свободных путевок (остаток) ----------------------

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TTuri->First();

for (int i=0;i<DataModulTurAg->TTuri->RecordCount;i++)

{

Form2->QueryTurist->Close();

Form2->QueryTurist->Cancel();

Form2->QueryTurist->Params->Items[0]->AsString=

DataModulTurAg->TTuri->FieldByName("Tur")->AsString;

if (Form2->QueryTurist->Prepared)

Form2->QueryTurist->Prepare();

Form2->QueryTurist->Open();

DataModulTurAg->TZakaz->Edit();

DataModulTurAg->TZakaz->FieldByName("Vsego")->AsInteger=

Form2->QueryTurist->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TTuri->Edit();

DataModulTurAg->TTuri->FieldByName("Ost")->AsInteger=

DataModulTurAg->TTuri->FieldByName("KolMest")->AsInteger -

DataModulTurAg->TZakaz->FieldByName("Vsego")->AsInteger;

DataModulTurAg->TTuri->Post();

DataModulTurAg->TTuri->Next();

}

DataModulTurAg->TTuri->First();

Tag=1;

Close();

}

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

void __fastcall TFormDobav::BitBPoiskClick(TObject *Sender)

{

TLocateOptions Options; //организация метода Locate - поиск по названию отеля

Options.Clear();

if (!DataModulTurAg->TLookUpOtely->Locate("Otely",Edit1->Text,Options))

ShowMessage ("Такого отеля в списке нет" + Edit1->Text);

}

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

void __fastcall TFormDobav::BitBtn4Click(TObject *Sender)

{

DBEKod->Clear();

DBENameHotel->Clear();

DataModulTurAg->TTuri->Edit();

DataModulTurAg->TTuri->FieldByName("VidTura")->AsString=CBVidTura->Text;

DataModulTurAg->TTuri->FieldByName("Hotel")->AsString=

DataModulTurAg->THotelLookUp->FieldByName("NameHotel")->AsString;

DataModulTurAg->TTuri->Post();

DataModulTurAg->TTuri->Insert();

}

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

void __fastcall TFormDobav::DBEDlitKeyPress(TObject *Sender, char &Key)

{

if ((Key>='0')&&(Key<='9'))

return;

else Key=0;

}

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

void __fastcall TFormDobav::DTPDobavlenCloseUp(TObject *Sender)

{

DataModulTurAg->TTuri->Edit();

DataModulTurAg->TTuri->FieldByName("DataZaezda")->AsDateTime=DTPDobavlen->Date;

DataModulTurAg->TTuri->Post();

}

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

void __fastcall TFormDobav::DBETurKeyPress(TObject *Sender, char &Key)

{

if ((Key>='А')&&(Key<='я'))

return;

else Key=0;

}

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

void __fastcall TFormDobav::DFotoClick(TObject *Sender)

{

if (OpenPicture->Execute())

DFoto->Picture->LoadFromFile(OpenPicture->FileName);

DFoto->CopyToClipboard();

DFoto->PasteFromClipboard();

}

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

Листинг формы «О клиентах»

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

#include <vcl.h>

#pragma hdrstop

#include "ZapOTuristah.h"

#include "DModulTurAg.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormZapOTuristah *FormZapOTuristah;

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

__fastcall TFormZapOTuristah::TFormZapOTuristah(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormZapOTuristah::BitCloseClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormZapOTuristah::BitHelpClick(TObject *Sender)

{

WinHelp(FormZapOTuristah,"MHelp\\TurAgHelp.hlp",HELP_INDEX,0);

}

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

void __fastcall TFormZapOTuristah::FormShow(TObject *Sender)

{

QueryOTuristah->Close();

QueryOTuristah->Params->Items[0]->AsString=

DataModulTurAg->TTuri->FieldByName("Tur")->AsString;

if (! QueryOTuristah->Prepared)

{

QueryOTuristah->Prepare();

}

QueryOTuristah->Open();

if (QueryOTuristah->RecordCount!=0)

{

DataSOTuristah->DataSet=QueryOTuristah;

}

else { ShowMessage ("По Вашему запросу ничего ненайдено");

return;

}

Edit1->Text=IntToStr(DataModulTurAg->TZakaz->RecordCount);

}

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

Листинг формы «Запрос на отбор данных в диапазоне дат»

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

#include <vcl.h>

#pragma hdrstop

#include "PoiskPoDatam.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

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

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm7::FormShow(TObject *Sender)

{

DDate2->SetFocus();

DDate1->SetFocus();

}

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

void __fastcall TForm7::BitBtn1Click(TObject *Sender)

{

Tag=1; //нажата кнопка Найти

Close();

}

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

Листинг формы «Запрос на отбор данных в диапазоне цен»

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

#include <vcl.h>

#pragma hdrstop

#include "ZaprosPoCene.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormDiapazonCen *FormDiapazonCen;

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

__fastcall TFormDiapazonCen::TFormDiapazonCen(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormDiapazonCen::FormShow(TObject *Sender)

{

Cena2->SetFocus();

Cena1->SetFocus();

}

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

void __fastcall TFormDiapazonCen::BitBtn1Click(TObject *Sender)

{

Tag=1;

Close();

}

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

Листинг формы «Бронирование туров»

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

#include <vcl.h>

#pragma hdrstop

#include "Brony.h"

#include "ViborGoroda.h"

#include "TuriPoRussii.h"

#include "Turi.h"

#include "Otchet.h"

#include "DModulTurAg.h"

#include "KartaTurista.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormBrony *FormBrony;

Currency KonCena1=0,KonCena2=0,KonCena3=0,KonCena4=0;

Currency cena,cenaPr20,cenaPr5;

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

__fastcall TFormBrony::TFormBrony(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormBrony::BKatalogTurClick(TObject *Sender)

{

//--------- вычисление свободных путевок (остаток) ----------------------

DataModulTurAg->TTuri->Refresh();

DataModulTurAg->TTuri->First();

for (int i=0;i<DataModulTurAg->TTuri->RecordCount;i++)

{

Form2->QueryTurist->Close();

Form2->QueryTurist->Cancel();

Form2->QueryTurist->Params->Items[0]->AsString=

DataModulTurAg->TTuri->FieldByName("Tur")->AsString;

if (Form2->QueryTurist->Prepared)

Form2->QueryTurist->Prepare();

Form2->QueryTurist->Open();

DataModulTurAg->TZakaz->Edit();

DataModulTurAg->TZakaz->FieldByName("Vsego")->AsInteger=

Form2->QueryTurist->FieldByName("COUNT(*)")->AsInteger;

DataModulTurAg->TTuri->Edit();

DataModulTurAg->TTuri->FieldByName("Ost")->AsInteger=

DataModulTurAg->TTuri->FieldByName("KolMest")->AsInteger -

DataModulTurAg->TZakaz->FieldByName("Vsego")->AsInteger;

DataModulTurAg->TTuri->Post();

DataModulTurAg->TTuri->Next();

}

DataModulTurAg->TTuri->First();

Form2->Show();

}

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

void __fastcall TFormBrony::BitBtn2Click(TObject *Sender)

{

WinHelp(FormBrony,"MHelp\\TurAgHelp.hlp",HELP_INDEX,0);

}

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

void __fastcall TFormBrony::BitInsertClick(TObject *Sender)

{

EZakaz->SetFocus();

EZakaz->Clear();

Fam->Clear();

Name->Clear();

Ot->Clear();

N->Clear();

Ser->Clear();

DataModulTurAg->TZakaz->Insert();

}

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

void __fastcall TFormBrony::BitEditClick(TObject *Sender)

{

int RecordNumber;

AnsiString as=EZakaz->Text;

AnsiString bs;

DataModulTurAg->TZakaz->Edit();

EZakaz->Text=DataModulTurAg->TZakaz->FieldByName("Zakaz")->AsString;

Fam->Text=DataModulTurAg->TZakaz->FieldByName("Fam")->AsString;

Name->Text=DataModulTurAg->TZakaz->FieldByName("Imy")->AsString;

Ot->Text=DataModulTurAg->TZakaz->FieldByName("Otchestvo")->AsString;

CBPol->Text=DataModulTurAg->TZakaz->FieldByName("Pol")->AsString;

CBVozr->Text=DataModulTurAg->TZakaz->FieldByName("Vozr")->AsString;

CBDen->Text=DataModulTurAg->TZakaz->FieldByName("Den")->AsInteger;

CBMes->Text=DataModulTurAg->TZakaz->FieldByName("Mes")->AsString;

CBGod->Text=DataModulTurAg->TZakaz->FieldByName("God")->AsInteger;

Nom->Text=DataModulTurAg->TZakaz->FieldByName("ZPnom")->AsInteger;

Ser->Text=DataModulTurAg->TZakaz->FieldByName("ZPser")->AsString;

DateTPData->Date=DataModulTurAg->TZakaz->FieldByName("ZPdeystv")->AsDateTime;

Tel->Text=DataModulTurAg->TZakaz->FieldByName("Tel")->AsString;

}

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

void __fastcall TFormBrony::BitSaveClick(TObject *Sender)

{

int RecordNumber;

AnsiString as=EZakaz->Text;

AnsiString bs;

if ((Fam->Text).Length() == 0)

{

MessageDlg("Введите фамилию", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Fam->Handle);

return;

}

if ((Name->Text).Length() == 0)

{

MessageDlg("Введите имя", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Name->Handle);

return;

}

if ((Ot->Text).Length() == 0)

{

MessageDlg("Введите отчество", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Ot->Handle);

return;

}

if ((EZakaz->Text).Length() == 0)

{

MessageDlg("Введите номер заказа", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(EZakaz->Handle);

return;

}

if ((Nom->Text).Length() == 0)

{

MessageDlg("Введите номер паспорта", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(N->Handle);

return;

}

if ((Ser->Text).Length() == 0)

{

MessageDlg("Введите серию паспорта", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Ser->Handle);

return;

}

if ((Tel->Text).Length() == 0)

{

MessageDlg("Укажите номер телефона", mtInformation, TMsgDlgButtons() << mbOK, 0);

::SetFocus(Tel->Handle);

return;

}

if (EZakaz->Modified)

{

DataModulTurAg->TZakaz->First();

for (int i=0;i<DataModulTurAg->TZakaz->RecordCount;i++)

{

bs=DataModulTurAg->TZakaz->FieldByName("Zakaz")->AsString;

if (as != bs)

{

DataModulTurAg->TZakaz->Next();

}

else

{

MessageDlg("Запсись с таким номером уже есть", mtInformation, TMsgDlgButtons()

<< mbOK, 0);

::SetFocus(EZakaz->Handle);

RecordNumber=DataModulTurAg->TZakaz->RecNo;

return;

}

}

DataModulTurAg->TZakaz->RecNo=RecordNumber;

DataModulTurAg->TZakaz->Edit();

}

DataModulTurAg->TZakaz->Edit();

DataModulTurAg->TZakaz->FieldByName("Zakaz")->AsString=EZakaz->Text;

DataModulTurAg->TZakaz->FieldByName("Fam")->AsString=Fam->Text;

DataModulTurAg->TZakaz->FieldByName("Imy")->AsString=Name->Text;

DataModulTurAg->TZakaz->FieldByName("Otchestvo")->AsString=Ot->Text;

DataModulTurAg->TZakaz->FieldByName("Vozr")->AsString=CBVozr->Text;

DataModulTurAg->TZakaz->FieldByName("Pol")->AsString=CBPol->Text;

DataModulTurAg->TZakaz->FieldByName("Den")->AsString=CBDen->Text;

DataModulTurAg->TZakaz->FieldByName("Mes")->AsString=CBMes->Text;

DataModulTurAg->TZakaz->FieldByName("God")->AsString=CBGod->Text;

DataModulTurAg->TZakaz->FieldByName("ZPnom")->AsString=Nom->Text;

DataModulTurAg->TZakaz->FieldByName("ZPser")->AsString=Ser->Text;

DataModulTurAg->TZakaz->FieldByName("ZPdeystv")->AsDateTime=DateTPData->Date;

DataModulTurAg->TZakaz->FieldByName("Tel")->AsString=Tel->Text;

DataModulTurAg->TZakaz->Post();

}

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

void __fastcall TFormBrony::BitOtchetClick(TObject *Sender)

{

FormOtchet->QROtchet->Preview();

FormOtchet->QROtchet->Print();

}

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

void __fastcall TFormBrony::DateTPDataCloseUp(TObject *Sender)

{

DataModulTurAg->TZakaz->Edit();

DataModulTurAg->TZakaz->FieldByName("ZPdeystv")->AsDateTime=DateTPData->Date;

DataModulTurAg->TZakaz->Post();

}

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

void __fastcall TFormBrony::BitRaschetClick(TObject *Sender)

{

Currency Summ;

Summ=KonCena1+KonCena2+KonCena3+KonCena4;

ECenaSumm->Text=Summ;

}

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

void __fastcall TFormBrony::CBox1Click(TObject *Sender)

{

cena=0,cenaPr20=0,cenaPr5=0;

ECena2->Text=DataModulTurAg->TTuri->FieldByName("Cena")->AsCurrency;

switch (CBox1->ItemIndex)

{

case 0:{ cena=StrToCurr(ECena2->Text);

ECena2->Text=cena;break; }

case 1:{ cena=StrToCurr(ECena2->Text);

cenaPr20=cena-((cena*20)/100);

ECena2->Text=cenaPr20; break;}

case 2:{ cena=StrToCurr(ECena2->Text);

cenaPr5=cena-((cena*5)/100);

ECena2->Text=cenaPr5;break;}

}

KonCena1=ECena2->Text;

}

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

void __fastcall TFormBrony::CBox2Click(TObject *Sender)

{

cena=0,cenaPr20=0,cenaPr5=0;

ECena3->Text=DataModulTurAg->TTuri->FieldByName("Cena")->AsCurrency;

switch (CBox2->ItemIndex)

{

case 0:{ cena=StrToCurr(ECena3->Text);

ECena3->Text=cena;break; }

case 1:{ cena=StrToCurr(ECena3->Text);

cenaPr20=cena-((cena*20)/100);

ECena3->Text=cenaPr20; break;}

case 2:{ cena=StrToCurr(ECena3->Text);

cenaPr5=cena-((cena*5)/100);

ECena3->Text=cenaPr5;break;}

}

KonCena2=ECena3->Text;

}

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

void __fastcall TFormBrony::CBox3Click(TObject *Sender)

{

cena=0,cenaPr20=0,cenaPr5=0;

ECena4->Text=DataModulTurAg->TTuri->FieldByName("Cena")->AsCurrency;

switch (CBox3->ItemIndex)

{

case 0:{ cena=StrToCurr(ECena4->Text);

ECena4->Text=cena;break; }

case 1:{ cena=StrToCurr(ECena4->Text);

cenaPr20=cena-((cena*20)/100);

ECena4->Text=cenaPr20; break;}

case 2:{ cena=StrToCurr(ECena4->Text);

cenaPr5=cena-((cena*5)/100);

ECena4->Text=cenaPr5;break;}

}

KonCena3=ECena4->Text;

}

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

void __fastcall TFormBrony::CBox4Click(TObject *Sender)

{

cena=0,cenaPr20=0,cenaPr5=0;

ECena5->Text=DataModulTurAg->TTuri->FieldByName("Cena")->AsCurrency;

switch (CBox4->ItemIndex)

{

case 0:{ cena=StrToCurr(ECena5->Text);

ECena5->Text=cena;break; }

case 1:{ cena=StrToCurr(ECena5->Text);

cenaPr20=cena-((cena*20)/100);

ECena5->Text=cenaPr20; break;}

case 2:{ cena=StrToCurr(ECena5->Text);

cenaPr5=cena-((cena*5)/100);

ECena5->Text=cenaPr5;break;}

}

KonCena4=ECena5->Text;

}

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

void __fastcall TFormBrony::BitBtn4Click(TObject *Sender)

{

DataModulTurAg->TZakaz->Cancel();

ECena2->Clear();

ECena3->Clear();

ECena4->Clear();

ECena5->Clear();

ECenaSumm->Clear();

}

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

void __fastcall TFormBrony::SaveFileClick(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TFormBrony::DateTime1CloseUp(TObject *Sender)

{

DataModulTurAg->TBilet->Edit();

DataModulTurAg->TBilet->FieldByName("DataOyprav")->AsDateTime=DateTime1->Date;

DataModulTurAg->TBilet->Post();

}

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

void __fastcall TFormBrony::DateTime2CloseUp(TObject *Sender)

{

DataModulTurAg->TBilet->Edit();

DataModulTurAg->TBilet->FieldByName("DataPrib")->AsDateTime=DateTime2->Date;

DataModulTurAg->TBilet->Post();

}

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

void __fastcall TFormBrony::BBronyClick(TObject *Sender)

{

DataModulTurAg->TBilet->Edit();

DataModulTurAg->TBilet->FieldByName("VremNaznach")->AsDateTime=Time2->Date;

DataModulTurAg->TBilet->FieldByName("VremOtprav")->AsDateTime=Time1->Date;

DataModulTurAg->TBilet->FieldByName("Transport")->AsString=CBTransp->Text;

DataModulTurAg->TBilet->FieldByName("DataPrib")->AsDateTime=DateTime2->Date;

DataModulTurAg->TBilet->Post();

}

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

void __fastcall TFormBrony::BEditClick(TObject *Sender)

{

DataModulTurAg->TBilet->Edit();

DataModulTurAg->TBilet->FieldByName("DataPrib")->AsDateTime=DateTime2->Date;

DataModulTurAg->TBilet->Post();

}

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

void __fastcall TFormBrony::BDeleteClick(TObject *Sender)

{

DataModulTurAg->TBilet->Delete();

}

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

void __fastcall TFormBrony::BitDeleteClick(TObject *Sender)

{

DataModulTurAg->TZakaz->Delete();

}

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

void __fastcall TFormBrony::BKartaTuristaClick(TObject *Sender)

{

DataModulTurAg->QKartaTurista->Close();

DataModulTurAg->QKartaTurista->Params->Items[0]->AsString=

DataModulTurAg->TZakaz->FieldByName("Zakaz")->AsString;

DataModulTurAg->QKartaTurista->Open();

FormKartaTurista->QRKartaTurista->Preview();

FormKartaTurista->QRKartaTurista->Print();

}

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

void __fastcall TFormBrony::Time1CloseUp(TObject *Sender)

{

DataModulTurAg->TBilet->Edit();

DataModulTurAg->TBilet->FieldByName("VremOyprav")->AsDateTime=Time1->Date;

DataModulTurAg->TBilet->Post();

}

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

void __fastcall TFormBrony::BitBtn1Click(TObject *Sender)

{

ShowMessage("Извените, но данная функция находится в разработке");

}

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

void __fastcall TFormBrony::N1Click(TObject *Sender)

{

if (Application->MessageBox (

"Вы действительно хотите завершить работу?",

"Подтвердите выход из программы",

MB_YESNOCANCEL + MB_ICONQUESTION) != IDYES)

Abort () ;

Application->Terminate();

}

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

void __fastcall TFormBrony::FamKeyPress(TObject *Sender, char &Key)

{

if ((Key>='А')&&(Key<='я')||(Key=' '))

return;

else Key=0;

}

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

void __fastcall TFormBrony::NameKeyPress(TObject *Sender, char &Key)

{

if ((Key>='А')&&(Key<='я')||(Key=' '))

return;

else Key=0;

}

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

void __fastcall TFormBrony::OtKeyPress(TObject *Sender, char &Key)

{

if ((Key>='А')&&(Key<='я')||(Key=' ')|| (Key='-'))

return;

else Key=0;

}

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

void __fastcall TFormBrony::NKeyPress(TObject *Sender, char &Key)

{

if ((Key>='0')&&(Key<='9'))

return;

else Key=0;

}

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

Листинг формы «Отчет о бронировании туров»

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

#include <vcl.h>

#pragma hdrstop

#include "Otchet.h"

#include "Brony.h"

#include "TuriPoRussii.h"

#include "ViborGoroda.h"

#include "DModulTurAg.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormOtchet *FormOtchet;

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

__fastcall TFormOtchet::TFormOtchet(TComponent* Owner)

: TForm(Owner)

{

}

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

Листинг формы «Туристическая путевка»

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

#include <vcl.h>

#pragma hdrstop

#include "KartaTurista.h"

#include "DModulTurAg.h"

#include "Brony.h"

#include "TuriPoRussii.h"

#include "ViborGoroda.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormKartaTurista *FormKartaTurista;

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

__fastcall TFormKartaTurista::TFormKartaTurista(TComponent* Owner)

: TForm(Owner)

{

}

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

Размещено на Allbest.ru