Настройка работы:
UserEx=1, права доступа будут загружены из users.fdb;
UserEx=0, права доступа будут загружены из *mes.fdb;
UserEx_log, обращения будут записаны в RPVISUAL.log;
UserEx_CardReader, название модуля из RpSvrTcp;
UserEx_DBName - путь до базы данных users.fdb.
Регистрация карт:
В режиме UserEx=1, поднести нужную карту
id карты запишется в cardlog
в окне «UserEx - Администрирование», выбрать нужного пользователя
кликнуть на кнопку «Выбрать» (Код карты)
в списке выбрать появившийся ID.
Создание правил пользователям:
в окне «UserEx - Администрирование», «Группы», выбрать группу пользователя
В таблице «Правила пользователя» Выражение = регулярное выражение для перехвата и обработки.
Разр. «да», значит разрешение данной группе обрабатывать действия данной группы;
Разр. «нет», значит запрет данной группе.
Разр. «-» ??? не знаю пока.
Обработка действий для работы :
в нужный модуль добавить в раздел «uses» добавить UserControlEx
добавить обработчик действия, отправляющий фильтруемое выражение в фильтр
пример обработка нажатия TAdvGlowButton
данный код вернет true, когда пользователю разрешен тип действий (содержится в Caption)
также нажатия кнопки будет записано в rpvisual.log
procedure TwndData02Form.checkPermission(Sender: TObject;
var bCan: Boolean);
begin
if isModeUserEx then
bCan := isPermitted('~'+(Sender as TAdvGlowButton).Caption);
end;