学习要加,骄傲要减,机会要乘,懒惰要除。 http://www.5dthink.cn
/* 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(); } }
QQ群:1. 全栈码农【346906288】2. VBA/VSTO【2660245】