простая тема!

[Алёна]

привет все программерам! помогите пжл, долго работала с Интербейсом, что теперь путаюсь в Dbase. Вобщем есть таблица "Приход " и "Остаток",мне надо сделать если при вводе нового товара и его количества в приходе, чтоб в Остатке прибавлялось количество на данный товар. Я написала код, вроде прибавляет, только не к конкрентному товару, а просто к первой записи таблицы Остаток. Как связать их между собой?

[Alex21]

Может есть смысл вести одну таблицу? (приход+остаток)

[Алёна]

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

Может есть смысл вести одну таблицу? (приход+остаток)

я тоже так хотела, но потом отказалась от этой идеи, потому что получается куча записей с одним и тем же товаром в приходе и остатком на каждую запись этого товара, а надо, чтобы остаток хранился отдельно, поскольку будет еще и расход! я очень жду помощи надо срочно!

[Alex21]

Куча записей будет в базе данных,
а выводить можно в 2 StringGrid'а (Приход и Остаток)

[Alex21]

Куча записей будет в базе данных, при
а выводить можно в 2 StringGrid'а (Приход и Остаток)

[Alex21]

Куча записей будет в базе данных, при этом
а выводить можно в 2 StringGrid'а (Приход и Остаток)

[Alex21]

сорри за повторы ))

[Алёна]

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

Куча записей будет в базе данных, при этом
а выводить можно в 2 StringGrid'а (Приход и Остаток)

а потом при расходе надо как-то связаться с приходом (с полем остаток) опять же конкретного товара, и опять проблема связи.... не знаю что делать!

[Alex21]

Сообщение от Алёна

Я написала код, вроде прибавляет, только не к конкрентному товару, а просто к первой записи таблицы Остаток. Как связать их между собой?

как прибавляешь? зритель хочет кода.

[Алёна]

код конечно не ахти, но вот что смогла:
var
s,t,r,n: integer;
begin
prihod_kart.Insert;// вставка новой записи в ПРИХОД
prihod_kart.FieldByName('data_prih' ).Asstring:=maskedit1.Text;
prihod_kart.FieldByName('Name_print ').AsString:=DBEdit1.Text;
prihod_kart.FieldByName('Name_kart' ).AsString:=DBEdit2.text;
prihod_kart.FieldByName('Nazv').AsS tring:=DBEdit3.text;
prihod_kart.FieldByName('Kolvo').As String:=Edit1.text;
s:=strtoint(DM.ostatok_kart.FieldBy Name('Kolvo').AsString);
DM.ostatok_kart.Edit;//вставка в ОСТАТОК
t:=strtoint(Edit1.Text);
r:=s+t;
DM.ostatok_kart.FieldByName('Kolvo' ).AsString:=inttostr(r);
DM.ostatok_kart.Post;
prihod_kart.Post;
ShowMessage('Сохранено !!!');