行政编制编码按省、市、县三级。代码长度为6位。省级后四位为0000,市级后两位为00。但对于直辖市特殊,一部分县直接归省级管辖。表内容如下: 名称 代码 级别
北京市院 110000 2
海淀区院 110101 4
朝阳区院 110102 4
... ...
... ...
北京铁路局院 110200 3
铁路一院 110201 4
铁路二院 110202 4
... ...
河北省院 130000 2
石家庄院 130100 3
桥东区院 130101 4
桥西区院 130102 4
唐山市院 130200 3
路南区院 130201 4
... ...现在需要根据上述结构,用treeview来分层显示 北京市院
----海淀区院
----朝阳区院
----北京铁路局院
--------铁路一院
--------铁路二院
河北省院
----石家庄院
--------桥东区院
--------桥西区院
----唐山市院
--------路南区院
我苦苦做了一天也没做出来,不得已请教各位老师,我怀疑我的脑袋被尼古丁已经熏坏了。
北京市院 110000 2
海淀区院 110101 4
朝阳区院 110102 4
... ...
... ...
北京铁路局院 110200 3
铁路一院 110201 4
铁路二院 110202 4
... ...
河北省院 130000 2
石家庄院 130100 3
桥东区院 130101 4
桥西区院 130102 4
唐山市院 130200 3
路南区院 130201 4
... ...现在需要根据上述结构,用treeview来分层显示 北京市院
----海淀区院
----朝阳区院
----北京铁路局院
--------铁路一院
--------铁路二院
河北省院
----石家庄院
--------桥东区院
--------桥西区院
----唐山市院
--------路南区院
我苦苦做了一天也没做出来,不得已请教各位老师,我怀疑我的脑袋被尼古丁已经熏坏了。
解决方案 »
- COM入门问题大集中,自认为是顶级高手的进!!!
- 因ocean9b()给错了分,请fyje(云中仙)过来领分!(出于良心考虑,本人开帖送分)
- 求教:如何监视所有gdi关于绘图的API?
- 急呀!!
- 一个上千行的SQL表,每行都有"照片"字段的程序该怎样设计速度才快。
- 用Spcomm控件接收数据时,怎么判断数据接收完成?
- 我如何才能在timage上再画上一个位图呢?我用imageA.canvas,draw(1,1,imageB)不行啊
- 求救求救!!!!!!!!!!!!!!!!!!!! 关于2000和98的字体的问题。
- 关于DriveComboBox的简单问题。
- 各位大哥,请帮帮忙!!!
- ACCESS数据库损坏问题(急!!!!!)
- 关于通过代理使用udp通信问题,
),然后找找treeciew的实现.这个比较容易办.以上答案仅供参考.
:
BookDirs.db
Code (Key Index Field) Name
A000 社会科学类 // 后三位是000为根结点
A100 哲学 // 后二位是00为二级结点
A101 马克主义原理
A200 历史
B000 自然科学类生成的TreeView为:
-A000 社会科学类 //在节点上加入结点编码是为了以后判断点击节点时方便
-A100 哲学
-A101 马克主义原理
-A200 历史
-B000 自然科学类生成树的代码为:procedure TAMdept.GenTree();
var gc,gc1,gc2:string;
nd,ndc:TTreenode;
begin
TreeView.items.Clear;
with BookDirs do
begin
indexname:='Code';
first;
while not eof do
begin
gc:=copy(FieldByName('Code').AsString,2,3);
gc1:=copy(FieldByName('Code').AsString,2,1);
gc2:=copy(FieldByName('Code').AsString,3,2);
if gc='000' then nd:=TreeView.items.add(nil,FieldByName('Code').AsString+' '+FieldByName('Name').AsString)
else if (gc1<>'0') and (gc2='00') then ndc:=TreeView.items.addchild(nd,FieldByName('Code').AsString+' '+FieldByName('Name').AsString)
else TreeView.items.addchild(ndc,FieldByName('Code').AsString+' '+FieldByName('Name').AsString);
Next;
end;
end;
end;