delphi中对数据库全局异常和局部异常的处理

先说声局部异常

query1中的query1.onposterror有三个参数qryClassPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);

  showmessage（E.message）

 第三个参数Action是对局部异常处理的

  当Action:=dabort是全局异常不起作用

全局异常定义

在Additon叶匡中添加ApplicationEvents2组件

然后判断if E is eOleException或者EdatabaseError或者其他错误时

  showmessage