Разработка автоаматизированной системы заказа билетов на авиарейсы
Заказать уникальную дипломную работу- 81 81 страница
- 20 + 20 источников
- Добавлена 23.06.2020
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
Введение 2
Глава 1: Анализ задачи построения автоматизированной системы заказа билетов на авиарейсы 3
1.1 Анализ предметной области 3
1.2 Анализ существующих методов и программных средств решения задачи…………………………………………………………………………………4
1.3 Постановка задачи исследования 8
Глава 2: Проектирование автоматизированной системы заказа билетов на авиарейсы 10
2.1 Концептуальная модель системы 10
2.2 Инфологическое проектирование 26
2.3 Даталогическое проектирование 31
2.4 Разработка интерфейса пользователя 36
Глава 3. Реализация автоматизированной системы заказа билетов на авиарейсы 47
3.1 Разработка АИС 47
3.2 Реализация АИС 54
3.3 Тестирование АИС 59
Заключение 62
Библиографический список 63
Приложение А . Текст скрипта создания БД 65
Приложение В. Исходный код приложения 66
Приложение В. Интерфейс пользователя 73
В итоге пишется определенный документ, в котором записывается результат выполнения данного этапа, для того, чтобы каждый из разработчиков четко понимал свое место в проекте и задачи, которые ему предстоит решить. Модель итерационна и при прохождении всех этапов, проект можно доработать с учетом предыдущей итерации. Но, поскольку, окончание каждого этапа четко указано, нет, как в спиральной модели, бесконечного повторения одного и того же процесса.
К достоинствам данной модели относится то, что MSF является одной из самых интересных моделей разработки и создания проектов взявшее лучшее из других моделей и отказавшись от присущих им недостатков.
Создадим модель базы данных.
CREATE TABLE [dbo].[Расписание]
(
[Номер поезда] INT NOT NULL PRIMARY KEY,
[Откуда] NCHAR(20) NULL,
[Куда] NCHAR(20) NULL,
[Количество вагонов] INT NULL,
[Количество мест] INT NULL,
[Время отправки] DATETIME NULL,
[Время прибытия] DATETIME NULL
)
CREATE TABLE [dbo].[Table1]
(
[Id Пассажира] INT NOT NULL PRIMARY KEY,
[ФИО пассажира] NCHAR(10) NULL,
[Номер билета] INT NOT NULL,
[Номер поезда] INT NOT NULL
)
CREATE TABLE [dbo].[Table2]
(
[Номер билета] INT NOT NULL PRIMARY KEY,
[Id Пассажира] INT NOT NULL,
[Стоимость] REAL NULL
)
namespace Вокзал
{
partial class Form1
{
///
/// Required designer variable.
///
private System.ComponentModel.IContainer components = null;
///
/// Clean up any resources being used.
///
/// true if managed resources should be disposed; otherwise, false.
protected override void Dispose(bool disposing)
{
if (disposing && (components != null))
{
components.Dispose();
}
base.Dispose(disposing);
}
На рисунке 1.4 представлена структура таблицы Air_Company
Рис.1.4. Структура таблицы Air_Company
Для таблицы Aircfarts будет создана следующая структура, приведенная на рисунке 1.5.
Рис.1.5. Структура таблицы Aircrafts
Для таблицы Sheldule создается структура, приведенная на рисунке 1.6.
Рис.1.6. Структура таблицы Sheldule
Для таблицы Workers будет создана следующая структура, приведенная на рисунке 1.7.
Рис.1.7. Структура таблицы Workers
Для таблицы Dispatch будет создана следующая структура, приведенная на рисунке 1.8.
Рис.1.8. Структура таблицы Dispatch
Таким образом, могут быть автоматически сформированы тысячи строк кода. Методологическую основу ERwin составляет технология IDEF1X (моделирование данных для реляционных СУБД). Результатом построения является ER-диаграмма ( «сущность-связь»). Графический подход к созданию моделей значительно упрощает процесс разработки.
С помощью программы можно осуществить:
1). Создание новой БД.
2). Чтение БД из файла.
3). Сохранение БД в файл.
4). Добавление записи в БД.
5). Удаление записи из БД.
6). Просмотр БД.
7). Редактирования БД.
8). Вычисление количества билетов.
9). Поиск по пункту назначения.
10). Поиск по номеру поезда.
11). Сохранение БД в бинарный файл.
12). Чтение БД из бинарного файла.
13) Выход из программы. [7]
3.2 Реализация АИС
Реализация главного окна выглядит следующим образом:
Рис. 3.1. Главное окно программы
Главная форма содержит двухуровневое меню управления программой.
Меню справочника Вид самолета:
Рис. 3.2. Справочник Вид самолета
Добавление новой записи:
Рис. 3.3. Справочник Вид самолета
Добавляем информацию о новом самолете:
Рис. 3.4. Справочник Вид самолета
Выводим информацию о самолетах:
Рис. 3.5. Справочник Тип самолета
Выводим информацию о маршрутах:
Рис. 3.6. Справочник Маршрут
Выводим информацию о рейсах:
Рис. 3.7. Справочник Рейсы
Справочник Тип багажа:
Рис. 3.8. Справочник Тип багажа
Справочник Вид расчета:
Рис. 3.9. Справочник Вид расчета
Операции по билетах:
Рис. 3.10. Продажа билетов
3.3 Тестирование АИС
Вывод информации о пассажирах:
Рис. 3.11. Информация о пассажире
Информация по билетах:
Рис. 3.12. Продажа билетов
Печать отчетов:
Рис. 3.13. Посадочная ведомость
Рис. 3.14. Посадочная ведомость Отчет
Рис. 3.15. Возврат билета
Рис. 3.16. Возврат билета Отчет
Заключение
В процессе выполнения данной работы были выполнены следующие задачи:
Определено понятие и функции программного приложения для торговли, а также основную технологию покупки билетов в кассе аэропорта.
Разработан платформо-независимый проект заказ авиа билетов.
Современные виды услуг в мире и в частности в РФ продолжают совершенствоваться. С развитием научно-технического прогресса постоянно появляются новые услуги. Авиаперевозки занимает заметное место в производственной и социальной инфраструктуре, поскольку является ее неотъемлемой частью.
В сфере социального обеспечения населения услуги по авиаперевозке дают возможность пользоваться надежными средствами связи для пересылки различного рода отправлений. В сфере общественного производства товаров авиаперевозки грузов обеспечивают взаимосвязь между участниками производственных операций и доведения их продукта до нужного потребителя.Авиаперевозки - это деятельность, связанная с оказанием услуг и работами, которые обеспечивают транспортировку пассажиров в строго ограниченные по времени сроки.
Целью данного проекта являлось создание приложения по реализации билетов аэропорта.
Для выполнения этой цели в работе поставлены и решены следующие задачи:
• информационное сопровождение службы авиаперевозки;
• анализ процесса оформления и выполнения реализации билетов аэропорта.
Практическая значимость работы заключается в том, что разработана информационная система, может использоваться для реализации билетов аэропорта.
В процессе выполнения данной работы сделаны соответствующие выводы:
Juce представляет из себя кроссплатформенный инструмент для разработки графического интерфейса пользователя, а также универсальную библиотеку классов для решения различных задач.
Компоненты, входящие в состав Juce, обеспечивают попиксельного идентичность интерфейса создаваемых программ под различными операционными системами.
Основное назначение Juce - создание программ с оригинальным внешним видом, не зависящим от внешних библиотек, а также приложений для обработки звука.
Распространяется Juce в виде исходных текстов под двумя типами лицензий: свободной и коммерческой.
В состав Juce входят вспомогательные программы: Introjucer для создания проектов и the jucer, отвечающий за визуальное проектирование компонентов.
Осуществлено технико-экономическое обоснование разрабатываемого в данном дипломном проекте программного продукта. Оценена экономическая эффективность внедрения системы управления корпоративной информации на анализируемом предприятии. Срок окупаемости проекта составил 1,2 года и позволяет сократить материальные затраты предприятия в результате автоматизации процесса хранения и управления документацией. Для сравнения, готовое программное решение имеет срок окупаемости 2 года, а адаптированное решение 1,5 года. Таким образом, разрабатывая программное решение под запросы организации получаем эффективную АИС с наименьшими затратами.
Библиографический список
Microsoft Access 2000. Шаг за шагом: Пер. с англ. М.: ЭКОМ, 2015. 350 с.
Visual Basic для приложений (версия 5) в подлиннике П. Сканна и др – СПб.: «BHV-Санкт-Петербург», 17. – 468 с.
Алан Саймон Стратегические технологии БД. – М.: Финансы и статистика, 2016. – 484 с.
Атре Ш. Структурний підхід до організації баз даних. - М.: Фінанси і статистика, 2013. - 320 с.
Базы даных: Учеб. для вузов / Под ред. А. Д. Хомоненко. СПб.: КОРОНА принт, 2015. 416 с.
Бемер С. MS Access 2.0: Пер. с нем. СПб.: BHV - Санкт-Петербург, 2015. 448 с.
Богданова Н. П. Access 2000 - интегрированная среда для работы с данными: Метод, указания к практ. занятиям / РГРТА. Рязань, 2016.28с.
Боровиков, В. В. Microsoft Access 2002. Программирование и разработка баз данных и приложений / В. В. Боровиков. – М. : СОЛОН-Р, 2012. – 560 с.
Предметно-ориентированные экономические информационные системы / В. М. Вдовин, Л. Е. Суркова, А. А. Шурупов. Дашков и Ко. 2012. – 388 с.
Рассел, Д. Информационная система / Дашков и Ко. 2012. – 113 с.
Рогожин, М. Ю. Делопроизводство в примерах и образцах: на предприятии, в отделе кадров, в службе ДОУ. ГОСТы, нормативы, бланки / ПрессЮрЛит, ВБВ. 2004. – 160 с.
Розенберг, Д., Скотт К. Применение объектного моделирования с использованием UML и анализ прецедентов / ДМК Пресс. 2001. - 160 c.
Семакин, И. Г., Хеннер Е. К. Информационные системы и модели. Элективный курс. Практикум / Бином. Лаборатория знаний. 2012. – 88 с.
Семакин, И. Г., Хеннер Е. К. Информационные системы и модели / Бином. Лаборатория знаний. 2012. – 304 с.
Семенихин, В. В. Кадровый документооборот / Эксмо. 2010. – 384 с.
Семенихин, В. В. Проэктирование АИС / Эксмо. 2016. – 454 с.
Сенкевич, Г. Е. Информационная система малого предприятия «с нуля». Самое необходимое / БХВ-Петербург. 2012. – 400 с.
Сердюк, В. А. Организация и технологии защиты информации. Обнаружение и предотвращение информационных атак в автоматизированных системах предприятий / Высшая Школа Экономики (Государственный Университет). 2011. – 576 с.
Современные операционные системы / С. В. Назаров, А. И. Широков. Бином. Лаборатория знаний. 2011. – 280 с.
Чистов, Д. В. Информационные системы в экономике / Инфра-М. 2012. – 240 с.
Приложение А . Текст скрипта создания БД
CREATE TABLE [dbo].[Расписание]
(
[Номер поезда] INT NOT NULL PRIMARY KEY,
[Откуда] NCHAR(20) NULL,
[Куда] NCHAR(20) NULL,
[Количество вагонов] INT NULL,
[Количество мест] INT NULL,
[Время отправки] DATETIME NULL,
[Время прибытия] DATETIME NULL
)
CREATE TABLE [dbo].[Table1]
(
[Id Пассажира] INT NOT NULL PRIMARY KEY,
[ФИО пассажира] NCHAR(10) NULL,
[Номер билета] INT NOT NULL,
[Номер поезда] INT NOT NULL
)
CREATE TABLE [dbo].[Table2]
(
[Номер билета] INT NOT NULL PRIMARY KEY,
[Id Пассажира] INT NOT NULL,
[Стоимость] REAL NULL
)
Приложение В. Исходный код приложения
namespace Вокзал
{
partial class Form1
{
///
/// Required designer variable.
///
private System.ComponentModel.IContainer components = null;
///
/// Clean up any resources being used.
///
/// true if managed resources should be disposed; otherwise, false.
protected override void Dispose(bool disposing)
{
if (disposing && (components != null))
{
components.Dispose();
}
base.Dispose(disposing);
}
#region Windows Form Designer generated code
///
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
///
private void InitializeComponent()
{
this.SuspendLayout();
//
// Form1
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.ClientSize = new System.Drawing.Size(800, 450);
this.Name = "Form1";
this.Text = "Железнодорожный вокзал";
this.ResumeLayout(false);
}
#endregion
}
}
const string inputFile = @"Model1.edmx";
var textTransform = DynamicTextTransformation.Create(this);
var code = new CodeGenerationTools(this);
var ef = new MetadataTools(this);
var typeMapper = new TypeMapper(code, ef, textTransform.Errors);
var fileManager = EntityFrameworkTemplateFileManager.Create(this);
var itemCollection = new EdmMetadataLoader(textTransform.Host, textTransform.Errors).CreateEdmItemCollection(inputFile);
var codeStringGenerator = new CodeStringGenerator(code, typeMapper, ef);
if (!typeMapper.VerifyCaseInsensitiveTypeUniqueness(typeMapper.GetAllGlobalItems(itemCollection), inputFile))
{
return string.Empty;
}
WriteHeader(codeStringGenerator, fileManager);
foreach (var entity in typeMapper.GetItemsToGenerate
{
fileManager.StartNewFile(entity.Name + ".cs");
BeginNamespace(code);
#>
<#=codeStringGenerator.UsingDirectives(inHeader: false)#>
<#=codeStringGenerator.EntityClassOpening(entity)#>
{
<#
var propertiesWithDefaultValues = typeMapper.GetPropertiesWithDefaultValues(entity);
var collectionNavigationProperties = typeMapper.GetCollectionNavigationProperties(entity);
var complexProperties = typeMapper.GetComplexProperties(entity);
if (propertiesWithDefaultValues.Any() || collectionNavigationProperties.Any() || complexProperties.Any())
{
#>
[System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA2214:DoNotCallOverridableMethodsInConstructors")]
public <#=code.Escape(entity)#>()
{
<#
foreach (var edmProperty in propertiesWithDefaultValues)
{
#>
this.<#=code.Escape(edmProperty)#> = <#=typeMapper.CreateLiteral(edmProperty.DefaultValue)#>;
<#
}
foreach (var navigationProperty in collectionNavigationProperties)
{
#>
this.<#=code.Escape(navigationProperty)#> = new HashSet<<#=typeMapper.GetTypeName(navigationProperty.ToEndMember.GetEntityType())#>>();
<#
}
foreach (var complexProperty in complexProperties)
{
#>
this.<#=code.Escape(complexProperty)#> = new <#=typeMapper.GetTypeName(complexProperty.TypeUsage)#>();
<#
}
#>
}
<#
}
var simpleProperties = typeMapper.GetSimpleProperties(entity);
if (simpleProperties.Any())
{
foreach (var edmProperty in simpleProperties)
{
#>
<#=codeStringGenerator.Property(edmProperty)#>
<#
}
}
if (complexProperties.Any())
{
#>
<#
foreach(var complexProperty in complexProperties)
{
#>
<#=codeStringGenerator.Property(complexProperty)#>
<#
}
}
var navigationProperties = typeMapper.GetNavigationProperties(entity);
if (navigationProperties.Any())
{
#>
<#
foreach (var navigationProperty in navigationProperties)
{
if (navigationProperty.ToEndMember.RelationshipMultiplicity == RelationshipMultiplicity.Many)
{
#>
[System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA2227:CollectionPropertiesShouldBeReadOnly")]
<#
}
#>
<#=codeStringGenerator.NavigationProperty(navigationProperty)#>
<#
}
}
#>
}
<#
EndNamespace(code);
}
foreach (var complex in typeMapper.GetItemsToGenerate
{
fileManager.StartNewFile(complex.Name + ".cs");
BeginNamespace(code);
#>
<#=codeStringGenerator.UsingDirectives(inHeader: false, includeCollections: false)#>
<#=Accessibility.ForType(complex)#> partial class <#=code.Escape(complex)#>
{
<#
var complexProperties = typeMapper.GetComplexProperties(complex);
var propertiesWithDefaultValues = typeMapper.GetPropertiesWithDefaultValues(complex);
if (propertiesWithDefaultValues.Any() || complexProperties.Any())
{
#>
public <#=code.Escape(complex)#>()
{
<#
foreach (var edmProperty in propertiesWithDefaultValues)
{
#>
this.<#=code.Escape(edmProperty)#> = <#=typeMapper.CreateLiteral(edmProperty.DefaultValue)#>;
<#
}
Приложение В. Интерфейс пользователя
Код программы:
unit UnBase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables, StdCtrls,
Buttons, ComCtrls;
type
TFmBase = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
dbgrd1: TDBGrid;
DSTour: TDataSource;
TbTour: TTable;
TbTourName: TStringField;
TbTourDoc: TStringField;
TbTourPlace: TStringField;
TbTourDate: TDateField;
TbTourPrice: TCurrencyField;
BitBtnNew: TBitBtn;
BitBtnEdit: TBitBtn;
BitBtnDelete: TBitBtn;
EditSearch: TEdit;
Label1: TLabel;
RadioGroup1: TRadioGroup;
DateTimePicker1: TDateTimePicker;
procedure BitBtnNewClick(Sender: TObject);
procedure BitBtnEditClick(Sender: TObject);
procedure BitBtnDeleteClick(Sender: TObject);
procedure EditSearchChange(Sender: TObject);
procedure DateTimePicker1CloseUp(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmBase: TFmBase;
implementation
uses UnNew,UnEdit,UnDelete;
{$R *.dfm}
procedure TFmBase.BitBtnNewClick(Sender: TObject);
begin
FmNew.Show;
end;
procedure TFmBase.BitBtnEditClick(Sender: TObject);
begin
FmEdit.Show;
end;
procedure TFmBase.BitBtnDeleteClick(Sender: TObject);
begin
FmDelete.Show;
end;
procedure TFmBase.EditSearchChange(Sender: TObject);
var stfield : string;
begin
case RadioGroup1.ItemIndex of
0 : stfield := 'Name';
1 : stfield := 'Place';
//Выбор полей, по которым будет осуществляться поиск
end;
FmBase.TbTour.Locate(stfield,EditSearch.Text,[loCaseInsensitive,loPartialKey]);
//Поиск
end;
procedure TFmBase.DateTimePicker1CloseUp(Sender: TObject);
begin FmBase.TbTour.Locate('Date',DateToStr(DateTimePicker1.Date),[loCaseInsensitive,loPartialKey]);
//Поиск по дате
end;
procedure TFmBase.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 2 then
begin
DateTimePicker1.Visible := true;
EditSearch.Visible := false;
end else
begin
DateTimePicker1.Visible := false;
EditSearch.Visible := true;
end;
//Скрытие одних элементов и отображение других
end;
end.
unit UnNew;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ComCtrls;
type
TFmNew = class(TForm)
EditName: TEdit;
EditDoc: TEdit;
EditPlace: TEdit;
EditPrice: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtnAdd: TBitBtn;
DateTimePicker1: TDateTimePicker;
procedure BitBtnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmNew: TFmNew;
implementation
uses UnBase;
{$R *.dfm}
procedure TFmNew.BitBtnAddClick(Sender: TObject);
begin
if (EditName.Text = '') or (EditDoc.Text = '') or (EditPlace.Text = '') or
(EditPrice.Text = '') then
begin
ShowMessage('Проверьте все ли данные введены.');
exit;
//Если какие-либо из полей не заполнены - выход из процедуры
end;
FmBase.TbTour.Insert;
FmBase.TbTour.FieldByName('Name').AsString := EditName.Text;
FmBase.TbTour.FieldByName('Doc').AsString := EditDoc.Text;
FmBase.TbTour.FieldByName('Place').AsString := EditPlace.Text;
FmBase.TbTour.FieldByName('Date').AsDateTime := DateTimePicker1.Date;
FmBase.TbTour.FieldByName('Price').AsString := EditPrice.Text;
FmBase.TbTour.Post;
EditName.Text := '';
EditDoc.Text := '';
EditPlace.Text := '';
EditPrice.Text := '';
//Внесение новой записи
end;
end.
unit UnEdit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, ExtCtrls, Mask, Buttons, ComCtrls;
type
TFmEdit = class(TForm)
DBEditName: TDBEdit;
Label1: TLabel;
DBNavigator1: TDBNavigator;
Label2: TLabel;
DBEditDoc: TDBEdit;
Label3: TLabel;
DBEditPlace: TDBEdit;
Label4: TLabel;
Label5: TLabel;
DBEditPrice: TDBEdit;
BitBtnSave: TBitBtn;
DateTimePicker1: TDateTimePicker;
DBEditDate: TDBEdit;
procedure BitBtnSaveClick(Sender: TObject);
procedure DateTimePicker1CloseUp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmEdit: TFmEdit;
implementation
uses UnBase;
{$R *.dfm}
procedure TFmEdit.BitBtnSaveClick(Sender: TObject);
begin
If (DBEditName.Text = '') or (DBEditDoc.Text = '') or (DBEditPlace.Text = '') or
(DBEditPlace.Text = '') or (DBEditDate.Text = '') then
begin
ShowMessage('Проверьте правильность входных данных.');
exit;
//Если какие-либо из полей не заполнены - выход из процедуры
end;
FmBase.TbTour.Post;
end;
procedure TFmEdit.DateTimePicker1CloseUp(Sender: TObject);
begin
FmBase.TbTour.Edit;
DBEditDate.Text := DateToStr(DateTimePicker1.Date);
//Отображение в поле измененной даты
end;
end.
unit UnDelete;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;
type
TFmDelete = class(TForm)
DBEditName: TDBEdit;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
DBEditDoc: TDBEdit;
Label3: TLabel;
DBEditPlace: TDBEdit;
Label4: TLabel;
DBEditDate: TDBEdit;
DBEditPrice: TDBEdit;
BitBtnSave: TBitBtn;
Label6: TLabel;
procedure BitBtnSaveClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmDelete: TFmDelete;
implementation
uses UnBase;
{$R *.dfm}
procedure TFmDelete.BitBtnSaveClick(Sender: TObject);
begin
FmBase.TbTour.Delete;
//Удаление выбранной записи
end;
end.
unit UnTravel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TFmMenu = class(TForm)
BitBtnBase: TBitBtn;
BitBtnExit: TBitBtn;
Timer1: TTimer;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
procedure BitBtnBaseClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmMenu: TFmMenu;
i : integer;
str : string;
flag : boolean;
implementation
uses UNBase;
{$R *.dfm}
procedure TFmMenu.BitBtnBaseClick(Sender: TObject);
begin
FmBase.Show;
end;
procedure TFmMenu.FormActivate(Sender: TObject);
begin
Timer1.Enabled:=true;
Label1.Caption:='';
i:=0;
str:='';
FmBase.TbTour.Active := false;
FmBase.TbTour.TableName := GetCurrentDir +'/base/base.db';
FmBase.TbTour.Active := true;
end;
procedure TFmMenu.Timer1Timer(Sender: TObject);
begin
If Label1.Caption <> str then
Begin
i:=i+1;
Label1.Caption:=Label1.Caption+str[i];
End
else Timer1.Enabled:=false;
end;
procedure TFmMenu.Timer2Timer(Sender: TObject);
begin
If flag = false then Label2.Left:=Label2.Left+5;
If Label2.left>=290 then
Begin
flag:= true;
Label2.Font.Color:=clMaroon;
end;
If flag = true then Label2.Left:=Label2.Left-5;
If Label2.left <= 5 then
Begin
flag:= false;
Label2.Font.Color:=clNavy;
end;
end;
procedure TFmMenu.FormDeactivate(Sender: TObject);
begin
Timer2.Enabled := false;
end;
end
44
56
2. Visual Basic для приложений (версия 5) в подлиннике П. Сканна и др – СПб.: «BHV-Санкт-Петербург», 17. – 468 с.
3. Алан Саймон Стратегические технологии БД. – М.: Финансы и статистика, 2016. – 484 с.
4. Атре Ш. Структурний підхід до організації баз даних. - М.: Фінанси і статистика, 2013. - 320 с.
5. Базы даных: Учеб. для вузов / Под ред. А. Д. Хомоненко. СПб.: КОРОНА принт, 2015. 416 с.
6. Бемер С. MS Access 2.0: Пер. с нем. СПб.: BHV - Санкт-Петербург, 2015. 448 с.
7. Богданова Н. П. Access 2000 - интегрированная среда для работы с данными: Метод, указания к практ. занятиям / РГРТА. Рязань, 2016.28с.
8. Боровиков, В. В. Microsoft Access 2002. Программирование и разработка баз данных и приложений / В. В. Боровиков. – М. : СОЛОН-Р, 2012. – 560 с.
9. Предметно-ориентированные экономические информационные системы / В. М. Вдовин, Л. Е. Суркова, А. А. Шурупов. Дашков и Ко. 2012. – 388 с.
10. Рассел, Д. Информационная система / Дашков и Ко. 2012. – 113 с.
11. Рогожин, М. Ю. Делопроизводство в примерах и образцах: на предприятии, в отделе кадров, в службе ДОУ. ГОСТы, нормативы, бланки / ПрессЮрЛит, ВБВ. 2004. – 160 с.
12. Розенберг, Д., Скотт К. Применение объектного моделирования с использованием UML и анализ прецедентов / ДМК Пресс. 2001. - 160 c.
13. Семакин, И. Г., Хеннер Е. К. Информационные системы и модели. Элективный курс. Практикум / Бином. Лаборатория знаний. 2012. – 88 с.
14. Семакин, И. Г., Хеннер Е. К. Информационные системы и модели / Бином. Лаборатория знаний. 2012. – 304 с.
15. Семенихин, В. В. Кадровый документооборот / Эксмо. 2010. – 384 с.
16. Семенихин, В. В. Проэктирование АИС / Эксмо. 2016. – 454 с.
17. Сенкевич, Г. Е. Информационная система малого предприятия «с нуля». Самое необходимое / БХВ-Петербург. 2012. – 400 с.
18. Сердюк, В. А. Организация и технологии защиты информации. Обнаружение и предотвращение информационных атак в автоматизированных системах предприятий / Высшая Школа Экономики (Государственный Университет). 2011. – 576 с.
19. Современные операционные системы / С. В. Назаров, А. И. Широков. Бином. Лаборатория знаний. 2011. – 280 с.
20. Чистов, Д. В. Информационные системы в экономике / Инфра-М. 2012. – 240 с.
Вопрос-ответ:
Какие задачи решает автоматизированная система заказа билетов на авиарейсы?
Автоматизированная система заказа билетов на авиарейсы решает задачи связанные с оформлением заказа, поиском доступных рейсов, выбором места, расчетом стоимости и оплатой билетов.
Какие методы и программные средства используются для решения задачи разработки системы заказа билетов на авиарейсы?
Для решения задачи разработки системы заказа билетов на авиарейсы могут быть использованы различные методы и программные средства, такие как: алгоритмы поиска рейсов, базы данных для хранения информации о рейсах и пассажирах, системы онлайн-оплаты, веб-сервисы для коммуникации с авиакомпаниями и пассажирами.
Какие основные этапы проектирования автоматизированной системы заказа билетов на авиарейсы?
Основные этапы проектирования автоматизированной системы заказа билетов на авиарейсы включают: разработку концептуальной модели системы, инфологическое проектирование, даталогическое проектирование, физическое проектирование и реализацию системы.
Каким образом автоматизированная система заказа билетов на авиарейсы обеспечивает поиск доступных рейсов?
Автоматизированная система заказа билетов на авиарейсы обеспечивает поиск доступных рейсов с помощью алгоритмов поиска, которые анализируют базу данных рейсов и проводят поиск по заданным критериям, таким как место отправления, место прибытия, дата и время вылета.
Как осуществляется оплата билетов через автоматизированную систему заказа билетов на авиарейсы?
Оплата билетов через автоматизированную систему заказа билетов на авиарейсы осуществляется с помощью систем онлайн-оплаты, таких как платежные шлюзы или системы электронных платежей. Пользователь выбирает удобный способ оплаты и следует инструкциям системы для завершения платежа.
Каковы основные этапы разработки автоматизированной системы заказа билетов на авиарейсы?
Основные этапы разработки автоматизированной системы заказа билетов на авиарейсы включают: анализ задачи, анализ предметной области и существующих методов, постановка задачи исследования, проектирование системы, концептуальное моделирование, инфологическое проектирование, даталогическое проектирование, физическое проектирование, разработка и тестирование системы, внедрение и поддержка.
Какие методы и программные средства можно использовать для решения задачи заказа билетов на авиарейсы?
Для решения задачи заказа билетов на авиарейсы можно использовать различные методы и программные средства, такие как базы данных для хранения информации о рейсах и билетах, алгоритмы и программы для поиска и бронирования билетов, веб-приложения для удобного доступа пользователей к информации и оформлению заказов, системы электронной коммерции для совершения оплаты.
Какую модель системы можно использовать при разработке автоматизированной системы заказа билетов на авиарейсы?
При разработке автоматизированной системы заказа билетов на авиарейсы можно использовать концептуальную модель системы, которая представляет общую структуру и функции системы. Концептуальная модель позволяет определить основные объекты, их свойства и взаимосвязи в системе, а также операции, которые могут быть выполнены над этими объектами.
Что включает в себя инфологическое проектирование при разработке автоматизированной системы заказа билетов на авиарейсы?
Инфологическое проектирование при разработке автоматизированной системы заказа билетов на авиарейсы включает в себя определение информационных объектов и связей между ними. В результате инфологического проектирования создается информационная модель системы, которая позволяет представить структуру и характеристики информации, не зависящие от конкретных технологий и средств реализации.
Какие этапы проектирования проходит автоматизированная система заказа билетов на авиарейсы?
Автоматизированная система заказа билетов на авиарейсы проходит несколько этапов проектирования: концептуальное моделирование, инфологическое проектирование, даталогическое проектирование и физическое проектирование. На каждом этапе происходит всестороннее анализ и определение структуры, функций и характеристик системы, чтобы обеспечить ее эффективную работу и легкость поддержки и развития.
Какие задачи решает автоматизированная система заказа билетов на авиарейсы?
Автоматизированная система заказа билетов на авиарейсы решает следующие задачи: ведение базы данных авиарейсов и доступных мест, обработка и хранение информации о пассажирах, резервирование и продажа билетов, расчет стоимости билетов, оформление документов для пассажиров и управление финансовыми операциями.
Какие методы и программные средства используются для решения задачи автоматизации заказа билетов?
Для решения задачи автоматизации заказа билетов используются различные методы и программные средства. В зависимости от конкретных требований и особенностей системы, можно применять технологии баз данных для хранения и обработки информации, языки программирования для разработки пользовательского интерфейса и бизнес-логики, системы электронной коммерции для обработки платежей и интеграции с банковскими системами, средства защиты информации и другие.