毕业设计论文-医院管理系统—病历管理系统(含源程序代码).doc

源程序代码等全套设计联系QQ 174320523 各专业都有
分类号： TP315 U D C： D10621-408-(2007)5790-0
密 级：公 开 编 号： 2002211056

成都信息工程学院
学位论文

医院管理系统—病历管理系统的设计与实现

论文作者姓名：
刘帆
申请学位专业：
网络工程
申请学位类别：
工学学士
指导教师姓名（职称）：
刘永红（副教授）
论文提交日期：
2007年06月05日

医院管理系统—病历管理系统的设计与实现

摘 要
病历管理系统是医院管理系统的重要组成,该系统的开发主要包括后台数据库的建立以及前台应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库,而对于后者则要求具有齐全完善的应用程序功能,友好人性化的操作界面。该系统采用现代的办公自动化理念,面向中小型医院,实现无纸化办公,确保医疗单位在病历保管实现高效办公,规范管理。
本论文主要介绍了病理管理系统的设计开发与实现的全部过程。并运用功能结构图、数据库关系图和E-R图等对核心模块的设计过程进行了详细的说明。病历管理系统整体基于B/S(浏览器/服务器)模式，后台数据库选用SQL Server 2000，使用ASP嵌入HTML语言来设计实现。实现了病历在保管中的周期过程,完成了从患者的注册到患者的出院等一系列病历流程。简化了繁琐的手工操作,规范化整个病历处理流程,使得病历的流转更方便快捷。

关键词：病历管理；B/S模式；病历流程
Hospital information system—Design and Implementation of Medical records management System

Abstract

Medical records management system is an important component of hospital management system, development of the system mainly consists of two aspects, the establishment of background database and the foreground application. Regarding the former, requires to establishing a database with consistency, integrity, and security. As for the latter demanded Complete a comprehensive application functions, and the human friendly interface. The system uses modern office automation concept, oriented small and medium-sized hospitals, to achieve paperless office. Ensure efficient office, and standardize management in medical records of hospital
This paper introduces the entire process of design and implementation of the medical records management System . And describing the design process of the core module in detail , by using of functional chart, database diagram and E-R map. Medical records management system as a whole based on the B / S (browser / server) mode, background database use SQL Server 2000, to achieve by ASP embedded HTML. Achieving records in the custody of the cycle, from the patients’ registration to leaving hospital. Simplified the cumbersome manual operation, standardized medical records in the whole process, making the transfer of medical records more efficient and convenient.

Key words: Medical records management,；B/S model,；Flow chart

目 录
论文总页数：24页
1引言 1
1.1 课题背景 1
1.2 国内外研究现状 1
1.3 本课题研究的意义 1
2系统开发环境与技术的分析 2
2.1系统需要解决的主要问题 2
2.2系统运行环境 2
2.3相关技术介绍 2
3病历管理系统设计分析 3
3.1病历管理系统概述 3
3.1.1病历管理流程图 4
3.2数据库设计 4
3.2.1 病历管理系统E-R图 4
3.2.2病历管理系统数据库各表详细设计 5
3.3数据库的连接 8
4病历管理系统的实现 8
4.1管理员管理模块 8
4.1.1用户登陆 8
4.1.2管理员添加用户 10
4.1.3 管理员删除用户 12
4.2患者管理模块 12
4.2.1 患者基本信息的录入 12
4.2.2 患者管理的删除和修改 14
4.3病历管理 16
4.3.1病历的添加 16
4.3.2病历的管理 17
4.3.3病历的删除 20
结 论 21
参考文献 21
致 谢 23
声 明 24

1引言
1.1 课题背景
近几年，随着医院的规模不断扩大，用原来的只靠人管理病历的方法已不合时宜。目前我国医院的信息处理基本上还停留在手工方式，劳动强度大且工作效率低，医务人员和管理人员的大量时间都消耗在事务性工作上；病案、临床检验、病理检查等许多宝贵的数据资料的检索十分费事甚至难以实现；对这些资料深入的统计分析手工方式无法进行，不能充分为医学科研利用。
随着计算机应用日益广泛；各行各业对生产管理的自动化、信息化、系统化的要求也不断提高；因而，降低劳动强度、提高劳动效率也就必然促使了医院中电子病历的使用。
1.2 国内外研究现状
电子病历是一个很复杂的项目，国际上有很多国家都要建健康档案，就是想把病历电子化。美国在新奥尔良由于飓风影响导致了大致有50、60万人的医学档案，这些病历都是由纸质的，在社区的诊所或者区域的医院保存，这些人的医学档案丢失，包括当地的州政府认为这是一个巨大的事故。从这件事反过来认识到建立病历电子化的紧迫性和重要性，因为电子病历的存放、利用会更加安全。联邦政府也成立了建立电子病历的委员会，提出了三个基本的原则。第一，要分级保密，可能有些是及其保密的，有些可以为公众共享，这是关于安全私密性的原则。第二，更新的保真性，建立电子病历的静态环境以后会有些变化，包括临床诊断和治疗在这个电子病历应该有记录，至少应该知道是谁诊断的，是什么医生在什么场合下做的修改。 第三，必须具有相当方便容易让人访问，不能有一些政策的堡垒，只要是经过授权的，无论是职业的医师、有关方面需要访问的话应该能够得到这个病历。
1.3 本课题研究的意义
电子病历将提高医院各项工作的效率和质量，促进医学科研、教学；减轻各类事务性工作的劳动强度，使他们腾出更多的精力和时间来服务于病人。电子病历与纸病历相比，最显著的优点就是对信息数据的共享和反复利用。病人看病不需要携带病历，只需提供自己的姓名、病历号或其他信息，医生通过计算机即可得到该病人所有信息。本系统以B/S（Browser/Server）模式作为基本结构，所有程序和数据库存放在服务器上，浏览器端只需安装操作系统和浏览器即可，系统由用户浏览器、Web 服务器二个层次组成，体现了其开发维护简单性的特点。

2系统开发环境与技术的分析
2.1系统需要解决的主要问题
该管理系统面向的主要对象是医院，所以系统管理方面，应该有添加不同等级的管理人员和医务人员并针对不同的用户设置不同的权限，密码管理员能添加医务人员并修改添加人员的密码，同时管理人员只能修改自己的密码。在病历管理页面中病历管理员可以查看所有医务人员的病历录入信息，但是不能修改其中的录入信息。普通医务人员可以通过管理员分配的用户名和密码登录系统，由于权限的设置他们可以看见管理设置栏目但是无法进行操作。医生录入的病历信息只能由自己所看见，并且可以修改，在列表中是无法看见其他医生所录入的病历信息，很好的保证了病人的隐私权利。
2.2系统运行环境
为了保证系统运行的效率和可靠性，系统服务器端应具有较高的软硬件配置，客户端的要求不是很高。此应用程序可广泛运行于国际互联网即英特网，也可适用于内部的局域网。其运行要求如下：
服务器端配置
硬件环境：
CPU:Inter奔腾2.0GHZ以上
内存：256MB以上
硬盘：20G以上
软件环境：Windows 2000 Server SP4(含IIS 5.1)，Microsoft SQL Server
客户端配置
硬件环境：
CPU:Inter赛扬2.0GHZ以上
内存128MB以上
硬盘：1G以上
软件环境：Windows 2000/NT/XP/2003 ，IE6.0
2.3相关技术介绍
ASP：全称是Active server pages，是微软推出的应用与Web应用程序开发的技术 ，被描述为“一个服务器的脚本环境，在这里可以生成和运行动态的、交互的、高性能的Web服务应用程序”，他不是一种编程语言，也不是一种开发工具，而是一种强大的技术框架。
JavaScript：是一种嵌入在HTML文件中的脚本语言，它是基于对象和事件驱动的，能对诸如鼠标单击、表单输入、页面浏览等用户事件做出反应并进行处理。
SQL(Structured Query Language)： 结构化查询语言，是关系数据库的标准语言，通过几个命令，就可以实现定义、查询、更新和控制功能。在ASP 中对后台数据库进行查询、添加、删除和更新等操作所采用的就是SQL 语言。数据查询基本命令是SELECT，SELECT 语句用于对数据库进行查询并返回符合查询条件的数据。在查询语句中使用SQL库函数，可以实现在查询的过程中同时对某属性上的值进行统计分析。
在ASP中常用的就是表单数据的传输和接收，表单数据的传输有POST与GET两种方法，比较常用的是POST，例如常用表单头部为：
立WEB服务器同客户端的联系，并维持这一联系，其实是一个管理会话的对象，不仅可以保持管理会话，而且在此会话中可以为此次会话存储特定用户会话所需的属于自己的个性化信息，当用户在应用程序的Web页面跳转时，Session对象中的所有这些变量不会丢失直到会话过期或被放弃后，但是如果浏览器的Cookie被禁用，将不会发生作用。
3病历管理系统设计分析
3.1病历管理系统概述
病历管理系统主要完成患者的信息输入和病历的查看等相关操作，并实现医生对患者信息的快速查看。本设计主要完成了四个方面的内容，其作用如下：
1）系统管理。在本部分，根据管理员的权限的不同，不同的管理员可以执行不同的任务，病历管理员可以修改病例，而密码管理员只能修改用户的密码，并可以对其个人资料进行修改和操作，进行权限的设置，主要目的是为了是权利分散化。
2）患者个人信息管理。医生首先看到的是已存在的且是该医生诊断过的患者信息，并可以查看，也可以进行修改当天的患者信息但是不能删除。医生通过这样的方式确定在以前的诊断中有无该患者，当录入完成后该病人的信息则进入病人信息库以供医生对其进一步的诊断。
3） 患者病历管理。当患者的个人信息进库后，即可以进行此步的操作，由医生详细填入该病人的病情，并根据病人以前的病史作出自己的判断并保存在服务器数据库，在完成录入后，会自动跳往病历管理首页，并显现出已被自己诊断过的病人。同样医生在此步骤中不具有删除权限。

3.1.1病历管理流程图
病历管理流程图如图3-1所示。

图3-1 病历管理流程图
3.2数据库设计
3.2.1 病历管理系统E-R图

图3-2病历管理系统的E-R图
E-R（Eneity-Relationship Approach）图是最常用的概念模型表示方法，也是数据库的核心和基础，它是按用户的观点来对数据和信息建模，依据概念模型设计应具的特点，真实性、易理解性、易修改性、易转换性。如图3-3所示。

32.2病历管理系统数据库各表详细设计
对于病历管理系统，要应用到的数据库表有：
Disease 患者病历表
Manage_user 在职人员信息表
User 患者个人信息表
Zhiwei 医院职位信息
各表详细信息如下：
表3-1 患者病历表
字段名
数据类型
长度
是否允许为空
字段描述
Id
int
4
否
自动编号ID(主键)
Username
nvarchar
10
否
姓名
Riqi
nvarchar
50
是
住院日期
Jibing
nvarchar
50
是
诊断疾病
Chuyuan
nvarchar
10
是
出院结果
zid
int
4
是
住院号
bid
int
4
是
病床号
zhiliao
ntext
16
是
治疗经过
zhusu
nvarchar
50
是
主诉
xbs
ntext
16
是
现病史
jws
ntext
16
是
既往史
xthg
ntext
16
是
系统回顾
hunyins
nvarchar
50
是
婚姻史
tgjc
ntext
16
是
体格检查
fzjc
ntext
16
是
辅助检查
note
ntext
16
是
其他
author
nvarchar
20
否
医生ID
Shanchu
Int
4
是
删除确认列(1为删除)
在患者病历表中保存的是在所有在医院中看病的患者患病信息，其中用户编号是用户在病历中的唯一标识，是不重复的，同时用户名在该系统中也是不能重复的，这样在病历比较多的情况下仍然能通过编号迅速的查找到病历信息，并且将编号指定为主健。同时设置了用户名和医生ID不能为空，这是因为这些是病历当中最关键的部分，是病历存在的关键。 Shanchu字段名是不会在该系统中显示出来的。
表3-2 在职人员信息表
字段名
数据类型
长度
是否允许为空
字段描述
ID
int
4
否
自动编号(主键)
M_username
varchar
50
是
登陆名
M_password
varchar
50
是
密码
M_realname
varchar
50
是
真实姓名
M_sex
varchar
50
是
性别(1为男性)
M_tel
varchar
50
是
联系电话
M_email
varchar
50
是
电子邮件
M_address
varchar
50
是
住址
M_zip
varchar
50
是
邮编
M_purview
int
4
是
权限
在职人员信息表中保存有本医院所有在职员工的基本信息，用户编号设置为主健。在该表中保存的有在职人员的个人基本信息和所拥有的权限。

表3-3 患者个人信息表
字段名
数据类型
长度
是否允许为空
字段描述
id
int
4
否
自动编号（主键）
Username
nvarchar
20
是
用户名
Password
int
4
是
密码
cname
nvarchar
10
是
姓名
Age
Int
4
是
年龄
Sex
Int
4
是
性别
zhiye
Nvarchar
50
是
职业
Hunyin
Int
4
是
婚姻
Minzu
Nvarchar
5
是
民族
Jiguan
Nvarchar
10
是
籍贯
Address
Nvarchar
50
是
现住址
Phone
Nvarchar
20
是
联系电话
guomin
Nvarchar
80
是
过敏史
shenfenzheng
varchar
50
否
身份证
Dis
Nvarchar
50
是
重要疾病
updatetime
Datetime
8
是
日期
Note
Ntext
16
是
其他
author
nvarchar
20
是
输入病历的医生编号
患者个人信息表是这个系统中的一个很关键的信息数据库表，因为病历的所有信息均是围绕着这张表展开，除了用户编号外，还有很关键的用户的身份证信息是不能为空的，因为用户真实姓名如果相同，只有用身份证确认病历的归属。Author字段名是不会在该系统中显示出来。
表3-4 医院职位信息
字段名
数据类型
长度
是否允许为空
字段描述
id
Int
4
否
自动编号（主键）
Daima
Int
4
是
职位代码
shuoming
varchar
50
是
职位说明
该表主要说明系统中各登陆人员的级别以及所处的职位。同样设置Id为主健。
3.3数据库的连接
根据系统功能的设计要求及功能模块的划分，本系统用SQL Server 2000 建立数据库,其中包括管理员数据表，病人信息数据表和病人患病情况信息表等数据表。在整个系统开发的过程中，数据库连接是必不可少的，是公用的，可以把这部分单独拿出来，做成一个函数，需要的时候调用这个函数就可以了。在ASP中同数据联系的主要是ADO，对数据库进行操作处理，要让ADO对象能够存取数据库，最重要的东西就是OLEDB驱动程序或ODBC驱动程序，ADO才能够进行存取。本设计采用了ODBC数据库连接方式，首先要建立同数据源的连接，利用了ADO的Connection建立同数据库的联系。建立ADODB.Connection，使用此对象的Open方法打开数据库。其主要代码如下所示：
<%
dim Conn
sub DB_Connect(sDBConnect)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sDBConnect
end sub%>
<%const strconn="DSN=biling_asp;uid=sa;pwd=;database=biling"%>
我们将这段代码单独封装在一个名为config. Asp和_lib.asp的文件中，当某动态网页中需要向数据库读取或者存取数据时，将以下代码

包含在该页面的前面，既可以实现与数据库建立连接。
4病历管理系统的实现
4.1管理员管理模块
在整个系统中。首先要写的是管理员模块，因为负责整个登陆权限的控制，管理员模块包含3个模块，其中有些功能是相辅相成的。

4.1.1用户登陆
前面在数据库表创建时已经创建好了用户信息表，数据库中的m_username和m_password字段用来验证用户身份的，有了这两项就可以较容易的写出验证用户登陆的程序了，首先看用户登陆的界面，如图4-1所示。

图4-1 登陆页面
我们将这个页面命名为default.asp，页面中“用户名”和“密码”内容均为必填项目。验证用户身份的程序如下所示。
Call DB_Connect(strconn)
sql = "select * from [Manage_User] where m_UserName='" & sname & "' And m_PassWord='"&spwd&"'" ‘在表Manage_user中查询用户身份是否存在。
Set rs = conn.Execute(sql) ’执行这个SQL语句，同时返回一个包含了查询信息的记录集
I f Not rs.EOF = True Then
Session("Name") = rs("m_realName")
Session("vip") = rs("m_purview")’读取权限判断值，并保存在session中
rs.Close
Set rs = Nothing
Call DB_Disconnect
Response.Redirect"/bingli/manage.asp"
Response.end
Else
msg="您输入了错误的用户名或口令！"
rs.Close
Set rs = Nothing
Call DB_Disconnect
End If
I f Not rs.EOF = True Then这一句判断用户信息是否存在，EOF和BOF是数据查询记录集的属性，他们分别表示最后一条记录和第一条记录的前面，在最后个纪录前是真的则该用户存在。在验证成功后则可以进入管理页面了，否则会弹出“您输入了错误的用户名或口令！”的对话框，这时请重新输入正确的用户名或密码。

4.1.2管理员添加用户
涉及到用户的添加，会想到用户信息的验证。当用户以管理员身份登录后，点击“管理员管理”后，管理员即可以查看所有在职人员的信息，并可以进行一系列符合权限的活动，如删除和修改密码。如图4-2

图4-2 管理员添加用户界面
在本设计中所用的Respone、Request、Session以及Server都是ASP内建对象，不必经过任何的设置就可以直接使用，但除了这些对象以外，例如使用Server.CreateObject("adodb.recordset")对象，则必须通过Server对象的CreateObject对象来建立和使用。其语法格式为：Server.CreateObject("Component Name")来建立。但是通过这样的创建的对象具有页作用域，也就是说，在当前ASP页处理完成后，服务器将破坏这些对象。如果要创建有会话或应用程序作用域的对象，可以使用标志并设置Session的属性，较常用的方法如下：
<%set session(“ad”)%=Server.CreateObject(“mswc.adrotator”) >
需要注意的是不能创建与内建对象同名的对象实例，否则将返回错误。添加用户程序中，最主要的是向据库中写入信息的，在这里将用到与数据库有关的对象-------Recordset 。在ADO中的Connection、Rec36、ordest及Command对象中，以Recordest对象最重要，是存取数据库中必不可少的部分，把表单中的数据插入到数据库中有3种方法：
1）直接使用SQL语句。其优点是速度快，不消耗资源；缺点是字段较多时不易排错。
2）使用Recordest对象。其优点是代码容易阅读，容易排错；缺点是消耗系统资源。

3）先准备好“字段名称数组”及“字段值数组”，然后利用AddNew 字段名数组 字段值数组将数据记录写入数据库。
前两种方法在本设计中均被使用，其中第二种方法最直接的反映出数据库插入的数值，比较容易排错。在第一种方法中的Values后面的值要一一对应，如果该值为空，可以不填写，但表37、示分隔的“’”号不能省略。
本设计中添加用户的核心程序如下所示：
If msg=”” then
If Instr(username,"=")>0 or Instr(username,"%")>0 or Instr(username,chr(32))>0 or Instr(username,"?")>0 or Instr(username,"&")>0 or Instr(username,";")>0 or Instr(username,",")>0 or Instr(username,"'")>0 or Instr(username,",")>0 or Instr(username,ch38、r(34))>0 or Instr(username,chr(9))>0 or Instr(username,"")>0 or Instr(username,"$")>0 Then
msg="用户名包含非法字符!"
end if
end If
sql="select count(*) from [manage_user] where (m_username='" & username & "' or m_email='" & email & "') "’连接数据库
set rs=Conn.execute(sql)
if rs(0)>0 then ‘返回用户名或邮箱相同的记39、录个数以进行判断
msg="用户名或邮箱已存在!"
end if
rs.close’最快的关闭Recordset对象
set rs=nothing’将不用的对象进行释放
if msg="" then
sql="insert into [manage_user] (m_username, m_password, m_realname, m_Sex, m_tel, m_email, m_address, m_zip, m_purview) "
sql= sql & " values('"&username&"','"&userPwd&"','" &realname&"','"40、 &rdoSex& "','"&tel& "','" &email& "','"&address&"','"&zip& "','"&purview&"')"
Conn.execute(sql)
end if
在添加用户的时候对用户名进行了一长窜的判断，用了Vbscript中的Instr()函数，它的作用是返回某字符串在另一字符串中第一次出现的位子。如Instr(username,"%")，在该表达式中username代表了接受搜索的字符串表达式，“%”代表要搜索的字符串表达式。如果在username中找到了“%”，则将会返回“%”的具体位于第几个字符上，没有找到则返回0，所以这里进行41、了判断是否大于0来确认用户名中是否包含有字符。
其主要目的是判断的哪些字符不能在用户名中存在，因为这些符号如果不能被数据库很好的处理，数据库则会将有关的东西反馈到用户端，危害系统的安全性。所以要避免一些特殊字符的输入。

4.1.3 管理员删除用户
管理员在进行日常维护时，首要的工作是确保本系统所使用的人是唯一的，医院进行的人员调动会影响系统的安全性，所以管理员的日常工作是根据上级人事主管的文件进行用户的删除，以保证只有本院的医务人员才能进入本系统查看和修改病历。主要代码如下所示：
<%call DB_Connect(strconn)
id=request("id")
sql="42、delete from [manage_user] where id=" & id
Conn.execute(sql)
call DB_DisConnect
response.redirect "manage_admin.asp">%
在表名Manage_user上面加上方括号是因为Manage_user表可能是一个系统表，打上方括号才不会和系统有冲突，保证系统的兼容性。
4.2患者管理模块
患者管理模块基本功能时录入患者个人基本信息及有无患病史，为医生的进一步判断达4下基础。该模块主要有3个部分组成。

4.2.1 患者基本信息的录入
患者在就医过程中，第一步应该是登记自43、己的个人信息，在这里称为注册。信息的录入对时间的准确性要求很搞，因为如果出现医疗纠纷，那么患者的就诊时间会直接影响到医院是否为该患者在指定的时间中诊断过。因为医院中的电脑属于统一配置，统一管理，不能用自己的电脑登录医院病历系统并且不能自行修改时间，所以所有的时间均是以本机时间作为为患者诊断时间进行登录的直接保存在user表中updatetime中。
在医生和病人数量教多时，为了便于快速的区分患者是在哪位医生看病的，以及能只显示该医生的诊断记录，在添加患者个人基本信息时候把用户登录时的seisson<”name”>的值写入患者个人信息user表中的author字段，在管理患者界面中则可以显示该44、医生已诊断的人数和详细的资料。代码如下所示。
">’在医生输入病历时纪录病人所属医生
添加患者信息时候，为了保证能迅速和准确的联系到患者本人，其个人基本信息是必须完全填写的，包括身份证信息，住址和电话等等，在这个页面医生可以填写病人的基本资料，如图4-3。

图4-3 患者基本信息录入界面
为了保证数据的准确性，在添加患者信息时候先用javascript 进行初步判断信息是否填写完和填写是否标准，比如电话、姓名、住址等。在后台用SQL45、语句保证用户名和身份证没有重复。后台程序如下所示：
<%call DB_Connect(strconn)
if founderr=false then
dim sqlReg,rsReg,rs
sqlReg="select * from [User] where shenfenzheng='" & shenfenzheng & "'or username='"& username &"'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
if not(rsReg.bof46、 and rsReg.eof) then’判断数据集中有无记录
founderr=true
errmsg=errmsg & "你注册的身份证已经存在！"
else
sql="insert into [user] (username, password, cname, age, sex, zhiye,hunyin,minzu,jiguan,address,phone,guomin,dis,updatetime,note,author) "
sql= sql & " values('"&username&"','"&password&"','47、" &cname&"','" &age&"','"&sex&"','"&zhiye&"','"&hunyin&"','"&minzu&"','"&jiguan&"','"&address&"','"&phone&"','"&guomin&"','"&shenfenzheng&"','"&dis&"','"&updatetime&"','"¬e&"','"&author&"')"
Conn.execute(sql)
founderr=false
end if
rsReg.close
set rsReg=nothing
end if %>
<%call48、 DB_DisConnect%>

4.2.2 患者管理的删除和修改
医生在患者管理页面可以看到经过自己诊断过的患者个人信息或是已经在医生那里登记过的患者信息，医生可以查看患者的详细信息。如果该患者有病历的则可以直接转入病历页面，本部分所实现的主要功能是帮助医生统计当日患病信息，以便于医院在药物采购时有依据。在该页面中如果是管理员查看，则可以查看所有医生的病人信息，若不是则只能查看当前医生添加的用户信息。
在患者管理的页面，可以看到病人的基本信息，比如重要疾病和联系电话，其主要目的是方便医生浏览以往的病人资料，做到病人的回访，如图4-4。

