3.2 Разработка запросов для клиентов
В данной программе содержатся следующие запросы:
-
SELECT *
FROM Рейс
WHERE ((Рейс. Направление) Like "%");
Данный запрос производит поиск рейсов по введенному направлению введенному в поле поиска.
4. Разработка инструкции пользователей
4.1 Инструкция для типа пользователей «Администратор»
Порядок работы с базой данных «Аэропорт» следующий:
-
При открытии программы, Администратор попадает на главную форму, на которой размещены кнопки для входа на различные формы для работы с базой.
-
Для работы с информацией о сотрудниках, нажмите на кнопку «сотрудники». Откроется форма для просмотра, редактирования и удаления данных о сотрудниках, о рейсах, о билетах, о пассажирах, на которой размещена панель редактирования. На панели располагаются следующие кнопки:
При
нажатии на кнопку
осуществляется выход из базы данных.
При
нажатии на кнопку
осуществляется печать данного билета.
При
нажатии на кнопки на панели навигации
осуществляется добавление, удаление и
просмотр билетов.
4.2 Инструкция для типа пользователей «Пассажиры»
Порядок работы с базой данных «Аэропорта» следующий:
-
При открытии программы, Пассажиры попадает на главную форму, на которой размещены кнопки для входа на различные формы для работы с базой.
-
Для работы с информацией о сотрудниках, нажмите на кнопку «заказ билета». Откроется форма для просмотра, редактирования и удаления данных о билетах, на которой размещена панель редактирования. На панели располагаются следующие кнопки:
При
нажатии на кнопку
осуществляется выход из базы данных.
При
нажатии на кнопку
осуществляется печать данного билета.
При
нажатии на кнопки на панели навигации
осуществляется добавление, удаление и
просмотр билетов.
Заключение
В ходе работы над проектом была разработана автоматизированная информационная система «Аэропорт». Разработанная система полностью соответствует техническому заданию на разработку.
В системе предусмотрены рабочие места для следующих групп пользователей: администратор,пассажиры.
Разработанная система позволят пользователям осуществлять следующие функции:
- администратор может удалять, добавлять, изменять всю информацию в базе данных. Имеет полный доступ ко всей базе.
- Пассажиры может просматривать информацию о билете, о рейсах, об авиакомпании, которые есть в наличии. Пользоваться службой доставки.
С использованием разработанной системы можно получить следующие виды документов:
-Просмотр рейсов
-Добавление билетов
Из всего вышесказанного можно заключить, что цели, поставленные в курсовой работе достигнуты полностью.
Приложение а код программы для администратора
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
Tglavnaya = class(TForm)
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Image1: TImage;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
Label6: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
glavnaya: Tglavnaya;
implementation
uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit2, Unit10, Unit11, Unit12,
Unit13, Unit8, Unit9;
{$R *.dfm}
procedure Tglavnaya.SpeedButton1Click(Sender: TObject);
begin
bilet.show;
end;
procedure Tglavnaya.SpeedButton2Click(Sender: TObject);
begin
passagiri.show;
end;
procedure Tglavnaya.SpeedButton3Click(Sender: TObject);
begin
samolet.show;
end;
procedure Tglavnaya.SpeedButton4Click(Sender: TObject);
begin
reisi.show;
end;
procedure Tglavnaya.SpeedButton5Click(Sender: TObject);
begin
sotrudniki.show;
end;
procedure Tglavnaya.Button1Click(Sender: TObject);
begin
close;
end;
procedure Tglavnaya.SpeedButton6Click(Sender: TObject);
begin
close;
end;
procedure Tglavnaya.SpeedButton7Click(Sender: TObject);
begin
Form13.show;
end;
procedure Tglavnaya.Image1Click(Sender: TObject);
begin
end;
end.