qcxlcd.mpr

企业生产库房管理系统,主要企业的材料进出管理,自动生成报表.

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2cx0p6b1h OF _MSYSMENU PROMPT "登记(\<D)" COLOR SCHEME 3 ;
	NEGOTIATE  LEFT, NONE ;
	KEY ALT+D, "ALT+D"
DEFINE PAD _2cx0p6b1i OF _MSYSMENU PROMPT "浏览数据库(\<L)" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _2cx0p6b1j OF _MSYSMENU PROMPT "查询(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _2cx0p6b1k OF _MSYSMENU PROMPT "预览或打印报表(\<Y)" COLOR SCHEME 3 ;
	KEY ALT+Y, ""
DEFINE PAD _2cx0p6b1l OF _MSYSMENU PROMPT "修改编号表(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _2cx0p6b1m OF _MSYSMENU PROMPT "修改数据库(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _2cx0p6b1n OF _MSYSMENU PROMPT "数据库表->Excel表(\<Z)" COLOR SCHEME 3 ;
	KEY ALT+Z, ""
DEFINE PAD _2cx0p6b1r OF _MSYSMENU PROMPT "半成品(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _2cx0p6b1s OF _MSYSMENU PROMPT "退出(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _2cx0p6b1h OF _MSYSMENU ACTIVATE POPUP 登记d
ON PAD _2cx0p6b1i OF _MSYSMENU ACTIVATE POPUP 浏览数据库
ON PAD _2cx0p6b1j OF _MSYSMENU ACTIVATE POPUP 查询c
ON PAD _2cx0p6b1k OF _MSYSMENU ACTIVATE POPUP 预览或打印
ON PAD _2cx0p6b1l OF _MSYSMENU ACTIVATE POPUP 修改编号表
ON PAD _2cx0p6b1m OF _MSYSMENU ACTIVATE POPUP 修改数据库
ON PAD _2cx0p6b1n OF _MSYSMENU ACTIVATE POPUP 数据库表ex
ON PAD _2cx0p6b1r OF _MSYSMENU ACTIVATE POPUP 半成品x
ON SELECTION PAD _2cx0p6b1s OF _MSYSMENU ;
	DO _2cx0p6b1t ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 登记d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 登记d PROMPT "入库登记(\<R)" ;
	KEY CTRL+I, "CTRL+I" ;
	MESSAGE "登记进帐单"
DEFINE BAR 2 OF 登记d PROMPT "领料登记(\<L)" ;
	KEY CTRL+O, "CTRL+O" ;
	MESSAGE "登记领料单"
DEFINE BAR 3 OF 登记d PROMPT "\-"
DEFINE BAR 4 OF 登记d PROMPT "数据备份及恢复"
DEFINE BAR 5 OF 登记d PROMPT "数据初始化"
DEFINE BAR 6 OF 登记d PROMPT "\-"
DEFINE BAR 7 OF 登记d PROMPT "月底转帐(\<Z)" ;
	KEY CTRL+Z, "CTRL+Z" ;
	MESSAGE "把本月库存转为上月结存,本月领出、本月进仓清零！"
ON SELECTION BAR 1 OF 登记d do form rkdj.scx
ON SELECTION BAR 2 OF 登记d do form ckdj.scx
ON BAR 4 OF 登记d ACTIVATE POPUP 数据备份及
ON BAR 5 OF 登记d ACTIVATE POPUP 数据库初始
ON SELECTION BAR 7 OF 登记d ;
	DO _2cx0p6b1u ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 数据备份及 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据备份及 PROMPT "备份数据到硬盘"
DEFINE BAR 2 OF 数据备份及 PROMPT "\-"
DEFINE BAR 3 OF 数据备份及 PROMPT "从A:盘恢复数据"
DEFINE BAR 4 OF 数据备份及 PROMPT "\-"
DEFINE BAR 5 OF 数据备份及 PROMPT "备份数据到A:盘"
DEFINE BAR 6 OF 数据备份及 PROMPT "\-"
DEFINE BAR 7 OF 数据备份及 PROMPT "从硬盘恢复数据"
ON SELECTION BAR 1 OF 数据备份及 ;
	DO _2cx0p6b1v ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 数据备份及 ;
	DO _2cx0p6b1w ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 数据备份及 ;
	DO _2cx0p6b1x ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 7 OF 数据备份及 ;
	DO _2cx0p6b1y ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

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 "\-"
DEFINE BAR 5 OF 数据库初始 PROMPT "初始化库存表"
ON SELECTION BAR 1 OF 数据库初始 do form pass2.scx
ON SELECTION BAR 3 OF 数据库初始 do form pass1.scx
ON SELECTION BAR 5 OF 数据库初始 do form pass3.scx

DEFINE POPUP 浏览数据库 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 浏览数据库 PROMPT "浏览总领料表(\<C)" ;
	KEY CTRL+L, "CTRL+L"
DEFINE BAR 2 OF 浏览数据库 PROMPT "浏览公司领料表"
DEFINE BAR 3 OF 浏览数据库 PROMPT "浏览新品2领料表"
DEFINE BAR 4 OF 浏览数据库 PROMPT "浏览不对称电流源领料表"
DEFINE BAR 5 OF 浏览数据库 PROMPT "浏览载波领料表"
DEFINE BAR 6 OF 浏览数据库 PROMPT "浏览成品领料表"
DEFINE BAR 7 OF 浏览数据库 PROMPT "浏览维护领料表"
DEFINE BAR 8 OF 浏览数据库 PROMPT "浏览负控领料表"
DEFINE BAR 9 OF 浏览数据库 PROMPT "浏览配变领料表"
DEFINE BAR 10 OF 浏览数据库 PROMPT "浏览故障指示领料表"
DEFINE BAR 11 OF 浏览数据库 PROMPT "浏览自动化领料表"
DEFINE BAR 12 OF 浏览数据库 PROMPT "浏览新品领料表"
DEFINE BAR 13 OF 浏览数据库 PROMPT "\-"
DEFINE BAR 14 OF 浏览数据库 PROMPT "浏览入库登记表(\<I)" ;
	KEY CTRL+C, "CTRL+C"
DEFINE BAR 15 OF 浏览数据库 PROMPT "\-"
DEFINE BAR 16 OF 浏览数据库 PROMPT "查看总库存表(\<K)"
DEFINE BAR 17 OF 浏览数据库 PROMPT "浏览总库存表(\<L)" ;
	KEY CTRL+K, "CTRL+K"
DEFINE BAR 18 OF 浏览数据库 PROMPT "\-"
DEFINE BAR 19 OF 浏览数据库 PROMPT "浏览公司库存表"
DEFINE BAR 20 OF 浏览数据库 PROMPT "\-"
ON SELECTION BAR 1 OF 浏览数据库 ;
	DO _2cx0p6b21 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 浏览数据库 ;
	DO _2cx0p6b22 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 浏览数据库 ;
	DO _2cx0p6b23 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 4 OF 浏览数据库 ;
	DO _2cx0p6b24 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 浏览数据库 ;
	DO _2cx0p6b25 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 6 OF 浏览数据库 ;
	DO _2cx0p6b26 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 7 OF 浏览数据库 ;
	DO _2cx0p6b27 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 8 OF 浏览数据库 ;
	DO _2cx0p6b28 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 9 OF 浏览数据库 ;
	DO _2cx0p6b29 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 10 OF 浏览数据库 ;
	DO _2cx0p6b2a ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 11 OF 浏览数据库 ;
	DO _2cx0p6b2b ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 12 OF 浏览数据库 ;
	DO _2cx0p6b2c ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 14 OF 浏览数据库 ;
	DO _2cx0p6b2d ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 16 OF 浏览数据库 ;
	DO _2cx0p6b2e ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 17 OF 浏览数据库 ;
	DO _2cx0p6b2f ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 19 OF 浏览数据库 ;
	DO _2cx0p6b2g ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 查询c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询c PROMPT "入库登记查询(\<R)" ;
	KEY CTRL+R, "CTRL+R"
DEFINE BAR 2 OF 查询c PROMPT "\-"
DEFINE BAR 3 OF 查询c PROMPT "领料登记查询(\<L)" ;
	KEY CTRL+T, "CTRL+T"
DEFINE BAR 4 OF 查询c PROMPT "\-"
DEFINE BAR 5 OF 查询c PROMPT "零件库存查询(\<K)" ;
	KEY CTRL+U, "CTRL+U"
DEFINE BAR 6 OF 查询c PROMPT "零件库存查错(\<C)"
DEFINE BAR 7 OF 查询c PROMPT "\-"
DEFINE BAR 8 OF 查询c PROMPT "排序编号库存表"
DEFINE BAR 9 OF 查询c PROMPT "缺件查询"
ON BAR 1 OF 查询c ACTIVATE POPUP 入库登记查
ON BAR 3 OF 查询c ACTIVATE POPUP 领料登记查
ON BAR 5 OF 查询c ACTIVATE POPUP 零件库存查
ON SELECTION BAR 6 OF 查询c ;
	DO _2cx0p6b2h ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 8 OF 查询c ;
	DO _2cx0p6b2i ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 9 OF 查询c do form quejc

DEFINE POPUP 入库登记查 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 入库登记查 PROMPT "查询" ;
	MESSAGE "查询所有进帐单"
DEFINE BAR 2 OF 入库登记查 PROMPT "\-"
DEFINE BAR 3 OF 入库登记查 PROMPT "按编号查询"
DEFINE BAR 4 OF 入库登记查 PROMPT "\-"
DEFINE BAR 5 OF 入库登记查 PROMPT "按日期查询"
DEFINE BAR 6 OF 入库登记查 PROMPT "\-"
DEFINE BAR 7 OF 入库登记查 PROMPT "按月份查询"
DEFINE BAR 8 OF 入库登记查 PROMPT "\-"
DEFINE BAR 9 OF 入库登记查 PROMPT "按零件名称"
ON SELECTION BAR 1 OF 入库登记查 ;
	DO _2cx0p6b2j ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 入库登记查 do form qxgh
ON SELECTION BAR 5 OF 入库登记查 do form qxgm
ON SELECTION BAR 7 OF 入库登记查 do form qxgy
ON SELECTION BAR 9 OF 入库登记查 do form mcrk

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 "\-"
DEFINE BAR 5 OF 领料登记查 PROMPT "按姓名查询"
DEFINE BAR 6 OF 领料登记查 PROMPT "\-"
DEFINE BAR 7 OF 领料登记查 PROMPT "按日期查询"
DEFINE BAR 8 OF 领料登记查 PROMPT "\-"
DEFINE BAR 9 OF 领料登记查 PROMPT "按月份查询"
DEFINE BAR 10 OF 领料登记查 PROMPT "\-"
DEFINE BAR 11 OF 领料登记查 PROMPT "按名称查询"
ON SELECTION BAR 1 OF 领料登记查 ;
	DO _2cx0p6b2k ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 领料登记查 do form rkgh
ON SELECTION BAR 5 OF 领料登记查 do form rkgr
ON SELECTION BAR 7 OF 领料登记查 do form rkgm
ON SELECTION BAR 9 OF 领料登记查 do form rkgy
ON SELECTION BAR 11 OF 领料登记查 do form cxke

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 "\-"
DEFINE BAR 5 OF 零件库存查 PROMPT "按名称查询"
ON SELECTION BAR 1 OF 零件库存查 ;
	DO _2cx0p6b2l ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 零件库存查 do form cxkc
ON SELECTION BAR 5 OF 零件库存查 do form cxkd

DEFINE POPUP 预览或打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 预览或打印 PROMPT "公司库存报表(\<G)"
DEFINE BAR 2 OF 预览或打印 PROMPT "/-"
DEFINE BAR 3 OF 预览或打印 PROMPT "故障指示月报表"
DEFINE BAR 4 OF 预览或打印 PROMPT "成品月报表"
DEFINE BAR 5 OF 预览或打印 PROMPT "新品1 月报表"
DEFINE BAR 6 OF 预览或打印 PROMPT "自动化月报表"
DEFINE BAR 7 OF 预览或打印 PROMPT "调度月报表"
DEFINE BAR 8 OF 预览或打印 PROMPT "配变月报表"
DEFINE BAR 9 OF 预览或打印 PROMPT "维护月报表"
DEFINE BAR 10 OF 预览或打印 PROMPT "负控月报表"
DEFINE BAR 11 OF 预览或打印 PROMPT "\-"
DEFINE BAR 12 OF 预览或打印 PROMPT "新品2 月报表"