Фильтр по нескольким полям в одном Edit

@МАрковка · Регистрация: 06.03.2012

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

Есть Table1, DBGrid1, Edit1

Поиск осуществляется хоть сначала, хоть с середины, без учета регистра

НО... ищет только по полю Name1.

Надо следующее: при наборе букв в Эдите он искал и в поле Name1 и в поле Gorod и в других полях

Код такой

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Edit1Change(Sender: TObject);
begin
If length(edit1.text)>0
then
Begin
 table1.filtered:=true;
End else table1.filtered:=false;
end;
 
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 
begin
accept:=pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet['Name1']))<>0;
end;

@SAMZ · 21.03.2012, 15:04

Так у вас программно задан режим фильтрайии по полю Name1. Добавьте условия по другим полям и будет вам счастье!

@МАрковка · 22.03.2012, 10:05 **[ТС]**

Сообщение от SAMZ

Так у вас программно задан режим фильтрайии по полю Name1. Добавьте условия по другим полям и будет вам счастье!

так вот как это самое условие и прописать? О_о Пробовала всяко разно - итог один ошибка

@SAMZ · 22.03.2012, 10:14

Сообщение от МАрковка

Пробовала всяко разно - итог один ошибка

Как пробовала - это, конечно, секрет! И КАКАЯ ОШИБКА - это еще больший секрет!

@МАрковка · 22.03.2012, 12:41 **[ТС]**

Сообщение от SAMZ

Как пробовала - это, конечно, секрет! И КАКАЯ ОШИБКА - это еще больший секрет!

Пробовала по разному и ошибки конечно же не сохранила. Снова пробовать, чтобы наступать на теже "грабли" не хочется.
Поэтому прошу помощи

Хотя бы примерно...

@belkaS · 22.03.2012, 14:07

попробуй через ADOQuery

Delphi
1
2
3
4
5
6
7
8
9
DataModule1.ADOQuery1.SQL.Add('SELECT *');
DataModule1.ADOQuery1.SQL.Add('FROM table');
DataModule1.ADOQuery1.SQL.Add('WHERE [Name] LIKE :name');
DataModule1.ADOQuery1.SQL.Add('OR [gorod] LIKE :gorod');
 
DataModule1.ADOQuery1.Parameters.ParamByName('name').Value:=
'%'+ Edit2.Text +'%';
DataModule1.ADOQuery1.Parameters.ParamByName('gorod').Value:=
'%'+Edit2.Text +'%';

@МАрковка · 22.03.2012, 14:55 **[ТС]**

Пробовала просто добаить еще одну строку

Delphi
1
accept:=pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet['Gorod']))<>0;

Он компилирует, но когда пробуешь вводить текст, то ошибка "Counld not convert variant of type (Null) into type (String)"

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

Сообщение от belkaS

попробуй через ADOQuery

Delphi
1
2
3
4
5
6
7
8
9
DataModule1.ADOQuery1.SQL.Add('SELECT *');
DataModule1.ADOQuery1.SQL.Add('FROM table');
DataModule1.ADOQuery1.SQL.Add('WHERE [Name] LIKE :name');
DataModule1.ADOQuery1.SQL.Add('OR [gorod] LIKE :gorod');
 
DataModule1.ADOQuery1.Parameters.ParamByName('name').Value:=
'%'+ Edit2.Text +'%';
DataModule1.ADOQuery1.Parameters.ParamByName('gorod').Value:=
'%'+Edit2.Text +'%';

у меня BDE...

@SAMZ · 22.03.2012, 15:03

Delphi
1
accept:=pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet.FieldByName('Gorod').AsString))<>0;

@МАрковка · 23.03.2012, 06:37 **[ТС]**

Сообщение от SAMZ

Delphi
1
accept:=pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet.FieldByName('Gorod').AsString))<>0;

Спасибо! Добавила эту строчку, но теперь он ищет только по городу, а по Name1 - нет

Добавлено через 2 минуты
Пробовала поменять эти 2 строчки местами. Получилось наоборот по Name1 ищет, а по Gorod нет. Т.е. первая строчка игнорируется О_о

@SAMZ · 23.03.2012, 06:44

Сообщение от МАрковка

Пробовала поменять эти 2 строчки местами. Получилось наоборот по Name1 ищет, а по Gorod нет. Т.е. первая строчка игнорируется

Ситуация полностью эквивалентна басне "Мартышка и очки"! Надо все же слегка наморщить мозг!

@МАрковка · 23.03.2012, 07:48 **[ТС]**

Еще пробовала добавить такую строчку

Delphi
1
accept:=pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet['Name1'] and DataSet['Gorod']))<>0;

Он компилирует

Но форма куда-то исчезает О_о

Добавлено через 52 минуты
Перезапустила Делфи

После компиляции ошибка при вводе слова для поиска

Could not convert variant of type (String) into type (Boolean)

@belkaS · 23.03.2012, 10:43

Сообщение от МАрковка

у меня BDE...

какая разница, запрос везде одинаков. используй просто Query

@MsGuns · 23.03.2012, 16:19

Вот это будет работать для ЛЮБОГО отображаемого в ЛЮБОМ TDBGride датасета, причем поиск будет выполняться для ТЕКУЩЕЙ колонки.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  i: integer;
begin
  for i : = 0 to ComponentCount-1 do  // Найти отображающий грид
    if (Components[i] is TDBGrid) and (TDBGrid(Components[i]).DataSource.DataSet=DataSet) then
      begin
       accept := (pos(Edit1.Text,TDBGrid(Components[i]).SelectedField.AsString))>0);
       break; 
      end;
end

@МАрковка · 23.03.2012, 22:34 **[ТС]**

я уже разобралась

СПАСИБО Огромное доброму человечку Губареву Михаилу

а код такой

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
accept:=(pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet['Name1']))) or (pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(DataSet['Gorod'])))<>0;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(Edit1.Text)>0
then Table1.Filtered:=true
else Table1.filtered:=false
end;

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	21.03.2012, 15:04
	Так у вас программно задан режим фильтрайии по полю Name1. Добавьте условия по другим полям и будет вам счастье! 0