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

   messagebox("Период задан неверно!")

else

   SELECT SUM(drink_sale.number);

   FROM   drink_database!drinks_view INNER JOIN drink_database!drink_sale ;

   ON  Drinks_view.name = Drink_sale.name;

   WHERE drink_sale.sale_date BETWEEN thisform.pageframe1.page3.text1.value;

   and thisform.pageframe1.page3.text2.value into array sale_period

   SELECT SUM(drink_sale.number);

   FROM   drink_database!drinks_view INNER JOIN drink_database!drink_sale ;

   ON  Drinks_view.name = Drink_sale.name into array sale_all

   if sale_period = 0

      thisform.pageframe1.page3.text3.value = 0

      Messagebox("В указанный период ничего не продано!")

   else

      thisform.pageframe1.page3.text3.value = sale_period/sale_all

   endif

endif;

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

SELECT drinks_view.cost;

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.name = thisform.pageframe1.page4.text3.value into array min_cost

SELECT 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.diller AS "Поставщик",;

       drinks_view.cost AS "Цена";

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.diller = thisform.pageframe1.page4.text1.value;

  AND drinks_view.country = thisform.pageframe1.page4.text2.value;

  AND drinks_view.cost > min_cost

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

dimension kol_cost_all(1)

dimension kol_cost_diller(1)

kol_cost_all = 0

kol_cost_diller = 0

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW into array kol_all

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.diller = thisform.pageframe1.page4.text6.value;

  and drinks_view.cost < val(thisform.pageframe1.page4.text5.value) into array kol_cost_diller

SELECT COUNT(drinks_view.name);

FROM  DRINK_DATABASE!DRINKS_VIEW DRINKS_VIEW;

WHERE drinks_view.cost < val(thisform.pageframe1.page4.text5.value) into array kol_cost_all

if (kol_cost_diller = 0) and (kol_cost_all = 0)

   thisform.pageframe1.page4.text7.value = 0

   thisform.pageframe1.page4.text8.value = 0

   Messagebox("Таких напитков нет!")

else

   if kol_cost_diller = 0

      thisform.pageframe1.page4.text7.value = 0

      Messagebox("От заданного поставщика напитков по запросу нет!")

   else

      thisform.pageframe1.page4.text7.value = kol_cost_diller/kol_all

   endif

   if kol_cost_all = 0

      thisform.pageframe1.page4.text7.value = 0

      Messagebox("Напитков по запросу нет!")

   else

      thisform.pageframe1.page4.text8.value = kol_cost_all/kol_all

   endif

endif

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

dimension sale_period_sum(1)

dimension sale_period_num(1)

sale_period_sum = 0

sale_period_num = 0

if thisform.pageframe1.page3.text4.value >= thisform.pageframe1.page3.text5.value

   messagebox("Период задан неверно!")

else

   SELECT SUM(drink_sale.number);

   FROM   drink_database!drinks_view INNER JOIN drink_database!drink_sale ;

   ON  Drinks_view.name = Drink_sale.name;

   WHERE drink_sale.sale_date BETWEEN thisform.pageframe1.page3.text4.value;

   and thisform.pageframe1.page3.text5.value into array sale_period_num

   SELECT SUM((drink_sale.number)*(drinks_view.cost));

   FROM   drink_database!drinks_view INNER JOIN drink_database!drink_sale ;

   ON  Drinks_view.name = Drink_sale.name;

   WHERE drink_sale.sale_date BETWEEN thisform.pageframe1.page3.text4.value;

   and thisform.pageframe1.page3.text5.value into array sale_period_sum