main_menu.bak

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

*       *********************************************************
*       *                                                         
*       * 10/04/06            MAIN_MENU.MPR             19:24:40  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称 :崔红军                                             
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址      大连交通大学                                              
*       * 城市,   大连  邮编  116023                                        
*       * 国家  中华人民共和国                                            
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1wv15ls2a OF _MSYSMENU PROMPT "学生信息管理" COLOR SCHEME 3
DEFINE PAD _1wv15ls2b OF _MSYSMENU PROMPT "学生成绩管理" COLOR SCHEME 3
DEFINE PAD _1wv15ls2c OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
ON PAD _1wv15ls2a OF _MSYSMENU ACTIVATE POPUP 学生信息管
ON PAD _1wv15ls2b OF _MSYSMENU ACTIVATE POPUP 学生成绩管
ON PAD _1wv15ls2c 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 .\.\caxun

DEFINE POPUP 学生成绩管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生成绩管 PROMPT "成绩查询" ;
	SKIP FOR rr[6]="0"
DEFINE BAR 2 OF 学生成绩管 PROMPT "成绩统计表" ;
	SKIP FOR rr[7]="0"
ON SELECTION BAR 1 OF 学生成绩管 DO FORM .\MENU2\GZB_QUERY.SCX
ON SELECTION BAR 2 OF 学生成绩管 DO FORM .\MENU2\GZB_BB.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 _1wv15ls2g ;
	IN LOCFILE("MAIN\MAIN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN_MENU?")


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