Автозаполнение edit

[Streb]

Добрый день, Уважаемые Форумчане!
Подскажите, пожалуйста, как сделать следующее.
У меня на форме следующие элементы dbcombobox и 2 dbedit.
Таблица пользователи.
Строки таблицы: фамилия, имя и отчество и т.д.
Как сделать, чтобы при выборе в dbcombobox фамилии из таблицы пользователей, в dbedit1 автоматически появилось имя, а в dbedit2 -отчество.
Заранее спасибо!

[Streletz]

Выставить в DataField соответствующие поля.

[Streb]

В DataField итак прописаны соответствующие поля, но они заполняются в БД если в них что-то написать.
А мне надо, чтобы само заполнялось!

[Streletz]

Попробуйте заменить DBComboBox на DBLookUpCombobox.

[Streb]

Streletz, заменил, ничего не произошло.
Может я что-то плохо объяснил.
Пример: В таблице Пользователь много людей, один из них Иванов Сергей Игоревич.
Смотрите, я запускаю программу. В DBLookUpCombobox выбираю фамилию Иванов.
И в dbedit1 появляется Сергей, в dbedit2 появляется Игоревич.

[Streletz]

Теперь понятно.
Можно сделать дополнительный Query или Table или т.д. смотря, через что идёт доступ к БД. И при выборе из DBLookUpComboBox'a делать выборку. А, её результаты отображать в DBEdit'ах.
DBLookUpComboBox, скорее всего, всё равно понадобится, т.к., в отличие от обычного DBCombobox, у него есть свойство для хранения ключа.

[Streb]

Streletz, а как сделать, чтобы при выборе в DBLookUpComboBox фамилии, происходил запрос, результаты которого выводились в edit.
Запрос написать могу, но как его результат вывести в edit?
Т.е. значение, выбранное в DBLookUpComboBox сравнивалось с существующим в БД, и выдавало результат в edit

[Streletz]

Можно и без дополнительного запроса. Если правильно связать данные для выборки и настроить компоненты, всё будет работать даже без дополнительного кода на Delphi. В помощь:
Компоненты доступа и представления данных

[Streb]

Если честно, я не понял как это сделать!

[Streb]

Подскажите, почему код не работает.
Я беру данные (фамилии) из DBLookupComboBox1 и вывожу в edit1 имя, соответствующее этой фамилии.

Var s1,s2:string;
procedure TForm11.btn5Click(Sender: TObject);
begin
  if DBLookupComboBox1.Text = '' then Exit;
s1:='%'+Unit11.Form11.DBLookupComboBox1.Text+'%';
s2:=QuotedStr(s1);
  with Unit5.Form5.qry1 do
  begin
Form5.qry1.SQL:='Select name from users where surname like ' + s2;
Form5.qry1.ExecSQL;
 Form5.qry1.Open;
dbedit1.Text := form5.Qry1.Fields.AsString;

end;
 end;