Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 9.2
Update 17 от 29/12/2020,
© ООО «ФОРСАЙТ»,
AccessMask: Integer;
Свойство AccessMask определяет маску разрешений доступа к объекту.
Значение маски является 4-x байтовым двоичным числом, приведенным к десятичному виду. В зависимости от типа дополнительного параметра данное свойство возвращает различные значения:
разрешающий параметр - свойство возвращает значение, соответствующее списку явно установленных разрешений на операции.
запрещающий параметр - свойство возвращает значение, соответствующее списку явно установленных запретов на операции.
аудит операций над объектом - свойство возвращает значение, соответствующее списку операций, для которых ведется аудит доступа.
Для формирования и проверки значения маски необходимо использовать значения перечислимого типа MetabaseObjectPredefinedRights. В этом перечислении содержатся основные и дополнительные операции, на которые можно раздавать права и вести аудит доступа. Для определенных классов объектов доступны специфические операции. Для использования специфических операций, в зависимости от класса объекта, в маске можно использовать значения следующих перечислений:
CalculatedCubeSpecificRights - специфические операции, доступные для вычисляемых кубов.
CubeLoaderSpecificRights - специфические операции, доступные для загрузчика данных в куб.
CubeSpecificRights - специфические операции, доступные для различных видов кубов.
CustomObjectSpecificRights - специфические операции, доступные для объектов пользовательских классов.
DataBaseSpecificRights - специфические операции, доступные для объекта репозитория - База данных.
DictionarySpecificRights - специфические операции, доступные для объектов репозитория - Справочник НСИ и Составной справочник НСИ.
MDCalcSpecificRights - специфические операции, доступные для объекта репозитория - Многомерный расчет на сервере БД.
ProblemSpecificRights - специфические операции, доступные для объекта контейнера моделирования - Задача моделирования.
ProcedureSpecificRights - специфические операции, доступные для объекта репозитория - Процедура.
ScenarioDimensionSpecificRights - специфические операции, доступные для объекта репозитория - Сценарий моделирования.
TableSpecificRights - специфические операции, доступные для следующих объектов репозитория - Таблица, Представление, Журнал, Присоединенная таблица.
ValidationSpecificRights - специфические операции, доступные для объекта репозитория - Правило валидации и Группа валидаций.
Основные, дополнительные и специфические операции, доступные для определенных типов объектов, представлены в разделе Типы событий.
Для разбора значения маски необходимо реализовать пользовательскую функцию, которая позволит сопоставить отдельные биты маски соответствующим значениям перечислений. Пример работы с маской доступа представлен в разделе Примеры: Работа с маской доступа.
Для выполнения примера предполагается наличие в репозитории таблицы с идентификатором "Table_1". Среди субъектов безопасности, созданных в менеджере безопасности текущего репозитория, имеется пользователь «TestUser».
Sub Main;
Var
MB: IMetabase;
MDesc: IMetabaseObjectDescriptor;
SecDesc: ISecurityDescriptor;
User: ISecuritySubject;
Acl: IAccessControlList;
Entry, AllowedEntry, DeniedEntry: IAccessControlEntry;
AccessAllowed, AccessDenied: Integer;
Begin
MB := MetabaseClass.Active;
MDesc := MB.ItemById("Table_1");
//Дескриптор безопасности объекта
SecDesc := MDesc.SecurityDescriptor;
//Пользователь, для которого необходимо изменить права доступа
User := MB.Security.ResolveName("TestUser");
SecDesc.Edit;
//Дополнительные параметры безопасности
Acl := SecDesc.Acl;
//Формирование разрешающей и запрещающей маски:
//Основные операции, которые будут разрешены
AccessAllowed := MetabaseObjectPredefinedRights.Read;
//Специфические операции, которые будут разрешены
AccessAllowed := AccessAllowed Or
TableSpecificRights.SelectRows Or
TableSpecificRights.UpdateRows;
//Основные операции, которые будут запрещены
AccessDenied := MetabaseObjectPredefinedRights.WritePars Or
MetabaseObjectPredefinedRights.WriteDescr;
//Специфические операции, которые будут запрещены
AccessDenied := AccessDenied Or
TableSpecificRights.InsertRows Or
TableSpecificRights.DeleteRows;
//Поиск дополнительного параметра безопасности,
//разрешающего операции для указанного пользователя
For Each Entry In Acl Do
If (Entry.Sid.AsString = User.Sid.AsString) And (Entry.Type = AceType.AccessAllowed) Then
AllowedEntry := Entry;
End If;
End For;
//Если параметр существует, то устанавливаем в нем сформированную маску,
//иначе создаем новый дополнительный параметр безопасности
If AllowedEntry <> Null Then
AllowedEntry.AccessMask := AccessAllowed;
Else
Acl.AddAce(AceType.AccessAllowed, User.Sid, AccessAllowed);
End If;
//Поиск дополнительного параметра безопасности,
//запрещающего операции для указанного пользователя
For Each Entry In Acl Do
If (Entry.Sid.AsString = User.Sid.AsString) And (Entry.Type = AceType.AccessDenied) Then
DeniedEntry := Entry;
End If;
End For;
//Если параметр существует, то устанавливаем в нем сформированную маску,
//иначе создаем новый дополнительный параметр безопасности
If DeniedEntry <> Null Then
DeniedEntry.AccessMask := AccessDenied;
Else
Acl.AddAce(AceType.AccessDenied, User.Sid, AccessDenied);
End If;
SecDesc.Apply(True);
End Sub Main;
После выполнения примера для указанного объекта будут изменены дополнительные параметры безопасности. Если в дополнительных параметрах безопасности объекта имеются параметры, определяющие права доступа для пользователя «TestUser», то они будут изменены. Если соответствующих параметров нет, то они будут созданы. Разрешающая и запрещающая маска доступа формируются в переменных «AccessAllowed» и «AccessDenied» соответственно.
См. также: