procedure TForm1.DBGridEh1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
with cds do
if Active and(State in [dsEdit]) then
begin
UpdateRecord;
Post;
end;
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if cds.Active then
cds.MergeChangeLog;
{如果不是调用Applyupdates方法更新数据,而是传递delta数据到服务端更新的情况下,在更新完成后要调用MergeChangesLog。
}
inherited;
end;