📄 pzgl.mpr
字号:
if file ("kdk2.dbf")
dele file kdk.dbf
copy file kdk2.dbf to kdk.dbf
endi
do form sdzk.scx
* *********************************************************
* *
* * _1KD0NJOLY ON SELECTION BAR 3 OF POPUP 组考z
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 27
* * Called By: ON SELECTION BAR 3 OF POPUP 组考z
* * Prompt: 初三会考组考
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1kd0njoly
clea all data
use cjk
if len(allt(ra))=0
Messagebox("将要随机生成考生顺序！"+CHR(13)+"可能需要较长时间,请确认。",0x130,"提示")
do whil .not.eof()
repl ra with str(int(100*rand()),2)
skip
endd
if file("aaa.dbf")
dele file aaa.dbf
endi
copy stru to aaa
use aaa
appe from cjk for ra=" 0"
appe from cjk for ra=" 8"
appe from cjk for ra=" 5"
appe from cjk for ra=" 9"
appe from cjk for ra=" 7"
appe from cjk for ra=" 3"
appe from cjk for ra=" 6"
appe from cjk for ra=" 2"
appe from cjk for ra=" 4"
appe from cjk for ra=" 1"
i=10
do whil i<100
appe from cjk for ra=str(i,2)
i=i+1
endd
repl all hsdm with subs(ksh,3,5)
dele file cjk.dbf
sort to cjk on kd,ra
use
dele file aaa.dbf
Messagebox("已随机生成考生顺序！"+CHR(13)+"可以接着编排考场……",0x130,"提示")
endi
if file ("kdk3.dbf")
dele file kdk.dbf
copy file kdk3.dbf to kdk.dbf
endi
do form cszk.scx
* *********************************************************
* *
* * _1KD0NJOLZ ON SELECTION BAR 1 OF POPUP 成绩c
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 30
* * Called By: ON SELECTION BAR 1 OF POPUP 成绩c
* * Prompt: 初二地理生物成绩录入
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1kd0njolz
set talk off
clea all data
use sys_p.txt
hs=allt(pa)+"sdcjk.dbf"
use &hs
do form fsly2.scx
retu
* *********************************************************
* *
* * _1KD0NJOM0 ON SELECTION BAR 3 OF POPUP 成绩c
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 33
* * Called By: ON SELECTION BAR 3 OF POPUP 成绩c
* * Prompt: 初三单科A组成绩录入
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1kd0njom0
set talk off
clea all data
use sys_p.txt
hs=allt(pa)+"cjk.dbf"
use &hs
do form dkcjlyA.scx
retu
* *********************************************************
* *
* * _1KD0NJOM1 ON SELECTION BAR 4 OF POPUP 成绩c
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 34
* * Called By: ON SELECTION BAR 4 OF POPUP 成绩c
* * Prompt: 初三单科B组成绩录入
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1kd0njom1
set talk off
clea all data
use sys_p.txt
hs=allt(pa)+"hscjk.dbf"
use &hs
do form dkcjlyB.scx
retu
* *********************************************************
* *
* * _1KD0NJOM2 ON SELECTION BAR 6 OF POPUP 成绩c
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 37
* * Called By: ON SELECTION BAR 6 OF POPUP 成绩c
* * Prompt: 初三七科A组成绩录入
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _1kd0njom2
set talk off
clea all data
use sys_p.txt
hs=allt(pa)+"cjk.dbf"
use &hs
do form fsly.scx
retu
* *********************************************************
* *
* * _1KD0NJOM3 ON SELECTION BAR 7 OF POPUP 成绩c
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 38
* * Called By: ON SELECTION BAR 7 OF POPUP 成绩c
* * Prompt: 初三七科B组成绩录入
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _1kd0njom3
set talk off
clea all data
use sys_p.txt
hs=allt(pa)+"hscjk.dbf"
use &hs
do form fsly4.scx
retu
* *********************************************************
* *
* * _1KD0NJOM4 ON SELECTION BAR 11 OF POPUP 成绩c
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 44
* * Called By: ON SELECTION BAR 11 OF POPUP 成绩c
* * Prompt: 初三A、B组成绩比对
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _1kd0njom4
set talk off
close databases all
use sys_p.txt
hs1=allt(pa)+"cjk.dbf"
hs2=allt(pa)+"hscjk.dbf"
sele B
use &hs2
repl all zf with cj01+cj02+cj03+cj04+cj05+cj06+cj07+cj08+cj09+cj10+jf
go top
sele A
use &hs1
repl all zf with cj01+cj02+cj03+cj04+cj05+cj06+cj07+cj08+cj09+cj10+jf
go top
do form fsdb.scx
retu
* *********************************************************
* *
* * _1KD0NJOM5 ON SELECTION BAR 5 OF POPUP 系统s
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 84
* * Called By: ON SELECTION BAR 5 OF POPUP 系统s
* * Prompt: 重新建立索引
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _1kd0njom5
close databases all
if file("cjkksh.idx")
dele file cjkksh.idx
endi
if file("cjkkh.idx")
dele file cjkkh.idx
endi
if file("sdksh.idx")
dele file sdksh.idx
endi
if file("sdkh.idx")
dele file sdkh.idx
endi
use cjk excl
inde to cjkksh on ksh
inde to cjkkh on kh
use sdcjk excl
inde to sdksh on ksh
inde to sdkh on kh
use
Messagebox("已重新建立索引文件!",0x030,"提示")
retu
* *********************************************************
* *
* * _1KD0NJOM6 ON SELECTION BAR 7 OF POPUP 系统s
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 87
* * Called By: ON SELECTION BAR 7 OF POPUP 系统s
* * Prompt: 学校设置
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _1kd0njom6
close databases all
sele C
use zxdmk excl
pack
use
do form dhly.scx
* *********************************************************
* *
* * _1KD0NJOM7 ON SELECTION BAR 8 OF POPUP 系统s
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 88
* * Called By: ON SELECTION BAR 8 OF POPUP 系统s
* * Prompt: 考点设置
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _1kd0njom7
close databases all
sele C
use kdk excl
pack
use
if file("kdk2.dbf")
dele file kdk2.dbf
endi
if file("kdk3.dbf")
dele file kdk3.dbf
endi
do form kdly.scx
* *********************************************************
* *
* * _1KD0NJOM8 ON SELECTION BAR 9 OF POPUP 系统s
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 89
* * Called By: ON SELECTION BAR 9 OF POPUP 系统s
* * Prompt: 招生计划
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _1kd0njom8
close databases all
sele C
use lqxxdmk excl
pack
if file("lqk1.dbf")
dele file lqk1.dbf
endi
copy to lqk1.dbf for xz="1"
if file("lqk2.dbf")
dele file lqk2.dbf
endi
copy to lqk2 for xz="2"
if file("lqk3.dbf")
dele file lqk3.dbf
endi
copy to lqk3 for xz="3"
if file("lqk4.dbf")
dele file lqk4.dbf
endi
copy to lqk4 for xz="4"
if file("lqk5.dbf")
dele file lqk5.dbf
endi
copy to lqk5 for xz="5"
use
do form zsxxly.scx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -