菜单1.mpr

来自「超市收款」· MPR 代码 · 共 54 行

*       *********************************************************
*       *                                                         
*       * 09/06/01              菜单1.MPR               20:05:15  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2001 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0h4171yoo OF _MSYSMENU PROMPT "信息项目" COLOR SCHEME 3
DEFINE PAD _0h4171yov OF _MSYSMENU PROMPT "进货项目" COLOR SCHEME 3
DEFINE PAD _0h4171yow OF _MSYSMENU PROMPT "销售项目" COLOR SCHEME 3
DEFINE PAD _0h4171yox OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _0h4171yoo OF _MSYSMENU ACTIVATE POPUP 信息项目
ON PAD _0h4171yov OF _MSYSMENU ACTIVATE POPUP 进货项目
ON PAD _0h4171yow OF _MSYSMENU ACTIVATE POPUP 销售项目
ON SELECTION PAD _0h4171yox OF _MSYSMENU quit

DEFINE POPUP 信息项目 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息项目 PROMPT "产品信息"
DEFINE BAR 2 OF 信息项目 PROMPT "客户信息"
DEFINE BAR 3 OF 信息项目 PROMPT "厂家信息"
ON SELECTION BAR 1 OF 信息项目 do form cpk
ON SELECTION BAR 2 OF 信息项目 do form kh
ON SELECTION BAR 3 OF 信息项目 do form cj

DEFINE POPUP 进货项目 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货项目 PROMPT "进货录入"
ON SELECTION BAR 1 OF 进货项目 do form jh

DEFINE POPUP 销售项目 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售项目 PROMPT "销售输入"
ON SELECTION BAR 1 OF 销售项目 do form xiao