Скачать: CL | DM;

заполнение основной таблицы, через справочную.   Найти похожие ветки 

← →
Dmit   (2004-10-29 14:46) [0]

В базах данных 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;

---

← →
Mike Kouzmine ©   (2004-10-29 15:31) [1]

Может лучше вообще ничего не писать. Ты как?

---

← →
Silla ©   (2004-10-29 15:45) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622815&n=14

---

← →
Dmit   (2004-10-29 16:29) [3]

Silla Огромное спасибо. все быстро получилось. конечно, думаю добавление через combobox выглядело бы более логичным и красивым, но и это совсем не плохо по сравнению с тем что было. спасибо.

---

← →
bushmen ©   (2004-10-29 19:02) [4]

>В базах данных Delphi ...

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.977 c