医院住院管理系统（vb）.doc

Xxxx职业技术学院毕业设计题 目 医院住院管理系统 系 别 xxxxxxx xxxx 专 业 xxxxxxxxxxxxx 班 级 xxxxxxxxxxx 姓 名 xxxxxxxxxx 指导教师 xxxxxxxxxxx 摘 要为了满足我国医院发展的需要，为了使祖国医学早日与世界科技接轨，适应社会需求于是开发了医院住院管理系统。医院住院管理系统是现代化医院运营的必要技术支撑和基础设施，实现医院住院管理系统的目的就是为了以便现代化、科学化、规范化的手段来加强医院的管理，提高医院的工作效率，改进医疗质量，从而树立现代医院的新形象，这也是未来医院发展的必然方向。 本系统是针对医院的住院管理，包括系统管理、住院管理、出院管理、床位管理和收费管理等几个方面。系统可以完成对基本信息的浏览、查询、添加、删除等功能。系统的核心是对住院流程的管理。查询功能也是系统的基本功能，在系统中即有单条件查询和多条件查询，也有精确查询和全部查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能。系统采用Microsoft Office中的Access 来设计数据库，使用Visual Basic6.0语言开发系统。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键词：医院住院管理系统 Visual Basic 6.0 Access 目 录第一章 绪 论41.1 设计系统开发工具的选用41.1.1 Visual Basic的优越性4第二章 系统需求分析52.1系统的需求分析52.2系统的功能分析52.3 系统分析的概况6第三章 医院住院管理系统设计63.1 系统的总体设计73.2系统的详细设计7第四章 系统界面展示94.1 登录界面94.2 主界面114.3 系统管理模块114.4 住院管理模块144.5 出院管理模块164.6 床位管理模块184.7 收费管理模块19第五章 系统管理维护与评价195.1 系统的日常管理维护195.2 系统的评价205.3 系统设计心得收获与结论20致谢21参考文献223第一章 绪 论当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息处理系统的环境。计算机最大的好处在于利用它能够进行信息管理，使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。医院是一个部门复杂的地方，包含很多的信息数据的管理。据调查得知，以前医院进行信息管理的方式主要是基于文本、表格等纸介质的手工处理，另外，数据信息处理工作量大，容易出错，由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统、规范的信息管理手段，费时、费力，因此，很有必要建立一个医院住院管理系统，使医院管理工作规范化，系统化，程序化。提高信息处理的速度和准确性。1.1 设计系统开发工具的选用1.1.1 Visual Basic的优越性Visual Basic(简称VB)是美国Microsoft公司推出、专门针对32位windows操作系统的程序设计语言。VisualBasic它具有以下一些特点：1面向对象VB采用了面向对象的程序设计思想。它的基本思路是把复杂的程序设计问题分解为一个个能够完成独立功能的相对简单的对象集合。2事件驱动在Windows环境下，程序是以事件驱动方式运行的，每个对象都能响应多个不同的事件，每个事件都能驱动一段代码事件过程，该代码决定了对象的功能。通常称这种机制为事件驱动。3软件的集成式开发VB为编程提供了一个集成开发环境。在这个环境中，编程者可设计界面、编写代码、调试程序，直至把应用程序编译成可在Windows中运行的可执行文件，并为它生成安装程序。VB的集成开发环境为编程者提供了很大的方便。4结构化的程序设计语言VB具有丰富的数据类型，是一种符合结构化程序设计思想的语言，而且简单易学。此外作为一种程序设计语言，VB还有许多独到之处。5强大的数据库访问功能VB利用数据控件可以访问多种数据库，VB6.0提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。第二章 系统需求分析2.1系统的需求分析随着网络技术，信息通信领域的长足发展，网络经济，知识经济再不是IT等高科技行业的专利，当今社会信息化进程迅猛发展，网络技术已经对社会，经济和文化各方面产生重大影响，并将改变人们认识世界，思考世界的观点和方法。作为传统行业之一的医疗卫生行业，如何面对网络时代带来的冲击，如何利用网络技术提高我们医疗卫生行业的管理水平和服务质量，是无法回避的问题，为了进一步推进医疗行业的信息化建设，了解国际医疗信息化发展动态，吸收新的技术和管理经验，提高医卫系统信息化应用的管理水平，使医院经济效益和社会效益双丰收，全国各省都在逐步加快医院的信息化建设步伐。2.2系统的功能分析本系统为了实现医院住院的管理系统，方便用户和管理与需求，将医院住院管理系统分为：系统管理，住院管理，出院管理、床位管理、收费管理五个功能模块。1.系统管理模块主要对系统用户进行管理，用户名和密码的设置。2.住院管理模块主要是对病人入院进行管理，三个子模块。u 住院登记u 住院信息的查询u 住院信息的删除3.出院管理模块主要对病人出院进行管理。u 出院登记u 出院信息的查询u 出院信息的删除4.床位管理模块主要对床位进行管理。u 床位信息的添加u 床位信息的查询 5收费管理模块主要对收费进行管理，主要是对收费的查询。2.3 系统分析的概况系统分析是指在管理信息系统开发的生命周期中系统分阶段的各项活动和方法，应用系统思想和系统科学的原理进行分析工作的方法与技术。系统分析阶段的目的，就是按照系统规划所定的某个开发项目范围内明确系统开发的目标和用户信息需求，提出系统的逻辑方案。系统分析在整个系统开发过程中，是要解决“做什么”的问题，即根据系统规划所确定的范围，对现行系统进行详细调查，尽可能弄清楚用户对信息的需求，调查原信息系统的资源，输入，处理和输出，描述现行系统的业务流程，指出现行系统的局限性和不足之处，确定新系统的基本目标和逻辑有要求，也即提出新系统的逻辑模型，为下一个阶段进行物理方案设计，解决“怎么做”提供依据。因此，这个阶段又称逻辑设计阶段。第三章 医院住院管理系统设计系统设计是管理系统开发的第二个阶段。在这一阶段中我们将根据系统调查与分析阶段的结果，进行新系统的设计工作。系统设计包括两方面的工作：首先是系统总体结构的设计，即把系统的功能分解成许多基本的功能模块，取得它们之间的联系，规定它们的功能和处理流程;其次是系统的详细设计。系统设计包括如下工作内容1、 系统总体结构设计（1）.系统功能结构的划分。（2）.确定系统的计算机处理流程。2、系统详细的设计（1）.系统数据模型设计。（2）.数据库的逻辑设计。3.1 系统的总体设计系统的总体设计是指在系统调查与分析的基础上，对整个系统在结构上的划分，硬软件环境的配置和确定子系统与模块的处理流程。1. 系统功能结构的划分总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划分，结构化。学生学籍管理系统功能结构图（图3-1）医院住院管理系统系统管理住院管理出院管理床位管理收费管理用户注册修改密码住院登记住院查询信息删除出院登记出院查询信息删除床位添加床位查询收费管理图3-1医院住院管理系统功能结构图2. 确定计算机的处理流程目前是让开发人员明确子系统或功能模块中信息的流动、转换、存储和处理等情况，以便进一步明确模块物理设计及日后模块实现的任务和工作要点，从而把系统的总体设计思想落实到每一个子系统和功能模块之中。3.2系统的详细设计1. 关系型数据模型用户管理表（用户名，密码）住院信息表（住院号，姓名，性别，年龄，工作单位，家庭住址）出院信息表（出院编号，姓名，性别，年龄，住院时间，科类）床位管理表（床位编号，床位价格，床位类型）收费管理表（姓名，性别，年龄，科类，床位价格，住院时间，住院费用）2. 数据库的逻辑设计数据库的逻辑设计是希望通过数据库管理系统提供的功能与描述工具，设计出规模恰当，能正确反映实际信息关系，重复数据少，存取效率高并能满足用户数据要求的数据模型。（1）数据表3-1用户管理表用户名密码3-2住院信息表住院号姓名性别年龄工作单位家庭住址3-3出院信息表出院编号姓名性别年龄住院时间科类3-4床位信息表床位编号床位价格床位类型3-5收费信息表姓名性别年龄科类床位价格住院时间住院费用（2）.数据字典数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后获得的主要成果，数据字典通常包括以下几点：a.数据项：数据项是不可在分的数据单位。b.数据结构：数据结构反映了数据之间的组合关系。一个数据结构可以由若干个数据结构组成，或由若干数据项和数据结构混合组成。c数据流：数据流是数据结构在系统内传输的路径。d数据存储：数据存储是数据及结构停留或保存的地方，也是数据流的来源的去向之一。e处理过程：处理过程的具体处理逻辑一般用判定表或判定树来描述。f数据字典：是关于数据库中数据的描述，即对原数据的描述。本系统的数据字典如下：表2-6用户管理表（yonghu）列名数据类型及长度可否为空主键用户名文本型（10）NOTNULL密码文本型（8）NOTNULL 表2-7 住院信息表(zhuIn)列名数据类型及长度可否为空主键住院号文本型（8）NOTNULL姓名文本型（50）NOTNULL性别文本型（10）NOTNULL年龄文本型（6）NOTNULL工作单位文本型（30）NOTNULL家庭住址文本型（50）NOTNULL表2-8出院信息表(chuIn)列名数据类型及长度可否为空主键出院编号文本型（8）NOTNULL姓名文本型（50）NOTNULL性别文本型（10）NOTNULL主键年龄文本型（6）NOTNULL住院时间文本型（20）NOTNULL科类文本型（30）NOTNULL表2-9床位信息表(chuangIn)列名数据类型及长度可否为空主键床位编号文本型（8）NOTNULL床位价格文本型（10）NOTNULL床位类型文本型（20）NOTNULL表2-10收费信息表（shoufeiIn）列名数据类型及长度可否为空主键姓名文本型（20）NOTNULL性别文本型（10）NOTNULL年龄文本型（6）NOTNULL科类文本型（30）NOTNULL床位价格文本型（10）NOTNULL住院时间文本型（20）NOTNULL住院费用文本型（30）NOTNULL第四章 系统界面展示4.1 登录界面进入本系统首先弹出的是登陆界面，如图4-1所示：4-1登录窗体本窗体添加了Label、Data、Command、TextBox等控件。代码如下：代码如下：Dim cnt As IntegerPrivate Sub cmdOk_Click()Dim sql As Stringsql = select * from yonghu where 用户名= & TextName.Text & and 密码= & TextPassword.Text & Data1.RecordSource = sqlData1.RefreshIf Data1.Recordset.EOF() ThenMsgBox 输入有误，请重输! TextPassword.Text = TextPassword.SetFocus cnt = cnt + 1ElseMsgBox 登录成功frmmian.ShowEnd IfEnd SubPrivate Sub cmdcancel_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & /user1.mdbData1.RecordSource = yonghu Data1.RefreshEnd Sub4.2 主界面输入正确的用户名和密码会进入到系统的主界面，如图4-2所示：4-2主界面窗体本系统使用菜单编辑器建立系统模块、住院管理模块、出院管理模块、床位管理模块、收费管理模块，窗体添加了Label、Frame等控件。4.3 系统管理模块系统模块主要是对用户登录进行管理，本模块又分为用户注册和修改密码两个子模块。4.3.1 用户注册界面用户注册界面主要是为用户添加信息。如图4-3-14-3-1用户注册窗体 本窗体添加了Label、Data、Command、TextBox、frame等控件。代码如下：Private Sub cmdOk_Click()If textname ThenIf textpassword1.Text = textpassword2.Text ThenData1.Recordset.AddNewData1.Recordset.Fields(用户名) = textname.TextData1.Recordset.Fields(密码) = textpassword1.TextData1.Recordset.Updatetextpassword1.Text = textpassword2.Text = textname.Text = MsgBox 恭喜你注册成功ElseMsgBox 两次输入的密码不一致！, , 用户注册textpassword1.Text = textpassword2.Text = textname.Text = End IfElseMsgBox 用户名不能为空?, , 用户注册textpassword1.Text = textpassword2.Text = textname.Text = End IfEnd SubPrivate Sub cmdcancel_Click()Unload Mefrmmian.ShowEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & /user1.mdbData1.RecordSource = yonghuData1.RefreshEnd Sub4.3.2 修改密码界面修改密码界面主要是方便用户修改密码。如图4-3.24-3-2用户修改密码窗体本窗体添加了Label、Data、Command、TextBox、frame等控件。代码如下：Private Sub cmdOk_Click() Dim sql As String sql = select * from yonghu where 用户名= & Combo1.Text & & and 密码= & textypassword.Text & Adodc1.RecordSource = sql Adodc1.RefreshIf Adodc1.Recordset.EOF() Then MsgBox 密码错误，请重新选择用户名并输入密码, , 用户登入 textypassword.Text = txtnew.Text = txtnewok.Text = textypassword.SetFocusElse If txtnew.Text = txtnewok.Text Then Adodc1.Recordset.Fields(密码) = txtnew.Text Adodc1.Recordset.Update MsgBox 密码修改成功?, , 密码修改 frmmian.Show Unload Me Else MsgBox 您输入的新密码和确认新密码不相同，请重新输入?, , 密码修改 textypassword.Text = txtnew.Text = txtnewok.Text = textypassword.SetFocus End IfEnd IfEnd SubPrivate Sub cmdcancel_Click()Unload Me frmmian.ShowEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & /user1.mdb;Persist Security Info=FalseAdodc1.RecordSource = yonghuAdodc1.Refresh While Not Adodc1.Recordset.EOF() Combo1.AddItem Adodc1.Recordset.Fields(用户名) Adodc1.Recordset.MoveNext WendEnd Sub4.4 住院管理模块住院管理模块主要由住院信息登记、住院信息查询、住院信息的删除。如图4-4-1至4-4-3所示：4.4.1 住院信息登记界面4-4.1住院信息登记窗体 4.4.2 住院信息查询界面4-4-2住院信息查询窗体4.4.3 住院信息删除界面4-4-3住院信息删除窗体4.5 出院管理模块出院管理模块主要由出院信息登记、出院信息查询、出院信息的删除。如图4-5-1至4-5-3所示：4.5.1出院信息登记界面4-5-1出院信息登记窗体4.5.2 出院信息查询界面4-5-2出院信息查询窗体4.5.3 出院信息删除界面4-5-3出院信息删除窗体4.6 床位管理模块床位管理模块主要有床位信息添加、床位信息查询界面。如图4-6-1至4-6-2所示：4.6.1 床位信息添加界面4-6-1床位信息添加窗体4.6.2 床位信息查询界面4-6-2床位查询窗体4.7 收费管理模块收费管理模块主要有收费信息查询界面。如图4-7所示：4-7收费信息查询窗体第五章 系统管理维护与评价5.1 系统的日常管理维护系统维护工作包括数据备份、恢复及错误数据的更正等。信息系统一旦投入运行，其维护支持就成为系统能否持续正常运行的关键。作为一个联机事务处理系统，医院信息系统要求一天运行24 小时、每周7天不间断地运行，假如中断，其后果不堪设想，而且绝对不允许数据丢失。在系统的日常运行中，经常有纠正错误数据、更新数据等工作，需要维护人员的干预。如果系统的可维护性不好，必然导致维护人员忙于日常应付，包袱越背越重。为解决这类问题，我们认为，应把系统的可维护性作为一项基本要求纳入到系统的开发过程中不管系统管理与维护的组织采取什么样的形式，从系统管理与维护本身的规律和要求出发，都必须有一个完整得力的管理队伍和技术队伍。系统管理与维护的人员构成应该包括：系统管理人员，系统维护人员，系统操作人员，资料管理人员。5.2 系统的评价作为计算机应用的一部分，使计算机对医院住院进行管理，形成一个