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

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



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

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

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

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



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



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









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



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

 

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



















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

                                                                             ___________            

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





                                                                         Оценка:                       ____________

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













Улан-Удэ

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);   //При нажатии на кнопку «Закрыть»

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

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

                procedure TForm5.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);                                //При изменении выбранного кинотеатра 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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







Заключение



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



























































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



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

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

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

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



















































































 





2