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

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

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

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

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

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

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

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

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

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

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

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

___________

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

Оценка: ____________

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

Улан-Удэ

2010

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

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

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

З А Д А Н И Е

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Исполнитель

Дата выдачи

Содержание:

Введение 4.

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

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

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

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

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

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

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

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

Введение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

- поиск фильма;

- самые дорогие фильмы;

- самые поздние сеансы.

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

unitGlForm //Главная форма

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

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

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

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

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

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

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

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

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); //Процедура создания формы(выделение памяти)

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

procedureTForm1.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); //При нажатии на кнопку

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

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

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

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

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

unit SeansForm; // Форма Сеансы

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

procedure TForm5.SpeedButton8Click(Sender: TObject); //Процедура закрытияформы Сеансы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedureTForm5.FormCreate(Sender: TObject); //Процедура формирования выпадающих списков и отображения данных о сеансах

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

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

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

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

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

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

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

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

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

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

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

procedure TForm5.SpeedButton11Click(Sender: TObject); //Процедура отмены добавления новой записи

procedure SpeedButton11MouseMove(Sender: TObject; Shift: TShiftState;

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

procedure TForm5.SpeedButton11MouseMove(Sender: TObject;

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

procedure SpeedButton10MouseMove(Sender: TObject; Shift: TShiftState;

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

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

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

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

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

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

procedure Edit2Change(Sender: TObject); //При изменении выбранного кинотеатра

procedureTForm5.Edit2Change(Sender: TObject); //Процедура создания выпадающего списка с выбором времени начала сеанса

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

procedure TForm1.Button5Click(Sender: TObject); //Процедура открытия формы Запросы

unit Zapros; // Форма Запросы

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

procedure TForm4.Button2Click(Sender: TObject); //Процедура закрытия формы Запросы

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

procedureTForm4.Button1Click(Sender: TObject); //Процедура открытия формы соответствующей выбранному запросу

unitPoiskFilm; // Форма Поиск фильма

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

procedureTForm6.FormCreate(Sender: TObject); //Вывод в таблицу всех хранящихся в БД фильмов и информации о них

procedureEdit1Change(Sender: TObject); //При изменении введенного названия фильма

procedureTForm6.Edit1Change(Sender: TObject); //Процедура поиска фильма в массиве Film по введенному с клавиатуры названию фильма

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

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

unitDorFilm; // Форма самый дорогой сеанс

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

procedure TForm7.SpeedButton1Click(Sender: TObject); //Процедура закрытия формы Дорогой сеанс

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

procedureTForm7.FormCreate(Sender: TObject); //Процедура сравнения цен всех сеансов и вывод полной информации о самом дорогом

unitPozSeans; // Форма Самый поздний сеанс

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

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

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

procedure TForm8.SpeedButton1Click(Sender: TObject); //Процедура закрытия формы Самый поздний сеанс

unitZapr1; // Форма Фильмы в кинотеатре на дату

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

procedure TForm9.FormCreate(Sender: TObject); //Процедура создания таблицы

procedureComboBox1Change(Sender: TObject); //При изменении выбранного кинотеатра

procedureTForm9.ComboBox1Change(Sender: TObject); //Процедура поиска фильмов в указанном кинотеатре на указанную дату и вывод в таблицу после сортировки по времени начала сеанса

procedure DateTimePicker1Change(Sender: TObject); //Процедура выбора даты для поиска

procedureTForm9.DateTimePicker1Change(Sender: TObject); //Процедура поиска всех фильмов в указанном кинотеатре на текущую дату и вывод в таблицу после сортировки по времени начала сеанса

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

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

Заключение

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

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

1. Лабораторный практикум по программированию на языке Паскаль: Учебное пособие / Под общ. ред. Л.В.Найхановой и Н.Ц. Бильгаевой. – 3-е изд. доп. и перераб. – Улан-Удэ: Изд-во ВСГТУ, 2004.-176 с.

2. Турбо Паскаль 7.0./ Е.Р. Алексеев, О.В. Чеснокова – М.: НТ Пресс, 2009. – 320с.: ил.- (полная версия).

3. Основы программирования на языке Паскаль. Учебно-методическое пособие./ Бадмаева Э.С., Тонхоноева А.А. – Улан-Удэ: Изд-во Бурятского госуниверситета, 2002. –86 c.

4. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель. Издание второе дополненное. – М.: КУДИЦ-ОБРАЗ, 2005.-480с.