varcdsEmp:TClientDataSet;//保存
procedure TfrmEmp.btnSave(Sender: TObject);
begin
cdsEmp.RemoteServer.AppServer.BegTrans;
try cdsEmp.ApplyUpdates(0); //更新错误在这一句发生,但是我却永远也捕获不到, //我想自已在异常处理里显示这里发生的错误信息该怎么办? cdsQrObj.RemoteServer.AppServer.ComTrans;
except on E:Exception do
begin
cdsEmp.RemoteServer.AppServer.RobTrans;
Application.MessageBox(pchar('存盘失败!'+#13#10+'错误信息:'+E.Message),'提示',MB_OK+MB_ICONEXCLAMATION);
Abort;
end;
end;
end;
procedure TfrmEmp.btnSave(Sender: TObject);
begin
cdsEmp.RemoteServer.AppServer.BegTrans;
try cdsEmp.ApplyUpdates(0); //更新错误在这一句发生,但是我却永远也捕获不到, //我想自已在异常处理里显示这里发生的错误信息该怎么办? cdsQrObj.RemoteServer.AppServer.ComTrans;
except on E:Exception do
begin
cdsEmp.RemoteServer.AppServer.RobTrans;
Application.MessageBox(pchar('存盘失败!'+#13#10+'错误信息:'+E.Message),'提示',MB_OK+MB_ICONEXCLAMATION);
Abort;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货