主菜单.mpr

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

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1820l8grq OF _MSYSMENU PROMPT "\<1.“一卡通”管理" COLOR SCHEME 3 ;
	KEY ALT+1, ""
DEFINE PAD _1820l8grr OF _MSYSMENU PROMPT "\<2.存折帐户管理" COLOR SCHEME 3 ;
	KEY ALT+2, ""
DEFINE PAD _1820l8grs OF _MSYSMENU PROMPT "\<4.报表统计打印" COLOR SCHEME 3 ;
	KEY ALT+4, ""
DEFINE PAD _1820l8grt OF _MSYSMENU PROMPT "\<B.备份维护" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _1820l8gru OF _MSYSMENU PROMPT "\<X.系统内务" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1820l8grv OF _MSYSMENU PROMPT "\<Q.退出" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _1820l8grt OF _MSYSMENU ACTIVATE POPUP b备份维护
ON PAD _1820l8gru OF _MSYSMENU ACTIVATE POPUP x系统内务
ON SELECTION PAD _1820l8grv 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 版权