本文整理自网络，侵删。
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;
相关阅读 >>
Delphi 将string 转为 array of ansichar
Delphi firemonkey在画布上绘制 imagelist图像
更多相关阅读请进入《Delphi》频道 >>
