Федеральное агентство по образованию
Государственное образовательное учреждение
Высшего профессионального образования
«ВОСТОЧНО-СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ
ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ»
ЭЛЕКТРОТЕХНИЧЕСКИЙ ФАКУЛЬТЕТ
Кафедра систем информатики
Курсовой проект
по дисциплине «Информатика и программирование»
Тема
:
«Создание базы данных
«Справочная кинотеатров»
на языке Турбо Паскаль»
Выполнил(а):
___________
Руководитель:
Оценка: ____________
Дата защиты: ____________
Улан-Удэ
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 FilmFor
; // Форма Фильмы
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с.