Після складення фізичної моделі даних можна зробити такі висновки:
· Відсутні відмінності в схемах між фізичною та логічною моделями
· В процесі роботи була досягнута третя нормальна форма
· При оцінці якості структури бази даних аномалії не були виявлені.
2 .6 Кодування і тестування
Тексти програмного коду наведені у додатку А.
Згідно розробленій в проектній частині логічної моделі була створена і закодована база даних фільмотеки. Інструкція користувача знаходиться у додатку Б.
При тестуванні роботи БД були виконані такі дії:
a) Запущена база даних шляхом відкриття головного вікна «Меню».
b) Адміністровано декілька фільмів, шляхом натиснення кнопки «Регистрация фильма» та заповнення полів «Название», «Жанр» (був вибраний зі списку). Режисер та актори були вибрані зі списку. Всі дані були успішно додані до таблиць.
c) Було введено до бази даних нових акторів та режисерів, шляхом натиснення кнопок «Добавить актёра», «Добавить режиссера» та заповнення полів «Имя» та «Фамилия». Всі дані були успішно додані до таблиць «Актёр» та «Режиссер».
d) Адміністровано декілька дисків, шляхом заповнення поля «Название» та доданням фільмів зі списку.
e) Був виконаний запит по жанру, шляхом натиснення кнопки «Запрос по жанру» з вікна «Выбор запросов». Результатами запиту була виведена таблиця з назвами фільмів на диску заданого жанру. Всі виведені дані відповідають даним з таблиці.
Під час тестування аномалій виявлено не було.
3 Результат розроблення бази даних фільмотеки
У результаті розробки була створена база даних із програмним дотатком для фільмотеки. Інструкція користувача знаходиться у додатку Б.
Вимоги до апаратної частини :
- процесор Pentium 1000 MHz або більше;
- 32 Mb Videocard або більше.
Вимоги до програмної сумісності :
- 100 Mb вільного місця.
- Windows XP, 2000;
- Offise 2000, 2003 ;
- 64 Mb ОЗП.
Висновки
Створена база даних максимально полегшує роботу ведення записів про фільми та диски, за рахунок використання зручних екранних форм і можливості швидкого пошуку в базі даних тієї чи іншої інформації, наприклад, пошук потрібного фільму за назвою, за прізвищем акторів, що у ньому грають або за прізвищем режисерів . Для реалізації даної програми була використана СКБД Microsoft Access 2000.
Впровадження розробленої системи дозволить підвищити кількість орендаторів, а також надає механізм для реагування на зміни, що відбуваються.
У ході розробки роботи ми вирішили наступні задачі:
- аналіз предметної області
- розроблення концептуальної, логічної і фізичної моделі
- виконання запитів, форми, звіти та інше.
Список використаних джерел
1. Базы данных: учебный курс.- М.: ООО «Издательство АСТ», 2001.-504 с.
2. Конспект лекцій.
3. MICROSOFT ACCESS 2000 учебный курс.- C.-П.: «ПИТЕР», 2002.-512 с.
Схема БД
Програмний код :
Form_Диск
Option Compare Database
Private Sub Form_Load()
End Sub
Private Sub New_film_Click()
On Error GoTo Err_New_film_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1060) & ChrW(1080) & ChrW(1083) & ChrW(1100) & ChrW(1084)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_New_film_Click:
Exit Sub
Err_New_film_Click:
MsgBox Err.Description
Resume Exit_New_film_Click
Private Sub Диск_Фильм_Enter()
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
DoCmd.Close
Exit_Кнопка16_Click:
Err_Кнопка16_Click:
Resume Exit_Eiiiea16_Click
Private Sub Код_Диска_BeforeUpdate(Cancel As Integer)
Form_Фильм
Private Sub New_Producer_Click()
On Error GoTo Err_New_Producer_Click
stDocName = ChrW(1056) & ChrW(1077) & ChrW(1078) & ChrW(1080) & ChrW(1089) & ChrW(1089) & ChrW(1077) & ChrW(1088)
Exit_New_Producer_Click:
Err_New_Producer_Click:
Resume Exit_New_Producer_Click
Private Sub New_Actor_Click()
On Error GoTo Err_New_Actor_Click
stDocName = ChrW(1040) & ChrW(1082) & ChrW(1090) & ChrW(1105) & ChrW(1088)
Exit_New_Actor_Click:
Err_New_Actor_Click:
Resume Exit_New_Actor_Click
Private Sub Eiiiea23_Click()
On Error GoTo Err_Eiiiea23_Click
Exit_Eiiiea23_Click:
Err_Eiiiea23_Click:
Resume Exit_Eiiiea23_Click
Private Sub Eiiiea25_Click()
On Error GoTo Err_Eiiiea25_Click
stDocName = ChrW(1046) & ChrW(1072) & ChrW(1085) & ChrW(1088)
Exit_Eiiiea25_Click:
Err_Eiiiea25_Click:
Resume Exit_Eiiiea25_Click
Private Sub Назв_Фильма_Exit(Cancel As Integer)
If IsNull(Назв_Фильма) Then MsgBox ("Незаполненое поле")
Код запитів :
Актёр имя Запрос
SELECT Актёр.Фам_Актёра, Актёр.Имя_Актёра, Фильм.Назв_Фильма, Жанр.Назв_Жанра
FROM (Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра) INNER JOIN (Актёр INNER JOIN [Фильмы _Актёры] ON Актёр.[Код_ Актёра] = [Фильмы _Актёры].Код_Актёра) ON Фильм.[Код_ Фильма] = [Фильмы _Актёры].Код_Фильма
WHERE (((Актёр.Имя_Актёра)=[Имя актёра]));
Актёр фам Запрос
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 (((Режиссер.Имя_Режиссера)=[Имя режиссера]));
Режиссер фам Запрос
WHERE (((Режиссер.Фам_Режиссера)=[Фамилия режиссера]));
Фильм Запрос
SELECT Фильм.Назв_Фильма, Жанр.Назв_Жанра
FROM Жанр INNER JOIN Фильм ON Жанр.Код_Жанра = Фильм.Код_Жанра
WHERE (((Фильм.Назв_Фильма)=[Название фильма]));
Інструкція користувача.
При запуску даного програмного продукту автоматично з'являється «Меню» (рисунок 1).
Рисунок 1 - вікно «Меню»
Кнопка «Регистрация диска» дозволяє адмініструвати диск (рис 2), шляхом заповненя поля «Название» та вибору фільму чи фільмів на диск зі списку, якщо в списку не має необхідного фільму, його можна добавити до списку шляхом натиснення кнопки «Новый фильм» - відкриється вікно «Фильм» (рис 3). Заповнюємо поля «Название», «Жанр» вибираємо зі списку чи додаємо новий жанр за допомогою натиснення кнопки «Новый жанр». Вибираємо режисерів та акторів зі списку, якщо потрібного режисера чи актора не було в списку, додаємо його за допомогою натиснення кнопок «Добавить режиссера» (рис 5), «Добавить актёра» (рис 4) відповідно.
За допомогою натискання кнопок «Запросы», «Простмотр отчёта», «Регистрация арендатора» и «Оформить аренду» здійснити пошук за заданими параметрами (рис 6), адмініструвати нового орендатора (рис 7), отримати звіт про ті диски, котрі має або мав орендатор (рис 8), та оформити оренду диску або дисків орендатором (рис 9).
Страницы: 1, 2, 3
