Unit LoginDlg

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { } {

Classes

TRxLoginForm -

Functions

LoginDialog -
OnLoginDialog - LoginDialog
UnlockDialog -

Types

TCheckUnlockEvent
TCheckUserNameEvent
TDialogMode

Constants

Variables


Functions


function LoginDialog(Database: TDatabase; AttemptNumber: Integer; const UsersTableName, UserNameField: string; MaxPwdLen: Integer; CheckUserEvent: TCheckUserNameEvent; var LoginName: string; const IniFileName: string; UseRegistry: Boolean): Boolean;


procedure OnLoginDialog(Database: TDatabase; LoginParams: TStrings; AttemptNumber: Integer; ShowDBName: Boolean);

LoginDialog

function UnlockDialog(const UserName: string; OnUnlock: TCheckUnlockEvent): Boolean;


Types


TCheckUnlockEvent = function(const Password: string): Boolean of Object

TCheckUserNameEvent = function(UsersTable: TTable;
    const UserName, Password: string): Boolean of object

TDialogMode = (dmAppLogin, dmDBLogin, dmUnlock);

Constants


Variables