Как осуществить поиск по Locate используя radiobutton

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Как осуществить поиск по Locate используя radiobutton

Leon71

Новый участник

Сообщения: 30
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

Отправлено: 17:37, 07-07-2003

Megabizon

Старожил

Сообщения: 244
Благодарности: 1

Профиль | Отправить PM | Цитировать

Может быть так:

Код:

 
::Edit1Change(TObject *Sender) 
{ 
TLocateOptions Opts; 
Opts.Clear(); 
Opts << loPartialKey<<loCaseInsensitive; 
if(RadioButton1->Checked) 
 * Table->Locate("Field1",Edit1->Text,Opts); 
if(RadioButton2->Checked) 
 * Table->Locate("Field2",Edit1->Text,Opts); 
if(RadioButton3->Checked) 
 * Table->Locate("Field3",Edit1->Text,Opts); 
}

-------
С уважением

Отправлено: 18:04, 07-07-2003 | #2