main.mpr

本程序作为毕业设计用

*       *********************************************************
*       *                                                         
*       * 09/26/07              MAIN.MPR                16:12:57  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _26u0yr812 OF _MSYSMENU PROMPT "操作(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, ""
DEFINE PAD _26u0yr813 OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _26u0yr814 OF _MSYSMENU PROMPT "游戏(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _26u0yr815 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _26u0yr816 OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _26u0yr812 OF _MSYSMENU ACTIVATE POPUP 操作o
ON PAD _26u0yr813 OF _MSYSMENU ACTIVATE POPUP _26s0t32z5
ON PAD _26u0yr814 OF _MSYSMENU ACTIVATE POPUP _26s0t3cvw
ON SELECTION PAD _26u0yr816 OF _MSYSMENU quit

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 _26s0t32z5 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _26s0t32z5 PROMPT "编辑浏览出入库单"
DEFINE BAR 2 OF _26s0t32z5 PROMPT "浏览个人工具卡"
DEFINE BAR 3 OF _26s0t32z5 PROMPT "修改个人工具卡"
DEFINE BAR 4 OF _26s0t32z5 PROMPT "\-"
DEFINE BAR 5 OF _26s0t32z5 PROMPT "基本设置"
ON SELECTION BAR 1 OF _26s0t32z5 do form llxg
ON SELECTION BAR 2 OF _26s0t32z5 do form grgj
ON SELECTION BAR 3 OF _26s0t32z5 do form grgjk
ON SELECTION BAR 5 OF _26s0t32z5 do form systen

DEFINE POPUP _26s0t3cvw MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _26s0t3cvw PROMPT "心灵感应" ;
	KEY CTRL+G, "CTRL+G"
ON SELECTION BAR 1 OF _26s0t3cvw do form xlgy