unit1.pas

用户可选择不同权限进入系统。当以管理员权限进入系统时

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    RadioGroup1: TRadioGroup;
    ADOQuery2: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

uses Unit6, Unit4, Unit2;



{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
 userid,password,temp:string;
 begin
 if edit1.text='' then
 begin
 MessageBox(0,'帐号不能为空,请务必输入帐号','警告',MB_ICONEXCLAMATION);
 end
 else
 if Edit2.Text=''then
 begin
 MessageBox(0,'密码不能为空,请务必输入密码','警告',MB_ICONEXCLAMATION);
 end
 else
 if radiogroup1.ItemIndex=1 then
 begin
 userid:=edit1.Text;
 password:=edit2.Text;
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='select 用户ID from login where 用户ID='+userid+'and 用户密码='+password+'';
 Adoquery1.Open;
 temp:=adoquery1.FieldByName('用户ID').AsString;
  if temp<>'' then
  begin
  form2.show;
  form1.Hide;
  end
  else
  begin
  MessageBOX(0,'帐号或密码错误,请确认后重新输入','警告', 48);
  end
  end
  else
  if radiogroup1.ItemIndex=0 then
 begin
 userid:=edit1.Text;
 password:=edit2.Text;
 ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Text:='select 用户ID from login2 where 用户ID='+userid+'and 用户密码='+password+'';
 Adoquery2.Open;
 temp:=adoquery2.FieldByName('用户ID').AsString;
  if temp<>''then
  begin

  form6.show;
  form1.Hide;
  end
  else
  begin
  MessageBOX(0,'帐号或密码错误,请确认后重新输入','警告', 48);
  end
  end

end;


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




procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //判断是否是按下回车键
button1.Click;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //判断是否是按下回车键
button1.Click;

end;

end.