loginunit.pas

一个小的成绩信息管理系统

unit LoginUnit;

interface

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

type
  TloginForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginForm: TloginForm;

implementation
 uses
   mainunit;
{$R *.dfm}

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

procedure TloginForm.Button1Click(Sender: TObject);
var
  userid:string;
  i,j:integer;
begin
   //身份认证-------------------------------------
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select userid from Users where acount= '''+trim(edit1.Text)+''' and password='''+edit2.Text+''' ');
   adoquery1.open;

  userid:=trim(adoquery1.Fields[0].asstring);
  if userid<>'' then  //身份验证通过后进行权限的控制；
     begin
       //初始化菜单（所有菜单都是不可见）
       for i:=0 to mainForm.mainmenu1.Items.Count-1 do
          for j:=0 to mainform.mainmenu1.Items[i].Count-1 do
              mainForm.mainmenu1.Items[i].Items[j].Enabled:=false;

       //从数据库中查询回该用户的权限（菜单名）
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select a.aname from access a join [u-a] b on a.aid=b.aid where b.userid='''+userid+''' ');
       adoquery1.open;
       //开始判断和控制
       while not adoquery1.Eof do
          begin
            for i:=0 to mainForm.mainmenu1.Items.Count-1 do
                for j:=0 to mainform.mainmenu1.Items[i].Count-1 do
                    begin
                      if  mainform.mainmenu1.Items[i].Items[j].Caption=trim(adoquery1.fields[0].AsString) then
                          begin
                            mainForm.mainmenu1.Items[i].Items[j].Enabled:=true;
                            break;
                          end;
                    end;
            adoquery1.Next;
          end;
       modalresult:=mrok;
     end;
end;

end.