IAuditFilter.Top

Синтаксис Fore

Top: Integer;

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

Top: System.Int32;

Описание

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

Комментарии

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

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

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

Пример Fore

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

Class OBJ2097Form: Form
    Button1:Button;
    Memo1: Memo;
    IntegerEdit1: IntegerEdit;

    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;
    Begin
        log := MetabaseClass.Active.Security.OpenAuditLog;
        log.Filter.Top := IntegerEdit1.Value;
        ShowLog(log);
    End Sub Button1OnClick;

End Class OBJ2097Form;

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

Пример Fore.NET

Для выполнения примера создайте .NET сборку, в сборке создайте .NET форму, добавьте на нее кнопку с наименованием «Button1», компонент numericUpDown с наименованием «numericUpDown1» и компонент TextBox с наименованием «TextBox1», укажите в компоненте «numericUpDown1» желаемое количество записей протокола доступа, которые должны быть отображены.

Imports System;
Imports System.Collections.Generic;
Imports System.ComponentModel;
Imports System.Data;
Imports System.Drawing;
Imports System.Text;
Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.NET;
Imports Prognoz.Platform.Interop.Metabase;

Public Partial Class OBJ2100Form: Prognoz.Platform.Forms.NET.ForeNetForm
    Public Constructor OBJ2100Form();
    Begin
        InitializeComponent();
    End Constructor;
    
    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;
        Begin
        textbox1.Clear();   
        log := Self.Metabase.Security.OpenAuditLog();
        log.Filter.Top := numericUpDown1.Value As Integer;
        ShowLog(log);
    End Sub;
End Class;

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

См. также:

IAuditFilter