menu.mpr

来自「用于银行管理和贷款查询。」· MPR 代码 · 共 69 行

*       *********************************************************
*       *                                                         
*       * 12/28/04              MENU.MPR                12:03:47  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ev0puswb OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "ALT+S"
DEFINE PAD _1ev0puswc OF _MSYSMENU PROMPT "用户管理(\<U)" COLOR SCHEME 3 ;
	KEY ALT+U, "ALT+U"
DEFINE PAD _1ev0puswd OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, "ALT+H"
DEFINE PAD _1ev0puswe OF _MSYSMENU PROMPT "退出(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "ALT+Q"
ON PAD _1ev0puswb OF _MSYSMENU ACTIVATE POPUP 系统管理s
ON PAD _1ev0puswc OF _MSYSMENU ACTIVATE POPUP 用户管理u
ON PAD _1ev0puswd OF _MSYSMENU ACTIVATE POPUP 帮助h
ON SELECTION PAD _1ev0puswe OF _MSYSMENU quit

DEFINE POPUP 系统管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理s PROMPT "添加用户"
DEFINE BAR 2 OF 系统管理s PROMPT "删除用户"
DEFINE BAR 3 OF 系统管理s PROMPT "\-"
DEFINE BAR 4 OF 系统管理s PROMPT "备份"
DEFINE BAR 5 OF 系统管理s PROMPT "\-"
DEFINE BAR 6 OF 系统管理s PROMPT "退出"
ON SELECTION BAR 1 OF 系统管理s do append
ON SELECTION BAR 2 OF 系统管理s do dele
ON SELECTION BAR 4 OF 系统管理s do backup
ON SELECTION BAR 6 OF 系统管理s quit

DEFINE POPUP 用户管理u MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 用户管理u PROMPT "存款"
DEFINE BAR 2 OF 用户管理u PROMPT "取款"
DEFINE BAR 3 OF 用户管理u PROMPT "查询余额"
DEFINE BAR 4 OF 用户管理u PROMPT "转帐"
ON SELECTION BAR 1 OF 用户管理u do cunkuan
ON SELECTION BAR 2 OF 用户管理u do qukuan
ON SELECTION BAR 3 OF 用户管理u do search
ON SELECTION BAR 4 OF 用户管理u do change

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助索引"
DEFINE BAR 2 OF 帮助h PROMPT "关于"
DEFINE BAR 3 OF 帮助h PROMPT "注册"