北大“数据库原理”上机实践题目总结（1）

一、现有关于学生成绩管理数据库的模式如下：

学生（学号，姓名，性别，出生日期，系号）；

课程（课号，课程名，学分）；

选修（学号，课号，成绩）

学生与课程的联系是M：N联系。

1.按题目要求建立表结构，各表各个字段的名字、数据类型、长度等根据语义和查询的需要自行决定。可根据以下题目的需要建立索引。

有些题目则可能需要建立中间表或临时表。 （15分）

2.利用你所熟悉的方法向各表录入适量的、满足题目需要的数据。各数据项的取值范围应该合理、有效，并与查询要求相呼应。 （10分）

3.编写一个对选修表的数据修改程序。用学号和课号定位记录，找到后，显示该记录，并提示用户确认“真的要修改吗？”，

根据用户回答决定程序流程。

要求只允许修改成绩信息，不退出本程序能继续进行修改操作。 （20分）

4.用FoxPro语言或SQL语言编写程序完成以下查询。（以下四题依次为10分、10分、15分、20分）

（1）列出学生名单，要包含所有学生的所有属性，且在最后一行显示：

女生的平均年龄为 xx 岁。

（2）按照学分对课程进行分类，列出每类学分的课程数，且在最后一行显示

课程总数为 xx 门。

（3）检索选修课号为C2的学生的姓名、课程名和成绩，检索结果按成绩的降序排列。

（4）检索与ZANG同学同龄的学生的学号、姓名、课程名和成绩，并列表显示。

答案：3

set talk off

clear

use sc

index on sno +cno to 11

dimension d（3）

action=.t.

answer=.t.

do while action

a=space（6）

b=space（4）

@ 1，1 say “sno：” get a picture “xxxxxx”

@ 2，1 say “cno” get b picture “xxxx”

read

c=a+b

seek c

if found（）

scatter to d

@ 5，2 say “sno” get d（1） picture“xxxxxx”

@ 7，2 say “cno” get d（2） picture“xxxx”

clear gets

@ 9，2 say “grade” get d（3） picture“999.9”

read

@ 11，2 say “真的修改吗？” get answer picture “l”

read

if answer

clear

gather from d

@ 1，1 say “修改后的数据已存入！”

endif

if .not.answer

clear

endif

endif

if .not.found（）

clear

@ 1，1 say “查无此人”

endif

@ 4，1 say “继续查吗？” get action picture “l”

read

clear

enddo