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

Question

遍历数据库，用递归的方法加入到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 盘点记帐    

Answer 1

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

Answer 2

我再顶吧，看来delphi没落了

Answer 3

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