Delphi 3 и создание приложений баз данных

Использование параметра UpdateKind


Параметр UpdateKind позволяет в случае ошибки предпринять какие-либо действия, зависящие от способа изменения записи.

Пример.

Если произошла ошибка при попытке подтверждения кэшированного удаления записи, нужно восстановить запись:

procedure TForm1.TovaryUpdateError(DataSet: TDataSet;

E: EDatabaseError; UpdateKind: TUpdateKind;

var UpdateAction: TUpdateAction);

begin

IF UpdateKind = ukDelete THEN Tovary.RevertRecord;

end;



Содержание раздела