📄
字号:
* *********************************************************
* *
* * 11/29/01 菜单.MPR 21:13:15
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2001 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 设置代码
* *
* *********************************************************
*
public enable_change
set talk off
set debug off
if !file("c:\lcy-vf\教务管理.dbc")
messagebox("初始化失败，请重新安装教务管理系统！")
else
open c:\lcy-vf\教务管理.dbc
use 用户.dbf in 0
if 用户级别=1
enable_change=.f.
else
enable_change=.t.
endif
endif
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0jg19hfhx OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
KEY ALT+Q, ""
DEFINE PAD _0jg19hfhz OF _MSYSMENU PROMPT "维护(\<W)" COLOR SCHEME 3 ;
KEY ALT+W, ""
DEFINE PAD _0jg19hfi0 OF _MSYSMENU PROMPT "统计(\<T)" COLOR SCHEME 3 ;
KEY ALT+T, ""
DEFINE PAD _0jg19hfi1 OF _MSYSMENU PROMPT "选课(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, ""
DEFINE PAD _0jg19hfi2 OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
KEY ALT+P, ""
DEFINE PAD _0jg19hfi3 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
DEFINE PAD _0jg19hfi4 OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
KEY ALT+X, ""
ON PAD _0jg19hfhx OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _0jg19hfhz OF _MSYSMENU ACTIVATE POPUP 维护w
ON PAD _0jg19hfi0 OF _MSYSMENU ACTIVATE POPUP 统计t
ON SELECTION PAD _0jg19hfi1 OF _MSYSMENU do form c:\lcy-vf\学生选课.scx
ON PAD _0jg19hfi2 OF _MSYSMENU ACTIVATE POPUP 打印p
ON PAD _0jg19hfi3 OF _MSYSMENU ACTIVATE POPUP 帮助h
ON SELECTION PAD _0jg19hfi4 OF _MSYSMENU ;
DO _0jg19hfi8 ;
IN LOCFILE("..\..\LCY-VF\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "学生成绩"
DEFINE BAR 2 OF 查询q PROMPT "\-"
DEFINE BAR 3 OF 查询q PROMPT "个人信息"
DEFINE BAR 4 OF 查询q PROMPT "教师信息"
DEFINE BAR 5 OF 查询q PROMPT "课程信息"
ON SELECTION BAR 1 OF 查询q do form c:\lcy-vf\学生成绩.scx
ON SELECTION BAR 3 OF 查询q do form c:\lcy-vf\个人信息.scx
ON SELECTION BAR 4 OF 查询q do form c:\lcy-vf\教师信息.scx
ON SELECTION BAR 5 OF 查询q do form c:\lcy-vf\课程信息.scx
DEFINE POPUP 维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 维护w PROMPT "修改学生信息"
DEFINE BAR 2 OF 维护w PROMPT "修改课程信息"
DEFINE BAR 3 OF 维护w PROMPT "修改成绩信息"
DEFINE BAR 4 OF 维护w PROMPT "修改班级信息"
DEFINE BAR 5 OF 维护w PROMPT "修改系信息"
ON SELECTION BAR 1 OF 维护w do form c:\lcy-vf\修改学生信息.scx
ON SELECTION BAR 2 OF 维护w do form c:\lcy-vf\修改课程信息.scx
ON SELECTION BAR 3 OF 维护w do form c:\lcy-vf\修改成绩信息.scx
ON SELECTION BAR 4 OF 维护w do form c:\lcy-vf\习惯班级信息.scx
ON SELECTION BAR 5 OF 维护w do form c:\lcy-vf\修改系信息.scx
DEFINE POPUP 统计t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计t PROMPT "个人成绩统计"
DEFINE BAR 2 OF 统计t PROMPT "课程统计"
DEFINE BAR 3 OF 统计t PROMPT "班级统计"
ON SELECTION BAR 1 OF 统计t do form c:\lcy-vf\个人成绩统计.scx
ON SELECTION BAR 2 OF 统计t do form c:\lcy-vf\课程统计.scx
ON SELECTION BAR 3 OF 统计t do form c:\lcy-vf\课程统计.scx
DEFINE POPUP 打印p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印p PROMPT "打印学生课表"
DEFINE BAR 2 OF 打印p PROMPT "打印班级信息表"
ON SELECTION BAR 1 OF 打印p do form c:\lcy-vf\打印学生课表.scx
ON SELECTION BAR 2 OF 打印p do form c:\lcy-vf\打印班级信息表.scx
DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题"
DEFINE BAR 2 OF 帮助h PROMPT "关于教务管理系统"
ON SELECTION BAR 2 OF 帮助h ;
DO _0jg19hfir ;
IN LOCFILE("..\..\LCY-VF\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION POPUP 打印p ;
DO _0jg19hfiu ;
IN LOCFILE("..\..\LCY-VF\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
* *********************************************************
* *
* * _0JG19HFI8 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 32
* * Called By: ON SELECTION PAD
* * Prompt: 退出(X)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0jg19hfi8
result=messagebox("真的要退出吗？",4+32+256,"信息")
if result=6
result=messagebox("确实要退出吗？",4+32+256,"确认")
if result=6
result=messagebox("一定要退出吗？",4+32+256,"再确认")
if result=6
release all
clear events
endif
endif
endif
* *********************************************************
* *
* * _0JG19HFIR ON SELECTION BAR 2 OF POPUP 帮助h
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 31
* * Called By: ON SELECTION BAR 2 OF POPUP 帮助h
* * Prompt: 关于教务管理系统
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0jg19hfir
ctitle="教务管理系统"
cmessage="教务管理系统"+ch(13)+"版本号 1.0"+ch(13)+"版权所有 LCY Studio Works"
messagebox(cmessage,0+64+0,ctitle)
* *********************************************************
* *
* * _0JG19HFIU ON SELECTION POPUP 打印p
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 25
* * Called By: ON SELECTION POPUP 打印p
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0jg19hfiu
if sys(13)="OFFLINE"
messagebox("不能进行打印，请重试！")
else
messagebox("打印机设置完毕，请开始打印！")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -