03.04.2007, 11:10
|
Новичок
|
|
Регистрация: 31.07.2006
Сообщения: 55
Репутация: 10
|
|
Код:
SQLStr := 'select * from Employers ';
if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') then
begin
SQLStr := SQLStr + ' where ';
if Edit1.Text <> '' then
begin
SQLStr := SQLStr + ' Name = ' + QuotedStr(Edit1.Text);
end;
if Edit2.Text <> '' then
begin
SQLStr := SQLStr + ' Post = ' + QuotedStr(Edit1.Text);
end;
if Edit3.Text <> '' then
begin
SQLStr := SQLStr + ' Patronymic = ' + QuotedStr(Edit1.Text);
end;
end;
|