Traverse database, using a recursive method to join the mainmenu menu, nodes can be infinite,
CCXLH GNBH (database field name)
00 business management center
0000 the contract management
000000 the contract registration
000001 contract review
000002 contract registration query
0001 procurement management
000100 order management
00010000 automatic order
Purchase order 00010001
00010002 orders to delete
000101 -
000102 migo acceptance
00010200 procurement receiving note
00010201 procurement receiving note delete
00010202 procurement receiving note review
000103 drug rejection report

01 inventory management
0100 goods caustic excessive single
No. 0101 a modified single
0102 empty rack
0103 inventory management
010300 preparation inventory table
010301 entry firm data
010302 inventory review
010303 inventory accounting

CodePudding user response:

Reading the database the MainMenu recursive creation menu

CodePudding user response:

How no one answered, his head once

CodePudding user response:

I'll top, Delphi decline

CodePudding user response:

1. First of all, according to the hierarchical order n times read menu information data:
First read the length is 2 digits, for example, you can read all the first layer menu;
Then, the loop first read the menu, with its value points n time to read the second menu,
For example, the first layer of the first menu is 00, with 00% and length is 2 digits, the second floor to find its menu,
The following recursion, can find out all the menus,

2. The above ways, which in turn read the menu data, use these values to write code to dynamically create the menu "respectively,
Here, if your problem is, that how to dynamically create the menu, please refer to the baidu,
For example:
http://blog.csdn.net/delphi308/article/details/20957039