VPF::Как заставить калькулятивное поле сохраняться в БД

Delphist

Дата 15.9.2009, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 1
Всего: 3

Что-то я запарился, или старею smile

. Вообщем возникла не совмес стандартная ситуация, при разных режимах работы программы, одно и тоже поле в DataSet'e у меня может быть как fkData а в другом случае как fkCalculated. В обоих случаях за этим полем закреплено физическое поле БД. С fkData все понятно заносим в UpdateSQL sql-text типа:

Код


  update price_value
  set 
      price_id = :price_id,
      remainder = :remainder,
      income=:income,
      ...
  where (pv_id = :pv_id);

А вот как быть в случае с fkCalculated, как заставить автоматически изменяться значение в БД при пересчете его в программе? Делал так, но не помагло:

Код


procedure TMyForm.MyDataSetBeforeOpen(DataSet: TDataSet);
begin
  with DataSet do
  begin
     FieldByName('remainder').Value := FieldByName('income').Value - FieldByName('expense').Value;
     QUpdate.ExecQuery; //добавил эту строку, но толку мало.
   end;
end;

Это сообщение отредактировал(а) Delphist - 15.9.2009, 17:21

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

dvamaster

Дата 22.9.2009, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

проще сделать в отдельном запросе обновление

чтобы поле обновилось, датасет должен быть переведен в режим редактора
поле должно поменяться
датасет должен отправить данные
И в датасете должено присутствовать физическое поле соотвественно с другим именем

геморой

повторюсь

Цитата

проще сделать в отдельном запросе обновление

и отобразить реальное поле, залочив его от изменений

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Akella

Дата 22.9.2009, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата

калькулятивное

Может вычисляемое?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »