Информатика и выч. техника \ Системы управления базами данных

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

WHERE aviasalon.вид_самолёта == (select samolet.id_вид_самолёта FROM data_avia!samolet;

WHERE  samolet.вид_самолёта == thisform.combo1.value);

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

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

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

  aviasalon.вместительность, vid_remonta.был_небыл_ремонт,;

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

FROM  data_avia!aviasalon;

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

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

WHERE aviasalon.вид_самолёта == (select samolet.id_вид_самолёта FROM data_avia!samolet;

WHERE  samolet.вид_самолёта == thisform.combo1.value);

order by aviasalon.цена_производителя

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

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

  aviasalon.вместительность, vid_remonta.был_небыл_ремонт,;

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

FROM  data_avia!aviasalon;

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

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

WHERE aviasalon.вид_самолёта == (select samolet.id_вид_самолёта FROM data_avia!samolet;

WHERE  samolet.вид_самолёта == thisform.combo1.value);

order by aviasalon.срок_эксплуатации

Код поиска доли отремонтированных самолётов:

LOCAL temp(1)

temp1=RECCOUNT()

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

FROM  data_avia!aviasalon;

WHERE aviasalon.вид_ремонта != 0;

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;

order by aviasalon.тип

result=temp/temp1*100

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.цена_производителя == (select max(aviasalon.цена_производителя)FROM data_avia!aviasalon)

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

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

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

FROM  data_avia!aviasalon;

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

WHERE aviasalon.цена_производителя == (select min(aviasalon.цена_производителя)FROM data_avia!aviasalon)

local tmp(1)

select avg(aviasalon.цена_производителя)FROM data_avia!aviasalon into array tmp

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

 Код поиска самолётов свыше заданной цены:

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.text1.value ;

order by aviasalon.цена_производителя

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

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

Скачать файл