第七章编程题答案.doc

1、01二、简单应用（2小题，每题20分，计40分）1、在考生文件夹中有一个数据库SDB，其中有数据库表STUDENT2，SC和COURSE2。三个表如下所示：STUDENT2(学号,姓名,年龄,性别,院系编号)SC(学号,课程号,成绩,备注)COURSE2(课程号,课程名,先修课号,学分)在考生文件夹下有一个程序dbtest3.prg，该程序的功能是定义一个视图VS1，检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号，并按平均成绩降序排序。请修改程序中的错误，并调试该程序，使之正确运行。不得增加或删减程序行。 SET TALK OFFSET SAFETY OFF

2、open DATABASE SDB SELECT STUDENT2.学号, 姓名, AVG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数, 院系编号;FROM STUDENT2, sc ; GROUP BY SC.学号 HAVING COUNT(课程号) 3;ORDER BY 平均成绩 desc COUNT(*) 选课门数;FROM STUDENT,SC;where STUDENT.学号 = SC.学号 AND 成绩 = 70 ; FROM SC ;WHERE 课程号 = c1 AND 学号 =any ; COUNT(*) 选课门数,院系 院系;FROM STUDE

3、NT, SCORE;WHERE STUDENT.学号 = SCORE.学号;GROUP BY STUDENT.学号 HAVING count(课程编号) = 3; where rate_exchange.外币代码=currency_sl.外币代码 into array aSELECT Class.班级号, 班级名, 姓名, 性别, 教师名 AS 班主任名;FROM Student,Class,Teacher ;WHERE Student.班级号 = Class.班级号 and Teacher.教师号 = Class.班主任号013二、简单应用（2小题，每题20分，计40分）在考生文件夹下，打开

4、公司销售数据库SELLDB，完成如下简单应用：2. 在考生文件夹下打开命令文件TWO.PRG，该命令文件用来查询各部门的分年度的部门号、部门名、年度、全年销售额、全年利润和利润率（全年利润/全年销售额），查询结果先按年度升序、再按利润率降序排序，并存储到S_SUM表中。注意，程序在第5行、第6行、第8行和第9行有错误，请直接在错误处修改。修改时，不可改变SQL语句的结构和短语的顺序，不允许增加或合并行。OPEN DATABASE SELLDBSELECT S_T.部门号,部门名 ,年度,;一季度销售额 + 二季度销售额 + 三季度销售额 + 四季度销售额 AS 全年销售额,;一季度利润 + 二

5、季度利润 + 三季度利润 + 四季度利润 AS 全年利润,;(一季度利润 + 二季度利润 + 三季度利润 + 四季度利润) / (一季度销售额 + 二季度销售额 + 三季度销售额 + 四季度销售额) AS 利润率;FROM S_T,DEPT;WHERE S_T.部门号 = DEPT.部门号;Order BY 年度 ,利润率 DESC;INTO table S_SUM014二、简单应用（2小题，每题20分，计40分）在考生文件夹下完成如下简单应用：1.用SQL语句新建一个表rate，其中包含4个字段“币种1代码“ C(2)、“币种2代码“C(2)、“买入价“N(8,4)、“卖出价“N(8,4)，

6、请将SQL语句存储于two.txt中。3. 编写程序three.prg完成下列操作：根据“外汇汇率“表中的数据产生rate自由表中的数据。要求：将所有“外汇汇率“表中的数据插入rate表中并且顺序不变，由于“外汇汇率“中的币种1和币种2存放的是外币名称，而rate表中的币种1代码和币种2代码应该存放外币代码，所以插入时要做相应的改动，外币名称与外币代码的对应关系存储在“外汇代码“表中。注意：程序必须执行一次，保证rate表中有正确的结果。1.Two.txt文件内容：CREATE TABLE rate (币种 1 代码 c(2),币种 2 代码 c(2),买入价 n(8,4),卖出价 n(8,4

7、)3. 程序 three.prgUSE 外汇汇率SCANSELECT 外币代码 from 外汇代码 where 外汇汇率.币种 1=外币名称 into array dm1SELECT 外币代码 from 外汇代码 where 外汇汇率.币种 2=外币名称 into array dm2INSERT into rate values (dm1,dm2,外汇汇率.买入价,外汇汇率.卖出价)ENDSCANClose all或：USE 外汇汇率SCAN bz1mc=币种 1bz2mc=币种 2mrj=买入价mcj=卖出价SELECT 外币代码 from 外汇代码 where 外币名称=bz1mc int

8、o array bz1dmSELECT 外币代码 from 外汇代码 where 外币名称=bz2mc into array bz2dmINSERT into rate values (bz1dm,bz2dm,mrj,mcj)ENDSCAN CLOSE TABLES all015二、简单应用（2小题，每题20分，计40分）1. 改错题student是一个“学生“表，其中包含学号(C 8)、姓名(C 8)、性别(C 2)、政治面目(C 4)、班级(C 5)等字段。考生目录下的modi1.prg程序文件的功能是显示输出所有政治面目为“群众“的“男“生的姓名和班级，每行输出一个学生的信息；程序中有三

9、处错误，请加以改正。说明：程序中*ERROR FOUND*的下一行即为错误所在行。请用改正后的程序行覆盖错误所在行，不要插入或删除任何程序行。2. 建立命令文件sprog.prg，该命令文件包含如下两条语句： 第一条语句使用SQL UPDATE命令计算和更新student表的年龄字段值（计算年龄的表达式是year(date() - year(出生日期)）； 第二条语句使用SQL SELECT命令查询各种“政治面目“的学生人数和平均年龄，并将结果存储于表sqlresults（字段名是政治面目、人数和平均年龄）。说明：以上命令文件必须执行，并产生所要求的结果。SET TALK OFFUSE STU

10、DENTLOCATE FOR 政治面目=“群众“*ERROR FOUND*DO WHILE .NOT.eof()IF 性别=“女“CONTINUE*ERROR FOUND*loopENDIF? 姓名,班级*ERROR FOUND*continueENDDOUSESET TALK ON2. 程序sprog.prgUPDATE student set 年龄=YEAR(date()-YEAR(出生日期)SELECT 政治面目 ,count(*) as 人数,avg( 年龄) as 平均年龄 from student group by 政治面目 into table sqlresults016二、简单

11、应用（2小题，每题20分，计40分）在考生文件夹下，完成如下简单应用：1打开程序文件progerr.prg，按文件中给出的功能要求改正其中的错误，以文件名prognew.prg重新保存该文件并运行程序。OPEN DATABASE ordersmanageCREATE view viewes AS SELECT 职工号,SUM(金额) AS 总金额 FROM orders GROUP BY 职工号SELECT * FROM viewes WHERE 总金额=30000 ORDER BY 总金额 desc into table newtable017三、综合应用（1小题，计30分）利用表设计器在考

12、生目录下建立表table3，表结构如下：学号 字符型(10)姓名 字符型(6)课程名 字符型(8)分数 数值型(5,1)然后编写程序prog1.prg，从xuesheng表和chengji表中找出所有成绩不及格（分数小于60）的学生信息（学号、姓名、课程名和分数），并把这些数据保存到表table3中（若一个学生有多门课程不及格，在表table3中就会有多条记录）。USE chengjiSCAN xh=学号SELECT 姓名 from xuesheng where 学号=xh into array xmIF 数学60fs=数学INSERT into table3 values (xh,xm,“数学“,fs)ENDIF