Поиск в DBGrid через Combobox

@andreypoltava17 · Регистрация: 14.02.2017

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

Добрый вечер, помогите решить как правильно сделать фильтрацию.

Есть на форме 1 дбгрид, в нем 5 полей по которым необходимо делать фильтрацию, на етой же форме есть 5 соответственно комбобоксов и кнопка Найти. Вот как сделать чтоб при заполнении комбиков и нажатии кнопки Найти фильтровало мой дбгрид. База в дб гриде ексесовкая. Заранее спасибо за помощь

@andreypoltava17 · 24.02.2017, 00:09 **[ТС]**

давайте я вам попробую расказать со своей колокольни)
у меня БД недвижимость
есть 4 ключевых параметра
1) Район
2) Новострой/вторичка
3) Количество комнат
4) цена

значит ети поля и все дополнительные отображены в моем дбгриде, на форме 1 где етот дбгрид установлен есть 4 комбобокса, и кнопка найти.
Вот и хочу чтоб как то ето сделать

@ВасильевСА · 24.02.2017, 00:16

ЕЩЕ: НЕ ЗАБЫВАЙТЕ, ЧТО ПРОБЕЛ ТОЖЕ СИМВОЛ И ОН УЧИТЫВАЕТСЯ ПРИ УСЛОВИЯХ ОТБОРА ИЛИ ФИЛЬТРАЦИИ, ДЛЯ ЭТОГО ЕСТЬ ФУНКЦИЯ TRIM(' ТЕКСТ ') ОНА УБИРАЕТ ПРОБЕЛЫ С ОБЕИХ СТОРОН ТЕКСТА

Добавлено через 6 минут
В ЗАПРОСЕ, ГДЕ ЕСТЬ ЧИСЛОВЫЕ ВЫРАЖЕНИЯ, ИХ НЕ ЗАКЛЮЧАЮТ В QUOTEDSTR, А ОБХОДЯТСЯ ТОЛЬКО АПОСТРОФАМИ, ИНАЧЕ БД ИХ ПОНИМАЕТ КАК СТРОКУ А НЕ ЧИСЛО )))

@andreypoltava17 · 24.02.2017, 00:21 **[ТС]**

уже поиск ничего не находит)))

@ВасильевСА · 24.02.2017, 00:25

Какой тип полей в БД?

Добавлено через 40 секунд
и покажите код

@andreypoltava17 · 24.02.2017, 00:38 **[ТС]**

ТИП1 где есть всего 2 значения(новострой и вторичка) текстовый
РАЙОН где значений 10 (5школа, мотель, алмазный, 1гор и тд) текстовый
КОМН где значения от 1 до 5 числовой

Добавлено через 1 минуту
пока пробую по 2 комбобоксам фильтровать:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
ADOTable1.Filtered := false;
ADOTable1.Filter := '[ÐÀÉÎÍ] = ' + QuotedStr(ComboBox1.Text);
ADOTable1.Filtered := true;
end;
 
procedure TForm1.ComboBox2Click(Sender: TObject);
begin
ADOTable1.Filtered := false;
ADOTable1.Filter := '[ÒÈÏ1] = ' + QuotedStr(ComboBox1.Text);
ADOTable1.Filtered := true;
end;

Добавлено через 45 секунд
в первом КБклике РАЙОН а во втором - ТИП1. Ну ето написано у меня вместо тех иероглифов)

Добавлено через 3 минуты
все увидил косяк свой)) в двух фильтрах обращение к 1 комбобоксу) перегрелся за делфи сегодня) спасибо тебе большое!"!!
и еще такой вопросик а как теперь сделать типа стоп-фильтр чтоб все вернулось на круги своя

@ВасильевСА · 24.02.2017, 00:41

при такой фильтрации, первое условие сбрасывается, а применяется второе как у вас написано

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
ADOTable1.Filtered := false;
ADOTable1.Filter := '[ÐÀÉÎÍ] = ' + QuotedStr(ComboBox1.Text);
ADOTable1.Filtered := true;
end;
 
procedure TForm1.ComboBox2Click(Sender: TObject);
begin
ADOTable1.Filtered := false;
ADOTable1.Filter := '[ÒÈÏ1] = ' + QuotedStr(ComboBox1.Text);
ADOTable1.Filtered := true;
end;

для числового поля используйте такой вариант

Delphi
1
2
3
4
5
6
procedure TForm1.ComboBox2Click(Sender: TObject);
begin
ADOTable1.Filtered := false;
ADOTable1.Filter := '[ЧисловоеПоле] = ' + ComboBox1.Text;
ADOTable1.Filtered := true;
end;

выше я писал как надо отбирать по множеству условий

@andreypoltava17 · 24.02.2017, 00:44 **[ТС]**

по множеству условий ето можно и 3 и 4 и 5 условий заделать на 1 кнопку НАЙТИ?)

@ВасильевСА · 24.02.2017, 00:46

конечно!

@andreypoltava17 · 24.02.2017, 00:53 **[ТС]**

пожалуйста если не трудно можете правильно написать как делать на 4 комбобокса сразу ну на 4 параметра поиска) буду оч благодарен

@ВасильевСА · 24.02.2017, 00:59

Delphi
1
2
3
4
ADOTable1.Filter := '[ТекстовоеПоле1] = ' + QuotedStr(ComboBox1.Text) + 
                            ' and [ТекстовоеПоле2] = ' + QuotedStr(ComboBox2.Text) + 
                            ' and [ТекстовоеПоле3] = ' + QuotedStr(ComboBox3.Text) + 
                            ' and [ЧисловоеПоле] = ' + ComboBox4.Text;

@andreypoltava17 · 24.02.2017, 01:04 **[ТС]**

cпасибо больщое буду сейчас пробовать. а как теперь отменить фильтр полностью? ну нашел я что хотел и что теперь что вернуть дбгрид отображение на исходную позицию?

@ВасильевСА · 24.02.2017, 01:10

создайте кнопку "Сбросить" и в обработчике Click напишите:

Delphi
1
ADOTable1.Filtered := False;

@andreypoltava17 · 24.02.2017, 01:15 **[ТС]**

спс очень помогли

))

А еще такой вопросик. ну ето что на 3 и более значений ето понятно ето я зделаю как "Разширеный поиск"
а вот хочу еще мгновенный сделать по 1 или по 2 чтоб отфильтровывало.
Ставлю я допустим комбобокс 1 и 2 как сделать чтоб ето значение одновременно считалось? не так как у меня что ввожу 2 значения а читает последнее

)???

@ВасильевСА · 24.02.2017, 01:24

все тоже самое, не заполняйте combobox который не нужен но пропишите в условии так:
QuotedStr(ComboBox1.Text + '%') вместо QuotedStr(ComboBox1.Text)

Добавлено через 2 минуты

Delphi
1
2
3
4
ADOTable1.Filter := '[ТекстовоеПоле1] like ' + QuotedStr(ComboBox1.Text + '%') + 
                            ' and [ТекстовоеПоле2] like ' + QuotedStr(ComboBox2.Text + '%') + 
                            ' and [ТекстовоеПоле3] like ' + QuotedStr(ComboBox3.Text + '%') + 
                            ' and [ЧисловоеПоле] = ' + ComboBox4.Text;

@andreypoltava17 · 24.02.2017, 01:57 **[ТС]**

а что даст %???

Добавлено через 28 минут
ну ето вы написали на кнопу НАЙТИ код, а если сделать так чтоб и по кнопке искало и отдельно по 1 или нескольким комбобоксам без нажатия кнопки?)

Добавлено через 2 минуты
и еще такой вопросик)) а если я захочу сделать поиск по цене???? есть 2 едита или там 2 дбедита, тоисть чтоб писал по диапазону. Допустим в поле 1 15000 в поле 2 30000, и чтоб искало квартиры в диапазоне от 15 и до30 000?

@andreypoltava17 · 26.02.2017, 01:07 **[ТС]**

ВасильевСА, доброй ночи, а подскажите пожалуйста, есть 2 едита и кнопка поиск, хочу сделать поиск по цене от 1 грн до 100 грн) как правильно будет код?

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86

	Поиск в DBGrid через Combobox 23.02.2017, 22:41. Показов 4516. Ответов 35 Метки нет (Все метки) Добрый вечер, помогите решить как правильно сделать фильтрацию. Есть на форме 1 дбгрид, в нем 5 полей по которым необходимо делать фильтрацию, на етой же форме есть 5 соответственно комбобоксов и кнопка Найти. Вот как сделать чтоб при заполнении комбиков и нажатии кнопки Найти фильтровало мой дбгрид. База в дб гриде ексесовкая. Заранее спасибо за помощь 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 00:09 [ТС]
	давайте я вам попробую расказать со своей колокольни) у меня БД недвижимость есть 4 ключевых параметра 1) Район 2) Новострой/вторичка 3) Количество комнат 4) цена значит ети поля и все дополнительные отображены в моем дбгриде, на форме 1 где етот дбгрид установлен есть 4 комбобокса, и кнопка найти. Вот и хочу чтоб как то ето сделать 0

@ВасильевСА 8 / 8 / 2 Регистрация: 01.12.2015 Сообщений: 195
	24.02.2017, 00:16
	ЕЩЕ: НЕ ЗАБЫВАЙТЕ, ЧТО ПРОБЕЛ ТОЖЕ СИМВОЛ И ОН УЧИТЫВАЕТСЯ ПРИ УСЛОВИЯХ ОТБОРА ИЛИ ФИЛЬТРАЦИИ, ДЛЯ ЭТОГО ЕСТЬ ФУНКЦИЯ TRIM(' ТЕКСТ ') ОНА УБИРАЕТ ПРОБЕЛЫ С ОБЕИХ СТОРОН ТЕКСТА Добавлено через 6 минут В ЗАПРОСЕ, ГДЕ ЕСТЬ ЧИСЛОВЫЕ ВЫРАЖЕНИЯ, ИХ НЕ ЗАКЛЮЧАЮТ В QUOTEDSTR, А ОБХОДЯТСЯ ТОЛЬКО АПОСТРОФАМИ, ИНАЧЕ БД ИХ ПОНИМАЕТ КАК СТРОКУ А НЕ ЧИСЛО ))) 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 00:21 [ТС]
	уже поиск ничего не находит))) 0

@ВасильевСА 8 / 8 / 2 Регистрация: 01.12.2015 Сообщений: 195
	24.02.2017, 00:25
	Какой тип полей в БД? Добавлено через 40 секунд и покажите код 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 00:44 [ТС]
	по множеству условий ето можно и 3 и 4 и 5 условий заделать на 1 кнопку НАЙТИ?) 0

@ВасильевСА 8 / 8 / 2 Регистрация: 01.12.2015 Сообщений: 195
	24.02.2017, 00:46
	конечно! 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 00:53 [ТС]
	пожалуйста если не трудно можете правильно написать как делать на 4 комбобокса сразу ну на 4 параметра поиска) буду оч благодарен 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 01:04 [ТС]
	cпасибо больщое буду сейчас пробовать. а как теперь отменить фильтр полностью? ну нашел я что хотел и что теперь что вернуть дбгрид отображение на исходную позицию? 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 01:15 [ТС]
	спс очень помогли)) А еще такой вопросик. ну ето что на 3 и более значений ето понятно ето я зделаю как "Разширеный поиск" а вот хочу еще мгновенный сделать по 1 или по 2 чтоб отфильтровывало. Ставлю я допустим комбобокс 1 и 2 как сделать чтоб ето значение одновременно считалось? не так как у меня что ввожу 2 значения а читает последнее)??? 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	24.02.2017, 01:57 [ТС]
	а что даст %??? Добавлено через 28 минут ну ето вы написали на кнопу НАЙТИ код, а если сделать так чтоб и по кнопке искало и отдельно по 1 или нескольким комбобоксам без нажатия кнопки?) Добавлено через 2 минуты и еще такой вопросик)) а если я захочу сделать поиск по цене???? есть 2 едита или там 2 дбедита, тоисть чтоб писал по диапазону. Допустим в поле 1 15000 в поле 2 30000, и чтоб искало квартиры в диапазоне от 15 и до30 000? 0

@andreypoltava17 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 86
	26.02.2017, 01:07 [ТС]
	ВасильевСА, доброй ночи, а подскажите пожалуйста, есть 2 едита и кнопка поиск, хочу сделать поиск по цене от 1 грн до 100 грн) как правильно будет код? 0