Вычисляемое поле

[goodwinrock]

Таблица книги knigi
___________________________________ ___________
код книги | название книги | всего книг | осталось книг |
_____1__|__Том Соер____ |___50____|___30_______|
____2___|__Научная лит.__|___ 59___|___ 58_______|
____3___|___Кулинария___|__90____|_ ____70______|
____4___|___Том Джоес___|___30___|___28________|
___________________________________ ___________

Таблица выданные книги vidan_knigi
___________________________
код книги | количество выдано |
____1___|_______20_______|
____2___|________1_______|
____3___|_______20_______|
____4___|_______2________|
___________________________

Вот мне нужно что бы вычисляемое поле "Осталось книг" ("всего книг" минус "колличество выдано") правельно вычислялось в соответствии с кодом книги, т.е. если мы выдали 20 шт. "Кулинария" у нас отнялась из таблицы Книги именно "Кулинария", а не допустим "Том Соер".

А у меня получается с текущим кодом что все вкуче вычисляется , необращас внимание на Код книги.
Надеюсь на вышу помощь.
Таблицы будут в будущем доработаны и объединять их в одну таблицу категарически нельзя.

Мой код:

procedure TDataModule1.knigiCalcFields(DataSe t: TDataSet);
begin
with knigi do

Datamodule1.knigi.fields[7].Value:= datamodule1.knigi.Fields[3].Value - datamodule1.vidan_knigi.Fields[7].value;

end;

[5naip]

а почему нельзя просто запросом update?

update knigi, vidan_knikgi
set knigi.ostalos_knig = knigi.vsego_knig - vidan_knigi.koli4estvo_vidano
where knigi.kod_knigi = vidan_knigi.kod_knigi

[goodwinrock]

Дело в том что я неразу не использовал запросы в Дельфи, и плохо знаю как их создавать. Спасибо за код, это то что надо. Если можно, пожалуйста обьясни подробно как создать запрос?

[5naip]

вот рабочий пример...
снчала в базе запомни цифры(сколько из чего будет вычитаться...) а потом компиль и жми кнопку

[goodwinrock]

Этот запрос подойдет если у меня база данных Paradox 7 и она создана спомошью DataBase Descktop?
У меня не получилось пириминить этот запрос к моей Бд. Может быть сделать Query запрос? если можно обьясни пожалусто как Query запрос создать.

[5naip]

тут уж звини, с парадоксом ни разу не работал