医药行业

开发平台：
VFP

RIGHTMENU.MPR：源码内容
							*       *********************************************************
*       *                                                         
*       * 07/02/06            RIGHTMENU.MPR             10:16:16  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************
*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*
DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "删除医院(<D)"
DEFINE BAR 2 OF 快捷菜单 PROMPT "-"
DEFINE BAR 3 OF 快捷菜单 PROMPT "重命名医院(<R)"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _1u90m0jdr ;
	IN LOCFILE("区内医院地理信息管理系统MENURIGHTMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is RIGHTMENU?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _1u90m0jds ;
	IN LOCFILE("区内医院地理信息管理系统MENURIGHTMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is RIGHTMENU?")
ACTIVATE POPUP 快捷菜单
*       *********************************************************
*       *                                                         
*       * _1U90M0JDR  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  RIGHTMENU.MPR,            Record:    5      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     删除医院(D)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u90m0jdr
if UserStatus=.T.
	If Messagebox("真的要删除该医院吗？",4+32,"系统提示：")=6
		*formname为全局变量，用于保存表单对象
		formname.RemoveObject(EventObject)  &&移去控件
		Close Database
		Open Database DatabaseDatabase.dbc  &&打开数据库文件
		Use DatabaseTab_Create Exclusive
		Delete From Tab_Create Where 名称=EventObject  &&逻辑删除数据
		pack   &&物理删除数据
		Use
		Use DatabaseTab_Hospital Exclusive
		Delete From Tab_Hospital Where 编号=EventObject  &&逻辑删除数据
		pack    &&物理删除数据
		Use
		Close Database
	Endif
else
	messagebox("您无权删除医院，请与管理员联系！",48,"系统提示！")
endif
*       *********************************************************
*       *                                                         
*       * _1U90M0JDS  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  RIGHTMENU.MPR,            Record:    7      
*       * Called By:  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       * Prompt:     重命名医院(R)                               
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u90m0jds
if UserStatus=.T.
	Do Form Form重命名医院
else
	messagebox("您无权重命名医院，请与管理员联系！",48,"系统提示！")
endif

						