医院管理系统设计免费毕业设计论文.docx

1、医院管理系统设计免费毕业设计论文医院管理系统设计设计者： 学 号： 班 级： 1系统设计目的和意义2.系统功能设计 2.1系统设计原则2.2应用体系结构 2.3网络服务体系结构2.4系统功能设计3.数据库及数据表设计3.1数据库 3.2数据表设计4. 界面设计与实现4.1系统登陆 4.2系统主界面 4 . 3密码修改 5.文件结构说明 6.致谢 7.参考资料 ,第一章 系统设计目的和意义本系统设计目的 ： 为了建立规范的业务流程、建立高效的数据处理机制。本系统设计意义 ： 1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理病人及医 师今天，计算机的价格已经十分低廉， 性能却有了长足的

2、进步。 它已经应用于许 多领域。现在我国的病人及医师管理水平绝大部分还停留在纸介质的基础上， 这 样的机制已经不能适应时代的发展， 因为它浪费了许多人力和物力， 在信息时代 这种传统的管理方法必然被计算机为基础的信息管理所取代。 我作为一个计算机 应用专业的毕业生， 希望可以在这方面有所贡献。 改革的总设计师邓小平同志说 过“科学技术是第一生产力” ，我希望能用我所学的知识编制出一个实用的程序 来帮助医疗机构进行病人及医师管理。开发这一系统的好处大约有以下几点： 第一、可以存储历年病人及医师的信息，安全、高效； 第二、只需一到二名档案录入员即可操作系统，节省人力； 第三、可以迅速查到病人及医师

3、的各类信息。2为将来医疗机构上网做好准备跟据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870万，互联网已 经十分普及， 本系统为医疗机构将来的上网作了先期工作， 比如医疗机构的网络 管理模式的建立。2系统功能设计HIS ：医院信息系统( Hospital Information System )。是国际医术届已公认的新兴的医学 信息学的重要分支。 其定义如下： 利用电子计算机和通信设备， 为医院所属各部门提供病人 诊疗信息和行政管理信息的采集、存储、 处理、 提取和数据交换的能力， 并满足所有授权用 户的功能需求。工作站： 指一系列功能的集合， 它构成了系统的基本使用单元，

4、这些功能可以根据需要分布 在不同或相同的物理计算机中，而这些计算机又位于不同的物理工作岗位。门诊子系统中的工作站的设计： 我们这个系统涉及到的检验检查工作站。该工作站专门为检验检查医生设计，用于对检验检查工作中的所有信息进行管理，主要功能包括：预约申请、样本管理、数据处理、报 告处理、设备质控、 业务统计、 设备使用登记。通过检查检验工作站可以实现两个方向的打 通，首先是医生工作站与检验检查工作站的连通， 即可以网上发送和接收检验检查报告； 其 次是检验检查工作站与检验检查设备的连通， 即自动或者有效获取各类数据。 同时， 通过该 工作站提供较强的数据分析功能，提高报告质量。在每个检验检查可是

5、提供多台工作站。对检验科、功能科、影像科、病理科、超声波检查室分别配置一台或多台计算机。并根 据不同的检验检查内容，安装不同功能的检验检查工作站。2.1系统设计原则（1）、立足当今计算机实用性技术， 放眼计算机技术发展方向，建设一个先进的、 开放的信 息网络系统。（2）、充分考虑正在进行的金卫工程的要求以及卫生系统未来工作的需要， 建设具有合理超前性的网络系统。（3）、通过对病人入全过程的动态管理， 达到以病人为中心的目的， 并通过网络管理实现信 息全院流通，解决医院工作效率低，药品和资金大量流失等问题。（4）、在效益驱动的原则下，采取自上而下规划，自下而上实施的模式，统一规划，突出重 点，建

6、立榜样。（5）、系统具有先进性、灵活性和开放性，能够容易地将系统根据需要进行扩张和升级。2.2应用体系结构应用体系结构是描述 MIS 集成技术的框架，通过这个框架可以有效地管理和应用计算 机系统， 使生产过程的信息流、 物流和资金流在开放式的计算机网络基础上集成起来， 形成 能够使生产活动优化运转的模式，是一种面向计算机信息处理系统的该粘膜时。2.3网络服务体系结构网络由三级组成：主干网采用多模光纤， 基于交换技术， 提供高速网络通道， 负责全局 数据管理和网络管理以及与 Internet 的联系工作；第二层为各子系统，通过集线器连接各职 能部门及主交换机；第三层为单元层，负责信息采集。2.4

7、系统功能设计因为所有的功能都是增加、修改、删除、显示、查询 中的一种或几种组合所以对共用的主体功能模块作以说明： 这里以门诊为例，其它栏目相同。增加/复制menzhenadd.asp思路：增加：客户端文本框中输入内容，以表单形式发送到服务器，服务器接收，处理，打开库连 接，对门诊表进行写操作， 增加一条记录到门诊表， 新加的这个记录的内容就是接收到的各参数。增加完成后转回到列表页( men zhe nl ist.asp)复制：是变相的增加只不过是不用客户输入全部的内容， 而是复制了已有的某条记录。把这条记录的内容作为参数发送到服务器处理，插入表中。过程与上相同。实现功能的主要代码：接收表单传来

8、参数x_id = Request.Form(x_id)x_n ame = Request.Form(x_ name)x_nian li ng = Request.Form(x_ nian li ng)x_xin gbie = Request.Form(x_x in gbie)打开库表连接，strsql = SELECT *FROM men zhe n WHERE 0 = 1Set rs = Server.CreateObject(ADODB.Recordset)打开记录集，rs.Ope n strsql, conn, 1,2rs.AddNew 增加动作rs.Update 增加后要有一个更新rs

9、.Close 关记录集Set rs = Nothing 清空记录集，不占内存 conn .Close 关库连接Set conn = Nothing 青空库连接，不占资源Resp on se.ClearResp on se.Redirect me nzhe nlist.asp 重定向导至 U歹U表页修改、menzhenEdit.asp思路：从库表中读取对应某ID的一条记录，将库表变量取出放到客户端文本框中显示出来，管理 员修改文本内容，后再以表单形式发送到服务器，服务器接收，处理，打开库连接，对门诊 表进行修改操作，更新对应 ID的唯一一条记录在门诊表中，完成后转回到列表页(men zhe nl

10、ist.asp)实现功能的主要代码： 从库中取出内容；tkey = & key & tkey 就是 tempkey 暂时的变量 strsql = SELECT * FROM men zhe n WHERE id= & tkey Set rs = Server.CreateObject(ADODB.Recordset) rs.Open strsql, conn 开库表?己录集If rs.Eof The nResp on se.ClearResp on se.Redirect me nzhe nlist.aspElsers.MoveFirstEnd If取出库表一条记录存到变量中x_id = rs

11、(id)x_n ame = rs( name) x_nia nli ng = rs( nian li ng) x_xi ngbie = rs(x in gbie) rs.Close关记录集Set rs = Noth ing更新 UPDATAtkey =”& key & strsql = SELECT * FROM men zhe n WHERE id= & tkeySet rs = Server.CreateObject(ADODB.Recordset)rs.Ope n strsql, conn, 1,2If rs.Eof The nResp on se.ClearResp on se.Red

12、irect me nzhe nlist.aspEnd IftmpFld = Trim(x name)把变量再存到暂时变量中，中转一下，不这样做也行，这 样做更清楚If Tri m(tmpFld) & x = x Then tmpFld = Null 如果姓名连上“ X ”与“ X”相 同，那证明姓名变量是空的，那就把姓名变量直接设成空的 NULLrs(name) = tmpFld不管是否为空，只要用暂时变量更新一定不问题，所有的问题大前面都解决了，这就是使用暂时变量 的好处。下面相同tmpFId = Trim(x_ nian li ng)If Trim(tmpFId) & x = x Then

13、 tmpFId = Nullrs( nia nlin g) = tmpFldtmpFld = Trim(x_x in gbie)If Trim(tmpFld) & x = x Then tmpFld = Nullrs(xi ngbie) = tmpFldrs.Update参数传完了，要更新一下记录集rs.Close 关了Set rs = Noth ingconn. CloseSet conn = Noth ingResp on se.ClearResp on se.Redirect me nzhe nlist.asp删除、思路：接收参数ID号，按ID找到对应记录，删除就行了。代码：key =

14、Request.querystring(key) 接收参数 ID 号If key = Or IsNull(key) The nkey = Request.Form(key)End IfIf key = Or IsNull(key) Then Response.Redirect menzhenlist.asp 如果 KEY 就是 ID，如果是空的，就转回列表页，sqlKey = sqlKey & id= & & key & 否则就组成 SQL 语句的一部分，ID=接收的 IDstrsql = SELECT * FROM me nzhe n WHERE & sqlKey上面这条SQL语句是删除的关

15、键Set rs = Server.CreateObject(ADODB.Recordset)rs.Ope n strsql, conn, 1,2Do While Not rs.Eofrs.Delete就是这个语句完成了删除操作，rs.MoveNextLooprs.CloseSet rs = Noth ing显示、思路：对应表，开库，读出所有记录，用表格形式一条一条的循环显示出来，一页显示太长，只显20条，多出来的用分页方式显示代码：a href=me nzhe nlist.asp?order= style=color:#FFFFFF;id&n bsp;56 a href=me nzhe nli

16、st.asp?order= style=color:_|#FFFFFF; name&n bsp;(*)56 a href=me nzhe nlist.asp?order= style=color: #FFFFFF; nian li ng&n bsp;(*)56 a href=me nzhe nlist.asp?order= style=color: #FFFFFF;x in gbie&n bsp;(*)56 &n bsp;&n bsp;&n bsp; total records |If CLng(startRec) CLng(totalRecs) Then |startRec = totalR

17、ecsEnd IfSet the last record to displaystopRec = startRec + displayRecs - 1Move to first record directly for performa nee reas on recCount = startRec - 1If Not rs.Eof The nrs.MoveFirstrs.Move startRec - 1End IfrecActual = 0Do While (Not rs.Eof) And (recCou nt = CLn g(startRec) The nrecActual = recAc

18、tual + 1 %Display alter nate color for rowsIf recCount Mod 2 0 Then bgcolor = #F5F5F5End If%tr bgcolor=&n bsp;&n bsp;&n bsp;&n bsp; a href=View _|a href=Copya href=Delete 查询思路：SQL查询语句的组合，把查询条件设成一个变量，变量值是用户从文本框中输入的。用LIKE 可以实现模糊查询。如：sql=select * from 数据表 where 字段名 like % 字段值 % order by 字段名desc代码：取得传来参

19、数，是用户输入的查询关键字 pSearchpSearch = Request.QueryStri ng(psearch)pSearchType = Request.QueryStri ng(psearchType)If pSearch The npSearch = Replace(pSearch,”)pSearch = Replace(pSearch,)If pSearchType The nWhile In Str(pSearch, ) 0pSearch = Replace(pSearch,)WendarpSearch = Split(Trim(pSearch),)For Each kw I

20、n arpSearchb_search = b_search & (b_search = b_search & n ame LIKE % & Trim(kw) & % OR b_search = b_search & nianling LIKE % & Trim(kw) & % OR b_search = b_search & xin gbie LIKE % & Trim(kw) & % OR 上面组合在一起表示在姓名中或性别中或年龄中有与关键字相似的条件，它们将作为查询 语句的条件，与库连接后打开记录集的 SQL语句组合在一起，完成查询功能。组合后的整个SQL语句应类似于这样：sql=sel

21、ect * from 数据表 where 字段名 like % 字段值 % OR nianling LIKE % & Trim(kw)& % OR xingbie LIKE % & Trim(kw) & % ”If Right(b_search, 4)= OR The n b_search = Left(b_search, Le n( b_search)-4) b_search = b_search & ) & pSearchType & ” ”NextEnd IfEnd If分页部分是现成的组件模块，从书抄来的。原理明白，就是总共如果有 72条记录，每页显示10条，应为8页，72/10=7余2,每一页就是从1到10是一页，从11到20是第二页， 21到30是三页等等类推，就是第N页从N*10开始，到N*10+10结束。这就是