Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

заполнение основной таблицы, через справочную. [D7, Paradox]

Dmit © (2004-10-29 14:46:00)
В базах данных Delphi я пока мало что понимаю, поэтому и не могу уже 3 дня сделать такую операцию как заполнение основной таблицы, через справочную используя DBLookupComboBox.
Т.е. есть таблица Фирмы, с полями:
IdFirm – автоинкрементное, первичный ключ.
FName – строка

И таблица Отчеты с полями:
IdReport – автоинкрементное, первичный ключ
Sum – денежный
RepFirm – целый, внейний ключ.

Связал поле IdFirm и RepFirm связью один ко многим.
Теперь хочу заполнить обе эти таблицы. Таблицу Фирмы заполняю без проблем (вставил на форме Edit и кнопку добавить):
Table1.Insert;
Table1.FieldByName('FName').AsString := Edit1.Text;
Table1.Post;

Для заполнения поля RepFirm в таблице Отчеты вставил на форму DBLookupComboBox.
В свойствах поставил:
ListSourse – DataSourse1
ListField – FName
KeyField – IdFirm
DataSourse – DataSourse2
DataField – RepFirm

Когда запускаю программу в DBLookupComboBox отображаются значения поля FName из таблицы Фирмы, но вот записать данные из этого поля в таблицу Отчеты никак не удается т.е. не знаю как правильно написать следующие строки:
Table2.Insert;
??? Table2.FieldByName('RepFirm').??? := DBLookupComboBox1.???;
Table2.Post;

bushmen (2004-10-29 19:02:00) [1]
>В базах данных Delphi ...

Это очень интересно.

Dmit (2004-10-29 16:29:00) [2]
Silla Огромное спасибо. все быстро получилось. конечно, думаю добавление через combobox выглядело бы более логичным и красивым, но и это совсем не плохо по сравнению с тем что было. спасибо.

Silla (2004-10-29 15:45:00) [3]
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622815&n=14

Mike Kouzmine (2004-10-29 15:31:00) [4]
Может лучше вообще ничего не писать. Ты как?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »