Файл: Программное обеспечение справочной службы аэропорта.pdf

2.4 Описание пользовательского интерфейса приложения

Работа приложения начинается с отображения формы входа.

Здесь необходимо ввести логин и пароль пользователя.

Рисунок 2.9. Форма входа

После этого на экране отобразится главное окно программы.

Рисунок 2.10. Главное окно программы

Из этого окна с помощью специальных кнопок можно переходить к другим формам.

Форма ввода билетов выглядит следующим образом:

Рисунок 2.11. Форма ввода билетов

Форма ввода рейсов выглядит следующим образом:

Рисунок 2.12. Форма ввода рейсов

Форма ввода сотрудников выглядит следующим образом.

Рисунок 2.13. Форма ввода сотрудников

Форма ввода пассажиров выглядит следующим образом.

Рисунок 2.14. Форма ввода пассажиров

Остальные формы выполнены аналогичным образом.

Заключение

В процессе выполнения курсовой работы была разработана информационная система, которая может быть, при некоторых доработках, использована для автоматизации повседневной деятельности небольшого аэропорта.

Для написания программы необходимо было освоить новые технологии, а именно язык программирования Delphi.

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

Список литературы

1. Виллариал Б. Программирование Access 2012 в примерах. Пер с англ. – М.: Кудиц-Образ, 2015. – 496 с.
2. Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. – М.: Гелиос АРВ, 2015. – 368 с., ил.
3. Гринченко Н.Н., Гусев Е.В., Макаров Н.П., Пылькин А.Н., Цуканова Н.И. Проектирование баз данных. СУБД Microsoft Access. Учебное пособие для ВУЗов. М.: Горячая линия-Телеком, 2014. – 240 с., ил.
4. Дейт К.Дж. Введение в системы баз данных, 8-е издание. Пер с англ. М. ИД «Вильямс», 2015. – 1328 с., ил.
5. Кауфельд Джон. Access 2003 для «чайников». Пер с англ. – М.: Вильямс, 2014. – 320 с., ил.
6. Кошелев В.Е. Access 2017. М.: Бином-Пресс, 2017. – 592 с., ил.
7. Культин Н. Основы программирования в Delphi XE. СПб.: БХВ, 2016. – 416 с.
8. Маклаков С.В. Создание информационных систем с AllFusion Modelling Suite. – М.: Диалог-МИФИ, 2015. – 432 с.
9. Осипов Д. Л. Базы данных и Delphi. Теория и практика. СПб.: BHV, 2015.
10. Осипов Д. Delphi XE2. СПб.: БХВ, 2016. – 626 с.
11. Петров В.Н. Информационные системы. Спб.: Питер, 2016. – 688 с., ил.
12. Петкович Д. Microsoft SQL Server 2012. Руководство для начинающих. СПб.: БХВ, 2014. – 567 с.
13. Понамарев В. Самоучитель Delphi XE8 Studio. СПб.: БХВ, 2016.
14. Рудикова Л.В. Базы данных. Разработка приложений. СПб.: БХВ-Петербург, 2017. – 496 с.: ил.
15. Хойтек А. Microsoft SQL Server 2018. Реализация и обслуживание. Учебный курс Microsoft. М.: Русская редакция, 2018. – 576 с.
16. Станек У.Р. Microsoft SQL Server. Справочник администратора. СПб.: БХВ, 2016.
17. Стивенс Р. Программирование баз данных. Изд. 2-е. Пер. с англ. – М.: Бином-Пресс, 2016. – 384 с., ил.
18. Фараонов В. DELPHI. Программирование на языке высокого уровня: Учебник для вузов. СПб.: Питер, 2015.
19. Фленов М. Библия Delphi. СПб.: БХВ, 2017. – 676 с.

Приложение А

Приложение B

Исходный код модуля UMain.pas

unit UMain;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDataModule, Data.DB, Vcl.Grids,

Vcl.DBGrids, Vcl.StdCtrls, Vcl.Buttons;

type

TMain = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Main: TMain;

implementation

{$R *.dfm}

uses ULogin, UBilety, UReis, UAvia, USotrudnik, UDoljnost, UPassajir, USamolet,

USkidka, UPunkt;

procedure TMain.BitBtn1Click(Sender: TObject);

begin

Bilety.Show;

end;

procedure TMain.BitBtn2Click(Sender: TObject);

begin

Reis.Show;

end;

procedure TMain.BitBtn3Click(Sender: TObject);

begin

Avia.Show;

end;

procedure TMain.BitBtn4Click(Sender: TObject);

begin

Sotrudnik.Show;

end;

procedure TMain.BitBtn5Click(Sender: TObject);

begin

Doljnost.Show;

end;

procedure TMain.BitBtn6Click(Sender: TObject);

begin

Passajir.Show;

end;

procedure TMain.BitBtn7Click(Sender: TObject);

begin

Samolet.Show;

end;

procedure TMain.BitBtn8Click(Sender: TObject);

begin

Skidka.Show;

end;

procedure TMain.BitBtn9Click(Sender: TObject);

begin

Punkt.Show;

end;

procedure TMain.FormShow(Sender: TObject);

begin

DataModule1.ADOConnection1.Connected:=False; //Отключаем текущее подключение

//Далее динамически формируем строку подключения с указанием пути к базе данных

DataModule1.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath(Application.ExeName)+'db.mdb;';

DataModule1.ADOConnection1.ConnectionString:=DataModule1.ADOConnection1.ConnectionString+'Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";';

DataModule1.ADOConnection1.ConnectionString:=DataModule1.ADOConnection1.ConnectionString+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';

DataModule1.ADOConnection1.ConnectionString:=DataModule1.ADOConnection1.ConnectionString+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;';

DataModule1.ADOConnection1.ConnectionString:=DataModule1.ADOConnection1.ConnectionString+'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';

//Активируем все таблицы (они отключились при отключении от базы данных)

With DataModule1 do

begin

TBilet.Active:=true;

TReysy.Active:=true;

TAvia.Active:=true;

TPunkt.Active:=true;

TDoljnost.Active:=true;

TSotrudnik.Active:=true;

TPassajir.Active:=true;

TSkidka.Active:=true;

TSamolet.Active:=true;

end;

Login.ShowModal;

end;

end.

Исходный код модуля ULogin.pas

unit ULogin;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, UDataModule, StdCtrls, Buttons, Mask, ExtCtrls, UMain;

type

TLogin = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

MaskEdit1: TMaskEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Login: TLogin;

implementation

{$R *.dfm}

procedure TLogin.BitBtn1Click(Sender: TObject);

begin

DataModule1.QLogin.Active:=False;

DataModule1.QLogin.SQL.Clear;

DataModule1.QLogin.SQL.Add('SELECT * FROM Сотрудник WHERE Логин='''+Edit1.Text+''' AND Пароль='''+MaskEdit1.Text+'''');

DataModule1.QLogin.Active:=True;

If DataModule1.QLogin.RecordCount>0 then

begin

Login.Close

end else

begin

ShowMessage('Пользователь не найден!');

Application.Terminate;

end;

end;

procedure TLogin.FormClose(Sender: TObject; var Action: TCloseAction);

begin

If DataModule1.QLogin.Active=true then

begin

if DataModule1.QLogin.RecordCount=0 then Application.Terminate;

end else Application.Terminate;

end;

end.

Исходный код модуля UAvia.pas

unit UAvia;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDataModule, Data.DB, Vcl.ExtCtrls,

Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids;

type

TAvia = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Avia: TAvia;

implementation

{$R *.dfm}

end.

Исходный код модуля USamolet.pas

unit USamolet;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDataModule, Data.DB, Vcl.ExtCtrls,

Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids;

type

TSamolet = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Samolet: TSamolet;

implementation

{$R *.dfm}

end.

Исходный код модуля UReis.pas

unit UReis;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDataModule, Data.DB, Vcl.ExtCtrls,

Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids;

type

TReis = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Reis: TReis;

implementation

{$R *.dfm}

end.

Исходный код модуля UBilet.pas

unit UBilety;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,