有数据表student(sno,xm,yw,sx,yy,wl,hx,zf),记录着考生的语文、数学、英语、物理、化学及总分，student表、result记事本文档存储在data文件夹中。点击窗口按钮，实现将student表格中的查询结果保存在result记事本中,基本要求如下：
1.清除result记事本中的的历史记录，在result记事本中添加本次查询时间，用以区别查询时间。
2.select * from student where yw<60
如果没有查询到数据，在result记事本中添加记录：所有人的语文成绩及格
如果查询到数据，在result记事本中将查询结果逐条记录：考生sno+xm语文不及格（换行）
3.select * from student where sx<60
如果没有查询到数据，在result记事本中添加记录：所有人的数学成绩及格
如果查询到数据，在result记事本中将查询结果逐条记录：考生sno+xm数学不及格（换行）
4.select * from student where zf<500
如果没有查询到数据，在result记事本中添加记录：所有人的总分达到500分
如果查询到数据，在result记事本中将查询结果逐条记录：考生sno+xm总分未到500分（换行）

[此贴子已经被作者于2017-4-3 17:06编辑过]

没有数据测试也就是空想
楼主的语言表达实在是看不懂

这个“记事本”具体是什么？

记事本?是什么？

加了student.dbf和记事本result.txt
业务不熟，请多指导，谢谢

加了student.dbf和记事本result.txt
业务不熟，请多指导，谢谢

加了student.dbf和记事本result.txt
业务不熟，请多指导，谢谢

加了student.dbf和记事本result.txt
业务不熟，请多指导，谢谢

set safety off
create cursor 分类 (bh n(1),km c(2),bz n(3),zw c(4))
insert into 分类 values (1,"yw",60,"语文")
insert into 分类 values (2,"sx",60,"数学")
insert into 分类 values (3,"yy",60,"英语")
insert into 分类 values (4,"wl",60,"物理")
insert into 分类 values (5,"hx",60,"化学")
insert into 分类 values (6,"zf",420,"总分")
cxjg=transform(dtoc(date(),1),"@R 9999年99月99日")+"查询结果.txt"
cxnr=""
scan
    ckm=分类.km
    select sno,xm,&ckm from student where &ckm<分类.bz into cursor cx
    cxnr=cxnr+chr(13)+chr(10)
    if reccount("cx")=0
        cxnr=cxnr+"所有人的"+分类.zw+iif(分类.bh<reccount("分类"),"成绩","")+"达标"+chr(13)+chr(10)
    else
        select cx
        cxnr=cxnr+分类.zw+iif(分类.bh<reccount("分类"),"成绩","")+"小于"+transform(分类.bz)+"分的人员："+chr(13)+chr(10)
        scan
            cxnr=cxnr+left(cx.sno,9)+left(cx.xm,8)+str(&ckm,3)+chr(13)+chr(10)
        endscan
    endif 
endscan
=strtofile(cxnr,cxjg)
modify file (cxjg)

[此贴子已经被作者于2017-4-3 19:07编辑过]