| Class TDBSecurity (unit DBSecur) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| 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;