2.2 Создание клиентской части для администратора
2.2.1 Разработка форм
Главная форма предназначена для перехода между таблицами, для просмотра и редактирования необходимых таблиц (рисунок 11)
Рисунок 11 - Главная форма для пользователя "Администратор"
Форма редактирования таблицы сотрудники предназначена для редактирования данных о сотрудниках и внесения информации о новых сотрудниках, также можно перейти к полному списку всех сотрудников нажав на кнопку “Список сотрудников”, где можно найти и просмотреть полную информацию о всех сотрудниках аэропортов (рисунок 12).
Рисунок 12 - Форма редактирования таблицы сотрудники
Форма добавление таблицы предназначена для внесения информации о новых данных, также можно перейти к печати всего списков пассажиров, где можно найти и просмотреть полную информацию о всех пассажирах (рисунок 13).
Рисунок 13 – Форма добавления и редактирования данных о пассажирах
2.3 Создание клиентской части для пассажиров
2.3.1 Разработка форм
Главная форма предназначена для поиска доступных , а так же для оформления новых заказов (рисунок 14 ).
Рисунок 14 – Главная форма для пассажиров
Форма заказ билетов предназначена для выполнения заказа пассажира и печать подтверждения о заказе билета (рисунок 15).
Рисунок 15 – Форма заказа билета
2.3.2 Разработка отчетов
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, WordXP, ComObj;
procedure TForm8.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
memo1.Lines.Clear;
//DataModule2.biletQuery2.RecNo:=strtoint(datamodule2.biletQuery2DSDesigner.Text);
memo1.Lines.Add('№ билета: '+DataModule2.biletQuery2DSDesigner.AsString);
memo1.Lines.Add('Направление рейса: '+dblookupcombobox1.Text);
memo1.Lines.Add(' ФИО: '+DataModule2.biletQuery2DSDesigner2.AsString);
memo1.Lines.Add(' Дата: '+DataModule2.biletQuery2DSDesigner6.AsString);
memo1.Lines.Add(' № самолета: '+DataModule2.biletQuery2DSDesigner7.AsString);
memo1.Lines.Add(' № места: '+DataModule2.biletQuery2DSDesigner8.AsString);
memo1.Lines.Add(' ');
try
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
except
Exception.Create('Error');
end;
MSWord.Documents.Add;
MSWord.Selection.Font.Name := 'Times New Roman'; //шрифт
MSWord.Selection.Font.Size := 14; //размер
MSWord.Selection.TypeText(memo1.Text); //текст вставляем
// MSWord.Selection.MoveUp(wdScreen,1); //перейти на первую строку, выделить её
// MSWord.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter; //выравнять по центру
// MSWord.ActiveDocument.SaveAs('C:\ex1.doc');
end;
end.
3.Разработка служебной части аис
3.1 Разработка запросов для администратора
В данной программе содержатся следующие запросы:
-
Поиск сотрудников по фамилии
-
Поиск билета по номеру
-
Поиск самолета по номеру
-
Поиск рейса по направлению
SELECT *
FROM Сотрудники
WHERE ((Сотрудники.ФИО) Like "%");
Данный запрос производит поиск сотрудников по введенной фамилии в поле поиска.
SELECT *
FROM Билет
WHERE ((Билет.№ билета) Like "%");
Данный запрос осуществляет поиск билета по введенному номеру.
SELECT *
FROM Самолет
WHERE ((Самолет.№ самолета) Like "%");
Данный запрос осуществляет поиск самолета по введенному номеру аналогично предыдущим запросам.
SELECT *
FROM Рейс
WHERE ((Рейс.Направление) Like "%");
Данный запрос производит поиск рейса по введенному направлению аналогично предыдущим запросам.
SELECT *
FROM Сотрудники
WHERE ((Сотрудники. ФИО) Like "%");
Данный запрос осуществляет поиск сотрудников по введенному ФИО аналогично предыдущим запросам.