Иллюстрированный самоучитель по Visual FoxPro 8

Создание объекта Grid с помощью конструктора форм

10. Скорректируйте свойство columncount (Количество столбцов) объекта Grid (Таблица), задав количество столбцов в создаваемом объекте равным 3.
11. Если вы хотите изменить цвет сетки таблицы, определите свойство GridLineCoior (Цвет сетки таблицы) объекта Grid (Таблица).
12. Используя свойство Controisource (Источник данных) каждого из трех объектов column (Столбец), входящих в объект Grid (Таблица), свяжите столбцы с полями таблицы Phoncust.
13. Используйте Caption (Надпись) каждого из трех объектов Header (Заголовок), входящих в объект Grid (Таблица), введите заголовки столбцов Вид связи, Номер кода и Номер. Чтобы заголовки располагались по центру столбцов, скорректируйте для каждою из них свойстве Alignment (Выравнивание), установив значение Middle center (По середине, в центре).

    Определение первого объекта Grid (Таблица) завершено. Разместим в форме второй объект Grid (Таблица).

14. Нажмите кнопку Grid (Таблица) на панели инструментов Form Controls (Элементы управления формы).
15. Установите указатель в нижней части формы и, удерживая кнопку мыши в нажатом состоянии, переместите курсор по диагонали так, чтобы получилась рамка необходимого размера.
16. Для определения параметров созданного объекта выделите его и откройте окно свойств.
17. Скорректируйте свойство columncount (Количество столбцов) объекта Grid (Таблица), задав количество столбцов (6) в создаваемом объекте.
18. Если необходимо выбрать цвет сетки таблицы, определите свойство GridLineColor (Цвет сетки таблицы) объекта Grid (Таблица).
19. Используя свойство controisource (Источник данных) каждого из пяти объектов column (Столбец), входящих в объект Grid (Таблица), выполните следующие действия:
    • свяжите первые два столбца с полями cnDoc и dDoc таблицы Ordsalem;
    • свяжите третий столбец с полем cnmGoods таблицы Goods;
    • четвертый и пятый столбцы свяжите с полями nQuant и nUnitPrice таблицы Ordsaled.
20. Шестой столбец таблицы будет содержать вычисляемое поле, определяющее стоимость проданного товара. Используя свойство Controisource (Источник данных) для шестого объекта column (Столбец), задайте выражение для вычисляемого поля:

    Ordsaled.nQuant*Ordsaled.nUnitPrice
    

21. Используя свойство caption (Надпись) каждого из шести объектов Header (Заголовок), входящих в объект Grid (Таблица), введите заголовки столбцов: Номер документа, Дата, Наименование товара, Количество, Цена и Стоимость. Чтобы заголовки столбцов располагались по центру, скорректируйте для каждого из них свойство Alignment (Выравнивание), установив значение Middle center (По середине, в центре).
22. Используя свойство Forecoior каждого из пяти объектов Text (Текст), входящих в объект Grid (Таблица), установите цвет (например, красный) для выделения информации при установке курсора на данное поле.
23. Добавьте в создаваемую форму кнопки перемещения по записям. Полученная форма показана на рис. 15.16.
24. Сохраните созданную форму и запустите ее на выполнение. Отметьте, что при перемещении по записям таблицы Customer в первом объекте Grid (Таблица) отображается список телефонных номеров, по которым можно связаться с клиентом, а во втором объекте Grid (Таблица) показывается полный список товаров, купленных данным клиентом (рис. 15.17).

Рис. 15.16. Многотабличная форма

Рис. 15.17. Просмотр многотабличной формы