main.mpr

的撒发生地方的说法飞是打发的方式对方士大夫似的的

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0vq1bcaw9 OF _MSYSMENU PROMPT "库房物资管理(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, ""
DEFINE PAD _0vq1bcawb OF _MSYSMENU PROMPT "物资信息统计管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0vq1bcawc OF _MSYSMENU PROMPT "退出系统(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _0vq1bcaw9 OF _MSYSMENU ACTIVATE POPUP 库房物资信
ON PAD _0vq1bcawb OF _MSYSMENU ACTIVATE POPUP 物资信息统
ON SELECTION PAD _0vq1bcawc OF _MSYSMENU Clea event

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 wzrk
ON SELECTION BAR 2 OF 库房物资信 do form ckd
ON SELECTION BAR 4 OF 库房物资信 Clea event

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 xgdj
ON SELECTION BAR 2 OF 物资信息统 do form xgmm
ON SELECTION BAR 3 OF 物资信息统 do form cxun