Министерство образования Республики Беларусь
Учреждение образования
Белорусский Государственный университет
информатики и радиоэлектроники
Кафедра информационных технологий автоматизированных систем
Лабораторная работа №2
по курсу «Банки и базы данных»
“ПРОЕКТИРОВАНИЕ РЕЛЯЦИОННЫХ БАЗ ДАННЫХ”
Выполнил:
ст. гр. 700621c
Проверил:
Минск 2011
2.1 Цель работы.
1.Изучение основных понятий реляционных баз данных.
2.Изучение принципов создания и использования таблиц.
2.2 Задание.
1.Средствами Visual FoxPro создать таблицы базы данных.
2.Определить в таблицах соответствующие индексы.
3.Установить связи между таблицами.
4.Заполнить таблицы произвольными данными.
5.Написать программу с использованием окон и меню, в которой предусмотреть возможность открытия и закрытия таблиц базы данных, добавления новых записей, редактирования и удаления записей, удовлетворяющих некоторому условию (например, по фамилии, которая вводится с клавиатуры в отдельном окне), поиска данных (например поиск студента по номеру зачетной книжки).
2.3 Выполнение работы.
Создадим 3 таблицы «Films», «Genres», «Producers»:
Рисунок 1. «Таблица «Films»»
Заполним таблицу «Films» данными:
Рисунок 2. «Таблица «Films» в режиме просмотра»
Рисунок 3. «Таблица «Producers»»
Заполним таблицу «Producers» данными:
Рисунок 4. «Таблица «Producers» в режиме просмотра»
Рисунок 5. «Таблица «Genres»»
Заполним таблицу «Genres» данными:
Рисунок 6. «Таблица «Genres» в режиме просмотра»
Выполним связывание таблиц:
Рисунок 7. «Связи между таблицами в БД»
Текст основного модуля программы:
DEFINE WINDOW MainWindow FROM 5, 20 TO 15, 105 IN SCREEN;
FONT "Times New Roman", 14;
TITLE "Лабораторная работа №2";
DOUBLE CLOSE FLOAT GROW MINIMIZE;
DEFINE MENU MainMenu IN WINDOW MainWindow;
DEFINE PAD mnuTableFilms OF MainMenu PROMPT "\<Фильмы"
DEFINE PAD mnuTableProds OF MainMenu PROMPT "\<Продюссеры"
DEFINE PAD mnuTableGenrs OF MainMenu PROMPT "\<Жанры"
DEFINE PAD mnuExit OF MainMenu PROMPT "\<Выход"
DEFINE POPUP pMnuTableFilms
DEFINE BAR 1 OF pMnuTableFilms PROMPT "\<Открыть таблицу"
DEFINE BAR 2 OF pMnuTableFilms PROMPT "\<Добавить запись"
DEFINE BAR 3 OF pMnuTableFilms PROMPT "\<Изменить записи"
DEFINE BAR 4 OF pMnuTableFilms PROMPT "\<Удалить запись"
DEFINE BAR 5 OF pMnuTableFilms PROMPT "\<Поиск"
DEFINE POPUP pMnuTableProds
DEFINE BAR 1 OF pMnuTableProds PROMPT "\<Открыть таблицу"
DEFINE BAR 2 OF pMnuTableProds PROMPT "\<Добавить запись"
DEFINE BAR 3 OF pMnuTableProds PROMPT "\<Изменить записи"
DEFINE BAR 4 OF pMnuTableProds PROMPT "\<Удалить запись"
DEFINE BAR 5 OF pMnuTableProds PROMPT "\<Поиск"
DEFINE POPUP pMnuTableGenres
DEFINE BAR 1 OF pMnuTableGenres PROMPT "\<Открыть таблицу"
DEFINE BAR 2 OF pMnuTableGenres PROMPT "\<Добавить запись"
DEFINE BAR 3 OF pMnuTableGenres PROMPT "\<Изменить записи"
DEFINE BAR 4 OF pMnuTableGenres PROMPT "\<Удалить запись"
DEFINE BAR 5 OF pMnuTableGenres PROMPT "\<Поиск"
ON PAD mnuTableFilms OF MainMenu ACTIVATE POPUP pMnuTableFilms
ON PAD mnuTableProds OF MainMenu ACTIVATE POPUP pMnuTableProds
ON PAD mnuTableGenrs OF MainMenu ACTIVATE POPUP pMnuTableGenres
ON PAD mnuExit OF MainMenu RELEASE WINDOW MainWindow
ON SELECTION BAR 1 OF pMnuTableFilms DO openTable IN "auxiliary. prg" WITH "filmcollection! films"
ON SELECTION BAR 2 OF pMnuTableFilms DO apndRecs IN "auxiliary. prg" WITH "filmcollection! films"
ON SELECTION BAR 3 OF pMnuTableFilms DO editTable IN "auxiliary. prg" WITH "filmcollection! films"
ON SELECTION BAR 4 OF pMnuTableFilms DO deltRecs IN "auxiliary. prg" WITH "filmcollection! films"
ON SELECTION BAR 5 OF pMnuTableFilms DO srchInTable IN "auxiliary. prg" WITH "filmcollection! films"
ON SELECTION BAR 1 OF pMnuTableProds DO openTable IN "auxiliary. prg" WITH "filmcollection! producers"
ON SELECTION BAR 2 OF pMnuTableProds DO apndRecs IN "auxiliary. prg" WITH "filmcollection! producers"
ON SELECTION BAR 3 OF pMnuTableProds DO editTable IN "auxiliary. prg" WITH "filmcollection! producers"
ON SELECTION BAR 4 OF pMnuTableProds DO deltRecs IN "auxiliary. prg" WITH "filmcollection! producers"
ON SELECTION BAR 5 OF pMnuTableProds DO srchInTable IN "auxiliary. prg" WITH "filmcollection! producers"
ON SELECTION BAR 1 OF pMnuTableGenres DO openTable IN "auxiliary. prg" WITH "filmcollection! genres"
ON SELECTION BAR 2 OF pMnuTableGenres DO apndRecs IN "auxiliary. prg" WITH "filmcollection! genres"
ON SELECTION BAR 3 OF pMnuTableGenres DO editTable IN "auxiliary. prg" WITH "filmcollection! genres"
ON SELECTION BAR 4 OF pMnuTableGenres DO deltRecs IN "auxiliary. prg" WITH "filmcollection! genres"
ON SELECTION BAR 5 OF pMnuTableGenres DO srchInTable IN "auxiliary. prg" WITH "filmcollection! genres"
ON KEY LABEL ESC RELEASE WINDOWS
ACTIVATE WINDOW MainWindow
ACTIVATE MENU MainMenu NOWAIT
@ 2, 3 SAY "Лабораторная работа №2"
2.4 Вывод
1.Изучили основные понятия реляционных баз данных.
2.Изучили принципы создания и использования таблиц.
