ObjectKey(Index: Integer): Integer;
ObjectKey(Index: integer): integer;
Index. Индекс позиции. Количество ключей определяется свойством IAuditFilterCondition.ObjectKeyCount.
Свойство ObjectKey определяет ключ объекта, для которого будут отображаться записи протокола.
Для выполнения примера предполагается наличие в репозитории отчета с идентификатором «Report» и формы. На форме должны быть расположены кнопка с идентификатором «Button1» и компонент ListView с идентификатором «ListView1», для которого создано 2 колонки: наименование операции и дата. Для кнопки определен обработчик Button1OnClick.
Добавьте ссылку на системную сборку Metabase.
Содержимое первой вкладки
Содержимое второй вкладки
Class MуForm: Form
Button1: Button;
ListView1: ListView;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Mb: IMetabase;
Log: IAuditLog;
Con: IAuditFilterCondition;
Fil: IAuditFilter;
objectKey : Integer;
Begin
Mb := MetabaseClass.Active;
Log := Mb.Security.OpenAuditLog;
Fil := Log.Filter;
If Fil.Count <= 0 Then
Con := Fil.Add;
Else
Con := Fil.Item(0);
End If;
Con.IncludeFailedLogons := False;
Con.IncludeSucceededLogons := False;
objectKey := MB.ItemById("Report").Key;
Con.ObjectKeyCount := 1;
Con.ObjectKey(0) := objectKey;
FillLogListView(Log.OpenOperationTree(-1, -1));
End Sub Button2OnClick;
Sub FillLogListView(operations:IAuditOperations);
Var
listItem : IListViewItem;
d : DateTime;
Begin
ListView1.Items.Clear;
While Not operations.Eof Do
listItem := ListView1.Items.Add("");
listItem.ColumnText(0) := operations.Name;
d := DateTime.FromDouble(operations.Stamp);
listItem.ColumnText(1) := d.ToString;
operations.Next;
End While; operations.Eof
End Sub FillLogListView;
End Class MуForm;
После нажатия на кнопку в компоненте «ListView» будет отображен список операций, производимых над объектом. Для каждой операции будет выведено название, дата и время.
См. также: