DELPHI的 CHECKBOX的多选查询—————求指教—————标题要长才行啊

[shinjixyj]

大神指点迷津吧

[shinjixyj]

不会啊

[shinjixyj]

大神快来啊

[ZyxIp]

这就是拼SQL语句字符串啊. var sql:String; where:String; begin sql:='select * from tablename where '; if checkbox1.check then where:='field1='+输入的值1 if checkbox2.check then where:='field2='+输入的值2 sql:='select * from tablename where '+where; 开始查询 end; end;

[shinjixyj]

引用 3 楼 ZyxIp 的回复:

这就是拼SQL语句字符串啊. var sql:String; where:String; begin sql:='select * from tablename where '; if checkbox1.check then where:='field1='+输入的值1 if checkbox2.check then ……

没有输入值额 单选或多选checkbox后点确定求查询的

[shinjixyj]

引用 6 楼 sz_haitao 的回复:

Tchecklistbox更灵活

要求用checkbox 么办法

[ZyxIp]

就是通用 多选框来进行列选择, 也一样啊.只不是修改的 Select var list:tstringlist; begin if checkbox1.check then list.add(列1); if checkbox2.check then list.add(列2); if checkbox3.check then list.add(列3); sql:='Select '+list.DelimitedText +' from *******'; 查询这个SQL就可以了. 所做的就是根据条件拼字符串而已.

[haitao]

Tchecklistbox更灵活

[shinjixyj]

引用 5 楼 ZyxIp 的回复:

就是通用 多选框来进行列选择, 也一样啊.只不是修改的 Select var list:tstringlist; begin list:=tstringlist.create; if checkbox1.check then list.add(列1); if checkbox2.check then list.add(列2); if checkbox3.check th……

小弟初学 看看我这么些对吗 var sql,list:tstringlist; begin if checkbox1.check then list.add('列1'); if checkbox2.check then list.add('列2'); if checkbox3.check then list.add('列3'); sql:='Select '+list.这里不能产生DelimitedText +' from *******';

[shinjixyj]

引用 5 楼 ZyxIp 的回复:

就是通用 多选框来进行列选择, 也一样啊.只不是修改的 Select var list:tstringlist; begin if checkbox1.check then list.add(列1); if checkbox2.check then list.add(列2); if checkbox3.check th……

说是类型不兼容错误

[ZyxIp]

拼完字符串后用 showmessage(sql) 将你拼好的语句显示出来，你看一下对不对，缺少啥。