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;