Самоучитель VBA


         

Диалоговое окно Перерегистрация туристов фирмы


У10.5. Диалоговое окно Перерегистрация туристов фирмы "С нами не соскучишься"



Рис. У10.6. Диалоговое окно Фильтрация

Перейдем к рассмотрению кнопок панели инструментов пользовательского меню.



















































































































Кнопка



Назначение



Регистрация



Активизирует диалоговое окно Регистрация туристов фирмы "С нами не соскучишься"



Поиск и редактирование



Активизирует диалоговое окно Поиск



Фильтр и его отмена



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



Фильтрация оплаченных путевок



Активизирует диалоговое окно Фильтрация



Сортировка



Сортирует данные в алфавитном порядке по направлениям туров



Сводная -таблица



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



b



Сохраняет данные по принципу команды Сохранить (Save)



я



Сохраняет данные по принципу команды Сохранить как (Save as)



В пользовательском меню Файл имеются только три пункта: сохранить, сохранить как И Закрыть.

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



































Модуль Модуль 1



Описываются переменные уровня проекта.



Option Explicit

Public СписокНайденных () As String

Public Фамилия As String

'

' При поиске клиента по фамилии в соответствии с используемым в приложении

' алгоритмом на длину фамилии не налагается ограничений

'

Public Имя As String * 20

Public Пол As String * 3

Public ВыбранныйТур As String * 20

Public Оплачено As String * 3

Public Фото As String * 3

Public Паспорт As String * 3

Public Срок As String * 3

Public НомерСтроки As Integer

Public НайденнаяЗапись As Integer

Public Продолжительность As Integer



































Модуль

ThisWorkbook



Создается пользовательское меню и панели инструментов, а также заголовок окна пользовательского приложения. Устанавливается связь между кнопками пользовательской панели инструментов и процедурами модуля, которые инициализируют соответствующие диалоговые окна или выполняют указанные действия. Устанавливается режим работы, при котором весь пользовательский интерфейс прекращает свое существование при закрытии приложения. Процедура workbook_WindowActivate создает пользовательский интерфейс при загрузке книги. Процедура workbook windowDeactivate восстанавливает интерфейс, используемый в окне рабочей книги Excel по умолчанию.

<

Содержание  Назад  Вперед