login.pas

一个很好的勤工助学管理系统

unit login;

interface

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

type
  Tfrm_login = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    PassTime:Byte;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

uses main, data;

{$R *.DFM}

procedure Tfrm_login.BitBtn2Click(Sender: TObject);
begin
  Close;
  Application.Terminate;
end;

procedure Tfrm_login.BitBtn1Click(Sender: TObject);
begin
  inc(PassTime);
  if Edit1.Text=MyPass then
  begin
    frm_main.Logined:=True;
    frm_main.WindowState:=wsMaximized;
    Close;
  end else
  begin
    Label1.Caption:=Format('密码错误第%d次，请重新输入：',[PassTime]);
    if PassTime>=3 then
    begin
//      MessageBox(Handle,'连续输入错误密码超过3次，程序退出！','信息',MB_OK);
      BitBtn2Click(Sender);
    end else
    begin
      Edit1.Text:='';
      Edit1.SetFocus;
    end;
  end;
end;

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
  PassTime:=0;
end;

end.