Question

（Delphi7 我想用Timer控件让10条数据在label循环出现）

数据库里的数据改变了，怎么及时在程序上刷新显示出来呢

Answer 1

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;

Answer 2

只有用定时器进行检测了。