在使用ClientDataSet控件时,在关联的TDBGrid控件插入不合法的字段,再执行ClientDataSet的ApplyUpdates方法,数据插入失败
但在客户端没有报异常,try...except...end 无法捕捉到。
在网上找到了几种解决方法
第一种是在中间服务层的DataSetProvider控件中加入OnUpdateError事件
在事件中加入如下代码:
procedure TSvrProb.DataSetProvider1UpdateError(Sender: TObject; DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind; var Response: TResolverResponse); begin raise E; // 就是这一行代码 end;
客户端程序的ClientDataSet控件的方法就能在try...except...end就能正常触发异常了。
第二种看起来比较复杂 ,我没试过,方法是在公共单元中放入一个ApplicationEvent控件
在ApplicationEvent控件加入OnException事件
贴上网上找到的具体代码:
procedure TClient_RDataForm.ApplicationEvents1Exception(Sender: TObject; E: Exception); begin if (E is ESocketConnectionError) or (E is ESocketError) then begin if not Is_OK then begin Application.MessageBox(PChar('考试应用服务器或网络连接失败!请退出后重新启动考试系统! '), '服务器连接中断', MB_OK + MB_ICONERROR); Application.Terminate; Exit; end;
while not ReConnect_Srv do //重新连接又失败了 begin if Application.MessageBox(PChar('考试服务器或网络连接失败!请立即与监考老师联系! '+#13+'要重新搜索服务器请按[是],强制退出请按[否]! '), '服务器连接失败', MB_YESNO + MB_ICONSTOP) <> IDYES then if (Application.MessageBox('真的要强制退出考试系统吗? ','强制退出确认', MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2) = IDYES) then begin Application.Terminate; Exit; end; end;
if MyConnection.Connected then begin Application.MessageBox('考试应用服务器恢复连接成功!','连接成 功',MB_OK+MB_ICONINFORMATION); Exit; end; end else raise Exception.Create('考试系统发生异常错误!退出后请重新启动考试系统继续考试!'); //ShowMessage(e.Message);
错码太长了,不过我大致看了一下,跟第一种方法对比,我还是比较中意第一种方法
第一种方法能随时捕捉到ClientDataSet中的异常,而ApplicationEvent却要在一个过程中捕捉所有异常,不如第一种方法方便