main.mpr

商场儿童服装管理系统,学生做的一个课程设计

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2et0x1iq9 OF _MSYSMENU PROMPT "销售管理" COLOR SCHEME 3
DEFINE PAD _2et0x1iqa OF _MSYSMENU PROMPT "进货管理" COLOR SCHEME 3
DEFINE PAD _2et0x1iqb OF _MSYSMENU PROMPT "信息管理" COLOR SCHEME 3
DEFINE PAD _2et0x1iqc OF _MSYSMENU PROMPT "报表查询" COLOR SCHEME 3
DEFINE PAD _2et0x1iqd OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _2et0x1iqe OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _2et0x1iq9 OF _MSYSMENU ACTIVATE POPUP 销售管理
ON PAD _2et0x1iqa OF _MSYSMENU ACTIVATE POPUP 进货管理
ON PAD _2et0x1iqb OF _MSYSMENU ACTIVATE POPUP 信息管理
ON PAD _2et0x1iqc OF _MSYSMENU ACTIVATE POPUP 报表查询
ON PAD _2et0x1iqd OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _2et0x1iqe OF _MSYSMENU ACTIVATE POPUP 退出系统

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 xscx
ON SELECTION BAR 2 OF 销售管理 do form  xs

DEFINE POPUP 进货管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货管理 PROMPT "进货"
ON SELECTION BAR 1 OF 进货管理 do form yp

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 yp1
ON SELECTION BAR 2 OF 信息管理 do form self

DEFINE POPUP 报表查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表查询 PROMPT "财务报表"
ON SELECTION BAR 1 OF 报表查询 do form report

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 user
ON SELECTION BAR 2 OF 系统维护 do form kh

DEFINE POPUP 退出系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统 PROMPT "退出"
ON SELECTION BAR 1 OF 退出系统 ;
	DO _2et0x1iqf ;
	IN LOCFILE("\商场儿童服装管理系统\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")


*       *********************************************************
*       *                                                         
*       * _2ET0X1IQF  ON SELECTION BAR 1 OF POPUP 退出系统        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   23           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出系统        
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2et0x1iqf
set sysmenu to default
clear event