在三层中,如何过滤出数据表中的某条信息?
我想在登陆时,借用户名把这个用户的信息从数据表中过滤出来,然后判断这个用户的权限,再选择进入哪个菜单,我用了以下程序,可是不好使,不知道哪位高手有好办法?小女子先谢谢了!
走到第一句就有错误
procedure TfrmLogin.BtnLogClick(Sender: TObject);
begin
datamodule1.CDSBaseUser.Filter:='NAME='''+edit1.Text+''''; //根据输入的用户名设置过滤器
datamodule1.CDSBaseUser.Filtered:=true; //激活过滤器
datamodule1.CDSBaseUser.Open; //获取用户信息
if datamodule1.CDSBaseUser.recordcount=1 then //判断用户名是否存在
begin
if datamodule1.CDSBaseUser['PASSWORD']=edit2.text then
begin
if datamodule1.CDSBaseUser['LIMIT']='¹管理员' then
begin
frmlogin.hide;
frmmain.Show;
end
else
MessageDlg(‘用户权限错误¡',mtconfirmation, [mbOK], 0);
Abort;
end
else
MessageDlg(’密码不匹配¡',mtconfirmation, [mbOK], 0);
Abort;
end
else
MessageDlg(‘检查用户名是否存在¡',mtconfirmation, [mbOK], 0);
Abort;
end;