Private Sub Назв_Фильма_Exit(Cancel As Integer)

IfIsNull(Назв_Фильма) ThenMsgBox ("Незаполненое поле")

End Sub

Код запитів :

Актёр имя Запрос

SELECT Актёр.Фам_Актёра, Актёр.Имя_Актёра, Фильм.Назв_Фильма, Жанр.Назв_Жанра

FROM (Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра) INNER JOIN (Актёр INNER JOIN [Фильмы _Актёры] ON Актёр.[Код_ Актёра] = [Фильмы _Актёры].Код_Актёра) ON Фильм.[Код_ Фильма] = [Фильмы _Актёры].Код_Фильма

WHERE (((Актёр.Имя_Актёра)=[Имя актёра]));

Актёр фам Запрос

SELECT Актёр.Фам_Актёра, Актёр.Имя_Актёра, Фильм.Назв_Фильма, Жанр.Назв_Жанра

FROM (Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра) INNER JOIN (Актёр INNER JOIN [Фильмы _Актёры] ON Актёр.[Код_ Актёра] = [Фильмы _Актёры].Код_Актёра) ON Фильм.[Код_ Фильма] = [Фильмы _Актёры].Код_Фильма

WHERE (((Актёр.Фам_Актёра)=[Фамилия актёра]));

Запрос по жанру

SELECT Фильм.Назв_Фильма, Жанр.Назв_Жанра, Диск.[Назв_ Диска]

FROM (Жанр INNER JOIN Фильм ON Жанр.Код_Жанра=Фильм.Код_Жанра) INNER JOIN (Диск INNER JOIN Диск_Фильм ON Диск.[Код_ Диска]=Диск_Фильм.Код_Диска) ON Фильм.[Код_ Фильма]=Диск_Фильм.Код_Фильма

WHERE (((Жанр.Назв_Жанра)=[Название жанра]));

Режиссер имя Запрос

SELECT Режиссер.Фам_Режиссера, Режиссер.Имя_Режиссера, Фильм.Назв_Фильма, Жанр.Назв_Жанра

FROM (Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра) INNER JOIN (Режиссер INNER JOIN Фильмы_Режиссеры ON Режиссер.Код_Режиссера = Фильмы_Режиссеры.Код_Режиссера) ON Фильм.[Код_ Фильма] = Фильмы_Режиссеры.Код_Фильма

WHERE (((Режиссер.Имя_Режиссера)=[Имя режиссера]));

Режиссер фам Запрос

SELECT Режиссер.Фам_Режиссера, Режиссер.Имя_Режиссера, Фильм.Назв_Фильма, Жанр.Назв_Жанра

FROM (Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра) INNER JOIN (Режиссер INNER JOIN Фильмы_Режиссеры ON Режиссер.Код_Режиссера = Фильмы_Режиссеры.Код_Режиссера) ON Фильм.[Код_ Фильма] = Фильмы_Режиссеры.Код_Фильма

WHERE (((Режиссер.Фам_Режиссера)=[Фамилия режиссера]));

Фильм Запрос

SELECT Фильм.Назв_Фильма, Жанр.Назв_Жанра

FROM Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра

WHERE (((Фильм.Назв_Фильма)=[Название фильма]));

Додаток В

Інструкція користувача.

При запуску даного програмного продукту автоматично з’являється «Меню» (рисунок 1).

Рисунок 1 – вікно «Меню»

Кнопка «Регистрация диска» дозволяє адмініструвати диск (рис 2), шляхом заповненя поля «Название» та вибору фільму чи фільмів на диск зі списку, якщо в списку не має необхідного фільму, його можна добавити до списку шляхом натиснення кнопки «Новый фильм» - відкриється вікно «Фильм» (рис 3). Заповнюємо поля «Название», «Жанр» вибираємо зі списку чи додаємо новий жанр за допомогою натиснення кнопки «Новый жанр». Вибираємо режисерів та акторів зі списку, якщо потрібного режисера чи актора не було в списку, додаємо його за допомогою натиснення кнопок «Добавить режиссера» (рис 5), «Добавить актёра» (рис 4) відповідно.

За допомогою натискання кнопок «Запросы», «Простмотр отчёта», «Регистрация арендатора» и «Оформить аренду» здійснити пошук за заданими параметрами (рис 6), адмініструвати нового орендатора (рис 7), отримати звіт про ті диски, котрі має або мав орендатор (рис 8), та оформити оренду диску або дисків орендатором (рис 9).