menu.mpr

本人用VFP做成的家电信息管理系统

	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF (a_menupops[2]) PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF (a_menupops[2]) PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_pstlk OF (a_menupops[2]) PROMPT "选择性粘贴(\<S)..." ;
	MESSAGE "将剪贴板上的内容作为链接对象、嵌入对象、或其他类型的对象来粘贴"
DEFINE BAR _med_clear OF (a_menupops[2]) PROMPT "清除(\<A)" ;
	MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR _med_sp200 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_slcta OF (a_menupops[2]) PROMPT "全部选定(\<L)" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "选定当前窗口中的所有文本或数据项"
DEFINE BAR _med_sp300 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_find OF (a_menupops[2]) PROMPT "查找(\<F)..." ;
	KEY CTRL+F, "Ctrl+F" ;
	MESSAGE "搜索指定文本"
DEFINE BAR _med_finda OF (a_menupops[2]) PROMPT "再次查找(\<G)" ;
	KEY CTRL+G, "Ctrl+G" ;
	MESSAGE "重复上一次查找"
DEFINE BAR _med_repl OF (a_menupops[2]) PROMPT "替换(\<E)..." ;
	KEY CTRL+L, "Ctrl+L" ;
	MESSAGE "用其他文本替换指定文本"
DEFINE BAR _med_sp400 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_insob OF (a_menupops[2]) PROMPT "插入对象(\<I)..." ;
	MESSAGE "在通用类型字段中嵌入一个对象"
DEFINE BAR _med_obj OF (a_menupops[2]) PROMPT "对象(\<O)..." ;
	MESSAGE "编辑选定对象"
DEFINE BAR _med_link OF (a_menupops[2]) PROMPT "链接(\<K)..." ;
	MESSAGE "打开链接文件或更改链接"
DEFINE BAR _med_sp500 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_pref OF (a_menupops[2]) PROMPT "属性(\<R)..." ;
	MESSAGE "设置编辑器属性"

DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF (a_menupops[3]) PROMPT "Microsoft Visual FoxPro 帮助主题(\<V)" ;
	KEY F1, "F1" ;
	MESSAGE "以输入的关键字寻找帮助主题"
DEFINE BAR _mst_sp100 OF (a_menupops[3]) PROMPT "\-"
DEFINE BAR _mst_msdnc OF (a_menupops[3]) PROMPT "目录(\<C)" ;
	MESSAGE "允许访问 MSDN“目录”标签卡。"
DEFINE BAR _mst_msdni OF (a_menupops[3]) PROMPT "索引(\<I)" ;
	MESSAGE "允许访问 MSDN“索引”标签卡。"
DEFINE BAR _mst_msdns OF (a_menupops[3]) PROMPT "搜索(\<S)" ;
	MESSAGE "允许访问 MSDN“搜索”选项卡。"
DEFINE BAR 6 OF (a_menupops[3]) PROMPT "\-"
DEFINE BAR _mst_techs OF (a_menupops[3]) PROMPT "技术支持(\<T)" ;
	MESSAGE "提供获得其他技术帮助的方法"
DEFINE BAR _helpwebvfpfreestuff OF (a_menupops[3]) PROMPT "Microsoft on the Web(\<W)" ;
	MESSAGE "启动 web 浏览器以转到 Microsoft 的 Web 节点"
DEFINE BAR _mst_sp200 OF (a_menupops[3]) PROMPT "\-"
DEFINE BAR _mst_about OF (a_menupops[3]) PROMPT "关于 Microsoft Visual FoxPro(\<A)..." ;
	MESSAGE "显示 Visual FoxPro 的版本及版权信息"
ON BAR 6 OF (a_menupops[3]) ACTIVATE POPUP (a_menupops[4])

DEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _helpwebvfpfreestuff OF (a_menupops[4]) PROMPT "免费材料(\<F)" ;
	MESSAGE "打开 Visual FoxPro 免费材料主页"
DEFINE BAR _helpwebvfphomepage OF (a_menupops[4]) PROMPT "产品信息(\<P)" ;
	MESSAGE "打开 Visual FoxPro 产品信息主页"
DEFINE BAR _helpwebvfpfaq OF (a_menupops[4]) PROMPT "常见问题(\<Q)" ;
	MESSAGE "打开 Visual FoxPro FAQ 主页"
DEFINE BAR _helpwebvfponlinesupport OF (a_menupops[4]) PROMPT "联机支持(\<S)" ;
	MESSAGE "打开 Microsoft FoxPro 联机支持主页"
DEFINE BAR _helpwebfiller1 OF (a_menupops[4]) PROMPT "\-"
DEFINE BAR _helpwebmsdnonline OF (a_menupops[4]) PROMPT "MSDN Online(\<D)" ;
	MESSAGE "打开 MSDN 主页"
