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

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