📄 zhumenu.mpr
字号:
* *********************************************************
* *
* * 05/08/09 ZHUMENU.MPR 23:45:07
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2009 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _2nb1ewqcx OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
KEY CTRL+F, "CTRL+F"
DEFINE PAD _2nb1ewqcy OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
KEY CTRL+E, "CTRL+E"
DEFINE PAD _2nb1ewqcz OF _MSYSMENU PROMPT "开课目录(\<K)" COLOR SCHEME 3 ;
KEY CTRL+K, "CTRL+K"
DEFINE PAD _2nb1ewqd0 OF _MSYSMENU PROMPT "学生选课(\<S)" COLOR SCHEME 3 ;
KEY CTRL+S, "CTRL+S"
DEFINE PAD _2nb1ewqd1 OF _MSYSMENU PROMPT "已选课程(\<C)" COLOR SCHEME 3 ;
KEY CTRL+C, "CTRL+C"
DEFINE PAD _2nb1ewqd2 OF _MSYSMENU PROMPT "系统维护(\<M)" COLOR SCHEME 3 ;
KEY CTRL+M, "CTRL+M"
DEFINE PAD _2nb1ewqd3 OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
KEY CTRL+Q, "CTRL+Q"
DEFINE PAD _2nb1ewqd4 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY CTRL+H, "CTRL+H"
ON PAD _2nb1ewqcx OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _2nb1ewqcy OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _2nb1ewqcz OF _MSYSMENU ACTIVATE POPUP 开课目录k
ON PAD _2nb1ewqd0 OF _MSYSMENU ACTIVATE POPUP 学生选课s
ON PAD _2nb1ewqd1 OF _MSYSMENU ACTIVATE POPUP 已选课程c
ON PAD _2nb1ewqd2 OF _MSYSMENU ACTIVATE POPUP 系统维护m
ON SELECTION PAD _2nb1ewqd3 OF _MSYSMENU ;
DO _2nb1ewqd5 ;
IN LOCFILE("学生选课管理系统\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON PAD _2nb1ewqd4 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 3 OF 文件f PROMPT "\-"
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 _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR 7 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_pgset OF 文件f PROMPT "页面设置(\<U)..." ;
MESSAGE "修改页面布局和打印机设置"
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 _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 BAR _med_cut OF 编辑e PROMPT "剪切(\<T)" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR 6 OF 编辑e PROMPT "\-"
DEFINE BAR _med_repl OF 编辑e PROMPT "替换(\<E)..." ;
KEY CTRL+L, "Ctrl+L" ;
MESSAGE "用其他文本替换指定文本"
DEFINE BAR _med_find OF 编辑e PROMPT "查找(\<F)..." ;
KEY CTRL+F, "Ctrl+F" ;
MESSAGE "搜索指定文本"
DEFINE BAR _med_slcta OF 编辑e PROMPT "全部选定(\<L)" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "选定当前窗口中的所有文本或数据项"
DEFINE BAR _med_clear OF 编辑e PROMPT "清除(\<A)" ;
MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE POPUP 开课目录k MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 开课目录k PROMPT "院系目录"
DEFINE BAR 2 OF 开课目录k PROMPT "开课目录"
DEFINE BAR 3 OF 开课目录k PROMPT "打印开课目录"
ON SELECTION BAR 1 OF 开课目录k DO FORM D:\VFP98\学生选课管理系统\院系目录表单
ON SELECTION BAR 2 OF 开课目录k DO FORM D:\VFP98\学生选课管理系统\院系开课目录
ON SELECTION BAR 3 OF 开课目录k ;
DO _2nb1ewqd6 ;
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 "选限选课"
DEFINE BAR 3 OF 学生选课s PROMPT "选选修课"
ON SELECTION BAR 1 OF 学生选课s DO FORM D:\VFP98\学生选课管理系统\选学位课
ON SELECTION BAR 2 OF 学生选课s DO FORM D:\VFP98\学生选课管理系统\选限选课
ON SELECTION BAR 3 OF 学生选课s DO FORM D:\VFP98\学生选课管理系统\选选修课
DEFINE POPUP 已选课程c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 已选课程c PROMPT "已选课程"
DEFINE BAR 2 OF 已选课程c PROMPT "统计学分"
DEFINE BAR 3 OF 已选课程c PROMPT "打印已选课程"
ON SELECTION BAR 1 OF 已选课程c DO FORM D:\VFP98\学生选课管理系统\查看已选课程
ON SELECTION BAR 2 OF 已选课程c DO FORM D:\VFP98\学生选课管理系统\统计学分
ON SELECTION BAR 3 OF 已选课程c ;
DO _2nb1ewqd7 ;
IN LOCFILE("学生选课管理系统\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
DEFINE POPUP 系统维护m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护m PROMPT "修改密码"
DEFINE BAR 2 OF 系统维护m PROMPT "添加人员"
DEFINE BAR 3 OF 系统维护m PROMPT "添加课程"
ON SELECTION BAR 1 OF 系统维护m DO FORM D:\VFP98\学生选课管理系统\密码修改
ON SELECTION BAR 2 OF 系统维护m DO FORM D:\VFP98\学生选课管理系统\添加人员
ON SELECTION BAR 3 OF 系统维护m DO FORM D:\VFP98\学生选课管理系统\添加课程
DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _helpwebtutorial OF 帮助h PROMPT "Web 教程(\<T)" ;
MESSAGE "打开 Web 教程页面"
DEFINE BAR _helpwebvfpfaq OF 帮助h PROMPT "常见问题(\<Q)" ;
MESSAGE "打开 Visual FoxPro FAQ 主页"
DEFINE BAR _helpwebvfphomepage OF 帮助h PROMPT "产品信息(\<P)" ;
MESSAGE "打开 Visual FoxPro 产品信息主页"
* *********************************************************
* *
* * _2NB1EWQD5 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 49
* * Called By: ON SELECTION PAD
* * Prompt: 退出系统(Q)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2nb1ewqd5
set procedure to D:\VFP98\学生选课管理系统\zhumenu.mpr
close database
close all
clear events
quit
* *********************************************************
* *
* * _2NB1EWQD6 ON SELECTION BAR 3 OF POPUP 开课目录k
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 33
* * Called By: ON SELECTION BAR 3 OF POPUP 开课目录k
* * Prompt: 打印开课目录
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _2nb1ewqd6
set filter to
report form d:\vfp98\学生选课管理系统\开课目录单
* *********************************************************
* *
* * _2NB1EWQD7 ON SELECTION BAR 3 OF POPUP 已选课程c
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 43
* * Called By: ON SELECTION BAR 3 OF POPUP 已选课程c
* * Prompt: 打印已选课程
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _2nb1ewqd7
set filter to
report form d:\vfp98\学生选课管理系统\已选课程单
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -