Air Ticket Automator

Air Ticket Automator (ATA) - это программный продукт для туристических агентств, который автоматизирует оформление ручных бланков таких как: авиабилеты, слипы кредитных карточек, квитанции дополнительных сборов (МСО), уведомлений по возврату денег за билеты, контроль стоков авиабилетов и многие другие операции [19].

Программа Air Ticket Automator предоставляется бесплатно всем туристическим агентствам, подключенным к Sabre в России и странах СНГ.

Основные Преимущества: Имеет подключение к Sabre GDS.

Экономит время, выполняя автоматический перенос данных из PNR в маску билета.

Уменьшает объем работы, пересылая данные в файл Sabre IUR, который используется для передачи информации в различные бухгалтерские программы.

Повышает производительность и эффективность работы агента при выписке билетов для большого числа пассажиров и при групповых перевозках.

Сокращает количество ошибок благодаря возможности предварительного просмотра билета до выполнения операции выписки.

Возможности

Air Ticket Automator (ATA) - это важнейший инструмент, который предоставляется бесплатно для туристических агентств, подключенных к Sabre GDS.

ATA имеет набор необходимых инструментов, которые помогают Вам сократить временные затраты, повысить эффективность работы и сократить количество ошибок:

Интерфейс на русском и английском языках.

Современный графический интерфейс пользователя.

Подключение к ГДС Sabre.

Автоматизированный перенос данных PNR.

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

Обновление данных авиакомпаний, аэропортов и кредитных карточек в таблицах в режиме реального времени.

Возможность работы в разных режимах: для начинающих, среднего уровня и для продвинутых пользователей (агент, супервайзер, менеджер).

Исключение ошибок при помощи использования предварительного просмотра и управления полями билетопечати.

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

Опция по сохранению и извлечению масок билетов.

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

Управление номерами бланков билетов (stock control).

Сохранение в PNR строки учетных данных Sabre для будущего использования в бэк-офис Sabre.

Оформление инвойсов в Sabre по отдельным сегментам.

Автоматическое уведомление авиакомпании о номере билета по отдельным сегментам в формате, установленном перевозчиком.

Ежедневная и периодическая отчетность по распечатываемым документам.

Функция экспорта данных для импорта данных в другие прикладные программы.

2. Разработка и проектирование информационно справочной системы

2.1 Создание модели управления данными

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

Диаграмма использования (use case - diagram) описывает функции системы и применяется при общении разработчиков с пользователями и заказчиками системы. На диаграмме использования изображаются внешние субъекты (actors) и их связь с аспектами использования системы, т.е. определяются требования к функциям конечной системы.

Диаграмма активности (activity - diagram) описывает детальное выполнение каждой функции системы [20].

Проектирование диаграмм осуществляется с помощью пакета MS Visio 2003. Этот пакет служит для создания технических диаграмм и различных схем для большего понимания и организации сложных процессов и систем. Диаграммы в этом пакете строятся путем перетаскивания на рабочий планшет готовых фигур, принятых в UML (actor, use-case и т.д.).

Рассмотрим создание диаграммы использования для нашей системы. Выделим 2 класса пользователей (2 роли), которым соответствуют 2 внешних субъекта:

- Менеджер - просмотр информации, поиск нужной информации, изменение информации, печать.

- Турист - просмотр информации, поиск нужной информации, печать.

В окончательном виде диаграмма использования информационно справочной системы "Европейские государства" будет иметь вид, представленный на рисунке 1.

Рисунок 1. Диаграмма использования информационно справочной системы "Европейские государства"

Рисунок 2. Диаграмма активности аспекта "Просмотр информации".

Рисунок 3. Диаграмма активности аспекта "Поиск нужной информации и печать".

Обоснование выбора СУБД

Microsoft Access 2003 - это интерактивная реляционная СУБД для Windows. Это программа, которую можно использовать для хранения и извлечения данных в зависимости от отношений, которые установил пользователь. Работа с ней упрощена посредством манипулятора мыши. Графические возможности оболочки производят большое впечатление при изготовлении высококачественных отчетов и распечаток [21].

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

Информация в БД должна быть:

- не противоречивой;

- не избыточной;

- целостной.

База данных - это набор данных, который связан с определенной темой или назначением. При создании базы данных в MS-Access, пользователь создает 1 файл, который содержит все таблицы, запросы, формуляторы, отчеты и другие объекты, которые помогают использовать информацию в базе данных.

Созданную базу данных можно наполнить объектами разного рода и выполнять операции с ними.

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

Таблица - это набор записей (строк таблицы), состоящих из отдельных полей (колонок таблицы), в которых хранится информация и составляющая, собственно, содержание базы данных.

Таблицы являются основной формой представления информации, содержащейся в базе данных. На базе таблиц составляются запросы и отчеты.

Просмотр базы данных в виде таблицы в режиме заполнения дает пользователю возможность оценить базу как единое целое, сравнить записи и т.п. Часто, однако, возникает необходимость работы с отдельными записями базы. В этом случае присутствие на экране других записей (как это имеет место в режиме заполнения) только мешает и отвлекает. Работа с отдельными записями посредством форм позволяет сосредоточиться только на относящейся к делу информации.

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

При проектировании формы в нее можно вставить упрощающие элементы (командные кнопки, списки, иллюстрации и прочее).

Запрос можно представить себе как точку зрения на данные, включенные в таблицу. Запросы служат для выбора и фильтрации набора данных. Они позволяют выбрать из базы только необходимую информацию, т.е. ту, которая соответствует определенному критерию (условию) и нужна для решения конкретной задачи. Запросы создаются при помощи конструктора или при помощи мастера.

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

MS-Access обеспечивает несколько способов получения информации из базы данных - используя запрос, форму или отчет. Можно выбрать тот метод, который наиболее подходит решению вашей задачи.

Перед тем как создать отчет, необходимо решть, откуда отчет будет извлекать данные. Если все данные из одной таблицы, то отчет будет основываться на одной таблице. Если же вам необходимы данные более чем из одной таблицы, то ваш отчет должен основываться на запросе.

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

Макросы могут быть полезны для автоматизации часто выполняемых действий. Если записать эти действия в виде макроса, то они будут выполняться автоматически при запуске макроса. Например, при нажатии пользователем кнопки можно запустить макрос, который распечатает отчет или выведет на экран форму т.е. включенные в таблицу, кнопки, списки, иллюстрации и прочее).

Создание таблиц и схемы данных БД

На основе построения логической модели при помощи MS Access была создана таблица. Таблицу в MS Access можно построить несколькими способами:

- Построить новую таблицу, воспользовавшись "Конструктором".

- Запустить Мастер таблиц - специальную программу, предлагающую создать таблицу в пошаговом режиме на базе типовых решений, имеющихся в MS Access.

- Импортировать таблицу БД из файла какой-либо программы.

Структуры таблицы "Государства" в которой приведены основные сведения о Европейских странах (название, официальное название, столица государства, официальный язык, валюта, площадь, занимаемая государством и место в мире по площади) представлена в таблице 1.

Таблица 1.

Структура таблицы "Государства"

Имя поля	Тип данных	Описание
Название	Текстовый	Название Европейского государства
Официальное название	Текстовый	Официальное название Европейского государства
Столица	Текстовый	Столица Европейского государства
Язык	Текстовый	Официальный язык Европейского государства
Валюта	Текстовый	Валюта Европейского государства
Площадь	Числовой	Площадь, занимаемая Европейским государством
Место в мире	Числовой	Место в мире по площади, занимаемая Европейским государством

Используемы компоненты в программе

Задачей данной программы является отображение найденной графической и текстовой информации, а так же печать и сохранение данных при обращении пользователя к функциям "Печать" и "Сохранить как". Таким образом, используемые компоненты в программе были выбраны из широкого круга компонентов по тому, какая логика отображения у данных компонентов.

Компоненты отображения данных

TRichEdit - Отображает область редактируемого ввода множественных строк информации в формате RTF (Rich Text Format), который включает различные вариации атрибутов шрифта и форматирования параграфов. Данный формат принимают многие профессиональные текстовые процессоры, например, Microsoft Word. Например TrichEdit (в программе) в разделе Районы, при выборе района Европы отображает информацию, связанную с географическим районированием.

Timage - Создает на форме контейнер графического изображения (битового образа, пиктограммы или метафайла). Окно редактора файлов изображений открывается кнопкой в графе значений свойства Picture

На пример Timage (в программе), в разделе Европа на карте, при выборе желаемой карты государства отображает ее;

SaveDialog-сохраняет данные, будь то графическая или текстовая информация (пользователь может указывать имя файла);

PrintDialog-показывает стандартное окно диалога печати, которая позволяет пользователем определять информацию печати, типа диапазона страниц и копии;

Label-отображает на форме прямоугольную область статического текста, который нельзя редактировать. Обычно, текст представляет собой название другого компонента. Текст названия является значением свойства Caption [22].

TmainMenu-создает панель команд главного меню и соответствующие им выпадающие меню для формы;

Tpanel - Создает пустую панель, которая может содержать другие компоненты;

Компоненты ввода данных

Tedit-отображает прямоугольную область редактируемого ввода одиночной строки информации на форме. Начальное содержимое области редактирования определяет строка, являющаяся значением свойства Text. Tedit является прямой производной от класса TcustomEdit, полностью наследуя его свойства, методы и события.

Tbutton (кнопка) - Создает прямоугольную кнопку с надписью. Нажатие на кнопку инициирует некоторое действие в программе.

TradioButton-создает круглую кнопку с двумя состояниями и описательным текстом, специфицирующим ее назначение. Радио-кнопки представляют набор взаимоисключающих вариантов выбора: только одна кнопка может быть выбрана в данный момент времени (отмечается внутренним черным кружком), а с ранее выбранной кнопки выбор автоматически снимается. При нажатии радио-кнопки свойство компоненты Checked меняется соответственно и возникает событие OnClick. Если выбрана одна кнопка, выбор всех прочих кнопок той же группе автоматически снимается.

TcomboBox - Создает комбинацию области редактирования из выпадающего списка текстовых вариантов для выбора. Значение свойства Text заносится непосредственно в область редактирования. Элементы списка, которые может выбирать пользователь, содержатся в свойстве Items, номер элемента, который будет выбран во время выполнения программы, - в свойстве Itemlndex, а сам выбранный текст - в свойстве SelText. Свойства SelStart и SelLength позволяют установить выборку части текста или обнаружить, какая часть текста выбрана.

Компоненты доступа к базам данных

Невидимые компоненты, обеспечивают соединения с базами данных, что позволяет сфокусировать внимание на обслуживании данных, не обращая внимания на организацию взаимодействия с пользователем [23].

TdataSource-представляет собой интерфейс между прочими компонентами доступа к наборам данных и видимыми компонентами управления, размещенными на форме. Именно посредством соединения с источником данных пользователь получает возможность отображения, навигации и редактирования содержимого баз данных. Установка значения false свойства AutoEdit запрещает режим редактирования набора данных. Свойство DataSet указывает, с каким набором данных (таблицей, запросом) связан их источник.

ADOTable-Представляет собой интерфейс между механизмом BDE и компонентой TdataSource, которая, в свою очередь, образует соединение с такими компонентами управления, как TDBGrid. Именно посредством ADOТаblе, обеспечивается доступ на этапе проектирования к живым данным (live data) из таблицы локальной базы данных: все записи или столбцы адресуемой таблицы сразу же становятся доступными для приложения.

TDBGrid-Осуществляет отображение и редактирование записей, содержащихся в наборе данных и представляемых на регулярной сетке.

ADOConection-является главной логической связующей таблиц [24].

2.2 Интерфейс программы

Данный подраздел описывает интерфейс главной - родительской и дополнительных дочерних форм программы.

Схема взаимодействия родительской и дочерних форм представлена на схеме 1.

Размещено на http://www.allbest.ru/

Схема 1. Схема взаимодействия родительской и дочерних форм

Интерфейс программы

Интерфейс главной - родительской формы

Для того, что бы было понятно, как программа называется, была создана заставка программы (рисунок 4).

Используемые элементы: Label, Timer

Организация связи и исполняемого кода:

Timer=Interval=3000\\организует задержку времени на 3секунды

Form4= new Tform4 (this); \\представляет форму как независимую

Form4->ShowModal ();

Form4->Free ();



Рисунок 4. Заставка при загрузке программы

Графический интерфейс программы представлен для широкого числа пользователей. Таким образом, внешний вид программы подобран так, чтобы заинтересовать пользователей данной программы, в частности расположено фото на форме (рисунок 5), используются специфические шрифты и т.д.

Создание цифровых часов, и даты реального времени, используемых только в качестве визуальной привлекательности программы (рисунок 6) стало реальным. При выборе раздела, на главной форме, внизу, отображается подсказка, для точного понимания предоставляемых, пользователю данных.

Организация связи и исполняемого кода отображения даты и времени:

void __fastcall TForm1:: Timer1Timer (TObject *Sender) \\ функция управления таймером (выполнение каких-либо действий с использованием времени)

{

Label4->Caption=Time (). FormatString ("hh: mm: ss"); \\возвращает значение текущего времени в имя label

Timer1->Interval=1; \\период обновления

Label5->Caption=Date (). FormatString ("dd: mm: yyyy"); \\возвращает значение текущего времени в название label

Timer1->Interval=10; \\период обновления 0,01 сек

}

Рисунок 5. Главная форма программы.

Рисунок 6. Дата и время реального времени

Интерфейс дочерних форм

В программу были внесены дочерние формы для создания разделов. Один из таких разделов это "Происхождение названия" (рисунок 7), в котором описано как образовалось название территории Европа. Этот раздел создан для текстового и графического описания. Имеется возможность печати и сохранения данных.

Используемые элементы: TRichEdit, SaveDialog, PrintDialog, MainMenu.

Организация связи и исполняемого кода: После открытия дочерней формы "Происхождение названия", в окно (RichEdit) загружается файл, который успешно отображается.

void __fastcall TForm11:: RichEdit1Change (TObject *Sender) \\ функция отображения данных в RichEdit

{

RichEdit1->Lines->LoadFromFile (". \\EuropeGid\\doc\\EurNazvanie. rtf"); \\открывает файл EurNazvanie. rtf и помещает данные в RichEdit1

}

Рисунок 7. Раздел "Происхождение названия" и организация печати

Сохранения данных стало возможным после создания пункта меню "Сохранить как", которое выводит стандартное окно сохранения данных.

void __fastcall TForm11:: N7Click (TObject *Sender)

{

if (SaveDialog1->Execute ()) RichEdit1->Lines->SaveToFile (SaveDialog1

>FileName); \\Если выводится окно с сообщением о сохранении, то данные из RichEdit1 сохраняются в файл

}

Печать данных осуществлена путем добавления в меню подпункта "Печать", который выводит стандартное оено печати данных.

void __fastcall TForm11:: N6Click (TObject *Sender)

{

if (PrintDialog1->Execute ()) RichEdit1->Print (""); \\Если выводится окно с сообщением о печати, то данные из RichEdit1 выводятся на печать

}

SaveDialog:

FileName=c: \Документ. rtf

Filter=Текстовый редактор (*. rtf)

InitialDir=c: \

Второй созданный раздел - это "Европейские государства" (рисунок 8). Этот раздел создан для поиска информации о странах Европы (название, официальное название, столица государства, официальный язык, валюта, площадь, занимаемая государством и место в мире по площади). Был реализован запрос для поиска: государство, столица, телефонный код государства, валюта. Введенные неверно либо некорректно данные считаются не верными и остаются данные отображенные ранее. Имеется возможность печати и сохранения данных.

Используемые элементы: DataSource, ADOConnection, ADOTable, MainMenu, DBGrid, Button, Label.

Рисунок 8. Раздел "Европейские государства"

Организация связи и исполняемого кода: Поиск информации осуществляется по нажатию на кнопку "Поиск" по данным: Государство, столица, валюта

void __fastcall TForm10:: Button3Click (TObject *Sender) \\ функция определения действий при нажатии на кнопку

{

DBGrid1->Visible=true; \\отображает таблицу

AnsiString Str2;

bool dz2,m1,m2,m3;

Str2=Edit1->Text;

TLocateOptions SearchOptions; \\опции поиска

SearchOptions<<loPartialKey<<loCaseInsensitive; \\задание опции поиска

dz2=Form10->ADOTable1

>Locate ("Государство",Str2,SearchOptions); \\организация поиска по столбцу Государство

m1=Form10->ADOTable1

>Locate ("Столица",Str2,SearchOptions); \\организация поиска по столбцу "Государство"

m2=Form10->ADOTable1->Locate ("Валюта",Str2,SearchOptions); \\организация поиска по столбцу "Валюта"

}

Подключение базы данных

Размещение на форму компонента TADOConnection, отвечающий за связь приложения с физической базой данных. Далее размещение компанента TDataSource, отвечающий за графическое отображение данных, он необходим для связи Data Controls компонентов с компонентом TADOTable, который тоже помещен на форму (он нужен для связи с конкретной таблицей БД, аналогично TTable из BDE). Для связи всех трех компонентов между собой выполнены следующие операции:

1) У компонента TADOTable установлено свойство Connection в положенный на форму компонент TADOConnection (По-умолчанию это ADOConnection1);

2) Свойство DataSet компонента TDataSource установлено в ADOTable1.

Для установления соединение с БД используется компонент TADOConnection. В появившемся окне выбираем опцию "Use connection string" и кнопка Build. В ответ предложено выбрать драйвер для работы с базой, выбираем драйвер Microsoft Jet 4.0 OLE DB. Указываем путь к базе данных. Проверяем, есть ли соединение с базой данных, установив свойство Connected (этого же компонента) в true. Далее выбираем компонент TADOTable и указываем в свойстве TableName имя желаемой для работы таблицы из созданной базы данных. Чтобы компонент получил доступ к базе данных, используя ADOConnection установливаем Active=true (TADOTable). Соединение графических компонентов с физической базой данных осуществляется путем использования промежуточного звена - компонента TDataSource. Для этого у каждого компонента есть свойство DataSource, выделенное красным в "Инспекторе Объектов". База данных была создана в Microsoft Office Access 2003.

DataSource1:

DataSet=ADOTable

Enable=true

ADOConnection:

LoginPrompt=false\\выключаем проверку пароля

ConnectionString=Build=Поставщик данных=Microsoft Jet 4.0=путь к базе

Connected=true

ADOTable

Connection=ADOConnection1

Filtered=true\\фильтрация данных по названию от А до Я

LockType=ltReadOnly

ReadOnly=true\\ Организация атрибута "только для чтения"

TableName=государства

Active=true\\активировал соединение

DBGrid:

BorderStile=bsSingle\\стиль таблицы

Color=clTeal\\ цвет таблицы

DataSource=DataSource1

Enable=true

ReadOnly=true\\ активизация атрибута "только для чтения"

Раздел "Население Европейских государств" (рисунок 9), в котором отображена информация о численности населения, этнический состав и другое. Имеется возможность печати и сохранения информации.

Используемые элементы: TRichEdit, SaveDialog, PrintDialog, MainMenu.

Рисунок 9. Раздел "Население Европейских государств"

Организация связи и исполняемого кода: После открытия дочерней формы "Население Европейских государств" открывается текстовый файл, в котором записана информация о населении Европы (численность, этнический состав)

void __fastcall TForm12:: RichEdit1Change (TObject *Sender)

{

RichEdit1->Lines->LoadFromFile (". \\EuropaGid\\doc\\Naselenie. rtf"); \\открывает файл Naselenie. rtf и помещает данные в RichEdit1

}

Подпункт "Сохранить как" был создан для сохранения информации в файл, выведенной на экран монитора

void __fastcall TForm11:: N7Click (TObject *Sender)

{

if (SaveDialog1->Execute ()) RichEdit1->Lines->SaveToFile (SaveDialog1

>FileName); \\Если выводится окно с сообщением о сохранении, то данные из RichEdit1 сохраняются в файл

}

Для осуществления печати был создан подпункт "Печать", которое выводит окно, в котором можно указать имя принтера, число копий и др.

void __fastcall TForm11:: N6Click (TObject *Sender) \\ функция определения действий при нажатии на пункт "Печать" в меню

{

if (PrintDialog1->Execute ()) RichEdit1->Print (""); \\Если выводится окно с сообщением о печати, то данные из RichEdit1 выводятся на печать

}

SaveDialog:

FileName=c: \Документ. rtf

Filter=Текстовый редактор (*. rtf)

InitialDir=c: \

Следующий созданный раздел представлен как "Основные сведения" (рисунок 10), в котором представлены основные географические сведения Европы: площадь, средняя высота над уровнем моря, площадь островов, основные реки и т.д. Используемые элементы: TRichEdit, Panel, SaveDialog, PrintDialog, MainMenu.

Организация связи и исполняемого кода: Отображение информации осуществлен путем загрузки текстового файла в RichEdit.

void __fastcall TForm13:: RichEdit1Change (TObject *Sender) \\ функция определения действий при открытии Form 13

{

RichEdit1->Lines->LoadFromFile (". \\EuropaGid\\doc\\OsnSvd. rtf "); \\открывает файл OsnSvd. rtf и помещает данные в RichEdit1

}

Сохранение данных стало возможным после того, как был создан подпункт "Сохранить как" в меню "Файл"

void __fastcall TForm11:: N7Click (TObject *Sender) \\ определение событий при нажатии на пункт "Сохранить как" в меню

{

if (SaveDialog1->Execute ()) RichEdit1->Lines->SaveToFile (SaveDialog1

>FileName);

}

Осуществление печати стало возможным после организации исполняемого кода

void __fastcall TForm11:: N6Click (TObject *Sender) \\ функция определения действий при нажатии на пункт "Печать" в меню

{

if (PrintDialog1->Execute ()) RichEdit1->Print ("");

}

SaveDialog:

FileName=c: \Документ. rtf

Filter=Текстовый редактор (*. rtf)

InitialDir=c: \

Рисунок 10. Раздел "Основные сведения"

Далее был создан раздел "Международные объединения в Европе" (рисунок 11) описывающий страны Европы, которые являются членами различных международных организаций, большая часть которых организации экономического и политического характера. и др.

Используемые элементы: TRichEdit, SaveDialog, PrintDialog, MainMenu.

Организация связи и исполняемого кода: После открытия дочерней формы "Международные объединения в Европе", в окно (RichEdit) загружается текстовый файл с информацией о основных международных объединениях в Европе.

void __fastcall TForm12:: RichEdit1Change (TObject *Sender) \\ определение действий с RichEdit1 на Form12

{

RichEdit1->Lines->LoadFromFile (". \\EuropaGid\\doc\\ OsnMOE. rtf ");

}

Для осуществления функции сохранения отображенной информации был создан подпункт "Сохранить как", который при желании пользователя сохраняет информацию в файл

void __fastcall TForm11:: N7Click (TObject *Sender)

{

if (SaveDialog1->Execute ()) RichEdit1->Lines->SaveToFile (SaveDialog1

>FileName); \\ осуществляется сохранение данных из RichEdit1

}

Для осуществления печати был создан подпункт в меню "Файл", который печатает отображенную на экран монитора информацию.

void __fastcall TForm11:: N6Click (TObject *Sender)

{

if (PrintDialog1->Execute ()) RichEdit1->Print ("");

}

SaveDialog:

FileName=c: \Документ. rtf

Filter=Текстовый редактор (*. rtf)

InitialDir=c: \



Рисунок 11. "Международные объединения в Европе"

Одним из дополнительных плюсов программы явилось создание раздела с картами (политическая, физическая) государств, а так же всей территории Европы. Этот раздел назван "Европа на карте" (рисунок 12). Для выбора необходимой географической карты был создан выпадающий список, из которого можно выбирать нужную карту. Так же были созданы функции печати и сохранения карты в указанное место. Был определен единый формат для сохранения карт (*. bmp).

Используемые элементы: SaveDialog, PrintDialog, MainMenu, Image, ComboBox

Организация связи и исполняемого кода:

void __fastcall TForm5:: ComboBox1Change (TObject *Sender) \\ функция определения действий ComboBox1

{

if (ComboBox1->ItemIndex==0) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\2. bmp"); \\ открывает файл 2. bmp и отбражает на форме в Image2

if (ComboBox1->ItemIndex==1) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\7. bmp"); \\ открывает файл 7. bmp и отбражает на форме в Image2

if (ComboBox1->ItemIndex==2) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\3. bmp"); \\ открывает файл 3. bmp и отбражает на форме в Image2

if (ComboBox1->ItemIndex==3) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\6. bmp");

if (ComboBox1->ItemIndex==4) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\5. bmp");

if (ComboBox1->ItemIndex==5) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\6. jpg");

if (ComboBox1->ItemIndex==6) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\7. jpg");

if (ComboBox1->ItemIndex==7) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\8. bmp");

if (ComboBox1->ItemIndex==8) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\9. bmp");

if (ComboBox1->ItemIndex==9) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\10. bmp");

if (ComboBox1->ItemIndex==10) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\11. bmp");

}

ComboBox=Text=Выберите государство

Для организации сохранения карты был организован пункт "Сохранить как", который сохраняет выбранную карту в файл с расширением *. bmp.

void __fastcall TForm11:: N7Click (TObject *Sender)

{

if (SaveDialog1->Execute ()) RichEdit1->Lines->SaveToFile (SaveDialog1

>FileName);

}

Для организации печати организован подпункт "Печать" в меню "Файл", при нажатии на которого осуществляется печать географической, выбранной пользователем карты.

void __fastcall TForm5:: N7Click (TObject *Sender)

{

if (! Form5->PrintDialog1->Execute ()) return;

int PPIx = GetDeviceCaps (Printer () - >Handle, LOGPIXELSX); \\Определение данных принтера по значению Х

int PPIy = GetDeviceCaps (Printer () - >Handle, LOGPIXELSY); \\ \\Определение данных принтера по значению Y

int SmX = PPIx / 2, SmY = PPIy / 3;

int WInch = 10, HInch = 7; // организация масштаба

Printer () - >Orientation = poLandscape; \\Организация ориентации листа

int x = Printer () - >PageWidth; \\определение переменной Х, ширины

int y = Printer () - >PageHeight; \\ определение переменной Y, длины

TPrinter *Prntr = Printer ();

Prntr->BeginDoc (); \\начало документа

Prntr->Canvas->Draw (10,10, Image2->Picture->Graphic); \\ Печать рисунка Image2 с длинной и шириной в 10 дюймов

Prntr->EndDoc (); \\конец документа

}

Рисунок 12. Раздел "Европа на карте". Отображение карты Европы 1490 г.

Далее был организован раздел "Районы" (рисунок 13), в котором были описаны физико-географические районы Европы (Западная Европа, Восточная Европа, Северная Европа и др. районы). Так же как и в других разделах программы была создана функция печати и сохранения (из пункта меню Файл), выведенных на экран монитора информации. Используемые элементы: SaveDialog, PrintDialog, MainMenu, RadioButton, Button.

Организация связи и исполняемого кода: для легкости в отображении информации было создано несколько кнопок, при нажатии на которых, в правом окне дочернего окна, отобразится информация географического характера.

Западная Европа

void __fastcall TForm14:: RadioButton1Click (TObject *Sender)

{

if (RadioButton1->Checked==true) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\doc\\ ZapEur. rtf "); \\открывает файл ZapEur. rtf и помещает данные в RichEdit1

}

Восточная Европа

void __fastcall TForm14:: RadioButton3Click (TObject *Sender)

{

if (RadioButton3->Checked==true) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\doc\\ VstEur. rtf "); \\открывает файл VstEur. rtf и помещает данные в RichEdit1

}

Северная Европа

void __fastcall TForm14:: RadioButton4Click (TObject *Sender)

{

if (RadioButton4->Checked==true) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\doc\\ SvrEur. rtf ");

}

Южная Европа

void __fastcall TForm14:: RadioButton5Click (TObject *Sender)

{

if (RadioButton5->Checked==true) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\doc\\ JygEur. rtf ");

}

Особые регионы

void __fastcall TForm14:: RadioButton6Click (TObject *Sender)

{

if (RadioButton6->Checked==true) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\doc\\ OsbEur. rtf ");

}

Внутренние самоуправляемые территории

void __fastcall TForm14:: RadioButton7Click (TObject *Sender)

{

if (RadioButton7->Checked==true) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\doc\\ VnUEur. rtf ");

}

Для сохранения отображенных данных был создан подпункт "Сохранить как", в меню "Файл"

void __fastcall TForm11:: N7Click (TObject *Sender)

{

if (SaveDialog1->Execute ()) RichEdit1->Lines->SaveToFile (SaveDialog1

>FileName);

}

Для организации печати данных был создан подпункт "Печать" в меню "Файл"

void __fastcall TForm11:: N6Click (TObject *Sender)

{

if (PrintDialog1->Execute ()) RichEdit1->Print ("");

}

SaveDialog:

FileName=c: \Документ. rtf

Filter=Текстовый редактор (*. rtf)

InitialDir=c: \

Рисунок 13. Дочернее окно "Районы".

Следующим, на этапе разработки стало конструирование раздела "Посольства Казахстана в Европе" (рисунок 14). Было создано окно, в котором, при выборе государства отображалась информация о посольствах Казахстана в Европейских странах. Было описано местонахождения посольств, адрес, телефон, факс, электронная почта. Разработана возможность печати и сохранения информации на внешний носитель. Для наглядности и подробного представления внизу изображен флаг Казахстана и государства, которая выбрана, в качестве описания информации о посольстве. Используемые элементы: SaveDialog, PrintDialog, MainMenu, Image, RichEdit, ComboBox, Label

Организация связи и исполняемого кода: Для осуществления выбора государств, был создан выпадающий список (ComboBox), из которого можно выбрать желаемое Европейское государство. После выбора, в правом окне (RichEdit) отобразиться информация о посольстве Республики Казахстан в выбранной стране.

void __fastcall TForm15:: ComboBox1Change (TObject *Sender)

{

if (ComboBox1->ItemIndex==0) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\6. rtf"); \\ при выборе пункта из выподающего списка загружаются данные из файла 6. rtf

if (ComboBox1->ItemIndex==1) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\21. rtf"); \\ при выборе пункта из выподающего списка загружаются данные из файла 21. rtf

if (ComboBox1->ItemIndex==2) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\1. rtf");

if (ComboBox1->ItemIndex==3) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\2. rtf");

if (ComboBox1->ItemIndex==4) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\7. rtf");

if (ComboBox1->ItemIndex==5) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\4. rtf");

if (ComboBox1->ItemIndex==6) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\8. rtf");

if (ComboBox1->ItemIndex==7) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\10. rtf");

if (ComboBox1->ItemIndex==8) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\17. rtf");

if (ComboBox1->ItemIndex==9) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\12. rtf");

if (ComboBox1->ItemIndex==10) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\9. rtf");

if (ComboBox1->ItemIndex==11) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\13. rtf");

if (ComboBox1->ItemIndex==12) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\5. rtf");

if (ComboBox1->ItemIndex==13) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\16. rtf");

if (ComboBox1->ItemIndex==14) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\3. rtf");

if (ComboBox1->ItemIndex==15) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\15. rtf");

if (ComboBox1->ItemIndex==16) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\20. rtf");

if (ComboBox1->ItemIndex==17) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\14. rtf");

if (ComboBox1->ItemIndex==18) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\18. rtf");

if (ComboBox1->ItemIndex==19) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\19. rtf");

if (ComboBox1->ItemIndex==20) RichEdit1->Lines

>LoadFromFile (". \\EuropaGid\\posol\\11. rtf");

if (ComboBox1->ItemIndex==0) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\flag3. jpg"); \\ при выборе пункта из выподающего списка загружаются данные из файла 3. jpg, картинка

if (ComboBox1->ItemIndex==2) Image2->Picture

>LoadFromFile (". \\EuropaGid\\foto\\flag4. jpg"); \\ при выборе пункта из выподающего списка загружаются данные из файла 4. jpg, картинка