selemenu.mpr

来自「vfp 源码,比较全面」· MPR 代码 · 共 57 行

*       *********************************************************
*       *                                                         
*       * 02/11/00            SELEMENU.MPR              00:05:11  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者姓名                                                
*       *                                                         
*       * 版权(C) 2000 公司名                               
*       * 地址                                                    
*       * 城市,     邮政编码                                      
*       * 国家/地区                                         
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "删除(\<D)"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _016006psm ;
	IN LOCFILE("餐厅收银\SELEMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SELEMENU?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _016006PSM  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SELEMENU.MPR,            Record:    5       
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     删除(D)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _016006psm
sele selemenu
loca for id=thisform.id2
if found()
   dele
   thisform.command7.click
else
   ??chr(7)
endif