门诊就诊系统的设计与实现.docx

1、门诊就诊系统的设计与实现分类号：TP315 U D C：D10621-408-(2007)6024-0密 级：公 开 编 号：2003031175成 都 信 息 工 程 学 院学 位 论 文门诊就诊系统的设计与实现论文作者姓名：张 震申请学位专业：计算机科学与技术申请学位类别：工学学士指导教师姓名（职称）：杨上金(副研究员)论文提交日期：2007年06月10日门诊就诊系统的设计与实现摘 要进入21世纪以来，网络的空前发展给人们的工作和生活带来了极大的便利，信息化建设已经成为节约运营成本、提高工作效率的首选。相比之下，国内相当数量的中小医院的门诊工作流程还采用相对保守的手工工作方式，数据信息查询

2、和存储的成本较高，但效率却很低下。门诊就诊系统是典型的医院信息系统(HIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、安全性好的数据库；而对于后者则要求具备应用程序功能完备,易使用等特点。本系统使用Visual Basic.NET+Access，设计开发了门诊就诊系统。通过网络间的数据交换来实现注册、挂号、就诊、收费等几项工作，从而提高医疗部门在门诊就诊过程中的工作效率和质量。本论文详细介绍门诊就诊系统的开发过程。关键词：门诊就诊；挂号；就诊；.Net；Design of Out-Patient Attendance Syst

3、emAbstractOut-Patient attendance system is a typical hospital information system (HIS), which includes building up data-base in background and developing the application interface in foreground. The former requires consistency, integrality and security of data. The back-stage should make the applica

4、tion powerful and easily use.This system is developed byVisual Basic.NET+ ACCESS.and achieves registration, attendance and charge in order to improving the efficiency and quality of health department. In this paper, these functions and the process of development of Out-Patient system will be introdu

5、ced in detail.Key words: Outpatients; Register; Attendance; .Net目 录论文总页数：18页1 引 言 12 相关理论技术 12.1 .Net技术 22.2 ACCESS数据库 23 用户需求分析 23.1 用户角色需求 23.2 功能需求 33.2.1 注册功能 33.2.2 挂号功能 33.2.3 医生功能 33.2.4 收费功能 33.2.5 管理功能 43.3 性能需求 44 门诊就诊系统的设计 44.1 设计思路 44.2 总体框架 44.2.1 系统管理员功能 54.2.2 普通用户功能 64.3 数据库设计 75 详细设

6、计 85.1 用户登陆模块 85.2 用户功能模块 105.2.1 注册病人 105.2.2 挂号 105.2.3 医嘱录入 115.2.4 收费 125.3 管理员模块 135.3.1 用户添加 135.3.2 用户解冻 135.3.3 字典维护 145.3.4 报表查询 146 系统测试 156.1 测试环境 156.2 测试结果 15结 论 15参考文献 16致 谢 17声 明 181 引 言医院信息系统（Hospital Information System, HIS）,指利用电子计算机和通信设备，为医院所属各部门提供病人诊疗信息和行政管理信息的收集、存储、处理、提取和数据交换的能力，

7、并满足所有授权用户的功能需求。门诊就诊系统作为医院信息系统的一个子类，具有其自身的特点和复杂性，这是医院本身的目标、任务和性质决定的，它不仅要和医院信息系统的其他子系统一样为医院的管理提供便利，提高整个医院的运作效率，而且还应该支持以病人医疗信息记录为中心的整个门诊医疗过程。门诊就诊系统应该包括以下几个方面：病人注册、病人挂号、病人就诊和病人收费。其中，病人注册和病人挂号是病人就诊的准备工作，病人就诊包括下医嘱和配药，而收费则贯穿了整个病人就诊。传统的流程病人挂号，然后进入相应的科室就诊，医生通过询问病人的具体病情或要求病人做某种类型的检查来确定病因并开出医嘱，完成诊断过程。可以看出，传统的工

8、作流程存在着以下的局限性：1) 整个过程主要的数据记录主要依靠手写，效率不高，易出错；2) 诊断过程完成后病人诊断信息不便于存储和查询；3) 整个医疗系统内部缺乏对于当前某个阶段内的病人相关信息进行针对性统计分析的具体实现手段。由于计算机已经成为我们工作的得力助手，它能代替人工进行许多繁杂而重复的劳动，具备节约资源、提高效率等特点，因此我们使用计算机建立局域网来实现门诊就诊系统。本文将介绍医疗门诊就诊系统的设计和开发工作，因此，文章将涵盖以下三个方面的内容：1) 介绍贯穿项目设计，开发始终的VB.NET+ACCESS技术。2) 介绍医疗门诊就诊系统的详细需求。3) 介绍医疗门诊就诊系统的具体实

