主控菜单.mpr

企业用-------进销存管理系统！ 有些不太完善

*       *********************************************************
*       *                                                         
*       * 01/15/07            主控菜单.MPR              00:21:39  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1zs00ruq8 OF _MSYSMENU PROMPT "系统初始化" COLOR SCHEME 3
DEFINE PAD _1zs00ruq9 OF _MSYSMENU PROMPT "进货管理" COLOR SCHEME 3
DEFINE PAD _1zs00ruqa OF _MSYSMENU PROMPT "提货管理" COLOR SCHEME 3
DEFINE PAD _1zs00ruqb OF _MSYSMENU PROMPT "盘存管理" COLOR SCHEME 3
DEFINE PAD _1zs00ruqc OF _MSYSMENU PROMPT "查    询" COLOR SCHEME 3
DEFINE PAD _1zs00ruqd OF _MSYSMENU PROMPT "统计分析图表" COLOR SCHEME 3
DEFINE PAD _1zs00ruqe OF _MSYSMENU PROMPT "退  出" COLOR SCHEME 3
ON PAD _1zs00ruq8 OF _MSYSMENU ACTIVATE POPUP 系统初始化
ON SELECTION PAD _1zs00ruq9 OF _MSYSMENU do form 进货单
ON PAD _1zs00ruqc OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1zs00ruqd OF _MSYSMENU ACTIVATE POPUP 统计分析图
ON SELECTION PAD _1zs00ruqe 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 "进货数据清空"
DEFINE BAR 4 OF 系统初始化 PROMPT "提货数据清空"
DEFINE BAR 5 OF 系统初始化 PROMPT "盘存数据清空"
DEFINE BAR 6 OF 系统初始化 PROMPT "设置期初存量"
ON SELECTION BAR 3 OF 系统初始化 ;
	DO _1zs00ruqf ;
	IN LOCFILE("C:\DOCUMENTS AND SETTINGS\LEESON\桌面\MIS实验报告\MIS实验报告\主控菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主控菜单?")
ON SELECTION BAR 4 OF 系统初始化 ;
	DO _1zs00ruqg ;
	IN LOCFILE("C:\DOCUMENTS AND SETTINGS\LEESON\桌面\MIS实验报告\MIS实验报告\主控菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主控菜单?")
ON SELECTION BAR 5 OF 系统初始化 ;
	DO _1zs00ruqh ;
	IN LOCFILE("C:\DOCUMENTS AND SETTINGS\LEESON\桌面\MIS实验报告\MIS实验报告\主控菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主控菜单?")

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "常用定式查询"
DEFINE BAR 2 OF 查询 PROMPT "用户查询生成"

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 "畅销货分析图表"


*       *********************************************************
*       *                                                         
*       * _1ZS00RUQF  ON SELECTION BAR 3 OF POPUP 系统初始化      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主控菜单.MPR,            Record:    7       
*       * Called By:  ON SELECTION BAR 3 OF POPUP 系统初始化      
*       * Prompt:     进货数据清空                                
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1zs00ruqf
use 进货单关系
zap
use 所进货物关系
zap



*       *********************************************************
*       *                                                         
*       * _1ZS00RUQG  ON SELECTION BAR 4 OF POPUP 系统初始化      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主控菜单.MPR,            Record:    8       
*       * Called By:  ON SELECTION BAR 4 OF POPUP 系统初始化      
*       * Prompt:     提货数据清空                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1zs00ruqg
use 提货单关系
zap
use 所提货物关系
zap



*       *********************************************************
*       *                                                         
*       * _1ZS00RUQH  ON SELECTION BAR 5 OF POPUP 系统初始化      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主控菜单.MPR,            Record:    9       
*       * Called By:  ON SELECTION BAR 5 OF POPUP 系统初始化      
*       * Prompt:     盘存数据清空                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1zs00ruqh
use 盘存单关系
zap
use 所盘货物关系
zap