如果不能连上的话,我希望自己跳出一个提示窗口,而不是程序本身出现一个
什么错误提示,请问能否实现?tks了
什么错误提示,请问能否实现?tks了
解决方案 »
- BDE改数据库端口(在线等。。。)
- label组件的超简单问题
- 我要在窗体中动态创建frmemoview,在uses语句中应该添加什么啊?
- 如何在线程中使用TWebBrowser控件,急~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 期末考试终于考完了,高兴啊(2)!!!为什么我只能给100分啊???
- Delphi7中,为何我一装载Gif图片就死机?
- 解决马上给分
- 有没有人对分析软件的软件感兴趣?请跟贴
- 在Delphi下设计程序怎样做成象CSDN"专家门诊"这样的框架格局?
- BCB 我按照你的方法 设置dcomcnfg 结果还是失败,怎么回事呀:(
- 公司让我开发一套通用报表系统,我无处入手急死了!
- 怎么实现类似于protocol中的电子元器件的组件啊?
begin
connectionstring:='...';
try
open;
if not active then showmessage('a');
except
showmessage('b');
end;
end;
except
自己处理
ADOConnection1.Open;
except
on Exception do
showmessage('Sorry! Can not esbilished this connection!');
首先在form上选择一个控件adoconnection
然后在formshow中写如下代码:
try
adoconnection1.Open;
showmessage('open');
except
showmessage('close');
end;对了,要不出现系统的提示,你还的把"tools/debug option..."打开,把general页下的
integraged debugging 前的勾去掉
就ok了