Приложение б код программы для пассажиров

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 FormCloseQuery(Sender: TObject; var CanClose: Boolean);

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

form8.show;

end;

procedure Tglavnaya.SpeedButton2Click(Sender: TObject);

begin

form10.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.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if application.MessageBox(pchar('Вы уверены, что хотите закрыть программу?'),'Выход', mb_okcancel)=id_cancel then

CanClose:=false;

end;

procedure Tglavnaya.Image1Click(Sender: TObject);

begin

end;

end.

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

1.1 Полное наименование системы и ее условное обозначение.

Информационная система учета и контроля тем выпускных квалификационных работ.

Условное обозначение: ИС учета и контроля “AirGroup”

1.2 Наименование разработчика системы и реквизиты заказчика.

Заказчик – Компания “AirGroup”

Разработчик – студенты группы 07-АСУ: Егорова Екатерина Александровна, Малышева Алёна Витальевна, Самсонов Артём Александрович.

1.3. Основания для разработки АС.

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

1.4. Плановые сроки начала и окончания работы по созданию системы:

- начало работ по созданию системы – осень 2010

- окончание работ по созданию системы – зима 2010

1.5. Источник финансирования работ по созданию АС.

Собственные средства разработчика.

1.6. Порядок оформления и предъявления заказчику результатов работ по созданию системы:

К результатам труда разработчика относится:

• оригинальное программное обеспечение;

• уникальные структуры машинных баз данных;

• типовые проектные решения и особенности построения информационной системы;

• проектная и рабочая документация.

Заказчику передаются:

• готовая база данных содержащая в себе все необходимые данные необходимые для её использования.

Заказчик приобретает у третьих лиц:

• Лицензионное программное обеспечение.

• Активное сетевое оборудование.

• Серверное оборудование.

• Пассивное сетевое оборудование

Результаты работы предоставляются заказчику:

Результаты передаются заказчику частями по завершении каждой стадии работы по созданию системы.

• Активное сетевое оборудование

• Документация – в электронном виде в формате MS Word, на бумажных носителях.

Проектная документация должна быть разработана в соответствии с ГОСТ 34.201-89 и ГОСТ ЕСПД. Процедуры приемки - передачи результатов работ оформляются актами приемки-передачи.

2. Назначение и цели создания системы

2.1 Назначение системы.

ИС “AirGroup” предназначена для автоматизации создания, контроля, камеры хранения, учета рейсов, регистрации, сдача багажа, обслуживание персонала.

2.2 Цели создания системы.

Целью создания системы является:

• Автоматизация системы авиакомпании “AirGroup”.

• Облегчение работы персонала и клиентов.

• увеличить скорость доступа к информации связанной с организацией “AirGroup”.

3. Характеристика объекта автоматизации

3.1.Краткие сведения об объекте автоматизации.

Объектом автоматизации является аэропорт “AirGroup”. Основной деятельностью аэропорта является обслуживание клиентов.

3.2. Сведения об условиях эксплуатации объекта автоматизации.

• ИС “AirGroup” используется сотрудниками компании, клиентами, администрацией.

Функционирование системы должно происходить в требуемых условиях:

• ИС учета и контроля “AirGroup” используется сотрудниками, руководителями, администрацией, клиентами.

Функционирование системы должно происходить в требуемых условиях:

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

«Гигиенические требования к микроклимату производственных помещений ». Специалист выполняет соответствующие ему функции ежедневно (кроме субботы и воскресения) с 9.00 до 18.00 часов.