Class TdlgMabLogin (unit MabLIDlg)

Inherits from

TForm

Constructors


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

Public declarations


Functions

procedure btnOkClick(Sender: TObject);


function Execute: Boolean;


procedure SetButtonStyle(AButtonStyle: TButtonStyle);


procedure SetPasswordEdit(APasswordEdit: TMabPasswordEdit);


procedure SetUserEdit(AUserEdit: TMabEdit);


Properties

property ButtonStyle : TButtonStyle


property PasswordEdit : TMabPasswordEdit


property UserEdit : TMabEdit


Events

Variables

btnCancel : TBitBtn;


btnOk : TBitBtn;


edtPassword : TEdit;


edtUser : TEdit;


grpMain : TGroupBox;


lblPassword : TLabel;


lblUser : TLabel;


srcUser : TDataSource;


PasswordField : string;


UserTable : TTable;

Private declarations


Constructors


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

Public declarations


Functions


procedure btnOkClick(Sender: TObject);


function Execute: Boolean;


procedure SetButtonStyle(AButtonStyle: TButtonStyle);


procedure SetPasswordEdit(APasswordEdit: TMabPasswordEdit);


procedure SetUserEdit(AUserEdit: TMabEdit);


Properties


property ButtonStyle : TButtonStyle


property PasswordEdit : TMabPasswordEdit


property UserEdit : TMabEdit


Events


Variables


btnCancel : TBitBtn;


btnOk : TBitBtn;


edtPassword : TEdit;


edtUser : TEdit;


grpMain : TGroupBox;


lblPassword : TLabel;


lblUser : TLabel;


srcUser : TDataSource;


PasswordField : string;


UserTable : TTable;

Private declarations