Компонент TADODBTreeView

   текст модуля

   Новые свойства:
       1.  Connection:TADOConnection;
           Подключение к базе данных.
       2.  RootID:string;
           Идентификатор верхнего узла дерева. Если NULL, то отображаются узлы с первого уровня.
       3.  DoExpColOnDblClick:Boolean;
           Если False, то при двойном клике по узлу он не раскрывается(раскрывается только при нажатии на +).
       4.  idDBTree:Integer; 
           Идентификатор дерева. Если 0, то считается, что ссылки на дерево нет.
       5.  SelectedID:Integer;
           Идентификатор выбранного узла.Позволяет выбирать узел по идентификатору.

   Новые методы:
       1.  procedure dbLoadFirstLevel;
           Загружает первый уровень дерева.
       2.  function dbAddChild(AParent:TTreeNode;AText:string;idNode:Integer=0):TTreeNode;
           Позволяет добавить узел в дерево.Если AParent=nil, то узел добавляется на первый уровень.
           Если idNode<>0, то создается узел с таким идентификатором.Если idNode=0, то идентификатор
           создается автоматически.Использовать данную возможность следует только при заполнении дерева 
           уже существующими значениями.
           После добавления узла он становится выбранным.  
       3.  procedure dbDeleteNode(Node:TTreeNode;ReQueryFromDB:Boolean=False);
           Позволяет удалить заданный узел из дерева.Если ReQueryFromDB=True, то родительский узел перечитывается из базы.
       4.  procedure dbMoveNode(DNode,SNode:TTreeNode;AsChild:Boolean=False;ReQueryFromDB:Boolean=False);
           Позволяет переместить узел в дереве.Если AsChild=True, то перемещаемый узел становится последним в списке                      
           вложенных в целевой.Если AsChild=False, то перемещаемый узел помещается над целевым на том же уровне.
       
   Узлы дерева:
       Узлы дерева имеют тип TADODBTreeNode. В нем добавлено свойство idNode:Integer;