📄 主菜单1.mpr
字号:
MESSAGE "隐藏活动窗口"
DEFINE BAR _mwi_hidea OF (a_menupops[2]) PROMPT "全部隐藏" ;
MESSAGE "隐藏所有窗口"
DEFINE BAR _mwi_showa OF (a_menupops[2]) PROMPT "全部显示(\<O)" ;
MESSAGE "显示所有隐藏的窗口"
DEFINE BAR _mwi_clear OF (a_menupops[2]) PROMPT "清除(\<R)" ;
MESSAGE "清除应用程序工作区或当前输出窗口中的文本"
DEFINE BAR _mwi_rotat OF (a_menupops[2]) PROMPT "循环(\<Y)" ;
KEY CTRL+F1, "Ctrl+F1" ;
MESSAGE "在所有打开的窗口间循环切换"
DEFINE BAR _mwi_sp200 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _mwi_cmd OF (a_menupops[2]) PROMPT "命令窗口(\<C)" ;
KEY CTRL+F2, "Ctrl+F2" ;
MESSAGE "显示命令窗口"
DEFINE BAR _mwi_view OF (a_menupops[2]) PROMPT "数据工作期(\<D)" ;
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 _26k11bhjv ;
IN LOCFILE("家电超市库存管理信息系统\主菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单1?")
ON SELECTION BAR 2 OF (a_menupops[5]) ;
DO _26k11bhjw ;
IN LOCFILE("家电超市库存管理信息系统\主菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单1?")
ON SELECTION BAR 3 OF (a_menupops[5]) ;
DO _26k11bhjx ;
IN LOCFILE("家电超市库存管理信息系统\主菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单1?")
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 表单13
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 "新进商品类型进货添加"
DEFINE BAR 3 OF (a_menupops[7]) PROMPT "原有商品类型进货添加"
ON SELECTION BAR 1 OF (a_menupops[7]) ;
DO _26k11bhjy ;
IN LOCFILE("家电超市库存管理信息系统\主菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单1?")
ON SELECTION BAR 2 OF (a_menupops[7]) do form 入库添加
ON SELECTION BAR 3 OF (a_menupops[7]) do form 表单13
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 "输出商品具体信息报表"
DEFINE BAR 3 OF (a_menupops[8]) PROMPT "输出商品库存信息报表"
ON SELECTION BAR 1 OF (a_menupops[8]) report form 报表jb
ON SELECTION BAR 2 OF (a_menupops[8]) report form 报表js
ON SELECTION BAR 3 OF (a_menupops[8]) report form 报表库存
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _26K11BHJH ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单1.MPR, Record: 82
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _26k11bhjh
do form 退出画面
* *********************************************************
* *
* * _26K11BHJV ON SELECTION BAR 1 OF POPUP 浏览
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单1.MPR, Record: 64
* * Called By: ON SELECTION BAR 1 OF POPUP 浏览
* * Prompt: 浏览商品基本信息表
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _26k11bhjv
use jb
browse noedit
use
* *********************************************************
* *
* * _26K11BHJW ON SELECTION BAR 2 OF POPUP 浏览
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单1.MPR, Record: 65
* * Called By: ON SELECTION BAR 2 OF POPUP 浏览
* * Prompt: 浏览商品具体信息
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _26k11bhjw
use js
browse noedit
use
* *********************************************************
* *
* * _26K11BHJX ON SELECTION BAR 3 OF POPUP 浏览
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单1.MPR, Record: 66
* * Called By: ON SELECTION BAR 3 OF POPUP 浏览
* * Prompt: 浏览商品库存信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _26k11bhjx
use 表13
browse noedit
use
* *********************************************************
* *
* * _26K11BHJY ON SELECTION BAR 1 OF POPUP 进货管理
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单1.MPR, Record: 74
* * Called By: ON SELECTION BAR 1 OF POPUP 进货管理
* * Prompt: 需要进货商品
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _26k11bhjy
use 表13
display for 当前库存< 警戒低库存 fields 商品编码,商品名称,商品型号,当前库存,警戒低库存
use
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -