login.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit login;

interface

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

type
  TForm5 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Query1: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    PassTime:Byte;
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Main;

{$R *.dfm}

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

procedure TForm5.BitBtn1Click(Sender: TObject);
var
  asql:string;
begin
   inc(PassTime);
   query1.Close;
   asql:='select * from pass.db where mima='''+edit1.text+'''';
   query1.sql.text:=asql;
   query1.Open;
   if (query1.RecordCount>0) and (edit1.Text <> '') then
  begin
    MainFrm.Logined:=True;
    MainFrm.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 TForm5.FormCreate(Sender: TObject);
begin
  Session.AddPassword('12345');
  query1.Active := True;
  PassTime:=0;
end;

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if  key=chr(13) then
    begin
      key:=chr(0);
      BitBtn1.Click;
    end;
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Session.RemoveAllPasswords;
  query1.Active:=False;
  Action := CaFree;
end;

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in shift)and(key=115) then
  application.Terminate;
end;

end.