图片动态显示问题(50分)

procedure TDataModule1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
Id:=MainForm.DBGridEH1.Fields[0].AsString;
MainForm.DBPicShow1.Clear;
with PicADS do
begin
active:=false;
commandText:='select * from 图片信息表 where 学生编号=:stuid';
parameters.ParamByName('stuid').Value:=id;
active:=true;
end;
end;
不能实时更新图片可能是怎么回事？

放个定时器触发吧，可以试试……