III. Задание для самостоятельной работы

Выберите одно из заданий и разработайте в среде в среде Delphi БД-приложение для СУБД «Paradox»

1. «Видеопрокат»

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

1. Создайте таблицы

Справочник режиссеров и исполнителей главных ролей

• код (ключевое поле);

• ФИО.

Таблица видеофильмов:

• код фильма (ключевое поле);

• название фильма;

• код режиссера;

• код исполнителя главной роли;

• год выхода фильма;

• страна.

Таблица учета проката кассет:

• код фильма (ключевое поле);

• номер копии (ключевое поле);

• дата выдачи (ключевое поле);

• дата возрата;

• признак наличия (д/н);

• стоимость проката в день.

2. Создайте главную форму с пунктами меню «Справочники», «Фильмы», «Запросы», «Выход»

3. Создайте форму для ввода и редактирования данных справочника, вызываемую в пункте меню «Справочник».

4. Создайте мультиформу для ввода и редактирования данных, вызываемую в пункте меню «Фильмы».

Мультиформа должна представлять все поля одной записи таблицы Фильмы и все поля связанных с ней записей таблицы Кассеты, кроме поля Код_фильма. Таблицы связываются по полям Фильмы.Код и Кассеты.Код_фильма. На форме для каждого фильма должно высвечиваться общее количество раз, когда копии фильма была взята.

Значения полей типа Дата должны выбираться из календаря. Поля, связанные со справочниками, должны представляться в виде соответствующих LookUp полей.

Переход по записям таблиц должен осуществляться с помощью одного навигатора. При переходе от одной таблицы к другой должно осуществляться переключение навигатора.

По кнопке Поиск фильма текущей должна становиться запись из таблицы Фильмы со значением поля Наименование фильма, равным введенному пользователем значением. Если указанная фамилия в таблице отсутствует – должно появляться соответствующее сообщение.

По кнопке Поиск режиссера текущей должна становиться запись из таблицы Фильмы со значением поля LookUp-поля ФИО_режиссера, равным введенному пользователем значением. Если указанная запись в таблице отсутствует – должно появляться соответствующее сообщение.

По кнопке Фильтр на год выпуска должен устанавливаться фильтр на таблицу Фильмы для всех записей, для которых значение поля дата выпуска равна введенной пользователем дате. По кнопке Отмена фильтра фильтр должен отменяться.

По кнопке Печать карточка фильма с указанием имеющихся копий должна распечатываться.

5. Запросы

Запросы выполняются по нажатию соответствующих кнопок. Результат запроса отображается на форме в одной и той же сетке.

5.1 Выборка всех фильмов режиссера по его фамилии. Фамилия режиссера вводится пользователем или выбирается из справочника. В запрос включаются поля: наименование фильма, фамилия исполнителя главной роли, год выпуска, наименование страны-производителя. Сортировка по наименованию фильма.

5.2 Подсчет выручки от проката кассет всех фильмов, в интервале дат, которые вводятся с клавиатуры. В запрос записи из таблицы Кассеты, для которых значение поля Дата выдачи попадает в интервал. В запрос включаются: наименование фильма, номер копии, дата выдачи, сумма. Сортировка по наименованию фильма.

5.3 Выборка всех фильмов, для которых имеются копии. Сортировка по наименованию фильма.

5.4 Два самостоятельно сформулированных запроса.