| Class TdlgMabChgPasswd (unit Mabcpdlg) |
TForm
| Constructors |
constructor Create(AOwner: TComponent; ADataSet: TDataSet;
APasswordField: string);| Functions |
procedure btnOkClick(Sender: TObject);
function Execute: Boolean;
procedure SetButtonStyle(AButtonStyle: TButtonStyle);
procedure SetOldPasswordEdit(AOldPasswordEdit: TMabPasswordEdit);
procedure SetPasswordEdit(APasswordEdit: TMabPasswordEdit);
procedure SetVerifyEdit(AVerifyEdit: TMabPasswordEdit);| Properties |
property ButtonStyle : TButtonStyle
property OldPasswordEdit : TMabPasswordEdit
property PasswordEdit : TMabPasswordEdit
property VerifyEdit : TMabPasswordEdit| Events |
| Variables |
btnCancel : TBitBtn;
btnOk : TBitBtn;
edtOldPassword : TEdit;
edtPassword : TEdit;
edtVerify : TEdit;
grpMain : TGroupBox;
lblOldPassword : TLabel;
lblPassword : TLabel;
lblVerify : TLabel;
srcUser : TDataSource;
PasswordField : string;| Constructors |
constructor Create(AOwner: TComponent; ADataSet: TDataSet;
APasswordField: string);Public declarations
| Functions |
procedure btnOkClick(Sender: TObject);
function Execute: Boolean;
procedure SetButtonStyle(AButtonStyle: TButtonStyle);
procedure SetOldPasswordEdit(AOldPasswordEdit: TMabPasswordEdit);
procedure SetPasswordEdit(APasswordEdit: TMabPasswordEdit);
procedure SetVerifyEdit(AVerifyEdit: TMabPasswordEdit);| Properties |
property ButtonStyle : TButtonStyle
property OldPasswordEdit : TMabPasswordEdit
property PasswordEdit : TMabPasswordEdit
property VerifyEdit : TMabPasswordEdit| Events |
| Variables |
btnCancel : TBitBtn;
btnOk : TBitBtn;
edtOldPassword : TEdit;
edtPassword : TEdit;
edtVerify : TEdit;
grpMain : TGroupBox;
lblOldPassword : TLabel;
lblPassword : TLabel;
lblVerify : TLabel;
srcUser : TDataSource;
PasswordField : string;Private declarations