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

用SPT访问SQL数据表生成动态菜单 出处:网络 * *modify date: 2002.06.04 mender: Niko 满足菜单打开多个窗口，窗口已打开则Activate，工具条及权限随激活窗口而改变 * *modify date: 2002.06.21 mender: Niko 增加文件，编辑，帮助三项，文件项中内容随工具条内按钮相应变更 * * 该程序动态生成 菜单根据 全局变量表 global_right * *global_right(program_id c(6),descr c(40) null,search logic ,amend logic,new logic,candele logic) * * 主菜单固定 (new) * * 1.市场管理 M (Market) * * 2.生产计划 P (Production) * * 3.工程管理 E (Engineer) * * 4.品质(管理) Q (Quantity) * * 5.财务(系统) A (Account) * * 6.报关(系统) C (Custom) * * 7.车间(管理) W (Workshop) * * 8.采购(管理) B (Workshop) * * 9.仓库(管理) S (Workshop) * * 10.其它(功能) O (Other) * * 11.帮助 H (Help) * * 12.退出 X (eXit) LPARAMETERS oFormRef, getMenuName, lUniquePopups LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormName,i,macro1,programid,loginsucc *!* IF TYPE(m.oFormRef) # O OR ; *!* LOWER(m.oFormRef.BaseClass) # form OR ; *!* m.oFormRef.ShowWindow # 2 *!* MESSAGEBOX([只能从顶层表单调用该菜单。请确认您表单的 ShowWindow 属性已设为 2。阅读此菜单 MPR 文件的头部分，可以获得详细信息。]) *!* RETURN *!* ENDIF m.cTypeParm2 = TYPE(m.getMenuName) m.cMenuName =MAINFORM SYS(2015) m.cSaveFormName = m.oFormRef.Name IF m.cTypeParm2 = C OR (m.cTypeParm2 = L AND m.getMenuName) m.oFormRef.Name = m.cMenuName ENDIF IF m.cTypeParm2 = C AND !EMPTY(m.getMenuName) m.cMenuName = m.getMenuName ENDIF i=0 select * from global_right where len(alltrim(program_id))3 into cursor temp 第三级菜单 select distinct left(program_id,3) as program_id from global_right where len(alltrim(program_id))3 into cursor temp i=_tally 得到有有多少个第二级菜单有第三级菜单 select * from global_right where exists(select * from temp where global_gram_id=gram_id) and len(alltrim(global_gram_id))3 into cursor temp_menu tempp_menu 得到有第三级菜单的程序代号权限表。 select * from global_right where exists(select * from temp where global_gram_id==gram_id) into cursor tempp tempp 得到有第三级菜单的第二级菜单项 DIMENSION a_menupops[i+13] IF TYPE(m.lUniquePopups)=L AND m.lUniquePopups FOR nTotPops = 3 TO ALEN(a_menupops) a_menupops[m.nTotPops]= SYS(2015) ENDFOR ELSE a_menupo