Question

delphi中什么能实现ADOQuery数据更新，及时显示在label上

Answer 1

没办法检测，只能用timer来不断的刷新。

追问

那 怎么用timer刷新呢

追答

在form 上放一个Timer 双击产生一个事件,把Timer的中断值设为1000*N，N为秒。。

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if adoquery1.Active then adoquery1.Close;
   begin
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:='select * from table';
     Adoquery1.Prepared;
     adoquery1.Open;
   end;
   Label1.Caption:=Adoquery1.Fields[0].Value; //此处需要进行类型转换;
end;