9、现。通过传统的医疗门诊就诊流程和利用网络技术的门诊就诊的比较不难看出，医疗门诊就诊网络化将是今后医疗门诊领域的发展趋势。开发这样一套应用系统，是推进医疗工作信息化的一个重要环节。2 相关理论技术本设计的门诊就诊系统采用Microsoft Visual Studio 2005来开发应用程序。而使用VB.Net语言，它比以前的VB版本更加简单和直观。数据库则采用ACCESS。2.1 .Net技术.Net架构是一种新的计算平台，它简化了在高度分布式Internet环境中的应用程序开发，旨在提供一个一致的、面向对象的、将软件部署和版本控制冲突最小化的代码执行环境。.Net是微软推出的新一代开发平台，有

10、很多新的特性是对以前版本的增强。其特点在于：1).标准集成，提供一直的面向对象的编程环境；2).简化了应用，不使用注册表，而是每个应用程序都使用自己局部的组件；3).强大的代码管理，原来VB开发人员面临的问题比如内存管理、线程和进程创建现在都可以由.Net来处理，拥有了被管理的代码，则可以访问.Net所有跨语言的能力；4).充足的学习资源，.Net的方面的书要比其它所有编程技术的书都多，微软和第三方团体开设了很多课程，可以让开发人员很快就上手。VB.Net是现代化的语言，完全面向对象的，设计的时候消除了很多VB的矛盾。2.2 ACCESS数据库ACCESS是微软公司开发的一款桌面数据库。其特点

11、在于：1).在数据量不是很大的情况下，其效率完全能够满足平时使用的要求；2).可移植性强，当数据量增大后，系统的查询和处理速度无法达到要求时，则可很容易的转向SQL Server等大型数据库，代码部分基本不用改动；3).目前办公室里的大多数电脑通常都安装有Office系列软件，在这样的电脑软件环境下不用再安装额外的数据库引擎，就能进行数据库的管理；4).该数据库文件单一，利于数据的导入与导出。3 用户需求分析3.1 用户角色需求根据华西医院门诊就诊的过程(如图3-1)，整个系统应该有五个操作用户角色，即注册员，挂号员，医生，收费员和系统管理员。图3-1 病人就诊流程注册员负责注册病人信息；挂号

12、员根据病人需求选择科室挂号；医生处理诊断过程和开药；收费员根据医嘱收费；系统管理员在后台对系统进行用户管理并展开系统的正常运行维护工作。每个角色操作的共性是通过密码验证后登录，通过框体显示自己的使用权限。角色工作完成后，通过退出选项关闭系统。3.2 功能需求系统功能主要包括以下几个方面：a.注册信息处理；b.挂号信息处理；c.就诊信息处理；d.收费信息处理；e.系统信息管理。按照不同的角色权限对具体功能描述如下：3.2.1 注册功能注册员通过登陆界面登陆成功后，可以选择注册新病人、编辑注册病人和删除注册病人。注册新病人通过填写表格，包括姓名、性别、年龄、地址、电话完成注册，病人编号采用自动随机

13、生成方式产生。编辑和删除病人信息则通过病人编号读取病人数据，达到编辑和删除的功能。3.2.2 挂号功能挂号员通过登录页面登录成功后，可以挂号、退号、查询病人挂号信息，只需输入病人的编号提交即可。挂号是当读取病人注册信息后，根据病人需求选择相应的挂号科室。退号也通过病人编号读取已经挂出的号，提交后则完成退号。查询病人挂号信息则通过病人编号列表选择相应的病人，显示出是否挂号以及挂号的科室信息。3.2.3 医生功能医生通过登录页面登录成功后，可以录入医嘱和编辑医嘱。病人找到相应科室后到医生处就诊，医生根据病人编号读取病人信息，通过病人信息中挂号信息判断此病人是否为挂的是本科室的号，如果是则开始就医。

14、就医后医生需选择相应的医疗信息和用药信息以及填写病人医嘱。医生也可根据病人编号修改医疗信息用药情况和医嘱。3.2.4 收费功能收费员通过登录页面登录成功后，可以进行收费，分为医疗收费、药品收费以及缴费查询。收费员根据医生开具的医疗信息和药品信息可分别对两种项目进行收费。缴费查询则根据病人编号可查询到该病人是否已缴费。3.2.5 管理功能系统管理员通过登录页面登录成功后，可以进行系统用户的添加、编辑和删除，系统字典的添加，系统报表的查询以及用户的解冻。对于添加用户，需要管理员填写用户的相关信息并选择该用户在此系统中相应的权限。编辑和删除用户都根据用户姓名来读取相应的用户信息。系统数据字典的添加包

15、括挂号科室种类、医疗种类和药品种类。系统报表查询将系统中各个数据字段显示出来。用户解冻是对由于用户五次输入密码错误造成该用户被冻结无法登陆情况的解除。3.3 性能需求整个系统应当操作简便，界面友好,维护简便。数据库要求运行稳定，执行速度快。安全性方面，当用户输入密码五次错误后该用户将被锁定，只有管理员权限可以解冻该帐户。软件系统本身运行对计算机硬件平台和操作系统平台要求适中。4 门诊就诊系统的设计4.1 设计思路本系统的功能根据使用者的不同而有所不同，主要有两种用户：普通用户和系统管理员。为了便于整个系统的组织管理，把整个系统分为两大模块：用户模块和管理员模块，两个模块的功能都完全相对独立的设

16、计，然后再将它们集成到一个总的控制模块中。对于用户模块来说，只能使用属于本用户（注册员、挂号员、医生、财务人员）权限的功能，而管理员，则可以添加、修改、删除、解冻被冻结用户，添加系统数据字典，浏览、打印系统数据报表等。4.2 总体框架图4-1 总体框架4.2.1 系统管理员功能1）对系统使用的用户的添加、编辑、删除。在添加或编辑用户的时候能对用户的输入代码，密码，相应的权限进行设置。如图4-2：图4-2管理员功能2）对系统的字典进行维护。能够添加新的挂号科室和对应的描述、新的医疗类型和相应的收费价格、新的药品种类和相应的价格。如图4-3：图4-3 字典维护功能3）对于数据库里的每一张表的内容进

17、行显示。利用水晶报表对各个字段的值显示，查询各个所需的详尽的信息。如图4-4：图4-4 报表查询功能4）对于在系统登陆时输入错误5次密码而被冻结了的用户进行解冻。4.2.2 普通用户功能1）病人登记台用户能够注册新的病人，包括病人的姓名、性别、年龄、电话、地址以及贯穿整个门诊就诊的唯一的病人编号。并且能够编辑病人注册信息和删除病人注册信息。如图4-5：图4-5 注册功能2）挂号用户能够根据病人的需求，为病人挂出相应科室的号，并把挂号信息添加到病人注册编号里。实现病人退号及浏览病人的挂号(退号)信息。如图4-6：图4-6 挂号功能3）医生用户能够根据病人注册编号以及挂号科室判断该病人是否应该到该

