cd.mpr

用vfp语言设计的学籍管理系统源码

*       *********************************************************
*       *                                                         
*       * 11/29/06               CD.MPR                 02:11:46  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1yf04ph15 OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _1yf04ph16 OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD _1yf04ph17 OF _MSYSMENU PROMPT "显示" COLOR SCHEME 3
DEFINE PAD _1yf04ph18 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
DEFINE PAD _1yf04ph19 OF _MSYSMENU PROMPT "屏幕保护" COLOR SCHEME 3
ON PAD _1yf04ph15 OF _MSYSMENU ACTIVATE POPUP 文件
ON PAD _1yf04ph16 OF _MSYSMENU ACTIVATE POPUP 编辑
ON PAD _1yf04ph17 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _1yf04ph18 OF _MSYSMENU ACTIVATE POPUP 帮助
ON SELECTION PAD _1yf04ph19 OF _MSYSMENU do form screen

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 stu_cj
ON SELECTION BAR 2 OF 文件 do form stu_jl
ON BAR 3 OF 文件 ACTIVATE POPUP 用户管理
ON SELECTION BAR 4 OF 文件 quit

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 user
ON SELECTION BAR 2 OF 用户管理 do form change_code

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 1 OF 编辑 do form stu_cj_find
ON SELECTION BAR 2 OF 编辑 do form stu_info_find
ON SELECTION BAR 3 OF 编辑 do form add_stu
ON SELECTION BAR 4 OF 编辑 do form change_stu
ON SELECTION BAR 5 OF 编辑 do form dele_stu

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "查看学生成绩表"
DEFINE BAR 2 OF 新菜单项 PROMPT "查看学生记录表"
ON SELECTION BAR 1 OF 新菜单项 report form stu_cj_rpt preview
ON SELECTION BAR 2 OF 新菜单项 report form stu_info_rpt preview

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于"
ON SELECTION BAR 1 OF 帮助 do form about