菜单1.mpr

自己做的一个小小的课堂练习

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _25z16pwve OF _MSYSMENU PROMPT "系统介绍" COLOR SCHEME 3
DEFINE PAD _25z16pwvf OF _MSYSMENU PROMPT "日常业务管理" COLOR SCHEME 3
DEFINE PAD _25z16pwvg OF _MSYSMENU PROMPT "基本信息管理" COLOR SCHEME 3
DEFINE PAD _25z16pwvh OF _MSYSMENU PROMPT "信息浏览" COLOR SCHEME 3
DEFINE PAD _25z16pwvi OF _MSYSMENU PROMPT "信息查询" COLOR SCHEME 3
DEFINE PAD _25z16pwvj OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _25z16pwvk OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _25z16pwve OF _MSYSMENU ACTIVATE POPUP 系统介绍
ON PAD _25z16pwvf OF _MSYSMENU ACTIVATE POPUP 日常业务管
ON PAD _25z16pwvg OF _MSYSMENU ACTIVATE POPUP 基本信息管
ON PAD _25z16pwvh OF _MSYSMENU ACTIVATE POPUP 信息浏览
ON PAD _25z16pwvi OF _MSYSMENU ACTIVATE POPUP 信息查询
ON PAD _25z16pwvj OF _MSYSMENU ACTIVATE POPUP 报表打印
ON SELECTION PAD _25z16pwvk 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 器械基本信息表.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 "器械库存信息"
DEFINE BAR 3 OF 报表打印 PROMPT "各器械使用情况信息"
DEFINE BAR 4 OF 报表打印 PROMPT "各器械购入情况信息"
DEFINE BAR 5 OF 报表打印 PROMPT "器械具体去向信息"
DEFINE BAR 6 OF 报表打印 PROMPT "需入货器械信息"
ON BAR 1 OF 报表打印 ACTIVATE POPUP 器械基本信
ON BAR 2 OF 报表打印 ACTIVATE POPUP 器械库存信
ON BAR 3 OF 报表打印 ACTIVATE POPUP 各器械使用
ON BAR 4 OF 报表打印 ACTIVATE POPUP 各器械购入
ON BAR 5 OF 报表打印 ACTIVATE POPUP 器械具体去
ON BAR 6 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

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 购入器械信息.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 去向表.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 需入货器械信息.frx
ON SELECTION BAR 2 OF 需入货器械 report form 需入货器械信息.frx to printer