IMetabaseUser.Certificate

Синтаксис Fore

Certificate : String;

Синтаксис Fore.NET

Certificate : string;

Описание

Свойство Certificate присваивает валидный сертификат пользователю, по которому будет осуществляться вход.

Пример Fore

Для выполнения примера предполагается наличие на форме компонента EditBox с идентификатором EditBox1 и Button с идентификатором Button1.

Добавьте ссылки на системную сборку Metabase.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Value: String;
    User: IMetabaseUser;
    Security: IMetabaseSecurity;
Begin
    Security := MetabaseClass.Active.Security;
    User := Security.ResolveName("ADMIN") As IMetabaseUser;
    value := EditBox1.Text;
    User.Certificate := Value;
End Sub Button1OnClick;

В результате выполнения примера после нажатия кнопки пользователю ADMIN будет присвоен сертификат введенный администратором в компоненте EditBox1.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Metabase;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
    Value: String;
    User: IMetabaseUser;
    Security: IMetabaseSecurity;
Begin
    Security := Self.Metabase.Security;
    User := Security.ResolveName("ADMIN") As IMetabaseUser;
    value := TextBox1.Text;
    User.Certificate := Value;
End Sub;

См. также:

IMetabaseUser