18、科室来就诊，以及根据病人的检查情况添加医嘱和药品使用建议，并为收费用户列出此次病人医疗情况和用药情况。如图4-7：图4-7 医疗功能4）收费用户能根据病人注册编号显示医疗的种类以及相应的费用和所开药品的费用,以及查询该病人是否缴费。如图4-8：图4-8 收费功能4.3 数据库设计该系统使用ACCESS数据库，一共五张表：系统用户表、病人信息表、挂号科室信息、医疗费用信息、药品费用信息。系统用户表(sysuser)：该表用于储存用户信息，如表4-1。表4-1 系统用户表字段名称数据类型字段大小说 明主 键Username文本20系统用户名称FCode文本10用户登陆时输入代码TPasswor文本

19、15用户密码FStatus文本4该帐户是否冻结FZcright文本1用户注册权限FGhright文本1用户挂号权限FYlright文本1用户医疗权限FSfright文本1用户收费权限FGlright文本1用户管理权限F病人信息表(patient)：该表用于储存病人信息，由于门诊就诊不同于住院医疗，所开药品一般不会过多，在此仅设立三个药品字段，如表4-2。表4-2 病人信息表字段名称数据类型字段大小说 明主 键Pname文本20病人姓名FSex文本4病人性别FAge数字长整型病人年龄FTel文本40病人电话FAddress文本40病人地址FNum文本40病人编号TGua文本40病人所挂号科室FW

20、ay文本40病人就诊时的医疗信息FMed1文本40病人就诊时所开的药品一FMed2文本40病人就诊时所开的药品二FMed3文本40病人就诊时所开的药品三FYizhu文本255就诊后医生所开医嘱Fcharged_way文本2医疗付费情况Fcharged_med文本2药品付费情况F挂号科室信息(depart)：该表用于储存挂号科室信息，如表4-3表4-3 挂号科室表字段名称数据类型字段大小说 明主 键Dep文本255挂号科室名称TDetail文本255挂号科室的描述以及相应的挂号费用F医疗费用信息(method)：该表用于储存医疗费用信息，如表4-4。表4-4 医疗费用表字段名称数据类型字段大小说

21、 明主 键Meth文本255医疗信息TMoney数字长整形相对应的医疗费用F药品费用信息(medical)：该表用于储存药品费用信息，如表4-5。表4-5 药品费用表字段名称数据类型字段大小说 明主 键Med文本255药品名称TMoney数字长整形相对应的药品费用F5 详细设计5.1 用户登陆模块 用户登陆系统，是根据用户所输入帐号代码以及密码(如图5-1)。图5-1 用户登陆用户输入帐号和密码后，系统先判断该帐户是否被冻结，再判断是否密码输入错误，当输入正确时能够登陆，输入错误5次以后该帐户被冻结(如图5-2)。图5-2 登陆功能流程图用户登陆后根据管理员对该帐户所设定的权限进行工作，如图5

22、-3，这是一位挂号用户登陆后所见到的界面。图5-3 挂号用户登陆后界面相关代码：登陆后权限分配getUserRights() If TestUser() = True And getStatus() = 正常 And Trytime 4 Then If ZcStatus 是 Then main_frm.disreg() 注册员权限 End If If GhStatus 是 Then main_frm.disgua() 挂号员权限 End If If YlStatus 是 Then main_frm.dismed() 医生权限 End If If SfStatus 是 Then main_frm

23、.discha() 收费员权限 End If If AdminStatus 是 Then main_frm.disadm() 管理员权限 End If clearfields() main_frm.show() Me.Finalize()5.2 用户功能模块5.2.1 注册病人注册用户登陆后，能在注册模块使用到3个功能，分别为注册病人、编辑病人以及删除病人。注册用户时打开注册页面，系统自动随机生成6位不重复编号，用户只需根据病人情况输入病人相关信息即可完成注册(如图5-4)。图5-4 注册新病人相关代码：随机生成编号 Function renew() As Object ra = Int(10

24、00000 * Rnd() 随机生成位号码 While 1 ra = Int(1000000 * Rnd() If checkIfAlreadyExists() = False Then 判断随机生成号码是否存在 Exit While 若号码不存在则跳出循环 End If End While5.2.2 挂号挂号用户登陆后，能在挂号模块使用到3个功能，分别为挂号、退号以及查询挂号信息。挂号时，用户根据病人注册时所获得的编号读取病人相关信息，之后根据病人需求为病人挂号到相应的科室(如图5-5)。图5-5 病人挂号相关代码：读取挂号科室信息Function add_depart() conn.Ope

25、n() comm = New OleDbCommand(SELECT * FROM depart, conn) 选择挂号科室数据表 corr = comm.ExecuteReader() While corr.Read ComboBox1.Items.Add(corr(dep) 将所有挂号科室放入items中 End While conn.Close() corr.Close() End Function5.2.3 医嘱录入医生用户登陆后，能在挂号模块使用到2个功能，分别为录入医嘱和修改医嘱。当医生用户使用系统时，首先根据病人编号读取病人相关信息，判断该病人挂的是该医生的号，即病人挂号科室应与

26、医生所在科室相吻合，否则病人是走错了挂号科室。之后医生根据病人病情，进行医嘱的录入，需要选择所进行的医疗类型、所开处方（如果需多种药品则可进行多项选择，根据系统需要，在此仅提供3项）以及相应的医嘱(如图5-6)。图5-6 医生下医嘱5.2.4 收费收费用户登陆后，能在收费模块使用到3个功能，分别为医疗收费、药品收费和缴费查询。收费分为2种，此处显示的是药品收费。首先收费员根据病人编号读取病人相关信息，根据病人医嘱上所开药品进行相应的收费，如有多种药品则将药品费用相加。缴费后收费用户可在缴费查询功能中根据病人编号查到病人是否缴费(如图5-7)。图5-7 缴费相关代码：病人编号读取数据库两张表里的

27、数据 Function loadpatient() As Object conn.Open() 打开连接 comm = New OleDbCommand(SELECT * FROM patient WHERE num = & TextBox1.Text & , conn) corr = comm.ExecuteReader() 通过病人编号读取信息 While corr.Read TextBox1.Text = corr(num) 读取病人编号 TextBox2.Text = corr(pname) 读取病人编号 TextBox3.Text = corr(way) 读取病人医疗类型 End W

28、hile conn.Close() corr.Close() 关闭连接 comm.Dispose() 释放资源 conn.Open() 再次打开连接 comm = New OleDbCommand(SELECT * FROM method WHERE meth = & TextBox3.Text & , conn) corr = comm.ExecuteReader() 根据上个连接所获得的病人医疗类型,用另外一张表读取该医疗类型费用 While corr.Read TextBox4.Text = corr(money) 读取医疗费用 End While conn.Close() corr.C

29、lose() 关闭连接 comm.Dispose() End Function5.3 管理员模块5.3.1 用户添加管理员用户添加用户进入添加界面后，需输入用户姓名、输入代码、密码并选择相应的权限(如图5-8)。图5-8 添加用户5.3.2 用户解冻在用户登陆时，连续输入错误5次密码则会导致该用户帐户被冻结，冻结后只有管理员用户才能对帐户进行解冻。解冻时listbox将列出所有被冻结帐户，选择被冻结帐户后点击解冻即刻(如图5-9)。图5-9 解冻用户相关代码：解冻用户Private Sub Frm_UnlockUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim status As String 预设status为冻结 status = 冻结 conn.Open() comm = New OleDbCommand(SELECT * FROM sysuser WHERE status = & status & , conn) corr = comm.Exec