偶看新闻勃列日涅夫访问美国:Delphi中AdoQuery执行错误的捕捉
来源：百度文库 编辑：偶看新闻 时间：2024/04/30 00:20:40
Delphi中AdoQuery执行错误的捕捉
所属类别：DELPHI推荐指数：★★★
文档人气：275
本周人气：3
procedure Tfm_bmwh.ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
Var
error_set:Errors;
error_obj:Error;
iCount:integer;
begin
error_set:=adoquery1.Connection.Errors;
for iCount :=0 to Error_set.Count-1 do
Begin
error_obj:=error_set.Item[iCount];
Case Error_obj.NativeError of
2627:Begin
application.messagebox(信息重复，请注意,提示信息,mb_OK+MB_ICONERROR);
Abort;
End;
515:begin
application.messagebox(必填信息不能为空值，请输入一个值,提示信息,mb_OK+MB_ICONERROR);
Abort;
End;
32:Begin
application.messagebox(其它用户已改变了这条记录的值，请先刷新，再修改,提示信息,mb_OK+MB_ICONERROR);
Abort;
End;
1023:Begin
application.messagebox(不能插入空行，请注意,提示信息,mb_OK+MB_ICONERROR);
Abort;
End
else
begin
application.messagebox(数据有错，不能更新：,提示信息,mb_OK+MB_ICONERROR);
Abort;
end;
End
end;
end;