menu.mpr

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

*       *********************************************************
*       *                                                         
*       * 10/20/04              MENU.MPR                19:05:14  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2004 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1cy14wswe OF _MSYSMENU PROMPT "系统管理(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1cy14wswf OF _MSYSMENU PROMPT "白坯管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1cy14wswg OF _MSYSMENU PROMPT "色坯库存(\<K)" COLOR SCHEME 3 ;
	KEY ALT+K, ""
DEFINE PAD _1cy14wswh OF _MSYSMENU PROMPT "销售管理(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1cy14wswi OF _MSYSMENU PROMPT "财务管理(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _1cy14wswj OF _MSYSMENU PROMPT "综合管理(\<Z)" COLOR SCHEME 3 ;
	KEY ALT+Z, ""
DEFINE PAD _1cy14wswk OF _MSYSMENU PROMPT "辅助管理(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _1cy14wswl OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1cy14wswe OF _MSYSMENU ACTIVATE POPUP 系统管理f
ON PAD _1cy14wswf OF _MSYSMENU ACTIVATE POPUP _16i0s56s5
ON PAD _1cy14wswh OF _MSYSMENU ACTIVATE POPUP _16i0s5krj
ON PAD _1cy14wswj OF _MSYSMENU ACTIVATE POPUP 综合管理z
ON PAD _1cy14wswk OF _MSYSMENU ACTIVATE POPUP _16i0s4zz8
ON PAD _1cy14wswl OF _MSYSMENU ACTIVATE POPUP _16i0s65pc

DEFINE POPUP 系统管理f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理f PROMPT "基本信息(\<S)"
DEFINE BAR 2 OF 系统管理f PROMPT "\-"
DEFINE BAR 3 OF 系统管理f PROMPT "系统维护(\<W)"
DEFINE BAR 4 OF 系统管理f PROMPT "\-"
DEFINE BAR 5 OF 系统管理f PROMPT "更换操作员(\<Z)"
DEFINE BAR 6 OF 系统管理f PROMPT "口令设置(\<K)"
DEFINE BAR 7 OF 系统管理f PROMPT "\-"
DEFINE BAR 8 OF 系统管理f PROMPT "另存为(\<A)..."
DEFINE BAR 9 OF 系统管理f PROMPT "\-"
DEFINE BAR 10 OF 系统管理f PROMPT "页面设置(\<U)..."
DEFINE BAR 11 OF 系统管理f PROMPT "打印预览(\<V)"
DEFINE BAR 12 OF 系统管理f PROMPT "打印(\<P)..."
DEFINE BAR 13 OF 系统管理f PROMPT "\-"
DEFINE BAR 14 OF 系统管理f PROMPT "注销..."
DEFINE BAR 15 OF 系统管理f PROMPT "\-"
DEFINE BAR 16 OF 系统管理f PROMPT "退出"
ON BAR 1 OF 系统管理f ACTIVATE POPUP _16i0s6eqc
ON BAR 3 OF 系统管理f ACTIVATE POPUP _16i0s6soy
ON SELECTION BAR 16 OF 系统管理f QUIT

DEFINE POPUP _16i0s6eqc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _16i0s6eqc PROMPT "(\<1)操作人员"
DEFINE BAR 2 OF _16i0s6eqc PROMPT "(\<2)业务人员"
DEFINE BAR 3 OF _16i0s6eqc PROMPT "\-"
DEFINE BAR 4 OF _16i0s6eqc PROMPT "(\<3)仓    库"
DEFINE BAR 5 OF _16i0s6eqc PROMPT "(\<4)地    区"
DEFINE BAR 6 OF _16i0s6eqc PROMPT "\-"
DEFINE BAR 7 OF _16i0s6eqc PROMPT "(\<5)商品类别"
DEFINE BAR 8 OF _16i0s6eqc PROMPT "(\<6)商品代码"
DEFINE BAR 9 OF _16i0s6eqc PROMPT "\-"
DEFINE BAR 10 OF _16i0s6eqc PROMPT "(\<7)供货单位"
DEFINE BAR 11 OF _16i0s6eqc PROMPT "(\<8)客户单位"
ON SELECTION BAR 1 OF _16i0s6eqc DO COMM1 IN COMMFOUN.PRG
ON SELECTION BAR 2 OF _16i0s6eqc DO COMM1_1 IN COMMFOUN.PRG
ON SELECTION BAR 4 OF _16i0s6eqc DO COMM2 IN COMMFOUN.PRG
ON SELECTION BAR 5 OF _16i0s6eqc DO COMM2_1 IN COMMFOUN.PRG
ON SELECTION BAR 7 OF _16i0s6eqc DO COMM3 IN COMMFOUN.PRG
ON SELECTION BAR 8 OF _16i0s6eqc DO COMM4 IN COMMFOUN.PRG
ON SELECTION BAR 10 OF _16i0s6eqc DO COMM5 IN COMMFOUN.PRG
ON SELECTION BAR 11 OF _16i0s6eqc DO COMM6 IN COMMFOUN.PRG

DEFINE POPUP _16i0s6soy MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _16i0s6soy PROMPT "(\<A)修改系统设置"
DEFINE BAR 2 OF _16i0s6soy PROMPT "\-"
DEFINE BAR 3 OF _16i0s6soy PROMPT "(\<B)报表格式设计..."
DEFINE BAR 4 OF _16i0s6soy PROMPT "\-"
DEFINE BAR 5 OF _16i0s6soy PROMPT "(\<C)自动修复错误..."
DEFINE BAR 6 OF _16i0s6soy PROMPT "(\<D)数据整理"
DEFINE BAR 7 OF _16i0s6soy PROMPT "(\<E)数据备份与恢复"
DEFINE BAR 8 OF _16i0s6soy PROMPT "\-"
DEFINE BAR 9 OF _16i0s6soy PROMPT "(\<F)进仓单数据检查"
DEFINE BAR 10 OF _16i0s6soy PROMPT "\-"
DEFINE BAR 11 OF _16i0s6soy PROMPT "(\<G)清空系统数据..."
DEFINE BAR 12 OF _16i0s6soy PROMPT "\-"
DEFINE BAR 13 OF _16i0s6soy PROMPT "(\<H)查看系统用户..."
DEFINE BAR 14 OF _16i0s6soy PROMPT "\-"
DEFINE BAR 15 OF _16i0s6soy PROMPT "(\<I)系统二次开发"

DEFINE POPUP _16i0s56s5 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _16i0s56s5 PROMPT "白坯采购入库"
DEFINE BAR 2 OF _16i0s56s5 PROMPT "染厂库存转厂..."
DEFINE BAR 3 OF _16i0s56s5 PROMPT "\-"
DEFINE BAR 4 OF _16i0s56s5 PROMPT "染厂库存核销...."
DEFINE BAR 5 OF _16i0s56s5 PROMPT "染厂库存核销统计..."
DEFINE BAR 6 OF _16i0s56s5 PROMPT "\-"
DEFINE BAR 7 OF _16i0s56s5 PROMPT "染厂设置"
DEFINE BAR 8 OF _16i0s56s5 PROMPT "染厂期初余额录入..."
DEFINE BAR 9 OF _16i0s56s5 PROMPT "\-"
DEFINE BAR 10 OF _16i0s56s5 PROMPT "染厂库存明细帐...."
DEFINE BAR 11 OF _16i0s56s5 PROMPT "染厂库存收付存统计...."
DEFINE BAR 12 OF _16i0s56s5 PROMPT "\-"
DEFINE BAR 13 OF _16i0s56s5 PROMPT "白坯进货统计..."

DEFINE POPUP _16i0s5krj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _16i0s5krj PROMPT "码单录入"
DEFINE BAR 2 OF _16i0s5krj PROMPT "码单查询..."
DEFINE BAR 3 OF _16i0s5krj PROMPT "\-"
DEFINE BAR 4 OF _16i0s5krj PROMPT "销售日报表..."
DEFINE BAR 5 OF _16i0s5krj PROMPT "\-"
DEFINE BAR 6 OF _16i0s5krj PROMPT "销售成本计算..."
DEFINE BAR 7 OF _16i0s5krj PROMPT "\-"
DEFINE BAR 8 OF _16i0s5krj PROMPT "销售统计..."
ON SELECTION BAR 4 OF _16i0s5krj do comm13 in commfoun.prg
ON SELECTION BAR 6 OF _16i0s5krj do comm15 in commfoun.prg

DEFINE POPUP 综合管理z MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 综合管理z PROMPT "购销存统计图表"
DEFINE BAR 2 OF 综合管理z PROMPT "\-"
DEFINE BAR 3 OF 综合管理z PROMPT "购销进总表..."
DEFINE BAR 4 OF 综合管理z PROMPT "\-"
DEFINE BAR 5 OF 综合管理z PROMPT "商品报价单..."
DEFINE BAR 6 OF 综合管理z PROMPT "\-"
DEFINE BAR 7 OF 综合管理z PROMPT "库存报警..."
DEFINE BAR 8 OF 综合管理z PROMPT "\-"
DEFINE BAR 9 OF 综合管理z PROMPT "(\<N)年终转帐..."

DEFINE POPUP _16i0s4zz8 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _16i0s4zz8 PROMPT "撤消(\<U)"
DEFINE BAR 2 OF _16i0s4zz8 PROMPT "重做(\<D)"
DEFINE BAR 3 OF _16i0s4zz8 PROMPT "\-"
DEFINE BAR 4 OF _16i0s4zz8 PROMPT "剪切(\<T)"
DEFINE BAR 5 OF _16i0s4zz8 PROMPT "复制(\<C)"
DEFINE BAR 6 OF _16i0s4zz8 PROMPT "粘贴(\<P)"
DEFINE BAR 7 OF _16i0s4zz8 PROMPT "\-"
DEFINE BAR 8 OF _16i0s4zz8 PROMPT "计算器..."
DEFINE BAR 9 OF _16i0s4zz8 PROMPT "增值税计算器"

DEFINE POPUP _16i0s65pc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _16i0s65pc PROMPT "帮助主题"
DEFINE BAR 2 OF _16i0s65pc PROMPT "\-"
DEFINE BAR 3 OF _16i0s65pc PROMPT "(\<A)关于...."