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

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

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

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



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


 


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

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

                                                                             ___________           

                                     Руководитель:                                                                                                         
                                                                         Оценка:                       ____________

                                                                         Дата защиты:              ____________                                                                  
Улан-Удэ

2010



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

Кафедра систем информатики
З А Д А Н И Е

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

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

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


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

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

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

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

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

                                                                                                                                   

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

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

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

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

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

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

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

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

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

                                                                                      Исполнитель                 



Дата выдачи               
Содержание:
Введение                                                                                                          
            4.

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

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

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

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

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

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

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

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

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

Приложение - Листинг программы                                                                            14.
Введение
        На сегодняшний день:

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

   

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

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

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

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

Ø      самые поздние сеансы.
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);   //Процедура закрытия   формы Фильмы в кинотеатре на дату
Заключение
       При выполнении курсовой работы мною были получены теоретические, а также практические знания, которые позволили спроектировать базу данных и создать собственный программный продукт, позволяющий пользователю, не являющемуся программистом, работать с хранящейся в базе данных информацией.
Список литературы:
1.      Лабораторный практикум по программированию на языке Паскаль: Учебное пособие / Под общ. ред. Л.В.Найхановой и Н.Ц. Бильгаевой. – 3-е изд. доп. и перераб. – Улан-Удэ: Изд-во ВСГТУ, 2004.-176 с.

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

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

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