菜单2.mpr

来自「自己做的一个小小的课堂练习」· MPR 代码 · 共 80 行

*       *********************************************************
*       *                                                         
*       * 08/26/07              菜单2.MPR               19:55:52  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _25z16pwwp OF _MSYSMENU PROMPT "系统介绍" COLOR SCHEME 3
DEFINE PAD _25z16pwwq OF _MSYSMENU PROMPT "日常业务管理" COLOR SCHEME 3
DEFINE PAD _25z16pwwr OF _MSYSMENU PROMPT "信息浏览" COLOR SCHEME 3
DEFINE PAD _25z16pwws OF _MSYSMENU PROMPT "信息查询" COLOR SCHEME 3
DEFINE PAD _25z16pwwt OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _25z16pwwu OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _25z16pwwp OF _MSYSMENU ACTIVATE POPUP 系统介绍
ON PAD _25z16pwwq OF _MSYSMENU ACTIVATE POPUP 日常业务管
ON PAD _25z16pwwr OF _MSYSMENU ACTIVATE POPUP 信息浏览
ON PAD _25z16pwws OF _MSYSMENU ACTIVATE POPUP 信息查询
ON PAD _25z16pwwt OF _MSYSMENU ACTIVATE POPUP 报表打印
ON SELECTION PAD _25z16pwwu OF _MSYSMENU DO FORM 退出系统.scx

DEFINE POPUP 系统介绍 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统介绍 PROMPT "系统简介"
ON SELECTION BAR 1 OF 系统介绍 do form 系统介绍.scx

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 购入登记.scx
ON SELECTION BAR 2 OF 日常业务管 do form 器械分配.scx

DEFINE POPUP 信息浏览 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息浏览 PROMPT "器械信息管理"
ON SELECTION BAR 1 OF 信息浏览 DO FORM 库存查询1.scx

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 库存查询2.scx
ON SELECTION BAR 2 OF 信息查询 do form 数据查询1.scx

DEFINE POPUP 报表打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表打印 PROMPT "器械基本信息"
DEFINE BAR 2 OF 报表打印 PROMPT "器械库存信息"
ON BAR 1 OF 报表打印 ACTIVATE POPUP 器械基本信
ON BAR 2 OF 报表打印 ACTIVATE POPUP 器械库存信

DEFINE POPUP 器械基本信 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 器械基本信 PROMPT "预览"
DEFINE BAR 2 OF 器械基本信 PROMPT "打印"
ON SELECTION BAR 1 OF 器械基本信 report form 器械基本信息表.frx
ON SELECTION BAR 2 OF 器械基本信 report form 器械基本信息表.frx to printer

DEFINE POPUP 器械库存信 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 器械库存信 PROMPT "预览"
DEFINE BAR 2 OF 器械库存信 PROMPT "打印"
ON SELECTION BAR 1 OF 器械库存信 report form 库存报表1.frx
ON SELECTION BAR 2 OF 器械库存信 report form 库存报表1.frx to printer