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

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

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

procedureTForm1.FormCreate(Sender: TObject); // При создании формы (Процедура объединяющая считывание информации из файла и закрытие БД)

procedure Button2Click(Sender: TObject); //При нажатии на кнопку «Фильмы»

procedure TForm1.Button2Click(Sender: TObject); //Процедура открытия формы Фильмы