观众.bak

本人以前的一次作业

*       *********************************************************
*       *                                                         
*       * 06/13/06              观众.MPR                23:48:18  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE WINDOW 电台音乐观众查询 FROM 1,1 TO 62,212 TITLE "电台音乐观众查询" DOUBLE CLOSE FLOAT GROW ZOOM MINIMIZE
ACTIVATE WINDOW 电台音乐观众查询
DEFINE MENU 电台音乐观众查询 IN WINDOW 电台音乐观众查询 BAR AT LINE 0.1 COLOR SCHEME 4

DEFINE PAD 歌手信息 OF 电台音乐观众查询 PROMPT "歌手信息" COLOR SCHEME 3
DEFINE PAD 歌曲信息 OF 电台音乐观众查询 PROMPT "歌曲信息" COLOR SCHEME 3
DEFINE PAD 专辑信息 OF 电台音乐观众查询 PROMPT"专辑信息" COLOR SCHEME 3
DEFINE PAD 退出 OF 电台音乐观众查询 PROMPT"退出" COLOR SCHEME 3
ON PAD 歌手信息 OF 电台音乐观众查询 ACTIVATE POPUP 歌手信息
ON PAD 歌曲信息 OF 电台音乐观众查询 ACTIVATE POPUP 歌曲信息
ON PAD 专辑信息 OF 电台音乐观众查询 ACTIVATE POPUP 专辑信息
ON PAD 退出 OF 电台音乐观众查询 ACTIVATE POPUP 退出

DEFINE POPUP 歌手信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 歌手信息 PROMPT "歌手信息查询"
ON SELECTION BAR 1 OF 歌手信息 do form f:\music\forms\geshou

DEFINE POPUP 歌曲信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 歌曲信息 PROMPT "歌曲信息查询"
ON SELECTION BAR 1 OF 歌曲信息 do form f:\music|forms\gequ

DEFINE POPUP 专辑信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 专辑信息 PROMPT "专辑信息查询"
ON SELECTION BAR 1 OF 专辑信息 do form f:\music\forms\zhuanji

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 退出 set sysmenu to default
ON SELECTION BAR 3 OF 退出 quit