Программирование в среде VisualFoxPro. Создание базы данных «Мебель», страница 5

MessageBox("Доля дешевых изделий: " + str (res) + "%")

Рис.31.Форма для вывода доли дешевых изделий.

                    

Рис.32. Результат запроса (цена до 10 000 р) для заданного поставщика – Ikea (справа) и в целом (слева).

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

Код запроса:

select avg(product.цена);

from mebel!product;

where (product.дата_прода between thisform.Text1.value and thisform.Text2.value)

Рис.33. Средняя стоимость мебели, проданной за определенный промежуток времени.

Найти все изделия, чья стоимость выше, чем средняя стоимость изделий заданного производителя (рис.34, 35):

Код запроса:

select avg (product.цена) as "Среднее" ;

from mebel!product;

where product.id_strana = val(thisform.Combo1.value)

select product.наименован,product.цена,product.количество;

from mebel!product;

where (product.цена > (select avg (product.цена)as "Среднее" from mebel!product;

where product.id_strana = val(thisform.Combo1.value) ))

Рис.34. Подзапрос.

Рис.35. Результат (страна Германия)

Найти самый популярный вид мебели (продано наибольшее количество) (рис.36):

Код запроса:

Select product.наименован,product.цена,vid.вид_мебели,max(product.количество);

from mebel!product;

inner join mebel!vid on product.id_vid = vid.id;

where (product.количество = (select max(product.количество)  from mebel!product))

Рис.36.Форма для запроса и результат.

Найти долю дешевой мебели (меньше заданного) от общего числа мебели (рис.37):

Код запроса:

SELECT  COUNT(product.id) FROM mebel!product into array tmp

SELECT COUNT(product.id)*100/tmp[1] as "Доля";

 FROM  mebel!product ;

 WHERE product.цена < thisform.Text1.value

Рис.37.Форма для запроса и результат.

6.Руководство пользователя

Разработана справочная система для расчётно-графической работы. В результате проделанной работы были реализованы следующие возможности:

  • Темы справочной системы
  • Ключи для поиска тем
  • Перекрёстные ссылки
  • Пояснения к терминам

Результаты работы проиллюстрированы на приведённых ниже рисунках:

Рис.44. Содержание.

Рис.45. Пояснения к терминам.

Рис.46. Перекрестные ссылки.

Рис.47.Предметный указатель.

7.Выводы и анализ результатов

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

В процессе выполнения данной расчётно-графической работы были закреплены знания и навыки, полученные в ходе сдачи лабораторных работ, включающие в себя:

  • создание таблиц и связывание их между собой;
  • редактирование данных в таблицах;
  • разработка экранных форм, позволяющих получать данные от пользователя, что приводит к возможности создания гибких запросов, результаты которых зависят от заданных пользователями условий
  • меню приложений, облегчающего доступ и ускоряющего работу;
  • создание запросов и подзапросов;

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


8. Использованная литература

1)  Базы данных. Методические указания к лабораторному практикуму.- Новосибирск: Издательство НГТУ, 2004. – 56с.

2)  Иллюстрированный самоучитель по Visual FoxPro 8 (электронный вариант)