main_menu.mpr

vfp实现学籍管理系统,登录,验证,各管理子模快实用高效

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1wy1d4mf0 OF _MSYSMENU PROMPT "学生信息管理" COLOR SCHEME 3
DEFINE PAD _1wy1d4mf1 OF _MSYSMENU PROMPT "学生成绩管理" COLOR SCHEME 3
DEFINE PAD _1wy1d4mf2 OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
ON PAD _1wy1d4mf0 OF _MSYSMENU ACTIVATE POPUP 学生信息管
ON PAD _1wy1d4mf1 OF _MSYSMENU ACTIVATE POPUP 学生成绩管
ON PAD _1wy1d4mf2 OF _MSYSMENU ACTIVATE POPUP 系统管理

DEFINE POPUP 学生信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生信息管 PROMPT "学生数据维护" ;
	SKIP FOR rr[1]="0"
DEFINE BAR 2 OF 学生信息管 PROMPT "学生信息查询" ;
	SKIP FOR rr[2]="0"
ON SELECTION BAR 1 OF 学生信息管 do form .\.\weihu
ON SELECTION BAR 2 OF 学生信息管 do form .\.\chaxun

DEFINE POPUP 学生成绩管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生成绩管 PROMPT "成绩查询" ;
	SKIP FOR rr[6]="0"
ON SELECTION BAR 1 OF 学生成绩管 DO FORM .\cjcx.SCX

DEFINE POPUP 系统管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理 PROMPT "操作员管理" ;
	SKIP FOR rr[11]="0"
DEFINE BAR 2 OF 系统管理 PROMPT "口令设置" ;
	SKIP FOR rr[12]="0"
DEFINE BAR 3 OF 系统管理 PROMPT "权限管理" ;
	SKIP FOR rr[13]="0"
DEFINE BAR 4 OF 系统管理 PROMPT "系统日志" ;
	SKIP FOR rr[14]="0"
DEFINE BAR 5 OF 系统管理 PROMPT "\-"
DEFINE BAR 6 OF 系统管理 PROMPT "数据备份" ;
	SKIP FOR rr[16]="0"
DEFINE BAR 7 OF 系统管理 PROMPT "数据恢复" ;
	SKIP FOR rr[17]="0"
DEFINE BAR 8 OF 系统管理 PROMPT "\-"
DEFINE BAR 9 OF 系统管理 PROMPT "退出系统" ;
	SKIP FOR rr[18]="0"
ON SELECTION BAR 1 OF 系统管理 DO FORM .\SYSTEM\OPERATOR
ON SELECTION BAR 2 OF 系统管理 DO FORM .\SYSTEM\MODIFYPASSWD
ON SELECTION BAR 3 OF 系统管理 DO FORM .\SYSTEM\RIGHT
ON SELECTION BAR 4 OF 系统管理 DO FORM .\SYSTEM\LOG
ON SELECTION BAR 6 OF 系统管理 DO FORM .\SYSTEM\DATABACKUP
ON SELECTION BAR 7 OF 系统管理 DO FORM .\SYSTEM\DATARESTORE
ON SELECTION BAR 9 OF 系统管理 ;
	DO _1wy1d4mf6 ;
	IN LOCFILE("\VF数据库系统大作业\MAIN\MAIN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN_MENU?")


*       *********************************************************
*       *                                                         
*       * _1WY1D4MF6  ON SELECTION BAR 9 OF POPUP 系统管理        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN_MENU.MPR,            Record:   20      
*       * Called By:  ON SELECTION BAR 9 OF POPUP 系统管理        
*       * Prompt:     退出系统                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1wy1d4mf6
clear events    &&退出事件循环
quit