关于TreeView控件和数据库相连的问题。达人请进来坐坐！(50分)

小弟现在正在做毕业设计，是人事管理系统。在开发过程中，遇到这样一个问题：在“职工基本
情况”表中，其中有“职工姓名”和“所在部门”两个字段，我想在主界面的左边放一个TreeView
，然后放一个根节点——“全部部门”，然后在这个根节点下用程序导入“职工基本情况”表中的
“所在部门”，再在“所在部门”下放入“职工姓名”。我对TreeView控件不很熟悉，该如何实现
，请达人不吝赐教！

在论坛搜索一下 TreeView ，一大堆，有你所需要的

下面一段代码，你参考
var curid,nodetxt:string;
level,chinedx,cnode:interger
dwbmfamat:'1123';
mynode:array[0..6] of ttreenode;
tree.items.clear;
level:=0;
mynode[level]:=tree.items.add(tree.topitem," 部门")
table1.open;
while not eof do
curid=trim(fieldbyname('dwbm').asstring);
nodetxt:=curid+'-'+trim(fieldbyname('dwmc').asstring);
level:=getnodelevel(dwbmfamat,curid);
if level>0 then
mynode[level]:=tree.items.addchild(mynode[level-1],nidetxt);
next;
end;


function getnodelevel(sformat,scode:string):interger;
var i,level,ilen:interger;
begin
level:=-1;
ilen:=0;
if(sformat<>'') and(sformat) then
for i:=1 to length(sformat) to
begin
ilen:=ilen+strtoint(sformat);
if length(scode)=ilen then
begin
level:=i;
break;
end;
end;
result:=level;
end;

有第三方的控件,你可以找一下,很好用的

谢谢你们。

多人接受答案了。