程序代码:
CLEAR ALL CLEAR USE "学生表stu" ALIAS "stu" IN 0 USE "选课表xk" ALIAS "xk" IN 0 USE "课程表kc" ALIAS "kc" IN 0 kc_name = "" && 用于接收用户输入的课程名字符串 ACCEPT "请输入待查询的课程名:" TO kc_name IF !EMPTY(kc_name) SELECT "kc" LOCATE ALL FOR ALLTRIM(课程名) == ALLTRIM(kc_name) IF FOUND() Show_Information(ALLTRIM(课程号)) ELSE ? "数据库中不存在所输入的课程名!" ENDIF ENDIF CLOSE TABLES ALL CLEAR ALL RETURN *------------------------ * 根据课程号输出信息 *------------------------ PROCEDURE Show_Information(kc_id) LOCAL stu_id && 学生的学号stu_id LOCAL kc_score && 课程成绩 SELECT "xk" GOTO TOP DO WHILE !EOF() IF ALLTRIM(课程号) == kc_id stu_id = ALLTRIM(学号) kc_score = 成绩 SELECT "stu" LOCATE ALL FOR ALLTRIM(学号) == stu_id IF FOUND() ? 姓名, kc_score ENDIF ENDIF SELECT "xk" SKIP ENDDO ENDPROC
[ 本帖最后由 TonyDeng 于 2014-7-5 11:50 编辑 ]
授人以渔,不授人以鱼。