Информационно-справочная система кинотеатров

2)  кнопка "Выход" - закрыть  форму "Справки", открыть форму "Справочная служба";

Форма "С_Репертуар"(см рис.28)

 

Внешний вид:

Рис.28 «Репертуар»

 

Назначение: определение фильмов, входящих в репертуар заданного кинотеатра

Источник данных: -

Компоненты:

1) поле со списком "Кинотеатр" – источник данных – запрос 

SELECT Кинотеатры.Название FROM Кинотеатры;

2) подчиненная форма "З_Реперт" основана на запросе "З_Реперт";

 

 Форма "С_адрес"(см рис.29)

 

Внешний вид:

  Рис.29 «Район и адрес»

 

Назначение: определение района и адреса кинотеатра

Источник данных: -

Компоненты:

1) поле со списком "Кинотеатр" – источник данных – запрос 

SELECT Кинотеатры.Название FROM Кинотеатры;

2) подчиненная форма "З_адрес" основана на запросе "З_адрес";

 

Форма "С_сеансы"(см.рис. 30)

 

Внешний вид:

 рис.30«Цена билета и колво мест»

 

Назначение: определение цены билета и количества свободных мест на заданный сеанс

Источник данных: -

Компоненты:

1) поле со списком "Кинотеатр" – источник данных – запрос 

SELECT Кинотеатры.Название FROM Кинотеатры;

2) поле со списком "Зал" – источник данных – запрос 

SELECT Сеансы.Зал FROM Сеансы WHERE (((Сеансы.Кинотеатр)= Forms!С_сеансы![к/т])) GROUP BY Сеансы.Зал ORDER BY Сеансы.Зал; 

3) поле со списком "Дата" – источник данных – запрос 

SELECT Сеансы.Дата FROM Сеансы WHERE (((Сеансы.Кинотеатр)=Forms!С_сеансы![к/т]) And ((Сеансы.Зал)= Forms!С_сеансы!зал)) GROUP BY Сеансы.Дата ORDER BY Сеансы.Дата;

4) поле со списком "Время" – источник данных – запрос 

SELECT Сеансы.Время FROM Сеансы WHERE (((Сеансы.Кинотеатр)=Forms!С_сеансы![к/т]) And ((Сеансы.Зал)= Forms!С_сеансы!зал) And ((Сеансы.Дата)=Forms!С_сеансы!Дата)) GROUP BY Сеансы.Время ORDER BY Сеансы.Время; 

5) подчиненная форма "З_сеансы" основана на запросе "З_сеансы";

 

Форма "С_фильмы"(см рис.31)

 

Внешний вид:

Рис.31 «О фильме»

 

Назначение: определение сведений о фильме

Источник данных: -

Компоненты:

1) поле со списком "Фильм" – источник данных – запрос 

SELECT Фильмы.Название FROM Фильмы;

2) подчиненная форма "З_Фильмы" основана на запросе "З_Фильмы";

 

Форма "С_жанр"(см.рис. 32)

 

 

Внешний вид:

Рис.32. «По жанрам»

 

Назначение: определение кинотеатров, где на определенном сеансе идет фильм определенного жанра

Источник данных: -

 

Компоненты:

1) поле со списком "Жанр" – источник данных – запрос 

SELECT Фильмы.Жанр FROM Фильмы INNER JOIN Сеансы ON Фильмы.Название=Сеансы.Фильм GROUP BY Фильмы.Жанр;

2) поле со списком "Дата" – источник данных – запрос 

SELECT Сеансы.Дата FROM Фильмы INNER JOIN Сеансы ON Фильмы.Название=Сеансы.Фильм WHERE (((Фильмы.Жанр)= Forms!С_жанр!жанр)) GROUP BY Сеансы.Дата ORDER BY Сеансы.Дата;

3) поле со списком "Время" – источник данных – запрос 

SELECT Сеансы.Время FROM Фильмы INNER JOIN Сеансы ON Фильмы.Название=Сеансы.Фильм WHERE (((Сеансы.Дата)=Forms!С_жанр!дата) And ((Фильмы.Жанр)=Forms!С_жанр!жанр)) GROUP BY Сеансы.Время ORDER BY Сеансы.Время;

4) подчиненная форма "З_Жанр" основана на запросе "З_Жанр";

 

 

 

 

 

Форма "С_актеры"(см.рис 33)

 

Внешний вид:

 рис 33 «С актёром»

 

Назначение: определение фильмов, где играет заданный актер и сеансов с этими фильмами

Источник данных: -

Компоненты:

1) поле со списком "Фильм" – источник данных – запрос 

SELECT Роли.Актер FROM (Фильмы INNER JOIN Роли ON Фильмы.Название=Роли.Фильм) INNER JOIN Сеансы ON Фильмы.Название=Сеансы.Фильм GROUP BY Роли.Актер ORDER BY Роли.Актер; 

2) подчиненная форма "З_акт_фильм" основана на запросе "З_акт_фильм";

