main.mpr

仓库管理系统简单版

*       *********************************************************
*       *                                                         
*       * 07/31/03              MAIN.MPR                01:04:48  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _10h02bc4q OF _MSYSMENU PROMPT "销售管理" COLOR SCHEME 3
DEFINE PAD _10h02bc4r OF _MSYSMENU PROMPT "库存管理" COLOR SCHEME 3
DEFINE PAD _10h02bc4s OF _MSYSMENU PROMPT "进货管理" COLOR SCHEME 3
DEFINE PAD _10h02bc4t OF _MSYSMENU PROMPT "商品统计" COLOR SCHEME 3
DEFINE PAD _10h02bc4u OF _MSYSMENU PROMPT "报表汇总" COLOR SCHEME 3
DEFINE PAD _10h02bc4v OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _10h02bc4q OF _MSYSMENU ACTIVATE POPUP 销售管理
ON PAD _10h02bc4r OF _MSYSMENU ACTIVATE POPUP 库存管理
ON PAD _10h02bc4s OF _MSYSMENU ACTIVATE POPUP 进货管理
ON PAD _10h02bc4t OF _MSYSMENU ACTIVATE POPUP 商品统计
ON PAD _10h02bc4u OF _MSYSMENU ACTIVATE POPUP 报表汇总
ON SELECTION PAD _10h02bc4v OF _MSYSMENU ;
	DO _10h02bc4w ;
	IN LOCFILE("7.2.3--商业企业商品信息管理\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

DEFINE POPUP 销售管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售管理 PROMPT "商品销售"
DEFINE BAR 2 OF 销售管理 PROMPT "销售查询"

DEFINE POPUP 库存管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库存管理 PROMPT "商品入库"
DEFINE BAR 2 OF 库存管理 PROMPT "\-"
DEFINE BAR 3 OF 库存管理 PROMPT "库存查询"
ON BAR 3 OF 库存管理 ACTIVATE POPUP 库存查询

DEFINE POPUP 库存查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库存查询 PROMPT "入库日期"
DEFINE BAR 2 OF 库存查询 PROMPT "商品名称"
DEFINE BAR 3 OF 库存查询 PROMPT "商品编号"

DEFINE POPUP 进货管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货管理 PROMPT "进货定单"
DEFINE BAR 2 OF 进货管理 PROMPT "进货查询"

DEFINE POPUP 商品统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 商品统计 PROMPT "销售统计"
DEFINE BAR 2 OF 商品统计 PROMPT "库存统计"
DEFINE BAR 3 OF 商品统计 PROMPT "进货统计"

DEFINE POPUP 报表汇总 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表汇总 PROMPT "销售汇总"
DEFINE BAR 2 OF 报表汇总 PROMPT "库存汇总"
DEFINE BAR 3 OF 报表汇总 PROMPT "进货汇总"


*       *********************************************************
*       *                                                         
*       * _10H02BC4W  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   31           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _10h02bc4w
Release Menus
Set SysMenu To Default
Quit