.....На данном уроке мы научимся создавать специальные процедуры управления объектами базы данных системы ЛОЦМАН:PLM для компонента vltv - TVLTableView формы fmLibOKP (см. Урок 5). Будут созданы процедуры администрирования объекта (назначение уровней доступа к выделенному в таблице объекту), просмотра информации об авторе-создателе объекта, а также процедура изменения текущего состояния объекта.
Шаг 7.1 - Дополнение списка иконок для контекстного меню.
Встаньте на форму fmLibOKP и дважды щелкните на компоненте iml - TImageList. Будет загружен редактор списка иконок, как показано на рисунке 7.1.
Рис. 7.1.
Добавьте в список иконки из файлов AdminObj.BMP, AuthorObj.BMP и ChangeState.BMP, которые находятся в папке ..\Tutorial\Icon каталога установки библиотеки (см. рис. 7.1).
Шаг 7.2 - Регистрация новых процедур.
Дважды щелкните на компоненте am (TActionManager) формы fmLibOKP, на экран загрузится редактор менеджера действий (см. рис. 7.2).
Рис. 7.2.
Создайте три новых действия (TAction). В окне инспектора свойств настройте некоторые свойства компонентов следующим образом:
TAction - Администрирование.
Свойство |
Значение |
Комментарий |
Caption |
Администрирование... |
Заголовок действия |
Category |
... |
Группа, в которую входит данное действие, оставить без изменений. |
Hint |
Назначение уровней доступа к объекту |
Контекстная подсказка |
ImageIndex |
3 |
Номер иконки в списке iml (нумерация начинается с 0) |
Name |
AdminObj |
Имя действия в модуле |
TAction - Автор-создатель.
Свойство |
Значение |
Комментарий |
Caption |
Автор-создатель... |
Заголовок действия |
Category |
... |
Группа, в которую входит данное действие, оставить без изменений. |
Hint |
Просмотр информации об авторе-создателе объекта |
Контекстная подсказка |
ImageIndex |
4 |
Номер иконки в списке iml (нумерация начинается с 0) |
Name |
AuthorObj |
Имя действия в модуле |
TAction - Изменить состояние.
Свойство |
Значение |
Комментарий |
Caption |
Изменить состояние... |
Заголовок действия |
Category |
... |
Группа, в которую входит данное действие, оставить без изменений. |
Hint |
Изменить состояние выделенного объекта |
Контекстная подсказка |
ImageIndex |
5 |
Номер иконки в списке iml (нумерация начинается с 0) |
Name |
ChangeState |
Имя действия в модуле |
Настроенные таким образом действия будут отображаться в окне редактора так, как показано на рисунке 7.2. Далее...