在delphi7中我想实现具有多个相同属性的查询，应该怎么写代码？这是我写的代码，不过选出来的是或的关系！我的代码如下：

Question

procedure TForm19.Button1Click(Sender: TObject);
var
i:integer;
str1,str2,str3,sqlstr:string;
begin
str2:='';
for i:=0 to GroupBox1.ControlCount-1 do
  begin
    if GroupBox1.Controls[i] is TCheckBox then
      begin
      if TCheckBox(GroupBox1.Controls[i]).Checked then
      begin
        str1:=str1+TCheckBox(GroupBox1.Controls[i]).Caption;
      end;
      end;
      if str1<>'' then
      begin
      str2:=str2+'(select '+str1+' from 书籍信息维护 group by '+str1+' having count('+str1+')>1)union';
      str1:='';
      end;
    end;
    str3:=copy(str2,1,length(str2)-5);
    for i:=0 to GroupBox1.ControlCount-1 do
  begin
    if GroupBox1.Controls[i] is TCheckBox then
      begin
      if TCheckBox(GroupBox1.Controls[i]).Checked then
      begin
        str1:=str1+TCheckBox(GroupBox1.Controls[i]).Caption;
      end;
      end;
      if str1<>'' then
      begin
      break;
      end;
    end;      close;
      form10.adoquery1.SQL.Clear;
      sqlstr:='select * from 书籍信息维护 where '+str1+' in ('+str3+')';
      form10.adoquery1.SQL.Add(sqlstr);
      form10.adoquery1.Open;
end;从这个表中选择属性的。忘大神给指导指导！

Answer 1

你的GroupBox容器中，包含了什么组件？

Answer 2

设断点，看看sqlstr的值是多少，这样你就变成去分析SQL语句，就知道哪里出问题，看你写法，SQL水平应该蛮差的。