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

thisform.pageframe1.page1.text1.value=max_min_avg(3)

case thisform.pageframe1.page1.optiongroup2.value==4

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.cost > val(thisform.pageframe1.page1.text2.value)

endcase

Найти количество напитков, выпущенных за определенный период (месяц, 3месяца, 6 месяцев), среднюю стоимость за тот же период, самый дорогой напиток, самый дешевый напиток емкость.

dimension n_mounth(1)

do case

case thisform.pageframe1.page1.optiongroup3.value==1

n_mounth=1

case thisform.pageframe1.page1.optiongroup3.value==2

n_mounth=3

case thisform.pageframe1.page1.optiongroup3.value==3

n_mounth=6

endcase

SELECT COUNT(drinks_view.name) AS "Выпущено_штук",;

       AVG(drinks_view.cost) AS "Средняя_стоимость",;

       MAX(drinks_view.cost) AS "Максимальная_стоимость",;

       MIN(drinks_view.cost) AS "Минимальная_стоимость",;

       SUM(drinks_view.cap) AS "Суммарная_емкость";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE (MONTH(DATE()) - MONTH(drinks_view.made_date)) <= n_mounth;

       AND YEAR(drinks_view.made_date)= YEAR(DATE())

SELECT drinks_view.name AS "Самый_дорогой_напиток",;

       drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.cost = (SELECT MAX(drinks_view.cost);

                          FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

                          WHERE (MONTH(DATE()) - MONTH(drinks_view.made_date)) <= n_mounth;

                          AND YEAR(drinks_view.made_date)= YEAR(DATE()))

SELECT drinks_view.name AS "Самый_дешевый_напиток",;

       drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.cost = (SELECT MIN(drinks_view.cost);

                          FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

                          WHERE (MONTH(DATE()) - MONTH(drinks_view.made_date)) <= n_mounth;

                          AND YEAR(drinks_view.made_date)= YEAR(DATE()))  

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

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.country = thisform.pageframe1.page1.Combo1.value into array country_one

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW into array country_all

thisform.pageframe1.page1.text3.value = country_one/country_all

Найти все напитки с заданной датой выпуска.

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.made_date = thisform.pageframe1.page2.text1.value 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.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE Drinks_view.made_date = thisform.pageframe1.page2.text1.value

endif;

ENDPROC

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

cost_1=VAL(thisform.pageframe1.page2.text3.value)

cost_2=VAL(thisform.pageframe1.page2.text4.value)

SELECT COUNT(drinks_view.name);

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 into array num_found

if num_found = 0