用SPT访问SQL数据表生成动态菜单

* *修改日期:2002年6月04日修改人:Niko在满足菜单的情况下打开多个窗口，窗口打开后会被激活，工具栏和权限会随着激活窗口而变化
* *修改日期:2002年6月21日修改人:Niko增加了文件、编辑、帮助三项。文件中的项目会随着工具栏中的按钮而改变
* *程序根据全局变量表global _ right
* * global _ right(program _ id c(6)，descr c (40) null，search logic，amend logic，new logic，Candele logic)
* *主菜单fixed (new)
* * 1 .市场管理M(市场)
* * 2。生产计划P(生产)
* * 3。项目管理E(工程师)
。4.质量(管理)Q(数量)
* * 5。财务(系统)A(账户)
* * 6。报关(系统)C(海关)
* * 7。车间(管理)W(车间)[ B(车间)
* * 9。仓库(管理)S(车间)
* * 10。其他(功能)O(其他)
* * 11。Help H(帮助)
* * 12..

l参数oFormRef，getMenuName，luniquepups
LOCAL c menu name，nTotPops，a_menupops，cTypeParm2，cSaveFormName，I，macro1，programid，loginsucc
*！* IF类型(" m.oFormRef") # "O "或；
*！* LOWER(m . oformref . base class)# ' form '或；
*！* m . oformref . show window # 2
*！* MESSAGEBOX([此菜单只能从顶级窗体调用。确保窗体的ShowWindow属性设置为2。阅读此菜单中MPR文件的标题以了解更多信息。])
*！* RETURN
*！* ENDIF
m . ctypeparm2 = TYPE(" m . getmenuname ")
m . cmenname = ' main form ' & & SYS(2015)
m . csaveformname = m . oformref . name
IF m . ctypeparm2 = " C " OR(m . ctypeparm2 = " L " AND m . getmenuname)
m . oformref . name = m . cmenname
EMPTY(m . getmenuname)
m . cmenname = m . getmenuname
ENDIF

I = 0
& & select * from global _ right where len(all trim(program _ id))> 3 into cursor temp & &第三级菜单
select distinct left(program _ id， 3)as program _ id from global _ right where len(all trim(program _ id))> 3 into cursor temp
I = _ tally & & Get多少个二级菜单有三级菜单
select * from global _ right where global _ right . program _ id = temp . program _ id)and len(all trim(global _ right . program _ id))> 3 into cursor temp temp _ menu
& & tempp _ menu获取有三级菜单的程序代码权限表。

select * from global _ right where exists(select * from temp where global _ right . program _ id = = temp . program _ id)into cursor tempp
& & tempp用三级菜单获取二级菜单项。

DIMENSION A _ menupops[I+13]
IF TYPE(" m . luniquepups ")= " L "和m . luniquepups
FOR nTotPops = 3 TO ALEN(A _ menupops)
A _ menupos[m . nTotPops]= sys(2015)
end FOR
else
A _ menupos[1]= " file " & & f
A _ men A _ menupos [10] = "报关" &&c
A _ menupos [11] = "系统管理" &&o
a _ menupos [13] = "帮助" & & h
j = 0
select tempp
scan
j = j+1
A