菜单.bak

一个精彩的奥运会成绩统计系统

*       *********************************************************
*       *                                                         
*       * 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 system menu to default