📄 test1.mpr
字号:
* *********************************************************
* *
* * 03/05/99 TEST1.MPR 09:35:00
* *
* *********************************************************
* *
* * 作者姓名
* *
* * 版权(C) 1999 公司名
* * 地址
* * 城市, 邮政编码
* * 国家/地区
* *
* * 说明：
* * 本程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _msm_file OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
NEGOTIATE LEFT ;
KEY ALT+F, "" ;
MESSAGE "创建、打开、保存、打印文件或退出 Visual FoxPro"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE "编辑文本或当前选定内容"
DEFINE PAD _msm_view OF _MSYSMENU PROMPT "显示(\<V)" COLOR SCHEME 3 ;
KEY ALT+V, "" ;
MESSAGE "设置显示选项"
DEFINE PAD _msm_tools OF _MSYSMENU PROMPT "工具(\<T)" COLOR SCHEME 3 ;
KEY ALT+T, "" ;
MESSAGE "设置选项，运行向导及其他工具"
DEFINE PAD _msm_prog OF _MSYSMENU PROMPT "程序(\<P)" COLOR SCHEME 3 ;
NEGOTIATE MIDDLE ;
KEY ALT+P, "" ;
MESSAGE "运行、调试、编译及挂起程序"
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "窗口(\<W)" COLOR SCHEME 3 ;
NEGOTIATE RIGHT ;
KEY ALT+W, "" ;
MESSAGE "操作窗口，显示命令窗口和数据工作期窗口"
DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, "" ;
MESSAGE "显示 Visual FoxPro 的帮助信息"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_view OF _MSYSMENU ACTIVATE POPUP _mview
ON PAD _msm_tools OF _MSYSMENU ACTIVATE POPUP _mtools
ON PAD _msm_prog OF _MSYSMENU ACTIVATE POPUP _mprog
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP _msystem
DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF _mfile PROMPT "新建(\<N)..." ;
KEY CTRL+N, "Ctrl+N" ;
MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF _mfile PROMPT "打开(\<O)..." ;
KEY CTRL+O, "Ctrl+O" ;
MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF _mfile PROMPT "关闭(\<C)" ;
MESSAGE "关闭当前文件"
DEFINE BAR _mfi_clall OF _mfile PROMPT "全部关闭" ;
MESSAGE "全部关闭窗口"
DEFINE BAR _mfi_sp100 OF _mfile PROMPT "\-"
DEFINE BAR _mfi_save OF _mfile PROMPT "保存(\<S)" ;
KEY CTRL+S, "Ctrl+S" ;
MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF _mfile PROMPT "另存为(\<A)..." ;
MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR _mfi_revrt OF _mfile PROMPT "还原(\<R)" ;
MESSAGE "将当前文件还原成最后保存的版本"
DEFINE BAR _mfi_sp200 OF _mfile PROMPT "\-"
DEFINE BAR _mfi_import OF _mfile PROMPT "导入(\<I)..." ;
MESSAGE "导入 Visual FoxPro 文件或其他应用程序的文件"
DEFINE BAR _mfi_export OF _mfile PROMPT "导出(\<E)..." ;
MESSAGE "将 Visual FoxPro 文件以其他应用程序的文件格式输出"
DEFINE BAR _mfi_sp300 OF _mfile PROMPT "\-"
DEFINE BAR _mfi_pgset OF _mfile PROMPT "页面设置(\<U)..." ;
MESSAGE "更改页面布局和打印机设置"
DEFINE BAR _mfi_prevu OF _mfile PROMPT "打印预览(\<V)" ;
MESSAGE "在打印前显示整个页面"
DEFINE BAR _mfi_sysprint OF _mfile PROMPT "打印(\<P)..." ;
KEY CTRL+P, "Ctrl+P" ;
MESSAGE "打印一个文本文件、报表、标签、命令窗口的内容或剪贴板上的内容"
DEFINE BAR _mfi_send OF _mfile PROMPT "发送(\<D)..." ;
MESSAGE "显示邮件窗口来发送邮件"
DEFINE BAR _mfi_sp400 OF _mfile PROMPT "\-"
DEFINE BAR _mfi_quit OF _mfile PROMPT "退出(\<X)" ;
MESSAGE "退出Visual FoxPro"
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT "撤消(\<U)" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF _medit PROMPT "重做(\<D)" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE "重复上一次命令或操作"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-"
DEFINE BAR _med_cut OF _medit PROMPT "剪切(\<T)" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF _medit PROMPT "复制(\<C)" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF _medit PROMPT "粘贴(\<P)" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_pstlk OF _medit PROMPT "选择性粘贴(\<S)..." ;
MESSAGE "将剪贴板上的内容作为链接对象、嵌入对象、或其他类型的对象来粘贴"
DEFINE BAR _med_clear OF _medit PROMPT "清除(\<A)" ;
MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR _med_sp200 OF _medit PROMPT "\-"
DEFINE BAR _med_slcta OF _medit PROMPT "全部选定(\<L)" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "选定当前窗口中的所有文本或数据项"
DEFINE BAR _med_sp300 OF _medit PROMPT "\-"
DEFINE BAR _med_find OF _medit PROMPT "查找(\<F)..." ;
KEY CTRL+F, "Ctrl+F" ;
MESSAGE "搜索指定文本"
DEFINE BAR _med_finda OF _medit PROMPT "再次查找(\<G)" ;
KEY CTRL+G, "Ctrl+G" ;
MESSAGE "重复上一次查找"
DEFINE BAR _med_repl OF _medit PROMPT "替换(\<E)..." ;
KEY CTRL+L, "Ctrl+L" ;
MESSAGE "用其他文本替换指定文本"
DEFINE BAR _med_sp400 OF _medit PROMPT "\-"
DEFINE BAR _med_insob OF _medit PROMPT "插入对象(\<I)..." ;
MESSAGE "在通用类型字段中嵌入一个对象"
DEFINE BAR _med_obj OF _medit PROMPT "对象(\<O)..." ;
MESSAGE "编辑选定对象"
DEFINE BAR _med_link OF _medit PROMPT "链接(\<K)..." ;
MESSAGE "打开链接文件或更改链接"
DEFINE BAR _med_sp500 OF _medit PROMPT "\-"
DEFINE BAR _med_pref OF _medit PROMPT "属性(\<R)..." ;
MESSAGE "设置编辑器属性"
DEFINE POPUP _mview MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mvi_toolb OF _mview PROMPT "工具栏(\<T)..." ;
MESSAGE "显示、隐藏或定制工具栏"
DEFINE POPUP _mtools MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mtools PROMPT "向导(\<W)" ;
MESSAGE "运行选定的向导"
DEFINE BAR _mtl_sp100 OF _mtools PROMPT "\-"
DEFINE BAR _mtl_spell OF _mtools PROMPT "拼写检查(\<S)..." ;
MESSAGE "检查拼写错误"
DEFINE BAR _mst_macro OF _mtools PROMPT "宏(\<A)..." ;
MESSAGE "创建、删除或修改键盘宏"
DEFINE BAR _mtl_browser OF _mtools PROMPT "类浏览器(\<C)" ;
MESSAGE "运行类浏览器"
DEFINE BAR _med_beaut OF _mtools PROMPT "修饰(\<F)..." ;
MESSAGE "对程序进行修饰"
DEFINE BAR _mtl_sp200 OF _mtools PROMPT "\-"
DEFINE BAR _mtl_debugger OF _mtools PROMPT "调试器(\<B)" ;
MESSAGE "显示调试器"
DEFINE BAR _mtl_sp400 OF _mtools PROMPT "\-"
DEFINE BAR _mtl_optns OF _mtools PROMPT "选项(\<O)..." ;
MESSAGE "更改 Visual FoxPro 选项"
ON BAR 1 OF _mtools ACTIVATE POPUP _mwizards
DEFINE POPUP _mwizards MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwz_table OF _mwizards PROMPT "表(\<T)" ;
MESSAGE "运行表向导"
DEFINE BAR _mwz_query OF _mwizards PROMPT "查询(\<Q)" ;
MESSAGE "运行查询、交叉表、图形、本地视图和远程视图向导"
DEFINE BAR _mwz_form OF _mwizards PROMPT "表单(\<F)" ;
MESSAGE "运行表单向导和一对多表单向导"
DEFINE BAR _mwz_reprt OF _mwizards PROMPT "报表(\<R)" ;
MESSAGE "运行报表向导和一对多报表向导"
DEFINE BAR _mwz_label OF _mwizards PROMPT "标签(\<L)" ;
MESSAGE "运行标签向导"
DEFINE BAR _mwz_mail OF _mwizards PROMPT "邮件合并(\<M)" ;
MESSAGE "运行邮件合并向导"
DEFINE BAR _mwz_pivot OF _mwizards PROMPT "数据透视表(\<P)" ;
MESSAGE "运行数据透视表向导"
DEFINE BAR _mwz_import OF _mwizards PROMPT "导入(\<I)" ;
MESSAGE "运行导入向导"
DEFINE BAR _mwz_foxdoc OF _mwizards PROMPT "文档(\<D)" ;
MESSAGE "运行文档向导"
DEFINE BAR _mwz_setup OF _mwizards PROMPT "安装(\<S)" ;
MESSAGE "运行安装向导"
DEFINE BAR _mwz_upsizing OF _mwizards PROMPT "升迁(\<U)" ;
MESSAGE "运行升迁向导"
DEFINE BAR _mwz_all OF _mwizards PROMPT "全部(\<A)" ;
MESSAGE "显示所有向导的一个列表"
DEFINE POPUP _mprog MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mpr_do OF _mprog PROMPT "运行(\<D)..." ;
KEY CTRL+D, "Ctrl+D" ;
MESSAGE "运行一个程序、应用程序、表单、报表、查询或菜单"
DEFINE BAR _mpr_cancl OF _mprog PROMPT "取消(\<C)" ;
MESSAGE "停止运行当前程序"
DEFINE BAR _mpr_resum OF _mprog PROMPT "继续执行(\<R)" ;
KEY CTRL+M, "Ctrl+M" ;
MESSAGE "继续运行当前挂起的程序"
DEFINE BAR _mpr_suspend OF _mprog PROMPT "挂起(\<S)" ;
MESSAGE "挂起当前正在运行的程序"
DEFINE BAR _mpr_sp100 OF _mprog PROMPT "\-"
DEFINE BAR _mpr_compl OF _mprog PROMPT "编译(\<M)..." ;
MESSAGE "编译当前程序或选定程序"
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwi_arran OF _mwindow PROMPT "全部重排(\<A)" ;
MESSAGE "用非重叠方式重排窗口"
DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "\-"
DEFINE BAR _mwi_hide OF _mwindow PROMPT "隐藏(\<H)" ;
MESSAGE "隐藏活动窗口"
DEFINE BAR _mwi_hidea OF _mwindow PROMPT "全部隐藏" ;
MESSAGE "隐藏所有窗口"
DEFINE BAR _mwi_showa OF _mwindow PROMPT "全部显示(\<O)" ;
MESSAGE "显示所有隐藏的窗口"
DEFINE BAR _mwi_clear OF _mwindow PROMPT "清除(\<R)" ;
MESSAGE "清除应用程序工作区或当前输出窗口中的文本"
DEFINE BAR _mwi_rotat OF _mwindow PROMPT "循环(\<Y)" ;
KEY CTRL+F1, "Ctrl+F1" ;
MESSAGE "在所有打开的窗口间循环切换"
DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "\-"
DEFINE BAR _mwi_cmd OF _mwindow PROMPT "命令窗口(\<C)" ;
KEY CTRL+F2, "Ctrl+F2" ;
MESSAGE "显示命令窗口"
DEFINE BAR _mwi_view OF _mwindow PROMPT "数据工作期(\<D)" ;
MESSAGE "显示数据工作期窗口"
DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF _msystem PROMPT "Microsoft Visual FoxPro 帮助主题(\<V)" ;
KEY F1, "F1" ;
MESSAGE "以输入的关键字寻找帮助主题"
DEFINE BAR _mst_sp100 OF _msystem PROMPT "\-"
DEFINE BAR _mst_docum OF _msystem PROMPT "文档(\<D)" ;
MESSAGE "打开Visual FoxPro的联机文挡"
DEFINE BAR _mst_samp OF _msystem PROMPT "示例应用程序(\<M)" ;
MESSAGE "访问并提供 Visual Foxpro 示例程序的信息"
DEFINE BAR _mst_sp200 OF _msystem PROMPT "\-"
DEFINE BAR 6 OF _msystem PROMPT "Microsoft on the \<Web" ;
MESSAGE "启动您的Web浏览器进入Microsoft Web节点 "
DEFINE BAR _mst_techs OF _msystem PROMPT "技术支持(\<T)" ;
MESSAGE "提供怎样获得额外的技术帮助的信息"
DEFINE BAR _mst_sp200 OF _msystem PROMPT "\-"
DEFINE BAR _mst_about OF _msystem PROMPT "关于 Microsoft Visual FoxPro(\<A)..." ;
MESSAGE "显示 Visual FoxPro 的版本和版权信息 "
ON BAR 6 OF _msystem ACTIVATE POPUP _webmenu
DEFINE POPUP _webmenu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _helpwebvfpfreestuff OF _webmenu PROMPT "免费材料(\<F)" ;
MESSAGE "打开Visual FoxPro免费材料主页"
DEFINE BAR _helpwebvfphomepage OF _webmenu PROMPT "产品信息(\<P)" ;
MESSAGE "打开 Visual FoxPro 产品信息主页"
DEFINE BAR _helpwebvfpfaq OF _webmenu PROMPT "常见问题(\<Q)" ;
MESSAGE "打开 Visual FoxPro FAQ 主页"
DEFINE BAR _helpwebvfponlinesupport OF _webmenu PROMPT "联机支持(\<S)" ;
MESSAGE "打开 Microsoft FoxPro 联机支持主页"
DEFINE BAR _helpwebfiller1 OF _webmenu PROMPT "\-"
DEFINE BAR _helpwebdevonly OF _webmenu PROMPT "开发工程师主页(\<D)" ;
MESSAGE "打开开发工程师主页"
DEFINE BAR _helpwebvfpsendfeedback OF _webmenu PROMPT "发送反馈(\<K)..." ;
MESSAGE "打开 Visual FoxPro 反馈主页"
DEFINE BAR _helpwebdirectory OF _webmenu PROMPT "Web 精华(\<B)" ;
MESSAGE "打开 Web 精华页"
DEFINE BAR _helpwebsearch OF _webmenu PROMPT "搜索Web(\<W)..." ;
MESSAGE "打开搜索主页"
DEFINE BAR _helpwebtutorial OF _webmenu PROMPT "Web 教程(\<T)" ;
MESSAGE "打开 Web 教程页 "
DEFINE BAR 11 OF _webmenu PROMPT "\-"
DEFINE BAR _helpwebmsfthomepage OF _webmenu PROMPT "Microsoft 主页(\<M)" ;
MESSAGE "打开 Microsoft 主页"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -