Скачать: CL | DM;

Помогите с поиском по Locate с использованием radioButton   Найти похожие ветки 

← →
Леонид   (2003-07-07 18:30) [0]

Имеется таблица с полями: Наименование, Зав. номер – string, Дата поверки (Data) и др. Нужно будет осуществлять поиск по этим полям. В программе хочу сделать edit, при вводе в который с пом. Locate перемещаться на запись, а также radioButton объединенные в группу с пом. кот. будет выбираться по какому полю будет происходить поиск.
Если информации недостаточно, могу написать подетальнее, спешка…, извините…
Также буду рад услышать и др. варианты…

---

← →
KDS ©   (2003-07-07 18:49) [1]

Обработчик для Этит на событие OnChange примерно такой
procedure TForm1.edQFindChange(Sender: TObject);
var tn,field:ShortString;
begin
tn:=Trim(edQFind.Text); //убираю пробелы по концам строки
if (Tn="") then exit; //если текст не задан - выход
case radiogroup1.itemindex of
0:field:="NUMBER";
1:field:="NAME";
2:field:="etc";
else begin
showmessage("Укажите по какому столбцу искать");
exit;
end
end;
Table1.Locate(field, tn,[loPartialKey, loCaseInsensitive]);
// искать без учета регистра и по частичному совпадению
end;

---

← →
KDS ©   (2003-07-07 19:55) [2]

использование RadioGroup на мой вкус красивей чем просто несколько RadioButton хотябы из соображений красоты дизайна и группирования.
К тому же в свойстве Caption указываешь суть типа "Поиск по..."
а так надо лепить как минимум 3 компонента: 2 RadioButton
и 1 label для поясниловки

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c