VF编的大学学籍管理系统

*       *********************************************************
*       *                                                         
*       * 11/29/01              菜单1.MPR               20:43:42  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2001 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0jg18fexw OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _0jg18fexx OF _MSYSMENU PROMPT "维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _0jg18fexy OF _MSYSMENU PROMPT "统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _0jg18fexz OF _MSYSMENU PROMPT "选课(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _0jg18fey0 OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _0jg18fey1 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _0jg18fey2 OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _0jg18fexw OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _0jg18fexx OF _MSYSMENU ACTIVATE POPUP 维护w
ON PAD _0jg18fexy OF _MSYSMENU ACTIVATE POPUP 统计t
ON SELECTION PAD _0jg18fexz OF _MSYSMENU do form c:\lcy-vf\学生选课.scx
ON PAD _0jg18fey0 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _0jg18fey1 OF _MSYSMENU ACTIVATE POPUP 帮助h
ON SELECTION PAD _0jg18fey2 OF _MSYSMENU ;
	DO _0jg18fey5 ;
	IN LOCFILE("..\..\LCY-VF\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")

DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "学生成绩"
DEFINE BAR 2 OF 查询q PROMPT "\-"
DEFINE BAR 3 OF 查询q PROMPT "个人信息"
DEFINE BAR 4 OF 查询q PROMPT "教师信息"
DEFINE BAR 5 OF 查询q PROMPT "课程信息"
ON SELECTION BAR 1 OF 查询q do form c:\lcy-vf\学生成绩.scx
ON SELECTION BAR 3 OF 查询q do form c:\lcy-vf\个人信息.scx
ON SELECTION BAR 4 OF 查询q do form c:\lcy-vf\教师信息.scx
ON SELECTION BAR 5 OF 查询q do form c:\lcy-vf\课程信息.scx

DEFINE POPUP 维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 维护w PROMPT "修改学生信息"
DEFINE BAR 2 OF 维护w PROMPT "修改课程信息"
DEFINE BAR 3 OF 维护w PROMPT "修改成绩信息"
DEFINE BAR 4 OF 维护w PROMPT "修改班级信息"
DEFINE BAR 5 OF 维护w PROMPT "修改系信息"
ON SELECTION BAR 1 OF 维护w do form c:\lcy-vf\修改学生信息.scx
ON SELECTION BAR 2 OF 维护w do form c:\lcy-vf\修改课程信息.scx
ON SELECTION BAR 3 OF 维护w do form c:\lcy-vf\修改成绩信息.scx
ON SELECTION BAR 4 OF 维护w do form c:\lcy-vf\习惯班级信息.scx
ON SELECTION BAR 5 OF 维护w do form c:\lcy-vf\修改系信息.scx

DEFINE POPUP 统计t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计t PROMPT "个人成绩统计"
DEFINE BAR 2 OF 统计t PROMPT "课程统计"
DEFINE BAR 3 OF 统计t PROMPT "班级统计"
ON SELECTION BAR 1 OF 统计t do form c:\lcy-vf\个人成绩统计.scx
ON SELECTION BAR 2 OF 统计t do form c:\lcy-vf\课程统计.scx
ON SELECTION BAR 3 OF 统计t do form c:\lcy-vf\课程统计.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 c:\lcy-vf\打印学生课表.scx
ON SELECTION BAR 2 OF 新菜单项 do form c:\lcy-vf\打印班级信息表.scx

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题"
DEFINE BAR 2 OF 帮助h PROMPT "关于教务管理系统"
ON SELECTION BAR 2 OF 帮助h ;
	DO _0jg18feyo ;
	IN LOCFILE("..\..\LCY-VF\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")


*       *********************************************************
*       *                                                         
*       * _0JG18FEY5  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   32          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(X)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0jg18fey5

result=messagebox("真的要退出吗？",4+32+256,"信息")
if result=6
  result=messagebox("实要退出吗？",4+32+256,"确认")
    if result=6
       result=messagebox("一定要退出吗？",4+32+256,"再确认")
          if result=6
              release all
              clear events
          endif
    endif
endif


*       *********************************************************
*       *                                                         
*       * _0JG18FEYO  ON SELECTION BAR 2 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   31          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 帮助h           
*       * Prompt:     关于教务管理系统                            
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0jg18feyo
ctitle="教务管理系统"
cmessage="教务管理系统"+ch(13)+"版本号 1.0"+ch(13)+"版权所有 LCY Studio Works"
messagebox(cmessage,0+64+0,ctitle)