图4-4 49、患者管理界面
代码如下：
<%
dim rs,sql
Call DB_Connect(strconn)
if session("vip")="3" then
sql="select * from [User] order by ID desc"
else
sql="select * from [User] where author='"&session("name")&"' order by ID desc"
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
……………50、……(省略代码)
if not rs.eof then
do while not rs.eof
rs.movenext
loop
end if
rs.Close
set rs=Nothing
Call DB_Disconnect
%>
当患者没有病历的时候可以删除患者的个人信息，但是要经过判断，有病历的情况下是不允许删除的。患者信息删除代码如下所示：
<%dim ID,sql,rs,msg
msg=""
ID=trim(Request("ID"))
Call DB_Connect(strconn)
set rs=server.createobject("ado

var _hmt = _hmt || [];
(function() {
var hm = document.createElement("script");
hm.src = "https://hm.baidu.com/hm.js?6e2a21bc68316db308b5fdc9a0d11f2e";
var s = document.getElementsByTagName("script")[0];
s.parentNode.insertBefore(hm, s);
})();

关于我们      便捷服务       自信AI       AI导航        抽奖活动©2010-2025 宁波自信网络信息技术有限公司  版权所有客服电话：4009-655-100  投诉/维权电话：[phone]浙公网安备33021202000488号   浙ICP备2021020529号-1  |  浙B2-20240490  关注我们 ：             

登录

首页

分类

学堂

公告

帮助中心

function stopPropagation(e) {
var ev = e || window.event;
if (ev.stopPropagation) {
ev.stopPropagation();
}
else if (window.event) {
window.event.cancelBubble = true;//兼容IE
}
}
$("#navmore").click(function (e) {
$("#navcontent").show();
$("#navlogo").show();
stopPropagation(e);
var navcontentwidth = $("#navcontent").width();
$('#navcontent').css({ 'right': '-' + navcontentwidth + 'px' });
$("#navcontent").show().animate({ "right": 0 }, 300);
});
$(document).bind('click', function () {
var navcontentwidth = $("#navcontent").width();
$("#navcontent").animate({ 'right': '-' + navcontentwidth + 'px' }, 300, function () { $("#navcontent").hide(); });
$("#navlogo").fadeOut(300);
});
$("#navcontent").click(function (e) {
stopPropagation(e);
});
$("#navclose").click(function (e) {
var navcontentwidth = $("#navcontent").width();
$("#navcontent").animate({ 'right': '-' + navcontentwidth + 'px' }, 300, function () { $("#navcontent").hide(); });
$("#navlogo").fadeOut(300);
});

function BaseShare(title, desc, imgUrl) {
var link = "https://m.zixin.com.cn/docdown/4971974.html";
if (wx) {
wx.config({
debug: false, // 开启调试模式,调用的所有api的返回值会在客户端alert出来，若要查看传入的参数，可以在pc端打开，参数信息会通过log打出，仅在pc端时才会打印。
appId: 'wx49d3b0cb6fb382c4', // 必填，公众号的唯一标识
timestamp: '1748528876', // 必填，生成签名的时间戳
nonceStr: '13FE9D84310E77F13A6D184DBF1232F3', // 必填，生成签名的随机串
signature: 'eaea9d2f41df527eb1b887ff3b18c8bc45986452',// 必填，签名，见附录1
jsApiList: ['onMenuShareAppMessage', 'onMenuShareTimeline', 'updateAppMessageShareData', 'updateTimelineShareData', 'hideMenuItems'] // 必填，需要使用的JS接口列表，所有JS接口列表见附录2
//openTagList: ["wx-open-launch-weapp"]//H5打开小程序
});
wx.ready(function () { //需在用户可能点击分享按钮前就先调用
wx.hideMenuItems({// 要隐藏的菜单项，只能隐藏“传播类”和“保护类”按钮，所有menu项见附录3
menuList: ['menuItem:share:qq', 'menuItem:favorite', 'menuItem:share:QZone', 'menuItem:share:email', 'menuItem:originPage', 'menuItem:readMode', 'menuItem:delete', 'menuItem:editTag', 'menuItem:share:facebook', 'menuItem:share:weiboApp', 'menuItem:share:brand']
});
var shareData = {
title: title, // 分享标题
desc: desc,//这里请特别注意是要去除html
link: link, // 分享链接，该链接域名或路径必须与当前页面对应的公众号JS安全域名一致
imgUrl: imgUrl, // 分享图标
};
wx.updateAppMessageShareData(shareData);//1.4 分享到朋友
wx.updateTimelineShareData(shareData);//1.4分享到朋友圈
});
}
}
function BaseShare(title, desc, imgUrl, link) {
if (link=="")
link = "https://m.zixin.com.cn/docdown/4971974.html";
if (wx) {
wx.config({
debug: false, // 开启调试模式,调用的所有api的返回值会在客户端alert出来，若要查看传入的参数，可以在pc端打开，参数信息会通过log打出，仅在pc端时才会打印。
appId: 'wx49d3b0cb6fb382c4', // 必填，公众号的唯一标识
timestamp: '1748528876', // 必填，生成签名的时间戳
nonceStr: '13FE9D84310E77F13A6D184DBF1232F3', // 必填，生成签名的随机串
signature: 'eaea9d2f41df527eb1b887ff3b18c8bc45986452',// 必填，签名，见附录1
jsApiList: ['onMenuShareAppMessage', 'onMenuShareTimeline', 'updateAppMessageShareData', 'updateTimelineShareData', 'hideMenuItems'] // 必填，需要使用的JS接口列表，所有JS接口列表见附录2
//openTagList: ["wx-open-launch-weapp"]//H5打开小程序
});
wx.ready(function () { //需在用户可能点击分享按钮前就先调用
wx.hideMenuItems({// 要隐藏的菜单项，只能隐藏“传播类”和“保护类”按钮，所有menu项见附录3
menuList: ['menuItem:share:qq', 'menuItem:favorite', 'menuItem:share:QZone', 'menuItem:share:email', 'menuItem:originPage', 'menuItem:readMode', 'menuItem:delete', 'menuItem:editTag', 'menuItem:share:facebook', 'menuItem:share:weiboApp', 'menuItem:share:brand']
});
var shareData = {
title: title, // 分享标题
desc: desc,//这里请特别注意是要去除html
link: link, // 分享链接，该链接域名或路径必须与当前页面对应的公众号JS安全域名一致
imgUrl: imgUrl, // 分享图标
};
wx.updateAppMessageShareData(shareData);//1.4 分享到朋友
wx.updateTimelineShareData(shareData);//1.4分享到朋友圈
});
}
}

首页

分类

专题

我的

$(document).ready(function () {
var arr = $(".headercontent");
for (var i = 0; i < arr.length; i++) {
(function (index) {
var url = "https://m.zixin.com.cn/header.aspx";
$.get(url + "?tp=0&t=" + (new Date()).valueOf(), function (d) {
try {
arr.eq(index).empty().html(d);
} catch (e) { }
try {
arr.html(d);
} catch (e) { }
});
})(i);
}
});

$("img.lazys").lazyload({
threshold: 200,
effect: "fadeIn"
});

ordest及Command对象中，以Recordest对象最重要，是存取数据库中必不可少的部分，把表单中的数据插入到数据库中有3种方法：
1）直接使用SQL语句。其优点是速度快，不消耗资源；缺点是字段较多时不易排错。
2）使用Recordest对象。其优点是代码容易阅读，容易排错；缺点是消耗系统资源。

3）先准备好“字段名称数组”及“字段值数组”，然后利用AddNew 字段名数组 字段值数组将数据记录写入数据库。
前两种方法在本设计中均被使用，其中第二种方法最直接的反映出数据库插入的数值，比较容易排错。在第一种方法中的Values后面的值要一一对应，如果该值为空，可以不填写，但表示分隔的“’”号不能省略。
本设计中添加用户的核心程序如下所示：
If msg=”” then
If Instr(username,"=")>0 or Instr(username,"%")>0 or Instr(username,chr(32))>0 or Instr(username,"?")>0 or Instr(username,"&")>0 or Instr(username,";")>0 or Instr(username,",")>0 or Instr(username,"'")>0 or Instr(username,",")>0 or Instr(username,chr(34))>0 or Instr(username,chr(9))>0 or Instr(username,"")>0 or Instr(username,"$")>0 Then
msg="用户名包含非法字符!"
end if
end If
sql="select count(*) from [manage_user] where (m_username='" & username & "' or m_email='" & email & "') "’连接数据库
set rs=Conn.execute(sql)
if rs(0)>0 then ‘返回用户名或邮箱相同的记录个数以进行判断
msg="用户名或邮箱已存在!"
end if
rs.close’最快的关闭Recordset对象
set rs=nothing’将不用的对象进行释放
if msg="" then
sql="insert into [manage_user] (m_username, m_password, m_realname, m_Sex, m_tel, m_email, m_address, m_zip, m_purview) "
sql= sql & " values('"&username&"','"&userPwd&"','" &realname&"','" &rdoSex& "','"&tel& "','" &email& "','"&address&"','"&zip& "','"&purview&"')"
Conn.execute(sql)
end if
在添加用户的时候对用户名进行了一长窜的判断，用了Vbscript中的Instr()函数，它的作用是返回某字符串在另一字符串中第一次出现的位子。如Instr(username,"%")，在该表达式中username代表了接受搜索的字符串表达式，“%”代表要搜索的字符串表达式。如果在username中找到了“%”，则将会返回“%”的具体位于第几个字符上，没有找到则返回0，所以这里进行了判断是否大于0来确认用户名中是否包含有字符。
其主要目的是判断的哪些字符不能在用户名中存在，因为这些符号如果不能被数据库很好的处理，数据库则会将有关的东西反馈到用户端，危害系统的安全性。所以要避免一些特殊字符的输入。

4.1.3 管理员删除用户
管理员在进行日常维护时，首要的工作是确保本系统所使用的人是唯一的，医院进行的人员调动会影响系统的安全性，所以管理员的日常工作是根据上级人事主管的文件进行用户的删除，以保证只有本院的医务人员才能进入本系统查看和修改病历。主要代码如下所示：
<%call DB_Connect(strconn)
id=request("id")
sql="delete from [manage_user] where id=" & id
Conn.execute(sql)
call DB_DisConnect
response.redirect "manage_admin.asp">%
在表名Manage_user上面加上方括号是因为Manage_user表可能是一个系统表，打上方括号才不会和系统有冲突，保证系统的兼容性。
4.2患者管理模块
患者管理模块基本功能时录入患者个人基本信息及有无患病史，为医生的进一步判断达4下基础。该模块主要有3个部分组成。

4.2.1 患者基本信息的录入
患者在就医过程中，第一步应该是登记自己的个人信息，在这里称为注册。信息的录入对时间的准确性要求很搞，因为如果出现医疗纠纷，那么患者的就诊时间会直接影响到医院是否为该患者在指定的时间中诊断过。因为医院中的电脑属于统一配置，统一管理，不能用自己的电脑登录医院病历系统并且不能自行修改时间，所以所有的时间均是以本机时间作为为患者诊断时间进行登录的直接保存在user表中updatetime中。
在医生和病人数量教多时，为了便于快速的区分患者是在哪位医生看病的，以及能只显示该医生的诊断记录，在添加患者个人基本信息时候把用户登录时的seisson<”name”>的值写入患者个人信息user表中的author字段，在管理患者界面中则可以显示该医生已诊断的人数和详细的资料。代码如下所示。
">’在医生输入病历时纪录病人所属医生
添加患者信息时候，为了保证能迅速和准确的联系到患者本人，其个人基本信息是必须完全填写的，包括身份证信息，住址和电话等等，在这个页面医生可以填写病人的基本资料，如图4-3。

图4-3 患者基本信息录入界面
为了保证数据的准确性，在添加患者信息时候先用javascript 进行初步判断信息是否填写完和填写是否标准，比如电话、姓名、住址等。在后台用SQL语句保证用户名和身份证没有重复。后台程序如下所示：
<%call DB_Connect(strconn)
if founderr=false then
dim sqlReg,rsReg,rs
sqlReg="select * from [User] where shenfenzheng='" & shenfenzheng & "'or username='"& username &"'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
if not(rsReg.bof and rsReg.eof) then’判断数据集中有无记录
founderr=true
errmsg=errmsg & "" &cname&"','" &age&"','"&sex&"','"&zhiye&"','"&hunyin&"','"&minzu&"','"&jiguan&"','"&address&"','"&phone&"','"&guomin&"','"&shenfenzheng&"','"&dis&"','"&updatetime&"','"¬e&"','"&author&"')"
Conn.execute(sql)
founderr=false
end if
rsReg.close
set rsReg=nothing
end if %>
<%call DB_DisConnect%>

4.2.2 患者管理的删除和修改
医生在患者管理页面可以看到经过自己诊断过的患者个人信息或是已经在医生那里登记过的患者信息，医生可以查看患者的详细信息。如果该患者有病历的则可以直接转入病历页面，本部分所实现的主要功能是帮助医生统计当日患病信息，以便于医院在药物采购时有依据。在该页面中如果是管理员查看，则可以查看所有医生的病人信息，若不是则只能查看当前医生添加的用户信息。
在患者管理的页面，可以看到病人的基本信息，比如重要疾病和联系电话，其主要目的是方便医生浏览以往的病人资料，做到病人的回访，如图4-4。

图4-4 患者管理界面
代码如下：
<%
dim rs,sql
Call DB_Connect(strconn)
if session("vip")="3" then
sql="select * from [User] order by ID desc"
else
sql="select * from [User] where author='"&session("name")&"' order by ID desc"
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
…………………(省略代码)
if not rs.eof then
do while not rs.eof
rs.movenext
loop
end if
rs.Close
set rs=Nothing
Call DB_Disconnect
%>
当患者没有病历的时候可以删除患者的个人信息，但是要经过判断，有病历的情况下是不允许删除的。患者信息删除代码如下所示：
<%dim ID,sql,rs,msg
msg=""
ID=trim(Request("ID"))
Call DB_Connect(strconn)
set rs=server.createobject("ado关于我们      便捷服务       自信AI       AI导航        抽奖活动©2010-2025 宁波自信网络信息技术有限公司  版权所有客服电话：4009-655-100  投诉/维权电话：[phone]浙公网安备33021202000488号   浙ICP备2021020529号-1  |  浙B2-20240490  关注我们 ：