📄 mune.mpr
字号:
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _0i20ve4yb
public hh3
do form 3_2.scx
if hh3<>" "
WAIT windows "成绩库导出成功,所导出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
WAIT windows "成绩库导出失败！......." at 100,40 timeout 1 nowait
endif
* *********************************************************
* *
* * _0I20VE4YD ON SELECTION BAR 5 OF POPUP 成绩管理c
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 37
* * Called By: ON SELECTION BAR 5 OF POPUP 成绩管理c
* * Prompt: 成绩录入
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _0i20ve4yd
nbiaozi=1
do form 3.scx
* *********************************************************
* *
* * _0I20VE4YE ON SELECTION BAR 6 OF POPUP 成绩管理c
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 38
* * Called By: ON SELECTION BAR 6 OF POPUP 成绩管理c
* * Prompt: 成绩修改
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _0i20ve4ye
nbiaozi=2
do form 3.scx
* *********************************************************
* *
* * _0I20VE4YG ON SELECTION BAR 7 OF POPUP 成绩管理c
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 39
* * Called By: ON SELECTION BAR 7 OF POPUP 成绩管理c
* * Prompt: 成绩查询
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _0i20ve4yg
nbiaozi=3
do form 3.scx
* *********************************************************
* *
* * _0I20VE4YH ON SELECTION BAR 9 OF POPUP 成绩管理c
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 41
* * Called By: ON SELECTION BAR 9 OF POPUP 成绩管理c
* * Prompt: 成绩打印输出
* * Snippet: 22
* *
* *********************************************************
*
PROCEDURE _0i20ve4yh
public kk3
do form 3_6.scx
if kk3<>" "
WAIT windows "成绩库输出成功,所输出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
WAIT windows "成绩库导出失败！......." at 100,40 timeout 1 nowait
endif
* *********************************************************
* *
* * _0I20VE4YL ON SELECTION BAR 2 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 45
* * Called By: ON SELECTION BAR 2 OF POPUP 查询统计a
* * Prompt: 单科本班名次
* * Snippet: 23
* *
* *********************************************************
*
PROCEDURE _0i20ve4yl
mbiaozi=1
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YM ON SELECTION BAR 3 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 46
* * Called By: ON SELECTION BAR 3 OF POPUP 查询统计a
* * Prompt: 平均分本班名次
* * Snippet: 24
* *
* *********************************************************
*
PROCEDURE _0i20ve4ym
mbiaozi=2
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YO ON SELECTION BAR 4 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 47
* * Called By: ON SELECTION BAR 4 OF POPUP 查询统计a
* * Prompt: 总分本班名次
* * Snippet: 25
* *
* *********************************************************
*
PROCEDURE _0i20ve4yo
mbiaozi=3
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YQ ON SELECTION BAR 5 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 48
* * Called By: ON SELECTION BAR 5 OF POPUP 查询统计a
* * Prompt: 同专业平均分名次
* * Snippet: 26
* *
* *********************************************************
*
PROCEDURE _0i20ve4yq
mbiaozi=4
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YR ON SELECTION BAR 6 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 49
* * Called By: ON SELECTION BAR 6 OF POPUP 查询统计a
* * Prompt: 同专业总分名次
* * Snippet: 27
* *
* *********************************************************
*
PROCEDURE _0i20ve4yr
mbiaozi=5
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YT ON SELECTION BAR 8 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 51
* * Called By: ON SELECTION BAR 8 OF POPUP 查询统计a
* * Prompt: 班级学生补考名单
* * Snippet: 28
* *
* *********************************************************
*
PROCEDURE _0i20ve4yt
mbiaozi=6
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YU ON SELECTION BAR 10 OF POPUP 查询统计a
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 53
* * Called By: ON SELECTION BAR 10 OF POPUP 查询统计a
* * Prompt: 学生个人资料查询
* * Snippet: 29
* *
* *********************************************************
*
PROCEDURE _0i20ve4yu
mbiaozi=7
do form 4.scx
* *********************************************************
* *
* * _0I20VE4YY ON SELECTION BAR 2 OF POPUP 数据处理s
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 57
* * Called By: ON SELECTION BAR 2 OF POPUP 数据处理s
* * Prompt: 数据库初始化
* * Snippet: 30
* *
* *********************************************************
*
PROCEDURE _0i20ve4yy
SET safety off
mm=messagebox("是否确定初始化数据库，这一操作将清空本系统数据库中的一切数据！强烈要求用户不要采用，除非用户想建立全新的数据库！",1+48,"警告")
IF mm==1
WAIT windows "正在初始化数据库，请等待..........." at 100,40 timeout 1
sele 2
use zhuanye EXCLUSIVE
sele 1
use xi EXCLUSIVE
go top
do while(.not.eof())
ximing=alltrim(系)
SELE zhuanye
GO top
LOCATE for 系=ximing
DO while(.not.eof())
IF(专业<>" ")
chdir 数据库
Delete database ximing+alltrim(专业) deletetables
chdir ..
ENDIF
CONTINUE
ENDDO
sele xi
skip
enddo
CLOSE tables all
USE xi EXCLUSIVE
Delete all
PACK
USE
USE zhuanye EXCLUSIVE
Delete all
PACK
USE
USE 系专业 EXCLUSIVE
Delete all
PACK
USE
USE chengjiku EXCLUSIVE
Delete all
PACK
USE
WAIT windows "数据库初始化完毕！......." at 100,40 timeout 1 nowait
ENDIF
* *********************************************************
* *
* * _0I20VE4YZ ON SELECTION BAR 3 OF POPUP 数据处理s
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 58
* * Called By: ON SELECTION BAR 3 OF POPUP 数据处理s
* * Prompt: 数据整理
* * Snippet: 31
* *
* *********************************************************
*
PROCEDURE _0i20ve4yz
wait windows "正在优化数据库，请等待..........." at 100,40 timeout 2
set safety off
xizhuanyebei=""
banbei=""
dangbei=""
qibei=""
sele 1
use 系专业 EXCLUSIVE
chdir 数据库
sele * from 系专业 where 档案=.t. into table suoyindangan
chdir ..
use
sele 1
use chengjiku EXCLUSIVE
chdir 数据库
sele * from chengjiku where 学期<>" " into table suoyinchengji
use
sele 1
use suoyindangan EXCLUSIVE
index on 系 to xisuoyin
go top
do while(.not.eof())
banbei=alltrim(班级)
sele 2
use &banbei EXCLUSIVE
index on 学号 to tempsuoyin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -