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

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

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

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

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

Опции темы