先说声局部异常
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