unit1.pas

来自「delphi典型实验代码」· PAS 代码 · 共 69 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;
  var count:integer=3;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,code:integer;
begin
 val(edit1.Text,i,code);
 if code=0 then
    begin
         if edit2.text='abcdef' then
            begin
                 form1.Hide;
                
                 form2.showmodal;
                 form1.Close;
            end
         else
             begin
             count:=count-1;
             if count>0 then
                begin
                     showmessage('密码错误！');
                     edit2.SetFocus  ;
                end
             else   close;
             end
     end
   else begin showmessage('学号必须是数字');edit1.SetFocus; end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit1.SetFocus;
end;

end.