高手请进：关于菜单无限级的问题.txt

我定义了一个MENU
BOOT
A
AA
B
BB
C
CC
我在数据库里面建立了一个表:
create table tb_menu(
v_currentid varchar(30) not null,
v_parentid varchar(30) not null,
i_itemstate bit null,
i_level bit null,
v_menutext varchar(100) null,
primey key(v_currentid));

我想在打开主窗体之前就将菜单的的唯一编码,文本读出来,然后存入数据库中,最后再将它们读出,在TreeView中显示出来!
我的问题:我想用递归算法将菜单的是数据读到数据库,但对PB的的一些属性不是很清楚,请高手指教!
我只能做到以下的这种读入方法,但不知道怎样为菜单编一个唯一的ID!
例如:
function wf_dealmenu()
int i,li_c
li_c = upperbound(im_menu.item)
if li_c < 1 or isnull(li_c) then return

string ls_text,ls_id
for i=1 to li_c
ls_id = string(i)
ls_text = im_menu.item[i].text
next
insert into tb_menu v_currentid = :ls_id .....
..........
return

-------------
相信大家应该能明白我的问题所在,请赐教!
在线等待.....................ing.....?