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

Все самолёты, поступившие из города

Рис. 24. Все самолёты, поступившие из города

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

cntr = thisform.combo1.value

cnt = thisform.text1.value

do query6.qpr

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

SELECT Asl.type as тип_самолёта, Asl.year as год_выпуска, city.country as место_изготовления, Asl.count as вместительность;

FROM asl!asl INNER JOIN asl!city;

On asl.a_id=city.a_id;

 WHERE city.country = cntr;

   AND Asl.count > cnt;

 ORDER BY Asl.count

Количество самолётов со определенным сроком эксплуатации

Рис. 25. Количество самолётов со  сроком эксплуатации 20 лет

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

t = thisform.text1.value

do query7_1.qpr

do query7_2.qpr

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

SELECT Asl.type as тип_самолета,COUNT(Asl.type) as количество;

FROM asl!asl INNER JOIN asl!srok;

On asl.a_id=srok.a_id;

 WHERE srok.time = t and Asl.type=c;

 ORDER BY Asl.type

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

SELECT COUNT(Asl.type) as Количество;

FROM asl!asl INNER JOIN asl!srok;

On asl.a_id=srok.a_id;

 WHERE srok.time = t

Рис. 26. Количество самолётов со  сроком эксплуатации 20 лет

Для заданного типа самолёта найти все, выпущенные в период, чья стоимость находится в заданных пределах

Рис. 27. Задание параметров

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

tp = thisform.combo1.value

y1 = thisform.text1.value

y2 = thisform.text2.value

p1 = thisform.text3.value

p2 = thisform.text4.value

do query8.qpr

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

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

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

 FROM asl!asl;

 WHERE UPPER(Asl.type) = UPPER(tp);

   AND Asl.year BETWEEN y1 AND y2;

   AND Asl.price BETWEEN p1 AND p2;

 ORDER BY Asl.year

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

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

Рис. 29. Выбор

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

n = thisform.combo1.value

do query9.qpr

do query9_1.qpr

aa = thisform.combo1.value

do query9.qpr

do query9_2.qpr

aa = thisform.combo1.value

do query9_3.qpr

do query9_4.qpr

do query9_5.qpr

do query9_4.qpr

do query9_6.qpr

do query9_7.qpr

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

set safety off

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

 FROM  asl!asl INNER JOIN asl!reconst ;

   ON  Asl.a_id = Reconst.a_id;

 WHERE Reconst.a_id = aa;

 INTO TABLE query9.dbf

set safety on

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

SELECT Asl.a_id as борт_номер, Asl.type as тип_самолета, Asl.year as год_выпуска, Reconst.name as вид_ремонта, Reconst.price as стоимость_ремонта;

 FROM  asl!asl INNER JOIN asl!reconst;

   ON  Asl.a_id = Reconst.a_id;

 WHERE Reconst.a_id = aa;

   AND Reconst.price = Query9.max_price

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

SELECT Asl.a_id as борт_номер, Asl.type as тип_самолета, Asl.year as год_выпуска, Reconst.name as вид_ремонта, Reconst.price as стоимость_ремонта;

 FROM  asl!asl INNER JOIN asl!reconst ;

   ON  Asl.a_id = Reconst.a_id;

 WHERE Asl.a_id = aa;

   AND Reconst.price = Query9.min_price

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

SELECT Asl.a_id борт_номер, Asl.type as тип_самолета, Asl.year as год_выпуска, AVG(Reconst.price) as средняя_стоимость;

 FROM  asl!asl INNER JOIN asl!reconst ;

   ON  Asl.a_id = Reconst.a_id;

 WHERE Asl.a_id = aa

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

set safety off

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

 FROM asl!reconst;