перенос данных

[Посол_Вон]

Приветствую вас программисты!Возникла необходимость создать программу "Электронная библиотека". На данный момент сделал регистрацию пользователей, сотрудников, фильтры и сортировки.Да связывал с помощью Аксесс, Адоквери, Адосоурс,Адоконнекшн.

Сейчас дошел до момента выдачи книг пользователям, на первой картинке я показал форму пользователей, там есть дбгрид а в ней немного данных.
Так вот, нужно перенести фамилию, имя, отчество на вторую форму(вторая картинка)т.е в комбобоксе будут фамилии(когда нажимаю на выпадающий список), после выбора фамилии, остальные данные(имя, отчество) будут автоматически перенесены в edit1, edit2 соответственно.

Далее в планах при нажатии кнопки книга, будет выпадать список книг (я уже создал таблицу с книгами) после чего выбираю дату возврата книги и все эти данные (по идеи) должны автоматически забиваться в таблицу после нажатия определенной кнопки(пока её нету).

Меня ИНТЕРЕСУЕТ на данный момент первый шаг, т.е свзяь первой таблицы пользователи с комбибоксом и едитами.Я связал форму "Выдача книг" с формой "Пользователи".

[Stilet]

т.е в комбобоксе будут фамилии(когда нажимаю на выпадающий список)

Тогда тебе нужен не DBComboBox а DBLookupComboBox, если уж хочешь чтоб список автоматически подхватывал список из базы.

Далее в планах при нажатии кнопки книга, будет выпадать список книг

То же самое - DBLookupComboBox. И вообще можешь от кнопки избавиться.
Комбики эти лукавые поставь рядом - так будет визуальное совмещение абонента и книги.
Да, и желательно чтоб у каждого комбика лукавого был свой DataSet и свои Query.
Идея оформления ясна?

[Посол_Вон]

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

Тогда тебе нужен не DBComboBox а DBLookupComboBox, если уж хочешь чтоб список автоматически подхватывал список из базы.

То же самое - DBLookupComboBox. И вообще можешь от кнопки избавиться.
Комбики эти лукавые поставь рядом - так будет визуальное совмещение абонента и книги.
Да, и желательно чтоб у каждого комбика лукавого был свой DataSet и свои Query.
Идея оформления ясна?

Да ясна, но непонятна реализация.Прописал в компонент код:

ADOQuery1.First;
DBLookupComboBox1.Items.Clear;
while not ADOQuery1.Eof do begin
   DBLookupComboBox1.Items.Add(ADOQuery1.FieldByName('famp').AsString);
   ADOQuery1.Next;
т.е должен брать из адоквери1(формы я связал,в датасет Form4.DataSource1 ,в листсоурс Form4.DataSource1) данные из famp(фамилия пользователя)

Ругается на DBLookupComboBox1.Items.Clear;



Попробовал вот так:

 pol:=ADOQuery1.FieldValues['famp'];
dbedit1.Text:=ADOQuery1.FieldValues['imp'];
dbedit2.Text:=ADOQuery1.FieldValues['ot4p'];

т.е создал в var переменную pol(integer).

в listsours и keyfield указал нужные ссылки. при запуске программы выдает дает возможность выбрать фамилии (в выпадающем списке), но после выбора виснет с ошибкой

"project project1.exe" raised exception class edatabaseerror with message 'adoquery1:field 'famp' not found'

Вообщем отпишу, что сделал на данный момент.
Вот код:

pol:=ADOquery1.FieldValues['Kod'];
dbEdit1.Text:=ADOquery1.FieldByName('imap').AsString;
dbEdit2.Text:=ADOquery1.FieldByName('ot4p').AsString;

В keyfield DBLookupComboBox1 выбрал "Kod" (ключевой элемент таблицы)
В listfield DBLookupComboBox1 выбрал "famp" (откуда будут браться значения для выпадающего списка)
В listsource выбрал Form4.DataSource1 (т.е где таблица пользователи)

В datasource и datafield ничего не прописовал т.к вылетает.

При запуске программы в DBLookupComboBox1 выбираю фамилию, в edit меняется Имя и Отчество(как мне и надо)
Но!Увы, уже через секунду вылетает с ошибкой

"project project1.exe" raised exception class edatabaseerror with message 'adoquery1:field 'famp' not found'

и всё, надо закрывать программу.

Если есть мнения, буду рад их услышать


Вообщем вот как выкрутился.
Код убрал в DBLookupComboBox1 полностью.
В DBedit выбрал соответственно (imap,ot4p)

В keyfield DBLookupComboBox1 выбрал "Kod" (ключевой элемент таблицы)
В listfield DBLookupComboBox1 выбрал "famp" (откуда будут браться значения для выпадающего списка)
В listsource выбрал Form4.DataSource1 (т.е где таблица пользователи)

на форму (выдача книг) бросил adoquery и datasource.
в sql adoquery прописал SELECT * FROM pol3ovateli и соеденил connection с первой формой.
при запуске программы выбираю в раскрывающемся списке фамилию, в dbedit-ах меняется имя и отчество.Только вот смогу ли я в будующем эти данные перенести в дбгрид?

[Stilet]

уже через секунду вылетает с ошибкой

Значит недонастроил. Так не стелепатируешь - нужно смотреть и анализировать проект. Если хочешь - выложи. Будет время вечерком - гляну.

Только вот смогу ли я в будующем эти данные перенести в дбгрид?

По-моему ты не совсем понял что я тебе хотел сказать в моем посте выше...
Ибо никаких переносов в ДБгрид делать и не нужно. Идея была такая: В Лукавых Комбиках выбираются записи. Лукавые автоматически после выбора устанавливают курсор на нужную запись в своих датасетах, а уже потом по кнопке "сохранить" или типа можно из этих датасетов в другую таблицу (содержащую связь) внести новую запись выбрав ключевые данные из наборов, к которым подключены Лукавые.

[Посол_Вон]

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

Значит недонастроил. Так не стелепатируешь - нужно смотреть и анализировать проект. Если хочешь - выложи. Будет время вечерком - гляну.

По-моему ты не совсем понял что я тебе хотел сказать в моем посте выше...
Ибо никаких переносов в ДБгрид делать и не нужно. Идея была такая: В Лукавых Комбиках выбираются записи. Лукавые автоматически после выбора устанавливают курсор на нужную запись в своих датасетах, а уже потом по кнопке "сохранить" или типа можно из этих датасетов в другую таблицу (содержащую связь) внести новую запись выбрав ключевые данные из наборов, к которым подключены Лукавые.

Спс за подсказку, скорее всего ваш метод лучше чем мой, но я выбрал более геморный путь