Lazarus 1.0.12. IBDac 5.1.4. Query.LocateEx. Как?
Добавлено: Пн 18 ноя 2013 20:54
Доброго времени суток.
Ранее функцией LocateEx не пользовался. Но в данном случае придется, т.к. данные будут зашифрованы.
Как написано в справке,пишу код, при нажатии на кнопку фильтра btnFilter (cbbSearch - комбобокс):
Но поиск не работает. Если можете, подскажите.
Здесь можно взять начальную стадию проекта с БД (1,71 МБайт)
Спасибо.
Ранее функцией 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 МБайт)
Спасибо.