mymenu.mpr

由于音像制品的品种繁多,所以音像租赁对于数据的查找,修改,删除和添加等功能的需求量很大,用人工手记的方式显然很烦琐,所以本项目就是为此设计.本项目可以对音像制品进行规范化管理,进而提高经营效率,实

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ep0lntpb OF _MSYSMENU PROMPT "系统设置" COLOR SCHEME 3
DEFINE PAD _1ep0lntpc OF _MSYSMENU PROMPT "会员管理" COLOR SCHEME 3
DEFINE PAD _1ep0lntpd OF _MSYSMENU PROMPT "商品管理" COLOR SCHEME 3
DEFINE PAD _1ep0lntpe OF _MSYSMENU PROMPT "租赁管理" COLOR SCHEME 3
DEFINE PAD _1ep0lntpf OF _MSYSMENU PROMPT "系统用户管理" COLOR SCHEME 3
DEFINE PAD _1ep0lntpg OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _1ep0lntpb OF _MSYSMENU ACTIVATE POPUP 系统设置
ON PAD _1ep0lntpc OF _MSYSMENU ACTIVATE POPUP 会员管理
ON PAD _1ep0lntpd OF _MSYSMENU ACTIVATE POPUP 商品管理
ON PAD _1ep0lntpe OF _MSYSMENU ACTIVATE POPUP 租赁管理
ON PAD _1ep0lntpf OF _MSYSMENU ACTIVATE POPUP 系统用户管
ON PAD _1ep0lntpg 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 "退出系统"
ON SELECTION BAR 1 OF 系统设置 do form [Forms\分类设置]
ON SELECTION BAR 2 OF 系统设置 do form [Forms\会员类型设置]
ON SELECTION BAR 3 OF 系统设置 do form [Forms\收费标准设置]
ON SELECTION BAR 5 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 [Forms\会员信息录入]
ON SELECTION BAR 2 OF 会员管理 do form [Forms\会员信息浏览]

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 [Forms\音像商品录入]
ON SELECTION BAR 2 OF 商品管理 do form [Forms\音像商品浏览]

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 [Forms\音像租赁单]
ON SELECTION BAR 2 OF 租赁管理 do form [Forms\零租信息浏览]
ON SELECTION BAR 3 OF 租赁管理 do form [Forms\会员租赁浏览]

DEFINE POPUP 系统用户管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统用户管 PROMPT "修改密码"
ON SELECTION BAR 1 OF 系统用户管 Do Form [Forms\修改密码]

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "关于"
ON SELECTION BAR 1 OF 新菜单项 Do Form [Forms\关于]