IMetabaseGroups.Attributes

Syntax

Attributes: IABACAttributes;

Description

The Attributes property returns the collection of attributes of groups of users.

Comments

The property is read-only.

Example

To execute the example, add links to the ABAC, Metabase, and Dal system assemblies.

Sub UserProc;
Var
    Attr: IABACAttribute;
    Attrs: IABACAttributes;
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    
// Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    
// Add attribute for users
    Attrs := MS.Users.Attributes;
    Attr := Attrs.Add;
    Attr.Name(MB.CurrentLocale) := 
"New attribute"// attribute name
    Attr.Id := "ATTR_USER"// attribute identifier
    Attr.DataType := DbDataType.String; // attribute data type
    Attr.DefaultValue := "User name"// default name
    // Add an attribute for groups of users
    Attrs := MS.Groups.Attributes;
    Attr := Attrs.Add;
    Attr.Name(MB.CurrentLocale) := 
"New attribute"// attribute name
    Attr.Id := "ATTR_GROUP"// attribute identifier
    Attr.DataType := DbDataType.Integer; // attribute data type
    Attr.DefaultValue := 20// default name
    // Save changes in security manager
    MS.Apply;
    
// Check in license
    Lic := Null;
End Sub UserProc;

After executing the example, attributes with specified properties are set for users and groups of users.

In the security manager the added attributes are contained in the Attributes window.

See also:

IMetabaseGroups