menu_1.mpr

来自「本程序为用VF实现的商品管理系统,实现了商品的顾客的注册和商品预定和进出货的管理」· MPR 代码 · 共 93 行

*       *********************************************************
*       *                                                         
*       * 11/07/04             MENU_1.MPR               10:44:15  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1dg0n0iv2 OF _MSYSMENU PROMPT "新顾客注册" COLOR SCHEME 3
DEFINE PAD _1dg0n0ivc OF _MSYSMENU PROMPT "登录" COLOR SCHEME 3
DEFINE PAD m1 OF _MSYSMENU PROMPT "顾客信息" COLOR SCHEME 3 ;
	KEY ALT+G, "ALT+G"
DEFINE PAD _1dg0n0ivd OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1dg0n0ive OF _MSYSMENU PROMPT "供货管理" COLOR SCHEME 3
DEFINE PAD _1dg0n0ivf OF _MSYSMENU PROMPT "商品管理" COLOR SCHEME 3
DEFINE PAD _1dg0n0ivg OF _MSYSMENU PROMPT "其它管理" COLOR SCHEME 3
DEFINE PAD _1dg0n0ivh OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON SELECTION PAD _1dg0n0iv2 OF _MSYSMENU do form zhuche
ON PAD _1dg0n0ivc OF _MSYSMENU ACTIVATE POPUP 登录
ON PAD m1 OF _MSYSMENU ACTIVATE POPUP 定货
ON PAD _1dg0n0ivd OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1dg0n0ive OF _MSYSMENU ACTIVATE POPUP 供货单管理
ON PAD _1dg0n0ivf OF _MSYSMENU ACTIVATE POPUP 商品管理
ON PAD _1dg0n0ivg OF _MSYSMENU ACTIVATE POPUP 其它管理
ON SELECTION PAD _1dg0n0ivh OF _MSYSMENU clear events

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 "订购商品"
DEFINE BAR 4 OF 定货 PROMPT "取消定货"
ON BAR 2 OF 定货 ACTIVATE POPUP 查询商品信

DEFINE POPUP 查询商品信 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询商品信 PROMPT "简单查询"
DEFINE BAR 2 OF 查询商品信 PROMPT "复杂查询"
ON SELECTION BAR 1 OF 查询商品信 do form goodf

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "简单查询"
DEFINE BAR 2 OF 查询 PROMPT "复杂查询"
ON BAR 1 OF 查询 ACTIVATE POPUP _1dd0zpaqi

DEFINE POPUP _1dd0zpaqi MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1dd0zpaqi PROMPT "定货单"
DEFINE BAR 2 OF _1dd0zpaqi PROMPT "存货单"
DEFINE BAR 3 OF _1dd0zpaqi PROMPT "供货单"
DEFINE BAR 4 OF _1dd0zpaqi PROMPT "商品信息"
DEFINE BAR 5 OF _1dd0zpaqi PROMPT "顾客信息"
DEFINE BAR 6 OF _1dd0zpaqi PROMPT "供货商信息"
DEFINE BAR 7 OF _1dd0zpaqi PROMPT "职工信息"
ON SELECTION BAR 4 OF _1dd0zpaqi do form goodf
ON SELECTION BAR 5 OF _1dd0zpaqi do form

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 POPUP 其它管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 其它管理 PROMPT "人事管理"
DEFINE BAR 2 OF 其它管理 PROMPT "仓库管理"
DEFINE BAR 3 OF 其它管理 PROMPT "权限管理"