login.pas

有需要的同仁载回去慢慢研究

unit Login;

interface

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

type
  TLoginForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    YesButton: TBitBtn;
    CancelButton: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure YesButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  entertime : integer;
  LoginForm: TLoginForm;

implementation

uses Main;


{$R *.dfm}

procedure TLoginForm.FormCreate(Sender: TObject);
begin
  entertime:=0;
end;

procedure TLoginForm.YesButtonClick(Sender: TObject);
var
  PWFile: TextFile;
  Possword : string;
begin
  AssignFile(PWFile,'config.sys');            
  Reset(PWFile);
  Readln(PWFile,Possword);
  CloseFile(PWFile);

  inc(entertime);
  if Edit1.Text=Possword then     //password
    Close
  else
  begin
    Label1.Caption:='密码输入错误，请重新输入：';
    if entertime>=3 then
    begin
      MessageBox(Handle,'输入密码错误超过三次，程序退出！','信息',MB_OK);
      Close;
      Application.Terminate;
    end else
    begin
      Edit1.Text:='';
      Edit1.SetFocus;
    end;
  end;
end;

procedure TLoginForm.CancelButtonClick(Sender: TObject);
begin
  Close;
  Application.Terminate;
end;

end.