这就是拼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;
没有输入值额 单选或多选checkbox后点确定求查询的
就是通用 多选框来进行列选择, 也一样啊.只不是修改的 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就可以了. 所做的就是根据条件拼字符串而已.
小弟初学 看看我这么些对吗 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 *******';
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;
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就可以了. 所做的就是根据条件拼字符串而已.
小弟初学 看看我这么些对吗
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 *******';
要求用checkbox 么办法