出现一点问题----初学者问

Question

procedure Tmainfrm.FormShow(Sender: TObject);
var
  s:string;
begin
  s:=dlfrm.Edit1.Text;
  with dm.dengluADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 登陆 where 用户名like'''+s+'''');
    open;
    if recordcount>0 then
      begin
        if fields[2].AsString='标准用户' then
          mainfrm.N1.Enabled:=false
          else if fields[2].AsString='一般用户' then
            begin
              mainfrm.N1.Enabled:=false;
              mainfrm.N11.Enabled:=false;
              mainfrm.N13.Enabled:=false;
            end;
      end
      else
        showmessage('记录为空');
  end;
end;
这是程序中的一块,执行之后系统出现异常,为什么会这样,怎么解决,问题就是出在这段程序中,谢谢

Answer 1

sql.Add('select * from 登陆 where 用户名 LIKE ''%'+s+'%''');

Answer 2

少空格:('select * from 登陆 where 用户名 like '''+s+'''');