菜单1.mpr

这是一个学生成绩管理系统

*       *********************************************************
*       *                                                         
*       * 12/12/03              菜单1.MPR               12:30:07  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1470qsnna OF _MSYSMENU PROMPT "系统介绍" COLOR SCHEME 3
DEFINE PAD _1470qsnnb OF _MSYSMENU PROMPT "系统主页" COLOR SCHEME 3
DEFINE PAD _1470qsnnc OF _MSYSMENU PROMPT "系统登陆" COLOR SCHEME 3
DEFINE PAD _1470qsnnd OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _1470qsnne OF _MSYSMENU PROMPT "数据浏览" COLOR SCHEME 3
DEFINE PAD _1470qsnnf OF _MSYSMENU PROMPT "数据查询" COLOR SCHEME 3
DEFINE PAD _1470qsnng OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _1470qsnnh OF _MSYSMENU PROMPT "成绩统计" COLOR SCHEME 3
DEFINE PAD _1470qsnni OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _1470qsnna OF _MSYSMENU ACTIVATE POPUP 系统介绍
ON PAD _1470qsnnb OF _MSYSMENU ACTIVATE POPUP 系统主页
ON PAD _1470qsnnc OF _MSYSMENU ACTIVATE POPUP _1460rnvzg
ON PAD _1470qsnnd OF _MSYSMENU ACTIVATE POPUP 数据维护
ON PAD _1470qsnne OF _MSYSMENU ACTIVATE POPUP 数据浏览
ON PAD _1470qsnnf OF _MSYSMENU ACTIVATE POPUP 数据查询
ON PAD _1470qsnng OF _MSYSMENU ACTIVATE POPUP 报表打印
ON PAD _1470qsnni OF _MSYSMENU ACTIVATE POPUP 退出系统

DEFINE POPUP 系统介绍 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统介绍 PROMPT "系统介绍"
ON SELECTION BAR 1 OF 系统介绍 do form 系统介绍.scx

DEFINE POPUP 系统主页 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统主页 PROMPT "系统主页"
ON SELECTION BAR 1 OF 系统主页 do form 系统主页.scx

DEFINE POPUP _1460rnvzg MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1460rnvzg PROMPT "系统登陆"
ON SELECTION BAR 1 OF _1460rnvzg do form 系统登陆.scx

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 数据维护.scx
ON SELECTION BAR 2 OF 数据维护 do form 学生档案.scx
ON SELECTION BAR 3 OF 数据维护 do form 教学计划.scx

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 学生档案浏览.scx
ON SELECTION BAR 2 OF 数据浏览 do form 学生信息浏览.scx
ON SELECTION BAR 3 OF 数据浏览 do form 教学计划浏览.scx

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 分类查询.scx
ON SELECTION BAR 2 OF 数据查询 do form 单科成绩查询.scx

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 student
ON SELECTION BAR 2 OF 报表打印 report form course
ON SELECTION BAR 3 OF 报表打印 report form student和score

DEFINE POPUP 退出系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统 PROMPT "退出本系统"
DEFINE BAR 2 OF 退出系统 PROMPT "退出foxpro"
ON SELECTION BAR 1 OF 退出系统 ;
	DO _1470qsnnp ;
	IN LOCFILE("大作业\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 退出系统 do form 退出系统.scx


*       *********************************************************
*       *                                                         
*       * _1470QSNNP  ON SELECTION BAR 1 OF POPUP 退出系统        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   35          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出系统        
*       * Prompt:     退出本系统                                  
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1470qsnnp
close data
set sysmenu to defa
close all