程序一开始就加载数据模块:
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;
可是出现异常后,弹出对话框提示,关闭对话框,理应程序退出,可是它的进程仍然存在大约一分钟‘当’了一声后才退出
有人能告诉我为什么,和解决的原因么?谢谢
解决方案 »
- 如何实现字幕向上翻滚效果???
- 怎樣把窗體至頂,也就是無論打開什么軟件,我的窗體都在最前面
- 哪位兄弟有DevExpress ExpressOrgChart v1.3 forD5的控件?
- 大侠 十万火急
- 高分求救,在DELPHI中如何实现像在网页中一样的OLE,也就是说,可以直接在IE中调用WORD并且使其成为一个完整的整体。
- 如何让用户只可修改DBGIRD中记录而不能通过“insert”键增加记录
- Tpopupmenu为每个菜单项加上图标,鼠标移上时有蓝色焦点条,如果让蓝色条不在图标区显示?
- 那里有 installshield for delphi5.0 下的地方?
- 消息问题,怎样屏蔽memo区域上的鼠标消息?
- cobi (我是小新,我只有五岁):请进!我是hgl54321~~!
- 各位高手,我想把一设备的串口通讯协议用SPCOM封装到DLL里面,由于没有做过,还望各位给个例子看。
- 关于多线程的问题?
exit;
Form1.Tag = 5是什么意思?
可能会好些
Application.Processmessage;
application.Terminate; 试试?
那么请先判断一下:application.Terminated; 的值
application.Terminate ; // 或者 Halt ;
form.tag:=5是设置TAG属性..TAG可以放任一类型的数据..用sendmessage(application.handle,WM_CLOSE,0);
试试..