Довольно часто возникает необходимость создать так называемое "дерево каталогов", т.е. отображение условных каталогов как в проводнике Windows. Разумеется речь не идет только о каталогах файловой системы. Под термином "каталог" здесь подразумевается любое условное объединение данных. На пример, различные группы записей таблицы, относящиеся к разным разделам\подразделам.
В этой статье я объясню создание простого варианта такого "дерева каталогов".
И так, для создания отображения по средствам Visual FoxPro, необходимо:
1. Создать таблицу, содержащую поля, QUID, ParentQUID, Text, Lavel, в которых будут хранится соответсвенно - уникальный идентификатор текущей записи, уникальный идентификатор родительского каталога, текстовое название каталога или подкаталога и номер уровня вложенности.
2. Создать форму (или класс), на которую разместить с панели Form Controls, элемент ActiveX Control (OLEControl). В открывшемся окне Insert Object, выбрать элемент Microsoft TreeView Control, version 6 (или 5(SP2))
3. Создать на форме (или классе) следующие методы и свойства: openDBF(), NewKey(), addCatalog(), delCatalog(), addRecord(), getSelQUID(), getlevel(), showtree() и cnextkey. А также какой-нибудь метод, запускающий процесс заполнения дерева и добавления новых каталогов. В настоящем примере, я помещю код заполнения дерева в метод Init() формы, а добавление нового каталога, в специально созданный метод формы addCatalog().
4. Переименовать, для удобства, компонент Olecontrol1 в oleTree.
5. Заполнить свойство cnextkey значение "1_"
6. Заполнить соответсвующие методы кодом, аналогичным рассмотренному в этом примере

Метод oleTree.Init()


Метод Form.OpenDBF()


Метод Form.AddCatalog()


Метод Form.AddRecord()


Метод Form.NewKey()


Метод Form.GetLevel()


Метод Form.getselquid()


Метод Form.showtree()