主菜单.mpr

对学生的个人信息进行管理.比如家庭住址.宿舍信息等

*       *********************************************************
*       *                                                         
*       * 10/22/08             主菜单.MPR               08:53:51  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2hs0j2k0h OF _MSYSMENU PROMPT "系统维护(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _2hs0j2k0i OF _MSYSMENU PROMPT "数据录入(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _2hs0j2k0j OF _MSYSMENU PROMPT "数据浏览(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _2hs0j2k0k OF _MSYSMENU PROMPT "数据查询(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _2hs0j2k0l OF _MSYSMENU PROMPT "报表(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _2hs0j2k0m OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _2hs0j2k0h OF _MSYSMENU ACTIVATE POPUP 系统维护s
ON PAD _2hs0j2k0i OF _MSYSMENU ACTIVATE POPUP 数据录入r
ON SELECTION PAD _2hs0j2k0j OF _MSYSMENU do form"f:0\数据浏览.scx"
ON SELECTION PAD _2hs0j2k0k OF _MSYSMENU do form"f:\0\学生信息查询.scx"
ON PAD _2hs0j2k0l OF _MSYSMENU ACTIVATE POPUP 报表t
ON PAD _2hs0j2k0m OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 系统维护s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护s PROMPT "数据备份(\<B)"
DEFINE BAR 2 OF 系统维护s PROMPT "数据恢复(\<F)"
DEFINE BAR 3 OF 系统维护s PROMPT "更改密码(\<R)"
DEFINE BAR 4 OF 系统维护s PROMPT "页面设置(\<U)"
DEFINE BAR 5 OF 系统维护s PROMPT "退出(\<X)"
ON SELECTION BAR 5 OF 系统维护s ;
	DO _2hs0j2k0n ;
	IN LOCFILE("\0\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")

DEFINE POPUP 数据录入r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据录入r PROMPT "学生(\<S)"
DEFINE BAR 2 OF 数据录入r PROMPT "专业信息(\<P)"
DEFINE BAR 3 OF 数据录入r PROMPT "宿舍信息(\<Z)"
ON SELECTION BAR 1 OF 数据录入r do form"f:0\学生信息.scx"
ON SELECTION BAR 2 OF 数据录入r do form"f:\0\专业信息.scx"
ON SELECTION BAR 3 OF 数据录入r do form"f:\0\宿舍信息.scx"

DEFINE POPUP 报表t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表t PROMPT "学生信息报表(\<I)"
DEFINE BAR 2 OF 报表t PROMPT "学生成绩报表"
ON SELECTION BAR 1 OF 报表t report form"f:\0\学生信息报表.frx" preview
ON SELECTION BAR 2 OF 报表t report form"f:\0\学生成绩报表.frx" preview

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题(\<V)"
DEFINE BAR 2 OF 帮助h PROMPT "关于系统(\<A)"
ON SELECTION BAR 2 OF 帮助h do form"f:\0\帮助.scx"


*       *********************************************************
*       *                                                         
*       * _2HS0J2K0N  ON SELECTION BAR 5 OF POPUP 系统维护s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.MPR,            Record:   13         
*       * Called By:  ON SELECTION BAR 5 OF POPUP 系统维护s       
*       * Prompt:     退出(X)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2hs0j2k0n
tempstr=messagebox("确定要退出吗?",68,"学生住宿管理系统")
if tempstr=6
use
modi window screen
set sysmenu to default
activate window command
release all
clear events
endif