1.确定所需要的表

本系统有4个实体，即医生、患者、床位和住院管理信息。系统的维护需要明确使用者的身份，因此，在系统登录时对使用者要进行身份的确认，通过一个表来存储系统所有的用户名及密码。

2.确定表的结构及主键

关系模型如下：①医生(编号、姓名、性别、出生日期、职称、所属科室、擅长诊断、个人简介)，见表1。②患者(病历号、姓名、性别、出生日期、身份证号、联系方式、病史)，见下页表2。③床位(床位号、类别、所属科室名、说明)，见下页表3。④出入院信息(编号、主管医生编号、患者病历号、床位号、住院日期、出院日期、病由)，见下页表4。

3. 转换并规范

将E-R图转换成关系模型并对关系模式进行规范化，至少达到3NF。医院住院管理信息系统E-R图如图1所示。

4.功能模块

根据需求分析，系统功能设计包括以下特点，即分层管理、业务功能模块化管理、业务流程严格控制等。

住院管理信息系统主要由两大功能模块构成。一类功能模块是基于基本信息管理，包括医生基本信息管理模块、患者基本信息管理模块和床位基本信息管理模块，另一类是基于出入院登记管理，包括入院登记管理、出院登记管理和住院情况统计。系统功能模块如图2所示。

关键技术举例

虽然Access的六大对象为表、窗体、查询、报表、宏和模块(VBA编程)，有些简单的功能可以通过向导直接完成，但是有些数据关联着比较复杂的功能，就需要借助VBA代码实现。本文以“入院登记”窗体实现为例。

“入院登记”窗体的操作过程是：打开窗体后可看到患者的信息，通过“患者信息区域”的记录选择器可以查看第一条/上一条/下一条/最后一条记录，通过“查找患者”可以找到相应的患者。找到患者后最下面的“住院信息”子窗体中会显示该患者以往的住院记录，如“住院日期”有值，而“出院日期”没有值，则说明该患者已住院，不能再办理入院手续了。

如患者没有正在住院，在“1.选择科室”的列表中选择科室后，系统就会将该科室的出诊医生和空闲床位分别显示在对应的列表框中。单击选择医生和空闲床位后，这时“生成入院信息”的按钮才被激活。填写“住院病由”后，单击“生成入院信息”按钮，则可以办理该患者的住院手续，下方的“住院信息”子窗体里会显示当前加入的住院记录，此时“住院日期”为当前日期及时间，而“出院日期”为空。“入院登记”的运行界面如图3所示。

1.技术要点分析

(1)选择科室后，要自动显示“医生”和“空床位”列表信息。建立自动关联是一技术要点。

(2)“医生”和“空床位”两个列表信息，采用了多列方式来展示相关信息。多列的列表的赋值和读取是一难点。

(3)只有“医生”和“空床位”两个列表都进行了选择后，“生成入院信息”的按钮才被激活。要记录这两个列表的选择状态，就要采用全局变量来做标志。

(4)从界面上获取患者的HID、医生的DID、床位的CID和病由后，将相关信息添加到“住院”表中，并刷新界面，从而最终完成入院登记。

(5)数据库操作前，先要进行连接，操作完成后要释放数据库连接。

2.关键技术的VBA代码实现

(1)“查看信息”按钮单击事件中的VBA代码。

Private Sub ckxx_Click()

'--进行列表框初始化--

Me.ys.ColumnCount = 3

Me.cw.ColumnCount = 2

For i = 0 To Me.ys.ListCount - 1

编辑老师在此也特别为朋友们编辑整理了7000字语言学论文。更多详情请点击进入语言学。