Как сделать чтобы данные в DBGrid фильтровались через несколько Edit по разным столбцам таблицы грида?

Question

[AlexNSK54]

первый едит фильтрует второй уже эти данные фильтрует и так далее

Answer 1

[Hemul GM]

Фильтровать данные нужно на уровне датасета, а не грида. У датасета есть поле Filter, которое соответствует WHERE в SQL. Вот и составляй фильтр как буд-то пишешь WHERE для запроса.
Для обоих Edit обработай событие OnChange в котором будет вызывать метод обновления фильтра. А метод обновления фильтра бурет значение из обоих фильтров и меняет свойство Filter у датасета.

Хех. GPT почти слово в слово ответил)

Для реализации фильтрации данных в DBGrid через несколько Edit по разным столбцам таблицы грида необходимо использовать событие OnChange каждого Edit и применять фильтры для каждого столбца, основываясь на значениях всех Edit.

Вот пример, демонстрирующий, как это можно сделать:
1. Создайте несколько компонентов TEdit и установите им соответствующие имена, например, Edit1, Edit2 и Edit3.
2. Добавьте компонент TDBGrid на форму и установите его свойство DataSource на соответствующий источник данных, например, TDataSource.
3. Привяжите каждый компонент TEdit к событию OnChange и вызовите процедуру фильтрации:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ApplyFilters;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  ApplyFilters;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
  ApplyFilters;
end;

procedure TForm1.ApplyFilters;
var
  FilterString: string;
begin
  // Создаем строку фильтрации на основе значений всех Edit
  FilterString := '';
  if Edit1.Text <> '' then
    FilterString := 'Column1 LIKE ''%' + Edit1.Text + '%''';
  
  if Edit2.Text <> '' then
  begin
    if FilterString <> '' then
      FilterString := FilterString + ' AND ';
    
    FilterString := FilterString + 'Column2 LIKE ''%' + Edit2.Text + '%''';
  end;
  
  if Edit3.Text <> '' then
  begin
    if FilterString <> '' then
      FilterString := FilterString + ' AND ';
    
    FilterString := FilterString + 'Column3 LIKE ''%' + Edit3.Text + '%''';
  end;
  
  // Применяем фильтр
  TDBGrid.DataSource.DataSet.Filter := FilterString;
  TDBGrid.DataSource.DataSet.Filtered := FilterString <> '';
end;

Обратите внимание, что в данном примере мы предполагаем, что таблица имеет три столбца (Column1, Column2 и Column3), которые должны фильтроваться с помощью соответствующих Edit (Edit1, Edit2 и Edit3). Вы можете изменить код в соответствии с вашей конкретной структурой таблицы и компонентов.

Comments

[AlexNSK54]

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

[Hemul GM]

AlexNSK54, Обновил ответ. Там есть пример

[AlexNSK54]

затупил, спасибо!

[AlexNSK54]

// Применяем фильтр
TDBGrid.DataSource.DataSet.Filter := FilterString;
TDBGrid.DataSource.DataSet.Filtered := FilterString <> '';
на это выдает ошибку
[dcc32 Error] Osnovnaja.pas(607): E2233 Property 'DataSource' inaccessible here

[AlexNSK54]

все решил проблему не изменением имени дб грида

[AlexNSK54]

другая проблема на основе примера при вводе данных в Edit1 выпадает окно в коллекции не возможно найти данных

[Hemul GM]

AlexNSK54, я понятия не имею что это за окно

[AlexNSK54]

всплывающее окно цитирую "В коллекции не удается найти элемент , соответствующий требуемому имени или порядковому номеру.

[kalapanga]

AlexNSK54, подозреваю, что Вам сообщают о том, что под Ваши фильтры не подошла ни одна запись. Либо так и есть, либо фильтры написали неправильно.
p.s. Это же Ваша программа, и Вы запрограммировали вывод этого сообщения. Почему же Вы не знаете, что оно значит? :)

[Hemul GM]

AlexNSK54, ты в курсе, что можно прикреплять картинки сюда? И такого сообщения нет из коробки. Это уже кто-то сделал

[ZERGeich]

Hemul GM, Мне кажется, что ТСу уже ответили на изначальный вопрос максимально подробно и с примером.