如何终止程序？

[jnxnasa]

我在主窗体的onshow中访问数据库，如得到结果集为空，则要终止整个程序，但为何终止不了，我试过application.teminate,halt,form1.ondestroy,self.free等，要就出错，要就不行。请问为什么？如何解决？

[路人丁]

我有个方法一定行，放一个时钟控件，程序终止语句写在它的ontimer中（close();）在onshow中把关闭代码改成Timer1->Enabled=true;就可以了。

[lfh]

不用说了,把判断和终止代码放在Form的OnCreate事件中处理就行了.

[mrlining]

先把数据集关掉，再用application.terminate或close

[jnxnasa]

刚才试了一下，在dbsvr的oncreate里用application.terminate 也不行。真不知为什么。

[jnxnasa]

终于搞定了，在dbsvr的oncreate里用halt就行
多谢各位的指教，现在发分

[qkl]

请具体讲述些

[jnxnasa]

[skimwater]

别的都不用，直接用 一个句子就OK。————

close;

[jnxnasa]

procedure TForm1.FormShow(Sender: TObject);
begin
sql:=select * from today where bj1=0;
dbsvr.displayset1.SQL.text:=sql;//dbsvr是datamodule,displayset1是Tadoquery

dbsvr.displayset1.Open ;
if dbsvr.displayset1.RecordCount=0 then
begin
application.MessageBox('今日计划未生成','未生成计划',mb_ok);
//我想终止程序（how to do ???)试过前述的好多方法都不行
end;

[jnxnasa]

刚才试了，close也不行，我要彻底终止整个程序，不是退出事件。

[windindance]

不要在OnShow事件.在OnCreate事件.

[yellowbb]

用什么连数据库的，ADO的如没有升级它有bug,结果集为空就报错。

[windindance]

Application.Terminate;

[xzgyb]

或者干脆直接在项目文件里的begin..end中在数据模块创建之后，
加上那段代码,exit

[jnxnasa]

我的ado 已经加了补丁，问一下风之舞，为什么在onshow 里就不能终止程序？难道终止程序还有事件的限制吗？

[qkl]

用 Application.Terminate; 出什么错误提示？
我觉得你这段代码放到 dbsvr 的 OnCreate 事件中更好。

[jnxnasa]

用application.terminate到不会报错，但不能把程序终止掉。

[windindance]

onactive、onshow事件里不能SHOW,HIDE,CLOSE 窗口。

[jnxnasa]

用application.terminate 到不会报错，但不能把程序终止掉。

[qkl]

你将 这段代码放到 dbsvr 的 OnCreate 事件用 Application.Terminate; 应该就没问题了。