[Kara1989]

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

Помогите!!!

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

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

[PhoeniX]

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

[Gamer09]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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, а в мемо всегда заносите только первый элемент из этого набора.
Надо-же его весь проссматривать:

Код:

1 2 3 4 5

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