1. Data
2. Откройте новое приложение и введите в него модуль данных.
3. Добавьте в модуль данных таблицы Books и Authors.
4. Присвойте таблицам и соответсвующие имена, например AuthorTable, BookLookupTable, AuthorSource, BookLookupSource
5. Откройте Fields Editor для обеих таблиц создайте объект для каждого из полей.
6. Введите в модуль данных второй экземпляр таблицы Book. Присвойте таблице и источнику данных соответствующие имена BookDetailTable, BookDetailSource.
7. Свяжите таблицы BookDetailTable и AuthorTable.
8. Создайте в таблице AuthorTable вычисляемое поле под названием FirstLast.
9. После создания вычисляемого поля присвойте следующий метод событию OnCalcFields:
void __fastcall TMod::AuthorTableCalcFields(TDataSet *DataSet)
{
AuthorTableFiestLast->AsString=AuthorTableFiest->AsString+” “+AuthorTableLast->AsString;
}
10. Создайте поле просмотра. Откройте окно Fields Editor. Создайте новое поле под названием AuthorLookup. Задайте в качестве значения его свойства Type тип String, в качестве значения свойства Field Type –тип Loolup. Свойство KeyField должно иметь свойство AuthNo, свойство DataSet –значение AuthorTable, свойство Lookup Key значение-значение AuthNo, свойство Result Field –значение FirstLast.
11. Поместите в основную форму два компонента TDBGrid. Свяжите их с таблицами модуля данных.
Сохраните приложение. Запустите его на выполнение.
Контрольные вопросы
1. Как создать вычисляемое поле?
2. Как создать и использовать поля подстановки?
