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

@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, да хватит уже лезть в мертвые темы. Есть вопрос - создавайте собственную.

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

Новые блоги и статьи Все статьи Все блоги /
Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ начало и оглавление - Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование. . .	сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .	Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .

@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 Модератор 9946 / 6481 / 2460 Регистрация: 21.01.2014 Сообщений: 27,465 Записей в блоге: 3
	13.05.2023, 05:11
	domkaglinka, да хватит уже лезть в мертвые темы. Есть вопрос - создавайте собственную. А лучше, таки, для начала хоть какую-никакую книжку по теме прочитать. 0