📄 zhumenu.mpr
字号:
* *********************************************************
* *
* * 08/19/06 ZHUMENU.MPR 21:26:19
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2006 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1vl19y84q OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
KEY ALT+F, ""
DEFINE PAD _1vl19y84r OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
KEY ALT+E, ""
DEFINE PAD _1vl19y84s OF _MSYSMENU PROMPT "商品(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, ""
DEFINE PAD _1vl19y84t OF _MSYSMENU PROMPT "供应商(\<P)" COLOR SCHEME 3 ;
KEY ALT+P, ""
DEFINE PAD _1vl19y84u OF _MSYSMENU PROMPT "订单(\<O)" COLOR SCHEME 3 ;
KEY ALT+O, ""
DEFINE PAD _1vl19y84v OF _MSYSMENU PROMPT "销售(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, ""
DEFINE PAD _1vl19y84w OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
DEFINE PAD _1vl19y84x OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _1vl19y84q OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1vl19y84r OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _1vl19y84s OF _MSYSMENU ACTIVATE POPUP 商品c
ON PAD _1vl19y84t OF _MSYSMENU ACTIVATE POPUP 供应商p
ON PAD _1vl19y84u OF _MSYSMENU ACTIVATE POPUP 订单o
ON PAD _1vl19y84v OF _MSYSMENU ACTIVATE POPUP 销售s
ON SELECTION PAD _1vl19y84w OF _MSYSMENU ;
DO _1vl19y84y ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON PAD _1vl19y84x OF _MSYSMENU ACTIVATE POPUP 帮助h
DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
KEY CTRL+N, "Ctrl+N" ;
MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
KEY CTRL+O, "Ctrl+O" ;
MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
MESSAGE "关闭当前文件"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
KEY CTRL+S, "Ctrl+S" ;
MESSAGE "保存当前改动了的文件"
DEFINE BAR 5 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_pgset OF 文件f PROMPT "页面设置(\<U)..." ;
MESSAGE "修改页面布局和打印机设置"
DEFINE BAR _mfi_prevu OF 文件f PROMPT "打印预览(\<V)" ;
MESSAGE "在打印前显示整个页面"
DEFINE BAR _mfi_sysprint OF 文件f PROMPT "打印(\<P)..." ;
KEY CTRL+P, "Ctrl+P" ;
MESSAGE "打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容"
DEFINE BAR 9 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
MESSAGE "退出 Visual FoxPro"
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 POPUP 商品c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 商品c PROMPT "商品与商品分类"
DEFINE BAR 2 OF 商品c PROMPT "商品与供应商"
ON SELECTION BAR 1 OF 商品c DO FORM 商品分类与商品
ON SELECTION BAR 2 OF 商品c DO FORM 供应商商品
DEFINE POPUP 供应商p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 供应商p PROMPT "供应商与商品分类"
DEFINE BAR 2 OF 供应商p PROMPT "供应商与商品"
ON SELECTION BAR 1 OF 供应商p DO FORM 商品分类与供应商
ON SELECTION BAR 2 OF 供应商p DO FORM 供应商商品
DEFINE POPUP 订单o MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 订单o PROMPT "订单信息"
DEFINE BAR 2 OF 订单o PROMPT "打印订单"
ON SELECTION BAR 1 OF 订单o DO FORM 订单
ON SELECTION BAR 2 OF 订单o ;
DO _1vl19y84z ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
DEFINE POPUP 销售s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售s PROMPT "销售信息"
DEFINE BAR 2 OF 销售s PROMPT "打印销售信息"
ON SELECTION BAR 1 OF 销售s DO FORM 销售情况
ON SELECTION BAR 2 OF 销售s ;
DO _1vl19y856 ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF 帮助h PROMPT "帮助主题(\<V)" ;
KEY F1, "F1" ;
MESSAGE "以输入的关键字寻找帮助主题"
DEFINE BAR _mst_about OF 帮助h PROMPT "关于 (\<A)..." ;
MESSAGE "显示 Visual FoxPro 的版本及版权信息"
* *********************************************************
* *
* * _1VL19Y84Y ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 39
* * Called By: ON SELECTION PAD
* * Prompt: 退出系统
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1vl19y84y
set procedure to zhumenu.mpr
close DATABASES
close all
clear events
QUIT
* *********************************************************
* *
* * _1VL19Y84Z ON SELECTION BAR 2 OF POPUP 订单o
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 34
* * Called By: ON SELECTION BAR 2 OF POPUP 订单o
* * Prompt: 打印订单
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1vl19y84z
SET FILTER TO
REPORT FORM 订单报表.frx
* *********************************************************
* *
* * _1VL19Y856 ON SELECTION BAR 2 OF POPUP 销售s
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 38
* * Called By: ON SELECTION BAR 2 OF POPUP 销售s
* * Prompt: 打印销售信息
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1vl19y856
SET FILTER TO
REPORT FORM 销售报表.frx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -