Задание №2. 2. Откройте новое приложение и введите в него модуль данных

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. Как создать и использовать поля подстановки?