IAuditOperations.Succeeded

Синтаксис

Succeeded: Boolean;

Описание

Свойство Succeeded возвращает признак удачного выполнения операции.

Комментарии

Свойство возвращает True, если операция завершена успешно и False, если операция была запрещена.

Пример

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

AL: IAuditLog;

ALogon: IAuditLogons;

Operat: IAuditOperations;

s: String;

Begin

MB:=MetabaseClass.Active;

MS:=MB.Security;

Al:=MS.OpenAuditLog;

ALogon:= AL.OpenLogons(False);

ALogon.Next;

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

If Operat.Succeeded Then

s:="No";

Else

s:="Yes";

End If;

End Sub Main;

После выполнения примера в переменной «s» будет содержаться «No» если последняя операция не была запрещена.

См. также:

IAuditOperations