IDatabase.RevokeGrantedRights

Синтаксис

RevokeGrantedRights: Boolean;

Описание

Свойство RevokeGrantedRights определяет, будут ли забираться права пользователя БД в старой схеме, при изменении имени схемы или сервера в свойствах БД.

Комментарии

Свойство имеет смысл, если AutoAdjustRights установлено значение True. По умолчанию RevokeGrantedRights установлено в False.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором "BD".

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    DB: IDatabase;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("BD").Edit;
    DB := MObj As IDatabase;
    DB.LogonData.ParamValue("SERVER") := "NewTest";
    DB.LogonData.ParamValue("SCHEME") := "NewTestShema";
    DB.AutoAdjustRights := True;
    DB.GrantCurrentRights := True;
    DB.RevokeGrantedRights := True;
    MObj.Save;
End Sub UserProc;

После выполнения примера будут изменены наименования сервера и схемы в настройках базы данных "BD". При сохранении будут автоматически розданы права пользователю на все объекты БД в новой схеме и забраны права в старой схеме.

См. также:

IDatabase