delphi读取数据库信息遍历加入mainmenu中

[ok060]

遍历数据库，用递归的方法加入到mainmenu菜单中，节点能是无限的。
ccxlh gnbh （数据库字段名字）
00 业务管理中心
0000 合同管理
000000 合同登记
000001 合同审核
000002 合同登记查询
0001 采购管理
000100 订货管理
00010000 自动订单
00010001 采购订单
00010002 订单删除
000101 -
000102 采购收货验收
00010200 采购收货单
00010201 采购收货单删除
00010202 采购收货单审核
000103 药品拒收报告单

01 库存管理
0100 商品损溢单
0101 架位号修改单
0102 空架位号
0103 盘点管理
010300 准备盘点表
010301 录入实盘数据
010302 盘点审核
010303 盘点记帐

[ok060]

读取数据库递归创建菜单MainMenu

[ok060]

怎么没有人回答呢，自己顶一下吧

[ok060]

我再顶吧，看来delphi没落了

[Frank6600]

1.首先，按层次顺序分n次读入菜单信息数据： 例如，先读入长度为2位数的，就可以读入全部第一层菜单； 然后，循环第一层读到菜单，以它的值分n次去读第二层菜单。 例如第一层第一个菜单是00，就用00%且长度为2位数，去找出它的第二层菜单。 以下递归，就可以找出全部菜单。 2.以上面的方式，依次读入菜单数据后，用这些值，分别编写代码去“动态创建菜单”。 到这里，如果你的问题是，那到底怎么动态创建菜单，请参考百度。 例如： http://blog.csdn.net/delphi308/article/details/20957039