| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 555 人关注过本帖
标题:请教各位大帮忙完善此程序(十万火急...)
只看楼主 加入收藏
ynztjhre
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2010-6-3
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
请教各位大帮忙完善此程序(十万火急...)
我是VFP初学者,对VFP还相当不了解,请求各位大帮忙完善下面的句子。
要求:1、实现循环
      2、请求各位帮忙修改一下语句,问题相当多、、、谢谢了、、、

clear
@ 0,0 say"1 查询所有不及格的同学的信息"
@ 1,0 say"2 输入一学号,查询此同学的所有课程成绩"
@ 2,0 say"3 输入一姓名,查询此同学的所有课程成绩"
@ 3,0 say"4 输入一课程名,查询该课程的所有同学的成绩信息"

input "请选择:" to a
do case
    case  a=1
        SELECT Student.number, Student.name, Result.coursename, Result.total;
            FROM  student INNER JOIN result ;
            ON  Student.number = Result.number;
            WHERE Result.total < 60 to screen
            
        return
      
    case  a=2   
        input "请输入学号:" to b
            
        SELECT Student.number, Student.name, Result.coursename, Result.total;
            FROM  student INNER JOIN result ;
            ON  Student.number = Result.number;
            WHERE Student.number = b to screen
            
        return
        
    case a=3
        input "请输入姓名:" to c
        
        SELECT Student.number, Student.name, Result.coursename, Result.total;
            FROM  student INNER JOIN result ;
            ON  Student.number = Result.number;
            WHERE Student.name = c
         
        return
            
    case a=4
        input "请输入课程名:" to d
        
        SELECT Student.number, Student.name, Result.coursename, Result.total;
            FROM  student INNER JOIN result ;
            ON  Student.number = Result.number;
            WHERE Result.coursename = d
        
        return
            
endcase
搜索更多相关主题的帖子: 十万火急 各位 完善 
2010-06-03 00:36
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:6 

你这个是foxbase和foxpro常用的, 现在很少用了, 但在vfp上还是能运行的~~

看你的代码, 并没有错误, 能通过的~~~
 
只是在输入学号,姓名之类时, 因为是字符型, 要加上引号, 比如: 输入语文时为: "语文"

还有, 没有必要加上 to screen, 你要加上, 也未尝不可~

2010-06-03 02:58
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:6 
现在的学校还要学生学FoxBASE,真是不知道该说什么好!

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2010-06-03 07:52
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:6 
你需要如何循环???
好像没有循环的条件

2010-06-03 10:56
快速回复:请教各位大帮忙完善此程序(十万火急...)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017087 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved