checkuser.pas

一个DELPHI的人事管理系统,具有一般人事管理系统的基本功能

unit checkuser;

interface

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

type
  TCheckUserForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CheckUserForm: TCheckUserForm;
  i:Integer;
implementation
 uses
  main;
{$R *.dfm}

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

procedure TCheckUserForm.BitBtn1Click(Sender: TObject);
var
  table1:TTable;
begin
   table1:=TTable.Create(self);
   Table1.DatabaseName:='rsgl';
   Table1.TableName:='operator.db';
   Table1.Open;
   Table1.SetKey;
   table1.FieldByName('name').asstring:=edit1.text;
   if (Table1.GoTokey) and (Table1.FieldByName('password').AsString=edit2.text) then
   begin
        username:=edit1.text;
        password:=edit2.text;
        qx1:=Table1.fieldByName('right_1').asboolean;
        qx2:=Table1.fieldByName('right_2').asboolean;
        qx3:=Table1.fieldByName('right_3').asboolean;
        Table1.Close;
        close;
   end
   else
   begin
      Table1.Close;
      Application.MessageBox('用户名或密码输入错误，请检查再重试！','提示信息',mb_ok);
      edit1.text:='';
      edit2.Text:='';
      edit1.SetFocus;
      i:=i-1;
      if i=0 then
         close;
  end
end;

procedure TCheckUserForm.FormActivate(Sender: TObject);
begin
    i:=3;
    edit1.text:='';
    edit2.text:='';
end;

end.