Метод IsFieldModified |
Функция наличия модификаций поля с момента чтения его из базы.
function IsFieldModified (fldNum : integer) : boolean;
fldNum - идентификатор поля. При обращении к полю из прикладной программы перед идентификатором поля ставится символ #.
Возвращает true, если поле было модифицировано, иначе - false.
Функция имеет смысл только для полей из таблиц базы данных. Если поле не табличное, функция не выдает сообщение об ошибке, а просто возвращает false.
interface FldModif; create view fldModif as select * from Catalogs; handleEvent cmInit : begin if (IsFieldModified(#Catalogs.cParent)) Message('Модифицировано') else Message('Не Модифицировано'); // поле не модифицировано insert Catalogs set Catalogs.cParent = 10; if (IsFieldModified(#Catalogs.cParent)) Message('Модифицировано') else Message('Не Модифицировано'); // поле не модифицировано Catalogs.cParent := 31 ; // смена значения if (IsFieldModified(#Catalogs.cParent)) Message('Модифицировано') else Message('Не Модифицировано'); // поле модифицировано modifier update current Catalogs; // запись изменений в таблицу if (IsFieldModified(#Catalogs.cParent)) Message('Модифицировано') else Message('Не Модифицировано'); // поле не модифицировано end; end; end.