| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1819 人关注过本帖
标题:求助!一道编程题,给定课程从键盘输入,直接回车时结束查询
只看楼主 加入收藏
talo6060
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2014-7-5
收藏
得分:0 
以下是引用sdta在2014-7-5 14:10:36的发言:

Clear
kc_name = ""
accept "请输入待查询的课程名:" to kc_name
Select * From 课程表kc Where alltrim(课程名)=alltrim(kc_name) Into Cursor Temp
If Reccount("Temp")=0
    Return messagebox("课程名<"+kc_name+">不存在")
Endif
If Not Empty(kc_name)
    select a.课程名, b.学号,c.姓名,b.成绩 from 课程表kc a Inner join 选课表xk b on a.课程号=b.课程号 ;
     Inner join 学生表stu c on b.学号=c.学号 where alltrim(a.课程名)=alltrim(kc_name) into cursor 结果表jg
    if reccount("结果表jg")=0
        messagebox("没有人选择该课程<"+kc_name+">")
    else
        browse
    Endif
Else
    messagebox("kc_name 不能为空")
Endif



在VFP6.0中 temp现实不可识别的谓语命令
2014-07-05 16:31
talo6060
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2014-7-5
收藏
得分:0 
回复 27 楼 sash
非常感谢!可是我们学的是6.0。。。
2014-07-05 16:34
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
如果那么点小问题都不能自给解决,那翘科算了。

授人以渔,不授人以鱼。
2014-07-05 17:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
Select * From 课程表kc Where alltrim(课程名)=alltrim(kc_name) Into Cursor Temp

改为

Select * From 课程表kc Where alltrim(课程名)=alltrim(kc_name) Into Cursor LSB

坚守VFP最后的阵地
2014-07-05 17:23
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:3 
热心者众!

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-07-05 17:28
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用吹水佬在2014-7-5 10:26:55的发言:

** 用数据关联举个例子
CREATE CURSOR stu (学号 C(5), 姓名 C(10))
INSERT INTO stu VALUES ("93061", "王燕")
INSERT INTO stu VALUES ("93062", "李丽")
INSERT INTO stu VALUES ("93063", "詹贵")
INSERT INTO stu VALUES ("93064", "潘泰")
INSERT INTO stu VALUES ("93065", "戚莎")
INSERT INTO stu VALUES ("92061", "张平")
INSERT INTO stu VALUES ("92062", "赵东")

CREATE CURSOR kc (课程号 C(4), 课程名 C(10))
INSERT INTO kc VALUES ("C801", "数据结构")
INSERT INTO kc VALUES ("C802", "多媒体")
INSERT INTO kc VALUES ("C803", "数据库")
INSERT INTO kc VALUES ("C804", "C++语言")
INSERT INTO kc VALUES ("C805", "WEB设计")
INSERT INTO kc VALUES ("C806", "操作系统")
INSERT INTO kc VALUES ("C807", "接口技术")
INSERT INTO kc VALUES ("C808", "程序设计")

CREATE CURSOR xk (学号 C(5), 课程号 C(4), 成绩 I)
INSERT INTO xk VALUES ("93061", "C808", 61)
INSERT INTO xk VALUES ("93061", "C803", 78)
INSERT INTO xk VALUES ("93062", "C803", 90)
INSERT INTO xk VALUES ("93062", "C804", 48)
INSERT INTO xk VALUES ("93063", "C804", 89)
INSERT INTO xk VALUES ("93063", "C803", 65)
INSERT INTO xk VALUES ("93064", "C806", 82)
INSERT INTO xk VALUES ("92061", "C804", 91)
INSERT INTO xk VALUES ("93065", "C802", 70)
INSERT INTO xk VALUES ("92062", "C805", 76)

SELECT stu
INDEX on 学号 TAG 学号

SELECT kc
INDEX on 课程号 TAG 课程号

SELECT xk
SET RELATION TO 学号 INTO "stu", 课程号 INTO "kc"

**m课程名 = INPUTBOX("输入查询课程名") && VFP6.0这行代码不能执行

**可改为下面两行代码
m课程名=""
accept "请输入待查询的课程名:" to m课程名


IF !EMPTY(m课程名)
    **BROWSE FIELDS xk.学号, stu.姓名, xk.成绩 FOR RTRIM(kc.课程名) == "数据库"
    SET FILTER TO RTRIM(kc.课程名) == ALLTRIM(m课程名)
    GO TOP
    BROWSE FIELDS xk.学号, stu.姓名, xk.成绩
    SET FILTER TO
    GO TOP
ENDIF

SET RELATION TO

坚守VFP最后的阵地
2014-07-05 17:29
talo6060
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2014-7-5
收藏
得分:0 
回复 34 楼 TonyDeng
原谅我。
2014-07-05 18:49
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
原谅你什么?作业交了没有?

授人以渔,不授人以鱼。
2014-07-06 20:52
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:3 
对伸手党,我继续保持沉默……

泉城飞狐
2014-07-07 09:00
快速回复:求助!一道编程题,给定课程从键盘输入,直接回车时结束查询
数据加载中...
 
   



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

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