IAuditFilter.Top

Синтаксис

Top: Integer;

Top: System.Int32;

Описание

Свойство Top определяет количество рассматриваемых записей протокола доступа.

Комментарии

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

По умолчанию свойство имеет значение 0.

При значениях 0 и -1 список записей протокола доступа неограничен, то есть рассматриваются все записи.

Пример

Для выполнения примера создайте форму, добавьте на нее кнопку с наименованием «Button1», компонент IntegerEdit с наименованием «IntegerEdit1» и компонент Memo с наименованием «Memo1», укажите в компоненте «IntegerEdit1» желаемое количество записей протокола доступа, которые должны быть отображены.

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

Sub ShowLog(log: IAuditLog);
Var
    opers: IAuditOperations;
Begin
    Memo1.Lines.Clear;
    opers := log.OpenOperations(-1);
    While Not opers.Eof Do
        Memo1.Lines.Add(opers.Name + "  " + opers.Stamp.ToString);
        opers.Next;
    End While;
End Sub ShowLog;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    log: IAuditLog;
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    log := MetabaseClass.Active.Security.OpenAuditLog;
    log.Filter.Top := IntegerEdit1.Value;
    ShowLog(log);
End Sub Button1OnClick;
Imports Prognoz.Platform.Interop.Metabase;
…
Sub ShowLog(log: IAuditLog);
Var
    ALogon: IAuditLogons;
    opers: IAuditOperations;
Begin
    Alogon := log.OpenLogons(False);
    opers := log.OpenOperations(-1 As uinteger);
    While Not opers.Eof() Do
        textbox1.Text := textbox1.Text + opers.Name + char.ConvertFromUtf32(13) + char.ConvertFromUtf32(10);
        opers.Next();
    End While;
End Sub ShowLog;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    log: IAuditLog;
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Lic: Object;
Begin
    MB := Self.Metabase;
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    textbox1.Clear();
    log := Self.Metabase.Security.OpenAuditLog();
    log.Filter.Top := numericUpDown1.Value As Integer;
    ShowLog(log);
End Sub;

При нажатии на кнопку «Button1» в поле «Memo1» появится список из указанного количества последних записей протокола доступа.

См. также:

IAuditFilter