zcd.bak

自编加学习的简单管理系统,希望指教

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _19a0umca4 OF _MSYSMENU PROMPT "操作" COLOR SCHEME 3
DEFINE PAD _19a0umca5 OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD _19a0umca6 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _19a0umca4 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _19a0umca5 OF _MSYSMENU ACTIVATE POPUP 编辑
ON SELECTION PAD _19a0umca6 OF _MSYSMENU clear events

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 rkd
ON SELECTION BAR 2 OF 新菜单项 do form ckd
ON SELECTION BAR 3 OF 新菜单项 close events

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 "基本设置"
ON SELECTION BAR 1 OF 编辑 do form llxg
ON SELECTION BAR 2 OF 编辑 do form grgj
ON SELECTION BAR 3 OF 编辑 do form grgjk
ON SELECTION BAR 4 OF 编辑 do form system