kuai.mpr
来自「学籍管理系统源码」· MPR 代码 · 共 347 行 · 第 1/2 页
MPR
347 行
go top
do while(.not.eof())
banbei=alltrim(班级)
sele 2
use &banbei EXCLUSIVE
index on 学号 to tempsuoyin
use
delete file tempsuoyin.idx
sele 1
skip
enddo
use
delete file xisuoyin.idx
xizhuanyebei=""
sele 1
use suoyinchengji EXCLUSIVE
index on 系 to xisuoyin
go top
do while(.not.eof())
banbeiqibei=alltrim(班级)+alltrim(学期)
sele 2
use &banbeiqibei EXCLUSIVE
index on 学号 to tempsuoyin
use
delete file tempsuoyin.idx
sele 1
skip
enddo
use
close tables all
delete file xisuoyin.idx
delete file suoyindangan.dbf
delete file suoyinchengji.dbf
chdir ..
wait windows "数据库优化完毕！..........." at 100,40 timeout 1 nowait
* *********************************************************
* *
* * _0HM1BTKSV ON SELECTION BAR 10 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 24
* * Called By: ON SELECTION BAR 10 OF POPUP 快捷菜单
* * Prompt: 退出系统
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0hm1btksv
close all
_screen.activeform.release
* *********************************************************
* *
* * _0HM1BTKSX ON SELECTION BAR 2 OF POPUP 查询统计
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 13
* * Called By: ON SELECTION BAR 2 OF POPUP 查询统计
* * Prompt: 单科本班名次
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0hm1btksx
mbiaozi=1
do form 4.scx
* *********************************************************
* *
* * _0HM1BTKSZ ON SELECTION BAR 3 OF POPUP 查询统计
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 14
* * Called By: ON SELECTION BAR 3 OF POPUP 查询统计
* * Prompt: 平均分本班名次
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0hm1btksz
mbiaozi=2
do form 4.scx
* *********************************************************
* *
* * _0HM1BTKT1 ON SELECTION BAR 4 OF POPUP 查询统计
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 15
* * Called By: ON SELECTION BAR 4 OF POPUP 查询统计
* * Prompt: 总分本班名次
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0hm1btkt1
mbiaozi=3
do form 4.scx
* *********************************************************
* *
* * _0HM1BTKT2 ON SELECTION BAR 5 OF POPUP 查询统计
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 16
* * Called By: ON SELECTION BAR 5 OF POPUP 查询统计
* * Prompt: 班级学生补考名单
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0hm1btkt2
mbiaozi=6
do form 4.scx
* *********************************************************
* *
* * _0HM1BTKT5 ON SELECTION BAR 2 OF POPUP 输出打印
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 20
* * Called By: ON SELECTION BAR 2 OF POPUP 输出打印
* * Prompt: 档案打印输出
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0hm1btkt5
public kk
do form 2_6.scx
if kk<>" "
WAIT windows "档案库输出成功,所输出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
WAIT windows "档案库输出失败！......." at 100,40 timeout 1
endif
* *********************************************************
* *
* * _0HM1BTKT7 ON SELECTION BAR 3 OF POPUP 输出打印
* *
* * Procedure Origin:
* *
* * From Menu: KUAI.MPR, Record: 21
* * Called By: ON SELECTION BAR 3 OF POPUP 输出打印
* * Prompt: 成绩打印输出
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _0hm1btkt7
public kk3
do form 3_6.scx
if kk3<>" "
WAIT windows "成绩库输出成功,所输出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
WAIT windows "成绩库导出失败！......." at 100,40 timeout 1
endif
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?