Справочная система маршрутов общественного транспорта

Справочная система маршрутов общественного транспорта

ВВЕДЕНИЕ

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

С появлением и развитием информационных технологий все стало гораздо проще. Большинство нужной информации переносится с бумаг в виртуальные базы данных. Это значительно облегчает доступ к данным и работу с ними. Для этого мы должны создать виртуальную справочную систему маршрутов общественного транспорта. Максимально автоматизировать ее и сделать понятной даже начинающему пользователю.

Цель курсового проекта состоит в разработке справочной системы маршрутов общественного транспорта.

1. ОБЩАЯ ЧАСТЬ

1.1 Системный анализ предметной области

Задание на проектирование

Разработать справочную систему маршрутов общественного транспорта.

Расширенная формулировка задания

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

Описание объектов предметной области и их характеристик :

Объект 1 - Автобус

Характеристики объекта 1:

·  Код автобуса

·        Гос.номер

Объект 2 - Маршрут

Характеристики объекта 2:

·  Код маршрута

·        Номер маршрута

Объект 3 -Автопредприятие

Характеристики объекта 3:

·  Код предприятия

·        Название предприятия

Объект 4 - Остановка

Характеристики объекта 4:

·  Код остановки

·        Название остановки

Объект 5 - Модель

Характеристики объекта 5:

·  Код модели

·        Название модели

Общесистемные ограничения на информацию:

·  Количество мест должно быть описано положительным числом

·        Длина маршрута не может быть меньше 0

·        Автобус не может не иметь ни маршрута

·        Маршрут не может не иметь ни одной остановки

·        Остановка может относиться к нескольким маршрутам

·        Маршрут может относиться к нескольким автобусам

·        Каждое автотранспортное предприятие имеет хотябы один автобус.

Пользователи

·  Диспетчер;

·        Пользователь.

Описание Задач «Диспетчер»

·  Добавление и изменение данных.

Описание Задач «Пользователь»

·  Получать данные о существующих маршрутах и автобусах.

1.2 Формирование атрибутов исходного отношения

2.  Код автобуса

3.       Модель автобуса

.        Код маршрута

.        Номер маршрута

.        Код предприятия

.        Название предприятия

.        Код остановки

.        Название остановки

1.2.1 Логическое проектирование БД (ER-Анализ)

Выделение сущностей и связей между ними.

Исходя из системного анализа и атрибутов исходного отношения, можно выделить следующие сущности с ключевыми атрибутами:

1)  Автобус(Код Автобуса);

)    Маршрут(Код Маршрута);

3)      Автопредприятие (Код Предприятия);

4)      Остановка (Код остановки)

)        Модель ( Код модели )

Общая диаграмма ER - Типа

1.   Маршрут обслуживает автобус

Рисунок 1. Связь «Маршрут - Автобус»

1 М

Рисунок 2. Связь «Маршрут - Автобус»

2.   Предприятие обслуживает автобус

Рисунок 3. Связь «Предприятие - Автобус»

1 М

Рисунок 4. Связь «Предприятие - Автобус»

3.   Маршрут имеет Остановки

Рисунок 5. Связь «Маршрут- Остановка»

М 1

Рисунок 6. Связь «Автобус -Модель»

4.   Маршрут обслуживает автобус

Рисунок 7. Связь «Автобус- Модель»

М 1

Рисунок 2. Связь «Автобус - Модель»

Схема 1 - Общие связи таблиц

1.3 SQL - Скрипт генерации таблиц БД

drop table IF EXISTS Ostanovka;table IF EXISTS MArsrut;table IF EXISTS Avtopredpriyatie;table IF EXISTS Avtobus_;table IF EXISTS Model;table Avtobus_ (NULL,NULL,NULL,NULL,(Kod_Avtobusa),Key (Kod_Avtobusa,Kod_Marshruta,Kod_Ostanovki,Kod_Predpr)) TYPE = MyISAM_FORMAT = Default;table Avtopredpriyatie (NULL,(Kod_Predpr),Key (Kod_Predpr)) TYPE = MyISAM_FORMAT = Default;table MArsrut (NULL,NULL,(Kod_Marshruta),Key (Kod_Marshruta,Kod_Ostanovki)) TYPE = MyISAM_FORMAT = Default;

table Ostanovka (NULL,Key (Kod_Ostanovki)) TYPE = MyISAM_FORMAT = Default;table Avtobus_ add Index IX_Relationship9 (Kod_Predpr);table Avtobus_ add Foreign Key (Kod_Predpr) references Avtopredpriyatie (Kod_Predpr) on delete restrict on update restrict;table Avtobus_ add Index IX_Relationship7 (Kod_Marshruta,Kod_Ostanovki);table Avtobus_ add Foreign Key (Kod_Marshruta,Kod_Ostanovki) references MArsrut (Kod_Marshruta,Kod_Ostanovki) on delete restrict on update restrict;table MArsrut add Index IX_Relationship5 (Kod_Ostanovki);table MArsrut add Foreign Key (Kod_Ostanovki) references Ostanovka (Kod_Ostanovki) on delete restrict on update restrict;

1.4 ВЫБОР СРЕДЫ РАЗРАБОТКИ

АИС «Система расписания городского транспорта» должна функционировать под управлением операционной системы Windows XP на IBM - совместимом компьютере. Для функционирования программного обеспечения системы необходимо, чтобы на компьютере была установлена программа BDE.

В качестве СУБД выбрана система Paradox, хорошо зарекомендовавшая себя для локальных баз данных и АИС. При этом для доступа к информации, хранящейся в реляционных таблицах базы данных, используется популярная технология BDE (компилятор БД), обеспечивающая быстрый двунаправленный курсор при навигации по записям таблиц и запросов. Технология BDE повышает эффективность программных приложений для локальных баз данных и упрощает их разработку.

Для сокращения срока выполнения курсового проекта и обеспечения надлежащего качества программного продукта в качестве среды разработки прикладного программного обеспечения АИС «Виртуальный магазин по продаже мебели» выбрана популярная и широко применяемая визуальная среда быстрой разработки - Delphi 7.0, являющаяся базовым программным обеспечением Института Кибернетики Информатики и Связи. Среда Delphi в качестве встроенного языка программирования содержит визуальную версию языка Паскаль, который также является одним из базовых учебных дисциплин отделения ИТВТ.

Для физического создания таблиц базы данных в формате Paradox была использована известная утилита Database Desktop, поставляемая фирмой Borland в составе их программного пакета Delphi.

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

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

Вообще, БД - система специальным образом организованных данных, программных, технических, языковых организационно-методических средств, предназначенных для обеспечения централизованного накопления и коллективного многоцелевого использования этих данных. Базой данных называется поименованная структурированная совокупность взаимосвязанных данных, относящихся к конкретной предметной области и находящихся под централизованным программным управлением. Различают централизованные и распределённые БД. Централизованная БД хранится в памяти одной вычислительной системы. Если такая система является компонентом вычислительной сети, то возможен распределённый доступ к этой базе данных - доступ к ней пользователей различных узлов сети.

Распределённая БД состоит из нескольких, возможно, пересекающих или даже дублирующих друг друга частей. Однако пользователь распределённой базы данных получает возможность работать с такой базой данных как с единым информационным массивом с помощью СУБД. При разработке информационной системы обычно стремятся, чтобы её БД была интегрированной, что очень важно на предприятии.

Базы данных имеют свои преимущества и недостатки. Основными преимуществами БД являются:

) Наличие единого целостного отображения определённой части реального мира. Оно сокращает избыточность хранимых данных, обеспечивает выполнение новых приложений, обеспечивает реализацию нерегламентированных запросов;

) Увеличение мобильности и гибкости информационной системы;

) Наличие интегрированной БД сокращает затраты не только на создание и хранение данных, но и на их поддержание в актуальном состоянии, а также уменьшает потоки данных циркулирующих в системе.

Основными недостатками БД являются:

) Увеличение сложности создаваемых информационных систем;

) Использование интегрированных БД может привести к потере эффективности отдельных приложений;

) Применение сложных структур данных, увеличивая долю службы информации в общем объёме хранимых данных.

В данной работе используется система управления базами данных (СУБД) Microsoft Access. Предназначена она для хранения и поиска данных, представления информации в удобном виде и автоматизации часто повторяющихся операций. Данный выбор можно объяснить следующими факторами:

) MS Access легко интегрируется с другими решениями от Microsoft;

) В Access реализовано множество средств, которые упрощают решение задач по вводу, анализу и представлению данных, а также значительно снижают трудоемкость разработки приложений;

) Microsoft Access предоставляет необходимые для управления любыми данными и принятия оптимальных решений возможности;

) Не требовательна к ресурсам компьютера;

) Наличие собственного языка программирования

.5 Обоснование выбора языка программирования

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

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

) Специализированные средства - ориентированные исключительно на работу с вполне определенной СУБД и не предназначенные для разработки обычных приложений, не использующих базы данных;

) Универсальные средства, которые могут использоваться как для разработки информационных приложений, взаимодействующих с базами данных, так и для разработки любых других приложений, не использующих базы данных. Из таких средств наибольшей известностью пользуются системы Borland Delphi фирмы Borland и Visual Studio фирмы Microsoft.

Каждый из указанных классов имеет свои достоинства и недостатки, поэтому в общем случае трудно отдать предпочтение одному из них.

В предлагаемой работе в качестве средства разработки выбран продукт Borland Delphi 7, пользующийся большой популярностью. Delphi 7 базируется на объектно-ориентированном языке Object Pascal, который наилучшим образом подходит для учебных целей вследствие своей строгости и простоты. Кроме того, в Object Pascal в полной мере реализованы все основные концепции объектно-ориентированного программирования. Объектно-ориентированное программирование позволяет сделать любую систему более гибкой и динамичной, исключив необходимость в постоянном переписывании структуры базы данных и приложений.

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

Кроме всего прочего, DELPHI 7 это наиболее удобная среда обработки БД, полностью отвечающая всем требованиям RAD - технологии разработки программного продукта. К неоспоримым преимуществам DELPHI можно отнести следующие:

) Богатая палитра интерфейсных компонентов;

) Богатая палитра компонент работы с БД;

) Объектная ориентированность;

) Использование технологии RAD и т.д.

1.8.    Техническое задание на курсовой проект

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

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

Для разработки информационной системы используется метод структурного анализа и проектирования, а также диаграммы «сущность-связь». Реализация информационной системы осуществляется средствами объектно-ориентированного языка Delphi.

1.8.2 ОСНОВАНИЕ ДЛЯ РАЗРАБОТКИ

Программа разрабатывается на основе государственного образовательного стандарта специальности Автоматизированные системы обработки и управления..

1.8.3 НАЗНАЧЕНИЕ

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

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

.8.4 ТРЕБОВАНИЯ К ПРОГРАММЕ ИЛИ ПРОГРАММНОМУ ИЗДЕЛИЮ

Требования к функциональным характеристикам:

Система должна представлять совокупность методических и программных средств и осуществлять решения следующих задач:

) Вывод данных о маршрутах городского транспорта

) Добавление новых маршрутов в бд.

) Составление отчетной и деловой документации.

) Обеспечение быстрого доступа к информации.

Для этих задач должны быть реализованы:

) Алгоритм, обеспечивающий получение точного решения.

) Проектирование базы данных методом «Сущность - Связь» для разработанной функциональной модели.

) Состав и описание таблиц базы данных.

) Построение схемы базы данных.

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

Требования к надежности:

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

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

Требования к составу и параметрам технических средств:

Система должна работать на IBM совместимых персональных компьютерах.

Минимальная конфигурация:

) Процессор                                                       500 MHz

) Оперативная память                                        256 Мб RAM

) Видеоадаптер и монитор                                 VGA (800 x 600)

) Свободное место на HDD                               45 Мб

Устройства взаимодействия с пользователем клавиатура и мышь

Минимальные требования к информационной и программной совместимости:

Операционной система семейства Win32.

1.8.5 ТРЕБОВАНИЯ К ПРОГРАММНОЙ ДОКУМЕНТАЦИИ

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

1.8.6 ЭТАПЫ РАЗРАБОТКИ

Таблица 11 - Календарный график этапов разработки АИС

2.  
СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1.    Выходные документы

Создание таблиц осуществлялось в программе Microsoft Access , которая входит в пакет программ MS Office . Таблицы получили следующие имена:

1)   Автобус;

2)      Маршрут;

3)      Модель;

4)      Автопредприятие;

5)      Остановка;

Ниже приведены структуры таблиц БД «Cправочная система маршрутов общественного транспорта» , в программе Microsoft Access 2003.

Рисунок 5 - Структура таблицы «Автобус»

Рисунок 6 - Структура таблицы «Автопредприятие»

справочный маршрут общественный транспорт программа

Рисунок 7 - Структура таблицы «Маршрут»

Рисунок 8 - Структура таблицы «Модель»

Рисунок 8 - Структура таблицы «Остановка»

.2 Входные документы

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

Форма «Электронное расписание автобусов» является первой формой в программе. Форма имеет 2 меню.

Рисунок 9 - Первая форма «Электронное расписание автобусов»

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

1)   Button - осуществляют функции кнопок;

2)      Image - задает фоновый рисунок на форму;

3)      MainMenu - Используется для создания функционального меню;

2.3 Форма «Остановка»

Nazvanie_Ostanovki FROM Ostanovka

Форма «Остановка» содержит всю о остановочных пунктах

Рисунок 10 - форма «Остановка»

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

1)     Button - осуществляют функции кнопок;

2)      Image - задает фоновый рисунок на форму;

3)      DataSource - для связи компонентов Table с другими компонентами;

4)      DBGrid - для отображения табличной информации на экране;

5)      Table - для вывода информации из таблицы.

2.4.  Форма «Автопредприятие»

 Nazvanie FROM Avtopredpriyatie

Форма «Автопредприятие» содержит информацию об автомобильных пердприятиях, обслуживающих автобусы.

Рисунок 11 - форма «Автопредприятие»

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

1)   Button - осуществляют функции кнопок;

2)      Image - задает фоновый рисунок на форму;

3)      DataSource - для связи компонентов Table с другими компонентами;

4)      DBGrid - для отображения табличной информации на экране;

5)      Table - для вывода информации из таблицы;

2.5 Форма «Маршрут»

Kod_Marsruta FROM Marsrut

Форма «Маршрут» содержит информацию о маршрутах автобусов

Рисунок 12 - форма «Маршрут»

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

1)   Button - осуществляют функции кнопок;

2)      Image - задает фоновый рисунок на форму;

3)      DataSource - для связи компонентов Table с другими компонентами;

4)      DBGrid - для отображения табличной информации на экране;

5)      Table - для вывода информации из таблицы;

6)      Query - Этот компонент необходим, для работы запросов, на языке sql.

)        DBNavigator - Используется для работы с полями таблицы.

2.6
Форма «Модель»

Naxvanie_Modeli FROM Model

Форма «Модель» содержит информацию о моделях автобусов

Рисунок 12 - форма «Модель»

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

1)   Button - осуществляют функции кнопок;

2)      Image - задает фоновый рисунок на форму;

3)      DataSource - для связи компонентов Table с другими компонентами;

4)      DBGrid - для отображения табличной информации на экране;

)        DBNavigator - Используется для работы с полями таблицы.

.7       Форма «Автобус»

Avtobus.Kod_Avtobysa, Marsrut.Nomer_Marsruta, Model.Nazvanie_Modeli, Avtopredpriyatie.Nazvanie FROM Ostanovka INNER JOIN (Model INNER JOIN (Marsrut INNER JOIN (Avtopredpriyatie INNER JOIN Avtobus ON .Kod_Avtopredpriyatia=Avtobus.Kod_Avtopredpriyatiya) ON Marsrut.Kod_Marsruta=Avtobus.Kod_Marsruta) ON .Kod_Modeli=Avtobus.Kod_Modeli) ON .Kod_Ostanovki=Marsrut.Kod_Ostanovki;

Форма «Автобус» содержит информацию о маршрутах автобусов и кнопки для добавления данных в БД методом перекрестного запроса.

Рисунок 13 - форма «Автобус»

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

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

1)      Button - осуществляют функции кнопок;

2)      Image - задает фоновый рисунок на форму;

3)      DataSource - для связи компонентов Table с другими компонентами;

4)      DBGrid - для отображения табличной информации на экране;

5)      Table - для вывода информации из таблицы;

) DBEdit - Для вывода некоторых данных из таблицы.

) Query - Этот компонент необходим, для работы запросов, на языке sql.

3. Эксплуатационная часть

3.1 Требования к аппаратно - программному обеспечению

Минимальная конфигурация:

). Объем оперативного запоминающего устройства ................128 Мб;

). Тип монитора.........................................................................SVGA (17').

) Свободное место на HDD............................................................20Мб

3.2.    Инструкция по установке приложения

Установка программного продукта не требуется, но для работы приложения необходимо заранее установить библиотеки Delphi 7 и скопировать папку с программой и базой данных в удобный вам каталог. Так же необходимо добавить БД в источник данных ODBC, для этого необходимо открыть Панель управления, далее Администрирование, Источник данных ODBC, затем выбрать путь к файлу с бд и указать свойство «монопольно». Для запуска программы необходимо наличие файла Project.exe в папке с программой.

3.3.    Инструкция по тестированию приложения

После запуска программы открывается главная форма «Электронное расписание автобусов». Открываем первое меню программы и переходим на форму «Остановка», щелкнув по названию в списке меню. Добавим еще несколько остановок в базу .Для этого необходимо нажать кнопку «Добавить», после чего появится новая строка в конце таблицы, доступная для редактирования.

3.4.    Инструкция по эксплуатации приложения

Для запуска программы необходимо запустить приложение Project.exe

В появившемся окне содержатся 2 меню. Первое для управления окном программы, содержит кнопки «Свернуть» и «Выход». Второе меню предназначено для перехода на другие формы программы.

При нажатии на второе меню, появляется список доступных форм:

1)   Кнопка «Автобус» откроет окно, в котором содержится информация о транспорте.

2)   Кнопка «Автопредприятие» откроет окно, на котором содержится информация о предприятиях автотранспорта.

3)      Кнопка «Остановка» откроет окно, на котором содержится информация о остановках

)        Кнопка «Маршрут» откроет окно, на котором содержится информация о маршруте..

)        Кнопка «Модель» откроет окно, на котором содержится информация о моделях автобусов

ЗАКЛЮЧЕНИЕ

Разработанная программа может быть использована в любой системе электронного расписания, на совместимом компъютере.Ее основными преимуществами являются:

1)   Простой и понятный интерфейс, позволяющий работать с программой любому пользователю вне зависимости от навыков работы с ПК;

2)      Разработанная программа очень проста в использовании;

)        Данная программа является отказоустойчивой;

)        Разработанное программное приложение содержит огромное количество информации и при этом потребляет минимум ресурсов компьютера;

)        Есть возможность добавления и удаления данных из таблиц БД.

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1.   Архангельский А.Я. Программирование в Delphi 5. - М.: ЗАО Издательство БИНОМ, 2000. - 1072 с.

2.       Браун С. Visual Basic 6. . С.-П Питер. 1999 г

.        Брукс Ф.П. Как проектировать и создавать программные комплексы. М: Наука 1979г.

.        Вендров А.М. Проектирование программного обеспечения экономических информационных систем. М.: Финансы и статистика, 2005. - 180с.

.        Вирт Н. Алгоритмы и структуры данных. М: Мир. 1985г.

.        Гагарина Л.Г., Киселев Д.В., Федотова Е.Л. Разработка и эксплуатация автоматизированных информационных систем: учеб. пособие / Под ред. проф. Л.Г.Гагариной. - М.: ИД Форум: Инфра - М, 2007. - 384 с.

.        Глинский Я. Turbo Pascal 7.0 и Delphi. Учебное пособие. / Я. Н. Глинский. - М.: Диасофт, 2001. - 208 с.

.        Голицина О.Л., Максимов Н.В., Попов И.И. Базы данных: учебное пособие. - М.: ФОРУМ. - 2003. - 352 с.

.        Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. - СПб.: Питер, 1997. - 704 с.

.        Грабер М. Введение в SQL. - М.: Лори, 1996. - 380 с.

.        Гофман В. Delphi: быстрый старт. С.П.: bhv, 2003

.        Дарахвелидзе П.Г., Марков Е.П., Котенок О.А. Программирование в Delphi 5. - СПб.: БХВ - Санкт-Петербург, 2000. - 784 с.

.        Корняков В. Н. Программирование документов и приложений MS Office в Delphi. - СПб.:БХВ - Санкт-Петербург, 2005. - 497с.

.        Кондзюба С.П., Громов В.Н. Delphi 5. Базы данных и приложения: Лекции и упражнения. - Киев: ДиаСофт, 2001. - 592 с.

Приложение

Форма 1 - Электронная расписание автобусов

unit Unit1;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus,Unit2,Unit3,Unit4,Unit5,Unit6, StdCtrls, jpeg, ExtCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TImage;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;N4Click(Sender: TObject);N3Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button6Click(Sender: TObject);Button5Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm1;

{$R *.dfm}TForm1.N4Click(Sender: TObject);.Close;;

TForm1.N3Click(Sender: TObject);.WindowState:=wsMinimized;;TForm1.N5Click(Sender: TObject);.Show;;TForm1.N6Click(Sender: TObject);.Show;;TForm1.N7Click(Sender: TObject);.Show;;TForm1.N8Click(Sender: TObject);.Show;;TForm1.N9Click(Sender: TObject);.show;;TForm1.Button1Click(Sender: TObject);.Show;;TForm1.Button2Click(Sender: TObject);.Show;;TForm1.Button3Click(Sender: TObject);.Show;;TForm1.Button4Click(Sender: TObject);.Show;;TForm1.Button6Click(Sender: TObject);.Close;;

