if UpdateKind=ukDelete then begin
DispMsg('该订单已经被引用,不能删除!',1);
UpdateAction:=uaAbort;
end
If UpdateKind=UkModify the begin
DispMsg('订单修改出错,请重新保存数据!',1);
UpdateAction:=uaAbort;
end;
If UpdateKind=UkInsert the begin
DispMsg('订单新增出错,请重新保存数据!',1);
UpdateAction:=uaAbort;
end;