27-02-2011, 09:29 AM
السلام عليكم
بعد البحث في help delphi7 في الإجراءات المتعلقة ب ClientDataSet وجدت ما كنت أبحث عنه
شكرا للجميع
بعد البحث في help delphi7 في الإجراءات المتعلقة ب ClientDataSet وجدت ما كنت أبحث عنه
كود :
procedure TDataModule1.ConnectionBeforeDisconnect(Sender: TObject);
begin
if (ClientDataSet1.ChangeCount > 0) then
ClientDataSet1.ApplyUpdates(-1);
end;
end;