Ирина Эланс

Автор который поможет с любыми образовательными и учебными заданиями

Создание базы данных «Справочная кинотеатров» на языке Турбо Паскаль

Федеральное агентство по образованию

Государственное образовательное учреждение

Высшего профессионального образования

«ВОСТОЧНО-СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ

ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ»

ЭЛЕКТРОТЕХНИЧЕСКИЙ ФАКУЛЬТЕТ

Кафедра систем информатики

Курсовой проект

по дисциплине «Информатика и программирование»

Тема: «Создание базы данных «Справочная кинотеатров» на языке Турбо Паскаль»

Выполнил(а):

___________

Руководитель:

Оценка: ____________

Дата защиты: ____________

Улан-Удэ

2010

ВОСТОЧНО-СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ

ЭЛЕКТРОТЕХНИЧЕСКИЙ ФАКУЛЬТЕТ

Кафедра систем информатики

З А Д А Н И Е

на курсовой проект

Дисциплина: «Информатика и программирование»

Тема: «Создание базы данных «Справочная кинотеатров» на языке Турбо Паскаль»

Исполнитель:

Руководитель:

Краткое содержание проекта: Разработать базу данных «Справочная кинотеатров»

1.Теоретическая часть: Изучение предметной области

2.Практическая часть: Программная реализация.

Сроки выполнения проекта по графику:

1.Теоретический раздел -____% к ___неделе.

2.Основной раздел. Проектирование -____% к ___неделе.

3. Основной раздел. Кодирование -____% к ___неделе.

4.Экспериментальный раздел -____% к ___неделе.

5.Защита - 100% к ___неделе.

Требования к оформлению:

1.Расчетно-пояснительная записка курсового проекта должна быть в электронной и твердой копиях

2.Объем РПЗ должен и быть не менее 20 машинописных страниц без учета приложений

3. РПЗ оформляется по ГОСТу 7.32-91 и подписывается у ответств. за нормоконтроль.

Руководитель проекта

Исполнитель

Дата выдачи

Содержание:

Введение 4.

Основная часть

Теоретический раздел 5.

База данных и способы ее представления 5.
Постановка задачи 5.

Практический раздел 6.

1. Описание программы 6.

2. Структура программы 6.

Заключение 12.

Список литературы 13.

Приложение - Листинг программы 14.

Введение

На сегодняшний день:

- количество компьютеров в мире сровнялось с числом жителей развитых стран;

- большинство этих компьютеров включено в мировые информационные сети;

- полноценный член общества третьего тысячелетия каждодневно взаимодействует с локальными, региональными или мировыми сетями.

По мере развития и влияния компьютерной техники на общество, также развивалась методика и технология программирования.

Сначала возникает командное и операторное программирование, в 1960-х гг. бурно развивается структурное программирование, появляются линии логического и функционального программирования, а в последнее время — объектно-ориентированное и визуальное программирование.

Задача, которую следует ставить при первоначальном изучении программирования, — освоение основ структурной методики программирования. Для указанной цели наиболее подходящим средством является язык программирования Паскаль.

Основная часть

Теоретический раздел

1.База данных и способы ее представления

Базы данных (БД) – это специальным образом организованные данные.Эти особенности в организации данных заключаются прежде всего в том, что БД представляют собой системы взаимосвязанных данных, единство и целостность которых поддерживается специальными программными средствами.

База Данных (БД) - это информация, представленная в виде двумерных таблиц. БД содержит множество строк, каждая из которых соответствует объекту. Для каждого объекта используются определенные независимые позиции, которые называются полями. Представим себе такую БД, содержащую строки и столбцы (простейший случай). Каждая строка, называемая так же записью, соответствует определенному объекту. Каждый столбец содержит значения соответствующих данных об объекте.

БД может состоять не из одной таблицы, а из двух, трех и более.

Дополнительную информацию об объекте можно хранить в дополнительных таблицах.

Одно из мощных средств БД состоит в том, что информацию можно упорядочивать по тому критерию, который задает пользователь.

Рascal предоставляет довольно много средств по работе с такими БД: загрузка, запись, добавление и т.д.

База данных – это организованная структура, предназначенная для хранения информации. В современных базах данных хранятся не только данные, но и информация.

С понятием базы данных тесно связано понятие системы управления базой данных. Это комплекс программных средств, предназначенных для создания структуры новой базы, наполнение ее содержимым, редактирование содержимого и визуализации информации. Под визуализацией информации базы понимается отбор отображаемых данных в соответствии с заданным критерием, их упорядочение, оформление и последующая выдача на устройства вывода или передачи по каналам связи.

2.Постановка задачи

В Базе данных должны храниться сведения:

о кинотеатрах: название, адрес кинотеатра;

о фильмах: название, жанр, режиссер, страна, длительность;

Кроме того, должна храниться информация о цене билета, дате сеанса и времени начала сеанса. Кинотеатр может ввести новый фильм в репертуар или снять старый с проката.

Справочной службе могут потребоваться следующие сведения о текущем состоянии проката фильмов в городе:

репертуар кинотеатра (по названию кинотеатра),

жанр, производство и режиссер данного фильма (по названию),

Работнику справочной службы доступны следующие сведения:

какие фильмы идут в кинотеатре (репертуар кинотеатра),
где находится кинотеатр,
подробная информация о фильме,
цена билетов на данный сеанс

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

добавление, удаление или изменение информации о кинотеатре,
добавление, удаление или изменение информации о фильме,
добавление или удаление информации о сеансе.

Практический раздел

Описание программы

База данных состоит из следующих окон: Главное меню, Кинотеатры, Фильмы, Сеансы, Запросы.

Окно «Главное меню» это главная форма объединяющая все окна базы данных, каждое из которых содержит кнопки для перехода на начальную/конечную запись, перехода на следующую/предыдущую запись, добавление/удаление записи, а так же редактирования текущей записи.

Окно «Кинотеатры» содержит информацию о кинотеатрах города и включает поля: Название кинотеатра и Адрес.

Окно «Фильмы» содержит информацию о фильмах. Содержит поля: Название фильма, Жанр, Режиссер, Страна, Длительность.

Окно «Сеансы» содержит информацию о сеансах. Она служит для связи таблиц «Кинотеатры» и «Фильмы» и содержит поля: Название фильма, Кинотеатр, Цена, Начало сеанса, Дата. Поле Фильм связано с ключевым полем таблицы «Фильмы» (По коду фильма). Поле Кинотеатр связано с ключевым полем таблицы «Кинотеатры» (По коду кинотеатра).

Окно «Запросы» содержит меню запросов:

какие фильмы идут в кинотеатре (репертуар кинотеатра на дату);
поиск фильма;
самые дорогие фильмы;
самые поздние сеансы.

Структура программы

unit GlForm //Главная форма

procedure Button4Click(Sender: TObject); //При нажатии на кнопку «Закрыть»

procedure closeBD; //Процедура закрытия БД(считывание информации из файлов)

procedure TForm1.Button4Click; //Закрытие главной формы

procedure Button1Click(Sender: TObject); //При нажатии на кнопку «Кинотеатры»

procedure creatBD; //Процедура создания БД (записи в файл)

procedure TForm1.Button1Click(Sender: TObject); //Процедура открытия формы Кинотеатры

unit KinoForm; // Форма кинотеатры

procedure SpeedButton8Click(Sender: TObject); //При нажатии на кнопку «Закрыть»

ght"> procedure TForm2.SpeedButton8Click(Sender: TObject); //Процедура закрытия формы кинотеатры

procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на форму

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //Отображение в строке состояния

procedure FormCreate(Sender: TObject); //Процедура создания формы

procedure TForm2.FormCreate(Sender: TObject); //Процедура отображения данных о кинотеатрах

procedure SpeedButton7Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton7Click(Sender: TObject); //Процедура редактирования записи

procedure SpeedButton9Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton9Click(Sender: TObject); //Процедура сохранения редактирования

procedure SpeedButton1Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton1Click(Sender: TObject); //Процедура перехода на первую запись

procedure SpeedButton4Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton4Click(Sender: TObject); //Процедура перехода на последнюю запись

procedure SpeedButton2Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton2Click(Sender: TObject); //Процедура перехода на предыдущую запись

procedure SpeedButton3Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton3Click(Sender: TObject); //Процедура перехода на следующую запись

procedure SpeedButton5Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton5Click(Sender: TObject); //Процедура добавления новой записи

procedure SpeedButton11Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton11Click(Sender: TObject); //Процедура отмены редактирования

procedure SpeedButton11MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton11MouseMove(Sender: TObject); //Отображение в строке состояния

procedure SpeedButton10MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton10MouseMove(Sender: TObject); //Отображение в строке состояния

procedure SpeedButton10Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton10Click(Sender: TObject); //Процедура сохранения новой записи

procedure SpeedButton6Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton6Click(Sender: TObject); //Процедура удаления текущей записи

procedure FormCreate(Sender: TObject); //Процедура создания формы(выделение памяти)

procedure openBD; //Процедура считывания данных из файлов и сохранения (открытия БД)новых записей

procedure TForm1.FormCreate(Sender: TObject); // При создании формы (Процедура объединяющая считывание информации из файла и закрытие БД)

procedure Button2Click(Sender: TObject); //При нажатии на кнопку «Фильмы»

procedure TForm1.Button2Click(Sender: TObject); //Процедура открытия формы Фильмы

unit FilmForm; // Форма Фильмы

procedure SpeedButton8Click(Sender: TObject); //При нажатии на кнопку «Закрыть»

procedure TForm3.SpeedButton8Click(Sender: TObject); //Процедура закрытия формы Фильмы

procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на форму

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //Отображение в строке состояния

procedure FormCreate(Sender: TObject); //Процедура создания формы

procedure TForm3.FormCreate(Sender: TObject); //Процедура отображения данных о фильмах

procedure SpeedButton7Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton7Click(Sender: TObject); //Процедура редактирования записи

procedure SpeedButton9Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton9Click(Sender: TObject); //Процедура сохранения редактирования

procedure SpeedButton1Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton1Click(Sender: TObject); //Процедура перехода на первую запись

procedure SpeedButton4Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton4Click(Sender: TObject); //Процедура перехода на последнюю запись

procedure SpeedButton2Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton2Click(Sender: TObject); //Процедура перехода на предыдущую запись

procedure SpeedButton3Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton3Click(Sender: TObject); //Процедура перехода на следующую запись

procedure SpeedButton5Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton5Click(Sender: TObject); //Процедура добавления новой записи

procedure SpeedButton11Click(Sender: TObject); //При нажатии на кнопку

procedure TForm3.SpeedButton11Click(Sender: TObject); //Процедура отмены редактирования

procedure SpeedButton11MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton11MouseMove(Sender: TObject); //Отображение в строке состояния

procedure SpeedButton10MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //При наведении мышки на кнопку

procedure TForm3.SpeedButton10MouseMove(Sender: TObject); //Отображение в строке состояния

procedure SpeedButton10Click(Sender: TObject); //При нажатии на кнопку