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

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

procedureopenBD; //Процедура считывания данных из файлов и сохранения (открытия БД)новых записей

procedureTForm1.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); //При наведении мышки на кнопку