Практикум - использование связанного элемента Hierarchical FlexGrid

1. Начните новый проект. Убедитесь, что на панели инструментов присутствует ADO-элемент управления, и в дополнение к нему поместите туда же элемент Hierarchical FlexGrid (строка Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB) в диалоговом окне Components).

2. Расположите на форме ADO-элемент управления данны­ми и элемент MS HFlexGrid.

3. Установите свойство ConnectionString для элемента управления данными, как описывалось выше. Затем присвойте свойству CoimandType на странице свойств RecordSource значение 2 - adCmdTable, а свойству Table значение Titles. Устано­вите также значение свойства Visible в False. Это сделает ADO-элемент управле­ния данными невидимым во время выполнения программы. Навигация по набору записей будет осуществляться с помощью полос прокрутки. (Если вы забыли, как устанавливать все эти свойства, посмотрите предыдущие примеры.)

4. Установите свойство DataSource равным Adodcl. Щелкните правой кнопкой мыши по таблице и из появившегося контекстного меню выберите пункт Retrieve Structure (Структура представления отобранных записей). В табличном поле будет показана структура таблицы базы данных. Поскольку в строке соединения элемента Adodcl вы указали таблицу Titles, именно ее структура и отображается

5. Щелкните правой кнопкой мыши по элементу MS HFlexGrid и выберите из меню пункт Properties, чтобы открыть диалоговое окно Property Pages (Страницы свойств). На вкладке General задайте Fixed Cols равным 0. Это уберет самую левую пустую колонку из таблицы. Затем измените значение свойства AllowUserResizing на пункт 3 - Both (см. рис.), что позволит изменять ширину колонок во время ра­боты программы

6. Далее откройте вкладку Bands. Вероятно, вы хотите сгруппировать некоторые поля, но если оставите колонку Title первой в таблице, никакого сведения не получит­ся. Причина в том, что это поле уникально. Необходимо подобрать такое поле, кото­рое позволит сгруппировать записи с одинаковыми значениями в нем. Выделите строку PubID в колонке Column Caption и с помощью кнопки со стрелкой вверх пе­реместите эту строку в первую позицию. Таблица будет выглядеть более привлека­тельно, если изменить значение свойства Gridlines (Линии сетки) на пункт 2 – Inset. Щелкните по кнопке ОК.

7. Чтобы элемент управления действительно заработал, придется написать несколь­ко строк кода для установки дополнительных свойств. В обработчик события Form_Activate добавьте приведенный ниже код:

Private Sub Form_Activate()

Dim iIndex As Integer

With MSHFlexGrid1

.Row = 0

For iIndex = 0 To.Cols - 1

.Col = iIndex

.CellAlignment = 4

.MergeCol(iIndex) = True

Next

.Col = 0

.ColSel =.Cols - 1

.Sort = flexSortGenericAscending

.MergeCells = flexMergeRestrictColumns

End With