Question

vfp的一个小程序怎么做

vfp的一个小程序怎么做

一、编写程序pp.prg实现功能是：学校对部分学生进行分数调整，调整人员的分布没有任何规律，只提供分数调整表（包括姓名和调整量），逐个浏览学生表，并完成分数调整。
要求：1、修改学生成绩前，程序要显示当前学生的全部信息，用户根据提示信息决定是否修改该学生的成绩。如选“是”就修改当前学生成绩，如选“否”就跳过当前学生，程序提示“是否继续显示下一条记录”对话框。
2、如修改某一学生的成绩后，程序应提示“是否继续显示下一条记录”对话框，如选“是”显示下一条学生记录，如选“否”就退出程序。
3、如到表尾显示“已到文件尾！”
clear
use c:\ xsb

scan
disp
wait "是否修改！" to xz window at 20,50
if upper(xz)<>"Y"

else
clear
@2,1 say '请修改'+alltrim(xm)+'成绩：'get kscj
read
endif
ret=messagebox("是否继续显示下一条记录？",4+0+32,"显示选择")
do case
case ret=6
clear
loop
case ret=7
exit
endcase
endscan
use
return

Answer 1

用 @ SAY 的格式太古老了， 已经不符合vfp 事件驱动编程的优势了，
建议使用表单, 用表格显示所有资料， 双击要修改的记录 进行修改