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

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