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;
從這個表中選擇屬性的。
忘大神給指導指導！
uj5u.com熱心網友回復：
你的GroupBox容器中，包含了什么組件？uj5u.com熱心網友回復：
設斷點，看看sqlstr的值是多少，這樣你就變成去分析SQL陳述句，就知道哪里出問題，看你寫法，SQL水平應該蠻差的。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/98902.html
標籤：數據庫相關