Динамический фильтр на Delphi 7

[Дмитрий Гриб]

Огромная просьба, помогите составить SQL запрос в Delphi 7. Задача состоит в следующем: есть база данных с полями Razdel (тип string), Org (тип string), Num (тип string); им соответствуют поля ввода: FindEdit, EditOrg, EditNomer. Хочу создать динамический фильтр по этим полям, знаю как сделать для одного поля:

В обработчике события при нажатии кнопки “Найти” пишу :
FindQuery.Active:=false;
FindQuery.Parameters.ParamByName(‘R azd’).Value:=FindEdit.Text;
FindQuery.Active:=true;

В ADOQuery в пункте SQL прописываю:
SELECT *
FROM Dogovor1 // Dogovor1- это название таблицы
WHERE Razdel LIKE: Razd

Еще описываю переменную Razd в разделе Parameters, присваиваю ей начальное значение, тип.
Это работает…
А что дописать, чтоб получилось для трех полей, и фильтр был динамическим?

[Stilet]

ADOQuery:='SELECT * FROM Dogovor1 WHERE 
Razdel LIKE '+QuotedStr(FindEdit.Text)+
' AND ORG LIKE '+QuotedStr( EditOrg.text)+
' AND Num LIKE '+QuotedStr( EditNomer.text)

[Дмитрий Гриб]

Спасибо!! Сейчас попробую!!!!

[Дмитрий Гриб]

Подскажите пожалуйста, а как будет выглядеть данный запрос в случае с параметром? Заранее спасибо!

[Stilet]

Не использую такой изврат но надо полагать так:

FindQuery.Active:=false;
FindQuery.Parameters.ParamByName(‘Razd’).Value:=FindEdit.Text;
FindQuery.Parameters.ParamByName(‘Org’).Value:=EditOrg.Text;
FindQuery.Parameters.ParamByName(‘num’).Value:=EditNomer.Text;
FindQuery.Active:=true;

ADOQuery.SQL.text:='SELECT * FROM Dogovor1 WHERE 
Razdel LIKE :Razd AND ORG LIKE :Org AND Num LIKE :num';

[soleil@mmc]

кстати, это не изврат

SELECT * 
FROM Dogovor1 
WHERE Razdel LIKE :p0
  AND ORG LIKE :p1
  AND Num LIKE :p2

ParamByName('p0').Value := FindEdit.Text;
ParamByName('p1').Value := EditOrg.text;
ParamByName('p2').Value := EditNomer.text;

изврат - это конкатенировать запрос с переменными