关于DBGRID和系统时间的问题，请各位帮忙！！！！！！！！

[elimago]

我用一个DBGRID通过ADOQUERY去查询，查询回来一些数据，然后我退出这个界面，但我没退出主程序，然后我再从主程序进这个查询界面，结果DBGRID里还保存着刚才查询的结果，我希望DBGRID里为空在我每次进入这个查询界面的时候，不管我有没有退出主程序，该怎么办？请给出程序。

我想取当前系统的日期并显示在一个edit里，该怎么写？请给程序。

谢谢。

[lvloj]

在查询界面OnShow的时候：
DBGrid.DataSource.DataSet.Close;

[colacoca]

2.
Edit1.Text:=DateToStr(Date);

[elimago]

moj，大哥你的办法不灵呀。

[linx88]

procedure tform1.formshow(.....);
begin
query1.close;
//关闭连接
end;

[madyak]

form1为所要关闭的窗体!
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQUERY.Close
end;

[madyak]

以上错了!
form1为所要关闭的窗体!
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOQUERY.Close
end;

[elimago]

也不行，你们别忘了，这谢查询数据是在内存里，对数据库的各种操作没用的

[madyak]

以上错了!
form1为所要关闭的窗体!
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOQUERY.Close
end;

[shengs]

ADOQUERY1.active:=false;
dbgrid1.refresh;

edit1.text:=datetostr(date);

[Ricecom]

edit1.text:=datatostr(now);

[Ricecom]

edit1.text:=datetostr(now);

[elimago]

我觉得我现在处理的问题是内存中的问题，以上各位的方法基本是对数据库的方法，我觉得应该是有什么方法能把DBGRID里的内容，即已经通过查询读到内存的内容清空，就是说把DBGRID里的内容在内存中占的那部分内存空间释放掉，就行了。

你们看呢？

[lxpbuaa]

建议这样：

procedure TForm1.FormShow(Sender: TObject);begin
DBGrid1.DataSource := NIl;
end;

[elimago]

这是什么意思？

[delphi0302]

就是dbgrid没有连datasource

[elimago]

那用DBGRID。CLOSE；不就行了？