[Kara1989]

Хочу создать программу "Отдел кадров". Но не получается с отображением данных. например, выбираю одного из сотрудников, и в следующем PadeControl-е не могу отобразить родственников сотрудника. Программа выводит только одного родственника (в DBGrid)!!!

Помогите!!!

[Страдалецъ]

Начинаю телепать.
1. Родственников только одна штука.
2. Стоит ограничение на вывод в 1 запись.
3. Неправильно организована связь мастер-детаил
4. Х.е.з.

[PhoeniX]

Страдалецъ, насчёт 4 верно подметил. Ты и правда телепат!
Исходник в студию! ©

[Gamer09]

2. Стоит ограничение на вывод в 1 запись.
а здесь стоит ограничение? а то только одну запись выводит в мемо, хотя по SQL запросу должно быть много:

Код:

procedure TfMain.Button1Click(Sender: TObject);
var lostS,f: string;
begin
  Memo1.Clear;
  lostS:=Edit1.Text;
  f:=lostS;
begin
 with fMain.ADOQuery1 do
    begin
      Close;
       SQL.Clear;
       SQL.Add('SELECT Name');
       SQL.Add('FROM WORDS');
       SQL.Add(Format('WHERE Name LIKE %s',[QuotedStr('%'+f+'%')]));
       Open;
    Memo1.Lines.Add(fMain.ADOQuery1.Fields[0].AsString)
    end;
  end;
end;

[Страдалецъ]

Надо-же угадал.
Вы получаете некоторый набор данных возвращаемых в AdoQuery, а в мемо всегда заносите только первый элемент из этого набора.
Надо-же его весь проссматривать:

Код:

while not fMain.ADOQuery1.eof
do begin 
    Memo1.Lines.Add(fMain.ADOQuery1.Fields[0].AsString)
    fMain.ADOQuery1.Next;
    end;