ex_menu.mpr

来自「VF程序设计电子课件 VF程序设计电子课件」· MPR 代码 · 共 69 行

*       *********************************************************
*       *                                                         
*       * 09/14/04             EX_MENU.MPR              10:06:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1by0lniw6 OF _MSYSMENU PROMPT "表数据编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _1by0lniw7 OF _MSYSMENU PROMPT "表数据查询(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1by0lniw8 OF _MSYSMENU PROMPT "表数据报表(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _1by0lniw9 OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _1by0lniw6 OF _MSYSMENU ACTIVATE POPUP 表数据编辑
ON PAD _1by0lniw7 OF _MSYSMENU ACTIVATE POPUP 表数据查询
ON PAD _1by0lniw8 OF _MSYSMENU ACTIVATE POPUP 表数据报表
ON SELECTION PAD _1by0lniw9 OF _MSYSMENU QUIT

DEFINE POPUP 表数据编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 表数据编辑 PROMPT "学生记录编辑(\<X)"
DEFINE BAR 2 OF 表数据编辑 PROMPT "课程记录编辑(\<K)"
DEFINE BAR 3 OF 表数据编辑 PROMPT "成绩记录编辑(\<C)"
DEFINE BAR 4 OF 表数据编辑 PROMPT "\-"
DEFINE BAR 5 OF 表数据编辑 PROMPT "三表同时编辑(\<S)"
ON SELECTION BAR 1 OF 表数据编辑 DO FORM EX_EDXS1
ON SELECTION BAR 2 OF 表数据编辑 DO FORM EX_EDKC
ON SELECTION BAR 3 OF 表数据编辑 DO FORM EX_EDXSKC
ON SELECTION BAR 5 OF 表数据编辑 DO FORM EX_EDPAGE

DEFINE POPUP 表数据查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 表数据查询 PROMPT "学生信息查询"
DEFINE BAR 2 OF 表数据查询 PROMPT "课程信息查询"
DEFINE BAR 3 OF 表数据查询 PROMPT "成绩信息查询"
ON SELECTION BAR 1 OF 表数据查询 DO FORM EX_CZXS
ON SELECTION BAR 2 OF 表数据查询 DO FORM EX_CZKC
ON SELECTION BAR 3 OF 表数据查询 DO FORM EX_CZCJ

DEFINE POPUP 表数据报表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 表数据报表 PROMPT "学生信息报表"
DEFINE BAR 2 OF 表数据报表 PROMPT "课程信息报表"
DEFINE BAR 3 OF 表数据报表 PROMPT "成绩信息报表"
ON SELECTION BAR 1 OF 表数据报表 REPORT FORM ex_bbxs
ON SELECTION BAR 2 OF 表数据报表 REPORT FORM ex_bbkc
ON SELECTION BAR 3 OF 表数据报表 REPORT FORM ex_bbcj3