TForm1.Button5Click(Sender: TObject);.Show;;.

Форма 2 - Автобус

Unit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, Grids, DBGrids, DBTables, jpeg, ExtCtrls;

= class(TForm): TImage;: TTable;: TDBGrid;: TButton;: TQuery;: TDataSource;: TEdit;: TEdit;: TEdit;: TEdit;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TButton;: TButton;: TTable;: TTable;: TTable;: TTable;: TDataSource;: TDataSource;: TDataSource;: TDataSource;Button1Click(Sender: TObject);Edit2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);DBGrid2CellClick(Column: TColumn);Edit1MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Edit3MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Edit4MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);DBGrid3CellClick(Column: TColumn);DBGrid4CellClick(Column: TColumn);DBGrid5CellClick(Column: TColumn);Button2Click(Sender: TObject);Button3Click(Sender: TObject);:integer ;:integer;:integer;:integer;:integer;:integer;:integer;

;

: TForm2;

Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}TForm2.Button1Click(Sender: TObject);.Close;;

TForm2.Edit2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;

TForm2.DBGrid2CellClick(Column: TColumn);:=table2.Fields[0].Value;.Text:=table2.Fields[0].Value;.Visible:=false;;

TForm2.Edit1MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;

TForm2.Edit3MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;

TForm2.Edit4MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;

TForm2.DBGrid3CellClick(Column: TColumn);:=table3.Fields[0].Value;.Text:=table3.Fields[1].Value;.Visible:=false;;

TForm2.DBGrid4CellClick(Column: TColumn);:=table4.Fields[0].Value;.Text:=table4.Fields[1].Value;.Visible:=false;;

TForm2.DBGrid5CellClick(Column: TColumn);:=table5.Fields[0].Value;.Text:=table5.Fields[1].Value;.Visible:=false;;TForm2.Button2Click(Sender: TObject);

(edit1.Text='') or (edit2.Text='')(edit3.Text='') or (edit4.Text='') showmessage('Введите все данные!')

elseb=2 then.Close;.FindKey([p]);.insert;.Fields[0].Value:=p;.Fields[1].Value:=Mar;.Fields[2].Value:=Model;.Fields[3].Value:=Ost;.Post;.Open;.Close;.Open;:=0;

.Append;.Last;:=table1.Fields[0].Value;.insert;.Fields[1].Value:=Mar;.Fields[2].Value:=Model;.Fields[3].Value:=Ost;.Post;.Close;.Open;.Close;.Open;;.Text:='Код автобуса';.Text:='Номер Маршрута';.Text:='Модель';.Text:='Автопредприятие';

;

TForm2.Button3Click(Sender: TObject);.FindKey([p]);.Delete;.Close;.Open;.Close;.Open;;

.

Форма 3 - АвтопредприятиеUnit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, jpeg;= class(TForm): TImage;: TTable;: TDataSource;: TDBGrid;: TDBNavigator;: TButton;: TButton;: TButton;Button3Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);:integer;:integer;

: TForm3;

{$R *.dfm}TForm3.Button3Click(Sender: TObject);.Close;;TForm3.Button1Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;

TForm3.Button2Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;; end.

Форма 4 - Остановка

unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls;= class(TForm): TImage;: TButton;: TButton;: TButton;: TDataSource;: TDBGrid;: TTable;Button3Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);:integer;:integer;

{ Public declarations };: TForm4;

{$R *.dfm}TForm4.Button3Click(Sender: TObject);.Close;;TForm4.Button1Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;TForm4.Button2Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;;.

Форма 5 - Маршрут

unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBTables, DB, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg;= class(TForm): TImage;: TDBGrid;: TDBNavigator;: TTable;: TQuery;: TButton;: TDataSource;Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm5;

{$R *.dfm}TForm5.Button1Click(Sender: TObject);.Close;;.

Форма 6 - Модель

unit Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg;= class(TForm): TImage;: TDataSource;: TDBGrid;: TDBNavigator;: TTable;: TButton;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);:integer;:integer;

{ Public declarations };: TForm6;

{$R *.dfm}TForm6.Button1Click(Sender: TObject);.close;;TForm6.Button2Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;TForm6.Button3Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;;

end.