1.3. Содержимое заполненных таблиц.
Таблица: Клиент
Таблица: Скидка
Таблица: Маршруты
Таблица: Отель
Таблица: Путевка
Таблица: Прибыль
Таблица: Страна
1.4. Иас «Туристическая фирма»
Для взаимодействия с созданной базой данных было разработано клиентское приложение, позволяющее не только вносить какие-либо изменения в содержимое таблиц, но и удобным для пользователя способом выполнять анализ данных, имеющихся в таблицах.
1.4.1. Меню соединения с базой данных.
Для получения доступа к главному окну приложения пользователю необходимо ввести сведения о базе данных в соответствующие поля: путь к используемой БД, корректные логин и пароль. Эти действия можно осуществить в следующем окне:
Окно приложения реализовано отдельным классом.
unit Connect;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DataModule, AppEvnts;
type
Tlogin = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
edPath: TEdit;
edUser: TEdit;
edPassword: TEdit;
SpeedButton1: TSpeedButton;
OpenDialog1: TOpenDialog;
btOK: TButton;
btCancel: TButton;
procedure btOkClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure btCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
login: Tlogin;
implementation
uses Main;
{$R *.dfm}
procedure Tlogin.btOkClick(Sender: TObject);
var Result: Integer;
begin
Result := DataModule1.ConnectToDB
(edPath.Text, edUser.Text, edPassword.Text);
if Result <> 1
then
begin
ModalResult := mrOk;
Application.CreateForm(Tform2, Form2);
Form2.ShowModal;
end;
DataModule1.IBDatabase1AfterConnect(Sender);
end;
procedure Tlogin.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edPath.Text:=OpenDialog1.filename;
end;
procedure Tlogin.btCancelClick(Sender: TObject);
begin
close;
end;
end.
При нажатии кнопки «ОК» происходит соединение с базой данных и отображение главной формы приложения. При нажатии кнопки «Отмена» - выход из приложения.
1.4.2. Главное меню приложения.
После завершения работы окна соединения с базой данных, пользователь получает доступ к основному окну, содержащему главное меню приложения.
Главное окно приложения визуально разделено на две части. Слева отображается главное меню в виде иерархического списка; справа находится рабочая область, в которой показываются компоненты, соответствующие выбранному пункту меню. Физически рабочая область реализована как компонент PageControl со множеством вкладок. При выборе конкретного пункта меню запускается процедура обработки события, открывающая нужную вкладку.
//открытие нужной вкладки
procedure TForm2.tvMenuChange (Sender: TObject; Node: TTreeNode);
begin
PageControl1.ActivePageIndex := Node.ImageIndex - 1;
end;
Содержание меню проекта:
Справочники
а) справочник стран
б) справочник отелей
в) справочник туристических маршрутов
г) справочник клиентов
2. Регистрация новой путевки
3. Подбор путевки по параметрам
4. Анализ работы фирмы
а) динамика доходов фирмы
б) анализ продаж
5. Справки по проданным путевкам
а) маршруты купленные на заданный период
б) самые активные клиенты
6. Общие сведения
Рассмотрим подробнее реализацию каждого пункта меню.