| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с поиском по Locate с использованием radioButton [D4, Paradox]

Леонид ©   (2003-07-07 18:30:00) 

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

---

KDS   (2003-07-07 19:55:00) [1]

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

---

KDS   (2003-07-07 18:49:00) [2]

Обработчик для Этит на событие 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;

---

Наверх