Class TDBSecurity (unit DBSecur)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TDBSecurity


Functions

function ChangePassword: Boolean;


destructor Destroy;


procedure Lock;


function Login: Boolean;


procedure DoAfterLogin;


function DoCheckUser(UsersTable: TTable; const UserName, Password: string): Boolean;


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


function GetIniFileName: string;


function GetLoggedUser: string;


function GetLoginNameField: string;


procedure SetDatabase(Value: TDatabase);


procedure SetIniFileName(const Value: string);


procedure SetLoggedUser(const Value: string);


procedure SetLoginNameField(const Value: string);


procedure SetUsersTableName(const Value: TFileName);


function UnlockHook(var Message: TMessage): Boolean;


Properties

property Active : Boolean


property AfterLogin : TNotifyEvent


property AllowEmptyPassword : Boolean


property AttemptNumber : Integer


property Database : TDatabase


property IniFileName : string


property LoginNameField : string


property MaxPasswordLen : Integer


property UpdateCaption : TUpdateCaption


property UseRegistry : Boolean


property UsersTableName : TFileName


property LoggedUser : string


Events

event OnChangePassword : TChangePasswordEvent


event OnCheckUser : TCheckUserEvent


event OnUnlock : TCheckUnlockEvent


Variables

FActive : Boolean;


FAfterLogin : TNotifyEvent;


FAllowEmpty : Boolean;


FAttemptNumber : Integer;


FDatabase : TDatabase;


FIniFileName : PString;


FLocked : Boolean;


FLoggedUser : PString;


FLoginNameField : PString;


FMaxPasswordLen : Integer;


FOnChangePassword : TChangePasswordEvent;


FOnCheckUser : TCheckUserEvent;


FOnUnlock : TCheckUnlockEvent;


FSaveOnRestore : TNotifyEvent;


FUnlockDlgShowing : Boolean;


FUpdateCaption : TUpdateCaption;


FUseRegistry : Boolean;


FUsersTableName : TFileName;



Constructors


constructor Create(AOwner: TComponent);

TDBSecurity


Functions


function ChangePassword: Boolean;


destructor Destroy;


procedure Lock;


function Login: Boolean;


procedure DoAfterLogin;


function DoCheckUser(UsersTable: TTable; const UserName, Password: string): Boolean;


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


function GetIniFileName: string;


function GetLoggedUser: string;


function GetLoginNameField: string;


procedure SetDatabase(Value: TDatabase);


procedure SetIniFileName(const Value: string);


procedure SetLoggedUser(const Value: string);


procedure SetLoginNameField(const Value: string);


procedure SetUsersTableName(const Value: TFileName);


function UnlockHook(var Message: TMessage): Boolean;


Properties


property Active : Boolean


property AfterLogin : TNotifyEvent


property AllowEmptyPassword : Boolean


property AttemptNumber : Integer


property Database : TDatabase


property IniFileName : string


property LoginNameField : string


property MaxPasswordLen : Integer


property UpdateCaption : TUpdateCaption


property UseRegistry : Boolean


property UsersTableName : TFileName


property LoggedUser : string


Events


event OnChangePassword : TChangePasswordEvent


event OnCheckUser : TCheckUserEvent


event OnUnlock : TCheckUnlockEvent


Variables


FActive : Boolean;


FAfterLogin : TNotifyEvent;


FAllowEmpty : Boolean;


FAttemptNumber : Integer;


FDatabase : TDatabase;


FIniFileName : PString;


FLocked : Boolean;


FLoggedUser : PString;


FLoginNameField : PString;


FMaxPasswordLen : Integer;


FOnChangePassword : TChangePasswordEvent;


FOnCheckUser : TCheckUserEvent;


FOnUnlock : TCheckUnlockEvent;


FSaveOnRestore : TNotifyEvent;


FUnlockDlgShowing : Boolean;


FUpdateCaption : TUpdateCaption;


FUseRegistry : Boolean;


FUsersTableName : TFileName;