对于英语水平不是太高的人来说,在学习使用Foxpro时总有些皱眉头,他们希望其界面能象中文WORD一样友好,这是我在从事几期Foxpro培训班的过程中许多人的期望。诚然，将Foxpro界面的英语译成中文后不免有些“别扭”感（我想这也许是中文版的Foxprow2.5仍保留了英文界面的主要原因吧)，但能自己动手将其译成英文也不失为一种尝试,同时能帮一部分初学者熨平起皱的眉头,重燃学习的热情。于是我就动手写了一中文菜单mymenu.mpr代替原来的西文菜单，利用了和系统菜单_msysmenu 、系统菜单板_msm_file、_msm_edit、_msm_data等、系统菜单选项_mfi_new、_mfi_open、_med_cut、_med_copy等相同的名字作系统菜单名、系统菜单板名和系统菜单选项名，然后在config.fpw文件中加上一行：_startup= "mymenu.mpr" 或command=do mymenu.mpr ,让Foxpro启动时自动装配中文菜单即可。mymenu.mpr程序清单如下:
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _msm_file OF _MSYSMENU PROMPT "<F.文件" COLOR SCHEME 3 ;
KEY ALT+F, "" MESSAGE "建立,打开,保存,打印文件,退出 FoxPro"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "<E.编辑" COLOR SCHEME 3 ;
KEY ALT+E, "" MESSAGE "编辑文件或修改链接嵌入对象"
DEFINE PAD _msm_data OF _MSYSMENU PROMPT "<D.数据库" COLOR SCHEME 3 ;
KEY ALT+D, "" MESSAGE "对库文件操作,打印报表和标签... ..."
DEFINE PAD _msm_recrd OF _MSYSMENU PROMPT "<R.记录" COLOR SCHEME 3 ;
KEY ALT+R, "" MESSAGE "对活动库中的记录进行操作... ..."
DEFINE PAD _msm_prog OF _MSYSMENU PROMPT "<P.程序" COLOR SCHEME 3 ;
KEY ALT+P, "" MESSAGE "调试,运行,编译,产生程序代码... ..."
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "<W.窗口" COLOR SCHEME 3 ;
KEY ALT+W, "" MESSAGE "操作窗口,显示命令和查看窗口... ..."
DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "<H.帮助" COLOR SCHEME 3 ;
KEY ALT+H, "" MESSAGE "获取有关如何学习使用Foxpro的内容... ..."
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_data OF _MSYSMENU ACTIVATE POPUP _mdata
ON PAD _msm_recrd OF _MSYSMENU ACTIVATE POPUP _mrecord
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.新文件..." MESSAGE "产生一个新文件"
DEFINE BAR _mfi_open OF _mfile PROMPT "<O.打开..." ;
MESSAGE "打开一个已存在的文件"
DEFINE BAR _mfi_close OF _mfile PROMPT "<C.关闭" MESSAGE "关闭当前的文件"
DEFINE BAR _mfi_clall OF _mfile PROMPT "关闭所有的" MESSAGE "关闭所有的文件?/P>
DEFINE BAR _mfi_sp100 OF _mfile PROMPT "-"
DEFINE BAR _mfi_save OF _mfile PROMPT "<S.保存" MESSAGE "保存当前编辑的文件"
DEFINE BAR _mfi_savas OF _mfile PROMPT "<V.保存为...";
MESSAGE "以一个新的文件名保存当前编辑的文件"
DEFINE BAR _mfi_revrt OF _mfile PROMPT "<R.恢复保存" ;
MESSAGE "已修改的内容作废,恢复最近一次存盘的内容"
DEFINE BAR _mfi_sp200 OF _mfile PROMPT "-"
DEFINE BAR _mfi_setup OF _mfile PROMPT "<I.打印设置" ;
MESSAGE "打印前对页面、纸张及打印机进行设置 "
DEFINE BAR _mfi_print OF _mfile PROMPT "<P.打印..." ;
MESSAGE "打印文本文件、命令窗口或剪切板的内容"
DEFINE BAR _mfi_sp300 OF _mfile PROMPT "-"
DEFINE BAR _mfi_quit OF _mfile PROMPT "<X.退出" ;
MESSAGE "结束所有的工作,退出 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 "<R.重作" 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 "将当前选中的内容移动到Winodws 的剪切板,以便供其它程序使用... ..."
DEFINE BAR _med_copy OF _medit PROMPT "<C.复制" KEY CTRL+C, "Ctrl+C" ;
MESSAGE "将当前选中的内容复制到Winodws 的剪切板,以便供其它程序使用... ..."
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 "清除" MESSAGE "删除选中部分"
DEFINE BAR _med_sp200 OF _medit PROMPT "-"
DEFINE BAR _med_insob OF _medit PROMPT "<I.插入对象..." ;
MESSAGE "将对象嵌入到general字段中... ..."
DEFINE BAR _med_obj OF _medit PROMPT "<O.对象..." MESSAGE "激活 OLE 对象"
DEFINE BAR _med_link OF _medit PROMPT "<K.改变链接..." ;
MESSAGE "查看或修改链接对象... ..."
DEFINE BAR _med_cvtst OF _medit PROMPT "<V.转为静态" ;
MESSAGE "将链接或嵌入的对象转换成静态的图片... ..."
DEFINE BAR _med_sp300 OF _medit PROMPT "-"
DEFINE BAR _med_slcta OF _medit PROMPT "<A.选中所有" KEY CTRL+A, "Ctrl+A" ;
MESSAGE "选中当前窗口中所有的文本或对象... ..."
DEFINE BAR _med_sp400 OF _medit PROMPT "-"
DEFINE BAR _med_goto OF _medit PROMPT "<L.到某行..." ;
MESSAGE "将光标移到指定的行去... ..."
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+E, "Ctrl+E" ;
MESSAGE "替换并继续寻找... ..."
DEFINE BAR _med_repla OF _medit PROMPT "替换所有的" ;
MESSAGE "自动替换所有与指定文本匹配的地方,勿需一一确认... ..."
DEFINE BAR _med_sp500 OF _medit PROMPT "-"
DEFINE BAR _med_pref OF _medit PROMPT "<N.特性..." ;
MESSAGE "建立编辑的有关设置... ..."
DEFINE POPUP _mdata MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mda_setup OF _mdata PROMPT "<U.设置..." ;
MESSAGE "对当前工作区中的数据库进行设置... ..."
DEFINE BAR _mda_brow OF _mdata PROMPT "<B.浏览" ;
MESSAGE "查看修改当前库内容... ..."
DEFINE BAR _mda_sp100 OF _mdata PROMPT "-"
DEFINE BAR _mda_appnd OF _mdata PROMPT "<A.从...添加" ;
MESSAGE "从另外一个文件向当前的库追加数据... ..."
DEFINE BAR _mda_copy OF _mdata PROMPT "<C.拷贝到..." ;
MESSAGE "把当前库的有关内容复制成另外一个文件 ... ..."
DEFINE BAR _mda_sort OF _mdata PROMPT "<S.排序..." ;
MESSAGE "对当前的库文件进行排序... ..."
DEFINE BAR _mda_total OF _mdata PROMPT "<T.汇总..." ;
MESSAGE "对数值型的字段进行汇总计算... ..."
DEFINE BAR _mda_sp200 OF _mdata PROMPT "-"
DEFINE BAR _mda_avg OF _mdata PROMPT "<V.平均值..." ;
MESSAGE "对数值型的字段进行求平均值的计算... ..."
DEFINE BAR _mda_count OF _mdata PROMPT "<O.计数..." ;
MESSAGE "统计符合条件的记录数目... ..."
DEFINE BAR _mda_sum OF _mdata PROMPT "<M.求和..." ;
MESSAGE "对数值型的字段进行和计算... ..."
DEFINE BAR _mda_calc OF _mdata PROMPT "<E.计算..." ;
MESSAGE "执行一个统计操作"
DEFINE BAR _mda_reprt OF _mdata PROMPT "<R.报表..." ;
MESSAGE "显示打印报表... ..."
DEFINE BAR _mda_label OF _mdata PROMPT "<L.标签..." ;
MESSAGE "显示打印标签... ..."
DEFINE BAR _mda_sp300 OF _mdata PROMPT "-"
DEFINE BAR _mda_pack OF _mdata PROMPT "<P.彻底删除" ;
MESSAGE "将作了删除标记的记录从库中彻底的清除,本步不可回退... ..."
DEFINE BAR _mda_rindx OF _mdata PROMPT "<X.重新索引" ;
MESSAGE "依原关键字重新建索引文件 ... ..."
DEFINE POPUP _mrecord MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mrc_appnd OF _mrecord PROMPT "<A.追加" ;
MESSAGE "追加一条新记录... ..."
DEFINE BAR _mrc_chnge OF _mrecord PROMPT "<E.修改" ;
MESSAGE "修改记录... ..."
DEFINE BAR _mrc_sp100 OF _mrecord PROMPT "-"
DEFINE BAR _mrc_goto OF _mrecord PROMPT "<G.移指针到..." ;
MESSAGE "把指针移到一个指定记录号... ..."
DEFINE BAR _mrc_locat OF _mrecord PROMPT "<L.查找定位..." ;
MESSAGE "查找符合某个条件的记录... ..."
DEFINE BAR _mrc_cont OF _mrecord PROMPT "<C.再次查找" KEY CTRL+K, "Ctrl+K" ;
MESSAGE "接着查找符合条件的下一个记录... ..."
DEFINE BAR _mrc_seek OF _mrecord PROMPT "<S.按索引查找..." ;
MESSAGE "查找与某个索引关键字相匹配的记录... ..."
DEFINE BAR _mrc_sp200 OF _mrecord PROMPT "-"
DEFINE BAR _mrc_repl OF _mrecord PROMPT "<P.替换..."
MESSAGE "把符合条件的某些记录用指定的内容替换... ..."
DEFINE BAR _mrc_delet OF _mrecord PROMPT "<D.删除..." ;
MESSAGE "对符合条件的记录做删除标记... ..."
DEFINE BAR _mrc_recal OF _mrecord PROMPT "<R.恢复删除..." ;
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 "接着执行一个被suspend 命令挂起的程序... ..."
DEFINE BAR _mpr_sp100 OF _mprog PROMPT "-"
DEFINE BAR _mwi_debug OF _mprog PROMPT "<B.调试" MESSAGE "弹出调适窗口... ..."
DEFINE BAR _mwi_trace OF _mprog PROMPT "<T.跟踪" MESSAGE "弹出跟踪窗口... ..."
DEFINE BAR _mpr_sp200 OF _mprog PROMPT "-"
DEFINE BAR _mpr_compl OF _mprog PROMPT "<M.编译..." ;
MESSAGE "编译指定的程序... ..."
DEFINE BAR _mpr_gener OF _mprog PROMPT "<N.产生程序代码..." ;
MESSAGE "计算机自动为一个屏幕文件或菜单文件产生程序代码(即自动编程)... ..."
DEFINE BAR _mst_macro OF _mprog PROMPT "<A.宏.." ;
MESSAGE "定义常用的快捷键... ..."
DEFINE BAR _mpr_sp300 OF _mprog PROMPT "-"
DEFINE BAR _mpr_beaut OF _mprog PROMPT "<F.修饰..." ;
MESSAGE "把一个程序修饰得更漂亮... ..."
DEFINE BAR _mpr_docum OF _mprog PROMPT "Fo<xDoc" ;
MESSAGE "Document programs"
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
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 "<C.找某窗口到前面" ;
KEY CTRL+F1, "Ctrl+F1" MESSAGE "以逐个移到前台的方式寻找某窗口... ..."
DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "-"
DEFINE BAR _mwi_cmd OF _mwindow PROMPT "<M.命令窗口" ;
KEY CTRL+F2, "Ctrl+F2" MESSAGE "弹出命令窗口... ..."
DEFINE BAR _mwi_view OF _mwindow PROMPT "<View" ;
MESSAGE "弹出view 窗口... ..."
DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_help OF _msystem PROMPT "<C.帮助内容" ;
KEY F1, "" MESSAGE "显示帮助内容... ..."
DEFINE BAR _mst_hpsch OF _msystem PROMPT "<S.寻找关于...的帮助" ;
MESSAGE "以键入或选择关键字的方式寻找关于某个问题的帮助... ..."
DEFINE BAR _mst_hphow OF _msystem PROMPT "<H.如何使用帮助" ;
MESSAGE "教您如何使用这里的帮助菜单... ..."
DEFINE BAR _mst_sp100 OF _msystem PROMPT "-"
DEFINE BAR _mst_about OF _msystem PROMPT "<A.关于Fofxpro for windows..." ;
MESSAGE "显示关于Foxpro和系统配置的信息... ..."
DEFINE BAR _mst_sp200 OF _msystem PROMPT "-"
DEFINE BAR _mst_calcu OF _msystem PROMPT "<L.计算器" ;
MESSAGE "弹出一个计算器,供您使用... ..."
DEFINE BAR _mst_diary OF _msystem PROMPT "<I.日历/日记" ;
MESSAGE "检查系统日期,还可以保存您的各项约会... ..."
DEFINE BAR _mst_filer OF _msystem PROMPT "<F.文件管理器" ;
MESSAGE "管理文件和目录... ..."
DEFINE BAR _mst_puzzl OF _msystem PROMPT "Pu<zzle 游戏" ;
MESSAGE "弹出一个名为Puzzle 的游戏供您娱乐... ..."
本程序在中西文windows(含Windows for workgroup、Windows NT、Windows95) ＋Cstar2.0/ucwin3.1/Richwin4.0＋中西文Foxprow2.5环境下均调试运行通过。
