Class TdlgMabChgPasswd (unit Mabcpdlg)

Inherits from

TForm

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


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