Добавьте все поля для Table1,

Как создать lookup-поле в TDBGrid для Delphi 2.0

1. Разместите на форме 2 компонента TTable, 1 компонент TDataSource и 1 - TDBGrid.
2. Подключите Table1 - к DataSource1 - к DBGrid1
3. DataSource1.DataSet = Table1
4. DBGrid1.DataSource = DataSource1
5. Установка Table1
6. Table1.Database = DBDemos
7. Table1.TableName = Customer
8. Table1.Active = True
9. Установка Table2
10. Table2.Database = DBDemos
11. Table2.TableName = Orders
12. Table2.Active = True
13. Добавьте все поля для Table1, используя Fields Editor (редактор полей):
14. Дважды щелкните на Table1
15. Нажмите правую кнопку мыши в редакторе полей
16. Выберите пункт Add New Fields. Добавьте их все.
17. Добавьте новое поле для Table1.
18. Нажмите правую кнопку мыши в редакторе полей и выберите пункт "New Field".
19. Определите следующие параметры для вновь добавленного поля:
20. Name: Bob
21. Type: String
22. Size: 30
23. Select Lookup
24. Key Fields: CustNo    -  Поле в Table1 для хранения значения
25. DataSet: Table2       -  Здесь устанавливается табличный lookup
26. LookUpKeys: CustNo  -  Данный ключ копируется в KeyField
27. Result Field: OrderNo -  Значение для показа пользователю в выпадающем списке
28. Запустите приложение

[001023]


Содержание раздела

---

---