Как Сделать Организовать покупку

[Black_Wolf]

Есть 2 таблицы Товары и заказы. Допустим в магазине 100 единиц. Надо добавить в таблицу товары так чтобы от товаров в магазине отнялось же количество которое заказали и если это количество достигнет 0 писалось в спец. поле "нет в наличии''.

Связь Delphi + Access 2007 через ADOTable
В Бд 2 таблицы "Товары в Магазине" и "Корзина"

Отображено через DBGrid1 и DBGrid2 .

Поля "Товары в Магазине"
ID
название товара
цена
количеств

Поля "Корзина "
ID заказа
название товара
количество заказанного
Нужен код на кнопку так чтоб поля название товара переместилось в таблицу "Корзина " .
И самое главное от количество "Товары в Магазине" отняло то количество которое добавили в таблицу "Корзина"

[Stilet]

Ты принял товары от поставщика в определенном количестве - этот документ (накладная) записывается как очередная запись в базу склада. Суммарная цифра по принятым накладным от поставщика даст общий остаток товара на складе.
Далее ты продаешь - так же формируется накладная на передачу определенного колва товаров получателю. Получается новая запись со статусом продажи и количеством проданного товара.

И вот что у тебя записано в базе:
01 05 2012 Чупачупс 20шт розница 5 баксов
02 05 2012 Сникерс 80шт розница 15 баксов
02 05 2012 Чупачупс 8шт розница 5 баксов

Это принято на складе. Запрос типа

 select count(кол-во) from товары group by ассортимент товара

даст тебе таблицу
Чупачупс - 28
Сникерс - 80

Далее ты продаещь - делаешь запись в БД
02 05 2012 Покупатель 1 Чупачупс 1шт
02 05 2012 Покупатель 2 Чупачупс 3шт
02 05 2012 Покупатель 2 Сникерс 1шт

При этом получив кол-во товаров на складе прибавляешь к этому числу (запросом конечно же) проданное - Если оно меньше нуля проводка отменяется, покупателю предлагается купить товар в меньшем количестве.
Сам запрос зависит от того как ты построишь свою базу.
Т.е он может выглядеть типа:

select 
 count(кол-во)-(select count(Ассортимент) from товары т2 
   where т2.Ассортимент=т1.Ассортимент) 
from товары т1
group by ассортимент товара

И остается посмотреть в каких записях минуса.

Сразу скажу - не стоит корректировать кол-во товара на складе напрямую. Лучше формировать документы прихода-расхода, а уже после группируя их добиваться своей цели. Если станешь изменять (отнимать кол-во товара остатка на складе) при продаже, то после можешь просто концы с концами не свести а что же и как было продано. Каждая продажа должна отражаться в базе в виде документа, характеризующуего эту продажу
Все должно проводиться как совокупность документов на приход и расход.
И не волнуйся за запутанность - если правильно построишь реляции, ты ее просто не заметишь. И в товарном отчете твое сальдо будет выглядеть правдоподобнее
Теория ясна?

[Black_Wolf]

Есть ли варианты организовать через всё через Delphi ? без SQL

[Stilet]

Есть. Чем SQL не угодил?

[Black_Wolf]

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

Есть. Чем SQL не угодил?

Так надо, нужен Delphi Код

[Stilet]

Так ведь SQL можно и в программе Делфи использовать. В компонентах типа Query.
Я просто никак не могу представить как этопроще сделать обычными методами компонентов... Дале lookUp возможности тут придется наворачивать до тонны кода (имхо)

[haker270]

У меня немножко по другому, можете помочь)
есть 2 таблицы "Доступный товар"(Название,Модель, Цена, Количество) и "Окно заказа"(Название,Модель, Цена). Обе размещены на форме через DBGrid, а в проекте через ADOQuery. Я не могу сделать, чтобы при выборе товара с таблицы "Доступный товар", запись появлялась в в таблице "Окно заказа", при этом с уменьшалось кол-во с доступного товара. На кнопке выбрать я прописал код, но он только перемещает с таблицы в таблицу, но не отнимает кол-во(
вот код:

Form1.DBGrid2.DataSource.DataSet.Insert;
Form1.DBGrid2.DataSource.DataSet.FieldByName('t_nazvanie').AsString:=Form1.DBGrid1.DataSource.DataSet.FieldByName('t_nazvanie').AsString;
Form1.DBGrid2.DataSource.DataSet.FieldByName('t_id_firma').AsString:=Form1.DBGrid1.DataSource.DataSet.FieldByName('t_id_firma').AsString;
Form1.DBGrid2.DataSource.DataSet.FieldByName('t_model').AsString:=Form1.DBGrid1.DataSource.DataSet.FieldByName('t_model').AsString;
Form1.DBGrid2.DataSource.DataSet.FieldByName('t_cena').AsInteger:=Form1.DBGrid1.DataSource.DataSet.FieldByName('t_cena').AsInteger;
Form1.DBGrid2.DataSource.DataSet.Post;

[Stilet]

Ну если ты все же хочешь именно отнимать из базы склада цифру, то:

with Form1.DBGrid1.DataSource.DataSet do begin
 if (FieldByName('t_kolvo').AsInteger-1)>0 then begin Edit;
   FieldByName('t_kolvo').AsInteger:=FieldByName('t_kolvo').AsInteger-1;
   Post;
 end else ShowMessage('Сусеки пусты');
end;

Но это такой... скажем не самый лучший случай реализации.
Причем учти вместо -1 ты можешь поставить кол-во товара, который продал

[Geksod]

http://basicsprog.ucoz.ru/publ/3-2-2
Урок 1.1 Пишем программу складского учета.