zhumenu.mpr

学生学籍管理系统主要对学生的各种信息进行自动管理的系统

*       *********************************************************
*       *                                                         
*       * 10/30/06             ZHUMENU.MPR              21:28:48  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1xl1a1f99 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY CTRL+F, "CTRL+F"
DEFINE PAD _1xl1a1f9o OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY CTRL+E, "CTRL+E"
DEFINE PAD _1xl1a1f9p OF _MSYSMENU PROMPT "学籍(\<X)" COLOR SCHEME 3 ;
	KEY CTRL+X, "CTRL+X"
DEFINE PAD _1xl1a1f9q OF _MSYSMENU PROMPT "成绩(\<C)" COLOR SCHEME 3 ;
	KEY CTRL+C, "CTRL+C"
DEFINE PAD _1xl1a1f9r OF _MSYSMENU PROMPT "课程(\<G)" COLOR SCHEME 3 ;
	KEY CTRL+G, "CTRL+G"
DEFINE PAD _1xl1a1f9s OF _MSYSMENU PROMPT "系统维护(\<M)" COLOR SCHEME 3 ;
	KEY CTRL+M, "CTRL+M"
DEFINE PAD _1xl1a1f9t OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY CTRL+Q, "CTRL+Q"
DEFINE PAD _1xl1a1f9u OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY CTRL+H, "CTRL+H"
ON PAD _1xl1a1f99 OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1xl1a1f9p OF _MSYSMENU ACTIVATE POPUP 学籍x
ON PAD _1xl1a1f9q OF _MSYSMENU ACTIVATE POPUP 成绩c
ON PAD _1xl1a1f9r OF _MSYSMENU ACTIVATE POPUP 课程g
ON PAD _1xl1a1f9s OF _MSYSMENU ACTIVATE POPUP 系统维护m
ON SELECTION PAD _1xl1a1f9t OF _MSYSMENU ;
	DO _1xl1a1f9v ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR 4 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR _mfi_pgset OF 文件f PROMPT "页面设置(\<U)..." ;
	MESSAGE "修改页面布局和打印机设置"
DEFINE BAR 8 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"

DEFINE POPUP 学籍x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学籍x PROMPT "基本情况录入"
DEFINE BAR 2 OF 学籍x PROMPT "学号查询"
DEFINE BAR 3 OF 学籍x PROMPT "姓名查询"
ON SELECTION BAR 1 OF 学籍x DO FORM 录入基本情况
ON SELECTION BAR 2 OF 学籍x DO FORM 学号查询
ON SELECTION BAR 3 OF 学籍x DO FORM 姓名查询

DEFINE POPUP 成绩c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩c PROMPT "成绩录入"
DEFINE BAR 2 OF 成绩c PROMPT "成绩查询"
DEFINE BAR 3 OF 成绩c PROMPT "成绩打印"
ON SELECTION BAR 1 OF 成绩c DO FORM 成绩录入
ON SELECTION BAR 2 OF 成绩c DO FORM 成绩查询
ON SELECTION BAR 3 OF 成绩c ;
	DO _1xl1a1f9w ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 课程g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 课程g PROMPT "查看课程"
DEFINE BAR 2 OF 课程g PROMPT "打印课程表"
ON SELECTION BAR 1 OF 课程g DO FORM 查看课程表
ON SELECTION BAR 2 OF 课程g ;
	DO _1xl1a1f9x ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 系统维护m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护m PROMPT "密码修改"
ON SELECTION BAR 1 OF 系统维护m DO FORM 密码修改


*       *********************************************************
*       *                                                         
*       * _1XL1A1F9V  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   35        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(Q)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl1a1f9v
set procedure to zhumenu.mpr		&&指明该过程的位置
close databases										&&关闭数据库
close all											&&关闭所有的表和数据
clear events										&&清除事件循环
quit												&&退出系统



*       *********************************************************
*       *                                                         
*       * _1XL1A1F9W  ON SELECTION BAR 3 OF POPUP 成绩c           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   27        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 成绩c           
*       * Prompt:     成绩打印                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl1a1f9w
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 成绩单.frx &&从成绩单报表中输出



*       *********************************************************
*       *                                                         
*       * _1XL1A1F9X  ON SELECTION BAR 2 OF POPUP 课程g           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   31        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 课程g           
*       * Prompt:     打印课程表                                  
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl1a1f9x
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 课程表.frx &&从课程表报表中输出
close all