Исследование технологии разработки системы регистрации пассажиров в аэропорту на примере языка VBA

Обычно предусматривается кнопка для возможного изменения самой кнопочной формы.
Дополнительным элементом приложения пользователя является организация вызова главной кнопочной формы при открытии базы данных, что позволяет пользователю сразу же начать работу в среде приложения. В Access имеется средство автоматизированной разработки приложения пользователя – диспетчер кнопочных форм.
Основная часть текста приложения на языке VBA создана автоматически. Изменения, внесенные в текст, были связаны прежде всего с главной кнопочной формой с необходимостью внесения изменений в пользовательский интерфейс.
Текст приложения на языке VBA приведен в Приложении 6.

3.4 Руководство пользователя
Для работы системы регистрации авиапассажиров необходим персональный компьютер с ОС Microsoft Windows XP или Vista, установленным офисным пакетом, включающим Microsoft Access 2003.
На рис. 4 представлена функциональная схема системы регистрации авиапассажиров.


Рис. 4 Функциональная схема системы регистрации авиапассажиров
Разработанная БД для регистрации пассажиров аэропорту называется завиапассажиры.mdb. Запуск системы происходит как обычно: нажатием на исполняемый модуль (клавишей «ENTER» или двойным кликом «мыши»).
На рис. 5 показана форма, появляющаяся при открытии БД.

Рис. 5 Главная форма программы
Если регистратору необходимо просмотреть, ввести или откорректировать информацию по рейсам, необходимо нажать кнопку «Рейс». При этом откроется окно, показанное на рис. 6.


Рис. 6 Форма для работы с таблицей рейсов
Если регистратору необходимо работать с таблицей городов, то нужно воспользоваться кнопкой около надписи «Города». При этом откроется окно, показанное на рис. 7.

Рис. 7 Форма для работы с таблицей городов
Если регистратору необходимо работать с таблицей типов документов, то нужно воспользоваться кнопкой около надписи «Документ». При этом пользователь увидит окно, показанное на рис. 8.



Рис. 8 Форма для работы с таблицей документов
Если регистратору необходимо просмотреть, ввести или откорректировать информацию по типам самолетов, необходимо нажать кнопку «Рейс». При этом откроется окно, показанное на рис. 9.

Рис. 9 Форма для работы с таблицей типов самолетов
Для регистрации авиапассажиров пользователю нужно воспользоваться кнопкой «Регистрация пассажиров». Форма регистрации изображена на рис. 10.



Рис. 10 Форма регистрации пассажиров
Для того чтобы получить отчет или найти интересующую пользователя информацию. Нужно воспользоваться кнопкой около надписи «Справочная система». Вид разработанной в VBA формы показан на рис. 11.

Рис. 11 Форма для запроса критериев запроса
Фрагмент отчета по выбранным критериям после нажатия на кнопку «Список пассажиров по номеру рейса и фамилии» показан на рис. 12.


Рис. 12 Фрагмент отчета «Список пассажиров по номеру рейса и фамилии»
Фрагмент отчета по выбранным критериям после нажатия на кнопку «Список пассажиров по дате вылета» показан на рис. 13.

Рис. 13 Фрагмент отчета «Список пассажиров по дате вылета»
Фрагмент отчета по выбранным критериям после нажатия на кнопку «Список пассажиров по дате вылета и фамилии» показан на рис. 14.

Рис. 14 Фрагмент отчета «Список пассажиров по дате вылета и фамилии»
Результат отчета по выбранным критериям после нажатия на кнопку «Список пассажиров по номеру рейса и дате вылета» показан на рис. 15.

Рис. 15 Фрагмент отчета «Список пассажиров по номеру рейса и дате вылета»
Список рейсов в указанный пользователем город можно посмотреть после нажатия на кнопку «Рейсы в город назначения» (рис. 16).



Рис. 16 Фрагмент отчета «Рейсы в город назначения»
Для выхода из приложения предназначена кнопка в правой верхней части окна приложения.
Успешное завершение процесса создания приложения не означает, что в программе нет ошибок. Убедиться, что программа работает правильно можно только в процессе проверки ее работоспособности, который называется тестированием. В ходе дипломной работы было проведено тестирование приложение, которое показало отсутствие ошибок на тестовых данных.
Реализация компьютерной системы осуществляется в выбранной среде разработки с учетом имеющихся возможностей СУБД и языка программирования.
Заключение
На примере создания системы регистрации пассажиров в аэропорту была исследована технология разработки автоматизированных систем для предприятий. Разработка системы включает в себя несколько этапов.
На первом этапе необходимо исследовать предметную область, определить назначение системы, ее функции и круг потенциальных пользователей, а также необходимо рассмотреть типы возможных СУБД, выбрать нужную, исходя из требований, предъявляемых к выполняемым функциям и с учетом имеющихся финансовых возможностей.
На втором этапе необходимо создать инфологическую и даталогическую модели проектируемой БД, выявить сущности и взаимосвязи между ними, а затем приступать к физическому созданию БД, исходя из выбранной СУБД и среды разработки.
Третий этап разработки состоит в реализации приложения, работающего с БД, в его отладке, тестировании и обучении пользователей.
В дипломной работе при разработке системы регистрации пассажиров в аэропорту была использована СУБД Microsoft Access 2003. В приложении, представляющем собой файл с названием авиапассажиры.mdb, созданы такие объекты Microsoft Access, как таблицы, формы, запросы и отчеты. Режим добавления и удаления информации реализован через соответствующие формы. За счет связей между главной и подчиненными таблицами при удалении записи в главной таблице удаляются записи в подчиненной.
При проектировании БД были созданы 7 форм, одна из которых представляет собой форму для выбора пользователем критериев запроса по поиску нужной информации. Для этого на главной кнопочной форме были созданы соответствующие кнопки для вызова форм. В форме для выбора критериев запроса имеются соответствующие кнопки для активизации поиска и предоставлению необходимых пользователю отчетов. Значение параметра для выполнения запроса передается из соответствующего элемента формы.
Проведенное тестирование приложения на тестовых данных показало отсутствие ошибок. Для работы системы регистрации авиапассажиров необходим персональный компьютер с ОС Microsoft Windows XP или Vista, установленным офисным пакетом, включающим Microsoft Access 2003.




Глоссарий
№ Новые понятия Содержание 1 SQL (Structured Query Language)  язык структурированных запросов) — универсальный компьютерный язык, применяемый для создания, модификации и управления данными в реляционных базах данных. 2 База данных (БД) структурированный организованный набор данных, описывающих характеристики каких-либо физических или виртуальных систем. 3 Операционная система (operation system) программа, которая автоматически загружается при включении компьютера и предоставляет пользователю базовый набор команд, с помощью которых можно выполнять общение с компьютером и ряд действий. 4 Пользователь  лицо или организация, которое использует действующую систему для выполнения конкретной функции. 5 Прикладная программа или приложение  программа, предназначенная для выполнения определенных пользовательских задач и рассчитанная на непосредственное взаимодействие с пользователем. 6 Система управления базой данных (СУБД) специализированная программа (чаще комплекс программ), предназначенная для организации и ведения базы данных. 7 Язык программирования  формальная знаковая система, предназначенная для записи программ. Программа обычно представляет собой некоторый алгоритм в форме, понятной для исполнителя (например, компьютера). Язык программирования определяет набор лексических, синтаксических и семантических правил, используемых при составлении компьютерной программы.
Библиографический список
Бекаревич, Ю. Самоучитель Microsoft Access 2002 / Ю.Бекаревич, Н.Пушкина – СПб.: «БХВ-Петербург», 2002. – 720 с. – ISBN: 5-8206-0033-9
Гарнаев, А. Ю. Использование MS Excel и VBA в экономике и финансах / А.Ю. Гарнаев — СПб.: БХВ - Санкт-Петербург, 2000. — 336 с: ил. ISBN 5-8206-0024-Х
Грабауров, В. А. Информационные технологии для менеджеров / В.А. Грабауров – М.: Финансы и статистика, 2001.– 368 с.: ил. ISBN 5-279-02299-3
Грабер, М. Введение в SQL / Пер. с англ. В. Ястребов – Издательство «Лори», 1996. – 380 с. – ISBN: 5-85582-010-6
Дженнингс, Р. Использование Microsoft Office Access 2003 / Р.Дженнингс: пер. с англ. И. Тараброва – М.: Издательский дом «Вильямс», 2005. – 1300 с. – ISBN: 5-8459-0691-1
Камминг, Стив.VBA для "чайников", 3-е издание / Стив Камминг : пер. с англ. — М.: Издательский дом «Вильямс», 2001. — 448 с.: ил. — ISBN 5-8459-0230-4 (рус.)
Уокенбах, Джон. Профессиональное программирование на VBA в Excel 2002 / Джон Уокенбах: пер. с англ. — М.: Издательский дом «Вильямс», 2003. — 784 с.: ил. — ISBN 5-8459-0541-9 (рус.)
[Электронный ресурс]. - Режим доступа: http://www.kgau.ru/istiki/umk/db/d_16_2_______________________________.htm
[Электронный ресурс]. - Режим доступа: http://www.tspu.tula.ru/ivt/old_site/umr/po/labor/lab11/prakt11.htm
[Электронный ресурс]. - Режим доступа: http://www.askit.ru/custom/vba_office/m12/12_05_access_form_object.htm
[Электронный ресурс]. - Режим доступа: http://ru.wikipedia.org/
Приложения
Приложение 1. Пассажиры по номеру рейса и фамилии


Приложение 2. Рейсы в город назначения




Приложение 3. Список пассажиров на дату вылета


Приложение 4. Список пассажиров по дате вылета и фамилии


Приложение 5. Список пассажиров по номеру рейса и дате вылета



Приложение 6. Текст на языке VBA

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "
Me.FilterOn = True

End Sub

Private Sub Form_Current()
' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")
FillOptions

End Sub

Private Sub FillOptions()




End Sub

Private Function HandleButtonClick(intBtn As Integer)
' This function is called when a button is clicked.
' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
Const conCmdOpenPage = 9

' An error that is special cased.
Const conErrDoCmdCancelled = 2501

Dim con As Object
Dim rs As Object
Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.
If (rs.EOF) Then
MsgBox "Ошибка при чтении таблицы Switchboard Items."
rs.Close
Set rs = Nothing
Set con = Nothing
Exit Function
End If

Select Case rs![Command]

' Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument]

' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.
Case conCmdCustomizeSwitchboard
' Handle the case where the Switchboard Manager
' is not installed (e.g. Minimal Install).
On Error Resume Next
Application.Run "ACWZMAIN.sbm_Entry"
If (Err <> 0) Then MsgBox "Команда недоступна."
On Error GoTo 0
' Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions

' Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase

' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]

' Run code.
Case conCmdRunCode
Application.Run rs![Argument]

' Open a Data Access Page
Case conCmdOpenPage
DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.
Case Else
MsgBox "Неизвестная команда."

End Select

' Close the recordset and the database.
rs.Close

HandleButtonClick_Exit:
On Error Resume Next
Set rs = Nothing
Set con = Nothing
Exit Function

HandleButtonClick_Err:
' If the action was cancelled by the user for
' some reason, don't display an error message.
' Instead, resume on the next line.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "Ошибка при выполнении команды.", vbCritical
Resume HandleButtonClick_Exit
End If

End Function

Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(32) & ChrW(1043) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1076)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка1_Click:
Exit Sub

Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click

End Sub
Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(32) & ChrW(1056) & ChrW(1077) & ChrW(1081) & ChrW(1089)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка27_Click:
Exit Sub

Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click

End Sub
Private Sub Кнопка30_Click()
On Error GoTo Err_Кнопка30_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(32) & ChrW(1044) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка30_Click:
Exit Sub

Err_Кнопка30_Click:
MsgBox Err.Description
Resume Exit_Кнопка30_Click

End Sub
Private Sub Кнопка32_Click()
On Error GoTo Err_Кнопка32_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(32) & ChrW(1058) & ChrW(1080) & ChrW(1087) & ChrW(32) & ChrW(1089) & ChrW(1072) & ChrW(1084) & ChrW(1086) & ChrW(1083) & ChrW(1077) & ChrW(1090) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка32_Click:
Exit Sub

Err_Кнопка32_Click:
MsgBox Err.Description
Resume Exit_Кнопка32_Click

End Sub
Private Sub Кнопка34_Click()
On Error GoTo Err_Кнопка34_Click


DoCmd.GoToRecord , , acNewRec

Exit_Кнопка34_Click:
Exit Sub

Err_Кнопка34_Click:
MsgBox Err.Description
Resume Exit_Кнопка34_Click

End Sub
Private Sub Кнопка35_Click()
On Error GoTo Err_Кнопка35_Click


DoCmd.GoToRecord , , acNewRec

Exit_Кнопка35_Click:
Exit Sub

Err_Кнопка35_Click:
MsgBox Err.Description
Resume Exit_Кнопка35_Click

End Sub
Private Sub Кнопка36_Click()
On Error GoTo Err_Кнопка36_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 2, acMenuVer70

Exit_Кнопка36_Click:
Exit Sub

Err_Кнопка36_Click:
MsgBox Err.Description
Resume Exit_Кнопка36_Click

End Sub
Private Sub Кнопка37_Click()
On Error GoTo Err_Кнопка37_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70

Exit_Кнопка37_Click:
Exit Sub

Err_Кнопка37_Click:
MsgBox Err.Description
Resume Exit_Кнопка37_Click

End Sub
Private Sub Кнопка38_Click()
On Error GoTo Err_Кнопка38_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70

Exit_Кнопка38_Click:
Exit Sub

Err_Кнопка38_Click:
MsgBox Err.Description
Resume Exit_Кнопка38_Click

End Sub
Private Sub Кнопка39_Click()
On Error GoTo Err_Кнопка39_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 2, acMenuVer70

Exit_Кнопка39_Click:
Exit Sub

Err_Кнопка39_Click:
MsgBox Err.Description
Resume Exit_Кнопка39_Click

End Sub
Private Sub Кнопка40_Click()
On Error GoTo Err_Кнопка40_Click


DoCmd.Quit

Exit_Кнопка40_Click:
Exit Sub

Err_Кнопка40_Click:
MsgBox Err.Description
Resume Exit_Кнопка40_Click

End Sub
Private Sub Кнопка41_Click()
On Error GoTo Err_Кнопка41_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1057) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(32) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1089) & ChrW(1072) & ChrW(1078) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1081) & ChrW(1089) & ChrW(1072) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1091)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка41_Click:
Exit Sub

Err_Кнопка41_Click:
MsgBox Err.Description
Resume Exit_Кнопка41_Click

End Sub
Private Sub Кнопка42_Click()
On Error GoTo Err_Кнопка42_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1044) & ChrW(1072) & ChrW(1090) & ChrW(1072) & ChrW(32) & ChrW(32) & ChrW(1080) & ChrW(32) & ChrW(1085) & ChrW(1086) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1081) & ChrW(1089) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка42_Click:
Exit Sub

Err_Кнопка42_Click:
MsgBox Err.Description
Resume Exit_Кнопка42_Click

End Sub
Private Sub Кнопка43_Click()
On Error GoTo Err_Кнопка43_Click

Dim stDocName As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1081) & ChrW(1089) & ChrW(1091) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1091)
DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка43_Click:
Exit Sub

Err_Кнопка43_Click:
MsgBox Err.Description
Resume Exit_Кнопка43_Click

End Sub
Private Sub Кнопка44_Click()
On Error GoTo Err_Кнопка44_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(32) & ChrW(1055) & ChrW(1072) & ChrW(1089) & ChrW(1089) & ChrW(1072) & ChrW(1078) & ChrW(1080) & ChrW(1088) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка44_Click:
Exit Sub

Err_Кнопка44_Click:
MsgBox Err.Description
Resume Exit_Кнопка44_Click

End Sub
Private Sub Кнопка48_Click()
On Error GoTo Err_Кнопка48_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка48_Click:
Exit Sub

Err_Кнопка48_Click:
MsgBox Err.Description
Resume Exit_Кнопка48_Click

End Sub
Бекаревич, Ю. Самоучитель Microsoft Access 2002 / Ю.Бекаревич, Н.Пушкина – СПб.: «БХВ-Петербург». 2002.с.24-27
Дженнингс, Р. Использование Microsoft Office Access 2003 / Пер. с англ. Р.Дженнингс: пер. с англ. И. Тараброва – «Вильямс». 2005, С.46
Дженнингс, Р. Использование Microsoft Office Access 2003 / Пер. с англ. Р.Дженнингс: пер. с англ. И. Тараброва – «Вильямс». 2005, С.48

Дженнингс, Р. Использование Microsoft Office Access 2003 / Пер. с англ. Р.Дженнингс: пер. с англ. И. Тараброва – «Вильямс». 2005, С.50

[Электронный ресурс]. - Режим доступа: http://www.kgau.ru/istiki/umk/db/d_16_2_______________________________.htm
[Электронный ресурс]. - Режим доступа: http://www.tspu.tula.ru/ivt/old_site/umr/po/labor/lab11/prakt11.htm
Дженнингс, Р. Использование Microsoft Office Access 2003 / Пер. с англ. Р.Дженнингс: пер. с англ. И. Тараброва – «Вильямс». 2005, С.53-54

Камминг, Стив.VBA для "чайников", 3-е издание / Стив Камминг : пер. с англ. — М.: Издательский дом «Вильямс», 2001. — с. 25-30
[Электронный ресурс]. - Режим доступа: http://www.askit.ru/custom/vba_office/m12/12_05_access_form_object.htm












3



Заполненная база данных

Тип самолета



Пассажир


N

N

Имеет документ


Осуществляет

1


Рейс


Город


Выполняется в пункт


Имеет билет на рейс
списка билетов

1

N


N

1


1






С
О
З
Д
А
Н
И
Е

Ввод данных в таблицы

Создание схемы данных

Связи таблиц БД

П
Р
О
Е
Е
К
Т

Пустые таблицы БД

Конструирование таблиц БД

Проект структур таблиц БД

Проект структуры базы данных

Определение структуры реляционной базы данных предметной области

Построение модели данных предметной области

Документы предметной области

Список пассажиров по дате вылета

Рейсы в город назначения

Тип документа




Список пассажиров по дате вылета и фамилии

Список пассажиров по номеру рейса и дате вылета

Тип самолета
(открытие формы для редактирования)


Документ
(открытие формы для редактирования)


Города
(открытие формы для редактирования)


Запрос параметров
(форма для ввода параметров)


Справочная система
(открытие формы для ввода параметров)



Рейс
(открытие формы для редактирования)


Регистрация пассажиров
(открытие формы для редактирования)
ДАННЫХ)


Главная форма
«Автоматизированная система регистрации»


Список пассажиров по номеру рейса и фамилии

Завершение работы приложения