44
Создание SQL запросов
SQL запрос ADOQuery_Prihod на суммирование в форме Select_prod:
SELECT Storage.id_product, Sum([Storage].[price]*[Storage].[quantity]) AS
sum_price, Sum(Storage.quantity) AS [Sum-quantity], Storage.id_ed_izmer
FROM Storage
GROUP BY Storage.id_product, Storage.id_ed_izmer;
SQL запрос ADOQuery_Rashod на суммирование в форме
Product_selectioon:
SELECT Rashod.id_product, Sum([Rashod].[price]*[Rashod].[quantity]) AS
sum_price, Sum(Rashod.quantity) AS [Sum-quantity], Rashod.id_ed_izmer
FROM Rashod
GROUP BY Rashod.id_product, Rashod.id_ed_izmer;
45
Рисунок 14. Схема данных
Схема данных была создана специально для дипломной работы, в самой
базе ее нет, все связи были построены в Borland Delphi 7.
Стоит так же отметить, что SQL запросы и некоторые поля создавались
непосредственно в Borland Delphi 7.
46
2.2. Создание интерфейса, экранных форм ввода-вывода и отчетов
Подключение к базе данных
Для подключения к базе данных на форме нужен компонент
TADOConnection, так как пароль в данной дипломной работе не нужен, то в
свойстве LoginPromt стоит значение False. Следующее свойство компонента -
ConnectionString, через него выбирается провайдер, в данном случае это
Microsoft Jet 4.0 OLE DB Provaider, там указан путь к БД и имя пользователя по
умолчанию, в данном случае Admin. В свойстве Mode в выпадающем списке
выбран cmShareDenyNone, а свойство Connected имеет значение True.
Рисунок 15. Форма Prihod
47
Рисунок 16. Форма Rashod
48
Создание SQL запросов
SQL запрос ADOQuery_Summa на суммирование в форме
Prihod_prod:
SELECT Storage.id_prihod, Sum([Storage].[quantity]*[Storage].[price]) AS [sum]
FROM Storage
GROUP BY Storage.id_prihod
HAVING (((Storage.id_prihod)=:id));
SQL запрос ADOQuery_Summa на суммирование в форме
Rashod_prod:
SELECT Rashod.id_rashod_doc, Sum([Rashod].[quantity]*[Rashod].[price]) AS
[Sum]
FROM Rashod
GROUP BY Rashod.id_rashod_doc
HAVING (((Rashod.id_rashod_doc)=:id));
49
Рисунок 17. Форма Prihod_prod
50
Рисунок 18. Форма Rashod_prod
51
Рисунок 19. Форма Select_prod
52
Рисунок 20. Форма Product_selection
53
SQL запрос ADOQuary_Ostatki на подсчет остатков на форме Ostatki:
SELECT Products.product_name, ADOQuery_Prihod.id_product,
[ADOQuery_Prihod].[Sum-quantity]-IIf([ADOQuery_Rashod].[Sum-
quantity]>0,[ADOQuery_Rashod].[Sum-quantity],0) AS Ostatok,
[ADOQuery_Prihod].[Sum_price]-
IIf([ADOQuery_Rashod].[Sum_price]>0,[ADOQuery_Rashod].[Sum_price],0) AS
Summa, ADOQuery_Prihod.id_ed_izmer, Products.id_product_group,
Ed_izmer.ed_name
FROM ((ADOQuery_Prihod LEFT JOIN ADOQuery_Rashod ON
ADOQuery_Prihod.id_product = ADOQuery_Rashod.id_product) LEFT JOIN
Ed_izmer ON ADOQuery_Prihod.id_ed_izmer = Ed_izmer.id) LEFT JOIN Products
ON ADOQuery_Prihod.id_product = Products.id;