《Visual Basic数据库应用》陕西自考真题及答案(5)【2020年10月】

31. 某医院病房管理系统中,包括四个实体型,分别为:

科室:科名,科地址,科电话

病房:病房号,病房地址

医生:工作证号,姓名,职称,年龄

病人:病历号,姓名,性别

且存在如下语义约束:

1.一个科室有多个病房、多个医生,一个病房只能属于一个科室,一个医生只属于一个科室;

2.一个医生可负责多个病人的诊治,一个病人的主管医生只有一个;

3.一个病房可入住多个病人,一个病人只能入住在一个病房。

注意:不同科室可能有相同的病房号。

完成如下设计:

(1)画出该医院病房管理系统的 E-R 图;(7 分)

(2)将该 E-R 图转换为关系模型;(3 分)

(要求:1 颐 1 和 1 颐 n 的联系进行合并)

32. 下列程序用于检查数据控件的 Database 属性,并在 Debug 窗口输出每个 Table 的名称。 请在空格处补充完整语句。

Sub PrintTable()

Dim td As TableDef

‘设置数据库文件

Data1. = App. Path & “info. mdb”

‘打开数据库

Data1.

‘读入并输入数据库中每个表的名称

For Each td In

Debug. Print td. Name

End Sub