学生管理系统.mpr

小型的学生考试系统

*       *********************************************************
*       *                                                         
*       * 10/28/08          学生管理系统.MPR            22:09:59  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2hy1bidfn OF _MSYSMENU PROMPT "登记(\<D)" COLOR SCHEME 3 ;
	KEY ALT+D, ""
DEFINE PAD _2hy1bidfo OF _MSYSMENU PROMPT "学生管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _2hy1bidfp OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
	KEY CTRL+F, "CTRL+F"
DEFINE PAD _2hy1bidfq OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _2hy1bidfn OF _MSYSMENU ACTIVATE POPUP 登记d
ON PAD _2hy1bidfo OF _MSYSMENU ACTIVATE POPUP 学生管理m
ON PAD _2hy1bidfp OF _MSYSMENU ACTIVATE POPUP 查询
ON SELECTION PAD _2hy1bidfq OF _MSYSMENU quit

DEFINE POPUP 登记d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 登记d PROMPT "学生登记"
ON SELECTION BAR 1 OF 登记d do form f:\学生管理系统\学生登记.scx

DEFINE POPUP 学生管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生管理m PROMPT "成绩管理"
DEFINE BAR 2 OF 学生管理m PROMPT "课程管理"
ON SELECTION BAR 1 OF 学生管理m do form f:\学生管理系统\成绩管理.scx
ON SELECTION BAR 2 OF 学生管理m do form f:\学生管理系统\课程管理.scx

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "成绩查询"
ON SELECTION BAR 1 OF 查询 do form f:\学生管理系统\成绩查询学号输入.scx

ON SELECTION MENU _MSYSMENU ;
	DO _2hy1bidfr ;
	IN LOCFILE("..\学生管理系统\学生管理系统" ,"MPX;MPR|FXP;PRG" ,"WHERE is 学生管理系统?")

*       *********************************************************
*       *                                                         
*       * _2HY1BIDFR  ON SELECTION MENU _MSYSMENU                 
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  学生管理系统.MPR,            Record:    1   
*       * Called By:  ON SELECTION MENU _MSYSMENU                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2hy1bidfr
CLEAR ALL
CLEAR
KEYBOARD'{Ctrl+F4}'
MODIFY WINDOW SCREEN TITLE'学 生 管 理 系 统'
USE 学生信息
USE 成绩
USE 课程