📄 menu1.mpr
字号:
* *********************************************************
* *
* * 09/16/04 MENU1.MPR 17:36:15
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2004 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD 成绩导入 OF _MSYSMENU PROMPT "成绩导入" COLOR SCHEME 3 ;
NEGOTIATE MIDDLE, MIDDLE
DEFINE PAD 成绩统计 OF _MSYSMENU PROMPT "成绩统计" COLOR SCHEME 3
DEFINE PAD _1c011qcy1 OF _MSYSMENU PROMPT "跟综分析" COLOR SCHEME 3
DEFINE PAD _1c011qcy2 OF _MSYSMENU PROMPT "帮 助" COLOR SCHEME 3
ON PAD 成绩导入 OF _MSYSMENU ACTIVATE POPUP 成绩导入
ON PAD 成绩统计 OF _MSYSMENU ACTIVATE POPUP 成绩统计
ON PAD _1c011qcy2 OF _MSYSMENU ACTIVATE POPUP 帮助
DEFINE POPUP 成绩导入 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩导入 PROMPT "学籍核对"
DEFINE BAR 2 OF 成绩导入 PROMPT "成绩导入"
ON SELECTION BAR 1 OF 成绩导入 ;
DO _1c011qcy3 ;
IN LOCFILE("E:\成绩跟综\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 2 OF 成绩导入 ;
DO _1c011qcy4 ;
IN LOCFILE("E:\成绩跟综\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
DEFINE POPUP 成绩统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩统计 PROMPT "均 分（不按类别）"
DEFINE BAR 2 OF 成绩统计 PROMPT "分 数 段"
DEFINE BAR 3 OF 成绩统计 PROMPT "均 分（按类别）"
ON SELECTION BAR 1 OF 成绩统计 ;
DO _1c011qcy5 ;
IN LOCFILE("E:\成绩跟综\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 2 OF 成绩统计 ;
DO _1c011qcy6 ;
IN LOCFILE("E:\成绩跟综\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 3 OF 成绩统计 ;
DO _1c011qcyh ;
IN LOCFILE("E:\成绩跟综\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "请先读我"
DEFINE BAR 2 OF 帮助 PROMPT "退 出"
ON SELECTION BAR 1 OF 帮助 ;
DO _1c011qcyi ;
IN LOCFILE("E:\成绩跟综\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 2 OF 帮助 quit
* *********************************************************
* *
* * _1C011QCY3 ON SELECTION BAR 1 OF POPUP 成绩导入
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 成绩导入
* * Prompt: 学籍核对
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1c011qcy3
********************************
*本程序在两个数据库之间可以根据*
*主标识字段zkzh进行字段数据的拷*
*贝更新 2004-1-22 *
********************************
Clea all
SET safe off
SET date to ansi
CLOSE DATABASES
on error do clea
SELE 2
? '打开学籍管理库: ' + MESSAGE(1)
gcTable = GETFILE('dbf', '文件名(N):', '打开',1)
DO CASE
CASE 'Untitled' $ gcTable
CREA(gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
ENDCASE
INDEX on zkzh to df2
k=1
do whil k<=7
SELECT 1
? '打开新数据源: ' + MESSAGE(1)
gcTable = GETFILE('dbf', '文件名(N):', '打开',1)
DO CASE
CASE 'Untitled' $ gcTable
CREA(gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
ENDCASE
INDEX on zkzh to df1
brow
coun all to a
m=1
do whil m<=a
go m
zz=zkzh
sele 2
loca all for zkzh=zz
coun all for zkzh=zz to s
if s=0
sele 1
go m
repl hd with s
else
sele 1
go m
repl hd with 1
endif
m=m+1
enddo
sele 1
brow for hd=0
k=k+1
enddo
sele 2
brow
* *********************************************************
* *
* * _1C011QCY4 ON SELECTION BAR 2 OF POPUP 成绩导入
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 成绩导入
* * Prompt: 成绩导入
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1c011qcy4
********************************
*本程序在两个数据库之间可以根据*
*主标识字段zkzh进行字段数据的拷*
*贝更新 2004-1-22 *
********************************
Clea all
SET safe off
SET date to ansi
CLOSE DATABASES
on error do clea
SELE 2
? '打开跟踪成绩库: ' + MESSAGE(1)
gcTable = GETFILE('dbf', '文件名(N):', '打开',1)
DO CASE
CASE 'Untitled' $ gcTable
CREA(gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
ENDCASE
INDEX on zkzh to df2
k=1
do whil k<=7
SELECT 1
? '打开新数据源: ' + MESSAGE(1)
gcTable = GETFILE('dbf', '文件名(N):', '打开',1)
DO CASE
CASE 'Untitled' $ gcTable
CREA(gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
ENDCASE
INDEX on zkzh to df1
sele 2
UPDATE on zkzh from a repl lb with a->lb,cj1 with a->cj1,cj2 with a->cj2,cj3 with a->cj3,cj4 with a->cj4,cj5 with a->cj5,cj6 with a->cj6,cj7 with a->cj7,cj8 with a->cj8,cj9 with a->cj9
k=k+1
enddo
sele 2
brow
* *********************************************************
* *
* * _1C011QCY5 ON SELECTION BAR 1 OF POPUP 成绩统计
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 9
* * Called By: ON SELECTION BAR 1 OF POPUP 成绩统计
* * Prompt: 均 分（不按类别）
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1c011qcy5
set talk off
clea all
clos data
set safe off
on error do clea
set defa to E:\成绩跟综
dime d(16)
dime f(10),r(10)
dime jg(10),yl(10)
store 0 to r,x01,x02,x11,x12,x21,x22,x31,x32,x41,x42,x51,x52,x61,x62,x71,x72,x81,x82,x91,x92
sele 1
gcT = GETFILE('dbf','文件名(N):', '打开',1)
DO CASE
CASE 'Untitled' $ gcT
CREATE (gcT)
CASE EMPTY(gcT)
modi comm (gcT)
RETURN
OTHERWISE
USE (gcT)
ENDCASE
sele 2
input"请输入年份：" to pp
input"请输入考试的次数：" to ppp
acce"请输入字段个数：" to a
acce"请输入文件名：" to c
acce"请输入考试的名称：" to pppp
crea table &c(zxdm n(4),参考数 n(5),zf n(5,2),jg0 n(4,2),yl0 n(4,2))
a=val(a)
a=int(a)
k=1
for k=1 to a
s='cj'+str(k,1)
w='jg'+str(k,1)
y='yl'+str(k,1)
d='d'+str(k,1)
alte tabl &c add &s n(5,2)
alte tabl &c add &w n(4,2)
alte tabl &c add &y n(4,2)
alte tabl &c add &d n(5)
endfor
n=5901
do while n<=5934
sele 1
loca all for zxdm=n
coun all to aa for zxdm=n
coun all to bb for zxdm=n.and.zf>=(3/5)*800
coun all to cc for zxdm=n.and.zf>=(17/20)*800
aver zf for zxdm=n to mm
bb=(bb/aa)*100
cc=(cc/aa)*100
sele 2
appe blan
repl zxdm with n 参考数 with aa zf with mm jg0 with bb yl0 with cc
sele 1
k=1
do whil k<=a
sele 1
loca all for zxdm=n
s='cj'+str(k,1)
w='jg'+str(k,1)
y='yl'+str(k,1)
d='d'+str(k,1)
sele 1
loca all for &s>=1
coun all to dd for zxdm=n
count all to a1 for &s>=((3/5)*150).and.zxdm=n
count all to a2 for &s>=((17/20)*150).and.zxdm=n
if dd>0
jg=(a1/dd)*100
yl=(a2/dd)*100
aver &s for zxdm=n to f
else
jg=0
yl=0
f=0
endif
sele 2
repl &d with dd &s with f &w with jg &y with yl
k=k+1
enddo
n=n+1
enddo
sele 1
coun all to aa
coun all to bb for zf>=(3/5)*800
coun all to cc for zf>=(17/20)*800
aver zf to mm
bb=(bb/aa)*100
cc=(cc/aa)*100
sele 2
appe blan
repl zxdm with 5959 参考数 with aa zf with mm jg0 with bb yl0 with cc
sele 1
k=1
do whil k<=a
sele 1
s='cj'+str(k,1)
w='jg'+str(k,1)
y='yl'+str(k,1)
d='d'+str(k,1)
loca all for &s>=1
coun all to dd
count all to a1 for &s>=((3/5)*150)
count all to a2 for &s>=((17/20)*150)
jg=(a1/dd)*100
yl=(a2/dd)*100
aver &s to f
sele 2
repl &d with dd &s with f &w with jg &y with yl
k=k+1
enddo
select 2
cccc='盐城市'+str(pp,4)+'年第'+str(ppp,1)+'次'+pppp+'各科成绩一览表'
copy to d:\&cccc xl5
brow
retu
* *********************************************************
* *
* * _1C011QCY6 ON SELECTION BAR 2 OF POPUP 成绩统计
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 10
* * Called By: ON SELECTION BAR 2 OF POPUP 成绩统计
* * Prompt: 分 数 段
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1c011qcy6
set talk off
clear all
close data
set defa to E:\成绩跟综
sele 1
gcT = GETFILE('dbf','文件名(N):', '打开',1)
DO CASE
CASE 'Untitled' $ gcT
CREATE (gcT)
CASE EMPTY(gcT)
modi comm (gcT)
RETURN
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -