menu.mpr

VFP的五金仓库进、销、存管理系统

*       *********************************************************
*       *                                                         
*       * 08/01/03              MENU.MPR                23:38:42  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

modi wind screen title'五金商店进、销、存管理系统'

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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _10i1eogsw OF _MSYSMENU PROMPT "销售管理(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _10i1eogsx OF _MSYSMENU PROMPT "帐目管理(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _10i1eogsy OF _MSYSMENU PROMPT "进货管理(\<J)" COLOR SCHEME 3 ;
	KEY ALT+J, ""
DEFINE PAD _10i1eogsz OF _MSYSMENU PROMPT "库存管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _10i1eogt0 OF _MSYSMENU PROMPT "系统管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _10i1eogt1 OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _10i1eogt2 OF _MSYSMENU PROMPT "帮助(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
ON PAD _10i1eogsw OF _MSYSMENU ACTIVATE POPUP 销售管理x
ON PAD _10i1eogsx OF _MSYSMENU ACTIVATE POPUP 帐目管理h
ON PAD _10i1eogsy OF _MSYSMENU ACTIVATE POPUP 进货管理j
ON PAD _10i1eogsz OF _MSYSMENU ACTIVATE POPUP 库存管理s
ON PAD _10i1eogt0 OF _MSYSMENU ACTIVATE POPUP 系统维护m
ON SELECTION PAD _10i1eogt1 OF _MSYSMENU ;
	DO _10i1eogt6 ;
	IN LOCFILE("五金仓库进、销、存管理系统\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON PAD _10i1eogt2 OF _MSYSMENU ACTIVATE POPUP 帮助f

DEFINE POPUP 销售管理x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售管理x PROMPT "\-"
DEFINE BAR 2 OF 销售管理x PROMPT "填写销售单(\<W)" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 3 OF 销售管理x PROMPT "\-"
DEFINE BAR 4 OF 销售管理x PROMPT "查询销售单(\<S)" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 5 OF 销售管理x PROMPT "\-"
ON SELECTION BAR 2 OF 销售管理x do form 销售表单.scx
ON SELECTION BAR 4 OF 销售管理x do form 销售单查询.scx

DEFINE POPUP 帐目管理h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帐目管理h PROMPT "\-"
DEFINE BAR 2 OF 帐目管理h PROMPT "收款表单" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 3 OF 帐目管理h PROMPT "付款表单" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 4 OF 帐目管理h PROMPT "\-"
DEFINE BAR 5 OF 帐目管理h PROMPT "帐目查询" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 6 OF 帐目管理h PROMPT "\-"
DEFINE BAR 7 OF 帐目管理h PROMPT "应收帐目浏览" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 8 OF 帐目管理h PROMPT "应付帐目浏览" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 9 OF 帐目管理h PROMPT "\-"
ON SELECTION BAR 2 OF 帐目管理h DO FORM 收款表单.SCX
ON SELECTION BAR 3 OF 帐目管理h DO FORM 付款表单.SCX
ON SELECTION BAR 5 OF 帐目管理h do form 帐目查询.scx
ON SELECTION BAR 7 OF 帐目管理h ;
	DO _10i1eogts ;
	IN LOCFILE("五金仓库进、销、存管理系统\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 8 OF 帐目管理h ;
	DO _10i1eogtu ;
	IN LOCFILE("五金仓库进、销、存管理系统\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

DEFINE POPUP 进货管理j MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货管理j PROMPT "\-"
DEFINE BAR 2 OF 进货管理j PROMPT "填写进货单(\<W)" ;
	KEY CTRL+W, "CTRL+W" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 3 OF 进货管理j PROMPT "\-"
DEFINE BAR 4 OF 进货管理j PROMPT "查询进货单(\<S)" ;
	KEY CTRL+S, "CTRL+S" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 5 OF 进货管理j PROMPT "\-"
ON SELECTION BAR 2 OF 进货管理j do form 进货表单.scx
ON SELECTION BAR 4 OF 进货管理j DO FORM 进货单查询.SCX

DEFINE POPUP 库存管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库存管理s PROMPT "\-"
DEFINE BAR 2 OF 库存管理s PROMPT "货物入库" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 3 OF 库存管理s PROMPT "货物出库" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 4 OF 库存管理s PROMPT "\-"
ON SELECTION BAR 2 OF 库存管理s do form 入库表单.SCX
ON SELECTION BAR 3 OF 库存管理s DO FORM 出库表单.SCX

DEFINE POPUP 系统维护m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护m PROMPT "\-"
DEFINE BAR 2 OF 系统维护m PROMPT "播放音乐" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 3 OF 系统维护m PROMPT "\-"
DEFINE BAR 4 OF 系统维护m PROMPT "增加新用户" ;
	SKIP FOR S_DO=.t. or man_work="普通"
DEFINE BAR 5 OF 系统维护m PROMPT "更改用户密码" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 6 OF 系统维护m PROMPT "\-"
ON SELECTION BAR 2 OF 系统维护m ;
	DO _10i1eogu4 ;
	IN LOCFILE("五金仓库进、销、存管理系统\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 4 OF 系统维护m DO FORM 增添新用户.SCX
ON SELECTION BAR 5 OF 系统维护m DO FORM 修改密码.SCX

DEFINE POPUP 帮助f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助f PROMPT "\-"
DEFINE BAR 2 OF 帮助f PROMPT "帮助(\<H)" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 3 OF 帮助f PROMPT "\-"
DEFINE BAR 4 OF 帮助f PROMPT "关于系统(\<A)" ;
	SKIP FOR S_DO=.t.
DEFINE BAR 5 OF 帮助f PROMPT "\-"
ON SELECTION BAR 2 OF 帮助f do form 帮助.scx
ON SELECTION BAR 4 OF 帮助f do form 关于系统.scx


*       *********************************************************
*       *                                                         
*       * _10I1EOGT6  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   57           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(Q)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _10i1eogt6
CHOOSE=MESSAGEBOX("确定要退出此系统?",1+32,"信息窗口")
IF CHOOSE=1
CLEAR EVENTS
QUIT
endif


*       *********************************************************
*       *                                                         
*       * _10I1EOGTS  ON SELECTION BAR 7 OF POPUP 帐目管理h       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   24           
*       * Called By:  ON SELECTION BAR 7 OF POPUP 帐目管理h       
*       * Prompt:     应收帐目浏览                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _10i1eogts
use 五金商品应收帐目库
BROWSE


*       *********************************************************
*       *                                                         
*       * _10I1EOGTU  ON SELECTION BAR 8 OF POPUP 帐目管理h       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   25           
*       * Called By:  ON SELECTION BAR 8 OF POPUP 帐目管理h       
*       * Prompt:     应付帐目浏览                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _10i1eogtu
use 五金应付帐目库
BROWSE


*       *********************************************************
*       *                                                         
*       * _10I1EOGU4  ON SELECTION BAR 2 OF POPUP 系统维护m       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   50           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 系统维护m       
*       * Prompt:     播放音乐                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _10i1eogu4
set bell on
cfile=""
cfile=getfile("wav")
set bell to cfile
?chr(7)