Class TdlgMabPassword (unit MabPWDlg)

Inherits from

TForm

Constructors


constructor Create(AOwner: TComponent; AUserTable: TTable; AUserField, APasswordField: string);

Public declarations


Functions

procedure btnOkClick(Sender: TObject);


function Execute: Boolean;


procedure SetButtonStyle(AButtonStyle: TButtonStyle);


procedure SetPasswordEdit(APasswordEdit: TMabPasswordEdit);


Properties

property ButtonStyle : TButtonStyle


property PasswordEdit : TMabPasswordEdit


Events

Variables

btnCancel : TBitBtn;


btnOk : TBitBtn;


edtPassword : TEdit;


grpMain : TGroupBox;


imgPassword : TImage;


lblPassword : TLabel;


lblUsername : TLabel;


srcUser : TDataSource;


txtUser : TDBText;


PasswordField : string;


UserField : string;

Private declarations


Constructors


constructor Create(AOwner: TComponent; AUserTable: TTable; AUserField, APasswordField: string);

Public declarations


Functions


procedure btnOkClick(Sender: TObject);


function Execute: Boolean;


procedure SetButtonStyle(AButtonStyle: TButtonStyle);


procedure SetPasswordEdit(APasswordEdit: TMabPasswordEdit);


Properties


property ButtonStyle : TButtonStyle


property PasswordEdit : TMabPasswordEdit


Events


Variables


btnCancel : TBitBtn;


btnOk : TBitBtn;


edtPassword : TEdit;


grpMain : TGroupBox;


imgPassword : TImage;


lblPassword : TLabel;


lblUsername : TLabel;


srcUser : TDataSource;


txtUser : TDBText;


PasswordField : string;


UserField : string;

Private declarations