主菜单.mpr

物业管理系统,包括物业的收入

*       *********************************************************
*       *                                                         
*       * 03/28/04             主菜单.MPR               13:53:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1780trfaz OF _MSYSMENU PROMPT "出入库管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _1780trfbi OF _MSYSMENU PROMPT "查询(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1780trfbk OF _MSYSMENU PROMPT "统计(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _1780trfbl OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
ON PAD _1780trfaz OF _MSYSMENU ACTIVATE POPUP 出入库管理
ON PAD _1780trfbi OF _MSYSMENU ACTIVATE POPUP 查询f
ON PAD _1780trfbk OF _MSYSMENU ACTIVATE POPUP 统计c
ON PAD _1780trfbl OF _MSYSMENU ACTIVATE POPUP 系统管理s

DEFINE POPUP 出入库管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 出入库管理 PROMPT "采购入库"
DEFINE BAR 2 OF 出入库管理 PROMPT "销售出库"
DEFINE BAR 3 OF 出入库管理 PROMPT "退货出库"
DEFINE BAR 4 OF 出入库管理 PROMPT "退货入库"
ON SELECTION BAR 1 OF 出入库管理 do form 采购管理\采购管理
ON SELECTION BAR 2 OF 出入库管理 do form 销售管理\销售管理
ON SELECTION BAR 3 OF 出入库管理 do form 采购管理\退货出库单
ON SELECTION BAR 4 OF 出入库管理 do form 销售管理\退货入库单

DEFINE POPUP 查询f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询f PROMPT "客户资料查询"
DEFINE BAR 2 OF 查询f PROMPT "药品资料查询"
ON SELECTION BAR 1 OF 查询f do form 客户管理\客户资料管理
ON SELECTION BAR 2 OF 查询f do form 采购管理\药品资料管理

DEFINE POPUP 统计c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计c PROMPT "进货统计"
DEFINE BAR 2 OF 统计c PROMPT "销售统计"
ON SELECTION BAR 1 OF 统计c do form 采购管理\进货统计
ON SELECTION BAR 2 OF 统计c do form 销售管理\销售统计

DEFINE POPUP 系统管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理s PROMPT "用户管理"
DEFINE BAR 2 OF 系统管理s PROMPT "退出"