| Class TChPswdForm (unit ChPswDlg) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
procedure PswdChange(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
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;
LoginName : string;
OnChangePassword : TChangePasswordEvent;
UserNameField : string;
UsersTableName : string;
FAttempt : Integer;
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;