Расширенный контроль пользователей

Настройка работы:

1. UserEx=1, права доступа будут загружены из users.fdb;
2. UserEx=0, права доступа будут загружены из *mes.fdb;
3. UserEx_log, обращения будут записаны в RPVISUAL.log;
4. UserEx_CardReader, название модуля из RpSvrTcp;
5. UserEx_DBName - путь до базы данных users.fdb.

Регистрация карт:

1. В режиме UserEx=1, поднести нужную карту

1. id карты запишется в cardlog
2. в окне «UserEx - Администрирование», выбрать нужного пользователя
3. кликнуть на кнопку «Выбрать» (Код карты)
4. в списке выбрать появившийся ID.

Создание правил пользователям:

1. в окне «UserEx - Администрирование», «Группы», выбрать группу пользователя

1. В таблице «Правила пользователя» Выражение = регулярное выражение для перехвата и обработки.
2. Разр. «да», значит разрешение данной группе обрабатывать действия данной группы;
3. Разр. «нет», значит запрет данной группе.
4. Разр. «-» ??? не знаю пока.

Обработка действий для работы :

1. в нужный модуль добавить в раздел «uses» добавить UserControlEx
2. добавить обработчик действия, отправляющий фильтруемое выражение в фильтр
3. пример обработка нажатия TAdvGlowButton
4. данный код вернет true, когда пользователю разрешен тип действий (содержится в Caption)
5. также нажатия кнопки будет записано в rpvisual.log

procedure TwndData02Form.checkPermission(Sender: TObject;
var bCan: Boolean);
begin
   if isModeUserEx then 
      bCan := isPermitted('~'+(Sender as TAdvGlowButton).Caption);
end;