project1.dpr

来自「DELPHI经典程序」· DPR 代码 · 共 53 行

program Project1;

uses
  Forms,
  dblogdlg,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}
type
   TPassQu = Class
   public
    procedure OKButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
   end;

var
  LoginDialog1:TLoginDialog;
  PassQu:TPassQu;

  procedure TPassQu.OKButtonClick(Sender: TObject);
begin
  if ((LoginDialog1.UserName.Text='CYH') and (LoginDialog1.Password.Text='123'))then
   begin
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Form1.Show;
    LoginDialog1.Hide;
    PassQu.Free;
   end 
  else
   begin
    ShowMessage('账号或密码有错误！'+#13
                  +'请注意大小写！'+#13);
    LoginDialog1.UserName.Text:='';
    LoginDialog1.Password.Text:='';
   end;
end;
procedure TPassQu.CancelButtonClick(Sender: TObject);
begin 
  ShowMessage('你已放弃执行程序！');
  Application.Terminate;
end;
begin
  PassQu:=TPassQu.Create;
  Application.Initialize;
  Application.CreateForm(TLoginDialog,LoginDialog1);
  LoginDialog1.CancelButton.OnClick:= PassQu.CancelButtonClick;
  LoginDialog1.OKButton.OnClick := PassQu.OKButtonClick ;
  Application.Run;
end.