unit1.pas

利用Acess数据库

unit Unit1;

interface

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

type
  TLogin = class(TForm)
    GroupBox1: TGroupBox;
    label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    pwTable1: TTable;
    logTable: TTable;
    BitBtn3: TBitBtn;
    Database1: TDatabase;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   logname:string;
   Right:integer;
   password:string;
     { Public declarations }
  end;

var
  Login: TLogin;

implementation
uses
unit2;
{$R *.DFM}


procedure TLogin.BitBtn1Click(Sender: TObject);
var
  flag:boolean;//pass signal

begin
  flag:=false;
  right:=combobox1.ItemIndex;
  logname:=edit1.Text;
  password:=edit2.Text;
  pwtable1.Open;
  pwtable1.First;
  while not login.pwTable1.Eof do
  begin
    if (logname=pwtable1.Fields[0].AsString) and (password=pwtable1.Fields[1].AsString)
    and (right=pwtable1.Fields[2].AsInteger) then
    flag:=true;
    pwtable1.Next;
  end;
  if flag then
    begin
    normal.Show;
    logtable.Open;
    logtable.AppendRecord([logname,right,datetimetostr(now)]);
    logtable.Close;
    edit2.Text:='';
    if right=0 then
    begin
    normal.N9.Enabled:=true;//设定normal的权限
    normal.N10.Enabled:=true;
    normal.BitBtn9.Enabled:=true;
    normal.BitBtn10.Enabled:=true;
    end;
    if right=1 then
    begin
     normal.N9.Enabled:=true;
     normal.N10.Enabled:=false;
     normal.BitBtn9.Enabled:=true;
    normal.BitBtn10.Enabled:=true;
     end;
    if right=2 then
    begin
      normal.N9.Enabled:=false;
      normal.N10.Enabled:=false;
      normal.BitBtn9.Enabled:=false;
    normal.BitBtn10.Enabled:=false;
    end;
    //login.free;
    end
  else
    showmessage('输入错误，请重输！');
end;

procedure TLogin.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=Vk_return then
     bitbtn1.SetFocus;
end;

procedure TLogin.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TLogin.FormCreate(Sender: TObject);
begin
  Database1.Connected:=false;
  Database1.Params.Add('DATABASE NAME=\\server\系统软件\71.mdb');
  Database1.Connected:=true;
  logtable.Open;
  pwtable1.Open;
end;

end.