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

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

1 楼jackfeng（jackfeng）回复于 2000-10-13 11:20:00 得分 0

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

2 楼flysky（剑舞飞天）回复于 2000-10-13 11:49:00 得分 0

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

3 楼redpower（常宁）回复于 2000-10-13 12:05:00 得分 0

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

4 楼kxy（手举穿肠毒药，怀抱刮骨钢刀）回复于 2000-10-13 14:31:00 得分 0

Application有一个OnException事件Top

5 楼dead_lee（）回复于 2000-10-13 15:12:00 得分 0

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

6 楼nnhg（土狗）回复于 2000-10-14 16:27:00 得分 90

这里是发生了一个异常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%，厉害的话就做一个专门编写异常处理的程序员。程序要健壮才会有人要。Top

7 楼nnhg（土狗）回复于 2000-10-14 17:00:00 得分 0

这里是发生了一个异常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%，厉害的话就做一个专门编写异常处理的程序员。程序要健壮才会有人要。Top

相关问题

• 代码
• hp
• delphi
• 数据库
• 服务器
• mssql
• 连接
• application
• onexception
• thg

• 帖主：flysky
• nnhg

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载