Не выводится в поле

[kosya84]

ТЕКСТ ЗАДАНИЯ


Планирование потребности в металле на выпуск продукции на предприятии "Призма" осуществляется отделом снабжения. Разрабатывание и ведение нормативов расходов осуществляет производственный отдел, производственная программа определяется в плановом отделе.
1. Нужно выполнить постановку задачи, которая бы дала возможность автоматизировать расчет потребности в металле на производственную программу.
2. Разработать программу, которая бы печатала ведомость розходу материалов.

Ведомость розходу материалов

Название материала : Название детали : количество : норма розходу : всего
Сталь 112-ХА Деталь№1 . . .
Деталь №2 . . ..
Всего по Сталь 112-ХА .
Сталь 54-ХА Деталь №3 . . .

Я создала БД с помощью компонента TClientDataSet (*.CDS )
Для вычисления потребности в металле создала кнопку "рассчитать" следующим кодом:

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
  begin
with ClientDataSet1 DO
BEGIN
clientdataset1.First;
while not Eof do
begin
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Потребность в металле').AsInteger:=ClientDataSet1.FieldByName('Количество').AsInteger
 *ClientDataSet1.FieldByName('Норма расходу').AsInteger;
ClientDataSet1.Post;
ClientDataSet1.next;
end;
end;
end;

В результате ничего не выводит в поле "Потребность в металле". В чем проблема? помогите

[Stilet]

Во-первых: если описала with ClientDataSet1 DO BEGIN... то совсем не нужно писать ClientDataSet1 внутри его.
Во-вторых:Такие вещи лучше решать SQL запросами
В-третьих: А БД то открыта?
Да и потом, может таблица у тебя совершенно пустая.

[kosya84]

БД открыта, таблица не пустая.
а как задать через SQL?

[Stilet]

Ну для этого нужно хотя бы знать с какой СУБД ты работаешь.
Теоретически есть компоненты Query в которых в свойство SQL.Text можно вписать такое:

INSERT INTO Таблица ([Потребность в металле])
 VALUES ([Количество]*[Норма расходу])

И запрос должен отработать на все записи
Но зачем это делать, ведь норму расхода можно сделать вычисляемым полем, и пусть каждый раз СУБД рассчитывает его - это обычная практика:

SELECT ([Количество]*[Норма расходу]) as "Норма Расхода" FROM Таблица

Зачем его в базу то писать?

[Grag]

Сообщение от Stilet

Ну для этого нужно хотя бы знать с какой СУБД ты работаешь.

Она же написала

Я создала БД с помощью компонента TClientDataSet (*.CDS )

[kosya84]

Спасибо,сейчас попытаюсь,но Query у меня нет то!

[Grag]

Сообщение от kosya84

ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Потребность в металле').AsInteger:=ClientDataSet1.FieldByName('Количество').AsInteger
 *ClientDataSet1.FieldByName('Норма расходу').AsInteger;
ClientDataSet1.Post;

В результате ничего не выводит в поле "Потребность в металле". В чем проблема? помогите

А ты не пробовала сначала сделать вычисление потребности, а потом уже
.Edit
ClientDataSet1.FieldByName('Потребн ость в металле').AsInteger:=
.Post

И в отладчике посмотреть считается оно или нет в принципе???