/*
1。数据库表的结构：
（
节点ID
节点父ID(PID)
及其他字段
）
ID,PID的类型无所谓，数字，字符都行，也不需要有规律，
只要保证ID字段为主键即可，比如可以用GUID 来作ID。
支持无限级。
2。TTreeNode的Data指向一个结构，结构内有一个域记录节点的ID及PID，
其他的域根据需要可自己定义。
3。从数据库生成树，这是要好好考虑的，要作到效率高，最重要的是“避免反复查询
数据库或遍历数据集”，最好是查询一次就能生成整棵树。
主要思想是：先生成一棵全是根节点的树，再做调整，这样就避免了先读出子节点，
找不到父节点的尴尬。
*/
struct NODEDATA //节点关联的数据
{
int id;
int pid;
AnsiString name;
AnsiString memo; //其他域省略...
};
void __fastcall FillTree()
{
struct NODEDATA *ndata=NULL;
TStringList *ss=NULL;
TTreeNode *aNode=NULL;
TTreeNode *bNode=NULL;
TTreeNode *pNode=NULL;
Query1->Close();
Query1->SQL->Text="select id,pid,name,memo from tree_tab";
Query1->SQL->Open();
try
{
ss=new TStringList();
TreeView->Items->BeginUpdate();//禁止刷新，提高速度
//遍历记录集
for(Query1->First(); !Query1->Eof; Query1->Next())
{
ndata=new NodeData();
ndata->id = Query1->FieldByName("id")->AsInteger;
ndata->pid = Query1->FieldByName("id")->AsInteger;
ndata->name = Query1->FieldByName("name")->AsString;
ndata->memo = Query1->FieldByName("memo")->AsString;
//生成一个根节点加入TreeView
aNode=TreeView1->Items->AddObject(NULL,ndata->name,ndata);
//记录id-TreeNode对应关系,便于下面查找
ss->AddObject(AnsiString(ndata->id),aNode);
}
Query1->Close();
ndata=NULL;
//下面是关键！！
//调整树，根据节点的pid，把节点移到相应的TreeNode下
int idx;
for(aNode=TreeView1->Items->GetFirstNode(); aNode!=NULL ;)
{
ndata = (NODEDATA*)(aNode->Data);
if(-1==(idx=ss->IndexOf(AnsiString(ndata->pid))))
{
aNode=aNode->getNextSibling();
continue;
}
else
{
pNode = (TTreeNode*)(ss->Objects[idx]);
bNode=aNode;
aNode=aNode->getNextSibling();
bNode->MoveTo(pNode,naAddChild);
}
}
}
__finally
{
delete ss; ss=NULL;
Query1->Close();
TreeView->Items->EndUpdate();
}
}