Как вернуть запись... И вытащить инфу из Appendix??

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Sheinina
Местный житель
Сообщения: 366
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Как вернуть запись... И вытащить инфу из Appendix??

Сообщение Sheinina »

Никак не могу найти в документации функцию, позволяющую вернуть запись в исходное состояние. Проще написать код, чем объяснить словами:

Код: Выделить всё

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. А я найти ее не могу :eek:
Последний раз редактировалось Sheinina 26 фев 2009, 18:11, всего редактировалось 1 раз.
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Сообщение m0p3e »

ReReadRecord (#table1) вместо abort должен помочь :)
Sheinina
Местный житель
Сообщения: 366
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Как вернуть запись... И прочитать данные из Appendix

Сообщение Sheinina »

m0p3e писал(а):ReReadRecord (#table1) вместо abort должен помочь :)
Спасибо. Глупо, что сама не догадалась :oops:
У меня тут еще вопрос возник - надо вытащить данные, сохраненные по кнопке Приложения в интерфейсе "Личная карточка сотрудника". По журнализации получается вроде, что табличка Appendix.
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Сообщение m0p3e »

Appendix с
Persons = Persons.nrec
ObjType = 2
Сами данные в memo поле Contents.

В зависимости от типа данных (фото,текст) работаем с мемо полем.
Ответить