Class TChPswdForm (unit ChPswDlg)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure OkBtnClick(Sender: TObject);


procedure PswdChange(Sender: TObject);


procedure CreateParams(var Params: TCreateParams);

TChPswdForm

procedure ClearEdits;


procedure OkEnabled;


Properties

Events

Variables

CancelBtn : TButton;


ConfirmLabel : TLabel;


ConfirmNewPswd : TEdit;


NewPswd : TEdit;


NewPswdLabel : TLabel;


OkBtn : TButton;


OldPswd : TEdit;


OldPswdLabel : TLabel;


AttemptNumber : Integer;


Database : TDatabase;

Public declarations

LoginName : string;


OnChangePassword : TChangePasswordEvent;


UserNameField : string;


UsersTableName : string;


FAttempt : Integer;

Private declarations

FEnableEmpty : Boolean;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure OkBtnClick(Sender: TObject);


procedure PswdChange(Sender: TObject);


procedure CreateParams(var Params: TCreateParams);

TChPswdForm


procedure ClearEdits;


procedure OkEnabled;


Properties


Events


Variables


CancelBtn : TButton;


ConfirmLabel : TLabel;


ConfirmNewPswd : TEdit;


NewPswd : TEdit;


NewPswdLabel : TLabel;


OkBtn : TButton;


OldPswd : TEdit;


OldPswdLabel : TLabel;


AttemptNumber : Integer;


Database : TDatabase;

Public declarations


LoginName : string;


OnChangePassword : TChangePasswordEvent;


UserNameField : string;


UsersTableName : string;


FAttempt : Integer;

Private declarations


FEnableEmpty : Boolean;