一个MM问我的问题
建立学生数据库文件STU2000.DBF库文件结构包括以下字段：学号（C，6）姓名（C，4）性别（C，2）出生日期（D，8）班号（C，4）婚否（C，4）平时成绩（N，4，1）数据库成绩（N，4，1）总分（N，4，1）
1。先在D盘建立考试文件夹KS
2。班号要求取学号的前4位（输入是不许录入）要求使用替换录入。
3。数据库文件建好后，库中记录要求建立屏幕格式文KS.SCX并通过KS.SPR输入其记录，不少于10条
4。库文件建好后，以学号和数据库成绩分别建立索引文件I_sl.idx
5。编写程序PL.PRG自动填写班号，总分，并输出考试成绩最高分的学生的信息和成绩。
请用foxpro 来编写。
请各位高手帮忙，我以前学过的已经忘了，明天要考试了，不是我的问题，是一个MM的问题，我已经回答不出了，请帮忙，我一定高分相赠。
问题点数：100、回复次数：11Top
1 楼panther_totem（青争岁月）回复于 2001-12-14 13:37:25 得分 0
看看，多感人，不过没有学过FOXPRO，唉，遗憾。Top
2 楼clear_liu（中国人）回复于 2001-12-14 13:43:41 得分 0
mkdir d:\ks
xh=thisform.text1.text
bh=subs(xh,1,4)
do ks.spr
NDEX ON xh,cj TO i_sl.idx
打印用say @row,@col吧,我也记不清了,用vfp的报表设计一个得了
Top
3 楼Free_Man（浪迹天涯）回复于 2001-12-14 14:18:40 得分 10
唉,帮不上忙.Top
4 楼sunge（happy）回复于 2001-12-14 15:10:13 得分 10
没学过Top
5 楼mmzxg（超级笨蛋）回复于 2001-12-14 16:58:45 得分 10
哪位MM是不是你GF，但我学过的FOXPRO全给老师了，帮不上忙，不好意思Top
6 楼lxinjun（lxj）回复于 2001-12-14 17:15:31 得分 10
来不及了Top
7 楼liujianjun_（流星尔）回复于 2001-12-15 11:31:41 得分 10
强烈建议换上vfp，太旧了Top
8 楼nashan（浪客剑心）回复于 2001-12-15 12:17:22 得分 20
5、pl.prg
set talk off
clea
set safe on
go top
repl all 班号 with subs(学号,1,4)
repl all 总分 with 平时成绩+数据库成绩
go top
mark=总分
i=recno()
do while .not. eof()
skip
Top
9 楼nashan（浪客剑心）回复于 2001-12-15 12:19:24 得分 10
5、pl.prg
set talk off
clea
set safe on
go top
repl all 班号 with subs(学号,1,4)
repl all 总分 with 平时成绩+数据库成绩
go top
mark=总分
i=recno()
do while .not. eof()
skip
if 总分>mark then
i=recno()
mark=总分
endif
enddo
go i
disp
set talk on
return
Top
10 楼nashan（浪客剑心）回复于 2001-12-15 12:24:26 得分 10
把disp改成
@ 10,10 say "学号 姓名 性别 出生日期 班号 婚否 平时成绩 数据库成绩 总分"
@ 12,10 say 学号,姓名,性别,出生日期,班号,婚否,平时成绩,数据库成绩,总分Top
11 楼liujianjun_（流星尔）回复于 2001-12-15 13:25:50 得分 10
这个问题简单Top
