Question

delphi checkbox用法

if checkbox1.Checked=true then
str:=checkbox1.Caption;
if checkbox2.Checked=true then
str:=str+''+checkbox2.Caption;
if checkbox3.Checked=true then
str:=str+''+checkbox3.Caption;
AdoDataset1.close;
Adodataset1.comandtext:=select * from table1 where 名称=？？
AdoDataset1.openAdoDataset1.close;

如何能选取对应所有三个内容的数据

Answer 1

if checkbox1.Checked=true then
str:=''''+checkbox1.Caption+'''';
if checkbox2.Checked=true then
str:=str+','''+checkbox2.Caption+'''';
if checkbox3.Checked=true then
str:=str+','''+checkbox3.Caption+'''';
AdoDataset1.close;
Adodataset1.comandtext:='select * from table1 where 名称 in ('+str+')';
//类似于这样的sql语句 select * from table1 where 名称 in('国美','苏宁','京东商城')
AdoDataset1.openAdoDataset1.close;