Class TRxLoginForm (unit LoginDlg)

Inherits from

TForm

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;



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;