*       *********************************************************
*       *                                                         
*       * 05/25/04              菜單.MPR                05:44:13  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名稱                                                
*       *                                                         
*       * 版權所有 (C) 2004 公司名稱                             
*       * 地址                                                    
*       * 城市,     郵編                                          
*       * 國家                                              
*       *                                                         
*       * 說明:                                            
*       * 此程序由 GENMENU 自動生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜單定義                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _18u0cao67 OF _MSYSMENU PROMPT "查詢" COLOR SCHEME 3
DEFINE PAD _18u0cao68 OF _MSYSMENU PROMPT "更新" COLOR SCHEME 3
DEFINE PAD _18u0cao69 OF _MSYSMENU PROMPT "刷新" COLOR SCHEME 3
DEFINE PAD _18u0cao6a OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _18u0cao67 OF _MSYSMENU ACTIVATE POPUP 新菜單項
ON PAD _18u0cao68 OF _MSYSMENU ACTIVATE POPUP 更新
ON SELECTION PAD _18u0cao69 OF _MSYSMENU do createtotal
ON SELECTION PAD _18u0cao6a OF _MSYSMENU ;
	DO _18u0cao6b ;
	IN LOCFILE("\信息系統分析與設計\菜單" ,"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 BAR 3 OF 新菜單項 PROMPT "總分"
ON SELECTION BAR 1 OF 新菜單項 do form 運動員個人統計
ON SELECTION BAR 2 OF 新菜單項 do form 金牌榜
ON SELECTION BAR 3 OF 新菜單項 do form 各隊總分瀏覽

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 運動員隊名查詢
ON SELECTION BAR 2 OF 更新 do form 破紀錄查看
ON SELECTION BAR 3 OF 更新 do form 決賽成績查詢


*       *********************************************************
*       *                                                         
*       * _18U0CAO6B  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜單.MPR,            Record:   14           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _18u0cao6b
clear even
set sysmenu to default