В соответствии с внешними спецификациями, указанными в пункте 5.1, был определен набор функций, необходимых для решения поставленной задачи.

Приложения С++ Builder 5 могут осуществлять доступ к локальным и удаленным базам данных с использованием механизма BDE. BDE представляет собой совокупность динамических библиотек и драйверов, обеспечивающих доступ к данным. Приложение через BDE передает запрос к базе данных, а обратно получает требуемые данные.

Для работы с таблицами баз данных при проектировании приложения используем программу Database Desktop, которая позволяет:

- создавать таблицы;

- изменять структуры;

- редактировать записи.

В начале создания новой таблицы в окне Create Table программы Database Desktop выбирается ее формат. Затем, определяется структура таблицы, в которой выполняются следующие действия:

- описание полей;

- создание ключа;

- задание индексов;

- определение ограничений на значение полей;

- определение условий (ограничений) ссылочной целостности;

- задание паролей;

- задание языкового драйвера;

- задание таблицы для выбора значений.

После определения структуры таблицы сохраняем ее в файл с расширением db. Таблицы базы данных располагаются на диске и являются физическими объектами. Для операции с данными, содержащими в таблицах, используются наборы данных -- которые представляют собой совокупность записей, взятых из одной или нескольких таблиц базы данных.

Базовые возможности доступа к базе данных обеспечивает класс TDataSet, представляющий наборы данных в виде совокупности строк и столбцов (записей и полей). Этот класс содержит основные средства навигации (перемещения) и редактирования наборов данных.

При конструировании формы невизуальные компоненты, используемые для доступа к данным через механизм BDE, такие как DataSource, Table, размещаются в форме, но при выполнении приложения эти компоненты не видны. Поэтому их можно размещать в любом удобном месте формы, которая для них является контейнером -- модулем. Для размещения невизуальных компонентов, через которые осуществляется доступ к данным, предназначен объект -- модуль данных. Модуль данных позволяет:

- отделить управление базой данных от обработки данных;

- создать модуль, совместно используемый несколькими приложениями;

Основным назначением модуля данных является централизованное хранение компонентов доступа к данным. Использование модуля данных несколькими приложениями позволяет ускорить разработку приложений, т. к. готовый модуль данных впоследствии можно включать в новые приложения. Кроме того, управление базой данных через модуль дает возможность определить для всех пользователей одинаковые режимы и правила работы с базой, а так же делает более простым изменение этих режимов и правил.

При разработке программы дипломного проекта рассматривался простой модуль данных, который представлен объектом DataModule -- DataModulTurAg на котором размещены компоненты доступа к данным --

TVibStrani, DataSVibStrani,

TTuri, DataSTuri,

TZakaz, DataSZakaz,

TLookUpOtely, DataSLookUpOtely,

THotelLookUp, DataSHotelLookUp,

TBilet, DataSBilet.

При обращении к содержащимся в модуле данных компонентам для них указывается составное имя, в которое, кроме имени компонента, входит имя модуля данных.

DataModulTurAg->TTuri->Refresh();

Кроме стандартных событийных функций используемых компонентов для решения поставленной задачи в программе используются следующий основной набор функций:

1) добавление данных. Добавление данных происходит при использовании метода Insert() -- вставляет новую пустую запись в таблицу, и делает ее активной. После вставки пустой записи в ее поля можно вводить данные.

void __fastcall TForm2::InsertTurClick(TObject *Sender)

{

DataModulTurAg->TTuri->Insert();

FormDobav->Tag=0;

FormDobav->ShowModal();

if (FormDobav->Tag)

{

DataModulTurAg->TTuri->Refresh();

}

}

2) редактирование данных. Редактирование происходит при помощи метода Edit() -- разрешает редактирование данных в таблице.

void __fastcall TFormBrony::BitEditClick(TObject *Sender)

{

DataModulTurAg->TZakaz->Edit();

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

}

3) удаление данных. Удаление данных происходит при помощи метода Delete() -- удаляет активную запись и устанавливает указатель записи на следующую запись таблицы.

DataModulTurAg->TVibStrani->Delete();

4) сохранение данных. Сохранение данных рассмотрено на примере добавления / редактирования сведений о туре. В случае добавления / редактирования сведений о туре открывается форма «Добавление / редактирование сведений о туре», где пользователю предлагается ввести новые данные, либо отредактировать имеющиеся в таблице базы данных.

void __fastcall TFormDobav::BSaveAndExitClick(TObject *Sender)

{

DataModulTurAg->TTuri->Edit();

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

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

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

DataModulTurAg->TTuri->Post();

}

5) организация быстрого поиска. Поиск в таблице осуществляется при помощи функции Locate(). Эта функция позволяет находить запись в таблице по совокупности значений ее полей и найденную запись делает активной, тем самым открывая доступ к ней. В примере, приведенном ниже, организация поиска представлена на примере поиска по наименованию страны

void __fastcall TForm3::BitBNaytiClick(TObject *Sender)

{ //Организация поиска методом Locate поиск по названию страны

TLocateOptions Options;

Options.Clear();

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

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

}

6) вычисление текущей даты

void __fastcall TForm3::FormShow(TObject *Sender)

{

int n;

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

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

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

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

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

TDateTime Todey;

Word Year, Month, Day;

Todey = Now();

DecodeDate(Todey, Year, Month, Day);

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

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

7) вычисление min стоимости тура из списка туров для указанной страны.

Для технической реализации данной функции используем компонент Query с параметром, где вместо параметра указывается название страны. Компонент Query [4] представляет собой набор данных, записи которого формируются в результате выполнения SQL-запроса. Текст запроса, на основании которого в набор данных отбираются записи, содержится в свойстве SQL типа TStrings. Запрос включает в себя команды на языке SQL и выполняется при открытии набора данных с помощью вызова его методов ExecSQL или Open.

SQL-текст

SELECT min(Cena)

FROM TabTurov

WHERE (Strana=:Strana)

Builder-код

void __fastcall TForm3::FormShow(TObject *Sender)

{

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();

}

8) вычисление общего числа туров для страны.

Для технической реализации данной функции используем компонент Query с параметром, где вместо параметра указывается название страны. Вычисление производим на форме «Каталог туров», а затем передаем на форму «Каталог стран».

SQL-текст

SELECT COUNT(*)

FROM TabTurov

WHERE Strana=:Strana

Builder-код

void __fastcall TForm2::FormShow(TObject *Sender)

{

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 TForm3::FormShow(TObject *Sender)

{

int n;

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();

}

9) фильтрация данных.

void __fastcall TForm2::BitVypClick(TObject *Sender)

{

AnsiString s=0,t=0;

DataModulTurAg->TTuri->Cancel();

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

t=DataModulTurAg->TTuri->FieldByName("Strana")->AsString;

DataModulTurAg->TTuri->Filtered=false;

if (s == t)

{

DataModulTurAg->TTuri->Filtered=true;

DataModulTurAg->TTuri->Filter="((KolMest>="+(EKol1

->Text)+")and(KolMest<="+(EKol2->Text)+

"))and((DataZaezda>='"+DateToStr(DTData1

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

}

else return;

}

10) подбор тура.

void __fastcall TForm2::NParamClick(TObject *Sender)

{

FormPodborTura->Tag=0;

FormPodborTura->ShowModal();

if (FormPodborTura->Tag)

{

DataModulTurAg->TTuri->Filtered=false;

DataModulTurAg->TTuri->Filter=

"(((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;

}

QTurov->Close();

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

i->FieldByName("Strana")->AsString;

QTurov->Open();

DataModulTurAg->TTuri->Refresh();

}

11) сведения о туристах забронировавших тур.

Для технической реализации данной функции используем компонент Query с параметром, где вместо параметра указывается название тура. Запрос формируется на форме «Каталог туров», результаты запроса передаются на форму «О клиентах».

SQL-текст

SELECT *

FROM TabBrony

WHERE Tur=:Tur

Builder-код

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);

}

12) вычисление свободного количества путевок.

Для того чтобы реализовать данную функцию сначала необходимо определить общее число клиентов забронировавших тур. Для этого используем компонент Query. Затем, рассчитываем свободное количество путевок путем вычитания количества путевок тура из общего числа клиентов забронировавших тур. Набор данных Query, в отличие от компонента Table, может включать в себя более чем одной таблицы базы данных.

SQL-текст

SELECT COUNT(*)

FROM TabBrony

WHERE Tur=:Tur

Builder-код

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();

}

13) калькуляция расчетов для группы клиентов.

Если необходимо рассчитать тур для группы клиентов, предлагается калькуляция расчетов. Пользователю предлагается выбрать для каждого из группы клиентов возрастной уровень (взрослый / ребенок от 5-10 лет / ребенок от 11-16 лет). Уровень взрослый предполагает оплату стоимости тура в полном объеме, уровень ребенок от 5-10 лет предполагает оплату стоимости тура со скидкой 20%, уровень ребенок от 11-16 лет предполагает оплату стоимости тура со скидкой 5%. Организация калькуляции расчетов представлена на рисунке 4.1.

Рисунок 4.1 -- Калькуляция расчетов

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();

}

14) поиск тура с главной формы «Каталог стран».

Для того, чтобы осуществить поиск тура или туров из набора данных, воспользуемся параметрическим запросом на языке SQL. Результатом неизвестных параметров в запросе являются значения критериев вводимых с формы.

Компонент Query с текстом SQL размещен на модуле DataModulTurAg, а вызов осуществляется с формы «Каталог стран» при нажатии кнопки «Найти». Результатом является перечень туров, отобранных в соответствии с указанными критериями, на форме «Каталог туров».

На рисунке 4.2 представлена организация ввода параметров для выполнения поиска.

Рисунок 4.2 -- Организация поиска

SQL-текст

SELECT *

FROM TabTurov

WHERE (Strana=:Strana) AND

(DataZaezda BETWEEN :Data1 AND :Data2) AND

(KolDney BETWEEN :Dn1 AND :Dn2) AND

(Cena BETWEEN :Cena1 AND :Cena2)

Builder-код

void __fastcall TForm3::BNaytiClick(TObject *Sender)

{

DataModulTurAg->QSort2->Close();

DataModulTurAg->QSort2->Params->Items[0]->AsString=Edit3->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(Edit6->Text);

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

DataModulTurAg->QSort2->Open();

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

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

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

return;

}

Form2->Show();

}

15) программирование кнопки «Оформить туристическую путевку».

Формирование отчета для кнопки «Оформить туристическую путевку» происходит после нажатия кнопки на форме «Бронирование туров».

Builder-код

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();

}

В процессе программирования в контейнер DataModulTurAg был добавлен компонент Query и в SQL был сформирован запрос.

SQL-текст

“SELECT a.Strana, a.Tur,a.VidTura,a.Hotel,a.DataZaezda,a.KolDney,

a.Cena,c.Fam,c.Imy,c.Otchestvo,c.Pol,c.Vozr,c.Den,c.Mes,c.God,

c.ZPnom,c.ZPser,b.Zakaz, b.Nomer, b.PunktOtprav, b.PunktNaznach,

b.DataOyprav,b.DataPrib, b.VremOtprav, b.VremNaznach, b.Transport

FROM TabReys b, TabTurov a

LEFT OUTER JOIN TabBrony c ON ((a.Tur=c.Tur) AND (b.Zakaz=c.Zakaz))

WHERE (c.Zakaz=:Zakaz)”

Далее формируется отчет и в режиме предварительно просмотра выводится на экран. На отдельной форме разрабатывается отчет, компоненты которого подключаются к Query через инспектор объектов. Форма разработки отчета представлена на рисунке 4.3.

Рисунок 4.3

16) формирование отчета «Отчет о бронировании туров».

На форме разрабатывается отчет, элементы которого, через инспектор объектов, подключаются к соответствующим компонентам таблиц базы данных (рисунок 4.4).

Рисунок 4.4 -- Форма разработки «Отчет о бронировании туров»

Builder-код

void __fastcall TFormBrony::BitOtchetClick(TObject *Sender)

{

FormOtchet->QROtchet->Preview();

FormOtchet->QROtchet->Print();

}

Полный листинг программы представлен в Приложении А.

4.2 Разработка рабочего проекта