一点小问题------初学者问
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;
这是程序中的一块,执行之后系统出现异常,为什么会这样,怎么解决,问题就是出在这段程序中,谢谢
问题点数：100、回复次数：12Top
1 楼zdyrain（雨）回复于 2005-03-03 17:38:49 得分 0
出现什么样的错误信息阿???贴出来看看先Top
2 楼zzlazio（sritsb）回复于 2005-03-03 17:42:34 得分 20
sql.Add('select * from 登陆 where 用户名 LIKE ''%'+s+'%''');Top
3 楼cdsgajxlp（起名很难）回复于 2005-03-03 17:51:07 得分 5
sql.Add('select * from 登陆 where 用户名 like '''+s+'''');
Top
4 楼cdsgajxlp（起名很难）回复于 2005-03-03 17:51:39 得分 0
最好贴出错误信息Top
5 楼zdyrain（雨）回复于 2005-03-03 17:53:51 得分 5
sql 语句错误那是明显的,呵呵Top
6 楼qbl007（）回复于 2005-03-03 18:06:35 得分 5
好好检查你的SQL语句,特别是该加空格的地方没加Top
7 楼78hgdong（赤脚）回复于 2005-03-03 19:13:18 得分 5
用户名like-->用户名 LIKETop
8 楼smiler007（笑一笑）回复于 2005-03-03 19:19:41 得分 20
楼上说得对，用户名和Like之间没有空格，也没写%
zzlazio(sritsb) 的写法是正确的Top
9 楼lym2003（阿懋）回复于 2005-03-03 20:41:45 得分 20
'select * from 登陆 where 用户名 LIKE ''%' + s + '%'''Top
10 楼qq153788616（啊灌）回复于 2005-03-03 22:11:05 得分 0
up
Top
11 楼daydayup2004（天天向上）回复于 2005-03-03 22:21:36 得分 20
用户与Like之间要空格！不知我说的对不对，可以试一下。共同学习＾＿＾Top
12 楼lanwairen（www246）回复于 2005-03-04 07:57:50 得分 0
谢谢大家,已经解决了,是我输入错误,谢谢Top
