|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
запрос в БД с выбором критерия поиска
Уважаемые форумчане!!!! а как сделать запрос без sql? вот описание задачи: есть комбобокс, в нём условно 5 параметров, хочу чтобы пользователь выбирал один из них(критерий поиска, название поля в таблице) и вводил собственно то что хочет найти (значение поля в таблице). вот примерный код но он с уже заранее прописанным полем поиска.
Код:
procedure TForm1.Button2Click(Sender: TObject); begin if not ADOTable1.Locate('Cartridge',Edit1.Text,[loCaseInsensitive, loPartialKey])then ShowMessage('Запись не найдена'); end; помогите!!! Диплом вот вот уже! Заранее Спасибо Последний раз редактировалось lmikle, 05.06.2011 в 04:24. |
#2
|
||||
|
||||
Решение в лоб:
просто проверяешь какой номер элемента комбобокса выбран. и далее вызываешь ту или иную процедуру например: Код:
case Combobox1.ItemIndex of 0:Findfio; 1:findpass; 2:findinn; 3:findnDog; end; Последний раз редактировалось lmikle, 05.06.2011 в 04:25. |
#3
|
|||
|
|||
Не, надо именно так сделать как в примере, типа считать какое значение в Combobox1 и передать его в текстовое значение - 'тут жолжно быть это значение '
Combobox1 -ВЫбор критерия**Edit1 -Ввод критерия**Button1 -Осуществить поиск если можно то полный код)))) |
#4
|
||||
|
||||
Цитата:
Я делал типа этого.(см. вложение) т.е. у меня был combobox, в котором хранились имена полей таблицы. В зависимости от того, какой элемент в нем выбран, происходил поиск. Если выбран элемент Ф.И.О. то поиск происходил по полям Фамилия Имя Отчество. Если ИНН то поиск происходил по полю ИНН.. только единственное, я не делал специальную кнопу ,у меня поиск осуществлялся непосредственно при вводе значения в edit Это то нет, или мы все-таки говорим о разных вещах?? Последний раз редактировалось Pilot_Red, 14.06.2012 в 22:25. |
#5
|
|||
|
|||
самое то! тогда каков код в функциях? мне нужна сама привязка значения комбобокс к эдит1
|
#6
|
|||
|
|||
Спасибо большое за помощь) работает!!! немного потупил и готово)
вот код для интересующихся! Код:
procedure TForm1.Button2Click(Sender: TObject); begin case Combobox1.ItemIndex of 0:if not ADOTable1.Locate('Kod',Edit1.Text,[loCaseInsensitive, loPartialKey])then ShowMessage('Запись не найдена'); 1:if not ADOTable1.Locate('printer',Edit1.Text,[loCaseInsensitive, loPartialKey])then ShowMessage('Запись не найдена'); 2:if not ADOTable1.Locate('Cartridge',Edit1.Text,[loCaseInsensitive, loPartialKey])then ShowMessage('Запись не найдена'); end; . . . end; Последний раз редактировалось Admin, 05.06.2011 в 17:35. |
#7
|
||||
|
||||
Цитата:
рад помочь!:) |