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

- какие фильмы идут в кинотеатре (репертуар кинотеатра на дату);

- поиск фильма;

- самые дорогие фильмы;

- самые поздние сеансы.

2. Структура программы

unitGlForm // Главная форма

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

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

procedureTForm1.Button4Click; //Закрытие главной формы

procedure Button1Click(Sender: TObject); //При нажатии на кнопку «Кинотеатры»

procedurecreatBD; // Процедура создания БД (записи в файл)

procedure TForm1.Button1Click(Sender: TObject); //Процедура открытия формы Кинотеатры

unit KinoForm ; // Форма кинотеатры

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

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,