程序一开始就加载数据模块:
Application.Initialize;
Application.CreateForm(TDataMod, DataMod);TDataMod中有一个ADOConnection,我在TDataMod的onCreate中尝试能否脸上数据库,不能连上就关闭程序:
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=stusys;Data Source=GENIUS1;'; try
self.ADOConnection1.Open;
except
on E:Exception do
begin
showMessage('请检查SQL SERVER 是否启动或网络是否连通');
application.Terminate;
end;
end;
可是出现异常后,弹出对话框提示,关闭对话框,理应程序退出,可是它的进程仍然存在大约一分钟‘当’了一声后才退出
有人能告诉我为什么,和解决的原因么?谢谢
Application.Initialize;
Application.CreateForm(TDataMod, DataMod);TDataMod中有一个ADOConnection,我在TDataMod的onCreate中尝试能否脸上数据库,不能连上就关闭程序:
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=stusys;Data Source=GENIUS1;'; try
self.ADOConnection1.Open;
except
on E:Exception do
begin
showMessage('请检查SQL SERVER 是否启动或网络是否连通');
application.Terminate;
end;
end;
可是出现异常后,弹出对话框提示,关闭对话框,理应程序退出,可是它的进程仍然存在大约一分钟‘当’了一声后才退出
有人能告诉我为什么,和解决的原因么?谢谢
exit;
Form1.Tag = 5是什么意思?
可能会好些
Application.Processmessage;
application.Terminate; 试试?
那么请先判断一下:application.Terminated; 的值
application.Terminate ; // 或者 Halt ;
form.tag:=5是设置TAG属性..TAG可以放任一类型的数据..用sendmessage(application.handle,WM_CLOSE,0);
试试..