TControlSecurityManager

type TControlSecurityManager = class(TComponent)

public

  constructor Create(); override;

  destructor Destroy; override;

  function Login();

  procedure Logout;

  procedure Manage;

  function GetCurrentUserlogin;

  function GetCurrentUserName;

  procedure TryAccess();

  function RegisterControl();

  procedure UnRegisterControl();

  procedure UpdateControls;

  function CanAccess();

  procedure ValidateSecurityCode();

  procedure RegisterSecurityCode();

  procedure UnregisterSecurityCode();

  function SecurityCodeExists();

  function GetRegisteredAccessCodes;

  function CheckIfUserIsAllowed();

published

  property UserManagement: TBasicUserManagement; [rw]

end;

TControlSecurityManager

TObject