showway.mpr

来自「课程设计时做的一个工资管理系统。数据库编程的典型例子。值得收藏。」· MPR 代码 · 共 37 行

*       *********************************************************
*       *                                                         
*       * 01/05/08             SHOWWAY.MPR              18:46:16  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * coolgou@newsmth                                         
*       *                                                         
*       * 版权所有 (C) 2008 tsinghua                             
*       * tsinghua                                                
*       * beijing, bj  100084                                     
*       * cn                                                
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "大图标(\<B)"
DEFINE BAR 2 OF 快捷菜单 PROMPT "小图标(\<S)"
DEFINE BAR 3 OF 快捷菜单 PROMPT "列表显示(\<L)"
DEFINE BAR 4 OF 快捷菜单 PROMPT "详细信息(\<D)"
ON SELECTION BAR 1 OF 快捷菜单 PInfo.MainCon.PerCon.PList.View = 0
ON SELECTION BAR 2 OF 快捷菜单 PInfo.MainCon.PerCon.PList.View = 1
ON SELECTION BAR 3 OF 快捷菜单 PInfo.MainCon.PerCon.PList.View = 2
ON SELECTION BAR 4 OF 快捷菜单 PInfo.MainCon.PerCon.PList.View = 3

ACTIVATE POPUP 快捷菜单