main.mpr

这是一个关于 shan 商品进销存系统,希望能给大家课程设计一点帮助

*       *********************************************************
*       *                                                         
*       * 05/14/03              MAIN.MPR                19:29:10  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0yb15rkex OF _MSYSMENU PROMPT "用户权限管理" COLOR SCHEME 3
DEFINE PAD _0yb15rkey OF _MSYSMENU PROMPT "设置修改" COLOR SCHEME 3 ;
	SKIP FOR szxg<>1
DEFINE PAD _0yb15rkez OF _MSYSMENU PROMPT "库存管理" COLOR SCHEME 3
DEFINE PAD _0yb15rkf0 OF _MSYSMENU PROMPT "统计分析" COLOR SCHEME 3
DEFINE PAD _0yb15rkf1 OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _0yb15rkf2 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _0yb15rkex OF _MSYSMENU ACTIVATE POPUP 用户权限管
ON SELECTION PAD _0yb15rkey OF _MSYSMENU DO FORM 设置修改.scx
ON PAD _0yb15rkez OF _MSYSMENU ACTIVATE POPUP 库存管理
ON PAD _0yb15rkf0 OF _MSYSMENU ACTIVATE POPUP 统计分析
ON PAD _0yb15rkf1 OF _MSYSMENU ACTIVATE POPUP 报表打印
ON SELECTION PAD _0yb15rkf2 OF _MSYSMENU quit

DEFINE POPUP 用户权限管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 用户权限管 PROMPT "用户登陆管理"
DEFINE BAR 2 OF 用户权限管 PROMPT "用户管理" ;
	SKIP FOR yhgl<>1
ON SELECTION BAR 1 OF 用户权限管 DO FORM 再次登陆.scx
ON SELECTION BAR 2 OF 用户权限管 DO FORM 权限管理.scx

DEFINE POPUP 库存管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库存管理 PROMPT "入库登记"
DEFINE BAR 2 OF 库存管理 PROMPT "出库登记"
DEFINE BAR 3 OF 库存管理 PROMPT "新增商品"
ON SELECTION BAR 1 OF 库存管理 DO FORM 入库登记.scx
ON SELECTION BAR 2 OF 库存管理 DO FORM 出库登记.scx
ON SELECTION BAR 3 OF 库存管理 DO FORM 商品登记.scx

DEFINE POPUP 统计分析 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计分析 PROMPT "商品信息统计"
DEFINE BAR 2 OF 统计分析 PROMPT "库存商品统计"
ON SELECTION BAR 1 OF 统计分析 DO FORM 商品统计.scx
ON SELECTION BAR 2 OF 统计分析 DO FORM 库存统计.scx

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 "入库商品"
ON SELECTION BAR 1 OF 报表打印 DO FORM 商品统计.scx
ON SELECTION BAR 2 OF 报表打印 DO FORM 库存统计.scx
ON SELECTION BAR 3 OF 报表打印 DO FORM 出库打印.scx
ON SELECTION BAR 4 OF 报表打印 DO FORM 入库打印.scx