PassWordFrm.pas
上传用户:jiansibo
上传日期:2015-07-04
资源大小:524k
文件大小:1k
- unit PassWordFrm;
- interface
- uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
- Buttons,types;
- type
- TPasswordDlg = class(TForm)
- Label1: TLabel;
- Password: TEdit;
- OKBtn: TButton;
- CancelBtn: TButton;
- procedure OKBtnClick(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure CancelBtnClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- PasswordDlg: TPasswordDlg;
- implementation
- uses
- Mainfrm;
- {$R *.DFM}
- procedure TPasswordDlg.OKBtnClick(Sender: TObject);
- begin
- if password.Text=AppOption.password then
- begin
- self.Visible:=false;
- GQPFRM.Visible:=true;
- end
- else
- self.Visible:=false;
- end;
- procedure TPasswordDlg.FormShow(Sender: TObject);
- begin
- password.Text:='';
- password.SetFocus;
- end;
- procedure TPasswordDlg.CancelBtnClick(Sender: TObject);
- begin
- self.Visible:=false;
- end;
- end.