3) подчиненная форма "З_Актеры" основана на запросе "З_Актеры", поле связи – "Фильм";

 

 

 

 

Форма "С_призы"(см.Рис 34)

 

Внешний вид:

 рис .34 «О наградах фильма»

 

Назначение: определение фильмов, имеющих награды и сеансов с этими фильмами

Источник данных: - Запрос "З_награды";

Компоненты:

1) поле со списком "Фильм" – источник данных – поле "Фильм"

2) подчиненная форма "З_призы"  - поле связи – "фильм";

3) подчиненная форма "З_нагр_сеансы" основана на запросе "З_нагр_сеансы";

 

2.1.4 Создание и описание запросов

 

Запрос "З1_Фильм"

SQL-код: INSERT INTO Фильмы ( Название, Режиссер, Оператор, Жанр, Производство, Продолжительность, Стоимость, Кадр )

SELECT Forms![Перечень фильмов]!Name AS Выражение1, Forms![Перечень фильмов]!direct AS Выражение2, Forms![Перечень фильмов]!operator AS Выражение3, Forms![Перечень фильмов]!genre AS Выражение4, Forms![Перечень фильмов]!made AS Выражение5, Forms![Перечень фильмов]!last AS Выражение6, Forms![Перечень фильмов]!price AS Выражение7, Forms![Перечень фильмов]!кадр AS Выражение8;

Результат: добавление записи в таблицу "Фильмы"

Запрос "З1_Призы"

SQL-код: INSERT INTO Призы ( Приз, Фильм )

SELECT всп2.Приз, Forms![Перечень  фильмов]!Name AS Выражение1

FROM всп2;

Результат: добавление записей в таблицу "Призы"

 

 

 

 

 

Запрос "З1_Акт"

SQL-код: INSERT INTO Роли ( Актер, Фильм )

SELECT всп.ФИО, Forms![Перечень  фильмов]!Name AS Выражение1

FROM всп;

Результат: добавление записей в таблицу "Роли"

 

Запрос "З1_всп", "З1_всп2"

SQL-код: DELETE всп.ФИО  FROM всп;

(в "З1_всп2" вместо "всп" – "всп2")

Результат: удаление записей из таблицы "всп" или "всп2"

 

 Запрос "З2_Фильм"

SQL-код: DELETE Фильмы.Название

FROM Фильмы

WHERE (((Фильмы.Название)=[Forms]![Перечень  фильмов]![Уд_ф]));

Результат: удаление записей из таблицы "Фильмы"

 

Запросы "З_С1", "З_C2", "З_С3"

SQL-код:

INSERT INTO Сеансы ( Кинотеатр, Фильм, Зал, Дата, Время, Цена, [Кол-во мест] )

SELECT Forms!Кинотеатры![к/т] AS Выражение1, Forms!Кинотеатры!Movie AS Выражение2, всп_сеансы.зал, всп_дни.[все дни], всп_сеансы.время, Round(((Round((Hour(всп_сеансы!время)+0.4)/4,0)/4)*(2-(Кинотеатры!Категория)*0.4)*(Фильмы!Стоимость/600))*(1+(всп_дни!выходные Is Not Null)/5)/10,0)*10 AS Выражение3, Залы.Вместимость

FROM всп_дни, Фильмы, Кинотеатры INNER JOIN (всп_сеансы INNER JOIN Залы ON всп_сеансы.зал = Залы.[№ зала]) ON Кинотеатры.Название = Залы.Кинотеатр

WHERE (((Залы.Кинотеатр)=[Forms]![Кинотеатры]![к/т]) AND ((всп_сеансы.дни)="все дни") AND ((Фильмы.Название)=[Forms]![Кинотеатры]![Movie]));

(В "З_С1" – вместо "все  дни" – "выходные",  в "З_С" – "будни") 

Результат: добавление записей в таблицу "Сеансы"

 

Запросы "d_1", "d_2"

SQL-код: INSERT INTO всп_дни ( выходные, [все дни] )

SELECT Forms!Кинотеатры!Curdata AS Выражение1, Forms!Кинотеатры!Curdata AS Выражение2

FROM 1строка

WHERE (((Weekday([Forms]![Кинотеатры]![Curdata]))=1 Or (Weekday([Forms]![Кинотеатры]![Curdata]))=7));

( В d_2 вместо "выходные" – "будни" и вместо "=1", "=7" - "<>1", "<>7"

Результат: добавление записей в таблицу "Призы"

Запрос "З_всп_сеансы"

SQL-код: DELETE всп_сеансы.зал, всп_сеансы.дата AS Выражение1, всп_сеансы.время

FROM всп_сеансы;

Результат: удаление записей из таблицы "всп.сеансы"

  Запрос "З_дни"

SQL-код: DELETE всп_дни.выходные, всп_дни.будни, всп_дни.[все дни]

FROM всп_дни;

Результат: удаление записей из таблицы "всп.дни"

 

Запрос "Удалитьфильм"

SQL-код: DELETE Сеансы.Фильм, Сеансы.Кинотеатр

FROM Сеансы

WHERE (((Сеансы.Фильм)=[Forms]![Кинотеатры]![DelMovie]) AND ((Сеансы.Кинотеатр)=[Forms]![Кинотеатры]![к/т]));

Результат: удаление записей с заданным кинотеатром и фильмом из таблицы "сеансы"

Запрос "З_Реперт"

SQL-код: SELECT Сеансы.Фильм, Min(Сеансы.Дата) AS [Min-Дата], Max(Сеансы.Дата) AS [Max-Дата]

FROM Сеансы

WHERE (((Сеансы.Кинотеатр)=[Forms]![С_Репертуар]![к/т]))

GROUP BY Сеансы.Фильм;

Результат: отображение всех фильмов из репертуара заданного кинотеатра, дат начала и конца их проката

Запрос "З_адрес"

SQL-код: SELECT Кинотеатры.Район, Кинотеатры.Адрес

FROM Кинотеатры

WHERE (((Кинотеатры.Название)=[Forms]![С_адрес]![к/т]));

Результат: отображение района и адреса заданного кинотеатра

Запрос "З_сеансы"

SQL-код: SELECT Сеансы.Цена, Сеансы.[Кол-во мест], Сеансы.Кинотеатр, Сеансы.Зал, Сеансы.Дата, Сеансы.Время

FROM Сеансы

WHERE (((Сеансы.Кинотеатр)=[Forms]![С_сеансы]![к/т]) AND ((Сеансы.Зал)=[Forms]![С_сеансы]![зал]) AND ((Сеансы.Дата)=[Forms]![С_сеансы]![Дата]) AND ((Сеансы.Время)=[Forms]![С_сеансы]![Время]));

Результат: отображение цены билета и количества свободных мест для заданного сеанса

 

 

 

Запрос "З_Фильмы"

SQL-код: SELECT Фильмы.Жанр, Фильмы.Производство, Фильмы.Режиссер, Фильмы.Кадр

FROM Фильмы

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

Результат: отображение сведений о фильме с заданным названием

Запрос "З_награды"

SQL-код: SELECT Призы.Фильм

FROM Призы

GROUP BY Призы.Фильм;

Результат: отображение всех фильмов, имеющих награды

Запрос "З_нагр_сеансы"

SQL-код: SELECT Сеансы.Кинотеатр, Сеансы.Дата, Сеансы.Зал, Сеансы.Время

FROM Сеансы

WHERE (((Сеансы.Фильм)=[Forms]![С_награды]![Фильм]))

ORDER BY Сеансы.Кинотеатр, Сеансы.Дата, Сеансы.Зал, Сеансы.Время;

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

Запрос "З_Призы"

SQL-код: SELECT Призы.Приз

FROM Призы

WHERE (((Призы.Фильм)=[Forms]![С_награды]![Фильм]));

Результат: отображение всех призов заданного фильма

Запрос "Добавление кинотеатра"

SQL-код: INSERT INTO Кинотеатры ( Название, Район, Адрес, Категория )

SELECT Forms![Перечень кинотеатров]!Название AS Выражение1, Forms![Перечень кинотеатров]!Район AS Выражение2, Forms![Перечень кинотеатров]!Адрес AS Выражение3, Forms![Перечень кинотеатров]!Категория AS Выражение4

FROM 1строка;

Результат: добавление записи в таблицу "Кинотеатры"

Запрос "Удаление кинотеатра"

SQL-код: DELETE Кинотеатры.Название

FROM Кинотеатры

WHERE (((Кинотеатры.Название)=([Forms]![Перечень  кинотеатров]![Уд к/т])));

Результат: удаление записи из таблицы "Кинотеатры"

Запрос "Вр удаление"

SQL-код: DELETE Сеансы.Кинотеатр

FROM Сеансы

WHERE (((Сеансы.Кинотеатр)=[Forms]![Перечень  кинотеатров]![Уд к/т]));

Результат: удаление записей с заданны кинотеатром из таблицы "Сеансы"

Запрос "З_продать"

SQL-код: UPDATE Сеансы SET Сеансы.[Кол-во мест] = (Сеансы![Кол-во мест])-(Forms!Билеты!Поле14)

WHERE (((Сеансы.Кинотеатр)=[Forms]![Билеты]![к/т]) AND ((Сеансы.Зал)=[Forms]![Билеты]![зал]) AND ((Сеансы.Дата)=[Forms]![Билеты]![Дата]) AND ((Сеансы.Время)=[Forms]![Билеты]![Время]));

Результат: уменьшение количества свободных мест на заданном сеансе

Запрос "обн_доход"

SQL-код: UPDATE Доход SET Доход.Доход = Доход!Доход+Forms!Билеты!Сум

WHERE (((Доход.Кинотеатр)=[Forms]![Билеты]![к/т]) AND ((Доход.День)=[Forms]![Билеты]![Дата]));

Результат: увеличение дохода кинотеатра в заданный день

Запрос "з_афиша_вых","з_афиша_будни"