📄 菜单1.mpr
字号:
* *********************************************************
* *
* * 12/12/03 菜单1.MPR 12:30:07
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1470qsnna OF _MSYSMENU PROMPT "系统介绍" COLOR SCHEME 3
DEFINE PAD _1470qsnnb OF _MSYSMENU PROMPT "系统主页" COLOR SCHEME 3
DEFINE PAD _1470qsnnc OF _MSYSMENU PROMPT "系统登陆" COLOR SCHEME 3
DEFINE PAD _1470qsnnd OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _1470qsnne OF _MSYSMENU PROMPT "数据浏览" COLOR SCHEME 3
DEFINE PAD _1470qsnnf OF _MSYSMENU PROMPT "数据查询" COLOR SCHEME 3
DEFINE PAD _1470qsnng OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _1470qsnnh OF _MSYSMENU PROMPT "成绩统计" COLOR SCHEME 3
DEFINE PAD _1470qsnni OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _1470qsnna OF _MSYSMENU ACTIVATE POPUP 系统介绍
ON PAD _1470qsnnb OF _MSYSMENU ACTIVATE POPUP 系统主页
ON PAD _1470qsnnc OF _MSYSMENU ACTIVATE POPUP _1460rnvzg
ON PAD _1470qsnnd OF _MSYSMENU ACTIVATE POPUP 数据维护
ON PAD _1470qsnne OF _MSYSMENU ACTIVATE POPUP 数据浏览
ON PAD _1470qsnnf OF _MSYSMENU ACTIVATE POPUP 数据查询
ON PAD _1470qsnng OF _MSYSMENU ACTIVATE POPUP 报表打印
ON PAD _1470qsnni OF _MSYSMENU ACTIVATE POPUP 退出系统
DEFINE POPUP 系统介绍 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统介绍 PROMPT "系统介绍"
ON SELECTION BAR 1 OF 系统介绍 do form 系统介绍.scx
DEFINE POPUP 系统主页 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统主页 PROMPT "系统主页"
ON SELECTION BAR 1 OF 系统主页 do form 系统主页.scx
DEFINE POPUP _1460rnvzg MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1460rnvzg PROMPT "系统登陆"
ON SELECTION BAR 1 OF _1460rnvzg do form 系统登陆.scx
DEFINE POPUP 数据维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据维护 PROMPT "数据维护"
DEFINE BAR 2 OF 数据维护 PROMPT "学生档案"
DEFINE BAR 3 OF 数据维护 PROMPT "教学计划"
ON SELECTION BAR 1 OF 数据维护 do form 数据维护.scx
ON SELECTION BAR 2 OF 数据维护 do form 学生档案.scx
ON SELECTION BAR 3 OF 数据维护 do form 教学计划.scx
DEFINE POPUP 数据浏览 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据浏览 PROMPT "学生档案浏览"
DEFINE BAR 2 OF 数据浏览 PROMPT "学生信息浏览"
DEFINE BAR 3 OF 数据浏览 PROMPT "教学计划浏览"
ON SELECTION BAR 1 OF 数据浏览 do form 学生档案浏览.scx
ON SELECTION BAR 2 OF 数据浏览 do form 学生信息浏览.scx
ON SELECTION BAR 3 OF 数据浏览 do form 教学计划浏览.scx
DEFINE POPUP 数据查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询 PROMPT "分类查询"
DEFINE BAR 2 OF 数据查询 PROMPT "单科成绩查询"
ON SELECTION BAR 1 OF 数据查询 do form 分类查询.scx
ON SELECTION BAR 2 OF 数据查询 do form 单科成绩查询.scx
DEFINE POPUP 报表打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表打印 PROMPT "打印学生报表"
DEFINE BAR 2 OF 报表打印 PROMPT "打印课程报表"
DEFINE BAR 3 OF 报表打印 PROMPT "打印学生信息报表"
ON SELECTION BAR 1 OF 报表打印 report form student
ON SELECTION BAR 2 OF 报表打印 report form course
ON SELECTION BAR 3 OF 报表打印 report form student和score
DEFINE POPUP 退出系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统 PROMPT "退出本系统"
DEFINE BAR 2 OF 退出系统 PROMPT "退出foxpro"
ON SELECTION BAR 1 OF 退出系统 ;
DO _1470qsnnp ;
IN LOCFILE("大作业\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 退出系统 do form 退出系统.scx
* *********************************************************
* *
* * _1470QSNNP ON SELECTION BAR 1 OF POPUP 退出系统
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 35
* * Called By: ON SELECTION BAR 1 OF POPUP 退出系统
* * Prompt: 退出本系统
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1470qsnnp
close data
set sysmenu to defa
close all
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -