Общие сведения.

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

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

//процедура главной формы для выбора дешевых маршрутов

procedure TForm2.Button1Click(Sender: TObject);

begin

DBGrid10.DataSource: = DataModule1.dsourseDeshevie;

DBGrid10.Columns.Items[0].FieldName: ='RouteCode';

DBGrid10.Columns.Items[1].FieldName: ='Price';

DBGrid10.Columns.Items[0].Title.Caption: ='Код маршрута';

DBGrid10.Columns.Items[1].Title.Caption: ='Цена';

DataModule1.Deshevie(lcbCountryName.Text);

end;

//процедура главной формы для выбора дорогих путевок

procedure TForm2.Button2Click(Sender: TObject);

begin

DBGrid10.DataSource: = DataModule1.dsourseDorogie;

DBGrid10.Columns.Items[0].FieldName: ='RouteCode';

DBGrid10.Columns.Items[1].FieldName: ='Price';

DBGrid10.Columns.Items[0].Title.Caption: ='Код маршрута';

DBGrid10.Columns.Items[1].Title.Caption: ='Цена';

DataModule1.Dorogie(lcbCountryName.Text);

end;

В модуле данных им соответствуют две процедуры:

//на поиск дешевых путевок

procedure TDataModule1.Deshevie(name: string);

begin

qDeshevie.Active: =False;

qDeshevie.ParamByName('Name').AsString: =name;

DataModule1.qDeshevie.Active: =True;

end;

//на поиск дорогих путевок

procedure TDataModule1.Dorogie(name: string);

begin

qDorogie.Active: =False;

qDorogie.ParamByName('Name').AsString: =name;

DataModule1.qDorogie.Active: =True;

end;

Код SQL-запроса на поиск дешевых путевок:

select routecode, price

from ROUTE

where countrycode=

(select countrycode

from country

where name=: name) and

price< (select avg(price) from route

where countrycode=(select countrycode from country where name=: name))

Код SQL-запроса на поиск дорогих путевок:

select routecode, price

from ROUTE

where countrycode=

(select countrycode

from country

where name=: name) and

price> (select avg(price) from route

where countrycode=(select countrycode from country where name=: name))

Запрос работает по следующему правилу. Путевка считается дешевой, если ее стоимость ниже средней стоимости всех путевок в данную страну, и дорогой – если ее стоимость превышает среднюю по выбранной стране. Название страны запрос получает из приложения во внутреннюю переменную: name.

Вкладка с выполненным запросом для выбора дешевых путевок имеет вид:

Для выбора дорогих путевок:

В поле Клиенты, не имеющие скидок отображаются Код Клиента и ФИО тех клиентов, сумма скидки которых равна нулю. Таблица активируется при запуске приложения.

Код SQL-запроса:

select clientcode, fio

from CLIENT

where discountsum=0

Запрос выбирает тех клиентов, которые не имеют накопленной скидки.

Заключение

В ходе выполнения курсового проекта были разработаны:

1. Исходные таблицы: Путевка, Клиент, Тур, Страна, Отель, Доход;

2. Триггеры, обеспечивающие автоинкримент полей и вычисление отдельных полей таблиц;

3. Приложение для работы с базой данных, включающее две формы: форму соединения с базой данных и главную форму, содержащую основное меню и компоненты, реализующие его функции.

4. Запросы к базе данных:

- расчет средней стоимости путевок для выбранной страны;

- вывод размера скидки на только что зарегистрированную путевку;

- вывод стоимости только что купленной путевки;

- подбор туристических маршрутов в определенную страну с заданными пользователем границами цены;

- построение графика динамики доходов фирмы и вывод значений, по которым строился, график в таблицу;

- вывод информации о количестве и суммарной стоимости купленных каждым клиентом путевок за год

- вывод информации о маршрутах, купленных на заданный период времени;

- поиск клиентов, имеющих максимальную накопленную стоимость купленных путевок;

- вывод дешевых путевок в выбранную страну;

- вывод дорогих путевок в выбранную страну;

- вывод списка клиентов, не имеющих скидки.

5. Реализация отчета о количестве и суммарной стоимости купленных каждым клиентом путевок за год.

Приложение к разработанной базе данных было создано в среде Delphi и предназначено для ведения учета и отслеживания финансовой стороны деятельности туристической фирмы.

Приложение дает возможность:

- вводить, изменять и удалять данные о клиентах, туристических маршрутах, странах и отелях, с которыми работает фирма;

- осуществлять регистрацию продажи новой путевки с возможностью подбора туристического маршрута по цене;

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

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

- получать общие сведения по стоимости путевок в конкретную страну;

- получать отчет по продажам путевок за год;

- выводить информацию о клиентах, не имеющих скидки и клиентах, лидирующих по накопленной стоимости, купленных за год путевок.

Во время реализации курсового проекта мной были изучены приемы по разработке баз данных в СУБД Firebird, написанию триггеров к БД и SQL-запросов на добавление/модификацию данных.

Были изучены и освоены способы реализации работы с базами данных в среде программирования Delphi.

Список используемой литературы

1. Баженова И.Ю. Delphi7: самоучитель программиста/ И.Ю. Баженова. – М.: Кудиц-образ, 2003. – 448с.

2. Борри Х. Firebird: руководство разработчика БД/ Х.Борри.- пер.с англ. – СПб.: БХВ-Петербург, 2006. - 1104с.

3. Грофф Дж. SQL: полное руководство/ Дж.Грофф, П. Вайнберг. – пер. с англ. – К.: Издательская группа BHV, 2001. – 816 с.

4. Ратманова И. Д., Железняк Н. В. Проектирование баз данных и разработка приложений в СУБД InterBase/Firebird: учеб.-метод. пособие / ГОУВПО «Ивановский государственный энергетический университет имени В. И. Ленина».− Иваново, 2007.− 116 с.