sbda.mpr

来自「设备维修档案管理系统（ＶＦＰ）课程设计」· MPR 代码 · 共 45 行

*       *********************************************************
*       *                                                         
*       * 07/12/05              SBDA.MPR                19:04:56  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * CSL                                                     
*       *                                                         
*       * 版权所有 (C) 2005 昆明理工大学                         
*       * 环城东路                                                
*       * 昆明, 云南  邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "设备基本档案(\<S)" ;
	SKIP FOR !psbda
DEFINE BAR 2 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 3 OF 快捷菜单 PROMPT "设备工作位置变化(\<C)" ;
	SKIP FOR !psbda
DEFINE BAR 4 OF 快捷菜单 PROMPT "设备维修记录(\<W)" ;
	SKIP FOR !psbda
DEFINE BAR 5 OF 快捷菜单 PROMPT "设备失效记录(\<X)" ;
	SKIP FOR !psbda
DEFINE BAR 6 OF 快捷菜单 PROMPT "设备事故记录(\<G)" ;
	SKIP FOR !psbda ;
	MESSAGE "sdfasdf"
ON SELECTION BAR 1 OF 快捷菜单 do form form\Frmsbda
ON SELECTION BAR 3 OF 快捷菜单 do form form\Frmsbwzbh
ON SELECTION BAR 4 OF 快捷菜单 do form form\Frmsbwxjl
ON SELECTION BAR 6 OF 快捷菜单 do form form\Frmsbsgjl

ACTIVATE POPUP 快捷菜单