用户登陆验证的问题！

Question

用户表中有id和passwd字段，并有多个用户放入表中，而且有些用户有一些特定的权限。在登陆时怎么判断啊，用一些常规的数据集应该怎么写啊？我写了些总是出现错误，请教了！最好是能用ado的，在此先谢了！！

Answer 1

if 权限＝1 then
  begin
  ....
  end
  else if 权限＝2 then
     begin
       ....
     end
     else if 权限＝3 then
          begin
            ....
          end
          else if 权限＝4 then
              ....

Answer 2

procedure TloginForm.Button1Click(Sender: TObject);
var
  flag:boolean;
begin
  flag:=false;
  logname:= edit1.Text;
  pwd:= edit2.Text;
  right:=combobox1.ItemIndex;
       DataModuleAdo.ADOTable1.Connection:=DataModuleAdo.ADOConnection1;
       DataModuleAdo.ADOTable1.TableName:='rgt';//  我用的表是ACCESS，表名是rgt
       DataModuleAdo.ADOTable1.Open;
       DataModuleAdo.ADOTable1.First;
       while not DataModuleAdo.ADOTable1.Eof do
       begin
           if (logname=DataModuleAdo.ADOTable1.Fields[0].AsString) and
               (pwd=DataModuleAdo.ADOTable1.Fields[1].AsString) and
               (right=DataModuleAdo.ADOTable1.Fields[2].AsInteger) then
               flag:=true;
               DataModuleAdo.ADOTable1.Next;
       end;
       if flag then
       begin
           mainform.Show;
           DataModuleAdo.ADOTable1.Open;
           if right=0 then
           begin
               mainform.BitBtn1.Enabled:=true;
               mainform.BitBtn2.Enabled:=true;
               mainform.BitBtn3.Enabled:=true;
               mainform.BitBtn5.Enabled:=true;
               mainform.BitBtn6.Enabled:=true;
               mainform.BitBtn7.Enabled:=true;
           end;
           if right=1 then
           begin
           mainform.BitBtn1.Enabled:=false;
           mainform.BitBtn2.Enabled:=false;
           mainform.BitBtn3.Enabled:=false;
           mainform.BitBtn5.Enabled:=true;
           mainform.BitBtn6.Enabled:=true;
           mainform.BitBtn7.Enabled:=true;
           end;
       end else
       showmessage('输入错误，请重输！');
end;

Answer 3

把权限字段的数据读出，付给一个全局变量
需要判断权限时，就判断一下，符合就可以进行，否则就不能执行
在asp里常用的