Никак не могу найти в документации функцию, позволяющую вернуть запись в исходное состояние. Проще написать код, чем объяснить словами:
Код: Выделить всё
browse b1;
fields
table.pole1 :[5], noprotect;
table.pole2 :[5], noprotect;
table.pole3 :[5], noprotect;
table.pole4 :[5], noprotect;
end;
HandleEvent
cmCheckRecord:
if table.pole4=ПРИЗНАК then {
message('Запись модифицировать нельзя!');
abort;
}
cmUpdateRecord: update current table1;
cmInsertRecord: insert current table1;
end;
Все работает, но перейти к другой записи да и выйти из интерфейса, разумеется, не дает, пока не нажмешь Alt+BackSpace. Надо бы после сообщения не
abort написать, а вызов функции, вызываемой по Alt+BackSpace. А я найти ее не могу

Последний раз редактировалось
Sheinina 26 фев 2009, 18:11, всего редактировалось 1 раз.