main.mpr

这是一个学生成绩管理系统

*       *********************************************************
*       *                                                         
*       * 05/15/03              MAIN.MPR                21:52:16  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0yc1avlsn OF _MSYSMENU PROMPT "系统工具" COLOR SCHEME 3
DEFINE PAD _0yc1avlso OF _MSYSMENU PROMPT "输入/编辑" COLOR SCHEME 3
DEFINE PAD _0yc1avlsx OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _0yc1avlsy OF _MSYSMENU PROMPT "统计打印" COLOR SCHEME 3
DEFINE PAD _0yc1avlsz OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
DEFINE PAD _0yc1avlt0 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _0yc1avlsn OF _MSYSMENU ACTIVATE POPUP 系统工具
ON PAD _0yc1avlso OF _MSYSMENU ACTIVATE POPUP 输入编辑
ON PAD _0yc1avlsx OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _0yc1avlsy OF _MSYSMENU ACTIVATE POPUP 统计打印
ON SELECTION PAD _0yc1avlt0 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 "\-"
DEFINE BAR 5 OF 系统工具 PROMPT "退出"
ON SELECTION BAR 1 OF 系统工具 DO FORM 初始化.scx
ON SELECTION BAR 3 OF 系统工具 do form sys.scx
ON SELECTION BAR 5 OF 系统工具 quit

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 FORM 学生输入.scx
ON SELECTION BAR 2 OF 输入编辑 DO FORM cj.scx
ON SELECTION BAR 3 OF 输入编辑 DO FORM 专业信息输入.scx

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 学生成绩统计.scx
ON SELECTION BAR 2 OF 查询 DO FORM 专业查询.scx

DEFINE POPUP 统计打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计打印 PROMPT "打印学生成绩"
ON SELECTION BAR 1 OF 统计打印 REPORT FORM 成绩报表.frx NOEJECT NOCONSOLE TO PRINTER