Нужно было создать приложение работающее с
Базой Данных, чтобы там был поиск по телефону (строка ввода и кнопка, при нажатии которой открывается новая форма с результатами поиска).
Я создал, перепроверил - вроде бы всё правильно, ошибок не нашёл, но программа всё равно почему-то не хочет переходить на новую форму при нажатии на Кнопку поиска всплывает ошибка.
Ошибка:
Код кнопки поиска:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin
telephone:=Edit1.Text;
form1.adoQuery1.Active:=false; // делаем компонент запроса неактивным
form1.adoQuery1.parameters.ParamByName('telephone' ).Value:=Edit1.Text;
form1.adoQuery1.Active:=true; // делаем компонент активным
Form2.ShowModal; //для отображения результата используем форму
end;
|
Форма:
SQL:
