Delphi中能否用Messagebox来逐个显示ADOquery的数据呢?

if
adoquery.RecordCount>0
then
begin
for
i:=0
to
adoquery.RecordCount-1
do
//这里不知道你有没有特殊要求，所以改成常规写法i:=0
begin
ID[i]:=adoquery.FieldByName('id').AsString;//ID[i]已经定义数组型的
Name[i]:=adoquery.fieldbyname('name').AsString;
Address[i]:=adoquery.fieldbyname('address').AsString;
adoquery.next;
end;//这里是为了保证先取完所有的数据，不然你显示什么？
if
MessageBox(Handle,Pchar(id[0]+name[0]+address[0]),'生产排程更新',MB_YESNO)=idyes
then
begin
Exit;
end
else
begin
MessageBox(Handle,Pchar(id[1]+name[1]+address[1]),'生产排程更新',MB_OK);
end;
end;
//另外，两个建议，建议代码要缩进写，设计的时候，最好先画个流程图，理清思路，仅供参考。

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。