IAuditOperations.ObjectClass

Синтаксис

ObjectClass: Integer;

Описание

Свойство ObjectClass возвращает класса объекта над которым произведена операция.

Пример

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

AL: IAuditLog;

ALogon: IAuditLogons;

Operat: IAuditOperations;

i: Integer;

Begin

MB:=MetabaseClass.Active;

MS:=MB.Security;

Al:=MS.OpenAuditLog;

ALogon:= AL.OpenLogons(False);

ALogon.Next;

Operat:=Al.OpenOperations(ALogon.Session);

i:=Operat.ObjectClass;

End Sub Main;

После выполнения примера в переменной «i» будет содержаться индекс класса объекта, над которым произведена последняя операция.

См. также:

IAuditOperations