IMetabasePolicy.AdmUserTitle

Fore Syntax

AdmUserTitle(Locale: LocaleCodeID; Type: AdmUserType): String;

Fore.NET Syntax

AdmUserTitle(Locale: Prognoz.Platform.Interop.ForeSystem.LocaleCodeID; Type: AdmUserType): System.String;

Parameters

Locale. Iof the language and regional parameters. The Locale parameter cannot be equal to LocaleCodeID.None.

Type. Determines administrator type.

Description

The AdmUserTitle property determines a string to display in the window header of a security manager for a specified administrator type.

Comments

By default a string is nor formed (empty). Only the user with a privilege "Change user rights, give roles, change policies" can determine the string.

The string can be assigned for three users types:

Users who has the privilege "Change security label and a list of access control of any object".
Users who have the privilege "Create, delete users".
Users who have both privileges "Change security label and a list of access control of any object" and "Create, delete users".

Fore Example

To execute the example, add a link to the Metabase system assembly.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Policy: IMetabasePolicy;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    Policy := MS.Policy;
    Policy.AdmUserTitle(LocaleCodeID.Russian, AdmUserType.ISA) := "PM of Informational security administrator";
    Policy.AdmUserTitle(LocaleCodeID.Russian, AdmUserType.Admin) := "PM of Applied administrator";
    Policy.AdmUserTitle(LocaleCodeID.Russian, AdmUserType.ISA Or AdmUserType.Admin) := "PM of Administrator";
    MS.Apply;
End Sub UserProc;

After executing this example an additional string depending on a privilege that the user has is displayed into the window header of a security manager.

Fore.NET Example

Add a link to the ForeSystem system assembly. The specified procedure is an entry point for the .NET assembly.

Imports System;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Policy: IMetabasePolicy;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    Policy := MS.Policy;
    Policy.AdmUserTitle[LocaleCodeID.lcidRussian, AdmUserType.autISA] := "PM of Informational security administrator";
    Policy.AdmUserTitle[LocaleCodeID.lcidRussian, AdmUserType.autAdmin] := "PM of Applied administrator";
    Policy.AdmUserTitle[LocaleCodeID.lcidRussian, AdmUserType.autISA Or AdmUserType.autAdmin] := "PM of Administrator";
    MS.Apply();
End Sub;

After executing this example an additional string depending on a privilege that the user has is displayed into the window header of a security manager.