?????当用户修改了数据,写库时)?????----->you see? i not see, i don't know
写一些com/dcom的方法接口在客户端调用就行乐!
各位老大我在客户端的clientdataset的OnReconcileError事件中取得原生错误码,但我RUN不过,代码如下: Procedure TfrmDyydXg.Query16CDReconcileError(DataSet: TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction); var eDBError:EDBEngineError; iCount:integer; begin if(E.ErrorCode<>0) then if(E.OriginalException is EDBEngineError) then begin eDBError:=E.OriginalException as EDBEngineError; showmessage(IntToStr(eDBError.ErrorCount)); for iCount := 0 to eDBError.ErrorCount-1 do application.createForm(TfrmErrorServer1,frmErrorServer1); frmErrorServer1.Show; frmErrorServer1.Edit1.Text:=IntToStr(E.ErrorCode); frmErrorServer1.Edit2.Text:=E.Context; frmErrorServer1.ListBox1.Item.add(IntToStr(eDBError.Errors [iCount].NativeError)); end; end; end; end;‘E.OriginalException’老是出错[Error] : Undeclared identifier: 'OriginalException' 不知该怎么做?还请各位老大帮帮忙!
Procedure TfrmDyydXg.Query16CDReconcileError(DataSet: TCustomClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction); var
eDBError:EDBEngineError;
iCount:integer;
begin if(E.ErrorCode<>0) then
if(E.OriginalException is EDBEngineError) then
begin
eDBError:=E.OriginalException as EDBEngineError;
showmessage(IntToStr(eDBError.ErrorCount));
for iCount := 0 to eDBError.ErrorCount-1 do
application.createForm(TfrmErrorServer1,frmErrorServer1);
frmErrorServer1.Show; frmErrorServer1.Edit1.Text:=IntToStr(E.ErrorCode);
frmErrorServer1.Edit2.Text:=E.Context; frmErrorServer1.ListBox1.Item.add(IntToStr(eDBError.Errors [iCount].NativeError));
end;
end;
end;
end;‘E.OriginalException’老是出错[Error] : Undeclared identifier: 'OriginalException' 不知该怎么做?还请各位老大帮帮忙!