mainmenu.bak

可以用的,可以对你们取到一些帮助.这是我有两个多星期做的

*       *********************************************************
*       *                                                         
*       * 06/02/05            MAINMENU.MPR              20:57:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1j818wpql OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _1j818wpqm OF _MSYSMENU PROMPT "档案管理" COLOR SCHEME 3
DEFINE PAD _1j818wpqn OF _MSYSMENU PROMPT "成绩管理" COLOR SCHEME 3
DEFINE PAD _1j818wpqo OF _MSYSMENU PROMPT "档案查询" COLOR SCHEME 3
DEFINE PAD _1j818wpqp OF _MSYSMENU PROMPT "成绩统计" COLOR SCHEME 3
DEFINE PAD _1j818wpqq OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
DEFINE PAD _1j818wpqr OF _MSYSMENU PROMPT "关于系统" COLOR SCHEME 3
ON PAD _1j818wpql OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _1j818wpqm OF _MSYSMENU ACTIVATE POPUP 学生档案管
ON PAD _1j818wpqn OF _MSYSMENU ACTIVATE POPUP 学生成绩管
ON PAD _1j818wpqo OF _MSYSMENU ACTIVATE POPUP 学生档案查
ON PAD _1j818wpqq 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 "系班级管理"
DEFINE BAR 4 OF 系统维护 PROMPT "档案库管理"
DEFINE BAR 5 OF 系统维护 PROMPT "成绩库管理"
ON SELECTION BAR 5 OF 系统维护 do from chenjiku.scx

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 "\-"
DEFINE BAR 5 OF 学生档案管 PROMPT "档案删除"
ON BAR 5 OF 学生档案管 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 "条件删除"

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 "成绩修改"
DEFINE BAR 5 OF 学生成绩管 PROMPT "成绩录入"

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 "查询成绩"
DEFINE BAR 5 OF 学生档案查 PROMPT "班级补考名单"
DEFINE BAR 6 OF 学生档案查 PROMPT "查询课程"
DEFINE BAR 7 OF 学生档案查 PROMPT "\-"
DEFINE BAR 8 OF 学生档案查 PROMPT "自定义查询"
DEFINE BAR 9 OF 学生档案查 PROMPT "\-"
DEFINE BAR 10 OF 学生档案查 PROMPT "浏览学生档案"

DEFINE POPUP 退出系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统 PROMPT "退出"
ON SELECTION BAR 1 OF 退出系统 clear events