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

1、基于Access的医学生数据库语言学习讨论基于Aess的医学生数据库语言学习讨论随着计算机技术的不断开展及普及，计算机已经成为人们工作中不可缺少的工具，与此同时，信息技术在医院也被全面应用，医院信息化管理为医院的各项业务管理带来了极大的方便。在医学领域，医院信息管理系统、医学专家系统、数字人体分析以及大量医学数据分析管理等都毫不例外地是以数据库技术为根底的。数据库语言是高校非计算机专业计算机教学普遍开设的课程，在医学院校开设数据库语言是医学生掌握计算机知识、熟悉数据库操作最实在可行的途径。数据库语言Aess是功能较强、易于掌握的数据库管理软件，也是医学生今后工作和科研所必须掌握的一门计算机编程

2、语言。该课程的学习以培养医学生面向对象程序设计的理念为宗旨，通过教学，从根底到理论，使学生掌握数据库语言Aess的根本功能，培养初步开发信息系统的才能，根本具备解决实际应用问题的才能，更为培养医学生具有数字技术与医学结合的思维方式打下良好的基矗irsft公司开发的数据库管理系统软件Aess作为ffie的重要组件之一，是一个面向对象的、采用事件驱动的关系型数据库环境。Aess在关系数据模型的理论根底上结合了先进的面向对象思想，同时提本文由论文联盟搜集整理供了大量适用于面向对象开发思想和方法的各种软件工具，为用户开发基于inds环境的数据库应用软件系统创造了条件。本课程所采用的数据库系统是Aess

3、2022。系统构造与设计教育形式是做中学和基于工程教育和学习的集中概括和抽象表达，按照学科穿插浸透、理论结合理论的教学理念，按照根底知识应用进步才能创新三个阶段来改善学生的学习效果，进步学生的学习才能。所以，我们采用工程开发为任务，详细实现要手段的方式来综合学习Aess。1.确定所需要的表本系统有4个实体，即医生、患者、床位和住院管理信息。系统的维护需要明确使用者的身份，因此，在系统登录时对使用者要进展身份确实认，通过一个表来存储系统所有的用户名及密码。2.确定表的构造及主键关系模型如下：医生编号、姓名、性别、出生日期、职称、所属科室、擅长诊断、个人简介，见表1。患者病历号、姓名、性别、出生日

4、期、身份证号、联络方式、病史，见下页表2。床位床位号、类别、所属科室名、说明，见下页表3。出入院信息编号、主管医生编号、患者病历号、床位号、住院日期、出院日期、病由，见下页表4。3.转换并标准将E-R图转换成关系模型并对关系形式进展标准化，至少到达3NF。医院住院管理信息系统E-R图如图1所示。4.功能模块根据需求分析，系统功能设计包括以下特点，即分层管理、业务功能模块化管理、业务流程严格控制等。住院管理信息系统主要由两大功能模块构成。一类功能模块是基于根本信息管理，包括医生根本信息管理模块、患者根本信息管理模块和床位根本信息管理模块，另一类是基于出入院登记管理，包括入院登记管理、出院登记管理

5、和住院情况统计。系统功能模块如图2所示。关键技术举例虽然Aess的六大对象为表、窗体、查询、报表、宏和模块VBA编程，有些简单的功能可以通过向导直接完成，但是有些数据关联着比拟复杂的功能，就需要借助VBA代码实现。本文以入院登记窗体实现为例。入院登记窗体的操作过程是：翻开窗体后可看到患者的信息，通过患者信息区域的记录选择器可以查看第一条/上一条/下一条/最后一条记录，通过查找患者可以找到相应的患者。找到患者后最下面的住院信息子窗体中会显示该患者以往的住院记录，如住院日期有值，而出院日期没有值，那么说明该患者已住院，不能再办理入院手续了。如患者没有正在住院，在1.选择科室的列表中选择科室后，系统

6、就会将该科室的出诊医生和空闲床位分别显示在对应的列表框中。单击选择医生和空闲床位后，这时生成入院信息的按钮才被激活。填写住院病由后，单击生成入院信息按钮，那么可以办理该患者的住院手续，下方的住院信息子窗体里会显示当前参加的住院记录，此时住院日期为当前日期及时间，而出院日期为空。入院登记的运行界面如图3所示。1.技术要点分析1选择科室后，要自动显示医生和空床位列表信息。建立自动关联是一技术要点。2医生和空床位两个列表信息，采用了多列方式来展示相关信息。多列的列表的赋值和读取是一难点。3只有医生和空床位两个列表都进展了选择后，生成入院信息的按钮才被激活。要记录这两个列表的选择状态，就要采用全局变量

7、来做标志。4从界面上获取患者的HID、医生的DID、床位的ID和病由后，将相关信息添加到住院表中，并刷新界面，从而最终完成入院登记。5数据库操作前，先要进展连接，操作完成后要释放数据库连接。2.关键技术的VBA代码实现1查看信息按钮单击事件中的VBA代码。PrivateSubkxx_lik-进展列表框初始化-e.ys.lununt=3e.lununt=2Fri=0Te.ys.Listunt-1e.ys.RevEite0NextiFri=0Te.Listunt-1e.ReveIte0NextiDinAsNeADDB.nnetinDirsAsNeADDB.RerdsetDifielAsADDB.F

8、ieldDistrsql，a，b，dAsString-建立数据库连接-Setn=urrentPrjet.nnetinSetrs=NeADDB.Rerdset-将符合条件的医生信息参加列表框-strsql=selet*fr医生here所属科室=e.keshirs.penstrsql，urrentPrjet.Aessnnetin，adpenKeysetIfrs.EFThensgBx此类型号源已用完e.keshi.SetFusElsers.veFirstDhileNtrs.EFa=rsDIDb=rs姓名=rs职称d=a，b，将符合条件的医生姓名参加列表框ys.AddItedrs.veNextLpEn

9、dIf-将符合条件的空床位名参加列表框-rs.lseSetrs=Nthingstrsql=SELET床位.ID，类别FR床位，住院HERE床位.ID=住院.IDand出院日期=nand所属科室=e.keshiUNINSELETID，类别FR床位HERE所属科室=e.keshiandIDntinseletIDfr住院sgBxstrsql=strsqlrs.penstrsql，urrentPrjet.Aessnnetin，adpenKeysetIfrs.EFThensgBx无空床位e.keshi.SetFusElsers.veFirstDhileNtrs.EFa=rsIDb=rs类别d=a，b将符

10、合条件的医生姓名参加列表框.AddItedrs.veNextLpEndIf-关闭数据库连接-rs.lsen.lseSetrs=NthingSetn=NthingEndSub2生成入院信息按钮单击事件中的VBA代码。PrivateSubruyuan_likIfIsNulle.bingyure.bingyu=ThenDd.BeepsgBx请输入入院病由！e.bingyu.SetFusExitSubEndIfDinAsNeADDB.nnetinDirsAsNeADDB.Rerdset-建立数据库连接-Setn=urrentPrjet.nnetinSetrs=NeADDB.RerdsetDistrsqlAsStringstrsql=selet*fr住院rs.penstrsql，urrentPrjet.Aessnnetin，adpenKeyset，adLkptiisti，addText-添加新记录-rs.AddNe准备添加新记录rsHID=e.HIDrsDID=e.ys.IteDatae.ys.ListIndexrsID=e.lun0rs住院日期=Nrs病由=e.bingyurs.Update记录集更新e.R