AdmUserTitle(Locale: LocaleCodeID; Type: AdmUserType): String;
AdmUserTitle[Prognoz.Platform.Interop.ForeSystem.LocaleCodeID,Prognoz.Platform.Interop.Metabase.AdmUserType]: System.String;
Locale. Iof the language and regional parameters. The Locale parameter cannot be equal to LocaleCodeID.None.
Type. Determines administrator type.
The AdmUserTitle property determines a string to display in the window header of a security manager for a specified administrator type.
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".
To execute the example, add links to the Metabase, ForeSystem (for the Fore.NET example) system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Policy: IMetabasePolicy;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Get license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
Policy := MS.Policy;
// Set string to display in header of security manager window
Policy.AdmUserTitle(LocaleCodeID.Russian, AdmUserType.ISA) := "PM of security information administrator";
Policy.AdmUserTitle(LocaleCodeID.Russian, AdmUserType.Admin) := "PM of application administrator";
Policy.AdmUserTitle(LocaleCodeID.Russian, AdmUserType.ISA Or AdmUserType.Admin) := "PM of Administrator";
// Save changes
MS.Apply;
// Check in license
Lic := Null;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params : StartParams);
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Policy: IMetabasePolicy;
Lic: Object;
Begin
MB := Params.Metabase;
// Get license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
MS := MB.Security;
Policy := MS.Policy;
// Set string to display in header of security manager window
Policy.AdmUserTitle[LocaleCodeID.lcidRussian, AdmUserType.autISA] := "PM of information security administrator";
Policy.AdmUserTitle[LocaleCodeID.lcidRussian, AdmUserType.autAdmin] := "PM of Application administrator";
Policy.AdmUserTitle[LocaleCodeID.lcidRussian, AdmUserType.autISA Or AdmUserType.autAdmin] := "PM of Administrator";
// Save changes
MS.Apply();
// Check in license
Lic := Null;
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.
See also: