Поиск по БД с несколькими полями ввода

[SERG1990]

Всем доброго времени суток!:)

Имеется поиск по фамилиям в БД

begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM people WHERE lastName LIKE'+QuotedStr('%'+Edit6.Text+'%'));
ADOQuery1.Active:=True;
except
on e:Exception do
end;
end;

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

Пример:


P.S. Пробовал добавлять вторую строчку ADOQuery1.SQL.Add('SELECT * FROM people WHERE firstName LIKE'+QuotedStr('%'+Edit7.Text+'%') ); Но что-то не заладилось...

[Stilet]

with ADOQuery1 do begin
 SQL.Text:='SELECT * FROM people WHERE lastName LIKE'+QuotedStr('%'+Edit6.Text+'%');
 if Edit7.Text<>'' then SQL.Text:=SQL.Text+' AND firstName  LIKE '+QuotedStr('%'+Edit7.Text+'%');
 Active:=True;
end;

Смысл понятен?

[BARNEY]

по логике лучше так

ADOQuery1.SQL.text:='SELECT * FROM people where';
if edit6.text<>'' then  ADOQuery1.SQL.add('lastName LIKE'+QuotedStr('%'+Edit6.Text+'%')');
if edit7.text<>'' then
begin
if  edit6.text<>''  then ADOQuery1.SQL.add(' and ');
ADOQuery1.SQL.add('firstName LIKE'+QuotedStr('%'+Edit7.Text+'%')');
end;
if edit6.text='' and edit7.text='' then showmessage('Нет значений для поиска')
else ADOQuery1.active:=true;

[SERG1990]

Stilet, спасибо большущее! Смысл понятен!

BARNEY, у меня он ругается почему-то на ADOQuery1.SQL ... В чем может быть проблема?

[BARNEY]

у вас, в вашем же примере это написано..смотрите внимательно что и где написано.

[Stilet]

ругается

Сильно ругается?

[SERG1990]

Сообщение от Stilet

Сильно ругается?

Нет

Как например к Вашему коду прицепить Radiobutton?
Мне нужно фильтр по полу добавить (не паркетному)))

with ADOQuery1 do begin
SQL.Text:='SELECT * FROM people WHERE lastName LIKE'+QuotedStr('%'+Edit6.Text+'%') ;
if Edit7.Text<>'' then SQL.Text:=SQL.Text+' AND firstName LIKE '+QuotedStr('%'+Edit7.Text+'%');
Active:=True;
end;