PassWordFrm.pas
上传用户:jiansibo
上传日期:2015-07-04
资源大小:524k
文件大小:1k
源码类别:

破解

开发平台:

Delphi

  1. unit PassWordFrm;
  2. interface
  3. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  4.   Buttons,types;
  5. type
  6.   TPasswordDlg = class(TForm)
  7.     Label1: TLabel;
  8.     Password: TEdit;
  9.     OKBtn: TButton;
  10.     CancelBtn: TButton;
  11.     procedure OKBtnClick(Sender: TObject);
  12.     procedure FormShow(Sender: TObject);
  13.     procedure CancelBtnClick(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;
  19. var
  20.   PasswordDlg: TPasswordDlg;
  21. implementation
  22. uses
  23.  Mainfrm;
  24. {$R *.DFM}
  25. procedure TPasswordDlg.OKBtnClick(Sender: TObject);
  26. begin
  27.  if password.Text=AppOption.password then
  28.   begin
  29.    self.Visible:=false;
  30.    GQPFRM.Visible:=true;
  31.   end
  32.  else
  33.     self.Visible:=false;
  34. end;
  35. procedure TPasswordDlg.FormShow(Sender: TObject);
  36. begin
  37.   password.Text:='';
  38.   password.SetFocus;
  39. end;
  40. procedure TPasswordDlg.CancelBtnClick(Sender: TObject);
  41. begin
  42.  self.Visible:=false;
  43. end;
  44. end.