Формирование баз данных "Авиасалон", "Ремонт", страница 2

Рис.12. Пример отчета

Выбор запроса

Рис. 13. Выбор запроса

Код метода Click кнопок «Запрос1», «Запрос12»

do form fq1.scx

…

do form fq1.scx

Все сведения о самолётах авиасалона

Рис 14. Все сведения о самолётах авиасалона

Код метода Click кнопки «Вывести»

do query1.qpr

Текстзапроса query1.qpr:

select asl.a_id as борт_номер, asl.type as тип_самолёта, asl.year as год_выпуска, asl.price as стоимость, asl.v as скорость, asl.count as вместительность, city.country as место_изготовления, srok.time as срок_эксплуатации;

FROM asl!asl INNER JOIN asl!city;

On asl.a_id=city.a_id;

INNER JOIN asl!srok ON  asl.a_id=srok.a_id;

ORDER BY asl.type

Рис 15. таблица результатов

Список, отсортированный по параметрам

Рис. 16. Список, отсортированный по параметрам

Код метода Click кнопок «Показать»

do query2_1.qpr

do query2_2.qpr

do query2_3.qpr

do query2_4.qpr

Текст запроса query2_1.qpr:

SELECT Asl.type as тип_самолета, Asl.year as год_выпуска;

 FROM asl!asl;

 ORDER BY Asl.year

Рис 17. таблица результатов

Текст запроса query2_2.qpr:

SELECT DISTINCT Asl.type as тип_самолета, Reconst.name as вид_ремонта, Reconst.price as стоимость_ремонта_у_е;

 FROM  asl!asl INNER JOIN asl!reconst ;

   ON  Asl.a_id = Reconst.a_id;

 ORDER BY Reconst.price

Текстзапроса query2_3.qpr:

SELECT Asl.type as тип_самолета, Asl.price as цена_производителя_у_е;

 FROM asl!asl;

 ORDER BY Asl.price

Текстзапроса query2_4.qpr:

SELECT Asl.type as тип_самолета, srok.time as срок_эксплуатации_в_годах;

FROM asl!asl INNER JOIN asl!srok;

On asl.a_id=srok.a_id;

 ORDER BY srok.time

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

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

Код метода Click кнопки «Вывести»

do query3_1.qpr

do query3_2.qpr

Текст запроса query3_1.qpr:

set safety off

sELECT Reconst.a_id;

 FROM asl!reconst;

 GROUP BY Reconst.a_id;

 INTO TABLE query3_1.dbf

set safety on

Текстзапроса query3_2.qpr:

SELECT COUNT(Query3_1.a_id) /  COUNT(Asl.a_id) as Доля_отремонтированных;

 FROM  asl!asl FULL JOIN query3_1 ;

   ON  Asl.a_id = Query3_1.a_id

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

Найти самый дорогой самолёт, самый дешевый самолёт, среднюю стоимость.

Рис. 20. Найти самый дорогой самолёт, самый дешевый самолёт, среднюю стоимость

Код метода Click кнопок «Показать»

do query4.qpr

do query4_1.qpr

do query4.qpr

do query4_2.qpr

do query4_3.qpr

Текстзапроса query4.qpr:

set safety off

SELECT MIN(Asl.price), MAX(Asl.price) ;

 FROM asl!asl;

 INTO TABLE query4.dbf

set safety on

Текстзапроса query4_1.qpr:

SELECT Asl.type AS тип_самолета, Asl.year AS год_выпуска, Asl.price as стоимость_у_е;

 FROM asl!asl;

 WHERE Asl.price = query4.max_price

Текстзапроса query4_2.qpr:

SELECT Asl.type AS тип_самолета, Asl.year AS год_выпуска,;

  Asl.price AS стоимость_у_е;

 FROM asl!asl;

 WHERE Asl.price = Query4.min_price

Текст запроса query4_2.qpr:

SELECT AVG(Asl.price)as Средняя_стоимость_у_е;

 FROM asl!asl

 

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

Найти самолёты с ценой свыше определенного значения

Рис.22 самолёты с ценой свыше определенного значения

Код метода Click кнопки «Найти»

pr = thisform.text1.value

do query5.qpr

Текст запроса query5.qpr:

SELECT Asl.type as тип_самолёта, Asl.year as год_выпуска, Asl.price as стоимость;

 FROM asl!asl;

 WHERE Asl.price > pr;

 ORDER BY Asl.price

            Рис. 23. Свыше 500000.