*       *********************************************************
*       *                                                         
*       * 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