[jekahm]

Доброго времени суток!
Пишу программу для автоматизации библиотеки! (в качестве СУБД использую Oracle). В процессе написания столкнулся с такой проблемой!
У меня есть две таблицы: Читатели (ADOTable1) и Книги (ADOTable2). Они находится на разных формах. На этих формах состветственно находится кнопки "Добавить на форму выдачи". Необходимо, чтобы при выборе определённой строки и и нажатии на кнопку на этих двух формах соответсвенно на форму выдачи добавлялась информация о читателе и книге!
Понимаю, что вопрос наверняка не из области простых, но, если возможно, помогите, пожалуйста, разобраться с этой проблемой! Заранее благодарен!
Должно получиться что-то на подобии этого:

[lmikle]

Есть такая штука - DataModule. Выносишь все компоненты доступа к данным на этот модуль и из всех форм обращаешься туда.

[jekahm]

Сообщение от lmikle

Есть такая штука - DataModule. Выносишь все компоненты доступа к данным на этот модуль и из всех форм обращаешься туда.

То, что есть такая штука, я само собой знаю! Но это не решает моей проблемы, которая описана выше!
Я просто не знаю, как это всё надо реализовать!

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

Только без обид, но то что вы показали - это детский сад. Если уж вы хотите реально помочь библиотеке то начните с того-что набросайте схему данных, выложите сюда и мы всем форумом вам будем помогать прийти к нормальной схеме. А уже потом можно и к написанию интерфейса переходить.

[friz]

Первое я бы отказался от 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;

что-то такое

[jekahm]

Всем спасибо! Я уже разобрался!