1、- xx 科技大学课 程 设 计 说 明 书课程名称 医学信息工程专题实践 题 目 门诊病人身份管理系统 学 院 医工学院 班 级 生医 121班 学生姓名 xx 指导教师 xx 日 期 2014 年 12月 31日 - 课程设计任务书（指导教师填写）课程设计名称 医学信息工程专题实践 学生姓名 xx 专业班级 生医 121 班 设计题目 门诊病人身份管理系统 课程设计目的本课程设计主要是应用所学的数据库、程序开发语言及医院信息系统的有关知识和方法，进行医院信息系统的分析与设计，通过实例开发，培养学生系统设计的整体思想与数据库程序设计能力，学习系统测试、编写技术文档的方法，培养独立学习、吸取他
2、人的经验、探讨技术的习惯以及团队合作的精神，提高编写程序、调试程序的能力，实现对前期所学知识综合应用的锻炼，理论与实践相结合的目的。设计内容1. 开发工具 前端环境：VB；也可以自选 后台数据库：类型不限，例如 Access。 2.系统功能描述：1)病人基本信息登记2)病人基本信息查询 3) 门诊 id 号管理 4)用户管理- 时间进度安排第 1 周：1、第一阶段：查阅资料，完成该系统的数据库设计。 内容包括用户需求分析、数据库设计。2、第二阶段：确定应用程序框架，设计窗体模块。3、第三阶段：代码编写第 2 周：4、第四阶段：测试程序5、第五阶段：课程设计报告编写 报告内容： 1、基本要求 （
3、1）完成问题陈述中所提到的所有需求功能（2）要求撰写不少于 2500 个文字的文档（3）文档中至少要包括：ER 模型图、系统功能图、数据字典、表关系的详细说明（4）用户界面设计思想，数据流转关系，关键代码的说明（5）数据表说明 2、文档格式（1）概述 ,包括项目背景、编写目的、软件定义、开发环境等内容。（2）需求分析,问题陈述、需完成的功能。- 画出 ER 模型图（3）数据库逻辑设计,把 ER 模型图转换为关系表。描述每一个基本表关系。（4）软件功能设计画出软件功能图。描述每一个功能所完成的任务情况并说明数据如何流转。（5）界面设计列出关键窗体并进行陈述，界面设计要合理。简要操作说明（6）关键
4、代码陈述更新、添加、查询数据的 SQL 语句与代码（7）结束语写出完成本课程设计的心得，有哪些收获。软件还需要哪些改进。（8）参考文献。完成本课程设计所查阅的参考资料。评分方法：1) 学生提前提交系统源程序和文档给老师 2) 答辩并演示程序3) 老师检查源代码及设计文档最后打分- 指导教师签字： xx 2014 年 12 月 18 日目 录绪论 .1 第 1章 设计内容 .21.1 设计目的 21.2 设计内容.2第 2章 开发工具22.1 Visual Basic 简介22.2 Access 数据库简介42.3 小结5第章 设计过程及设计53.1 设计总图103.2 系统子模块的设计113.
5、3 系统数据库逻辑结构设计133.4 详细设计17第章 结束语 .20 第 5章 参考文献21第 6章 附录21 - 门诊病人身份管理系统绪论自 20 世纪 80 年代以来，信息技术蓬勃发展，已在社会的各个领域得到广泛应用。医院信息系统作为管理信息系统在医学领域的应用分支经过二十多年的发展，现已成为医院信息化的一个重要成果，广泛应用于国内外医院，推动了医疗保健事业的发展 1。医院是国家的医疗事业单位，因此，医院管理系统的好坏直接反映医疗水平的质量 2。目前，我国大部分地区的医院还采用传统的管理模式，病人信息、病历等信息杂论五章，给期资料的调取等带来不便。信息时代的到来，预示着计算机将应用到医院
6、信息系统中，于是产生了医院信息系统 3。医院信息系统（英文缩写为 HIS，英文全称为 Hospital Information System）是指利用计算机软硬件技术、网络通讯技术等现代化手段，对医院及其所属各部门对人流、物流、财流进行综合管理，对在医疗活动各阶段中产生的数据进行采集、存贮、处理、提取、传输、汇总、加工生成各种信息，从而为医院的整体运行提供全面的、自动化的管理及各种服务的信息系统。医院信息系统是现代化医院建设中不可缺少的基础设施与支撑环境 4。HIS 将计算机技术和医院的管理特点、管理思想、医院各部门业务特点、业务经验有机地结合起来，用数据库方式管理、储存信息，利用计算机网络加
7、速信息流通和传递速度，对医院发展和医院改革具有重要意义 5。而门诊是医院日常事务中最重要，也是最关键事务之一，如何提高门诊服务质量将影响着整个医院的就诊效率 6。因此，做好门诊病人身份管理系统，将为现代化医院建设做出贡献。- 7第 1 章、设计目的及内容1.1 设计目的本课程设计主要是应用所学的数据库、程序开发语言及医院信息系统的有关知识和方法，进行医院信息系统的分析与设计，通过实例开发，培养学生系统设计的整体思想与数据库程序设计能力，学习系统测试、编写技术文档的方法，培养独立学习、吸取他人的经验、探讨技术的习惯以及团队合作的精神，提高编写程序、调试程序的能力，实现对前期所学知识综合应用的锻炼
8、，理论与实践相结合的目的。1.2 设计内容1. 2.1 开发工具 前端环境：VB；后台数据库：类型不限，例如 Access。 1.2.2 系统功能描述：1)病人基本信息登记2)病人基本信息查询 3)门诊 id 号管理 4)用户管理第 2章 开发工具2.1 Visual Basic 简介一个 windows 应用程序是由若干个窗口构成的，每个窗口上都有若干个控件（如命令按钮、控制菜单、显示的文本等等），每个对象或控件都有若干事件（如在命令按扭上的单击或双击等等），每个事件将对应一段程序；同样，Visual Basic 6.0 的应用程序也是这样构成的 19。Visual Basic（简称 VB）
9、是美国微软公司推出的 Microsoft Visual Studio 可- 8视化开发工具套件中的一个组件，是在 Quick BASIC 的基础上，为开发Windows 应用程序而提供的强有力的开发工具，是一种具有良好的图形用户界面（Graphic User Interface，简写为 GUI）的程序设计语言。它采用面向对象和事件驱动的程序设计两种新机制，把过程化和结构化编程集合在一起。VB 作为基于 Windows 平台最方便快捷的软件开发工具，无论是网络应用，多媒体技术还是当前流行的 MIS 系统（信息管理系统）的开发，都应付的游刃有余。因此，Visual Basic 也就成为众多程序员的
10、首选编程工具。Visual 的原意是“视觉的”或“可视的”，而在 VB 中是指开发图形用户界面的方法，即不需要编写大量代码去描述界面元素的外观和位置，只要把VB 预先定义好的对象（如工具箱提供的各种控件）拖放到窗体上即可。也就是说，屏幕上的用户界面是用 VB 提供的可视化设计工具直接 “画”出来的，而不是用程序“写”出来的。这种直观的编程方法，就是我们通常所说的可视化编程。Basic 是指 BASIC 语言，它是 Beginners All-purpose Symbolic Instruction Code（初学者通用符号指令代码）的缩写，与其他高级语言相比，它的语法规则相对简单，容易理解和掌
11、握，且具有实用价值，被认为是最理想的初学者语言。之所以叫做“Visual Basic”就是因为它是在 BASIC 语言的基础上发展而来的，并赋予了全新的面向对象的可视化编程方法 20。与传统的编程语言相比，Visual Basic 在许多方面有着重大的突破。它的三个最基本，也是最容易理解的特点是：1可视化的编程工具VB 可视化编程工具的出现，把程序设计人员从繁琐、复杂的界面设计中解脱出来，使得界面设计如积木游戏一般，让编程成为一种快乐的享受。2程序采取“事件驱动”方式程序的执行不再受程序代码本身的控制，而是靠发生在对象（窗体、控件）上的事件触发执行。在不同的对象上发生不同的事件，就会产生一个不
12、同的“事件消息”，进而执行不同的事件过程（子程序）。程序设计人员只需为每一个事件编写出一个个事件过程即可，使得编程变得相对容易。3面向对象编程VB 采用了面向对象设计思想，把复杂的设计问题分解为多个能够完成独- 9立功能且相对简单的对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等，面向对象编程就是指程序员可根据界面设计要求直接在界面上设计出窗口、菜单、按钮等类型对象并为每个对象设置属性。2.2 Access 数据库简介目前主要的数据库产品有：关系数据库、面向对象数据库。其中面向对象数据库是一种全新的数据库类型，它提供很多关系数据库所不具备的强大功能，但它的技术还处于
13、不断完善之中。关系数据库相较而言，技术十分成熟，有着广泛的应用 21。设计时采用关系数据库。关系数据库是由数据表和数据表之间的关联组成的。其中数据表通常是一个由行和列组成的二维表，每一个数据表分别说明数据库中某一特定的方面或部分的对象及其属性。在关系数据库中，表的惯量是一个非常重要的组成部分。表的关联是指数据库中的数据表与数据表之间使用相应的字段实现数据表的连接。这种连接在进行多表查询时也非常重要。数据表之间的关联实际上是通过键(KEY)来实现的，键分主键和外键两种。主键是数据表中具有唯一型的字段，也就是说数据表中的任意两条记录都不可能拥有相同的主键字段。一个数据表将使用该数据表中的外键连接到
14、其他的数据表，而这个外键字段在其他的数据表中将作为主键字段出现。Access 数据库是美国 Microsoft 公司于 1994 年推出的微机数据库管理系统。它具有界面友好、易学易用、开发简单、接口灵活等特点，是典型的新一代桌面数据库管理系统。其主要特点如下 2： 1完善地管理各种数据库对象，具有强大的数据组织、用户管理、安全检查等功能。 2强大的数据处理功能，在一个工作组级别的网络环境中，使用 Access开发的多用户数据库管理系统具有传统的 XBASE(DBASE、FoxBASE 的统称)数据库系统所无法实现的客户服务器(Client/Server)结构和相应的数据库安全机制，Access
15、 具备了许多先进的大型数据库管理系统所具备的特征，如事务处理/出错回滚能力等。 3可以方便地生成各种数据对象，利用存储的数据建立窗体和报表，可视性好。- 104作为 Office 套件的一部分，可以与 Office 集成，实现无缝连接。5能够利用 Web 检索和发布数据，实现与 Internet 的连接。 Access 主要适用于中小型应用系统，或作为 客户机/服务器系统 中的客户端数据库。总之，Access 是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行数据库应用系统开发；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统 23。2.3 小结设计结构化电子病历
16、系统时，采用面向对象的程序设计语言 Visual Basic 6.0（中文版），VB 的程序可以非常简单地与 Access 数据库连接。两者结合使设计变得很方便，简洁，一目了然。2.4 E-R 模型E-R 模型:实体-联系模型（简称 E-R 模型）是由 P.P.Chen 于 1976 年首先提出的。它提供不受任何 DBMS 约束的面向用户的表达方法，在数据库设计中被广泛用作数据建模的工具。E-R 数据模型问世后，经历了许多修改和 扩充。第 3章、设计过程及分析3.1 设计总图3.1 数据库概念结构设计：本系统包括用户管理系统、门诊病人信息登记系统、病人信息查询系统、门诊ID 号码管理系统四个部
17、分。通过 E-R 图分解病人身份管理系统。- 11图 3.1 系统总的 E-R 图3.2 系统子模块的设计3.2.1 病人信息登记表病人信息登记表包含的内容比较多，我们大致挑选出了比较重要的信息，通过运用 WPS 中的绘图功能，我们得到病人信息登记表 E-R 图：门诊病人信息管理系统用户管理病人信息登记门诊ID号管理病人信息查询- 12图 3.2-1 门诊病人信息登记 E-R 图登记表的作用是登记病人的基本信息。我们还可以对本表进行查找病人的信息。3.2.2 病人信息查询表用同样的方法，绘制出病人信息查询表，如下图：- 13图 3.2- 2 门诊病人信息查询 E-R 图3.2.3 门诊 ID
18、号码管理 E-R 图在此系统中，我们简单的设计出了门诊 ID 号码管理的八种功能，如下图所示：- 14图 3.2-3 门诊 ID 号码管理 E-R 图3.2.4 用户管理 E-R 图图 3.2-4 门诊病人信息查询 E-R 图3.3 系统数据库逻辑结构设计在设计门诊病人身份管理系统，首先设计的是用户管理系统，也就是登录页面，门诊 ID 号码管理姓名 科室 性别 年龄 身份证号码已交费用剩余费用病案号用户管理用户名称密码- 15如下图所示：图3.3-1 用户登录系统页面接下来是进入到门诊病人身份管理系统的主页面，包括四个方面的子系统，分别是病人信息登记、信息查询、门诊ID号码管理 |用户登录。图
19、3.3-2 门诊病人身份管理系统主页面点击页面显示的四个模块，分别进入不同的系统。点击“病人信息登记”，我们进入的页面是：- 16在输入正确的用户名和密码之后，点击确图3.3-2 门诊病人身份信息登记表页面在此页面中，我们可以点击左下方的数据表，查询不同病人的信息。点击“退出”、“返回上一页”“返回首页”按键，会跳转到相应的界面。如果点击了“信息查询”，我们进入到病人信息查询页面，如下图：- 17图3.3-3 门诊病人身份信息登记表页面如果点击了“门诊ID号码管理”，我们进入到门诊ID 号码管理页面，如下图：图3.3-4 门诊病人身份信息登记表页面通过点击数据库快捷键按钮，我们可以查询到不同病
20、人的信息，查看病人的费用等。点击“退出”、“返回首页”等按键，会跳转到相应的界面。如果点击“用户管理”，我们进入的页面是：图3.3-5 用户管理页面- 18此时的登录页面和刚开始的不一样，我们可以输入不同的用户名称和相对应的密码，来实现多用户登录的功能。多名用户的信息在信息库中。最后点击退出，退出系统。图3.3-6 门诊病人身份管理系统首页3.4 详细设计 1.打开 Vb，找到自己的设计文件。点击运行，出现登录页面：输入用户名和密码，如用户名：123，密码：zhang ，此时对密码属性进行了设置，我们看到的页面信息是*，对用户的信息进行了保密。- 19图 3.4-1 门诊病人身份管理系统首页点
21、击“确定”，如果用户名以及密码错误，系统给予提示；如果正确，进入下个页面，如下图：图 3.4-2 输入错误提示- 20图 3.4-2 输入正确，进入到门诊病人身份管理系统主页面我们在页面上设计四个功能键，重命名。此设计的关键是各个功能键与相对应页面的衔接，需要靠以下代码实现。举例：点击“病人身份信息登记”，我们就要进入到病人身份信息登记系统页面，依靠的代码就是：Private Sub Command1_Click()病人信息登记.ShowUnload MeEnd Sub点击其他功能键跳转指令类似。2.进入病人信息登记系统：- 21此页面设计的思路是，完成病人信息的登记，我们可以通过数据库对病人
22、信息查询，新增，可以退出系统。此系统功能的实现的关键是数据库的建立以及数据库和工程的连接。关键代码：Me.Data1.Recordset.Fields(“籍贯“) = Text10.TextMe.Data1.Recordset.Fields(“婚姻状况“) = Text12.TextMe.Data1.Recordset.Fields(“身份证号码“) = Text13.TextMe.Data1.Recordset.Fields(“工作单位及地址“) = Text14.TextMe.Data1.Recordset.Fields(“联系电话“) = Text15.TextMe.Data1.Reco
23、rdset.Fields(“现住址“) = Text17.TextMe.Data1.Recordset.Fields(“家庭联系电话“) = Text20.TextMe.Data1.Recordset.Fields(“门诊诊断“) = Text22.TextMe.Data1.Recordset.Fields(“主治医师“) = Text26.TextMe.Data1.Recordset.UpdateUnload MeEnd IfEnd SubPrivate Sub Command4_Click()信息查询.ShowUnload MeEnd SubPrivate Sub Command5_Cli
24、ck()用户信息管理系统.ShowUnload MeEnd SubPrivate Sub Text2_Change()End Sub3 门诊病人身份查询系统功能的实现与之类似，不再赘述。4 用户管理用户管理系统的功能是不同用户可以用自己的用户名和所对应的密码登登录系统。它的关键要点是数据库的建立以及数据库和所建工程文件的连接。代码与以上的系统的代码类似，不再赘述。第 4章、 结束语两周的课程设计很快结束。通过这段时间的课程设计，深深感受到医院信- 22息系统的庞大，为了完成课程设计，查阅了大量资料，还去医院进行学习，目前我设计的系统基本可以完成户管理系统、门诊病人信息登记系统、病人信息查询系统
25、、门诊 ID 号码管理系统的功能，不过还存在好多不足，需要以后深入的学习 VB 软件以及医院信息系统的相关知识之后再加以实现。此次实验要感谢老师的热心耐心指导，老师的热情帮助不仅能使我们的杂乱的思路得以清晰，而且给我的设计提供建议和纠错，真诚感谢老师！同时也感谢同学的热情帮助，自己才能够按时做完这次实验，也同样真诚感谢他们！第 5章、参考文献1董建成.医学信息学概论.北京：人民卫生出版社.2010-1-1 2王世伟.医学信息系统应用基础.北京：清华大学出版社.2012 3谭浩强.C 程序设计（第三版）.清华大学出版社.2005.74谭浩强，薛淑斌，袁玖.Visual Basic 程序设计.北京
26、：清华大学出版社.20005刘炳文，许蔓舒.Visual Basic 教程.北京：高等教育出版社.20046巫张英.Acess 数据库基础与应用教程.北京：人民邮电出版社，20097卢湘鸿,陈洁.Acess 数据与程序设计.北京：电子工业出版社.2011第 6章、程序代码代码一：（1）用户管理系统代码Private Sub Command5_Click()用户管理系统.Show 打开用户管理系统Unload Me 关闭当前页面End Sub 结束工程Private Sub Command6_Click()Form1.Show打开用户管理系统- 23Unload Me关闭当前页面End SubP
27、rivate Sub 用户登录窗口_Click()If Text1.Text = “123“ And Text2.Text = “zhang“ Then如果用户名是 123，而且密码是 zhang，则，点击确定按键后，可以跳转到信息查询界面信息查询.Show 打开信息查询界面Unload Me 关闭当前页面Else 否则MsgBox “输入错误 “ 弹出输入错误的提示End IfEnd Sub（2）门诊病人信息登记系统代码Private Sub Command3_Click()If Text1.Text = “ ThenMsgBox “请输入姓名 !“, “系统提示“ElseMe.Data1.
28、Recordset.AddNewMe.Data1.Recordset.Fields(“医疗付款方式“) = Text1.TextMe.Data1.Recordset.Fields(“医疗证号“) = Text2.TextMe.Data1.Recordset.Fields(“病案号“) = Text3.TextMe.Data1.Recordset.Fields(“姓名“) = Text4.TextMe.Data1.Recordset.Fields(“性别“) = Text5.TextMe.Data1.Recordset.Fields(“年龄“) = Text6.TextMe.Data1.Reco
29、rdset.Fields(“民族“) = Text7.TextMe.Data1.Recordset.Fields(“出生日期“) = Text8.TextMe.Data1.Recordset.Fields(“婚姻状况“) = Text9.TextMe.Data1.Recordset.Fields(“籍贯“) = Text10.TextMe.Data1.Recordset.Fields(“婚姻状况“) = Text12.TextMe.Data1.Recordset.Fields(“身份证号码“) = Text13.TextMe.Data1.Recordset.Fields(“工作单位及地址“)
30、= Text14.TextMe.Data1.Recordset.Fields(“联系电话“) = Text15.TextMe.Data1.Recordset.Fields(“现住址“) = Text17.TextMe.Data1.Recordset.Fields(“家庭联系电话“) = Text20.TextMe.Data1.Recordset.Fields(“门诊诊断“) = Text22.TextMe.Data1.Recordset.Fields(“主治医师“) = Text26.TextMe.Data1.Recordset.UpdateMsgBox “登记成功！ “Unload MeEn
31、d IfEnd Sub- 24Private Sub Command4_Click()信息查询.ShowUnload MeEnd SubPrivate Sub Command5_Click()用户信息管理系统.Show 打开用户信息管理界面Unload MeEnd Sub（3）病人信息查询系统代码Private Sub Command3_Click()If Text1.Text = “ ThenMsgBox “请输入姓名 !“, “系统提示“ElseMe.Data1.Recordset.AddNewMe.Data1.Recordset.Fields(“医疗付款方式“) = Text1.Text
32、Me.Data1.Recordset.Fields(“医疗证号“) = Text2.TextMe.Data1.Recordset.Fields(“病案号“) = Text3.TextMe.Data1.Recordset.Fields(“姓名“) = Text4.TextMe.Data1.Recordset.Fields(“性别“) = Text5.TextMe.Data1.Recordset.Fields(“年龄“) = Text6.TextMe.Data1.Recordset.Fields(“民族“) = Text7.TextMe.Data1.Recordset.Fields(“出生日期“)
33、 = Text8.TextMe.Data1.Recordset.Fields(“婚姻状况“) = Text9.TextMe.Data1.Recordset.Fields(“籍贯“) = Text10.TextMe.Data1.Recordset.Fields(“婚姻状况“) = Text12.TextMe.Data1.Recordset.Fields(“身份证号码“) = Text13.TextMe.Data1.Recordset.Fields(“工作单位及地址“) = Text14.TextMe.Data1.Recordset.Fields(“联系电话“) = Text15.TextMe.D
34、ata1.Recordset.Fields(“现住址“) = Text17.TextMe.Data1.Recordset.Fields(“家庭联系电话“) = Text20.TextMe.Data1.Recordset.Fields(“门诊诊断“) = Text22.TextMe.Data1.Recordset.Fields(“主治医师“) = Text26.TextMe.Data1.Recordset.UpdateMsgBox “寻找成功！ “Unload MeEnd IfEnd SubPrivate Sub Command4_Click()信息查询.ShowUnload Me- 25End SubPrivate Sub Command5_Click()用户信息管理系统.ShowUnload MeEnd Sub（4）门诊 ID 号码管理系统代码Private Sub Command1_Click()病人信息查询.ShowUnload MeEnd SubPrivate SubCommand1_Click()病人信息登记.ShowUnload MeEnd SubPrivate Sub Command8_Click()病人信息查询.ShowUnload MeEnd SubPrivate Sub Command9_Click()用户管理系统.ShowUnload MeEnd Sub
