Глава 2. Практические основы разработки информационной системы «Министерство транспорта. Муниципальный общественный транспорт»
2.1 Общая структура информационной системы
Работа по созданию ИС начинается с создания ее компонентов. Поэтому командой Вставка > Лист были созданы необходимые листы и переименованы в соответствии с проектом.
Лист 1 –> Заставка
Лист 2 –> Меню
Лист 3 –> Организации
Лист 4 –> Чебоксарский транспорт
Лист 5 –> Проезные билеты
Лист 6 –> Отчеты
Лист 7 –> Другое
Начнем с оформления заставки.
В функциональном плане от заставки требуется только вывести на экран название системы и по щелчку мыши перейти на лист меню. Переход к меню осуществляется с помощью гиперссылки.
Вставка > Гиперссылка > Место в документе > Меню > Ok
Уберем сетку листа и заголовки строк и столбцов командой Сервис > Параметры > Снять галочки с параметров «Сетка» и «Заголовки строк и столбцов». Далее командой Формат > Лист > Подложка выберем фоновый рисунок. – командой Формат > Лист > Подложка выбран фоновый рисунок.
Рис. 1. Оформление титульного листа ИС «Минтранс. Муниципальный общественный транспорт»
Согласно плану проекта нам нужно создать кнопки перехода, они должны работать следующим образом:
«Минтранс» - переход на лист «Минтранс»;
«Организации» - переход на лист «Организации»;
«Чебоксарский транспорт» - переход на лист «Чебоксарский_транспорт»;
«Проездные» - переход на лист «Проездные»;
«Отчеты» - переход на лист «Отчеты»;
«Другое» переход на лист «Другое»;
«Выход» - Выход из Excel;
«Меню» на расчетных листах - переход на лист «Меню».
Для того, чтобы кнопки работали, выполняем следующие команды:
Сервис > Макрос > Начать запись.
На запрос о параметрах макроса указываем «Минтранс» и затем «Ok».
Далее щелкнув по ярлыку «Минтранс» выполняем Сервис > Макрос > Остановить запись.
1. После создания первого макроса («Минтранс») переходим в редактор Visual Basic – Сервис > Макрос > Макросы > Выбрать только что созданный > Изменить.
2. Система перейдет в редактор Visual Basic, в котором мы увидим, следующее:
Sub Минтранс()
Sheets("Минтранс").Select
End Sub
3. Для создания остальных макросов имеющийся текст макроса выделяем, копируем в буфер и путем вставки создаем:
Sub Организации()
Sheets("Организации").Select
End Sub
Sub Чебоксарский_транспорт()
Sheets("Чебоксарский_транспорт").Select
End Sub
Sub Проездные()
Sheets("Проездные").Select
End Sub
Sub Отчеты()
Sheets("Отчеты").Select
End Sub
Sub Другое()
Sheets("Другое").Select
End Sub
Sub Меню()
Sheets("Меню").Select
End Sub
Sub Выход()
Workbooks.Close
End Sub
Теперь приступим к созданию кнопок
Вызывается панель инструментов с заготовками интерфейса –
Вид > Панели инструментов > Формы.
На появившейся панели выбираем элемент «Кнопка» и рисуем ее в нужном месте экрана. На запрос о назначении макроса из списка выбираем «Минтранс». Надпись на кнопке «Кнопка 1» исправлем на «Минтранс»
Аналогично создаются все остальные кнопки главного меню.
На остальных листах необходимо создать кнопки возврата к главному меню.
На рисунке 2 приведен интерфейс, который мы получили:
Рис.
2. Интерфейс листа «Меню»