Создание и заполнение базы данных «Кондитерские изделия», страница 3

------------------------------------

DO query2.qpr

------------------------------------

DO query3.qpr

------------------------------------

DO query4.qpr

------------------------------------

RELEASE WINDOWS

DO FORM ".\form8.scx"

Содержимое вышеперечисленных запросов в порядке следования:

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM izdelie;

 ORDER BY Izdelie.дата_изг

------------------------------------

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM izdelie;

 ORDER BY Izdelie.название

------------------------------------

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM izdelie;

 ORDER BY Izdelie.вес_грамм

------------------------------------

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM izdelie;

 ORDER BY Izdelie.цена_руб

Рис 18. Пример работы запроса (сортировка по дате изготовления)

Рис 19. Пример работы запроса (сортировка в алфавитном порядке)

Рис 20. Пример работы запроса (сортировка по весу)

Рис 21. Пример работы запроса (сортировка по цене)

Поиск по цене

Рис. 22. Меню запроса

Код метода Click кнопок «Самое дорогое», «Самое дешевое», «Средняя цена», «Стоимости отдельно», «Назад»:

DO query7.qpr

------------------------------------

DO query6.qpr

------------------------------------

DO query8.qpr

------------------------------------

DO query5.qpr

BROWSE

------------------------------------

RELEASE WINDOWS

DO FORM ".\form8.scx"

Содержимое вышеперечисленных запросов в порядке следования:

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM ;

     izdelie,;

    zapros_stoimost;

 WHERE  Izdelie.цена_руб = Zapros_stoimost.max_цена_р

------------------------------------

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM ;

     izdelie,;

    zapros_stoimost;

 WHERE  Izdelie.цена_руб = Zapros_stoimost.min_цена_р

------------------------------------

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM ;

     izdelie,;

    zapros_stoimost;

 WHERE  Izdelie.цена_руб = Zapros_stoimost.avg_цена_р

------------------------------------

SELECT MIN(Izdelie.цена_руб), MAX(Izdelie.цена_руб),;

  AVG(Izdelie.цена_руб);

 FROM ;

     izdelie;

 INTO TABLE zapros_stoimost.dbf 

Рис. 23. Результат (max)

Рис. 24. Результат (min)

Рис. 25. Результат (avg)

Рис. 26. Результат (стоимости отдельно)

Товар с ценой выше заданной

Рис. 27. Меню запроса

Код метода Click кнопки «Показать изделия …», «Назад»:

cena = thisform.text1.value

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;

  Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;

 FROM ;

     izdelie;

WHERE  Izdelie.цена_руб> ( cena );

ORDER BY Izdelie.цена_руб

------------------------------------

RELEASE WINDOWS

DO FORM ".\form8.scx"

Рис. 28. Результат

Количество товара, проданного за период

Рис. 29. Меню запроса

Код метода Initэлемента ComboBox:

this.List(1)="1"

this.List(2)="3"

this.List(3)="6"

Код метода Click кнопки «Найти количество товара …», «Минимальная стоимость…», «Средняя стоимость…», «Максимальная стоимость…», «Стоимости отдельно», «Назад»:

y = thisform.combo1.value

IF y == '1'

      SELECT SUM(Klient.колво_мес) FROM klient

ENDIF

IF y == '3'

      SELECT SUM(Klient.колво_3мес) FROM klient

ENDIF

IF y == '6'

      SELECT SUM(Klient.колво_6мес) FROM klient

ENDIF

------------------------------------

y = thisform.combo1.value

IF y == '1'

      SELECT Izdelie.название, Table3.min_exp_3 AS общая_стоимость,;