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

 aviasalon.место_изготовления, aviasalon.цена_производителя, aviasalon.скорость,;

  aviasalon.вместительность;

FROM  data_avia!aviasalon;

INNER JOIN data_avia!samolet ON aviasalon.вид_самолёта = samolet.id_вид_самолёта;

WHERE aviasalon.место_изготовления == thisform.combo1.value ;

AND aviasalon.вместительность >= thisform.combo2.value ;      

order by aviasalon.вместительность

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

LOCAL temp(1)

SELECT count(aviasalon.тип);

FROM  data_avia!aviasalon;

WHERE aviasalon.тип == thisform.combo1.value and aviasalon.срок_эксплуатации == thisform.text1.value;

INTO ARRAY temp

result=temp

MessageBox("Количество самолётов типа " + alltrim(thisform.combo1.value) + " равно :" + alltrim(str(result))+" штук")

LOCAL temp(1)

SELECT count(aviasalon.òèï);

FROM  data_avia!aviasalon;

WHERE aviasalon.срок_эксплуатации == thisform.text1.value;

INTO ARRAY temp

result=temp

MessageBox("Количество самолётов равно :" + alltrim(str(result))+" штук")

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

SELECT samolet.вид_самолёта, aviasalon.тип, aviasalon.год выпуска, aviasalon.срок_эксплуатации,;

 aviasalon.место_изготовления, aviasalon.цена_производителя, aviasalon.скорость,;

  aviasalon.вместительность;

FROM  data_avia!aviasalon;

INNER JOIN data_avia!samolet ON aviasalon.вид_самолёта = samolet.id_вид_самолёта;

WHERE aviasalon.тип == thisform.combo1.value ;

and (year(aviasalon.год_выпуска) >= thisform.text1.value) and (year(aviasalon.год_выпуска) <= thisform.text2.value);

and (aviasalon.цена_производителя >= thisform.text3.value) and (aviasalon.цена_производителя <= thisform.text4.value);

order by aviasalon.тип

Код поиска видов ремонта для заданного типа самолёта и в целом.:

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

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

FROM  data_avia!aviasalon;

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

WHERE aviasalon.стоимость_ремонта == (select max(aviasalon.стоимость_ремонта)FROM data_avia!aviasalon;

where aviasalon.тип == thisform.combo1.value and aviasalon.стоимость_ремонта != 0);

 and aviasalon.тип == thisform.combo1.value and aviasalon.стоимость_ремонта != 0

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

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

FROM  data_avia!aviasalon;

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

WHERE aviasalon.стоимость_ремонта == (select min(aviasalon.стоимость_ремонта)FROM data_avia!aviasalon;

where aviasalon.тип == thisform.combo1.value and aviasalon.стоимость_ремонта != 0);

 and aviasalon.тип == thisform.combo1.value and aviasalon.стоимость_ремонта != 0

local tmp(1)

SELECT  avg(aviasalon.стоимость_ремонта);

FROM  data_avia!aviasalon;

WHERE  aviasalon.тип == thisform.combo1.value and aviasalon.стоимость_ремонта != 0 ;

into array tmp

MessageBox("Средняя стоимость ремонта самолётов типа: " + alltrim(thisform.combo1.value) + " равно :" + alltrim(str(tmp))+" руб")

Без учёта типа самолёта

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

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

FROM  data_avia!aviasalon;

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

WHERE aviasalon.стоимость_ремонта == (select max(aviasalon.стоимость_ремонта)FROM data_avia!aviasalon;

where  aviasalon.стоимость_ремонта != 0);

 and  aviasalon.стоимость_ремонта != 0

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

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

FROM  data_avia!aviasalon;

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

WHERE aviasalon.стоимость_ремонта == (select min(aviasalon.стоимость_ремонта)FROM data_avia!aviasalon;

where  aviasalon.стоимость_ремонта != 0);