全国2006年1月高等教育自学考试 数据库及其应用试题 课程代码02120

(3) (4)

38.数据库文件orders.dbf用于存放顾客的购物信息，其字段有：cname（顾客名，字符型），iname（商品名，字符型），num（数量，数值型）。下述程序的功能是按数量对orders.dbf中的记录以升序排列。请完成下述程序。 SET TALK OFF

DIMENSION ary(3), tmp(3) USE orders

FOR i=RECCOUNT( ) TO 1 STEP –1 GO i

SCATTER TO ary (1) SCAN NEXT i

IF (2) THEN (3) GATHER FROM ary FOR j=1 TO 3 ary(j)=tmp(j) ENDFOR ENDIF ENDSCAN GATHER FROM ary ENDFOR LIST USE RETURN (1) (2) (3)

五、综合题（本大题共2小题，每小题5分，共10分）

39.数据库文件hotel.dbf的字段有：roomno（房间号，字符型），roomtype（房间类型，字符型），roomprice（单价，数值型）和occupied（入住，逻辑型）。其中roomtype有＂A＂、 ＂B＂、＂C＂、＂D＂四类房型。请说明函数occupy( )，roty( )，ropr( )的功能。

浙02120# 数据库及其应用试题 第 9 页（共 11 页）

SET TALK OFF

SET PROCEDURE TO stat USE hotel CLEAR ?? occupy ( ) ?? roty ( ) ?? ropr ( ) USE

SET PROCEDURE TO RETURN

文件stat.prg的内容如下： FUNCTION occupy( ) PRIVATE num num=0 SCAN

IF occupied THEN num=num+1 ENDIF ENDSCAN

occupy=num/RECCOUNT( ) RETURN occupy

FUNCTION roty( ) PRIVATE num1 num1=0 SCAN

IF occupied .AND. roomtype=＂A＂THEN num1=num1+1

ENDIF

ENDSCAN roty=num1 RETURN roty

浙02120# 数据库及其应用试题 第 10 页（共 11 页）

FUNCTION ropr( ) PRIVATE num2 num2=0 SCAN

IF occupied .AND. roomtype=＂B＂THEN num2=num2+roomprice ENDIF

ENDSCAN ropr=num2 RETURN ropr

（1）函数occupy（）功能： （2）函数roty（）功能： （3）函数ropr（）功能：

40.已知关系模式R（city, street, zip）其中city为城市编号，street为街道编号，zip为邮政编码，一个城市的一条街道只有一个邮政编码，一个邮政编码只属于一个城市。请写出R上成立的所有函数依赖及所有候选键，并说明R最高是第几范式。

浙02120# 数据库及其应用试题 第 11 页（共 11 页）