基于Access的医学生数据库语言学习探讨

　　随着计算机技术的不断发展及普及，计算机已经成为人们工作中不可缺少的工具，与此同时，信息技术在医院也被全面应用，医院信息化管理为医院的各项业务管理带来了极大的方便。在医学领域，医院信息管理系统、医学专家系统、数字人体分析以及大量医学数据分析管理等都毫不例外地是以数据库技术为基础的。
　　数据库语言是高校非计算机专业计算机教学普遍开设的课程，在医学院校开设数据库语言是医学生掌握计算机知识、熟悉数据库操作最切实可行的途径。数据库语言Access是功能较强、易于掌握的数据库管理软件，也是医学生今后工作和科研所必须掌握的一门计算机编程语言。该课程的学习以培养医学生面向对象程序设计的理念为宗旨，通过教学，从基础到实践，使学生掌握数据库语言Access的基本功能，培养初步开发信息系统的能力，基本具备解决实际应用问题的能力，更为培养医学生具有数字技术与医学结合的思维方式打下良好的基础。
　　Microsoft公司开发的数据库管理系统软件Access作为Office的重要组件之一，是一个面向对象的、采用事件驱动的关系型数据库环境。Access在关系数据模型的理论基础上结合了先进的面向对象思想，同时提供了大量适用于面向对象开发思想和方法的各种软件工具，为用户开发基于Windows环境的数据库应用软件系统创造了条件。本课程所采用的数据库系统是Access2010。
　　系统结构与设计
　　教育模式是做中学和基于项目教育和学习的集中概括和抽象表达，按照学科交叉渗透、理论结合实践的教学理念，按照基础知识应用提高能力创新三个阶段来改善学生的学习效果，提高学生的学习能力。所以，我们采用项目开发为任务，具体实现要手段的方式来综合学习Access。
　　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
　　Me.ys.RemovEitem （0）
　　Next i
　　For i = 0 To Me.cw.ListCount - 1
　　Me.cw.RemoveItem （0）
　　Next i
　　Dim con As New ADODB.Connection
　　Dim rs As New ADODB.Recordset
　　Dim fiel As ADODB.Field
　　Dim strsql， a， b， c， d As String
　　＂--建立数据库连接--
　　Set con = CurrentProject.Connection
　　Set rs = New ADODB.Recordset
　　＂-- 将符合条件的医生信息加入列表框 --
　　strsql = ＂select * from 医生 where 所属科室=＂＂ Me.keshi ＂＂ ＂
　　rs.Open strsql， CurrentProject.AccessConnection， adOpenKeyset
　　If rs.EOF Then
　　MsgBox ＂此类型号源已用完＂
　　Me.keshi.SetFocus
　　Else
　　rs.MoveFirst
　　Do While Not rs.EOF
　　a = rs（＂DID＂）
　　b = rs（＂姓名＂）
　　c = rs（＂职称＂）
　　d = a ＂， ＂ b ＂， ＂ c ＂将符合条件的医生姓名加入列表框
　　ys.AddItem d
　　rs.MoveNext
　　Loop
　　End If
　　＂-- 将符合条件的空床位名加入列表框 --
　　rs.Close
　　Set rs = Nothing
　　strsql = ＂（select 床位.CID， 类别 FROM 床位， 住院 WHERE 床位.CID=住院.CID and 出院日期=now（） and 所属科室=＂＂ Me.keshi ＂＂ ） UNION （select CID， 类别 FROM 床位 WHERE 所属科室=＂＂ Me.keshi ＂＂ and CID not in （select CID from 住院）） ＂
　　＂MsgBox （＂strsql=＂） strsql
　　rs.Open strsql， CurrentProject.AccessConnection， adOpenKeyset
　　If rs.EOF Then
　　MsgBox ＂无空床位＂
　　Me.keshi.SetFocus
　　Else
　　rs.MoveFirst
　　Do While Not rs.EOF
　　a = rs（＂CID＂）
　　b = rs（＂类别＂）
　　d = a ＂， ＂ b ＂将符合条件的医生姓名加入列表框
　　cw.AddItem d
　　rs.MoveNext
　　Loop
　　End If
　　＂--关闭数据库连接--
　　rs.Close
　　con.Close
　　Set rs = Nothing
　　Set con = Nothing
　　End Sub
　　（2）生成入院信息按钮单击事件中的VBA代码。
　　Private Sub ruyuan_Click（）
　　If IsNull（Me.bingyou） Or Me.bingyou = ＂＂ Then
　　DoCmd.Beep
　　MsgBox ＂请输入入院病由！＂
　　Me.bingyou.SetFocus
　　Exit Sub
　　End If
　　Dim con As New ADODB.Connection
　　Dim rs As New ADODB.Recordset
　　＂--建立数据库连接--
　　Set con = CurrentProject.Connection
　　Set rs = New ADODB.Recordset
　　Dim strsql As String
　　strsql = ＂select * from 住院＂
　　rs.Open strsql， CurrentProject.AccessConnection， adOpenKeyset， adLockOptimistic， adCmdText
　　＂--添加新记录--
　　rs.AddNew ＂准备添加新记录
　　rs（＂HID＂） = Me.HID
　　rs（＂DID＂） = Me.ys.ItemData（Me.ys.ListIndex）
　　rs（＂CID＂） = Me.cw.Column（0）
　　rs（＂住院日期＂） = Now
　　rs（＂病由＂） = Me.bingyou
　　rs.update ＂记录集更新
　　Me.Refresh ＂--刷新窗体--
　　rs.Close ＂--关闭数据库连接--
　　con.Close
　　Set rs = Nothing
　　Set con = Nothing
　　End Sub
　　结论
　　数据库在现今各领域中都是必不可少的基础工具，数据库的高效便捷也是管理庞大数据的一大优势。数据库的学习与建立在一定程度上让医学生掌握了基本的数据库设计与实现的具体方法，为将来在医疗卫生岗位上的工作打下了坚实的基础。