tjia.mpr

自编加学习的简单管理系统,希望指教

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


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "添加一条"
DEFINE BAR 2 OF 快捷菜单 PROMPT "删除所选定的一条"
DEFINE BAR 3 OF 快捷菜单 PROMPT "恢复"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _19d135m2x ;
	IN LOCFILE("\库房管理\TJIA" ,"MPX;MPR|FXP;PRG" ,"WHERE is TJIA?")
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _19d135m2y ;
	IN LOCFILE("\库房管理\TJIA" ,"MPX;MPR|FXP;PRG" ,"WHERE is TJIA?")
ON SELECTION BAR 3 OF 快捷菜单 recall all

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _19D135M2X  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  TJIA.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     添加一条                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19d135m2x
locat for ls.cksl=0
if found()
 messagebox('请填写数量',16,'提示信息')
 return
endif
append blank



*       *********************************************************
*       *                                                         
*       * _19D135M2Y  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  TJIA.MPR,            Record:    6           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       * Prompt:     删除所选定的一条                            
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19d135m2y
if messagebox( '是否真的删除该行？',36,'提示信息')=6
 dele
endif