mymenu.mpr

这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。

*       *********************************************************
*       *                                                         
*       * 11/21/05             MYMENU.MPR               20:29:52  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1o017xmud OF _MSYSMENU PROMPT "基本信息" COLOR SCHEME 3
DEFINE PAD _1o017xmue OF _MSYSMENU PROMPT "用户管理" COLOR SCHEME 3
DEFINE PAD _1o017xmuf OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _1o017xmud OF _MSYSMENU ACTIVATE POPUP 基本信息
ON PAD _1o017xmue OF _MSYSMENU ACTIVATE POPUP 用户管理
ON PAD _1o017xmuf OF _MSYSMENU ACTIVATE POPUP 帮助

DEFINE POPUP 基本信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基本信息 PROMPT "顾客信息录入"
DEFINE BAR 2 OF 基本信息 PROMPT "顾客信息浏览"
DEFINE BAR 3 OF 基本信息 PROMPT "经办人信息录入"
DEFINE BAR 4 OF 基本信息 PROMPT "经办人信息浏览"
DEFINE BAR 5 OF 基本信息 PROMPT "\-"
DEFINE BAR 6 OF 基本信息 PROMPT "退出系统"
ON SELECTION BAR 1 OF 基本信息 do form[顾客信息录入]
ON SELECTION BAR 2 OF 基本信息 do form[顾客信息浏览]
ON SELECTION BAR 3 OF 基本信息 do form[经办人信息录入]
ON SELECTION BAR 4 OF 基本信息 do form[经办人信息浏览]
ON SELECTION BAR 6 OF 基本信息 quit

DEFINE POPUP 用户管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 用户管理 PROMPT "用户管理"
DEFINE BAR 2 OF 用户管理 PROMPT "修改密码"
ON SELECTION BAR 1 OF 用户管理 do form[用户管理]
ON SELECTION BAR 2 OF 用户管理 do form[修改密码]

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于^^^^"
ON SELECTION BAR 1 OF 帮助 do form[关于]