treeview 数据库的结合

由于我的treeview比较大，变化频繁，所以没有用递归。

void _ado_treeview::loadtree()//装载treeview
{
   PMyRec  MyRecPtr;
   Form1->TreeView1->Items->Clear();
   Form1->TreeView1->Items->BeginUpdate();//禁止更新，等数据处理完成后再更新

   TADOQuery *dquery = new TADOQuery((TComponent *)NULL);   //
   dquery->Connection =Form1->ADOConnection1;               //

  String x="select * from 树目录管理表 order by aID";//aID是节点在TreeView中的绝对索引，用来保存位置
  dquery->SQL->Add(x);
  dquery->Open();
  dquery->First();
  while (!dquery->Eof)
    {
        MyRecPtr = new TMyRec;//TMyRec是一个结构，后面给出定义
        MyRecPtr->shuxing = dquery->FieldByName("属性")->AsString;
        MyRecPtr->id = dquery->FieldByName("id")->AsString;
        MyRecPtr->Father_id=dquery->FieldByName("Father_id")->A