Информатика и выч. техника \ Базы данных

Создание и заполнение базы данных "Напитки", страница 4

   MessageBox("По данному запросу напитков не неайдено!")

else  

SELECT drinks_view.kind AS "Тип",;

       drinks_view.name AS "Наименование",;

       YEAR(drinks_view.made_date) AS "Год_выпуска",;

       drinks_view.country AS "Страна_изготовитель",;

       drinks_view.cap AS "Емкость",;

       drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.cap = VAL(thisform.pageframe1.page2.text2.value);

AND  Drinks_view.cost BETWEEN cost_1 and cost_2

endif;

ENDPROC

Найти долю напитков, поступивших от заданного поставщика от общего числа напитков.

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.diller = thisform.pageframe1.page2.text5.value into array diller_one

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW into array diller_all

thisform.pageframe1.page2.text6.value = diller_one/diller_all

Найти весь товар с заданным весом, чья емкость находится в заданных пределах.

cap_1 = VAL(thisform.pageframe1.page2.text8.value)

cap_2 = VAL(thisform.pageframe1.page2.text9.value)

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.weight = VAL(thisform.pageframe1.page2.text7.value);

AND  Drinks_view.cap BETWEEN  cap_1 and cap_2 into array num_found

if num_found = 0

   MessageBox("По данному запросу напитков не найдено!")

else  

SELECT drinks_view.kind AS "Тип",;

       drinks_view.name AS "Наименование",;

       YEAR(drinks_view.made_date) AS "Год_выпуска",;

       drinks_view.country AS "Страна_изготовитель",;

       drinks_view.cap AS "Емкость",;

       drinks_view.weight AS "Вес",;

       drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.weight = VAL(thisform.pageframe1.page2.text7.value);

AND  Drinks_view.cap BETWEEN cap_1 and cap_2

endif;

ENDPROC

Найти весь товар, поступивший от заданного поставщика, чья стоимость больше заданной.

min_cost = VAL(thisform.pageframe1.page2.text11.value)

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.diller = thisform.pageframe1.page2.text10.value;

AND  Drinks_view.cost >  min_cost into array num_found

if num_found = 0

   MessageBox("По данному запросу напитков не найдено!")

else  

   drinks_view.kind AS "Тип",;

   drinks_view.name AS "Наименование",;

   YEAR(drinks_view.made_date) AS "Год_выпуска",;

   drinks_view.country AS "Страна_изготовитель",;                        

   drinks_view.diller AS "Поставщик",;

   drinks_view.cap AS "Емкость",;

   drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.diller = thisform.pageframe1.page2.text10.value;

AND  Drinks_view.cost >  min_cost

endif;

ENDPROC

Найти весь товар заданного производителя.

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.made_by = thisform.pageframe1.page2.combo1.value into array num_found

if num_found = 0

   MessageBox("По данному запросу напитков не найдено!")

else  

SELECT drinks_view.kind AS "Тип",;

       drinks_view.name AS "Наименование",;

       drinks_view.made_date AS "Дата_выпуска",;

       drinks_view.made_by AS "Производитель",;

       drinks_view.cap AS "Емкость",;

       drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.made_by = thisform.pageframe1.page2.combo1.value

endif;

ENDPROC

Найти долю напитков, проданных за определенный период, от общего времени продаж.

dimension sale_period(1)

sale_period = 0

if thisform.pageframe1.page3.text1.value >= thisform.pageframe1.page3.text2.value

Скачать файл