main.mpr

库房管理系统VF开发的,还不错,仅供学习用

*       *********************************************************
*       *                                                         
*       * 02/10/03              MAIN.MPR                22:03:22  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 王永成                                                  
*       *                                                         
*       * Copyright (C) 2003 检修公司                             
*       * 齐鲁石化                                                
*       * 淄博, 山东  255400                                        
*       * 中国                                              
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0vq1b9v23 OF _MSYSMENU PROMPT "操作(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, ""
DEFINE PAD _0vq1b9v2m OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _0vq1b9v2n OF _MSYSMENU PROMPT "游戏(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _0vq1b9v2o OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _0vq1b9v23 OF _MSYSMENU ACTIVATE POPUP 操作o
ON PAD _0vq1b9v2m OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _0vq1b9v2n OF _MSYSMENU ACTIVATE POPUP 游戏g
ON SELECTION PAD _0vq1b9v2o OF _MSYSMENU Clea event

DEFINE POPUP 操作o MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 操作o PROMPT "器材入库"
DEFINE BAR 2 OF 操作o PROMPT "器材出库"
DEFINE BAR 3 OF 操作o PROMPT "\-"
DEFINE BAR 4 OF 操作o PROMPT "退出"
ON SELECTION BAR 1 OF 操作o do form rkd
ON SELECTION BAR 2 OF 操作o do form ckd
ON SELECTION BAR 4 OF 操作o Clea event

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑e PROMPT "编辑浏览出入库单"
DEFINE BAR 2 OF 编辑e PROMPT "浏览个人工具卡"
DEFINE BAR 3 OF 编辑e PROMPT "\-"
DEFINE BAR 4 OF 编辑e PROMPT "基本设置"
ON SELECTION BAR 1 OF 编辑e do form llxg
ON SELECTION BAR 2 OF 编辑e do form grgj
ON SELECTION BAR 4 OF 编辑e DO FORM SYSTEn

DEFINE POPUP 游戏g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 游戏g PROMPT "猜数游戏"
DEFINE BAR 2 OF 游戏g PROMPT "身体状态测试"
DEFINE BAR 3 OF 游戏g PROMPT "\-"
DEFINE BAR 4 OF 游戏g PROMPT "心灵感应"
ON SELECTION BAR 1 OF 游戏g do form csyx
ON SELECTION BAR 2 OF 游戏g do form stcs
ON SELECTION BAR 4 OF 游戏g do form xlgy