📄 mainmenu1.mpr
字号:
* *********************************************************
* *
* * 08/12/02 MAINMENU1.MPR 16:14:03
* *
* *********************************************************
* *
* * 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
IF !FILE("f:\work\vfp7\教务信息处理系统\教务信息.dbc")
MESSAGEBOX("打开数据库失败！")
ELSE
OPEN DATABASE "f:\work\vfp7\教务信息处理系统\教务信息.dbc"
ENDIF
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0qm0ysn6o OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q" ;
MESSAGE "可以查询学生成绩、教师和课程信息，但不能修改"
DEFINE PAD _0qm0ysn6p OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3 ;
KEY ALT+M, "ALT+M"
DEFINE PAD _0qm0ysn6q OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _0qm0ysn6r OF _MSYSMENU PROMPT "选课" COLOR SCHEME 3
DEFINE PAD _0qm0ysn6s OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _0qm0ysn6t OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3 ;
KEY F1, "F1"
DEFINE PAD _0qm0ysn6u OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E"
ON PAD _0qm0ysn6o OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _0qm0ysn6p OF _MSYSMENU ACTIVATE POPUP 修改
ON PAD _0qm0ysn6q OF _MSYSMENU ACTIVATE POPUP 统计
ON SELECTION PAD _0qm0ysn6r OF _MSYSMENU ;
DO _0qm0ysn6v ;
IN LOCFILE("F:\WORK\VFP7\教务信息处理系统\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
ON PAD _0qm0ysn6s OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _0qm0ysn6t OF _MSYSMENU ACTIVATE POPUP 帮助
ON SELECTION PAD _0qm0ysn6u OF _MSYSMENU ;
DO _0qm0ysn6w ;
IN LOCFILE("F:\WORK\VFP7\教务信息处理系统\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
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 _0qm0ysn77 ;
IN LOCFILE("F:\WORK\VFP7\教务信息处理系统\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
ON SELECTION BAR 2 OF 打印 ;
DO _0qm0ysn78 ;
IN LOCFILE("F:\WORK\VFP7\教务信息处理系统\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于..."
ON SELECTION BAR 1 OF 帮助 ;
DO _0qm0ysn7b ;
IN LOCFILE("F:\WORK\VFP7\教务信息处理系统\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
ON SELECTION POPUP 打印 ;
DO _0qm0ysn7d ;
IN LOCFILE("F:\WORK\VFP7\教务信息处理系统\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
* *********************************************************
* *
* * _0QM0YSN6V ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 22
* * Called By: ON SELECTION PAD
* * Prompt: 选课
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0qm0ysn6v
DO FORM "f:\work\vfp7\教务信息处理系统\Forms\选课.scx"
* *********************************************************
* *
* * _0QM0YSN6W ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 30
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0qm0ysn6w
tempstr=MESSAGEBOX("确定要退出吗",1+32+256,"教务信息处理系统")
IF tempstr=6
RELEASE ALL
CLEAR EVENTS
ENDIF
* *********************************************************
* *
* * _0QM0YSN77 ON SELECTION BAR 1 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 25
* * Called By: ON SELECTION BAR 1 OF POPUP 打印
* * Prompt: 课程成绩
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0qm0ysn77
REPORT FORM "f:\work\vfp7\教务信息处理系统\reports\课程成绩.frx" PREVIEW
* *********************************************************
* *
* * _0QM0YSN78 ON SELECTION BAR 2 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 26
* * Called By: ON SELECTION BAR 2 OF POPUP 打印
* * Prompt: 班级信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0qm0ysn78
REPORT FORM "f:\work\vfp7\教务信息处理系统\reports\班级信息.frx" PREVIEW
* *********************************************************
* *
* * _0QM0YSN7B ON SELECTION BAR 1 OF POPUP 帮助
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 29
* * Called By: ON SELECTION BAR 1 OF POPUP 帮助
* * Prompt: 关于...
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0qm0ysn7b
tempstr="教务信息处理系统"+CHR(13)+"版本号 2.0"
MESSAGEBOX(tempstr,0+64,"教务信息处理系统")
* *********************************************************
* *
* * _0QM0YSN7D ON SELECTION POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 24
* * Called By: ON SELECTION POPUP 打印
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0qm0ysn7d
if sys(13)="OFFLINE"
messagebox("打印机出错，请重试！")
else
messagebox("打印机准备就绪，关闭对话框准备打印！")
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -