Paradox обновление данных

[Clockgen]

Подскажите пожалуйста в чем может быть проблема.
Создаю БД через парадокс,имеются три таблицы с данными:
Таблица Сырье: код,название,стоимость(единицы сырья)
Таблица Поставщики: код поставщика,название
Таблица Книга поставок: Шифр,код поставщика,код сырья,общая стоимость,количество(единиц сырья).
В парадоксе я создал 3 таблицы,перенес в делфи,получилось 3 формы,связи 2-х форм содержат:1-я форма,отображаются таблицы сырья и книги,2-я форма,отображает таблицы поставщиков и книги. 3-я форма содержит таблицу только книги.
Я сделал так,потому то не знаю как проще это реализовать,поэтому приходится постоянно при внесении данных обновлять таблицу книги и прочих таблиц.
В 3-й форме,через делфи я повесил кнопку "Сумма"-эта кнопка должна просчитать поле "Общая стоимость"=Общая стоимость*количество,соответственно обновить все поля записи "Общая стоимость" в таблице Книги,и потом уже отправлять в другие 2-ве формы этот результат.
У меня есть код для подсчета суммы,но при его выполнении-компилятор выдает ошибку: Dataset not in edit mode. я уже 2 дня борюсь с этой проблемой но безрезультатно,помогите пожалуйста кто чем сможет.

Вот код:

procedure TForm3.Button1Click(Sender: TObject);
var s:integer;
begin
DBGrid1.datasource.dataset.first;
s:=0;
while not dbgrid1.datasource.dataset.eof do
begin
s:=s*dbgrid1.datasource.dataset.FieldByName('Kol_vo').value;
dbgrid1.datasource.dataset.next;
dbgrid1.datasource.dataset.FieldByName('MoneySum').value:=s;
end;
end;

Чувствую,понакрутил я тут,поле MoneySum-числовое. Но я не знаю как перемножить стоимость сырья из одной таблицы Сырья,с количеством которое указано в Книге. Поэтому решил просто пока что в поле MoneySum скопировать Kol_vo через переменную s.

А это скрин программы:

[Clockgen]

Разобрался

var i: integer;
var j: integer;
var x: currency;
var x1:currency;
var xSum:currency;
begin
 Table1.First;
 Table2.First;
 x:=0;
 x1:=0;
 for i:=0 to Table1.RecordCount-1 do begin
 for j:=0 to Table2.RecordCount-1 do begin
     x1:=Table2.FieldByName('Money').AsCurrency;
   Table2.Next;
 end;
   x:=Table1.FieldByName('Kol_vo').AsCurrency;
   xSum:=x*x1;
   Table1.Edit;
   Table1.FieldByName('MoneySum').AsCurrency:=xSum;
   Table1.Post;
   Table1.Next;
 end;
 Caption:=CurrToStr(xSum);
end;

Но возник вопрос,как сделать чтобы сделать 3 таблицы в 1-й форме? С полным отображением данных? дело в том,что для таблицы сырье и поставщики как видно по скриншоту, отображаются только 1 запись,хотя таких записей в таблице 5,почему так?

[Stilet]

отображаются только 1 запись,хотя таких записей в таблице 5,почему так?

Потому что ты таблицы связал через Master-Detail по полю CodeSir. А связанная таблица отображает только те записи у которых ключевое связанное поле имеет значение, совпадающее со значением родительской таблицы в ключевом связанном от нее поле.

[Clockgen]

То есть получается мне нужно отображать отдельно таблицы с сырьем,чтобы удобно было вводить данные,отдельно поставщиков? И могли бы подсказать как сделать три таблицы в одной форме,ткак мастер-детал связывает только 2 таблицы.