| Class TdlgMabLogin (unit MabLIDlg) |
TForm
| Constructors |
constructor Create(AOwner: TComponent; AUserTable: TTable;
APasswordField: string);| 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;| 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