Первое я бы отказался от adotable и перешел на adoquery (таблицы меня бесят
)
А так в чем собственно проблема? У каждого пользователя и у каждой книги есть поле id. И как я понимаю на формах информация выводиться в DbGrid.. если да, то(на примере query):
Код:
глобальные переменные
book,client:string;
procedure TForm1.DBGrid1CellClick(Column: TColumn); //форма 1 -форма клиентов
begin
client:=DBGrid1.DataSource.DataSet.FieldByName('id').Asstring;
end;
procedure TForm2.DBGrid1CellClick(Column: TColumn); //форма 2 - форма книг
begin
book:=DBGrid1.DataSource.DataSet.FieldByName('id').Asstring;
end;
Ну и потом на на кнопку добавить вешаем:
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery.sql.text:='select name,fam from client where id='+client;
adoquery.open;
form3.clientname.caption:=adoquery.fieldbyname('name'); // |=> это два лабела на третьей форме
form3.clientfam.caption:=adoquery.fieldbyname('fam'); // |
adoquery.close;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
adoquery.sql.text:='select name,index from books where id='+book;
adoquery.open;
form3.bookname.caption:=adoquery.fieldbyname('name'); // |=> это два лабела на третьей форме
form3.bookindex.caption:=adoquery.fieldbyname('index'); // |
adoquery.close;
end;
что-то такое