本人写了一套程序,是一个c/s程序。启动的时候通过这个程序连接远程的服务器(ado+adsl)。由于网络的原因每次启动这个程序的时候都要等上很长时间。这段时间内屏幕就是没有任何反映了。我想在这段等待时间能显示一个启动画面,告诉使用者程序正在连接远程数据库,直到程序连接成功为止。当然这段时间和等待时间是一样的,不希望用计时器规定上画面的停留时间,因为这样如果规定时间后画面关掉了数据库还没有连上,这样就没意思了,如果做进度条呢?希望高手指点迷津,提供相关的连接也可以。
解决方案 »
- 疯狂汉语 之 汉字排排坐
- [请教]Image控件问题!
- 哪位大侠能帮忙一下将这段 VC 代码翻译成 Delphi 代码, 不胜感谢!
- ●请教关于 函数问题 数组问题?
- 怎样在Rave中实现小数点后的位数
- 一直对FOR循环语句不太熟练,前辈门能举些好例子让后辈真正认识这种语句的威力吗
- 在用insatllshield professional 6.1打包时遇到问题请教高手?
- 用Delphi开发的ISAPI/NSAPI Dynamic Link Libary类型的Webservice为什么第一次运行非常慢
- TFont 转化到 IFontDisp
- 如何在grid显示行中选中一行?
- 如何取得显示器是关闭还是开着?
- 请问:怎么实现,统计每月发放工资总额,生成年报表?百分谢谢!
Connection....
XXX.Free
Application.Initialize; F_LogOn := TF_LogOn.Create(Application); //启动画面
F_LogOn.Show;
F_LogOn.Update; //刷新显示
。
。
。
在连接成功后给指令:
try //捕捉异常
DM.ADOConnection.Connected := true; //启动与数据库服务器的连接
F_LogOn.close;
excepy
showmessage('连接失败');
Application.Terminate;
end;
F_LogOn.close;//这里应该用FREE比较好 呵呵