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

10) Найти виды запасных частей, поступающих для ремонта телефонов: отсортировать оп наименованиям, по стоимости, по поставщику.

Рисунок 26. Форма для выполнения запроса

По наименованиям

select;

            table3.наименование,;

            table3.стоимость,;

            table3.поставщик;

from table3;

order by table3.наименование

По стоимости

select;

            table3.наименование,;

            table3.стоимость,;

            table3.поставщик;

from table3;

order by table3.стоимость

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

По поставщику

select;

            table3.наименование,;

            table3.стоимость,;

            table3.поставщик;

from table3;

order by table3.поставщик

11) Найти поставщиков заданного вида запасных частей (выбор) для заданного вида телефонов.

Выбор вида запасных частей:

Combo Box: Properties/Data/RowSource – разъем,кнопки,Bluetouth,дисплей                          

RowSource Type – 1-Value

Выбор вида телефона: Combo Box: Properties/Data/RowSource – table4.тип_тел

                                                                                      RowSource Type – 6-Fields

Рисунок 28. Форма для поиска заданного вида запасных частей для заданного вида телефонов

select              table3.наименование as наименование,;

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

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

                        table3.виды_зап_ч as вид_запасных_частей,;

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

from table3,table4;

where ;

               table3.id_tip=table4.id_tip;

               and table4.тип_тел=thisform.combo2.value;

              and table3.виды_зап_ч=thisform.combo1.value

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

12) Найти телефоны для покупки, которые удовлетворяют заданным условиям(цена, марка и т.п.).

Рисунок 29.Форма поиска телефона по заданным условиям

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

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

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

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

from main;

where main.цена<=val(thisform.text1.value);

              and main.поставщик=thisform.text2.value;

              and main.срок_экспл<=val(thisform.text3.value);

order by main.цена

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

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

Рисунок 31.Форма запроса

SELECT count(main.поставщик)as количество;

FROM main;

WHERE main.поставщик=thisform.text1.value;

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

AND (main.цена>(;

SELECT AVG(main.цена);

FROM main;

WHERE  main.место_изг =thisform.text3.value))

Рисунок 31.Количество телефонов SE 2006 года выпуска с ценой больше, чем средняя стоимость телефонов из Китая

Выводы

В ходе выполнения расчетно-графической работы были закреплены (и  приобретены  новые) навыки работы в среде Microsoft Visual FoxPro 6. Получен опыт в рациональном проектировании и реализации баз данных, работы используя язык SQL, а также опыт в разработке средств управления базами данных.

Получен опыт работы с элементами управления, меню, использовании стандартных средств для работы с данными MS Visual FoxPro.

Литература

1.  Электронный учебник "Программирование в среде Visual FoxPro™". С.Федоров, НГТУ, АВТФ, 2003г.

2.  MSDN Library & Technical Resources. http://msdn.micosoft.com

3.  Справка Microsoft Visual FoxPro6.