try
    table.post;
  except
    on E: Exception do
       MessageDlg('存檔錯誤!!' #13 #10 '' #13 #10 'Error:' 
            E.Message , mtError, [mbOK], 0);
  end;

procedure TformCustomer.tbCustomerUpdateError(DataSet: TDataSet;
  E: EDatabaseError; UpdateKind: TUpdateKind;
  var UpdateAction: TUpdateAction);
var
  iDBIError: Integer;
begin
  if (E is EDBEngineError) then
  begin
    iDBIError := (E as EDBEngineError).Errors[0].Errorcode;
    case iDBIError of
      eRequiredFieldMissing:
        {The CustNo field is defined as being required.}
        begin
          SkinMessageDlg('客戶編號不能為空白!!!', mtWarning, [mbOK], 0);
          dataSet.Edit;
          Abort;
        end;
      eKeyViol:
        {The primary key is CustNo}
        begin
          SkinMessageDlg('客戶編號重覆!!', mtWarning, [mbOK], 0);
          dataSet.Edit;
          Abort;
        end;
    else
      SkinMessageDlg(e.Message,mtError,[mbOK],0);
    end;
  end;
end;