Как реализовать поиск в Delphi 7?

@Криска Вайс · Регистрация: 23.05.2017

Author24 — интернет-сервис помощи студентам

Есть база данных, нужно написать поиск по буквам находить соответствие...
Код базы такой:

Delphi

procedure TForm3.Image41Click(Sender: TObject);
begin
Form15.ADOQuery1.sql.Clear;
Form15.ADOQuery1.SQL.Add('select Название,Описание,Фото from lis where Код = ' + IntToStr(Image41.Tag));
Form15.ADOQuery1.active := True;
Form15.Image4.Picture.LoadFromFile('lis.bmp');
Form15.Show;
form3.hide;
end;

В общем, на отдельную кнопку прописать поиск соответствий с базой...

@qwertehok · 06.06.2017, 18:35

Сообщение от Криска Вайс

нужно написать поиск по буквам находить соответствие...

что?
так написать поиск или находить соответствие?
ЧТО НУЖНО СДЕЛАТЬ?

Сообщение от Криска Вайс

Код базы такой:

какой базы? это просто запрос на отбор данных из таблицы

@Криска Вайс · 06.06.2017, 20:36 **[ТС]**

короче есть база, все выводиться в DBMemo.Надо сделать поиск. Так понятнее будет

@qwertehok · 06.06.2017, 22:26

делай, вопрос то в чем?

@Пытливый · 07.06.2017, 16:20

А надо ему видимо запрос не по Коду, а по одному из текстовых полей.

Delphi

1	Form15.ADOQuery1.SQL.Add('select Название,Описание,Фото from lis where Название like ''%' +Edit1.Text +'%'' or Описание like ''%' +Edit1.Text +'%''');

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	06.06.2017, 18:35	2
	Сообщение от Криска Вайс нужно написать поиск по буквам находить соответствие... что? так написать поиск или находить соответствие? ЧТО НУЖНО СДЕЛАТЬ? Сообщение от Криска Вайс Код базы такой: какой базы? это просто запрос на отбор данных из таблицы 0

@Криска Вайс 1 / 1 / 0 Регистрация: 23.05.2017 Сообщений: 21
	06.06.2017, 20:36 [ТС]	3
	короче есть база, все выводиться в DBMemo.Надо сделать поиск. Так понятнее будет 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	06.06.2017, 22:26	4
	делай, вопрос то в чем? 0

	07.06.2017, 16:20