main.mpr

我的第一个程序～～～只为了下东西～～～～～～～～～～～※％（＃◎……×※￥％◎……×％￥◎（）％×＃（）

*       *********************************************************
*       *                                                         
*       * 04/26/06              MAIN.MPR                18:08:14  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1se12vhca OF _MSYSMENU PROMPT "【学生管理】" COLOR SCHEME 3
DEFINE PAD _1se12vhcp OF _MSYSMENU PROMPT "【宿舍管理】" COLOR SCHEME 3
DEFINE PAD _1se12vhcq OF _MSYSMENU PROMPT "【课程管理】" COLOR SCHEME 3
DEFINE PAD _1se12vhcr OF _MSYSMENU PROMPT "【班级管理】" COLOR SCHEME 3
DEFINE PAD _1se12vhcs OF _MSYSMENU PROMPT "【系统菜单】" COLOR SCHEME 3
ON PAD _1se12vhca OF _MSYSMENU ACTIVATE POPUP 【学生管理
ON PAD _1se12vhcp OF _MSYSMENU ACTIVATE POPUP 【宿舍管理
ON PAD _1se12vhcr OF _MSYSMENU ACTIVATE POPUP 【班级管理
ON PAD _1se12vhcs OF _MSYSMENU ACTIVATE POPUP 【系统菜单

DEFINE POPUP 【学生管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【学生管理 PROMPT "学生基本资料"
DEFINE BAR 2 OF 【学生管理 PROMPT "学生选修课程"
DEFINE BAR 3 OF 【学生管理 PROMPT "学生学期成绩"
ON SELECTION BAR 1 OF 【学生管理 ;
	DO _1se12vhct ;
	IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

DEFINE POPUP 【宿舍管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【宿舍管理 PROMPT "宿舍基本资料"
ON SELECTION BAR 1 OF 【宿舍管理 ;
	DO _1se12vhcu ;
	IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

DEFINE POPUP 【班级管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【班级管理 PROMPT "班级基本资料"
DEFINE BAR 2 OF 【班级管理 PROMPT "班级必修课程"
ON SELECTION BAR 1 OF 【班级管理 ;
	DO _1se12vhcv ;
	IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

DEFINE POPUP 【系统菜单 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【系统菜单 PROMPT "新增系统用户"
DEFINE BAR 2 OF 【系统菜单 PROMPT "用户权限设定"
DEFINE BAR 3 OF 【系统菜单 PROMPT "修改用户密码"
DEFINE BAR 4 OF 【系统菜单 PROMPT "退出系统"
ON SELECTION BAR 4 OF 【系统菜单 ;
	DO _1se12vhcw ;
	IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")


*       *********************************************************
*       *                                                         
*       * _1SE12VHCT  ON SELECTION BAR 1 OF POPUP 【学生管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 【学生管理      
*       * Prompt:     学生基本资料                                
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1se12vhct
do Form Forms\Studentfrm


*       *********************************************************
*       *                                                         
*       * _1SE12VHCU  ON SELECTION BAR 1 OF POPUP 【宿舍管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   10           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 【宿舍管理      
*       * Prompt:     宿舍基本资料                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1se12vhcu
do Form Forms\housefrm


*       *********************************************************
*       *                                                         
*       * _1SE12VHCV  ON SELECTION BAR 1 OF POPUP 【班级管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   15           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 【班级管理      
*       * Prompt:     班级基本资料                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1se12vhcv
do Form Forms\ClassFrm


*       *********************************************************
*       *                                                         
*       * _1SE12VHCW  ON SELECTION BAR 4 OF POPUP 【系统菜单      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   22           
*       * Called By:  ON SELECTION BAR 4 OF POPUP 【系统菜单      
*       * Prompt:     退出系统                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1se12vhcw
if messagebox("是否确认退出系统?",292,"学生信息管理系统")=6
  wait "正在退出系统" window nowait
  wait clea
  CLEAR EVENT
endif