小菜一碟！如果你是高手！

[flysky]

DELPHI和MSSQL，C/S结构，如何解决网络不通
时程序显示的can't find sql server的问题。
我想显示设定的提示，该在哪里写代码，具体
怎么实现？
分数多多！请多指教！

[kxy]

Application有一个OnException事件

[dead_lee]

try
database.connected = true;
except
showmessage('tmd,连接错误');
end;

[jackfeng]

先用odbc连接SQL数据库，主要问题一般是：在设置中，有一项“你想连接哪一个SQL SERVER”,在那里输入数据库服务器的IP地址，点击下一步之后，在“客户端配置”里面选择“TCP/IP”，选择“使用用户登录ID和密码的SQL SERVER验证”，并且在“登录ID”内填入“sa”，默认情况下没有密码，如果网络正常的话，点击“下一步”就可以看到服务器上的数据库了
（以上只是一般情况）

[flysky]

thanks jackfeng.
我想你没有明白我的问题，我也没有说清楚；
我的程序已做成安装盘，在机器没有和数据库
服务器相连的情况下，总出现烦人的系统提示，
我想让他显示自己在程序中设定的提示，该在
哪个组件里什么事件里写代码，具体怎么办？
另外，我不是用的SQL SERVER，而是MSSQL，所以
没有和ODBC牵上关系，只是BDE；

[常宁]

SQL SERVER一般指MSSQL , SYBASE SQL SERVER一般使用SYBASE
MSSQL可以称为SQL SERVER,当然这与当前问题无关！
最简单的办法请使用类似于C++的容错方法，如try...catch(...) 当然delphi中有对应的语法。

[三隻白白豬]

这里是发生了一个异常Exception，要屏蔽掉Delphi中的异常处理，需要自己定义一个Exception类或参考一下Delphi的异常类。

现在给一个完整点的例子
program Project1;

uses
SysUtils,//其中包含Exception 类的声明
Forms,
Unit1 in 'Unit1.pas' {Form1};

type
THG=class//声明类
public
procedure HP(Sender:TObject;Einstance:Exception);//声明方法
end;

procedure THG.HP(Sender:TObject;Einstance:Exception);
begin
//加入自己的异常处理方案
end;

var
HG:THG; //声明全局变量

{$R *.RES}

begin
HG:=THG.Create; //生成
Application.OnException:=HG.HP; //使用自己的处理代码
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

注：1、这里是全局异常处理。
2、在缺省异常中如OnException中无代码，就调用ShowException,其提供缺省异常处理。
3、详细运用可参考 Delphi Help 的 Exception 说明。
4、异常处理在程序编写中占用的时间达到了20%，厉害的话就做一个专门编写异常处理的程序员。程序要健壮才会有人要。

[三隻白白豬]

这里是发生了一个异常Exception，要屏蔽掉Delphi中的异常处理，需要自己定义一个Exception类或参考一下Delphi的异常类。

现在给一个完整点的例子
program Project1;

uses
SysUtils,//其中包含Exception 类的声明
Forms,
Unit1 in 'Unit1.pas' {Form1};

type
THG=class//声明类
public
procedure HP(Sender:TObject;Einstance:Exception);//声明方法
end;

procedure THG.HP(Sender:TObject;Einstance:Exception);
begin
//加入自己的异常处理方案
end;

var
HG:THG; //声明全局变量

{$R *.RES}

begin
HG:=THG.Create; //生成
Application.OnException:=HG.HP; //使用自己的处理代码
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

注：1、这里是全局异常处理。
2、在缺省异常中如OnException中无代码，就调用ShowException,其提供缺省异常处理。
3、详细运用可参考 Delphi Help 的 Exception 说明。
4、异常处理在程序编写中占用的时间达到了20%，厉害的话就做一个专门编写异常处理的程序员。程序要健壮才会有人要。