main.mpr

％8D通信05-1班-姜海中-0502020130-学生信息管理系统

*       *********************************************************
*       *                                                         
*       * 09/12/04              MAIN.MPR                08:14:26  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 韩江恩                                                  
*       *                                                         
*       * 版权所有 (C) 2004 河南理工大学                         
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1bw0hnv24 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1bw0hnv25 OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _1bw0hnv26 OF _MSYSMENU PROMPT "维护(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _1bw0hnv27 OF _MSYSMENU PROMPT "打印报表(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1bw0hnv28 OF _MSYSMENU PROMPT "管理员(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1bw0hnv29 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1bw0hnv2a OF _MSYSMENU PROMPT "退出系统(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _1bw0hnv24 OF _MSYSMENU ACTIVATE POPUP 文件f
ON SELECTION PAD _1bw0hnv25 OF _MSYSMENU do form 学生查询.scx
ON PAD _1bw0hnv26 OF _MSYSMENU ACTIVATE POPUP 维护m
ON PAD _1bw0hnv27 OF _MSYSMENU ACTIVATE POPUP 打印报表t
ON PAD _1bw0hnv28 OF _MSYSMENU ACTIVATE POPUP 管理员g
ON SELECTION PAD _1bw0hnv29 OF _MSYSMENU do form help.scx
ON SELECTION PAD _1bw0hnv2a OF _MSYSMENU ;
	DO _1bw0hnv2b ;
	IN LOCFILE("学生信息管理系统\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
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_quit OF 文件f PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"

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 信息维护.scx
ON SELECTION BAR 2 OF 维护m do form 成绩维护.scx

DEFINE POPUP 打印报表t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印报表t PROMPT "打印预览(\<V)"
DEFINE BAR _mfi_sysprint OF 打印报表t PROMPT "打印(\<P)..." ;
	KEY CTRL+P, "Ctrl+P" ;
	MESSAGE "打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容"
ON SELECTION BAR 1 OF 打印报表t report form 信息报表.frx

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 分配.scx
ON SELECTION BAR 2 OF 管理员g do form 管理.scx


*       *********************************************************
*       *                                                         
*       * _1BW0HNV2B  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   23           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(E)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1bw0hnv2b
clear events
quit