Задание №1. 1. Откройте новое приложение

1. Откройте новое приложение. Создайте модуль данных DMod.

2. В модуль данных поместите по два компонента TTable, TDataSource для таблиц Customer и Orders.

 

 

3. Установите значения в свойствах DatabaseName (используемый псевдоним) , TableName (Customer, Orders , Name (tblCustomer и tblOrders ), Active (True) для компонентов TTable. Свяжите каждый из компонентов TTable с источником TDataSource. Компонентам TDataSource присвойте соответственно имена dsCustomer и dsOrders.

4. Щелкните правой кнопкой мыши по объекту tblCustomer . Из контекстного меню выберите команду Fields Editor.

5. Щелкните правой кнопкой мыши по свободному полю, затем выберите команду Add fields и добавьте нужные поля : CustNo, Company, Add1, Add2, City, State, Zip (Таким образом, эти поля будут определены в заголовочном файле модуля данных)

6. Окно редактора полей не закрывайте и перенесите в сторону. Перейдите в основную форму разместите в верней части объект TPanel. Включите в модуль основной формы модуль данных

7. Затем поочередно перетащите поля из редактора полей. Сразу будут создаваться по два объекта TDBEdit, TLabel. Разместите их как показано на рисунке.

8. Также поместите в форму объект DBNavigator. Определите ему свойства: DataSource –dsCustomer (это свойство было определено объекту DataSource, связанному с таблицей Customer, VisibleButtons –оставьте значение True только для First, Prior, Next, Last.

9. В форму поместите компонент TDBGrid. Установите для него в свойстве DataSource значение dsOrders.

10. Теперь установите связь между таблицами.

11. Установите в свойстве MasterSource объекта tblOrders значение dsCustomer (имя объекта DataSource для таблицы Orders).

12. Установите значение в свойстве MasterFields . После щелчка в конце строки свойства MasterFields появляется окно Field Link Designer. Выберите в списке AvailableIndexes (Доступные индексы) значение CustNo. Затем щелкните на CustNo в списках Detail Fields и Master Fields. Щелкните на кнопке Add. Оба выбранных поля появятся в списке Joined Fields (Связанные поля). Закройте окно щелчком на кнопке ОК.

13. В свойстве IndexName установите значение СustNo (или ByCustNo, т.е. введите имя индекса).

14. Запустите приложение на выполнение.