cdlr.mpr

通过网络教学使同学们能通过自答自测的方式掌握知识

*       *********************************************************
*       *                                                         
*       * 06/08/03              CDLR.MPR                09:28:59  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0z00kbqly OF _MSYSMENU PROMPT "浏览成绩(\<B)" COLOR SCHEME 3 ;
	KEY CTRL+B, "CTRL+B" ;
	MESSAGE ('逐一浏览学生成绩或查询')
DEFINE PAD _0z00kbqlz OF _MSYSMENU PROMPT "成绩单(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _0z00kbqm0 OF _MSYSMENU PROMPT "开始出题" COLOR SCHEME 3
DEFINE PAD _0z00kbqm1 OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, "" ;
	MESSAGE ('退出本系统')
ON SELECTION PAD _0z00kbqly OF _MSYSMENU do form cx.scx
ON PAD _0z00kbqlz OF _MSYSMENU ACTIVATE POPUP 成绩单g
ON PAD _0z00kbqm0 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON SELECTION PAD _0z00kbqm1 OF _MSYSMENU ;
	DO _0z00kbqm2 ;
	IN LOCFILE("\选择题系统\CDLR" ,"MPX;MPR|FXP;PRG" ,"WHERE is CDLR?")

DEFINE POPUP 成绩单g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩单g PROMPT "打印预览(\<V)" ;
	MESSAGE ('在打印前显示整个页面')
DEFINE BAR 2 OF 成绩单g PROMPT "打印(\<P)" ;
	KEY CTRL+P, "CTRL+P" ;
	MESSAGE ('打印学生成绩单的内容')
ON SELECTION BAR 1 OF 成绩单g report form 成绩单 environment preview
ON SELECTION BAR 2 OF 成绩单g report form 成绩单 environment to printer

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "单选题"
DEFINE BAR 2 OF 新菜单项 PROMPT "多选题"
ON SELECTION BAR 1 OF 新菜单项 do form 单选录入
ON SELECTION BAR 2 OF 新菜单项 do form 多选录入

ON SELECTION MENU _MSYSMENU ;
	DO _0z00kbqm6 ;
	IN LOCFILE("\选择题系统\CDLR" ,"MPX;MPR|FXP;PRG" ,"WHERE is CDLR?")

*       *********************************************************
*       *                                                         
*       * _0Z00KBQM2  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CDLR.MPR,            Record:   12           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(X)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0z00kbqm2
use
modify window screen
set sysmenu to default
activate window command


*       *********************************************************
*       *                                                         
*       * _0Z00KBQM6  ON SELECTION MENU _MSYSMENU                 
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CDLR.MPR,            Record:    1           
*       * Called By:  ON SELECTION MENU _MSYSMENU                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0z00kbqm6
clear all
clear
keyboard '{Ctrl+F4}'
modify window screen title'出题及判卷系统'
use sb