📄 zhumenu.mpr
字号:
* *********************************************************
* *
* * 10/30/06 ZHUMENU.MPR 21:24:26
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2006 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1xl19vt63 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
KEY CTRL+F, "CTRL+F"
DEFINE PAD _1xl19vt64 OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
KEY CTRL+E, "CTRL+E"
DEFINE PAD _1xl19vt65 OF _MSYSMENU PROMPT "开课目录(\<K)" COLOR SCHEME 3 ;
KEY CTRL+K, "CTRL+K"
DEFINE PAD _1xl19vt66 OF _MSYSMENU PROMPT "学生选课(\<S)" COLOR SCHEME 3 ;
KEY CTRL+S, "CTRL+S"
DEFINE PAD _1xl19vt67 OF _MSYSMENU PROMPT "已选课程(\<C)" COLOR SCHEME 3 ;
KEY CTRL+C, "CTRL+C"
DEFINE PAD _1xl19vt68 OF _MSYSMENU PROMPT "系统维护(\<M)" COLOR SCHEME 3 ;
KEY CTRL+M, "CTRL+M"
DEFINE PAD _1xl19vt69 OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
KEY CTRL+Q, "CTRL+Q"
DEFINE PAD _1xl19vt6a OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY CTRL+H, "CTRL+H"
ON PAD _1xl19vt63 OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1xl19vt64 OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _1xl19vt65 OF _MSYSMENU ACTIVATE POPUP 开课目录k
ON PAD _1xl19vt66 OF _MSYSMENU ACTIVATE POPUP 学生选课s
ON PAD _1xl19vt67 OF _MSYSMENU ACTIVATE POPUP 已选课程c
ON PAD _1xl19vt68 OF _MSYSMENU ACTIVATE POPUP 系统维护m
ON SELECTION PAD _1xl19vt69 OF _MSYSMENU ;
DO _1xl19vt6b ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON PAD _1xl19vt6a 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 4 OF 文件f PROMPT "\-"
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 _mfi_pgset OF 文件f PROMPT "页面设置(\<U)..." ;
MESSAGE "修改页面布局和打印机设置"
DEFINE BAR 8 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 开课目录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 院系目录表单
ON SELECTION BAR 2 OF 开课目录k DO FORM 院系开课目录
ON SELECTION BAR 3 OF 开课目录k ;
DO _1xl19vt6c ;
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 选学位课
ON SELECTION BAR 2 OF 学生选课s DO FORM 选限选课
ON SELECTION BAR 3 OF 学生选课s DO FORM 选选修课
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 查看已选课程
ON SELECTION BAR 2 OF 已选课程c DO FORM 统计学分
ON SELECTION BAR 3 OF 已选课程c ;
DO _1xl19vt6d ;
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 密码修改
ON SELECTION BAR 2 OF 系统维护m DO FORM 添加人员
ON SELECTION BAR 3 OF 系统维护m DO FORM 添加课程
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 的版本及版权信息"
* *********************************************************
* *
* * _1XL19VT6B ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 45
* * Called By: ON SELECTION PAD
* * Prompt: 退出系统(Q)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1xl19vt6b
set procedure to zhumenu.mpr &&指明该过程的位置
close databases &&关闭数据库
close all &&关闭所有的表和数据
clear events &&清除事件循环
quit &&退出系统
* *********************************************************
* *
* * _1XL19VT6C ON SELECTION BAR 3 OF POPUP 开课目录k
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 29
* * Called By: ON SELECTION BAR 3 OF POPUP 开课目录k
* * Prompt: 打印开课目录
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1xl19vt6c
SET FILTER TO &&指定访问当前表中记录时满足的条件
REPORT FORM 开课目录单.frx &&从开课目录单报表中输出
* *********************************************************
* *
* * _1XL19VT6D ON SELECTION BAR 3 OF POPUP 已选课程c
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 39
* * Called By: ON SELECTION BAR 3 OF POPUP 已选课程c
* * Prompt: 打印已选课程
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1xl19vt6d
SET FILTER TO &&指定访问当前表中记录时满足的条件
REPORT FORM 已选课程单.frx &&从已选课程单报表中输出
close all
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -