📄 sysmenu.mpr
字号:
* *********************************************************
* *
* * 2000-03-10 SYSMENU.MPR 18:26:51
* *
* *********************************************************
* *
* * 黄虎锋
* *
* * 版权(C) 2000 红虎工作室
* * 后塍兴塍苑宾馆
* * 张家港, 江苏 215631
* * 中国
* *
* * 说明：
* * 本程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _01y13jf81 OF _MSYSMENU PROMPT "功能选择(\<F)" COLOR SCHEME 3 ;
KEY ALT+F, "" ;
MESSAGE "&softname 的主要功能选择"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE "编辑文本或当前选定内容"
DEFINE PAD _01y13jf8q OF _MSYSMENU PROMPT "查看(\<V)" COLOR SCHEME 3 ;
KEY ALT+V, "" ;
SKIP FOR cur_right=0
DEFINE PAD _01y13jf8u OF _MSYSMENU PROMPT "工具(\<T)" COLOR SCHEME 3 ;
KEY ALT+T, "" ;
SKIP FOR cur_right=0
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "窗口(\<W)" COLOR SCHEME 3 ;
NEGOTIATE RIGHT ;
KEY ALT+W, "" ;
MESSAGE "操作窗口"
DEFINE PAD _01y13jf90 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, "" ;
MESSAGE "&softname 的帮助主题及相关信息"
ON PAD _01y13jf81 OF _MSYSMENU ACTIVATE POPUP 功能选择f
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _01y13jf8q OF _MSYSMENU ACTIVATE POPUP 查看v
ON PAD _01y13jf8u OF _MSYSMENU ACTIVATE POPUP 工具t
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
ON PAD _01y13jf90 OF _MSYSMENU ACTIVATE POPUP 帮助h
DEFINE POPUP 功能选择f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 功能选择f PROMPT "新增(\<N)" ;
KEY F2, "F2" ;
SKIP FOR cur_right=0 ;
MESSAGE "新增数据"
DEFINE BAR 2 OF 功能选择f PROMPT "浏览(\<B)" ;
KEY F8, "F8" ;
SKIP FOR cur_right=0
DEFINE BAR 3 OF 功能选择f PROMPT "查找(\<F)" ;
KEY F3, "F3" ;
SKIP FOR cur_right=0 ;
MESSAGE " "
DEFINE BAR 4 OF 功能选择f PROMPT "\-"
DEFINE BAR 5 OF 功能选择f PROMPT "报表(\<P)" ;
KEY F4, "F4" ;
SKIP FOR cur_right=0 ;
MESSAGE "&softname.报表系统"
DEFINE BAR 6 OF 功能选择f PROMPT "\-"
DEFINE BAR 7 OF 功能选择f PROMPT "登录(\<L)..." ;
KEY F5, "F5" ;
MESSAGE "操作员登录到&softname.系统"
DEFINE BAR 8 OF 功能选择f PROMPT "\-"
DEFINE BAR 9 OF 功能选择f PROMPT "退出(\<X)" ;
KEY ALT+F4, "Alt+F4" ;
MESSAGE "退出&softname.系统"
ON SELECTION BAR 1 OF 功能选择f do ChecktoRun with "do showform with '新增','oF11' ","11"
ON SELECTION BAR 2 OF 功能选择f do ChecktoRun with "do showform with '浏览','oF12'","12"
ON SELECTION BAR 3 OF 功能选择f do ChecktoRun with "do showform with '历史查询','oF13'","13"
ON SELECTION BAR 5 OF 功能选择f do ChecktoRun with "do showform with'报表','oF21'","21"
ON SELECTION BAR 7 OF 功能选择f do ChecktoRun with "do showform with '登录','oF31'","31"
ON SELECTION BAR 9 OF 功能选择f do shutdown
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_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 POPUP 查看v MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查看v PROMPT "功能工具条(\<T)" ;
MESSAGE "显示/关闭工具条"
DEFINE BAR 2 OF 查看v PROMPT "编辑工具条(\<E)"
DEFINE BAR 3 OF 查看v PROMPT "状态栏(\<S)" ;
MESSAGE "显示/关闭状态栏"
DEFINE BAR 4 OF 查看v PROMPT "\-"
DEFINE BAR 5 OF 查看v PROMPT "餐厅状况图(\<R)"
DEFINE BAR 6 OF 查看v PROMPT "\-"
DEFINE BAR 7 OF 查看v PROMPT "选项(\<O)..." ;
MESSAGE "&softname 的高级选项"
ON SELECTION BAR 1 OF 查看v ;
DO _01y13jfed ;
IN LOCFILE("\红虎工作室\餐厅收银\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 2 OF 查看v ;
DO _01y13jfeo ;
IN LOCFILE("\红虎工作室\餐厅收银\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 3 OF 查看v ;
DO _01y13jff0 ;
IN LOCFILE("\红虎工作室\餐厅收银\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 5 OF 查看v do ChecktoRun with "do showform with '状况图','oF14' ","14"
ON SELECTION BAR 7 OF 查看v do ChecktoRun with "do showform with '选项','oF33'","33"
DEFINE POPUP 工具t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工具t PROMPT "数据备份(\<B)" ;
MESSAGE "&softname 数据备份与还原"
DEFINE BAR 2 OF 工具t PROMPT "代码维护(\<C)"
DEFINE BAR 3 OF 工具t PROMPT "系统检查(\<S)"
DEFINE BAR 4 OF 工具t PROMPT "\-"
DEFINE BAR 5 OF 工具t PROMPT "命令窗口" ;
KEY CTRL+F2, "Ctrl+F2" ;
SKIP FOR cur_right<9 ;
MESSAGE "VFP命令窗口"
ON SELECTION BAR 1 OF 工具t do ChecktoRun with "do showform with '数据备份','oF32'","32"
ON SELECTION BAR 2 OF 工具t do ChecktoRun with "do form '代码维护'","33"
ON SELECTION BAR 3 OF 工具t do ChecktoRun with "do form '系统检查'","35"
ON SELECTION BAR 5 OF 工具t do form 命令窗口
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwi_arran OF _mwindow PROMPT "全部重排(\<A)" ;
MESSAGE "用非重叠方式重排窗口"
DEFINE BAR 2 OF _mwindow PROMPT "\-"
DEFINE BAR _mfi_clall OF _mwindow PROMPT "全部关闭" ;
MESSAGE "关闭全部打开的窗口"
DEFINE BAR _mfi_close OF _mwindow PROMPT "关闭窗口(\<C)" ;
MESSAGE "关闭当前窗口"
DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF 帮助h PROMPT "帮助主题(\<T)" ;
KEY F1, "F1" ;
MESSAGE "&softname 的帮助主题"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "写信给作者(\<E)..." ;
MESSAGE "写信给作者"
DEFINE BAR 4 OF 帮助h PROMPT "访问作者主页(\<W)..." ;
MESSAGE "通过 Internet 访问作者主页"
DEFINE BAR 5 OF 帮助h PROMPT "\-"
DEFINE BAR 6 OF 帮助h PROMPT "关于(\<A)..." ;
MESSAGE "关于&softname 的版权信息"
ON SELECTION BAR 3 OF 帮助h do send_mail
ON SELECTION BAR 4 OF 帮助h do visit_web
ON SELECTION BAR 6 OF 帮助h do form 关于
* *********************************************************
* *
* * _01Y13JFED ON SELECTION BAR 1 OF POPUP 查看v
* *
* * Procedure Origin:
* *
* * From Menu: SYSMENU.MPR, Record: 34
* * Called By: ON SELECTION BAR 1 OF POPUP 查看v
* * Prompt: 功能工具条(T)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _01y13jfed
if !(TYPE("oToolsBar")="O" AND !ISNULL(oToolsBar))
oToolsBar=createobject('功能工具条')
SET MARK OF BAR 1 OF 查看v TO .t.
otoolsbar.show
do RefreshToolsBar
else
if isShowToolsBar=.t.
otoolsBar.hide
isShowToolsBar=.f.
SET MARK OF BAR 1 OF 查看v TO .f.
else
oToolsBar.show
isShowToolsBar=.t.
SET MARK OF BAR 1 OF 查看v TO .t.
endif
endif
* *********************************************************
* *
* * _01Y13JFEO ON SELECTION BAR 2 OF POPUP 查看v
* *
* * Procedure Origin:
* *
* * From Menu: SYSMENU.MPR, Record: 35
* * Called By: ON SELECTION BAR 2 OF POPUP 查看v
* * Prompt: 编辑工具条(E)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _01y13jfeo
if !(TYPE("oEditToolsBar")="O" AND !ISNULL(oEditToolsBar))
oEditToolsBar=createobject('编辑工具条')
SET MARK OF BAR 2 OF 查看v TO .t.
oEditToolsBar.show
else
if isShowEditBar=.t.
oEditToolsBar.hide
isShowEditBar=.f.
SET MARK OF BAR 2 OF 查看v TO .f.
else
oEditToolsBar.show
isShowEditBar=.t.
SET MARK OF BAR 2 OF 查看v TO .t.
endif
endif
* *********************************************************
* *
* * _01Y13JFF0 ON SELECTION BAR 3 OF POPUP 查看v
* *
* * Procedure Origin:
* *
* * From Menu: SYSMENU.MPR, Record: 36
* * Called By: ON SELECTION BAR 3 OF POPUP 查看v
* * Prompt: 状态栏(S)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _01y13jff0
if isShowStatus
set status bar off
SET MARK OF BAR 3 OF 查看v TO .f.
isShowStatus=.f.
else
set status bar on
SET MARK OF BAR 3 OF 查看v TO .t.
isShowStatus=.t.
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -