Как сделать поиск по всем столбцам в таблице?

@DDim1000 · Регистрация: 17.12.2011

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

Написал простую программу, которая выводит таблицию из базы данных dbm, сделал поиск в программе, но этот поиск ведется почему-то только в одном столбце "Имя", как сделать так, чтобы поиск был по всем столбцам таблиции? - Фамилия, Имя, Отчество и т.д..

Delphi
1
2
3
4
5
6
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
fs:=fs+key;
dbgrid1.DataSource.DataSet.Locate('Имя', fs, [loPartialKey]);
StatusBar1.Panels.Items[0].Text:='Ищем: '+fs;
end;

@DDim1000 · 03.01.2013, 16:34 **[ТС]**

Подскажите пожалуйста, что, и где можно в условии прописать, чтобы, когда поиск ничего не находит, выходило бы примерно такое сообщения: "По запросу ничего не найдено".
ПРИМЕРНО ТАК: if MessageDlg('По запросу ничего не найдено!', mtConfirmation, [mbOK],........

Скандербег · 03.01.2013, 16:49

Locate - это функция и если ничего не находит, то возвращает false, иначе true.

Delphi
1
2
  if not Grid.DataSource.DataSet.Locate(...) then
    Shomessage('По запросу ничего не найдено!')

@DDim1000 · 05.01.2013, 15:26 **[ТС]**

Почему ошибка?:

Delphi
1
2
3
4
if not dbgrid1.DataSource.DataSet.Locate(false) then
      begin
      Shomessage('По запросу ничего не найдено!');
      end;

Ошибка:

Delphi
1
2
3
[Error] Unit1.pas(87): Incompatible types: 'String' and 'Boolean'
[Error] Unit1.pas(89): Undeclared identifier: 'Shomessage'
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit1.pas'

@droider · 05.01.2013, 16:14

Вы сами хоть поняли, что написали? Зачем в качестве параметра Locate передавать false? Так должно быть

Delphi
1
2
3
4
5
6
 
if not dbgrid1.DataSource.DataSet.Locate(ComboBox1.Text, Edit1.Text, [loPartialKey])
then
begin
 ShowMessage('По запросу ничего не найдено!');
 end;

Прочитайте о функции Locate и передаваемых ей параметрах. Готовый выложенный код программ и простой copy/paste программированию Вас не обучит.

@domkaglinka · 13.05.2023, 01:44

Что такое fs ? fs + key для чего? Что оно означает?

@D1973 · 13.05.2023, 05:11

domkaglinka, да хватит уже лезть в мертвые темы. Есть вопрос - создавайте собственную.

А лучше, таки, для начала хоть какую-никакую книжку по теме прочитать.

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@DDim1000 -46 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 611
	03.01.2013, 16:34 [ТС]
	Подскажите пожалуйста, что, и где можно в условии прописать, чтобы, когда поиск ничего не находит, выходило бы примерно такое сообщения: "По запросу ничего не найдено". ПРИМЕРНО ТАК: if MessageDlg('По запросу ничего не найдено!', mtConfirmation, [mbOK],........ 0

@domkaglinka 0 / 0 / 0 Регистрация: 12.05.2023 Сообщений: 9
	13.05.2023, 01:44
	Что такое fs ? fs + key для чего? Что оно означает? 0

@D1973 Модератор 9955 / 6491 / 2461 Регистрация: 21.01.2014 Сообщений: 27,500 Записей в блоге: 3
	13.05.2023, 05:11
	domkaglinka, да хватит уже лезть в мертвые темы. Есть вопрос - создавайте собственную. А лучше, таки, для начала хоть какую-никакую книжку по теме прочитать. 0