📄 mainmenu.mpr
字号:
* *********************************************************
* *
* * 08/12/02 MAINMENU.MPR 16:15:57
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (C) 2002 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This PROGRAM was automatically generated BY GENMENU.
* *
* *********************************************************
* *********************************************************
* *
* * Setup Code
* *
* *********************************************************
*
SET TALK OFF
SET DEBUG OFF
SET DELETED ON
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0qm0yv30y OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q" ;
MESSAGE "可以查询学生成绩、教师和课程信息，但不能修改"
DEFINE PAD _0qm0yv30z OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3 ;
KEY ALT+M, "ALT+M"
DEFINE PAD _0qm0yv310 OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _0qm0yv311 OF _MSYSMENU PROMPT "选课" COLOR SCHEME 3
DEFINE PAD _0qm0yv312 OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _0qm0yv313 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3 ;
KEY F1, "F1"
DEFINE PAD _0qm0yv314 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E"
ON PAD _0qm0yv30y OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _0qm0yv30z OF _MSYSMENU ACTIVATE POPUP 修改
ON PAD _0qm0yv310 OF _MSYSMENU ACTIVATE POPUP 统计
ON SELECTION PAD _0qm0yv311 OF _MSYSMENU ;
DO _0qm0yv315 ;
IN LOCFILE("教务信息处理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON PAD _0qm0yv312 OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _0qm0yv313 OF _MSYSMENU ACTIVATE POPUP 帮助
ON SELECTION PAD _0qm0yv314 OF _MSYSMENU ;
DO _0qm0yv316 ;
IN LOCFILE("教务信息处理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "个人信息"
DEFINE BAR 2 OF 查询 PROMPT "教师信息"
DEFINE BAR 3 OF 查询 PROMPT "课程信息"
DEFINE BAR 4 OF 查询 PROMPT "\-"
DEFINE BAR 5 OF 查询 PROMPT "学生成绩"
ON SELECTION BAR 1 OF 查询 do form "f:\work\vfp7\教务信息处理系统\Forms\个人信息.scx"
ON SELECTION BAR 2 OF 查询 do form "f:\work\vfp7\教务信息处理系统\Forms\教师信息.scx"
ON SELECTION BAR 3 OF 查询 do form "f:\work\vfp7\教务信息处理系统\Forms\课程信息.scx"
ON SELECTION BAR 5 OF 查询 do form "f:\work\vfp7\教务信息处理系统\Forms\学生成绩.scx"
DEFINE POPUP 修改 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改 PROMPT "个人信息"
DEFINE BAR 2 OF 修改 PROMPT "教师信息"
DEFINE BAR 3 OF 修改 PROMPT "班级信息"
DEFINE BAR 4 OF 修改 PROMPT "系信息"
DEFINE BAR 5 OF 修改 PROMPT "课程信息"
DEFINE BAR 6 OF 修改 PROMPT "成绩信息"
ON SELECTION BAR 1 OF 修改 do form "f:\work\vfp7\教务信息处理系统\Forms\修改个人信息.scx"
ON SELECTION BAR 2 OF 修改 do form "f:\work\vfp7\教务信息处理系统\Forms\修改教师信息.scx"
ON SELECTION BAR 3 OF 修改 do form "f:\work\vfp7\教务信息处理系统\Forms\修改班级信息.scx"
ON SELECTION BAR 4 OF 修改 do form "f:\work\vfp7\教务信息处理系统\Forms\修改系信息.scx"
ON SELECTION BAR 5 OF 修改 do form "f:\work\vfp7\教务信息处理系统\Forms\修改课程信息.scx"
ON SELECTION BAR 6 OF 修改 do form "f:\work\vfp7\教务信息处理系统\Forms\修改成绩信息.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 "f:\work\vfp7\教务信息处理系统\Forms\统计个人成绩.scx"
ON SELECTION BAR 2 OF 统计 do form "f:\work\vfp7\教务信息处理系统\Forms\统计课程.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 _0qm0yv31g ;
IN LOCFILE("教务信息处理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF 打印 ;
DO _0qm0yv31h ;
IN LOCFILE("教务信息处理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于..."
ON SELECTION BAR 1 OF 帮助 ;
DO _0qm0yv31j ;
IN LOCFILE("教务信息处理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION POPUP 打印 ;
DO _0qm0yv31m ;
IN LOCFILE("教务信息处理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
* *********************************************************
* *
* * _0QM0YV315 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 22
* * Called By: ON SELECTION PAD
* * Prompt: 选课
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0qm0yv315
DO FORM "f:\work\vfp7\教务信息处理系统\Forms\选课.scx"
* *********************************************************
* *
* * _0QM0YV316 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 30
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0qm0yv316
tempstr=MESSAGEBOX("确定要退出吗",1+32+256,"教务信息处理系统")
IF tempstr=6
RELEASE ALL
CLEAR EVENTS
ENDIF
* *********************************************************
* *
* * _0QM0YV31G ON SELECTION BAR 1 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 25
* * Called By: ON SELECTION BAR 1 OF POPUP 打印
* * Prompt: 课程成绩
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0qm0yv31g
REPORT FORM "f:\work\vfp7\教务信息处理系统\reports\课程成绩.frx" PREVIEW
* *********************************************************
* *
* * _0QM0YV31H ON SELECTION BAR 2 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 26
* * Called By: ON SELECTION BAR 2 OF POPUP 打印
* * Prompt: 班级信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0qm0yv31h
REPORT FORM "f:\work\vfp7\教务信息处理系统\reports\班级信息.frx" PREVIEW
* *********************************************************
* *
* * _0QM0YV31J ON SELECTION BAR 1 OF POPUP 帮助
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 29
* * Called By: ON SELECTION BAR 1 OF POPUP 帮助
* * Prompt: 关于...
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0qm0yv31j
tempstr="教务信息处理系统"+CHR(13)+"版本号 2.0"
MESSAGEBOX(tempstr,0+64,"教务信息处理系统")
* *********************************************************
* *
* * _0QM0YV31M ON SELECTION POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 24
* * Called By: ON SELECTION POPUP 打印
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0qm0yv31m
if sys(13)="OFFLINE"
messagebox("打印机出错，请重试！")
else
messagebox("打印机准备就绪，关闭对话框准备打印！")
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -