Фильтрация много раз повторяющихся строк в DBGrid в Delphi

[Train-GT]

Доброе время суток! Функцией FormCreate в DBGrid SQL-запросом выводятся данные: Фамилия, Имя, Отчество, Номер телефона. Некоторые люди имеют несколько номеров телефона. Если я напишу так: 'select DISTINCT Фамилия, Имя, Отчество from Сотрудники', то одно повторение Фамилия, Имя, Отчество исчезнет, а остальные останутся.
Есть вопрос: как исключить повторение всех строк Фамилия, Имя, Отчество.

Например:

Было:
Иванов Иван Иванович 77070
Иванов Иван Иванович 73030
Иванов Иван Иванович 75050
Петров Петр Петрович 78080

Пишу:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.ADOQuery1.Close;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Text:='select DISTINCT Фамилия, Имя, Отчество  from Сотрудники';
  Form1.ADOQuery1.Active:=true;
  Form1.ADOQuery1.Open;
end;

Выйдет:
Иванов Иван Иванович
Иванов Иван Иванович
Петров Петр Петрович

Должно быть:
Иванов Иван Иванович
Петров Петр Петрович



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

во-первых, если Вам нужны только фамилия, имя, отчество, без телефонов, то попробуйте такой код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(' select Фамилия, Имя, Отчество  from Сотрудники ');
  ADOQuery1.SQL.Add('   group by Фамилия, Имя, Отчество ');
  ADOQuery1.SQL.Add('   order bt Фамилия, Имя, Отчество ');
  ADOQuery1.Open;
end;

во-вторых, учтите, что выполнять Form1.ADOQuery1.Active:=true; и Form1.ADOQuery1.Open; вместе не надо, это ОДНО и то же.
это всё равно, что два раза подряд написать
Form1.ADOQuery1.Open;
Form1.ADOQuery1.Open;

[Train-GT]

Спасибо, работает! Только у вас там опечатка: order bt, а надо order by.
А еще вопрос: как автоматически подогнать колонки по ширине в DBGrid?

[Stilet]

А попробуй так: http://delphiworld.narod.ru/base/res...d_columns.html

[Serge_Bliznykov]

А еще вопрос: как автоматически подогнать колонки по ширине в DBGrid?

не уверен, что в DBGrid это есть...

но можно реализовать "ручками" - нужно пройтись по всем записям, найти по каждом столбцу максимальную длину поля, потом эту длину пересчитать в длину столбца (вычислить коэффициент самостоятельно в зависимости от шрифта).

[Train-GT]

Ну вы замудрили:

DBGrid1.Columns.Items[0].Width:=80;

[Аватар]

Ну вы замудрили

А вопрос как стоял: как автоматически подогнать колонки по ширине. Не вижу в твоем решении ни автоматики, ни подгонки