天
天地弦
Unregistered / Unconfirmed
GUEST, unregistred user!
第一部分是调用中间层更新的DoApplyUpdates函数(希望能扩展到中间层)。
function TCustomClientDataSet.DoApplyUpdates(Delta: OleVariant;
MaxErrors: Integer;
out ErrorCount: Integer): OleVariant;
var
OwnerData: OleVariant;
begin
A01 do
BeforeApplyUpdates(OwnerData);
A02 Result := AppServer.AS_ApplyUpdates(ProviderName, Delta, MaxErrors, ErrorCount, OwnerData);
A03 do
AfterApplyUpdates(OwnerData);
end;
function TCustomClientDataSet.DoApplyUpdates(Delta: OleVariant;
MaxErrors: Integer;
out ErrorCount: Integer): OleVariant;
var
OwnerData: OleVariant;
begin
A01 do
BeforeApplyUpdates(OwnerData);
A02 Result := AppServer.AS_ApplyUpdates(ProviderName, Delta, MaxErrors, ErrorCount, OwnerData);
A03 do
AfterApplyUpdates(OwnerData);
end;