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

Код вычисления доли дешёвых самолётов, не превышающих стоимости ремонтных работ больше заданного:

LOCAL temp(1)

temp1=RECCOUNT()

SELECT count(aviasalon.вид_ремонта);

FROM  data_avia!aviasalon;

WHERE aviasalon.вид_ремонта != 0 and aviasalon.стоимость_ремонта <= thisform.text1.value;

INTO ARRAY temp

SELECT aviasalon.тип, vid_remonta.вид_ремонта, aviasalon.дата_ремонта, aviasalon.стоимость_ремонта;

FROM  data_avia!aviasalon;

INNER JOIN data_avia!vid_remonta ON aviasalon.вид_ремонта = vid_remonta.id_вид_ремонта;

WHERE aviasalon.вид_ремонта != 0 and aviasalon.стоимость_ремонта <= thisform.text1.value;

order by aviasalon.стоимость_ремонта

result=temp/temp1*100

MessageBox("Доля дешёвых самолётов равна: " + alltrim(str(result))+" %")

11. Примеры работы программ

Сортировки:

  • по году выпуска для Боинга:

 

Рис. 20. Отсортированный список самолётов  по году выпуска  для вида самолёта - Боинг.

  • По стоимости ремонтных работ:

Рис. 21.Отсортированный список самолётов по стоимости ремонтных работ для Туполева-ТУ

  • по цене производителя:

Рис. 22. Отсортированный список самолётов по цене производителя для Ильюшин-ИЛ .

  • по сроку эксплуатации:

Рис. 23. Отсортированный список самолётов по сроку эксплуатации для Боинга.

Доля отремонтированных самолётов:

Рис. 24. Доля отремонтированных самолётов.

Самый дорогой, дешевый самолёты, а также средняя стоимость самолётов:

Рис. 25. Самый дорогой самолёт.

Рис. 26. Самый дешевый самолёт.

Рис. 27. Средняя стоимость самолётов.

Самолёты свыше заданной цены:

           

Рис. 28. Самолёты свыше заданной цены(свыше 8000 руб).

Самолёты заданного производителя, с учётом вместительности:

 

Рис. 29. Самолёты заданного производителя, с учётом вместительности

Самолёты с заданным типом для заданного срока эксплуатации:

      

Рис. 30. Самолёты с заданным типом для заданного срока эксплуатации

Самолётов данного типа в определенный  период, с определённой стоимостью:

Рис. 31. Самолётов данного типа в определенный  период, с определённой стоимостью

Товар по дате поступления:

Рис. 32. Самый дорогой вид ремонта для Боинг-747

Рис. 33. Самый дешёвый вид ремонта для Боинга-747

Рис. 34. Средняя стоимость ремонтов Боинга-747

Рис. 35. Самый дорогой вид ремонта

Рис. 36. Самый дешёвые виды ремонта

Рис. 37.Средняя стоимость всех ремонтов.

Самолёты со стоимостью ремонтных работ, не превышающие данного ограничения:

 

Рис. 38. Самолёты со стоимостью ремонтных работ, не превышающие данного ограничения.

Количество отремонтированных самолётов  и средняя стоимость ремонтных работ за последний месяц:

  

Рис. 39.Количество отремонтированных самолётов  и средняя стоимость ремонтных работ за последний месяц

Количество отремонтированных самолётов  и средняя стоимость ремонтных работ за последний квартал:

Рис. 40.Количество отремонтированных самолётов  и средняя стоимость ремонтных работ за последний месяц

Доля дешёвых самолётов, не превышающих стоимости ремонтных работ больше заданного:

Рис. 41. Доля дешёвых самолётов, не превышающих стоимости ремонтных работ больше заданного.

12. Выводы

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

В целом, от СУБД FoxPro остались положительные впечатления, данная среда возможна для самообразования, а с помощью мастера можно легко и  быстро создать и заполнить любую  базу данных.


13.Список использованной литературы

  1. Лекции по дисциплине «Системы управления базами данных».
  2. Русифицированный help-файл по Visual FoxPro 5.1.
  3. Омельченко Л.Н Самоучитель по VSF 6.0, БХВ - Санкт-Петербург, 1999г - 512с.