Создание приложения для работы с базой данных "Телефонные аппараты", страница 3

                 Рисунок 14. Средняя стоимость

4)Найти телефоны с ценой свыше 5т.р. (и любая другая сумма, т.е. предусмотреть ввод цены с клавиатуры).

Цена телефона 5т.р.: Text: Properties/Data/Value – 5000

                     

Рисунок 15. Форма поиска телефонов с ценой свыше

select   main.модель as модель,;

table4.тип_тел as тип_телефона,;

main.цена as стоимость,;

main.год_выпуск as год_выпуска;

from main,table4;

where main.id_tiptel=table4.id_tip;

and main.цена>thisform.text1.value

Рисунок 16. Телефоны с ценой свыше 5т.р.

5) Найти все телефоны, поступившие из заданной страны(ввод страны), чья стоимость больше заданной (ввод стоимости).

Рисунок 17. Форма поиска телефонов, поступивших из заданной страны, чья стоимость больше заданной

select   main.модель as модель,;

            table4.тип_тел as тип_телефона,;

            main.цена as стоимость,;

            main.год_выпуск as год_выпуска,;

            main.место_изг as место_изготовления;

from main,table4;

where main.id_tiptel=table4.id_tip;

            and main.место_изг=thisform.text1.value;                        

            and main.цена>val(thisform.text2.value)

Рисунок 18. Телефоны из Японии с ценой свыше 4т.р.

6)Найти количество радиотелефонов в магазине.

select count(table4.тип_тел)as количество_радиотелефонов;

from main,table4;

where main.id_tiptel=table4.id_tip;

and table4.тип_тел="DECT"

Рисунок 19. Количество радиотелефонов

7) Найти долю радиотелефонов, поступивших из заданной страны(ввод страны) от общего числа телефонов в магазине.

Рисунок 20. Форма поиска доли радиотелефонов, поступивших из заданной страны

select count(main.модель) as i;

from main,table4;

where main.id_tiptel=table4.id_tip;

              and main.место_изг=thisform.text1.value;

              and table4.тип_тел="DECT";

into cursor num

select count(main.модель) as j;

from main;

into cursor num_total

thisform.text2.value=(str(100*(num.i/num_total.j))+"%")

Рисунок 21. Доля радиотелефонов, поступивших из Японии

8) Найти все телефоны с АОН для заданного (ввод) года выпуска.

Рисунок 22. Форма поиска телефонов с АОН  заданного года выпуска

select   main.модель as модель,;

            table4.тип_тел as тип_телефона,;

            table1.налич_аон as наличие_аон,;

            main.год_выпуск as год_выпуска,;

            main.срок_экспл as срок_эксплуатации,;

            main.ремонт as ремонт,;

            main.место_изг as место_изготовления,;

            main.поставщик as поставщик,;

            main.цена as цена;

from main,table1,table4;

where main.id_tiptel=table4.id_tip ;

            and table1.id_model=main.id_mod;

            and table1.налич_аон="есть";

            and main.год_выпуск=val(thisform.text1.value)

Рисунок 23. Телефоны с АОН 2006 года выпуска

9) Определить количество ремонтируемых телефонов, соотношение подлежащих ремонту телефонов и годных к эксплуатации телефонов (в процентах).

Рисунок 24. Форма поиска количества ремонтируемых телефонов, соотношения подлежащих ремонту и годных к эксплуатации телефонов

select count(main.модель) as i;

from main;

where main.ремонт="р";

into cursor num

thisform.label1.caption=str(num.i)

select count(main.модель) as j;

from main;

where main.ремонт="г";

into cursor num_total

thisform.label2.caption=(str(100*(num.i/num_total.j))+"%")

Рисунок 25. Результаты запроса