8. 3. Создание пользовательских меню
С любой формой можно связать какое- либо иерархическое меню, построенное по типу системного меню ACCESS. Создать такое меню можно двумя способами:
с помощью макросов
с помощью создания своей ПИ с последующей ее настройкой.
Рассмотрим оба способа.
8. 3.1. Создание пользовательских меню с помощью макросов
Созданное этим способом меню заменит линейку системного меню.
Рассмотрим пример.
Пример 31. Пусть при открытии формыДеталидолжно появляться иерархическое меню вида:
Это меню можно создать цепочкой взаимосвязанных макросов. Подчеркнутые символы будут определять “горячие клавиши”, с помощью которых можно сразу исполнить соответствующую команду меню.
Макрос по имени Моеменю. Назначение макроса - создать пункты горизонтального меню (ФормаиТаблица).
|
Макрокоманда |
Примечание |
|
ДобавитьМеню (Название меню: &Форма, Имя макроса: Форма) |
Символ & ставится перед символом, который будет выступать в качестве “горячей клавиши”, т. е. этот пункт меню активизируется нажатием клавиш Alt+ф. |
|
ДобавитьМеню (Название меню: &Таблица, Имя макроса: Таблица) |
|
Макрос по имени Формаиспользуется для создания пунктаЗакрытьформувертикального меню для пункта менюФорма. Этот макрос должен быть групповым:
|
Имя макроса |
Макрокоманда |
Примечание |
|
Закрыть Форму |
ДобавитьМеню (Название меню: &Закрыть форму, Имя макроса: Закрыть форму Детали, Сообщение: Закрываем формы) |
Использование этой макрокоманды для вертикального меню добавляет к названию меню символ ». Указанное в аргументах сообщение появится в строке состояния. |
Макрос по имени Таблицаиспользуется для создания двух пунктовОткрытьтаблицуиЗакрытьтаблицувертикального меню для пунктаТаблица. Этот макрос также должен быть групповым:
|
Имя макроса |
Макрокоманда |
Примечание |
|
Открыть таблицу |
ДобавитьМеню (Название меню: &Открыть таблицу, Имя макроса: Открытие таблиц, Сообщение: Открываем таблицы) |
|
|
Закрыть таблицу |
ДобавитьМеню (Название меню: &Закрыть таблицу, Имя макроса: Закрытие таблиц, Сообщение: Закрываем таблицы) |
|
Макрос по имени ЗакрытьформуДеталииспользуется для создания подпункта менюДеталик пунктуЗакрытьформу. Этот макрос должен быть групповым:
|
Имя макроса |
Макрокоманда |
Примечание |
|
Детали |
Закрыть (Тип объекта: Форма, Имя объекта: Детали) |
При исполнении этого макроса имя простого макроса Деталибудет использовано в качестве подпункта меню к пунктуЗакрытьформу. |
Макрос по имени Открытиетаблициспользуется для создания подпунктов менюПоставщики и Поставкик пунктуОткрытьтаблицу. Этот макрос должен быть групповым:
|
Имя макроса |
Макрокоманда |
Примечание |
|
Поставщики |
ОткрытьТаблицу (Имя таблицы: Поставщики) |
|
|
|
ВыделитьОбъект (Тип объекта: Форма, Имя объекта: Детали, В окне базы данных: Нет) |
Эта макрокоманда переносит фокус (делает активным окно формы) на форму Детали, чтобы было доступным созданное меню. Иначе доступным будет системное меню ACCESS. |
|
|
СдвигРазмер (От верхнего края: 8см., По правому краю: 10см.) |
Эта макрокоманда сдвигает активное окно (форму Детали) в правый нижний угол экрана так, чтобы была видна вся открытая таблица. Размер сдвига следует подобрать экспериментально. |
|
Поставки |
ОткрытьТаблицу (Имя таблицы: Поставки) |
|
|
|
ВыделитьОбъект (Тип объекта: Форма, Имя объекта: Детали, В окне базы данных: Нет) |
|
|
|
СдвигРазмер (От верхнего края: 8см., По правому краю: 10см.) |
|
Макрос по имени Закрытиетаблициспользуется для создания подпунктов менюПоставщики и Поставкик пунктуЗакрытьтаблицу. Этот макрос аналогичен предыдущему макросу:
|
Имя макроса |
Макрокоманда |
Примечание |
|
Поставщики |
Закрыть (Тип объекта: Таблица Имя таблицы: Поставщики) |
|
|
|
СдвигРазмер (От верхнего края: 8см., По правому краю: 10см.) |
Эта макрокоманда возвращает активное окно (форму Детали) в первоначальное положение на экране. |
|
Поставки |
Закрыть (Тип объекта: Таблица Имя таблицы: Поставки) |
|
Перечисленные макросы нужно создавать в обратной последовательности, начиная с пятого.
Далее следует связать макрос Моеменюсо свойствомСтрокаменю(вкладкаДругие) формыДетали (имя макроса набрать с клавиатуры !!!!!).
Откройте форму Деталив режиме формы и убедитесь в правильности функционирования созданного меню.