4. Придуманное мной задание
В базе данных (БД) Excel содержатся данные о зарубежных фильмах. БД хранится в папке E:\Фильмы\Зарубежные фильмы.xlsи имеет следующую структуру:
|
Название |
Год |
Страна |
Режиссер |
Жанр |
Сборы в мире ($) |
Воз-раст (+) |
Время (мин.) |
|
Побег из Шоушенка |
1994 |
США |
Фрэнк Дарабонт |
драма |
59 841 469 |
16 |
142 |
|
Зеленая миля |
1999 |
США |
Фрэнк Дарабонт |
фантастика |
286 801 374 |
16 |
189 |
|
Форрест Гамп |
1994 |
США |
Роберт Земекис |
драма |
677 386 686 |
12 |
142 |
|
Список Шиндлера |
1993 |
США |
Стивен Спилберг |
биография |
321 265 768 |
16 |
195 |
|
1+1 |
2011 |
Франция |
Оливье Накаш |
комедия |
426 588 510 |
16 |
112 |
|
Начало |
2010 |
США |
Кристофер Нолан |
фантастика |
825 532 764 |
12 |
148 |
|
Король Лев |
1994 |
США |
Роджер Аллерс |
мультфильм |
987 483 777 |
0 |
89 |
|
Леон |
1994 |
Франция |
Люк Бессон |
триллер |
45 284 974 |
16 |
133 |
|
Бойцовс-кий клуб |
1999 |
США |
Дэвид Финчер |
триллер |
100 853 753 |
18 |
131 |
|
Жизнь прекрасна |
1997 |
Италия |
Роберто Бениньи |
драма |
229 163 264 |
12 |
116 |
|
Достучать-ся до небес |
1997 |
Германия |
Томас Ян |
драма |
5 710 |
16 |
87 |
|
Крестный отец |
1972 |
США |
Френсис Форд Коппола |
криминал |
245 066 411 |
16 |
175 |
|
Престиж |
2006 |
США |
Кристофер Нолан |
фантастика |
109 676 311 |
12 |
125 |
|
Интерстел-лар |
2014 |
США |
Кристофер Нолан |
фантастика |
675 120 017 |
12 |
169 |
|
Игры разума |
2001 |
США |
Рон Ховард |
драма |
313 542 341 |
12 |
135 |
|
Крими-нальное чтиво |
1994 |
США |
Квентин Тарантино |
триллер |
213 928 762 |
18 |
154 |
|
Властелин колец: Возвраще-ние Короля |
2003 |
США |
Питер Джексон |
фантастика |
1 119 110 941 |
12 |
201 |
|
Гладиатор |
2000 |
США |
Ридли Скотт |
боевик |
457 640 427 |
16 |
155 |
|
Назад в будущее |
1985 |
США |
Роберт Земекис |
фантастика |
381 109 762 |
6 |
116 |
|
Карты, деньги, два ствола |
1998 |
Великобритания |
Гай Ричи |
комедия |
3 753 929 |
18 |
107 |
|
Пианист |
2002 |
Франция |
Роман Полански |
драма |
120 072 577 |
16 |
149 |
|
Поймай меня, если сможешь |
2002 |
США |
Стивен Спилберг |
драма |
352 114 312 |
12 |
141 |
|
Властелин колец: Братство кольца |
2001 |
США |
Питер Джексон |
фантастика |
871 530 324 |
12 |
178 |
|
Отступники |
2006 |
США |
Мартин Скорсезе |
триллер |
289 847 354 |
16 |
151 |
|
Матрица |
1999 |
США |
Лана Вачовски |
фантастика |
463 517 383 |
16 |
136 |
|
Властелин колец: Две крепости |
2002 |
США |
Питер Джексон |
фантастика |
925 282 504 |
12 |
179 |
Требуется (с помощью средств VBA) разработать программное обеспечение, позволяющее получать список фильмов определенного жанра. Выходная таблица должна иметь следующий вид:
{Жанр} { Возраст}+
|
Название |
Страна |
Режиссер |
Год |
Время (мин.) |
|
|
|
|
|
|
|
|
|
|
|
|
Количество отформатированных строк в итоговой таблице, не считая шапки, должно совпадать с количеством сформированных записей.
Записи должны быть отсортированы по сборам в мире, затем по году.
Сохранить таблицу в файле {Жанр} для детей старше {Возраст} лет.xlsна листе с текущей датой. Книга должна иметь один лист.
Файл поместить в папку E:\Фильмы\Жанры.
В случае отсутствия папки – создать её.
Запрос на создание списка фильмов соревнований реализовать с помощью формы, которая имеет следующий вид:
Рис.1. Форма запроса
Поле со списком Жанр фильмасодержит значения столбца Жанр в БД. Названия жанров должны быть отсортированы по алфавиту. По умолчанию установить 1-й элемент отсортированного списка.
С помощью поля ввода пользователь указывает свой возраст. По умолчанию поставить 0.
Кнопку ОКсвязать с клавишей [Enter], кнопкуОтмена– с клавишей [Escape].
В случае отсутствия сочетания двух критериев поиска, выбранных пользователем, вывести на экран информационное сообщение следующего вида: «Нет записей, удовлетворяющих Вашему запросу!»
Предусмотреть обработку событий, связанных с различными состояниями исходных БД и конечного файла: закрыты, открыты, не существуют. При наличии конечного файла выдать запрос на его замену.
Программа должна находиться в файле Программа Фильмы.xls.
При открытии файла с программой в стандартном интерфейсе Excel должна появляться панель инструментов с кнопками О программе и Поиск фильмов. При щелчке по кнопке О программе на экране должна появляться форма с данными о разработчике программы. Вторая кнопка предназначена для вызова формы (рис.1).
При закрытии файла с программой привнесенный пользовательский интерфейс должен удаляться.
Оформить программу согласно требованиям, изложенным на лекциях.
Придумать свой вариант задания.