Question

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

我想做一个提示，一开始如果查到某个表里某个字段为1，即adoquery.recordcount>0则弹出Messagebox显示第一条记录，里面包括表里的三个字段。如果点击Yes则退出，点击NO则需要再显示第二条记录，程序可以运行，点击是也能正常显示，但我每次到点击否的时候不能通过，不知道是不是adoquery不能这样操作呢？还是其他问题呢？
if adoquery.RecordCount>0 then
begin
for i:=1 to adoquery.RecordCount-1 do
begin
ID[i]:=adoquery.FieldByName('id').AsString;//ID[i]已经定义数组型的
Name[i]:=adoquery.fieldbyname('name').AsString;
Address[i]:=adoquery.fieldbyname('address').AsString;
if MessageBox(Handle,Pchar(id[i]+name[i]+address[i]),'生产排程更新',MB_YESNO)=idyes then
begin
Exit;
end
else
begin
Continue ;//不知道这个Continue用在这里合适吗
end;
end;
(程序其他的我就不写了。)

Answer 1

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;
//另外，两个建议，建议代码要缩进写，设计的时候，最好先画个流程图，理清思路，仅供参考。

追问

只能显示前面二条记录，不过这个方法不错，其他记录用一个循环应该可以搞定。。。。。受教了，谢谢。

Answer 2

if MessageBox(Handle,Pchar(id[i]+name[i]+address[i]),'生产排程更新',MB_YESNO)=idyes then
begin
Exit;
end
else
begin
Continue ;//不知道这个Continue用在这里合适吗
end;
改成，
if MessageBox(Handle,Pchar(id[i]+name[i]+address[i]),'生产排程更新',MB_YESNO)=idyes then
break;退出for循环
id[i],有啥意义，不如用id