





Рис. 12. Виды ремонта для заданного типа самолёта и в целом.

Рис. 13. Самолёты со стоимостью ремонтных работ, не превышающие данного ограничения .

Рис. 14. Количествоотремонтированных самолётов и средняя стоимость ремонтных работ за последний месяц, квартал.


Рис.16 Связи в БД


Рис. 18. Таблица «Samolet» базы даных.

Рис. 19. Таблица «Tip» базы данных.
Для решения задачи в среде Visual FoxPro 6.0 были созданы следующие таблицы:
Таблица «Авиасалон», внутренне имя – aviasalon.dbf
| Поле | Тип поля | Описание | 
| Тип | Character(15) | Тип самолёта | 
| Вид_самолёта | Integer(4) (Regular ) | Идентификатор вида самолёта | 
| Вид_ремонта | Integer(4) (Regular ) | Идентификатор вида ремонта | 
| Год_выпуска | Date(8) | Год выпуска | 
| Дата_ремонта | Date(8) | Дата ремонта | 
| Срок_эксплуатации | Numeric(3) | Срок эксплуатации | 
| Скорость | Numeric(10) | Скорость | 
| Стоимость_ремонта | Numeric(4) | Стоимость ремонта | 
| Цена_производителя | Numeric(8) | Цена производителя | 
| Место_изготовления | Character(8) | Место изготовления | 
| Вместительность | Character(8) | Вместительность | 
Таблица «Самолёт», внутреннее имя – Samolet.dbf
| Поле | Тип поля | Описание | 
| Id_вид_самолета | Integer(4) (primary) | Идентификатор вида самолёта | 
| Вид_самолёта | Character(15) | Вид самолёта | 
Таблица «Виды ремонта», внутренне имя – Vid_remonta.dbf
| Поле | Тип поля | Описание | 
| Id_вид_ремонта | Integer(4) (primary) | Идентификатор вида ремонта | 
| Был_небыл_ремонт | Character(30) | Был или не был ремонт | 
| Вид_ремонта | Character(30) | Вид_ремонта | 
Все запросы выполнены с помощью языка запросов SQL (Structured Query Language).
Код сортировки самолётов:
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_вид_ремонта;
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.