📄 mainmenu.mpr
字号:
use in 学生档案
if rec=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="学生档案.frx"
do form test
endif
* *********************************************************
* *
* * _12H0K5DJK ON SELECTION BAR 2 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 52
* * Called By: ON SELECTION BAR 2 OF POPUP 报表打印p
* * Prompt: 学生基本情况表预览
* * Snippet: 28
* *
* *********************************************************
*
PROCEDURE _12h0k5djk
use sys(5)+curdir()+"数据\学生管理!学生档案"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="学生基本情况表.frx"
do form test
endif
use in 学生档案
* *********************************************************
* *
* * _12H0K5DJL ON SELECTION BAR 3 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 53
* * Called By: ON SELECTION BAR 3 OF POPUP 报表打印p
* * Prompt: 花名册预览
* * Snippet: 29
* *
* *********************************************************
*
PROCEDURE _12h0k5djl
use sys(5)+curdir()+"数据\学生管理!学生档案"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="花名册.frx"
do form test
endif
use in 学生档案
* *********************************************************
* *
* * _12H0K5DJM ON SELECTION BAR 4 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 54
* * Called By: ON SELECTION BAR 4 OF POPUP 报表打印p
* * Prompt: 考试证预览
* * Snippet: 30
* *
* *********************************************************
*
PROCEDURE _12h0k5djm
use sys(5)+curdir()+"数据\学生管理!学生档案"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="考试证.frx"
do form test
endif
use in 学生档案
* *********************************************************
* *
* * _12H0K5DJN ON SELECTION BAR 5 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 55
* * Called By: ON SELECTION BAR 5 OF POPUP 报表打印p
* * Prompt: 成绩单预览
* * Snippet: 31
* *
* *********************************************************
*
PROCEDURE _12h0k5djn
use sys(5)+curdir()+"数据\学生管理!学生档案"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="成绩单.frx"
do form test
endif
use in 学生档案
* *********************************************************
* *
* * _12H0K5DJO ON SELECTION BAR 6 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 56
* * Called By: ON SELECTION BAR 6 OF POPUP 报表打印p
* * Prompt: 任课教师一览表预览
* * Snippet: 32
* *
* *********************************************************
*
PROCEDURE _12h0k5djo
use sys(5)+curdir()+"数据\学生管理!任课教师一览表"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="任课教师一览表.frx"
do form test
endif
use in 任课教师一览表
* *********************************************************
* *
* * _12H0K5DJQ ON SELECTION BAR 7 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 57
* * Called By: ON SELECTION BAR 7 OF POPUP 报表打印p
* * Prompt: 课程表预览
* * Snippet: 33
* *
* *********************************************************
*
PROCEDURE _12h0k5djq
use sys(5)+curdir()+"数据\学生管理!课程表"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="课程表.frx"
do form test
endif
use in 课程表
* *********************************************************
* *
* * _12H0K5DJR ON SELECTION BAR 8 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 58
* * Called By: ON SELECTION BAR 8 OF POPUP 报表打印p
* * Prompt: 课程设置预览
* * Snippet: 34
* *
* *********************************************************
*
PROCEDURE _12h0k5djr
use sys(5)+curdir()+"数据\学生管理!课程设置"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="课程设置.frx"
do form test
endif
use in 课程设置
* *********************************************************
* *
* * _12H0K5DJS ON SELECTION BAR 9 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 59
* * Called By: ON SELECTION BAR 9 OF POPUP 报表打印p
* * Prompt: 教室情况列表预览
* * Snippet: 35
* *
* *********************************************************
*
PROCEDURE _12h0k5djs
use sys(5)+curdir()+"数据\学生管理!教室情况列表"
if reccount()=0
messagebox("没有数据存在，无法预览！",64+0,"打印预览")
else
gcReport="教室情况列表.frx"
do form test
endif
use in 教室情况列表
* *********************************************************
* *
* * _12H0K5DJU ON SELECTION BAR 12 OF POPUP 报表打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 63
* * Called By: ON SELECTION BAR 12 OF POPUP 报表打印p
* * Prompt: 打印报表(P)
* * Snippet: 36
* *
* *********************************************************
*
PROCEDURE _12h0k5dju
do form print.scx
* *********************************************************
* *
* * _12H0K5DJW ON SELECTION BAR 1 OF POPUP 系统帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 66
* * Called By: ON SELECTION BAR 1 OF POPUP 系统帮助h
* * Prompt: 帮助主题(H)
* * Snippet: 37
* *
* *********************************************************
*
PROCEDURE _12h0k5djw
if !file(allt(hlp))
if messagebox("找不到帮助文件，自行定位一下吗？",32+4,"学生管理系统")=6
hh=getfile("chm","","确定",0,"定位")
if upper(allt(justext(hh)))="CHM"
set help to allt(hh)
help
endif
endif
else
help
endif
* *********************************************************
* *
* * _12H0K5DJX ON SELECTION BAR 2 OF POPUP 系统帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 67
* * Called By: ON SELECTION BAR 2 OF POPUP 系统帮助h
* * Prompt: 每日一贴(E)
* * Snippet: 38
* *
* *********************************************************
*
PROCEDURE _12h0k5djx
do form everyday
* *********************************************************
* *
* * _12H0K5DJY ON SELECTION BAR 3 OF POPUP 系统帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 68
* * Called By: ON SELECTION BAR 3 OF POPUP 系统帮助h
* * Prompt: 关于 学生管理系统(A)
* * Snippet: 39
* *
* *********************************************************
*
PROCEDURE _12h0k5djy
do form about
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -