Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.05.2014, 16:00
Volchok2010 Volchok2010 вне форума
Прохожий
 
Регистрация: 25.05.2014
Сообщения: 14
Версия Delphi: 7
Репутация: 10
Сообщение Для диплома нужна помощь

1)создаю "АИС склад" на делфи,
имеется список товаров и их кол-во.
например перчатки 150 шт
2)эти товары продаются.
3)т.е. открывается "форма 2"- там указывается наименование товара(перчатки) и указывается то кол-ко которое мы указываем.

4)ВОПРОС: как сделать так чтобы при продаже (перчаток) из 150 шт отнялось то кол-во которое мы указали в "форма 2"
Ответить с цитированием
  #2  
Старый 25.05.2014, 16:22
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

используй операцию вычитания
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 25.05.2014, 16:23
Volchok2010 Volchok2010 вне форума
Прохожий
 
Регистрация: 25.05.2014
Сообщения: 14
Версия Delphi: 7
Репутация: 10
По умолчанию

хахаха,
код пожалуйста!)
Ответить с цитированием
  #4  
Старый 25.05.2014, 17:20
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Это не совсем верно. Нормальный склад не торгует, он хранит и регистрирует поступление/отправку товара. И все что вам нужно, это иметь журнал поступления/отправки товара. Всякий раз как возникает потребность отправить товар со склада подсчитывается остаток по этому самому журналу. (Для реального склада еще можно подсчитать возможность размещения новой партии товара)
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 25.05.2014, 18:11
Volchok2010 Volchok2010 вне форума
Прохожий
 
Регистрация: 25.05.2014
Сообщения: 14
Версия Delphi: 7
Репутация: 10
По умолчанию

это как бы и склад и магазин
Ответить с цитированием
  #6  
Старый 25.05.2014, 18:12
Volchok2010 Volchok2010 вне форума
Прохожий
 
Регистрация: 25.05.2014
Сообщения: 14
Версия Delphi: 7
Репутация: 10
По умолчанию

помоги пожалуйста с кодом а )
Ответить с цитированием
  #7  
Старый 25.05.2014, 18:31
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Да нафиг вам диплом с такой-то учебой?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #8  
Старый 25.05.2014, 20:43
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Эх молодеж...
Ну вот смотрите. Создаем журнал:
ID Production Quantity Operation
1 Носки 100 Поступление
2 Майки 200 Поступление
3 Перчатки 140 Поступление
4 Перчатки 40 Отправка
5 Носки 90 Отправка
6 Носки 30 Поступление
7 Ботинки 400 Поступление
8 Полотенце 45 Поступление

Создаем для удобства 2 запроса с информацией по Поступлению:
Код:
SELECT Table2.Production, Sum(Table2.Quantity) AS SumOfQuantity
FROM Table2
WHERE (((Table2.Operation)="Поступление"))
GROUP BY Table2.Production;
и информацией по Отправке:
Код:
SELECT Table2.Production, Sum(Table2.Quantity) AS SumOfQuantity
FROM Table2
WHERE (((Table2.Operation)="Отправка"))
GROUP BY Table2.Production;
Остается только получить свод по остаткам:
Код:
SELECT Поступление.Production, Поступление.SumOfQuantity AS Поступление, IIf([Отправка].[SumOfQuantity] Is Null,0,[Отправка].[SumOfQuantity]) AS Отправка, [Поступление]-[Отправка] AS Остаток
FROM Поступление LEFT JOIN Отправка ON Поступление.Production = Отправка.Production;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #9  
Старый 25.05.2014, 23:13
Volchok2010 Volchok2010 вне форума
Прохожий
 
Регистрация: 25.05.2014
Сообщения: 14
Версия Delphi: 7
Репутация: 10
По умолчанию

Спасибо ОГРОМНОЕ)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:04.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter