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

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с.