利用表设计器在考生文件夹下建立表table3,表结构如下: 学号 字符型(10) 姓名 字符型(6) 课程名 字符型(8) 分数 数值型(5,1) 然后编写程序progl.prg,从xueshen

admin2016-12-05  47

问题 利用表设计器在考生文件夹下建立表table3,表结构如下:
    学号    字符型(10)
    姓名    字符型(6)
    课程名  字符型(8)
    分数    数值型(5,1)
    然后编写程序progl.prg,从xuesheng表和chengji表中找出所有成绩不及格(分数小于60)的学生信息(学号、姓名、课程名和分数),并把这些数据保存到表table3中(若一个学生有多门课程不及格,在表table3中就会有多条记录)。表table3中的各记录应该按“分数”升序排序,分数相同则按“学号”降序排序。
    要求在程序中用SET RELATION命令建立chengji表和xuesheng表之间的关联(同时用INDEX命令建立相关的索引),并通过DO WHILE循环语句实现规定的功能。最后运行程序。

选项

答案【操作步骤】 步骤1:在命令窗口执行命令:CREATE table3,打开数据表设计器新建表。 步骤2:根据题意,在表设计器中逐行输入每个字段的字段名,并设置字段类型和宽度,然后单击“确定”按钮,此时系统会弹出一个对话框询问“现在输入数据记录吗?”,本题不需要录入数据,单击“否”按钮。 步骤3:在命令窗口执行命令:MODIFY COMMAND prog1,打开程序文件编辑器。 步骤4:在编辑器中输入如下程序代码: 1 CLEAR 2 CLOSE DATA ALL 3 SELECT 0 4 USE TABLE3 5 DELE ALL 6 PACK 7 COPY TO TTT 8 SELECT 0 9 USE TTT 10 SELECT 0 11 USE XUESHENG 12 INDEX ON 学号 TAG 学号 13 SELECT 0 14 USE CHENGJI 15 SET RELATION TO 学号 INTO XUESHENG 16 GO TOP 17 DO WHILE.NOT.EOF() 18 IF 数学<60 19 SELECT TTT 20 APPEND BLANK 21 REPLACE学号WITH XUESHENG. 学号,姓名WITH XUESHENG.姓名 22 REPLACE课程名 WITH "数学",分 数WITH CHENGJI.数学 23 SELECT CHENGJI 24 ENDIF 25 IF英语<60 26 SELECT TTT 27 APPEND BLANK 28 REPLACE 学号 WITH XUESHENG. 学号,姓名WITH XUESHENG.姓名 29 REPLACE 课程名 WITH"英语",分 数WITH CHENGJI.英语 30 SELECT CHENGJI 91 ENDIF 32 IF信息技术<60 33 SELECT TTT 34 APPEND BLANK 35 REPLACE 学号 WITH XUESHENG.学号,姓名WITH XUESHENG.姓名 36 REPLACE 课程名 WITH"信息技术", 分数 WITH CHENGJI.信息技术 37 SELECT CHENGJI 38 ENDIF 39 SKIP 40 ENDDO 41 SELECT TTT 42 SORT ON 分数,学号/D TO TTT1 43 SELECT TABLE3 44 APPEND FROM TTT1 45 CLOSE DATA ALL 步骤5:在命令窗口执行命令:DO prog1,执行文件。

解析
转载请注明原文地址:https://kaotiyun.com/show/3NIp777K
0

最新回复(0)