unit1.~pas

数据库编程 人事档案管理

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    Database1: TDatabase;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   i:integer;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
username,password:string;
begin
i:=i+1;
  table1.Open ;
  username:=edit1.Text ;
  password:=edit2.Text ;
  if password=table1.Lookup('username',username,'password') then
  begin
  showmessage('密码正确，进入人事管理系统');
  form1.Hide ;
  form2.ShowModal ;
  end
  else
     begin
     showmessage('用户名或密码错误，重新输入');
     edit1.Text :='';
     edit2.Text :='';
     edit1.SetFocus ;
     if i>3 then
     begin
     showmessage('无权使用，退出系统');
     close;
     end;
     end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.