主菜单.mpr

通用题库组卷系统 1.本来是一个学生的本科毕业课题

*       *********************************************************
*       *                                                         
*       * 2008.06.02            主菜单.MPR              11:23:36  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2du0of4ne OF _MSYSMENU PROMPT "\<1.“一卡通”管理" COLOR SCHEME 3 ;
	KEY ALT+1, ""
DEFINE PAD _2du0of4nf OF _MSYSMENU PROMPT "\<2.存折帐户管理" COLOR SCHEME 3 ;
	KEY ALT+2, ""
DEFINE PAD _2du0of4ng OF _MSYSMENU PROMPT "\<3.报表统计打印" COLOR SCHEME 3 ;
	KEY ALT+3, ""
DEFINE PAD _2du0of4nh OF _MSYSMENU PROMPT "\<B.备份维护" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _2du0of4ni OF _MSYSMENU PROMPT "\<X.系统内务" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _2du0of4nj OF _MSYSMENU PROMPT "\<Q.退出" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _2du0of4nh OF _MSYSMENU ACTIVATE POPUP b备份维护
ON PAD _2du0of4ni OF _MSYSMENU ACTIVATE POPUP x系统内务
ON SELECTION PAD _2du0of4nj OF _MSYSMENU clear event

DEFINE POPUP b备份维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF b备份维护 PROMPT "\-"
DEFINE BAR 2 OF b备份维护 PROMPT "\<B.数据备份与恢复"
DEFINE BAR 3 OF b备份维护 PROMPT "\<D.报表格式与备份"
DEFINE BAR 4 OF b备份维护 PROMPT "\<E.系统重要资料备份"
DEFINE BAR 5 OF b备份维护 PROMPT "\-"
DEFINE BAR 6 OF b备份维护 PROMPT "\<F.报表格式修改"
DEFINE BAR 7 OF b备份维护 PROMPT "\-"
DEFINE BAR 8 OF b备份维护 PROMPT "\<G.数据清空_勿运行"
DEFINE BAR 9 OF b备份维护 PROMPT "\-"
ON SELECTION BAR 2 OF b备份维护 do 备份数据
ON SELECTION BAR 3 OF b备份维护 do 备份报表
ON SELECTION BAR 4 OF b备份维护 do 备份系统
ON SELECTION BAR 6 OF b备份维护 do form 修改报表

DEFINE POPUP x系统内务 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF x系统内务 PROMPT "\-"
DEFINE BAR 2 OF x系统内务 PROMPT "\<Q.退出"
DEFINE BAR 3 OF x系统内务 PROMPT "\-"
DEFINE BAR 4 OF x系统内务 PROMPT "\<C.整理数据"
DEFINE BAR 5 OF x系统内务 PROMPT "\-"
DEFINE BAR 6 OF x系统内务 PROMPT "\<U.用户管理" ;
	SKIP FOR iif(pub操作级别="高级",.f.,.t.)
DEFINE BAR 7 OF x系统内务 PROMPT "\<G.管理员口令"
DEFINE BAR 8 OF x系统内务 PROMPT "\<S.系统口令" ;
	SKIP FOR iif(pub操作级别="高级",.f.,.t.)
DEFINE BAR 9 OF x系统内务 PROMPT "\-"
DEFINE BAR 10 OF x系统内务 PROMPT "\<B.背景设置"
DEFINE BAR 11 OF x系统内务 PROMPT "\<M.系统设置" ;
	SKIP FOR iif(pub操作级别="高级",.f.,.t.)
DEFINE BAR 12 OF x系统内务 PROMPT "\-"
DEFINE BAR 13 OF x系统内务 PROMPT "\<A.关于"
DEFINE BAR 14 OF x系统内务 PROMPT "\<P.版权声明"
DEFINE BAR 15 OF x系统内务 PROMPT "\-"
ON SELECTION BAR 2 OF x系统内务 clea even
ON SELECTION BAR 4 OF x系统内务 do form 重建索引
ON SELECTION BAR 6 OF x系统内务 do form 管理员
ON SELECTION BAR 7 OF x系统内务 do form 修改口令
ON SELECTION BAR 8 OF x系统内务 do form 系统口令
ON SELECTION BAR 10 OF x系统内务 do form 维护背景
ON SELECTION BAR 11 OF x系统内务 do form 内部参数
ON SELECTION BAR 13 OF x系统内务 do form 关于
ON SELECTION BAR 14 OF x系统内务 do form 版权