主菜单.mpr

这是一个用VF开发的学生档案管理系统,里面有源代码,

*       *********************************************************
*       *                                                         
*       * 05/18/06             主菜单.MPR               15:52:01  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1t00y0b35 OF _MSYSMENU PROMPT "浏览信息" COLOR SCHEME 3
DEFINE PAD _1t00y0b36 OF _MSYSMENU PROMPT "填加信息" COLOR SCHEME 3
DEFINE PAD _1t00y0b37 OF _MSYSMENU PROMPT "查询信息" COLOR SCHEME 3
DEFINE PAD _1t00y0b38 OF _MSYSMENU PROMPT "修改信息" COLOR SCHEME 3
DEFINE PAD _1t00y0b39 OF _MSYSMENU PROMPT "信息统计" COLOR SCHEME 3
DEFINE PAD _1t00y0b3a OF _MSYSMENU PROMPT "管理界面" COLOR SCHEME 3
DEFINE PAD _1t00y0b3b OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1t00y0b35 OF _MSYSMENU ACTIVATE POPUP 入住登记
ON PAD _1t00y0b36 OF _MSYSMENU ACTIVATE POPUP 填加信息
ON PAD _1t00y0b37 OF _MSYSMENU ACTIVATE POPUP 人员查询
ON PAD _1t00y0b38 OF _MSYSMENU ACTIVATE POPUP 修改信息
ON PAD _1t00y0b39 OF _MSYSMENU ACTIVATE POPUP 人员统计
ON PAD _1t00y0b3a OF _MSYSMENU ACTIVATE POPUP 管理界面
ON SELECTION PAD _1t00y0b3b OF _MSYSMENU quit

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 1 OF 入住登记 do form xxll
ON SELECTION BAR 2 OF 入住登记 do form nanll
ON SELECTION BAR 3 OF 入住登记 do form nvll
ON SELECTION BAR 4 OF 入住登记 do form cjll

DEFINE POPUP 填加信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 填加信息 PROMPT "人员信息"
DEFINE BAR 2 OF 填加信息 PROMPT "学生成绩"
ON SELECTION BAR 1 OF 填加信息 do form tianjia
ON SELECTION BAR 2 OF 填加信息 do form tjcj

DEFINE POPUP 人员查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 人员查询 PROMPT "学生信息查询"
DEFINE BAR 2 OF 人员查询 PROMPT "学生成绩查询"
ON SELECTION BAR 1 OF 人员查询 do form cxxx
ON SELECTION BAR 2 OF 人员查询 do form cjxx

DEFINE POPUP 修改信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改信息 PROMPT "学生信息修改"
DEFINE BAR 2 OF 修改信息 PROMPT "学生成绩修改"
ON SELECTION BAR 1 OF 修改信息 do form xxxg
ON SELECTION BAR 2 OF 修改信息 do form cjxg

DEFINE POPUP 人员统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 人员统计 PROMPT "学生信息统计"
DEFINE BAR 2 OF 人员统计 PROMPT "学生成绩统计"
ON SELECTION BAR 1 OF 人员统计 do form tongji
ON SELECTION BAR 2 OF 人员统计 do form tongji1

DEFINE POPUP 管理界面 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 管理界面 PROMPT "填加管理员"
DEFINE BAR 2 OF 管理界面 PROMPT "修改管理员信息"
ON SELECTION BAR 1 OF 管理界面 do form tjgly
ON SELECTION BAR 2 OF 管理界面 do form xggly