📄 pzgl.mpr
字号:
* *********************************************************
* *
* * 07/13/05 PZGL.MPR 10:59:09
* *
* *********************************************************
* *
* * Jiancheng.Chen
* *
* * 版权所有 (C) 2005 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1kd0njolm OF _MSYSMENU PROMPT "报 名 \<B" COLOR SCHEME 3 ;
KEY ALT+B, ""
DEFINE PAD _1kd0njoln OF _MSYSMENU PROMPT "组 考 \<Z" COLOR SCHEME 3 ;
KEY ALT+Z, ""
DEFINE PAD _1kd0njolo OF _MSYSMENU PROMPT "成 绩 \<C" COLOR SCHEME 3 ;
KEY ALT+C, ""
DEFINE PAD _1kd0njolp OF _MSYSMENU PROMPT "录 取 \<L" COLOR SCHEME 3 ;
KEY ALT+L, ""
DEFINE PAD _1kd0njolq OF _MSYSMENU PROMPT "高一学籍管理\<J" COLOR SCHEME 3 ;
KEY ALT+J, ""
DEFINE PAD _1kd0njolr OF _MSYSMENU PROMPT "系 统 \<S" COLOR SCHEME 3 ;
KEY ALT+S, ""
DEFINE PAD _1kd0njols OF _MSYSMENU PROMPT "退 出 \<Q" COLOR SCHEME 3 ;
KEY ALT+Q, ""
ON PAD _1kd0njolm OF _MSYSMENU ACTIVATE POPUP 报名b
ON PAD _1kd0njoln OF _MSYSMENU ACTIVATE POPUP 组考z
ON PAD _1kd0njolo OF _MSYSMENU ACTIVATE POPUP 成绩c
ON PAD _1kd0njolp OF _MSYSMENU ACTIVATE POPUP 录取l
ON PAD _1kd0njolq OF _MSYSMENU ACTIVATE POPUP 高一学籍管
ON PAD _1kd0njolr OF _MSYSMENU ACTIVATE POPUP 系统s
ON SELECTION PAD _1kd0njols OF _MSYSMENU quit
DEFINE POPUP 报名b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报名b PROMPT "初二会考报名"
DEFINE BAR 2 OF 报名b PROMPT "初三会考报名"
DEFINE BAR 3 OF 报名b PROMPT "\-"
DEFINE BAR 4 OF 报名b PROMPT "素质评价"
DEFINE BAR 5 OF 报名b PROMPT "\-"
DEFINE BAR 6 OF 报名b PROMPT "信息查询与修改"
DEFINE BAR 7 OF 报名b PROMPT "\-"
DEFINE BAR 8 OF 报名b PROMPT "打印初二报名册"
DEFINE BAR 9 OF 报名b PROMPT "打印初三报名册"
DEFINE BAR 10 OF 报名b PROMPT "\-"
DEFINE BAR 11 OF 报名b PROMPT "打印优惠审核表"
DEFINE BAR 12 OF 报名b PROMPT "打印特长生审核表"
DEFINE BAR 13 OF 报名b PROMPT "打印素质评价表"
ON SELECTION BAR 1 OF 报名b ;
DO _1kd0njolt ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 2 OF 报名b ;
DO _1kd0njolu ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 4 OF 报名b ;
DO _1kd0njolv ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 6 OF 报名b ;
DO _1kd0njolw ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 8 OF 报名b do form dysdcj.scx
ON SELECTION BAR 9 OF 报名b do form dycj.scx
ON SELECTION BAR 11 OF 报名b do form dyyhb.scx
ON SELECTION BAR 12 OF 报名b do form dytcb.scx
ON SELECTION BAR 13 OF 报名b do form dypjzb.scx
DEFINE POPUP 组考z MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 组考z PROMPT "初二会考组考"
DEFINE BAR 2 OF 组考z PROMPT "\-"
DEFINE BAR 3 OF 组考z PROMPT "初三会考组考"
ON SELECTION BAR 1 OF 组考z ;
DO _1kd0njolx ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 3 OF 组考z ;
DO _1kd0njoly ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
DEFINE POPUP 成绩c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩c PROMPT "初二地理生物成绩录入"
DEFINE BAR 2 OF 成绩c PROMPT "\-"
DEFINE BAR 3 OF 成绩c PROMPT "初三单科A组成绩录入"
DEFINE BAR 4 OF 成绩c PROMPT "初三单科B组成绩录入"
DEFINE BAR 5 OF 成绩c PROMPT "\-"
DEFINE BAR 6 OF 成绩c PROMPT "初三七科A组成绩录入"
DEFINE BAR 7 OF 成绩c PROMPT "初三七科B组成绩录入"
DEFINE BAR 8 OF 成绩c PROMPT "\-"
DEFINE BAR 9 OF 成绩c PROMPT "各科分数汇总"
DEFINE BAR 10 OF 成绩c PROMPT "\-"
DEFINE BAR 11 OF 成绩c PROMPT "初三A、B组成绩比对"
DEFINE BAR 12 OF 成绩c PROMPT "\-"
DEFINE BAR 13 OF 成绩c PROMPT "打印初二成绩册"
DEFINE BAR 14 OF 成绩c PROMPT "打印初三成绩册"
DEFINE BAR 15 OF 成绩c PROMPT "\-"
DEFINE BAR 16 OF 成绩c PROMPT "打印会考成绩统计表"
ON SELECTION BAR 1 OF 成绩c ;
DO _1kd0njolz ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 3 OF 成绩c ;
DO _1kd0njom0 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 4 OF 成绩c ;
DO _1kd0njom1 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 6 OF 成绩c ;
DO _1kd0njom2 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 7 OF 成绩c ;
DO _1kd0njom3 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 9 OF 成绩c do form fshz.scx
ON SELECTION BAR 11 OF 成绩c ;
DO _1kd0njom4 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 13 OF 成绩c do form dysdcj.scx
ON SELECTION BAR 14 OF 成绩c do form dycj0.scx
ON SELECTION BAR 16 OF 成绩c do form dytjb.scx
DEFINE POPUP 录取l MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 录取l PROMPT "各县区未录学生分布"
DEFINE BAR 2 OF 录取l PROMPT "各校未录学生分布"
DEFINE BAR 3 OF 录取l PROMPT "\-"
DEFINE BAR 4 OF 录取l PROMPT "高中招生录取线预测"
DEFINE BAR 5 OF 录取l PROMPT "\-"
DEFINE BAR 6 OF 录取l PROMPT "高中招生点录及补录"
DEFINE BAR 7 OF 录取l PROMPT "高中按志愿录取"
DEFINE BAR 8 OF 录取l PROMPT "\-"
DEFINE BAR 9 OF 录取l PROMPT "打印录取审批表"
DEFINE BAR 10 OF 录取l PROMPT "\-"
DEFINE BAR 11 OF 录取l PROMPT "打印录取名册"
DEFINE BAR 12 OF 录取l PROMPT "\-"
DEFINE BAR 13 OF 录取l PROMPT "打印录取情况统计表"
ON SELECTION BAR 1 OF 录取l do form dyfsb.scx
ON SELECTION BAR 2 OF 录取l do form dyfsb2.scx
ON SELECTION BAR 4 OF 录取l do form lqxt2.scx
ON SELECTION BAR 6 OF 录取l do form dlxt.scx
ON SELECTION BAR 7 OF 录取l do form lqxt.scx
ON SELECTION BAR 9 OF 录取l do form dylqb.scx
ON SELECTION BAR 11 OF 录取l do form dylqb3.scx
ON SELECTION BAR 13 OF 录取l do form dylqtjb.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 xjly.scx
ON SELECTION BAR 2 OF 高一学籍管 do form dyxjb.scx
DEFINE POPUP 系统s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统s PROMPT "系统信息"
DEFINE BAR 2 OF 系统s PROMPT "\-"
DEFINE BAR 3 OF 系统s PROMPT "成绩库解锁"
DEFINE BAR 4 OF 系统s PROMPT "\-"
DEFINE BAR 5 OF 系统s PROMPT "重新建立索引"
DEFINE BAR 6 OF 系统s PROMPT "\-"
DEFINE BAR 7 OF 系统s PROMPT "学校设置"
DEFINE BAR 8 OF 系统s PROMPT "考点设置"
DEFINE BAR 9 OF 系统s PROMPT "招生计划"
DEFINE BAR 10 OF 系统s PROMPT "\-"
DEFINE BAR 11 OF 系统s PROMPT "学校数据导入导出"
DEFINE BAR 12 OF 系统s PROMPT "县区数据导入导出"
ON SELECTION BAR 1 OF 系统s do form sm.scx
ON SELECTION BAR 3 OF 系统s do form szjs.scx
ON SELECTION BAR 5 OF 系统s ;
DO _1kd0njom5 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 7 OF 系统s ;
DO _1kd0njom6 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 8 OF 系统s ;
DO _1kd0njom7 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 9 OF 系统s ;
DO _1kd0njom8 ;
IN LOCFILE("\赫山中招管理系统完整版\PZGL" ,"MPX;MPR|FXP;PRG" ,"WHERE is PZGL?")
ON SELECTION BAR 11 OF 系统s do form sz.scx
ON SELECTION BAR 12 OF 系统s do form sz0.scx
* *********************************************************
* *
* * _1KD0NJOLT ON SELECTION BAR 1 OF POPUP 报名b
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 报名b
* * Prompt: 初二会考报名
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1kd0njolt
close databases all
sele C
use sdcjk excl inde sdksh,sdkh
pack
do form xxly2.scx
* *********************************************************
* *
* * _1KD0NJOLU ON SELECTION BAR 2 OF POPUP 报名b
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 报名b
* * Prompt: 初三会考报名
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1kd0njolu
close databases all
sele C
use cjk excl inde cjkksh,cjkkh
pack
do form xxly.scx
* *********************************************************
* *
* * _1KD0NJOLV ON SELECTION BAR 4 OF POPUP 报名b
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 9
* * Called By: ON SELECTION BAR 4 OF POPUP 报名b
* * Prompt: 素质评价
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1kd0njolv
CLOSE ALL
SELECT 1
USE pjk
IF EOF()
APPEND FROM cjk
ENDIF
COUNT TO M
SELECT 2
USE cjk INDEX cjkksh
COUNT TO N
GO TOP
IF M < N
MESSAGEBOX('将要生成新的素质评价库！' + CHR(13) + '可能需要较长时间,请确认。',304,'提示')
DO WHILE .NOT. EOF()
KKK = KSH
SELECT 1
LOCATE FOR KSH = KKK
IF EOF()
APPEND FROM cjk FOR KSH = KKK
ENDIF
SELECT 2
SKIP
ENDDO
ENDIF
CLOSE ALL
DO FORM jfly.scx
* *********************************************************
* *
* * _1KD0NJOLW ON SELECTION BAR 6 OF POPUP 报名b
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 12
* * Called By: ON SELECTION BAR 6 OF POPUP 报名b
* * Prompt: 信息查询与修改
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1kd0njolw
close databases all
do form xxcx.scx
* *********************************************************
* *
* * _1KD0NJOLX ON SELECTION BAR 1 OF POPUP 组考z
* *
* * Procedure Origin:
* *
* * From Menu: PZGL.MPR, Record: 24
* * Called By: ON SELECTION BAR 1 OF POPUP 组考z
* * Prompt: 初二会考组考
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1kd0njolx
clea all data
use sdcjk
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 sdcjk for ra=" 0"
appe from sdcjk for ra=" 8"
appe from sdcjk for ra=" 5"
appe from sdcjk for ra=" 9"
appe from sdcjk for ra=" 7"
appe from sdcjk for ra=" 3"
appe from sdcjk for ra=" 6"
appe from sdcjk for ra=" 2"
appe from sdcjk for ra=" 4"
appe from sdcjk for ra=" 1"
i=10
do whil i<100
appe from sdcjk for ra=str(i,2)
i=i+1
endd
repl all hsdm with subs(ksh,3,5)
dele file sdcjk.dbf
sort to sdcjk on kd,ra
use
dele file aaa.dbf
Messagebox("已随机生成考生顺序！"+CHR(13)+"可以接着编排考场……",0x130,"提示")
endi
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -