Devart Forum

Код: Выделить всё

procedure TfMain.btnFilterClick(Sender: TObject);
var
  filterfield: string;
begin
  // --------------------------------------------------------
  //Поле поиска
  // --------------------------------------------------------
  case cbbSearch.ItemIndex of
    0: filterfield := 'EMPLOYEE_NAME';
    1: filterfield := 'EMPLOYEE_TABNUM';
    2: filterfield := 'EMPLOYEE_ADDRESS';
    3: filterfield := 'EMPLOYEE_BIRTHDAY';
    4: filterfield := 'EMPLOYEE_PHONE';
  end;
  // --------------------------------------------------------
  //Пробуем фильтровать
  // --------------------------------------------------------
  fDM.QEmployee.LocateEx(filterfield, edtFilter.Text,
    [lxPartialKey, lxCaseInsensitive]);
end;