Привет!
Мне нужно сделать выборку данных, используя те критерии поиска,
которые захочет пользователь. К примеру, поиск в таблице "Люди",
может проходить по имени, фамилии, возрасту, полу, профессии и так
далее. Для выборки я сделал новую форму, нанёс на её Edit'ы, ещё
что-то и кнопку Поиск. Пользователь может заполнить любое из полей
(Edit'ов), может заполнить одно, а может и все, как ему захочется.

Вот суть вопроса: как сделать в Query запрос так, чтобы он искал именно
по выбранным характеристикам? То есть искал только по заполненным Edit'ам.
В результате все найденные записи размещаются на Grid’e.

WEHRE часть в запросе SELECT.

Петрович, это понятно, что не без условий... Ме надо, чтобы просто пихал во where нужные поля...

проверяй заполнен ли едит, если да то s:=select* from yourtable where ('FIO= '+edit1.text+' ) and'
теперь следущий едит тока селект фром не прибавляеш и тд.
Потом query1.sql.add(s);

Я щас тоже самое делаю , но такой геморой!!!

Код

if Edit1.Text <> '' then sel := sel + '(MainInfo.OrgName="'+Edit1.Text+'") '; if Edit2.Text <> '' then sel := sel + 'and (MainInfo.LeadSur="'+Edit2.Text+'") and (MainInfo.OrgName="'+Edit1.Text+'") '; if Edit3.Text <> '' then sel := sel + 'and (Contacts.Sur="'+Edit3.Text+'") and (Contacts.ConOrgName="'+Edit1.Text+'") '; if Edit4.Text <> '' then sel := sel + 'and (Contacts.Nam="'+Edit4.Text+'") and (Contacts.ConOrgName="'+Edit1.Text+'") '; if Edit5.Text <> '' then sel := sel + 'and (Contacts.Otch="'+Edit5.Text+'") and (Contacts.ConOrgName="'+Edit1.Text+'") ';

Так сделал. Сам себе ответил.

Вот, написал универсальную функцию:

Код

Function TForm1.GetSQLStatement(Tag:Integer):String;  var i:integer;        Edit:TEdit;         begin  Result:='';  For i:=0 to ComponentCount-1 do    if (Components[i] is TEdit) and (Components[i].tag=tag) then      begin        Edit:=Components[i] as TEdit;        if Edit.text='' then continue;        if Result<>'' then Result:=Result+ ' and ';        Result:=Result+Edit.name+'='+ QuotedStr(Edit.text);      end;  if Result<>'' then Result:='Where '+Result; end;

Для использования:

1) На форму ставятся Edit'ы в нужном количестве.
2) Названия Edit (свойство Name) должны быть такие же как название полей в таблице
3) Свойствам tag этих Edit присваивается что-то отличное от нуля, но всем одинаковое (для того чтобы можно было сгрупировать Edit для разных кверей, и для того чтобы функция не реагировала на чужие Edit, поставленные на форму для других целей)
4) Функция вернёт готовый Where для любых комбинаций.
5) В качестве параметра функции задать значение tag для обрабатываемой группы Edit

В FAQ похожий топик есть - динамическая генерация SQL-запросов. Там вроде тоже неплохо сделано.