menu.mpr

自写的仓库管理系统,之前在工厂打工时写的

*       *********************************************************
*       *                                                         
*       * 04/25/00              MENU.MPR                16:51:45  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2000 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0381054br OF _MSYSMENU PROMPT "日常管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _0381054bs OF _MSYSMENU PROMPT "零配件管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0381054bt OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _0381054bu OF _MSYSMENU PROMPT "工具(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _0381054bv OF _MSYSMENU PROMPT "报表(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _0381054bw OF _MSYSMENU PROMPT "窗口(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _0381054bx OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0381054br OF _MSYSMENU ACTIVATE POPUP 日常管理m
ON PAD _0381054bs OF _MSYSMENU ACTIVATE POPUP 零配件管理
ON PAD _0381054bt OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _0381054bu OF _MSYSMENU ACTIVATE POPUP 工具t
ON PAD _0381054bv OF _MSYSMENU ACTIVATE POPUP 报表r
ON PAD _0381054bw OF _MSYSMENU ACTIVATE POPUP 窗口w
ON PAD _0381054bx OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 日常管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 日常管理m PROMPT "案例分析(\<C)"
DEFINE BAR 2 OF 日常管理m PROMPT "设置提醒(\<S)"
DEFINE BAR 3 OF 日常管理m PROMPT "周期提醒(\<Z)"
DEFINE BAR 4 OF 日常管理m PROMPT "\-"
DEFINE BAR 5 OF 日常管理m PROMPT "退出(\<X) ALT+F4"
ON SELECTION BAR 1 OF 日常管理m ;
	DO _0381054c1 ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 2 OF 日常管理m do form 设置提醒.scx
ON SELECTION BAR 3 OF 日常管理m do form 周期性提醒.scx
ON SELECTION BAR 5 OF 日常管理m do shutdown

DEFINE POPUP 零配件管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 零配件管理 PROMPT "入库操作(\<I)"
DEFINE BAR 2 OF 零配件管理 PROMPT "出库操作(\<O)"
DEFINE BAR 3 OF 零配件管理 PROMPT "当前库存(\<S)"
DEFINE BAR 4 OF 零配件管理 PROMPT "物品管理(\<M)"
DEFINE BAR 5 OF 零配件管理 PROMPT "操作痕迹(\<L)"
ON SELECTION BAR 1 OF 零配件管理 ;
	DO _0381054c5 ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 2 OF 零配件管理 ;
	DO _0381054c6 ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 3 OF 零配件管理 ;
	DO _0381054c8 ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 4 OF 零配件管理 ;
	DO _0381054c9 ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 5 OF 零配件管理 ;
	DO _0381054cb ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF 编辑e PROMPT "撤消(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF 编辑e PROMPT "重做(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR 3 OF 编辑e PROMPT "\-"
DEFINE BAR _med_cut OF 编辑e PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF 编辑e PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF 编辑e PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_clear OF 编辑e PROMPT "清除(\<A)" ;
	MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR 8 OF 编辑e PROMPT "\-"
DEFINE BAR _med_slcta OF 编辑e PROMPT "全部选定(\<L)" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "选定当前窗口中的所有文本或数据项"
DEFINE BAR _med_find OF 编辑e PROMPT "查找(\<F)..." ;
	KEY CTRL+F, "Ctrl+F" ;
	MESSAGE "搜索指定文本"
DEFINE BAR _med_finda OF 编辑e PROMPT "再次查找(\<G)" ;
	KEY CTRL+G, "Ctrl+G" ;
	MESSAGE "重复上一次查找"
DEFINE BAR _med_repl OF 编辑e PROMPT "替换(\<E)..." ;
	KEY CTRL+L, "Ctrl+L" ;
	MESSAGE "用其他文本替换指定文本"

DEFINE POPUP 工具t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工具t PROMPT "数据备份"
DEFINE BAR 2 OF 工具t PROMPT "命令窗口"
DEFINE BAR 3 OF 工具t PROMPT "\-"
DEFINE BAR 4 OF 工具t PROMPT "选项"
ON SELECTION BAR 1 OF 工具t do form 数据备份
ON SELECTION BAR 2 OF 工具t do form 命令窗口
ON SELECTION BAR 4 OF 工具t do form 选项

DEFINE POPUP 报表r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表r PROMPT "库存报表打印(\<K)"
ON SELECTION BAR 1 OF 报表r do form 库存报表打印

DEFINE POPUP 窗口w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwi_rotat OF 窗口w PROMPT "循环(\<Y)" ;
	KEY CTRL+F1, "Ctrl+F1" ;
	MESSAGE "在所有打开的窗口间循环切换"
DEFINE BAR _mwi_clear OF 窗口w PROMPT "清除(\<R)" ;
	MESSAGE "清除应用程序工作区或当前输出窗口中的文本"
DEFINE BAR _mwi_showa OF 窗口w PROMPT "全部显示(\<O)" ;
	MESSAGE "显示所有隐藏的窗口"
DEFINE BAR _mwi_hidea OF 窗口w PROMPT "全部隐藏" ;
	MESSAGE "隐藏所有窗口"
DEFINE BAR _mwi_hide OF 窗口w PROMPT "隐藏(\<H)" ;
	MESSAGE "隐藏活动窗口"
DEFINE BAR _mwi_arran OF 窗口w PROMPT "全部重排(\<A)" ;
	MESSAGE "用非重叠方式重排窗口"

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题(\<C)    F1"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "发email与李中武联系(\<W)"
DEFINE BAR 4 OF 帮助h PROMPT "访问李中武个人主页(\<P)"
DEFINE BAR 5 OF 帮助h PROMPT "\-"
DEFINE BAR 6 OF 帮助h PROMPT "关于仓库管理系统(\<A)"
ON SELECTION BAR 1 OF 帮助h ;
	DO _0381054cs ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 3 OF 帮助h ;
	DO _0381054cu ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 4 OF 帮助h ;
	DO _0381054cv ;
	IN LOCFILE("\CKGL\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 6 OF 帮助h do form 关于.scx


*       *********************************************************
*       *                                                         
*       * _0381054C1  ON SELECTION BAR 1 OF POPUP 日常管理m       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 日常管理m       
*       * Prompt:     案例分析(C)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054c1
 IF  .NOT. (TYPE("oCase")="O" .AND.  .NOT. ISNULL(ocase))
      DO FORM 案例分析 NAME ocase
 ELSE
      IF ocase.windowstate=1