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

Автор работы: Пользователь скрыл имя, 08 Февраля 2011 в 18:24, курсовая работа

Описание работы

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

Скачать архив (50.13 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Моя курсовая.doc

— 200.50 Кб (Скачать файл)
ght">               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);    //При нажатии на кнопку

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