系统主界面菜单.mpr

来自「医务所药库管理系统（VFP）(包括程序文档)」· MPR 代码 · 共 43 行

*       *********************************************************
*       *                                                         
*       * 01/10/04         系统主界面菜单.MPR           00:25:24  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _15200woft OF _MSYSMENU PROMPT "药品入库(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, ""
DEFINE PAD _15200wofu OF _MSYSMENU PROMPT "药品出库(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, ""
DEFINE PAD _15200wofv OF _MSYSMENU PROMPT "药品查询(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _15200wofw OF _MSYSMENU PROMPT "药品统计(\<A)" COLOR SCHEME 3 ;
	KEY ALT+A, ""
DEFINE PAD _15200wofx OF _MSYSMENU PROMPT "系统维护(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _15200wofy OF _MSYSMENU PROMPT "退出系统(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON SELECTION PAD _15200wofy OF _MSYSMENU quit