主持人.mpr

来自「大一时用foxpro做的一个音乐电台的作业」· MPR 代码 · 共 63 行

*       *********************************************************
*       *                                                         
*       * 06/16/06             主持人.MPR               03:28:43  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1tt07gfiq OF _MSYSMENU PROMPT "歌手信息" COLOR SCHEME 3
DEFINE PAD _1tt07gfir OF _MSYSMENU PROMPT "歌曲信息" COLOR SCHEME 3
DEFINE PAD _1tt07gfis OF _MSYSMENU PROMPT "专辑信息" COLOR SCHEME 3
DEFINE PAD _1tt07gfit OF _MSYSMENU PROMPT "修改密码" COLOR SCHEME 3
DEFINE PAD _1tt07gfiu OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1tt07gfiq OF _MSYSMENU ACTIVATE POPUP 歌手信息
ON PAD _1tt07gfir OF _MSYSMENU ACTIVATE POPUP 歌曲信息
ON PAD _1tt07gfis OF _MSYSMENU ACTIVATE POPUP 专辑信息
ON PAD _1tt07gfit OF _MSYSMENU ACTIVATE POPUP 修改密码
ON PAD _1tt07gfiu OF _MSYSMENU 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\zcgequ

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 "修改密码"
ON SELECTION BAR 1 OF 修改密码 do form f:\music\forms\修改用户密码2

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