[s-mail]

Уважаемые форумчане!!!! а как сделать запрос без sql? вот описание задачи: есть комбобокс, в нём условно 5 параметров, хочу чтобы пользователь выбирал один из них(критерий поиска, название поля в таблице) и вводил собственно то что хочет найти (значение поля в таблице). вот примерный код но он с уже заранее прописанным полем поиска.

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
if not ADOTable1.Locate('Cartridge',Edit1.Text,[loCaseInsensitive, loPartialKey])then
ShowMessage('Запись не найдена');
end;

//loCaseInsensitive, loPartialKey - отключаем регистр
помогите!!! Диплом вот вот уже! Заранее Спасибо

[Pilot_Red]

Решение в лоб:

просто проверяешь какой номер элемента комбобокса выбран.

и далее вызываешь ту или иную процедуру например:

Код:

case Combobox1.ItemIndex of 
 0:Findfio;
 1:findpass;
 2:findinn;
 3:findnDog;
  end;

[s-mail]

Не, надо именно так сделать как в примере, типа считать какое значение в Combobox1 и передать его в текстовое значение - 'тут жолжно быть это значение '
Combobox1 -ВЫбор критерия**Edit1 -Ввод критерия**Button1 -Осуществить поиск
если можно то полный код))))

[Pilot_Red]

Сообщение от s-mail

Не, надо именно так сделать как в примере, типа считать какое значение в Combobox1 и передать его в текстовое значение - 'тут жолжно быть это значение '
Combobox1 -ВЫбор критерия**Edit1 -Ввод критерия**Button1 -Осуществить поиск
если можно то полный код))))

Я делал типа этого.(см. вложение)

т.е. у меня был combobox, в котором хранились имена полей таблицы. В зависимости от того, какой элемент в нем выбран, происходил поиск. Если выбран элемент Ф.И.О. то поиск происходил по полям Фамилия Имя Отчество. Если ИНН то поиск происходил по полю ИНН.. только единственное, я не делал специальную кнопу ,у меня поиск осуществлялся непосредственно при вводе значения в edit

Это то нет, или мы все-таки говорим о разных вещах??

[s-mail]

самое то! тогда каков код в функциях? мне нужна сама привязка значения комбобокс к эдит1

[s-mail]

Спасибо большое за помощь) работает!!! немного потупил и готово)
вот код для интересующихся!

Код:

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;

[Pilot_Red]

Сообщение от s-mail

Спасибо большое за помощь) работает!!! немного потупил и готово)
вот код для интересующихся!
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;

рад помочь!:)