| Class TRxLoginForm (unit LoginDlg) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
function CheckDatabaseChange: Boolean;
procedure FillParams(LoginParams: TStrings);
function GetUserName: string;
function CheckUnlock: Boolean;
function CheckUser(Table: TTable): Boolean;
function GetUserInfo: Boolean;
procedure Login(Database: TDatabase; LoginParams: TStrings);| Properties |
| Events |
| Variables |
AppIcon : TImage;
AppTitleLabel : TLabel;
CancelBtn : TButton;
HintLabel : TLabel;
KeyImage : TImage;
OkBtn : TButton;
PasswordEdit : TEdit;
PasswordLabel : TLabel;
UserNameEdit : TEdit;
UserNameLabel : TLabel;
AttemptNumber : Integer;
Database : TDatabase;
OnCheckUnlock : TCheckUnlockEvent;
OnCheckUser : TCheckUserNameEvent;
UserNameField : string;
UsersTableName : string;
FAttempt : Integer;
FIniFileName : string;
FMode : TDialogMode;
FUseRegistry : Boolean;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);TRxLoginForm
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
function CheckDatabaseChange: Boolean;
procedure FillParams(LoginParams: TStrings);
function GetUserName: string;
function CheckUnlock: Boolean;
function CheckUser(Table: TTable): Boolean;
function GetUserInfo: Boolean;
procedure Login(Database: TDatabase; LoginParams: TStrings);| Properties |
| Events |
| Variables |
AppIcon : TImage;
AppTitleLabel : TLabel;
CancelBtn : TButton;
HintLabel : TLabel;
KeyImage : TImage;
OkBtn : TButton;
PasswordEdit : TEdit;
PasswordLabel : TLabel;
UserNameEdit : TEdit;
UserNameLabel : TLabel;
AttemptNumber : Integer;
Database : TDatabase;Public declarations
OnCheckUnlock : TCheckUnlockEvent;
OnCheckUser : TCheckUserNameEvent;
UserNameField : string;
UsersTableName : string;
FAttempt : Integer;Private declarations
FIniFileName : string;
FMode : TDialogMode;
FUseRegistry : Boolean;