如图
delphi中要实现勾上checkbox前面的勾，就能查询到数据库中数据，在DBGRID中显示
已经有部分代码但运行不出
var sqlstr:string;
begin
sqlstr :='select * from spjy';
with adoquery1 do
begin
close;
sql.Clear;
adoquery1.SQL.Add('select * from spjy where spbh <>''');
if checkbox1.Checked or checkbox2.Checked or checkbox3.Checked or checkbox4.Checked then
sqlstr := sqlstr+'where';
if checkbox1.Checked then
begin
sqlstr := sqlstr +'spbh like'+'''%'+checkbox1.Caption+'%''' ;
checkbox1.Checked := false;
end;
if checkbox2.Checked then
begin
if checkbox1.Checked then
sqlstr := sqlstr +'and';
sqlstr :=sqlstr + 'select * from spjy where spmc =''';
checkbox1.Checked :=false;
end;
if checkbox3.Checked then
begin
if checkbox1.Checked then
sqlstr :=sqlstr +'and';
sqlstr :=sqlstr + 'select * from spjy where jhrq =''';
checkbox1.Checked :=false;
end;
if checkbox4.Checked then
begin
if checkbox1.Checked then
sqlstr :=sqlstr +'and';
sqlstr :=sqlstr +'select * from spjy where spgysh =''';
checkbox1.Checked :=false;
end;
Execsql;
end;
希望各位前辈看看

要去掉最后一个逗号。最好加上在四个复选框都没选时，用*来代替的功能

求把完成品发给我，我也在做这个；[email protected]

换要求了

太湖学院

用filter吧，比较快速。

adoquery1.filter := ‘spname like ''李%''’;
adoquery1.filted := true;

查询语句后面应该是open;execsql是在操作数据的时候用的，例如insert, delete,update等……