main.mpr

机器管理,登录,主界面,新增,修改,删除,打印

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1en151q6h OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1en151q6i OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _1en151q6j OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _1en151q6k OF _MSYSMENU PROMPT "管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _1en151q6l OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _1en151q6h OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1en151q6i OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _1en151q6j OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _1en151q6k OF _MSYSMENU ACTIVATE POPUP 管理m
ON SELECTION PAD _1en151q6l OF _MSYSMENU quit

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件f PROMPT "设备入库"
DEFINE BAR 2 OF 文件f PROMPT "设备出库"
DEFINE BAR 3 OF 文件f PROMPT "\-"
DEFINE BAR 4 OF 文件f PROMPT "退出"
ON SELECTION BAR 1 OF 文件f do form sbrk
ON SELECTION BAR 2 OF 文件f do form sbck
ON SELECTION BAR 4 OF 文件f quit

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑e PROMPT "设备入库修改"
DEFINE BAR 2 OF 编辑e PROMPT "设备出库修改"
ON SELECTION BAR 1 OF 编辑e do form rkxg
ON SELECTION BAR 2 OF 编辑e do form ckxg

DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "设备入库情况查询"
DEFINE BAR 2 OF 查询q PROMPT "设备出库情况查询"
DEFINE BAR 3 OF 查询q PROMPT "\-"
DEFINE BAR 4 OF 查询q PROMPT "库存查询"
ON SELECTION BAR 1 OF 查询q do form rkcx
ON SELECTION BAR 2 OF 查询q do form ckcx
ON SELECTION BAR 4 OF 查询q do form sbkc

DEFINE POPUP 管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 管理m PROMPT "用户管理"
DEFINE BAR 2 OF 管理m PROMPT "密码修改"
ON SELECTION BAR 1 OF 管理m do form czzqx
ON SELECTION BAR 2 OF 管理m do form mima