Шаг 7.4 - Создание процедуры администрирования объекта базы данных.

     Дважды щелкните на компоненте am (TActionManager) формы fmLibOKP, на экран загрузится редактор менеджера действий (см. рис. 7.2). Дважды щелкните на действии AdminObj (Администрирование), будет создана процедура действия AdminObjExecute. Введите в тело процедуры следующие строки:

procedure TfmLibOKP.AdminObjExecute(Sender: TObject);
begin
     inherited;
     Self.vltv.AdminObj;
     // вызов процедуры администрирования выделенного в таблице объекта
end;

     Скомпилируйте приложение и проверьте, как работает соответствующий пункт контекстного меню таблицы. На экран будет загружено окно администрирования выделенного в таблице объекта базы данных системы ЛОЦМАН:PLM (см. рис. 7.4).

Рис. 7.4.

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

где: Добавить - добавить описание нового привилегия для группы пользователей (или для конкретного пользователя); Свойства - изменить существующее привилегие; Удалить - удалить существующее привилегие.

Шаг 7.5 - Создание процедуры просмотра информации об авторе-создателе объекта базы данных.

     Дважды щелкните на действии AuthorObj (Автор-создатель), будет создана процедура действия AuthorObjExecute. Введите в тело процедуры следующие строки:

procedure TfmLibOKP.AuthorObjExecute(Sender: TObject);
begin
     inherited;
     Self.vltv.AuthorObj;
     // вызов процедуры просмотра информации об авторе-создателе выделенного в таблице объекта
end;

     Скомпилируйте приложение и проверьте, как работает соответствующий пункт контекстного меню таблицы. На экран будет загружено окно просмотра информации об авторе-создателе выделенного в таблице объекта базы данных системы ЛОЦМАН:PLM (см. рис. 7.5).

Рис. 7.5.

Шаг 7.6 - Создание процедуры изменения состояния объекта базы данных.

     Дважды щелкните на действии ChangeState (Изменить состояние), будет создана процедура действия ChangeStateExecute. Введите в тело процедуры следующие строки:

procedure TfmLibOKP.ChangeStateExecute(Sender: TObject);
begin
     inherited;
     Self.vltv.ChangeState;
     // вызов процедуры изменения состояния выделенного в таблице объекта
end;

     Скомпилируйте приложение и проверьте, как работает соответствующий пункт контекстного меню таблицы. На экран будет загружено окно таблицы последующих состояний выделенного в таблице объекта базы данных системы ЛОЦМАН:PLM (см. рис. 7.6).

Рис. 7.6.

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