Дерево на базе MS SQL Server 7/2000 и DELPHI 6(BDE,ADO).

   DELPHI:
      Компоненты:
         BDE версия компонента(TpsDBTreeView)
         ADO версия компонента(TADODBTreeView)
   MS SQL Server 7/2000
      Таблицы
         DBTree
      Хранимые процедуры
         upDBTreeAddNode
         upDBTreeDeleteNode
         upDBTreeGetAllNodes
         upDBTreeGetChildren
         upDBTreeGetFullPath
         upDBTreeMoveNode
         upDBTreeRemoveNode
         upDBTreeRenameNode


Скачать необходимые файлы(модуль ADO-версии компонента расположен отдельно)

   Установка:
   1.Выполните скрипт DBTree.sql, который создаст таблицу и хранимые процедуры.
   2.В DELPHI установите компонент из модуля Un_DBTreeView.

   Чтобы все заработало надо установить у TpsDBTreeView idTree<>0 и указать DatabaseName.

   Пример здесь
  
   Полезный совет: под 6 DELPHI если есть проблемы с подключением к базе( не спрашивает логин) 
                   надо в uses указать DBLogDlg.

   Исправления:

   24.10.01 17:10 
   - В модуле Un_DBTreeView.pas исправлена константа SQLRenameNode.
     (до этого попытка переименовать узел в название, состоящее из нескольких слов,
      приводила к ошибке)
   06.11.01 16:30
   - Текст процедуры, позволяющей удалять из дерева узлы по заданному критерию.
   21.11.01 14:20
   - В модуле Un_DBTreeView.pas исправлена процедура CanCollapse.
    (до этого при запрещении закрытия узла в обработчике OnCollapsing он все-равно закрывался)
   18.12.01 16:30
   - Исправления в хранимой процедуре upDBTreeGetChildren.
    (см. текст:"--Добавляем остальные узлы")
   06.09.02 17:15
   - Добавлен модуль ADO-версии компонента.
     В нем новое свойство RootID, с помощью которого можно отображать часть дерева.


   Комментарии и замечания сюда
   или в гостевую книгу