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

 FROM table5,;

  ;

     izdelie ;

    FULL JOIN postavka ;

   ON  Izdelie.название = Postavka.название;

   WHERE izdelie.цена_руб < ( cena5 )

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

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

Определить какие изделия портятся при заданной температуре

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

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

temp = thisform.text1.value

SELECT Hranenie.название, Hranenie.т_хранения as необходимая_температура_хранения, Hranenie.порча_дней as испортится_через_столько_дней;

 FROM hranenie;

 WHERE  Hranenie.т_хранения < temp

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

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

Составить списки продукции для клиентов

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

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

this.List(1)="Иванов И.П."

this.List(2)="Зеленцов А.А."

this.List(3)="Поддельский И.К."

this.List(4)="Чесноков В.Л."

this.List(5)="Каргапольцев П.П."

this.List(6)="Тарасов К.Г."

this.List(7)="Самойлов В.В."

this.List(8)="Кучерявин Е.К."

this.List(9)="Тунцов А.П."

this.List(10)="Потапов Г.И."

Код метода Click кнопки «Вывести список…», «Назад»:

klient = thisform.combo1.value

SELECT Klient.фио, Izdelie.название,;

  Izdelie.цена_руб AS цена_за_ед_товара,;

  (100-Postavka.брак) AS качество_процент, Postavka.фирма,;

  Klient.колво_мес, (Izdelie.цена_руб*Klient.колво_мес) AS цена_за_мес,;

  Klient.колво_3мес,;

  (Izdelie.цена_руб*Klient.колво_3мес) AS цена_за_3мес,;

  Klient.колво_6мес,;

  (Izdelie.цена_руб*Klient.колво_6мес) AS цена_за_6мес;

 FROM ;

     izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название ;

    FULL JOIN postavka ;

   ON  Izdelie.название = Postavka.название;

 WHERE  Klient.фио = klient

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

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

Найти список товара заданной стоимости

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

Код метода Click кнопки «Вывести список…», «Назад»:

cena6 = thisform.text1.value

cena7 = thisform.text2.value

SELECT Izdelie.название, Izdelie.цена_руб, Postavka.фирма,;

  Postavka.город, Postavka.кол_во, 100-Postavka.брак as Качество_процент;

 FROM ;

     izdelie ;

    FULL JOIN postavka ;

   ON  Izdelie.название = Postavka.название;

 WHERE  Izdelie.цена_руб <= cena7;

   AND  Izdelie.цена_руб >= cena6

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

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

Выводы

Результатом выполнения работы является база данных «Кондитерские изделия», состоящая из 4 основных таблиц, связанных между собой, также разработаны экранные формы, позволяющие получать данные от пользователя, предназначенные для редактирования данных, для выполнения запросов, заданных заданием. Создано меню для легкой и быстрой работы с базой данных.

 В итоге, после выполнения расчетно-графической работы, закреплены знания и навыки, полученные в ходе выполнения лабораторных работ. Программирование запросов осуществлялось с помощью языка программирования Visual FoxPro 9.0, достаточно простого в работе и в изучении. В целом выполнение расчетно-графической работы было достаточно интересным, хотя несколько сложным. Полученный навык создания и управления базой данных, несомненно, найдет применение в дальнейшей деятельности студента.

Список литературы

1) Малыхина М.П. Базы данных: основы, проектирование, использование, 2-е изд. перераб. и доп. – СПб.: БХВ-Петербург, 2006. – 528 с.: ил.

2) Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. проф. А.Д. Хомоненко. – 5-е изд., доп. – М.: Бином-Пресс; СПб.: КОРОНА принт, 2006. – 736 с.

3) Интернет-учебник: «Иллюстрированный самоучитель по Visual FoxPro»