统计快捷.mpr

来自「一个小型的人事档案管理软件~做课程设计的同学们可以下载参考~也可以稍做修改进行使」· MPR 代码 · 共 54 行

*       *********************************************************
*       *                                                         
*       * 06/11/04            统计快捷.MPR              00:18:26  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "编辑维护<B"
DEFINE BAR 2 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 3 OF 快捷菜单 PROMPT "情况查询<C"
DEFINE BAR 4 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 5 OF 快捷菜单 PROMPT "输出<O"
ON BAR 1 OF 快捷菜单 ACTIVATE POPUP 新菜单项
ON SELECTION BAR 3 OF 快捷菜单 do form SysPath+"\查询.scx"
ON BAR 5 OF 快捷菜单 ACTIVATE POPUP _19602bw7l

DEFINE POPUP 新菜单项 SHORTCUT RELATIVE
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 SysPath+"\学籍维护.scx"
ON SELECTION BAR 3 OF 新菜单项 do form SysPath+"\课程维护.scx"
ON SELECTION BAR 5 OF 新菜单项 do form SysPath+"\成绩维护.scx"

DEFINE POPUP _19602bw7l SHORTCUT RELATIVE
DEFINE BAR 1 OF _19602bw7l PROMPT "预览"
DEFINE BAR 2 OF _19602bw7l PROMPT "\-"
DEFINE BAR 3 OF _19602bw7l PROMPT "打印"
ON SELECTION BAR 1 OF _19602bw7l report form SysPath+"\学籍情况.frx" preview
ON SELECTION BAR 3 OF _19602bw7l report form SysPath+"\学籍情况.frx" to printer

ACTIVATE POPUP 快捷菜单