БД, добавление значений

[grom333]

Имеется задание:

Создать программу «Товары и реализация». На склад поступают товары, имеющие следующие характеристики: наименование, цена. Количество, единица измерения. Склад производит отпуск товаров на склад и отпуск товаров со склада. Если наименование поступающего товара уже имеется в базе данных, то количество суммируется. Сформировать отчет о наличии товаров на складе. Для хранения данных используется любая локальная реляционная СУБД.

Как реализовать добавление (суммирование)?

[maLoy*508]

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

еще вариант почитай "похожие" темы... ссылки внизу

[grom333]

DOQuery1.Close;
ADOQuery1.SQL.Text:='Insert Into Tab1 (name,cena,koli4estvo,ed_izmer) Values ("'+Edit1.Text+'",'+Edit2.Text+','+Edit3.text+','+edit4.text+')';
ADOQuery1.ExecSQL;

Добавление нашел, но даже не представляю как происходит суммирование, если такой товар уже есть.

[Serge_Bliznykov]

вообще изменение данных производится с помощью команды Update
например,

update Tabl1 
set koli4estvo = НовоеЗначениеКоличества
  where name = ВашеНаименование

но это неправильно с точки зрения теории реляционных БД - Любая таблица должна иметь ключевое поле!
Где у Вас в таблице tab1 ключевое поле?!
Если Вы сами проектируете данную БД - то обязательно добавьте это поле в таблицу.
тогда правильный запрос будет выглядеть так:

update Tab1
    set koli4estvo = НовоеЗначениеКоличества
  where ID = ID_найденной_записи

найти нужную запись можно через
select max(id) from tab1 where name = ВашеНаименование

[grom333]

Serge_Bliznykov, я конечно же знаком немного с БД. Уже несколько раз делал (телефонный справочник и т.д.) Но тут видите я именно стопорюсь на программном добавлении с суммированием.
Вот, код знаю который просто добавит значения

ADOQuery1.Insert;
ADOQuery1.FieldByName('name').AsString := Edit1.Text;
ADOQuery1.FieldByName('cena').AsString := Edit2.Text;
ADOQuery1.FieldByName('koli4estvo').AsString := Edit3.Text;
ADOQuery1.FieldByName('ed_izmer').AsString := Edit4.Text;
ADOQuery1.Post;

как для него условия добавить "если name есть, то koli4estvo+koli4estvo"

[Stilet]

вообще изменение данных производится с помощью команды Update

А если такой записи нет?
Я бы сделал это двумя запросами
Первый - обновляет только те которые есть
Второй - вставляет только тех которых нет.
Второй типа
Insert into ... select * from ... JOIN... чтоб только тех которых нет брало.

[Serge_Bliznykov]

без проверок что находится в Edit1.Text и Edit3.Text (обязательно добавите проверки самостоятельно, они важны!), просто как направление, куда копать:

if ADOQuery1.Locate('name', Edit1.Text, [] ) then begin
  ADOQuery1.Edit;
  ADOQuery1.FieldByName('koli4estvo').AsInteger := ADOQuery1.FieldByName('koli4estvo').AsInteger + StrToInt(Edit3.Text);
  ADOQuery1.Post;
end
else begin
   // тут Ваш код по вставке нового значения
end;

[grom333]

Serge_Bliznykov, спасибо большое быстро, точно и точку!
Кому нужен точный код для своих проектов

procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOQuery1.Locate('name', Edit1.Text, [] ) then begin
  ADOQuery1.Edit;
  ADOQuery1.FieldByName('koli4estvo').AsInteger := ADOQuery1.FieldByName('koli4estvo').AsInteger + StrToInt(Edit3.Text);
  ADOQuery1.Post;
end
else begin
ADOQuery1.Insert;
  ADOQuery1.FieldByName('name').AsString := Edit1.Text;
  ADOQuery1.FieldByName('cena').AsString := Edit2.Text;
  ADOQuery1.FieldByName('koli4estvo').AsString := Edit3.Text;
  ADOQuery1.FieldByName('ed_izmer').AsString := Edit4.Text;
  ADOQuery1.Post;
  end;
end;

[grom333]

Serge_Bliznykov, спасибо большое быстро, точно и в точку!
Кому нужен точный код для своих проектов

procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOQuery1.Locate('name', Edit1.Text, [] ) then begin
  ADOQuery1.Edit;
  ADOQuery1.FieldByName('koli4estvo').AsInteger := ADOQuery1.FieldByName('koli4estvo').AsInteger + StrToInt(Edit3.Text);
  ADOQuery1.Post;
end
else begin
ADOQuery1.Insert;
  ADOQuery1.FieldByName('name').AsString := Edit1.Text;
  ADOQuery1.FieldByName('cena').AsString := Edit2.Text;
  ADOQuery1.FieldByName('koli4estvo').AsString := Edit3.Text;
  ADOQuery1.FieldByName('ed_izmer').AsString := Edit4.Text;
  ADOQuery1.Post;
  end;
end;