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

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

procedureTForm5.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); //При изменении выбранного кинотеатра

procedureTForm5.Edit2Change(Sender: TObject); //Процедура создания выпадающего списка с выбором времени начала сеанса

procedure Button5Click(Sender: TObject); //При нажатии на кнопку «Запросы»

procedure TForm1.Button5Click(Sender: TObject); //Процедура открытия формы Запросы

unit Zapros; // Форма Запросы

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