Ранее функцией LocateEx не пользовался. Но в данном случае придется, т.к. данные будут зашифрованы.
Как написано в справке,пишу код, при нажатии на кнопку фильтра btnFilter (cbbSearch - комбобокс):
Код: Выделить всё
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;
Здесь можно взять начальную стадию проекта с БД (1,71 МБайт)
Спасибо.