|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> end else begin pnode:=treeviewItemsItem[ParentIndex]; treeviewItemsAddChild(pnodesname); //根据记录的父节点属性依次为所有记录创建树形图 end; adoqueryNext; end; end; 这样程序运行时单击【显示机构设置】按钮就可以在窗体左边的Treeview中显示根据数据库中机构编码和互相之间关系生成的机构树如图所示读者可以将Treeview控件的AutoExpand属性设置为true让Treeview中的节点在显示时自动全部展开 http://developcsaicn/delphi/images/jpg> 图 显示树结构 right>[http://developcsaicn/delphi/htm>] [] |
