Сохранение значений вычисляемых полей

[gimbomba]

Народ, прошу помочь в решении одного вопросов!!!

1) Создаю вычисляемое поле Начислено, которое расчитывается путем перемножения поля из одной таблицы на поле из другой и нужно чтобы результат не просто отображался, а сохранялся. (Желательно не применяя sql).

2) Также нужно, ...

Читать правила раздела!
Одна тема - один вопрос!

[TaTT DoGG]

1) DBEdit6.DataSource.DataSet.Edit;
DBEdit6.Field.AsString:=[значение которое сохраняем];

[gimbomba]

А через dbgrid можно?

[TaTT DoGG]

пардон, а вы куда значения вводите? в саму dbgrid?
тогда так:
выносите TDBNavigator и через него сохраняете...
как вариант можно скрыть его, а на обычную кнопку "Сохранить", вынести любую интересующую вас функцию...

[gimbomba]

Че- то не получается, сколько бы не пробовал: либо ошибку выдает, либо значение в базу не сохраняется.


DBEdit6.DataSource.DataSet.Edit;
DBEdit6.Field.AsString:=[значение которое сохраняем];
в [значение которое сохраняем] я подставляю имя поля, в которое нужно сохранить результат.

Может я че-то делаю не так? Может быть я не в том событии прописываю действия? В каком это событии прописывается

Вот как я рассчитываю вычисляемое поле:

procedure TForm1.uslugCalcFields(DataSet: TDataSet);
begin
uslugUslNachisleno.Value:=uslugUslT arif.Value*abAbPropisano.Value;
end;

UslTarif - поле из таблицы услуги;
AbPropisano - поле из таблицы абоненты;
UslNachisleno - вычисляемое поле из таблицы услуги.

После добавления данных автоматически происходит расчет поля UslNachisleno. Вот нужно чтобы оно не просто отображало значения во время работы приложения, а сохраняло эти значения в базу (в себя или, допустим в другое поле, к примеру UslNachisl).


Нашел в нете подходящий пример:

procedure TForm1.DataSource2DataChange(Sender : TObject; Field: TField);
begin
if (Field<>nil) and (Field.FieldName<>'UslNachisleno') and (Field.DataSet.State in dsEditModes)
then with Field.DataSet do

FieldByName('UslNachisleno').Value: =FieldByName('Usltarif').Value*2;
end;

Но беда в том, что он ориентирован на использовании одной таблицы, а в моем случае в расчете участвуют поля из двух таблиц.

FieldByName('UslNachisleno').Value: =FieldByName('Usltarif').Value*Fiel dByName('AbObchaya_plochad').Value;

[Баламут]

А вам не кажется, что при таком подходе теряется смысл "ВЫЧИСЛЯЕМОГО" поля? Какой смысл его хранить?

[mihali4]

DBEdit6.Field.AsString:=[значение которое сохраняем];
в [значение которое сохраняем] я подставляю имя поля, в которое нужно сохранить результат.

Может я че-то делаю не так?

Какое "имя поля"? Вы хоть одну книжку про базы данных пытались прочесть?