Фильтрация базы данных в Delphi: использование комбо-боксов для выборки данных

Delphi , Базы данных , Access

При работе с базами данных в среде разработки Delphi часто возникает необходимость фильтрации данных по определённым критериям. Один из способов реализации такой фильтрации – использование комбо-боксов, позволяющих пользователю выбирать условия для отбора данных. В данной статье мы рассмотрим, как можно настроить работу с двумя комбо-боксами для одновременной фильтрации данных, отображаемых в базе данных, на примере использования глобальных переменных и событий формы.

Проблема фильтрации

Разработчик столкнулся с проблемой, когда выбор в одном комбо-боксе аннулировал выбор в другом. Например, если пользователь выбирает значение в первом комбо-боксе (обозначим его как A), а затем в втором (комбо-бокс B), то в базе данных отображается только результат, соответствующий фильтру B, игнорируя выбор в A.

Описание текущего подхода

В текущем подходе реализована логика, при которой выбор индекса элемента в комбо-боксе A записывается в глобальную булеву переменную bA и глобальную строку strA. Аналогичная логика повторяется для комбо-бокса B с соответствующими переменными bB и strB.

При нажатии на кнопку происходит фильтрация данных по выбранным значениям:

if bA then
  dmDatabase.tblTable.Filter := 'A = ' + QuotedStr(strA);
if bB then
  dmDatabase.tblTable.Filter := 'B = ' + QuotedStr(strB);

Необходимое решение

Задача состоит в том, чтобы реализовать фильтрацию таким образом, чтобы в базе данных отображались только те записи, которые соответствуют выбранным условиям в обоих комбо-боксах. То есть, если в A выбран "One", а в B – "Two", то должны быть отображены только те строки, где столбец A равен "One" и столбец B равен "Two".

Подход с использованием свойства Filter

Свойство Filter в наборе данных (DataSet) позволяет задать сложные критерии для фильтрации. Можно использовать логическое И для объединения условий фильтрации. Например:

dmDatabase.tblTable.Filter := 'A = ' + QuotedStr(strA) + ' AND B = ' + QuotedStr(strB);

Альтернативный подход с использованием события OnFilterRecord

В качестве альтернативы, можно использовать обработчик события OnFilterRecord, который является предпочтительным способом для выполнения фильтрации записей.

Реализация функции AddToFilter

Для упрощения процесса добавления условий фильтрации, можно определить функцию AddToFilter, которая позволит добавлять новые условия с использованием оператора AND, избегая перезаписи свойства Filter:

procedure dmDatabase.AddToFilter(const Expression: String);
const
  C_AndIfNotEmpty: Array [Boolean] of String = ('', ' AND ');
var
  CurrentFilter: string;
begin
  CurrentFilter := tblTable.Filter;
  tblTable.Filter := CurrentFilter + C_AndIfNotEmpty[TRIM(CurrentFilter) <> '']
                       + Expression;
end;

Таким образом, при нажатии на кнопку фильтрации, можно вызвать функцию AddToFilter для каждого из комбо-боксов:

if bA then
  dmDatabase.AddToFilter('A = ' + QuotedStr(strA));
if bB then
  dmDatabase.AddToFilter('B = ' + QuotedStr(strB));

Заключение

Использование комбо-боксов для фильтрации данных в Delphi – это мощный инструмент, позволяющий пользователю удобно и быстро выбирать критерии для отображения данных. При правильной реализации, такая фильтрация может работать эффективно, не теряя выбранные условия из одного комбо-бокса при выборе в другом. Приведённые примеры кода помогут вам в реализации подобной логики в вашем проекте на Delphi.

Создано по материалам из источника по ссылке.

В статье рассматривается проблема фильтрации данных в базе данных с помощью комбо-боксов в среде Delphi, с целью одновременного применения условий выбора из разных комбо-боксов для получения релевантных результатов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Access ::