delphi中的DBGrid无法刷新数据

初学delphi,通过DBGrid显示数据表的记录,不知为何每次打开子窗体数据不会刷新?而要关闭整个程序再重新打开才能看到新数据
代码如下:
procedure Tprodgrid.FormCreate(Sender: TObject);
begin
  ADOQuery1.Active := false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select * from prodinfo';
  ADOQuery1.Open;
  ADOQuery1.Active := true;
end;

你可能感兴趣的:(Delphi)