怎么数据不会刷新

Question

代码如下：
  ADOQuery1.Active := false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select * from prodinfo';
  ADOQuery1.Open;
  ADOQuery1.Active := true;为什么每次打开窗体数据不会刷新？而要关闭再重新打开才能看到新数据

Answer 1

procedure Tprodgrid.FormCreate(Sender: TObject);
begin
  ADOQuery1.Active := false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select * from prodinfo';
  ADOQuery1.Open;
  ADOQuery1.Active := true;
end;我是这样写的。