showway.mpr

图书管理系统 还是不错的 我觉得是这样的 大家可以参考一下呀

*       *********************************************************
*       *                                                         
*       * 12/07/05             SHOWWAY.MPR              21:10:36  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * coolgou@newsmth                                         
*       *                                                         
*       * 版权所有 (C) 2005 tsinghua                             
*       * tsinghua                                                
*       * beijing, bj  邮编                                       
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 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 快捷菜单 RDInfo.DataList.View = 0
ON SELECTION BAR 2 OF 快捷菜单 RDInfo.DataList.View = 2
ON SELECTION BAR 3 OF 快捷菜单 RDInfo.DataList.View = 2
ON SELECTION BAR 4 OF 快捷菜单 RDInfo.DataList.View = 3

ACTIVATE POPUP 快捷菜单