TBasicUserManagement

type TBasicUserManagement = class(TComponent)

protected

  FLoggedUser: Boolean;

  FCurrentUserName: UTF8String;

  FCurrentUserLogin: UTF8String;

  FUID: Integer;

  FLoggedSince: TDateTime;

  FInactiveTimeOut: Cardinal;

  FLoginRetries: Cardinal;

  FFrozenTime: Cardinal;

  FVirtualKeyboardType: TVKType;

  FSuccessfulLogin: TNotifyEvent;

  FFailureLogin: TNotifyEvent;

  FUserChanged: TUserChangedEvent;

  FRegisteredSecurityCodes: TStringList;

  frmLoginDlg: TpsHMIfrmUserAuthentication;

  function GetLoginTime;

  procedure SetInactiveTimeOut();

  procedure UnfreezeLogin();

  function GetUID;

  procedure DoUserChanged; virtual;

  procedure DoSuccessfulLogin; virtual;

  procedure DoFailureLogin; virtual;

  function CheckUserAndPassword(); virtual;

  function CheckUserChipCard(); virtual;

  function GetLoggedUser; virtual;

  function GetCurrentUserName; virtual;

  function GetCurrentUserLogin; virtual;

  property LoggedSince: TDateTime; [r]

  property InactiveTimeout: Cardinal; [rw]

  property LoginRetries: Cardinal; [rw]

  property LoginFrozenTime: Cardinal; [rw]

  property SuccessfulLogin: TNotifyEvent; [rw]

  property FailureLogin: TNotifyEvent; [rw]

  property UserChanged: TUserChangedEvent; [rw]

  function CanAccess();

  property ChipCardReader: TChipCardReader; [rw]

  procedure Notification(); override;

  procedure WaitForEmptyChipCard; virtual;

  procedure StartDelayedChipCardRead;

  procedure StopDelayedChipCardRead;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Login();

  procedure Logout; virtual;

  procedure Manage; virtual;

  procedure ValidateSecurityCode(); virtual;

  function SecurityCodeExists(); virtual;

  procedure RegisterSecurityCode(); virtual;

  procedure UnregisterSecurityCode(); virtual;

  function GetRegisteredAccessCodes; virtual;

  function CheckIfUserIsAllowed(); virtual;

  property UID: Integer; [r]

  property UserLogged: Boolean; [r]

  property CurrentUserName: UTF8String; [r]

  property CurrentUserLogin: UTF8String; [r]

end;

TBasicUserManagement

TObject