Задание №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. Запустите приложение на выполнение.