排课菜单.mpr

排课管理系统

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ti16aket OF _MSYSMENU PROMPT "数据录入" COLOR SCHEME 3
DEFINE PAD _1ti16akeu OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1ti16akev OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _1ti16akew OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _1ti16akex OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1ti16aket OF _MSYSMENU ACTIVATE POPUP 数据录入
ON PAD _1ti16akeu OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1ti16akev OF _MSYSMENU ACTIVATE POPUP 报表打印
ON SELECTION PAD _1ti16akew OF _MSYSMENU DO  FORM  统计.scx
ON SELECTION PAD _1ti16akex OF _MSYSMENU 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 课程设置.scx
ON SELECTION BAR 2 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 "班级课程打印"
DEFINE BAR 2 OF 报表打印 PROMPT "教室使用打印"
ON SELECTION BAR 1 OF 报表打印 DO  FORM 班级课程查询.scx
ON SELECTION BAR 2 OF 报表打印 DO  FORM  教室使用情况查询.scx

ON SELECTION MENU _MSYSMENU ;
	DO _1ti16akfn ;
	IN LOCFILE("\GONGQINGMIN\排课菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 排课菜单?")

*       *********************************************************
*       *                                                         
*       * _1TI16AKFN  ON SELECTION MENU _MSYSMENU                 
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  排课菜单.MPR,            Record:    1       
*       * Called By:  ON SELECTION MENU _MSYSMENU                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ti16akfn
clear  all
clear
KeyBoard '{Ctrl+F4}'

Use  班级课程表.FRX