DEFINE BAR _helpwebvsprodnews OF (a_menupops[4]) PROMPT "Visual Studio 产品新闻" ;
	MESSAGE "打开 VStudio 主页"
DEFINE BAR _helpwebvfpsendfeedback OF (a_menupops[4]) PROMPT "发送反馈(\<K)..." ;
	MESSAGE "打开 Visual FoxPro 反馈主页"
DEFINE BAR _helpwebdirectory OF (a_menupops[4]) PROMPT "Web 精华(\<B)" ;
	MESSAGE "打开 Web 精华页"
DEFINE BAR _helpwebsearch OF (a_menupops[4]) PROMPT "搜索 Web(\<W)" ;
	MESSAGE "打开搜索主页 "
DEFINE BAR _helpwebtutorial OF (a_menupops[4]) PROMPT "Web 教程(\<T)" ;
	MESSAGE "打开 Web 教程页面"
DEFINE BAR _helpwebfiller2 OF (a_menupops[4]) PROMPT "\-"
DEFINE BAR _helpwebmsfthomepage OF (a_menupops[4]) PROMPT "Microsoft 主页(\<M)" ;
	MESSAGE "打开 Microsoft 主页"

DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[5]) PROMPT "浏览商品基本信息表"
DEFINE BAR 2 OF (a_menupops[5]) PROMPT "浏览商品具体信息表"
DEFINE BAR 3 OF (a_menupops[5]) PROMPT "浏览商品库存信息表"
ON SELECTION BAR 1 OF (a_menupops[5]) ;
	DO _1u501y4m3 ;
	IN LOCFILE("..\..\3204006240李慧萍\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 2 OF (a_menupops[5]) ;
	DO _1u501y4m4 ;
	IN LOCFILE("..\..\3204006240李慧萍\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION BAR 3 OF (a_menupops[5]) ;
	DO _1u501y4m5 ;
	IN LOCFILE("..\..\3204006240李慧萍\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "商品库存查询"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "商品库存信息维护"
ON SELECTION BAR 1 OF (a_menupops[6]) do form 库存查询
ON SELECTION BAR 2 OF (a_menupops[6]) do form 123

DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "需要进货商品"
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "进货添加"
ON SELECTION BAR 1 OF (a_menupops[7]) ;
	DO _1u501y4m6 ;
	IN LOCFILE("..\..\3204006240李慧萍\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON BAR 2 OF (a_menupops[7]) ACTIVATE POPUP (a_menupops[8])

DEFINE POPUP (a_menupops[8]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[8]) PROMPT "原有商品类型进货添加"
DEFINE BAR 2 OF (a_menupops[8]) PROMPT "新商品类型进货添加"
ON SELECTION BAR 1 OF (a_menupops[8]) do form 表单13
ON SELECTION BAR 2 OF (a_menupops[8]) do form 入库添加

DEFINE POPUP (a_menupops[9]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[9]) PROMPT "输出商品基本资料报表"
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "输出商品具体信息报表"
DEFINE BAR 3 OF (a_menupops[9]) PROMPT "输出商品库存信息报表"
ON SELECTION BAR 1 OF (a_menupops[9]) report form 报表jb
ON SELECTION BAR 2 OF (a_menupops[9]) report form 报表js
ON SELECTION BAR 3 OF (a_menupops[9]) report form 报表库存

ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
	m.getMenuName = m.cMenuName
	m.oFormRef.Name = m.cSaveFormName 
ENDIF


*       *********************************************************
*       *                                                         
*       * _1U501Y4M3  ON SELECTION BAR 1 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   74           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 浏览            
*       * Prompt:     浏览商品基本信息表                          
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u501y4m3
use jb
browse noedit
use


*       *********************************************************
*       *                                                         
*       * _1U501Y4M4  ON SELECTION BAR 2 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   75           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 浏览            
*       * Prompt:     浏览商品具体信息表                          
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u501y4m4
use js
browse noedit
use


*       *********************************************************
*       *                                                         
*       * _1U501Y4M5  ON SELECTION BAR 3 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   76           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 浏览            
*       * Prompt:     浏览商品库存信息表                          
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u501y4m5
use 表13
browse noedit
use



*       *********************************************************
*       *                                                         
*       * _1U501Y4M6  ON SELECTION BAR 1 OF POPUP 进货管理        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   84           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 进货管理        
*       * Prompt:     需要进货商品                                
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u501y4m6
use biao 13
browse for 当前库存< 警戒低库存 fields 商品编码,商品名称,商品型号,当前库存,警戒低库存
use