Проектирование логики работы
Проектирование интерфейса
Внешний вид:
Назначение: выбор дальнейших операций
Компоненты:
Кнопка "Кинотеатры" – открыть форму "Кинотеатры", закрыть форму "Главная";
Кнопка "Справочная служба" – открыть форму "Справочная служба", закрыть форму "Главная";
Кнопка "Выход" – выход из программы;
Форма "Кинотеатры"
Вкладка "Добавление фильма"
Внешний вид:
Назначение: добавление фильма в репертуар кинотеатра
Вкладка "Удаление фильма"
Внешний вид:
Назначение: удаление фильма из репертуара кинотеатра
Вкладка "Создание афиши"
Внешний вид:
Назначение: удаление фильма из репертуара кинотеатра
Разработка программного кода
Для реализации данной задачи была выбрана среда разработки Delphi 7.
Среда разработки Delphi предоставляет разработчику поистине великолепный набор простых в использовании инструментов, позволяющих быстро разрабатывать сложные проекты, создавая приятный и удобный интерфейс.
1. Запрос "З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;
Результат: добавление записи в таблицу "Фильмы"
2. Запрос "З1_Призы"
SQL-код: INSERT INTO Призы ( Приз, Фильм )
SELECT всп2.Приз, Forms![Перечень фильмов]!Name AS Выражение1
FROM всп2;
Результат: добавление записей в таблицу "Призы"
3. Запрос "З1_Акт"
SQL-код: INSERT INTO Роли ( Актер, Фильм )
SELECT всп.ФИО, Forms![Перечень фильмов]!Name AS Выражение1
FROM всп;
Результат: добавление записей в таблицу "Роли"
4. Запрос "З1_всп", "З1_всп2"
SQL-код: DELETE всп.ФИО FROMвсп;
(в "З1_всп2" вместо "всп" – "всп2")
Результат: удаление записейизтаблицы "всп"или "всп2"
5. Запрос "З2_Фильм"
SQL-код: DELETE Фильмы.Название
FROM Фильмы
WHERE (((Фильмы.Название)=[Forms]![Перечень фильмов]![Уд_ф]));
Результат: удаление записейиз таблицы "Фильмы"
6. Запросы "З_С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+(всп_дни!выходные IsNotNull)/5)/10,0)*10 AS Выражение3, Залы.Вместимость
FROM всп_дни, Фильмы, Кинотеатры INNER JOIN (всп_сеансы INNER JOIN Залы ON всп_сеансы.зал = Залы.[№ зала]) ON Кинотеатры.Название = Залы.Кинотеатр
WHERE (((Залы.Кинотеатр)=[Forms]![Кинотеатры]![к/т]) AND ((всп_сеансы.дни)="все дни") AND ((Фильмы.Название)=[Forms]![Кинотеатры]![Movie]));
(В "З_С1" – вместо "все дни" – "выходные",в "З_С" – "будни")
Результат: добавление записей в таблицу "Сеансы"
7. Запросы "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"
Результат: добавление записей в таблицу "Призы"
8. Запрос "З_всп_сеансы"
SQL-код: DELETE всп_сеансы.зал, всп_сеансы.дата AS Выражение1, всп_сеансы.время
FROM всп_сеансы;
Результат: удаление записейиз таблицы"всп.сеансы"
9. Запрос "З_дни"
SQL-код: DELETE всп_дни.выходные, всп_дни.будни, всп_дни.[все дни]
FROM всп_дни;
Результат: удаление записейиз таблицы"всп.дни"
10. Запрос "Удалитьфильм"
SQL-код: DELETE Сеансы.Фильм, Сеансы.Кинотеатр
FROM Сеансы
WHERE (((Сеансы.Фильм)=[Forms]![Кинотеатры]![DelMovie]) AND ((Сеансы.Кинотеатр)=[Forms]![Кинотеатры]![к/т]));
Результат: удаление записей с заданным кинотеатром и фильмомиз таблицы"сеансы"
11. Запрос "З_Реперт"
SQL-код: SELECT Сеансы.Фильм, Min(Сеансы.Дата) AS [Min-Дата], Max(Сеансы.Дата) AS [Max-Дата]
FROM Сеансы
WHERE (((Сеансы.Кинотеатр)=[Forms]![С_Репертуар]![к/т]))
GROUP BY Сеансы.Фильм;
Результат: отображение всех фильмов из репертуара заданного кинотеатра, дат начала и конца их проката
12. Запрос "З_адрес"
SQL-код: SELECT Кинотеатры.Район, Кинотеатры.Адрес
FROM Кинотеатры
WHERE (((Кинотеатры.Название)=[Forms]![С_адрес]![к/т]));
Результат: отображение района и адреса заданного кинотеатра
13. Запрос "З_сеансы"
SQL-код: SELECT Сеансы.Цена, Сеансы.[Кол-во мест], Сеансы.Кинотеатр, Сеансы.Зал, Сеансы.Дата, Сеансы.Время
FROM Сеансы
WHERE (((Сеансы.Кинотеатр)=[Forms]![С_сеансы]![к/т]) AND ((Сеансы.Зал)=[Forms]![С_сеансы]![зал]) AND ((Сеансы.Дата)=[Forms]![С_сеансы]![Дата]) AND ((Сеансы.Время)=[Forms]![С_сеансы]![Время]));
Результат: отображение цены билета и количества свободных мест для заданного сеанса
14. Запрос "З_Фильмы"
SQL-код: SELECT Фильмы.Жанр, Фильмы.Производство, Фильмы.Режиссер, Фильмы.Кадр
FROM Фильмы
WHERE (((Фильмы.Название)=[Forms]![С_фильмы]![фильм]));
Результат: отображение сведений о фильме с заданным названием
15. Запрос "З_награды"
SQL-код: SELECT Призы.Фильм
FROMПризы
GROUPBYПризы.Фильм;
Результат: отображение всех фильмов, имеющих награды
16. Запрос "З_нагр_сеансы"
SQL-код: SELECT Сеансы.Кинотеатр, Сеансы.Дата, Сеансы.Зал, Сеансы.Время
FROM Сеансы
WHERE (((Сеансы.Фильм)=[Forms]![С_награды]![Фильм]))
ORDER BY Сеансы.Кинотеатр, Сеансы.Дата, Сеансы.Зал, Сеансы.Время;
Результат: отображение всех сеансов, на которых показывают фильм, имеющий награду
17. Запрос "З_Призы"
SQL-код: SELECT Призы.Приз
FROM Призы
WHERE (((Призы.Фильм)=[Forms]![С_награды]![Фильм]));
Результат: отображение всех призов заданного фильма
18. Запрос "Добавление кинотеатра"
SQL-код: INSERT INTO Кинотеатры ( Название, Район, Адрес, Категория )
SELECT Forms![Перечень кинотеатров]!Название AS Выражение1, Forms![Перечень кинотеатров]!Район AS Выражение2, Forms![Перечень кинотеатров]!Адрес AS Выражение3, Forms![Перечень кинотеатров]!Категория AS Выражение4
FROM 1строка;
Результат: добавление записи в таблицу "Кинотеатры"
19. Запрос "Удаление кинотеатра"
SQL-код: DELETE Кинотеатры.Название
FROM Кинотеатры
WHERE (((Кинотеатры.Название)=([Forms]![Перечень кинотеатров]![Уд к/т])));
Результат: удаление записи из таблицы "Кинотеатры"
20. Запрос "Вр удаление"
SQL-код: DELETE Сеансы.Кинотеатр
FROM Сеансы
WHERE (((Сеансы.Кинотеатр)=[Forms]![Перечень кинотеатров]![Уд к/т]));
Результат: удаление записей с заданны кинотеатром из таблицы "Сеансы"
21. Запрос "З_продать"
SQL-код: UPDATE Сеансы SET Сеансы.[Кол-во мест] = (Сеансы![Кол-во мест])-(Forms!Билеты!Поле14)
WHERE (((Сеансы.Кинотеатр)=[Forms]![Билеты]![к/т]) AND ((Сеансы.Зал)=[Forms]![Билеты]![зал]) AND ((Сеансы.Дата)=[Forms]![Билеты]![Дата]) AND ((Сеансы.Время)=[Forms]![Билеты]![Время]));
Результат: уменьшение количества свободных мест на заданном сеансе
22. Запрос "обн_доход"
SQL-код: UPDATE Доход SET Доход.Доход = Доход!Доход+Forms!Билеты!Сум
WHERE (((Доход.Кинотеатр)=[Forms]![Билеты]![к/т]) AND ((Доход.День)=[Forms]![Билеты]![Дата]));
Результат: увеличение дохода кинотеатра в заданный день
23. Запрос "з_афиша_вых","з_афиша_будни"
SQL-код: INSERT INTO всп_аф( время, день )
SELECT Сеансы.Время, "выходные" AS Выражение1
FROM Сеансы
WHERE (((Сеансы.Кинотеатр)=[Forms]![Кинотеатры]![к/т]) AND ((Сеансы.Фильм)=[Forms]![Кинотеатры]![PresMovie]) AND ((Weekday([Сеансы]![Дата]))=1 Or (Weekday([Сеансы]![Дата]))=7))
GROUP BY Сеансы.Время;
(В "з_афиша_будни" вместо "выходные" -"будни", "=1", "=7" – "<>1", "<>7")
Результат: добавление записей в таблицу "всп_аф"
24. Запрос "З_афиша"
SQL-код: SELECT Фильмы.Название, Фильмы.Режиссер, Фильмы.Оператор, Фильмы.Жанр, Фильмы.Производство, Фильмы.Продолжительность, First(Фильмы.Кадр) AS [First-Кадр], Min(Сеансы.Дата) AS [Min-Дата], Max(Сеансы.Дата) AS [Max-Дата], всп_аф.день, всп_аф.время, Сеансы.Кинотеатр
FROM всп_аф, всп_аф AS всп_аф_1, Фильмы INNER JOIN Сеансы ON Фильмы.Название = Сеансы.Фильм
WHERE (((Сеансы.Кинотеатр)=[Forms]![Кинотеатры]![к/т]) AND ((Сеансы.Фильм)=[Forms]![Кинотеатры]![PresMovie]))
GROUP BY Фильмы.Название, Фильмы.Режиссер, Фильмы.Оператор, Фильмы.Жанр, Фильмы.Производство, Фильмы.Продолжительность, всп_аф.день, всп_аф.время, Сеансы.Кинотеатр;
Результат: отображение всех данных о заданном фильме
25. Запрос "кол-во по жанрам"
SQL-код: SELECT [кол-во фильмов].Жанр, Count([кол-во фильмов].Жанр) AS [Count-Жанр]
FROM [кол-во фильмов]
GROUP BY [кол-во фильмов].Жанр;
Результат: отображение количества фильмов каждого жанра
26. Запрос "д_отчета"
SQL-код: SELECT Кинотеатры.Район, Кинотеатры.Название, Count([кол-во фильмов].[Count-Название]) AS [Count-Count-Название], ср_цена.Название, ср_цена.[Avg-Цена], ([Sum-Доход])/[кол-во фильмов по к/т]![Count-Название] AS Выражение1
FROM [кол-во фильмов], [кол-во фильмов по к/т] INNER JOIN ((Кинотеатры INNER JOIN ср_цена ON Кинотеатры.Название = ср_цена.Кинотеатр) INNER JOIN дох ON Кинотеатры.Название = дох.Кинотеатр) ON [кол-во фильмов по к/т].Кинотеатр = Кинотеатры.Название
GROUP BY Кинотеатры.Район, Кинотеатры.Название, ср_цена.Название, ср_цена.[Avg-Цена], ([Sum-Доход])/[кол-во фильмов по к/т]![Count-Название];
Результат: отображение всех данных, необходимых для отчета – количество фильмов, средняя цена фильмов по кинотеатрам, доход кинотеатров.