menu.mpr

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

*       *********************************************************
*       *                                                         
*       * 02/01/05              MENU.MPR                23:21:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2005 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1fv1e1wiy OF _MSYSMENU PROMPT "【系统】(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1fv1e1wiz OF _MSYSMENU PROMPT "【白坯】(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1fv1e1wj0 OF _MSYSMENU PROMPT "【色坯】(\<K)" COLOR SCHEME 3 ;
	KEY ALT+K, ""
DEFINE PAD _1fv1e1wj1 OF _MSYSMENU PROMPT "【销售】(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1fv1e1wj2 OF _MSYSMENU PROMPT "【财务】(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _1fv1e1wj3 OF _MSYSMENU PROMPT "【综合】(\<Z)" COLOR SCHEME 3 ;
	KEY ALT+Z, ""
DEFINE PAD _1fv1e1wj4 OF _MSYSMENU PROMPT "【辅助】(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _1fv1e1wj5 OF _MSYSMENU PROMPT "【帮助】(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1fv1e1wiy OF _MSYSMENU ACTIVATE POPUP 【系统】f
ON PAD _1fv1e1wiz OF _MSYSMENU ACTIVATE POPUP 【白坯】g
ON PAD _1fv1e1wj0 OF _MSYSMENU ACTIVATE POPUP 【色坯】k
ON PAD _1fv1e1wj1 OF _MSYSMENU ACTIVATE POPUP 【销售】x
ON PAD _1fv1e1wj2 OF _MSYSMENU ACTIVATE POPUP 【财务】c
ON PAD _1fv1e1wj3 OF _MSYSMENU ACTIVATE POPUP 【综合】z
ON PAD _1fv1e1wj4 OF _MSYSMENU ACTIVATE POPUP 【辅助】e
ON PAD _1fv1e1wj5 OF _MSYSMENU ACTIVATE POPUP 【帮助】h

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 【白坯】g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【白坯】g PROMPT "白坯采购入库"
DEFINE BAR 2 OF 【白坯】g PROMPT "染厂库存转厂..."
DEFINE BAR 3 OF 【白坯】g PROMPT "\-"
DEFINE BAR 4 OF 【白坯】g PROMPT "染厂库存核销...."
DEFINE BAR 5 OF 【白坯】g PROMPT "染厂库存核销统计..."
DEFINE BAR 6 OF 【白坯】g PROMPT "\-"
DEFINE BAR 7 OF 【白坯】g PROMPT "染厂设置"
DEFINE BAR 8 OF 【白坯】g PROMPT "染厂期初余额录入..."
DEFINE BAR 9 OF 【白坯】g PROMPT "\-"
DEFINE BAR 10 OF 【白坯】g PROMPT "染厂库存明细帐...."
DEFINE BAR 11 OF 【白坯】g PROMPT "染厂库存收付存统计...."
DEFINE BAR 12 OF 【白坯】g PROMPT "\-"
DEFINE BAR 13 OF 【白坯】g PROMPT "白坯进货统计..."
ON SELECTION BAR 1 OF 【白坯】g do comm8 in commfoun.prg
ON SELECTION BAR 2 OF 【白坯】g do comm9 in commfoun.prg
ON SELECTION BAR 4 OF 【白坯】g do comm9_1 in commfoun.prg
ON SELECTION BAR 5 OF 【白坯】g do comm9_2 in commfoun.prg
ON SELECTION BAR 7 OF 【白坯】g do comm9_3 in commfoun.prg
ON SELECTION BAR 8 OF 【白坯】g do comm9_4 in commfoun.prg
ON SELECTION BAR 10 OF 【白坯】g do comm9_5 in commfoun.prg
ON SELECTION BAR 11 OF 【白坯】g do comm9_6 in commfoun.prg
ON SELECTION BAR 13 OF 【白坯】g do comm10 in commfoun.prg

DEFINE POPUP 【色坯】k MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【色坯】k PROMPT "收货单(色坯入库)"
DEFINE BAR 2 OF 【色坯】k PROMPT "\-"
DEFINE BAR 3 OF 【色坯】k PROMPT "色坯返修"
DEFINE BAR 4 OF 【色坯】k PROMPT "\-"
DEFINE BAR 5 OF 【色坯】k PROMPT "收货统计"
DEFINE BAR 6 OF 【色坯】k PROMPT "\-"
DEFINE BAR 7 OF 【色坯】k PROMPT "库存商品数量日报表"
DEFINE BAR 8 OF 【色坯】k PROMPT "库存进销存统计报表"
DEFINE BAR 9 OF 【色坯】k PROMPT "\-"
DEFINE BAR 10 OF 【色坯】k PROMPT "查询商品名细帐"
DEFINE BAR 11 OF 【色坯】k PROMPT "打印商品名细簿"
DEFINE BAR 12 OF 【色坯】k PROMPT "\-"
DEFINE BAR 13 OF 【色坯】k PROMPT "转库"
DEFINE BAR 14 OF 【色坯】k PROMPT "盘点"
DEFINE BAR 15 OF 【色坯】k PROMPT "\-"
DEFINE BAR 16 OF 【色坯】k PROMPT "色坯期初库存录入"
ON SELECTION BAR 1 OF 【色坯】k do comm23 in commfoun.prg
ON BAR 3 OF 【色坯】k ACTIVATE POPUP 色坯返修
ON SELECTION BAR 5 OF 【色坯】k do comm11_5 in commfoun.prg
ON SELECTION BAR 7 OF 【色坯】k do comm11_6 in commfoun.prg
ON SELECTION BAR 8 OF 【色坯】k do comm11_7 in commfoun.prg