vb基于CS结构的医院管理系统的设计与实现概要

精心整理分类号:TP315U D C:D10621-408-(20075968-0密级:公开编号:2003031204成都信息工程学院学位论文基于C/S构造的医院管理系统的设计与实现论文作者姓名:任航申请学位专业:计算机科学与技术申请学位类别:工学学士指导教师姓名(职称:曾令明(讲师论文提交日期:2007年06月10日基于C/S构造的医院管理系统的设计与实现摘要随着信息科学技术的飞速开展,人们渐渐意识到对信息管理软件的运用可以使日常工作更加便利、快捷和高效。论文具体论述了一个基于C/S构造的医院管理系统的开发设计过程。系统采纳Visual Basic 6.0作开发平台,SQL Server 2000作数据库管理系统,实现了病人登记、医生信息管理、病人就诊信息管理、住院信息管理等功能。系统符合医院管理的要求,能够帮助医院切实提高工作效率。论文组织如下:首先阐述了该系统的开发背景、意义;其次介绍了相关的开发工具及技术根底;接着对系统的需求进展了分析,并提出了具体的设计方案和数据库模型;然后呈现了整个系统的具体实现,包括数据库的设计和连接,各功能模块的实现;最终对该软件进展了严格的测试。关键词:医院管理系统;Visual basic;SQL server2000The Design and Implementation of Hospital ManagementSystem based on C/SAbstractAlong with the rapid development of the information science technology,people gradually realize that the utilization of information management software could make the routine more convenient,quick and efficient.The paper discusses in detail the development and design process of a hospital management system based on C/S structure.It uses Visual Basic6.0as the development platform,SQL Server2000as the database management system,and includes patients registration management, doctorsinformation management,diagnosis information management and hospitalization information management,etc.It can accord with the requirement of hospital management,and can help hospital enhance its work efficiency.The paper is organized as following:Firstly,analyzes the background and significance; Secondly,introduces the development tools and the foundation of the technology;Thirdly, analyses the demand of the system,gives a specific design project and a database model;Then shows the implementation of the whole system,which includes the design and linkage of the database and the implementation of every module.Finally gives a test of the system.Key words:Hospital management system;Visual basic;SQL server2000书目论文总页数:25页1引言 (12系统理论根底及开发工具简介 (12.1C/S构造 (12.1.1什么是C/S构造 (12.1.2C/S架构软件的优势与劣势 (12.2V ISUAL B ASIC的介绍 (22.3SQL S ERVER2000简介 (43系统需求分析与方案设计 (43.1需求分析 (43.2方案设计 (43.3可行性探究 (53.3.1技术可行性方面 (53.3.2经济可行性 (63.3.3操作上的可行性 (64系统的实现 (64.1数据库的构建 (64.1.1IHMS_Users表 (64.1.2Disease表 (64.1.3Doctor表 (74.1.4Patient_Hospital_History表 (74.1.5Patient_Lab_Info表 (74.1.6Patient_Personal_Info表 (84.1.7Symptoms表 (84.2系统登陆模块 (84.2.1启动界面 (84.2.2系统主界面 (94.2.3登陆界面 (104.2.4系统管理员权限界面 (114.3医生信息模块 (114.4病人登记管理模块 (124.5病人就诊信息模块 (134.6病人住院信息管理模块 (144.7病人出院信息管理模块 (175系统测试 (185.1测试环境 (185.1.1硬件环境 (185.1.2软件环境 (185.2模块测试 (185.2.1系统登陆及管理员权限测试 (185.2.2医生用户信息测试 (195.2.3新增病人用户信息测试 (195.2.4病人就诊信息测试 (205.2.5病人住院信息测试 (205.2.6病人出院信息测试 (21结论 (22参考文献 (22致谢 (24声明 (251引言自从人类进入21世纪,也就进入了一个高速开展的信息时代,高新技术飞速开展的同时,也使得计算机的运用范围大大扩展,它已经涉及到人类生活的方方面面。计算机运用的便利快捷,使它在越来越多的方面显示出比传统人工制作更快速和精确的优点,尤其是在信息记录,检索和查询方面,更是使我们人类幸免了不必要的麻烦。开发和运用医院管理系统对于医院来说是特别必要的,它能加快医院的信息化步伐,提高医院的管理水平和医疗水平,增加在同行业中的竞争实力,是现代医院管理与计算机信息技术的必要结合。医院管理系统能加强医院内部管理、提高医疗效劳水平,最大限度地提高医院运行的效率和医院管理水平,给医院带来了显著的经济效益和社会效益,也能使医院在将来竞争中处于领先地位。本课题设计一个医院管理系统,通过这个系统管理员可以简捷、便利的对病人、医生的记录进展查阅、增加、删除等功能,而用户也可以通过这个系统对进医生和病人的信息查询、账户增删等功能。系统采纳Visual Basic作开发工具, SQL Server2000作数据库管理系统。2系统理论根底及开发工具简介2.1C/S构造2.1.1什么是C/S构造C/S(Client/Server构造,即大家熟知的“客户机和效劳器”构造,它是软件系统体系构造,通过它可以充分利用两端硬件环境的优势,将任务合理安排到Client端和Server端来实现,降低了系统的通讯开销。目前大多数应用软件系统都是Client/Server形式的两层构造,由于此时此刻的软件应用系统正在向分布式的Web应用开展,Web和Client/Server应用都可以进展同样的业务处理,应用不同的模块共享逻辑组件,因此,内部的和外部的用户都可以访问新的和现有的应用系统,通过现有应用系统中的逻辑可以扩展出新的应用系统,这也就是目前应用系统的开展方向。2.1.2C/S架构软件的优势与劣势(1应用效劳器运行数据负荷较轻。最简洁的C/S体系构造的数据库应用由两局部组成,即客户应用程序和数据库效劳器程序,二者可分别称为前台程序与后台程序。运行数据库效劳器程序的机器,也称为应用效劳器。一旦效劳器程序被启动,就随时等待响应客户程序发来的恳求;客户应用程序运行在用户自己的电脑上,对应于数据库效劳器,可称为客户电脑,当须要对数据库中的数据进展任何操作时,客户程序就自动地找寻效劳器程序,并向其发出恳求,效劳器程序依据预定的规那么作出应答,送回结果,应用效劳器运行数据负荷较轻。(2数据的储存管理功能较为透亮。在数据库应用中,数据的储存管理功能,是由效劳器程序和客户应用程序分别独立进展的,前台应用可以违反的规那么,并且通常把那些不同的运行数据在效劳器程序中不集中实现,例如访问者的权限、编号可以重复、必需有客户才能建立定单这样的规那么。全部这些,对于工作在前台程序上的最终用户,是“透亮”的,他们无须过问(通常也无法干预背后的过程,就可以完成自己的一切工作。在客户效劳器架构的应用中,前台程序不是特别“瘦小”,麻烦的事情都交给了效劳器和网络。在C/S体系的下,数据库不能真正成为公共、专业化的仓库,它受到独立的特地管理。(3C/S架构的劣势是昂扬的维护本钱且投资大。首先,采纳C/S架构,要选择适当的数据库平台来实现数据库数据的真正“统一”,使分布于两地的数据同步完全交由数据库系统去管理,但逻辑上两地的操作者要干脆访问同一个数据库才能有效实现,有这样一些问题,假如须要建立“实时”的数据同步,就必需在两地间建立实时的通讯连接,保持两地的数据库效劳器在线运行,网络管理工作人员既要对效劳器维护管理,又要对客户端维护和管理,这须要昂扬的投资和困难的技术支持,维护本钱很高,维护任务量大。其次,传统的C/S构造的软件须要针对不同的操作系统系统开发不同版本的软件,由于产品的更新换代特别快,代价高和低效率已经不适应工作须要。2.2Visual Basic的介绍Visual Basic(VB是一种由微软公司开发的包含帮助开发环境的事务驱动编程语言。从任何标准来说,VB都是世界上运用人数最多的语言不仅是盛赞VB的开发者还是埋怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI和快速应用程序开发(RAD系统,可以轻易的运用DAO、RDO、ADO连接数据库,或者轻松的创立ActiveX控件。程序员可以轻松的运用VB供应的组件快速建立一个应用程序。一个典型的VB进程VB的中心思想就是要便于程序员运用,无论是新手或者专家。VB运用了可以简洁建立应用程序的GUI系统,但是又可以开发相当困难的程序。VB的程序是一种基于窗体的可视化组件支配的联合,并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一局部定义在了组件内,所以程序员不用写多少代码就可以完成一个简洁的程序。过去的版本里面VB程序的性能问题始终被放在了桌面上,但是随着计算机速度的飞速增加,关于性能的争辩已经越来越少。窗体控件的增加和变更可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件(比方文本框或者按钮。每个控件都有自己的属性和事务。默认的属性值会在控件创立的时候供应,但是程序员也可以进展更改。许多的属性值可以在运行时候随着用户的动作和修改良行改动,这样就形成了一个动态的程序。举个例子来说:窗体的大小变更事务中参加了可以变更控件位置的代码,在运行时候每当用户更改窗口大小,控件也会随之变更位置。在文本框中的文字变更事务中参加相应的代码,程序就能够在文字输入的时候自动翻译或者阻挡某些字符的输入。VB的程序可以包含一个或多个窗体,或者是一个主窗体和多个子窗体,类似于操作系统的样子。有很少功能的对话框窗口(比方没有最大化和最小化按钮的窗体可以用来供应弹出功能VB的组件既可以拥有用户界面,也可以没有。这样一来效劳器端程序就可以处理增加的模块。VB运用参数计算的方法来进展垃圾收集,这个方法中包含有大量的对象,供应根本的面对对象支持。因为越来越多组建的出现,程序员可以选用自己须要的扩展库。和有些语言不一样,VB对大小写不敏感,但是能自动转换关键词到标准的大小写状态,以及强制使得符号表入口的实体的变量名称遵循书写规那么。默认状况下字符串的比拟是对大小写敏感的,但是可以关闭这个功能。一些术语:控件简洁的说,控件就是构成或者说建立Visual Basic应用程序的图形化工具,包括窗体、按钮、复选框、列表框、数据控件、表格控件和图片控件等等;事务由用户或操作系统引发的动作。事务的例如有击键、单击鼠标(Click、双击鼠标(DblClick、一段时间的限制,或从端口接收数据;方法嵌入在对象定义中的程序代码,它定义对象怎样处理信息并响应某事务。例如,数据库对象有翻开纪录集并从一个记录移动到另一个记录的方法程序的根本元素,它含有定义其特征的属性,定义其任务和识别它可以响应的事务的方法。控件和窗体是Visual Basic中全部对象的例如;对象一个控件、窗体等都可被看作一个对象;过程为完成某些特定的任务而编写的代码段,过程通常用于响应特定的事务,也可以当作应用程序的用户自定义函数来运用;属性属性是组成用户界面的各对象的性质的具体描述。例如上述“对象”中所提到的尺寸、位置、颜色、宽度、高度等等都称为控件的属性。属性确定对象的外观,有时也确定对象的行为。对象的属性绝大局部是VB中已经事先定义好的,但也有的属性是须要在应用过程中才去定义的。属性即可为对象供应数据,也能从对象取回信息。2.3SQL Server2000简介SQL Server是一个关系数据库管理系统,是Microsoft推出新一代数据管理与分析软件。SQL Server是一个全面的、集成的、端到端的数据解决方案,它为企业中的用户供应了一个平安、牢靠和高效的平台用于企业数据管理和商业智能应用。SQL Server2000是一个全面的、集成的、端到端的数据解决方案,它为企业中的用户供应了一个平安、牢靠和高效的平台用于企业数据管理和商业智能应用。SQL Server2000为IT专家和信息工作者带来了强大的、熟识的工具,同时削减了在从移动设备到企业数据系统的多平台上创立、部署、管理及运用企业数据和分析应用程序的困难度。通过全面的功能集、和现有系统的集成性、以及对日常任务的自动化管理实力,SQL Server2000为不同规模的企业供应了一个完整的数据解决方案。SQL Server2000数据平台包括如下工具:关系型数据库、复制效劳、通知效劳、集成效劳、分析效劳、报表效劳、管理工具、开发工具。SQL Server2000数据平台为不同规模的组织供应了如下好处:充分利用数据资产、提高生产力、削减IT困难度、更低的总体拥有本钱(TCO。3系统需求分析与方案设计3.1需求分析医院管理系统是针对医院要求用计算机对医生和病人的各种信息进展汇总和记录的一种现代化管理软件,主要包括对病人的注册、就诊、住院登记、治疗结果、出院状况等档案信息的添加、记录、修改和查询等。通过对用户需求的分析,要求本系统具有以下功能:(1由于一项新的软件在被运用之前,对于运用者来说是生疏和崭新的,所以要求系统具有良好的人机界面;(2原始数据修改简洁便利,在系统的运用过程中支持多条件查询;(3数据计算自动完成,数据的稳定性和牢靠性好,尽量削减人工干预。3.2方案设计具体说来,要求本系统具有以下五个功能模块:门诊模块、医生信息模块、病人登记管理模块、病人就诊信息模块和住院信息管理模块。系统整体的模块图如图1所示:各模块具体的需求描述如下:(1病人登记管理模块:以系统合法的身份进入系统后,可以干脆处理新增病人的记录,包括病人各项根本信息;(2医生信息模块:进入系统之后,可以在本模块进展新医生用户的根本信息诸如姓名、科室、职称、联系方式等的录入,以及通过姓名对医生的信息进展查询;(3病人就诊信息模块:通过对病人病症的描述,可以判定出病人的疾病状况,做好记录,并可确定是否须要住院治疗;(4住院信息管理模块:医生确定该病人入院治疗,其中包括对病症的具体描述;(5出院模块:医生限制该病人的出院信息,包括出院的时间以及出院是的身体状况。3.3可行性探究3.3.1技术可行性方面本系统利用Visual Basic 作为系统的开发工具,是因为它采纳面对对象的编程方法把程序和数据封装起来作为一个对象,并为每个对象给予相应的属性;事务驱动的编程机制通过事务执行对象的操作,在设计应用程序时,不必建立具有明显的起先和完毕的程序,而是编写假设干个过程,通过这些过程执行指定的操作;供应完善的指令限制语句,给开发高性能的系统供应了保障,保证了代码的模块化要求。医院管理系统病人就诊信息模块医生信息模块病人登记管理模块住院信息管理出院模块图1系统关系图系统采纳SQL Server2000作为后台数据库,它可以通过窗体供应的工具输入数据到数据库,可以运用查询设计和构造查询语言实现查询。在技术难度方面,由于有指导教师的指导和相关的参考文献,特殊是身边的同学的帮助,使得在开发过程中所遇到的困难都能够一一得到解决。3.3.2经济可行性随着计算机的大量普及,其价格已经越来越被众多的单位和人所承受,然而价格的低廉并不意味着性能上的退化,相反,随着科学技术的开展,计算机随着价格的降低,性能却日渐提高。本系统的开发,在已经运用了计算机进展管理的医疗系统中无疑会受到欢送,它会给医院的工作效率带来一个质的飞跃,其主要的优点主要表此时此刻它可以作为医院管理系统根本功能的一个缩影,集成了门诊模块、病人登记管理模块、病人就诊信息模块和住院信息管理模块等多种功能,具有较强的管用性和先进性。由于本系统具有平安性上面的爱护措施,只有用户拥有了系统合法的用户名和相应的密码之后,才能进入系统,对系统的对应信息进展添加、修改和删除,其他非合法的用户都不能进入系统,这样,使得医院在处理信息方面更加保密。3.3.3操作上的可行性由于本系统管理的对象比拟单一,都是就诊的病人和相关医务人员,且每个数据库内容具有较强的关联性,设计的过程不是很困难,因此,比拟适合于采纳数据库管理。且因为本系统所消耗的资源特别小,故一般工作中运用的微机无论在软件上还是硬件上都可以满意运行要求。4系统的实现4.1数据库的构建4.1.1IHMS_Users表此表的设计是为了实现本医院管理系统的用户的新增和密码的管理,包括编号(Id、用户名(Users、密码(Pass和科室(Departments: 4.1.2Disease表此表是数据库中“疾病”的信息集合,包括疾病编号(Disease_ID和疾病名(Disease_Name:表2Disease表 4.1.3Doctor表这是“医生信息”表,包括医生的姓名(Name、性别(Sex、年龄(Age、籍贯(Province、科室(Dept、手机号(Mobile和职称(Grade这一系列的根本信息:表3Doctor表 4.1.4Patient_Hospital_History表此表是病人出院的时候的信息统计表,包括病历号(Case_Ref_No、入院时的身体状况(Admission_Status、入院的时间(Date_of_Admission、主治医生的姓名(Name_of_Doctor、医生的备注(Doctors_Diagnosis、出院的时间(Date_of_Discharge以及出院时病人的身体康复状况(Status_Upon_Discharge:表3Patient_Hospital_History表 4.1.5Patient_Lab_Info表此表是病人的病历表,包括病人的编号(Hosp_No、血型(Blood_Group、RH 因子(RhFactor以及过敏史(Allergy:表4Patient_Lab_Info表 4.1.6Patient_Personal_Info表此表是病人的根本信息表,包括病人的姓名(SName,FName、诞生日期(Date_Of_Birth、性别(Sex、家庭住址(Home_Add和职业(Occupation:表5Patient_Lab_Info表 4.1.7Symptoms表这是“病情病症”表,对不同病症的描述以便病人就诊时能精确判定其病症所在,包括病症编号(Symptom_ID、疾病编号(Disease_ID、病症名(Symptom_Name和描述(Desrciption几个方面:表6Symptoms表 4.2系统登陆模块4.2.1启动界面这是整个系统起先运行时出现的第一个界面,是由frmSplash具体限制和实现的: 图2系统启动界面在这个局部,系统会完成与数据库的连接工作,具体的代码实现如下:Private Sub Form_Load(ConnectString=Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;UserID=sa;Initial Catalog=IHMS;Data Source=(localMe.MousePointer=11Set somePatient=New CPatientEnd Sub时钟的设计,可以限制从该初始界面进入到系统主界面的时间:Private Sub Timer1_Timer(Unload MeEnd Sub然后,整个系统就进入主界面。4.2.2系统主界面所谓系统主界面,也就是程序主窗体frmmain,它是整个系统的主要操作界面,也是在登陆之后首先出现的系统操作界面(图3,采纳菜单构造,简洁明白,操作便利: 图3系统主界面4.2.3登陆界面该模块具体是由frmLogin窗体限制并实现的。本HIS系统可供两种身份的用户登陆:一个是Admin,另一个是医生。二者唯一的权限区分就是Admin可以对医生用户进展管理:添加、删除、密码修改。以下实现的是以医生的身份登陆该系统: 图4登陆对话框Do While Not.EOF And Not LoginSucceededIf(cboUserName=.Fields(usersAnd Trim(txtPassword=.Fields(passThenTypeStr=.Fields(Type登陆生效If(TypeStr=医生ThenDepartments=.Fields(DepartmentsEnd IfMsgBox登陆胜利,欢送进入系统.,vbInformation,欢送LoginSucceeded=TrueCall ConfigMenus(cboUserNameUnload MeEnd If.MoveNextLoop4.2.4系统管理员权限界面Admin可以对医生用户进展管理:添加、删除、密码修改: 图5权限管理4.3医生信息模块本模块的设计主要是对医生的信息进展收集管理,其中包括的工程有:医生性命、医生性别、医生年龄、医生籍贯、医生手机号、医生科室、医生职称七个工程,同时还可以进展医生账户的新增和依据生命对医生信息进展查询等功能。frmDoctor窗体具体负责这个模块的设计和实现:Private Sub Command2_Click(datDoctors.Recordset.Fields(Name=TextName.TextdatDoctors.Recordset.Fields(Sex=ComboSex.ListIndexdatDoctors.Recordset.Fields(Age=Val(TextAge.TextdatDoctors.Recordset.Fields(Province=TextProvince.TextdatDoctors.Recordset.Fields(Mobile=TextMobile.TextdatDoctors.Recordset.Fields(Dept=TextDept.TextdatDoctors.Recordset.Fields(Grade=TextGrade.TextdatDoctors.Recordset.SaveMsgBox保存胜利!End SubDoIf datDoctors.Recordset.EOF Then Exit DoIf(datDoctors.Recordset.Fields(Name=TextSearch.TextThenfind_flag=TrueElsedatDoctors.Recordset.MoveNextEnd IfLoop Until(find_flagIf find_flag ThenRefreshDataMsgBox查询胜利!ElseMsgBox没有查到您要的记录! 图6新增、查询医生信息对话框4.4病人登记管理模块病人到医院就诊,须要在HIS里建立一个属于自己的“账户”,里面将包括病人最根本的一些信息。通过下列图,可以很清楚地看到,这个模块主要运用了一些TextBox和ComboBox来进展病人信息的录入,其中“性别”、“血型”、“Rh因子”三项是由ComboBox限制实现的,其下拉菜单比拟便利系统用户的操作并可以防止录入不合法的信息: 图7病人注册Private Sub cmdRegAndAdmit_Click(Set thisNewPatient=New CPatient新建一个病人对象With thisNewPatient向新建的病人对象写入信息.HospNo=Val(txtHospNo.SName=Trim(txtSName.FName=Trim(txtFName.DoB=Trim(txtDOB.Sex=cboSex.HomeAdd=Trim(txtHomeAdd.StateOfOrigin=Trim(txtStateOfOrigin.Occupation=Trim(txtOccupation.NameNoK=Trim(txtKinName.RelaNok=Trim(txtRelationship.AddNok=Trim(txtKinAddress.SponsorName=Trim(txtNameOfSponsor写入担保人信息.SponsorAdd=Trim(txtAddOfSponsor.BloodGrp=Trim(cboBloodGrp写入化验室数据信息.RHFactor=cboRHFactor.Allergy=Trim(txtAllergyEnd With.frmAdmission.Show1Call ClearRegFormUnload MeEnd Sub4.5病人就诊信息模块遵照正常的流程,胜利登记的病人用户应当就诊。以胜利登记的病人,可以通过对病症的描述方式得出初步诊断结果。这局部工作由frmDiagnosis窗体具体限制和实现。在这个模块里,对于文本性的信息照旧运用TextBox实现,而对于病症的描述,采纳了用五条病症同时描述来实现,每一条病症选择出都采纳ComboBox来实现,其下拉菜单出将出现DB表里所存储的病症的全部描述。 图8诊断信息Dim symptom(4As StringDim diseaseID(4As IntegerDim diseaseName(4As StringDim diagnosisResults(4As StringDim X As IntegerFor X=0To4symptom(X=cboSymptom(XNext XIf symptom(0=N/AOr symptom(0=Then保证病人至少选择一个病症描述,否那么退出MsgBoxYou must specify AT LEAST one sign/symptom to diagnose a patient,starting with Symptom 1.,vbInformationExit SubEnd IfCall DiagnosePatient(symptom(0,diseaseID(0,diseaseName(0txtDisease(0.Text=diseaseName(0For X=1To4依据描述的病症产生出一个诊断结果If symptom(XThenCall DiagnosePatient(symptom(X,diseaseID(X,diseaseName(XIf diseaseName(XdiseaseName(0Then diagnosisResults(X=diseaseName(X End IfNext XDim a As Integer,b As IntegerDim temp As StringFor a=1To3For b=1To4-aIf diagnosisResults(bdiagnosisResults(b+1Thentemp=diagnosisResults(bdiagnosisResults(b=diagnosisResults(b+1diagnosisResults(b+1=tempElseIf diagnosisResults(b=diagnosisResults(b+1ThentxtDisease(1=显示结果For a=1To4If diagnosisResults(aThen txtDisease(1=txtDisease(1+diagnosisResults(a+vbCrLf Next aEnd Sub4.6病人住院信息管理模块经过了医生的诊断,就可以得出病人的病病症况,也就可以确定改病人是否须要住院治疗。这个模块主要是由frmAdmitExisting窗体限制和实现的。这个窗体的设计比拟简洁明白,由病人的主治医师填入住院时间、医师姓名以及一些备注信息后就可以胜利给病人办理住院手续。该窗体由几个简洁的TextBox实现所对应的也都是一些文本信息。 图9病人病例Private Sub cmdConfirmAdmission_Click(With Me.datHospHist.Recordset.Fields(Hosp_No=somePatient.HospNo.Fields(Admission_Status=IN.Fields(Date_of_Admission=txtDateOfAdmission.Fields(Name_of_Doctor=txtDoctorInCharge.Fields(Doctors_Diagnosis=txtDoctorsComments.UpdateEnd WithMsgBox住院手续登记胜利.,vbInformation,胜利Unload frmOldPatientUnload MeExit Suberrhnd:Debug.Print Err.Number;Err.DescriptionMsgBox一个未知错误.,vbInformation,未知错误!Resume NextEnd SubPrivate Sub datHospHist_1_Validate(Action As Integer,Save As Integer End SubPrivate Sub Form_Load(lblHeading.Caption=lblHeading.Caption+Str(somePatient.HospNo datHospHist.ConnectionString=ConnectString datHospHist.RecordSource=Patient_Hospital_HistorydatHospHist.RefreshdatHospHist.Recordset.AddNew显示保存的结果txtCaseRefNo=datHospHist.Recordset.Fields(Case_Ref_NoEnd Sub 图10住院信息Private Sub cmdConfirmAdmission_Click(With frmNewReg.datPerInfo.Recordset.Fields(Hosp_No=frmNewReg.thisNewPatient.HospNo病人信息.Fields(SName=frmNewReg.thisNewPatient.SName.Fields(FName=frmNewReg.thisNewPatient.FName.Fields(Sex=frmNewReg.thisNewPatient.Sex.Fields(Home_Add=frmNewReg.thisNewPatient.HomeAdd.Fields(State_of_Origin=frmNewReg.thisNewPatient.StateOfOrigin.Fields(Occupation=frmNewReg.thisNewPatient.Occupation.Fields(Name_of_NoK=frmNewReg.thisNewPatient.NameNoK亲属信息.Fields(Relationship_to_NoK=frmNewReg.thisNewPatient.RelaNok.Fields(Add_of_NoK=frmNewReg.thisNewPatient.AddNok.Fields(Name_of_Sponsor=frmNewReg.thisNewPatient.SponsorName担保人信息.Fields(Add_of_Sponsor=frmNewReg.thisNewPatient.SponsorAddEnd WithWith frmNewReg.datLabInfo.Recordset.Fields(Hosp_No=frmNewReg.thisNewPatient.HospNo化验室信息.Fields(Blood_Group=frmNewReg.thisNewPatient.BloodGrp.Fields(RhFactor=frmNewReg.thisNewPatient.RHFactor.Fields(Allergy=frmNewReg.thisNewPatient.AllergyEnd WithWith Me.datHospHist.Recordset.Fields(Hosp_No=Val(txtHospNo.Fields(Admission_Status=IN.Fields(Date_of_Admission=txtDateOfAdmission.Fields(Name_of_Doctor=txtDoctorInCharge.Fields(Doctors_Diagnosis=txtDoctorsDiagEnd WithfrmNewReg.datPerInfo.Recordset.UpdatefrmNewReg.datLabInfo.Recordset.UpdateMe.datHospHist.Recordset.UpdateMsgBox新病人的入院手续登记胜利.,vbInformation,胜利Unload MeExit Sub4.7病人出院信息管理模块住院的病人总有出院的时候,这个模块就是限制病人出院的。frmOldPatient 窗体主要包括病人的一下根本信息,“住院”、“诊断”和“出院”三个按钮分别可以在不同的时期进展不同的操作,前二者回到了前面已经介绍过的“诊断”和“住院”模块,而“出院”按钮那么是限制出院的信息管理。而点击“出院”按钮那么进入“出院手续办理”页面,这局部主要是frmDischarge 窗体限制并实现的,从下列图可以看到,几个TextBox和一个ComboBox完成了这一模块的信息记录: 图11出院手续Private Sub Form_Load(Dim flgFound As BooleanlblHeading.Caption=lblHeading.Caption+Str(somePatient.HospNodatHospHist.ConnectionString=ConnectStringdatHospHist.RecordSource=Patient_Hospital_HistorydatHospHist.RefreshdatHospHist.Recordset.MoveLast搜寻PATIENT_HOSPITAL_HISTORY表With datHospHist.RecordsetDoIf.Fields(Hosp_No=somePatient.HospNo ThenflgFound=TrueElse.MovePreviousEnd IfLoop Until(.BOFOr(flgFoundEnd WithWith somePatient显示已收集的信息txtAdmissionDate=.AdmissionDatetxtCaseRefNo=datHospHist.Recordset.Fields(Case_Ref_NotxtDoctorInCharge=.DocNametxtDoctorsDiag=.DiagnosisEnd WithEnd Sub5系统测试5.1测试环境5.1.1硬件环境个人计算机。5.1.2软件环境系统软件:Windows XP SP2。工具软件:Visual Basic6.0;SQL Server2000。5.2模块测试5.2.1系统登陆及管理员权限测试以Admin身份登陆,如下列图,可以增加医生用户,也可对已经存在的用户进展删除和修改密码的操作: 图12管理员权限操作5.2.2医生用户信息测试登陆本系统,在主界面上可以通过点击“医生信息”按钮进入如下界面,此处可以新增医生用户以及对应的根本信息,包括姓名、性别、年龄、籍贯、手机号、科室和职称;也可以通过姓名的输入来查询已经在系统注册的医生的根本资料: 图13新增医生用户信息 图14查询医生信息5.2.3新增病人用户信息测试主界面上点击“病人登记”按钮,可以进入如下对话框,以录入新建病人账户的根本资料: 图15新增病人根本资料5.2.4病人就诊信息测试对于已经在系统注册的病人用户可以在主界面上点击“诊断管理”按钮以进入病情诊断对话框,如下,选择至少一项病情描述,即可依据数据库中所存并请资料统计得到一个诊断结果: 图16病人病情诊断操作5.2.5病人住院信息测试医生通过对病人病情诊断结果的分析确定其是否须要住院,假设须要,那么可通过点击主界面的“住院/出院”按钮或者病人病例界面的“住院”按钮让病人住院,同时,医生将在“住院状况”表里填写入院的时间、主治医生的姓名和医师对病人病情的备注: 图17病人病例信息 图18病人住院操作5.2.6病人出院信息测试病人康复须要出院,医生可以通过点击主界面的“住院/出院”按钮,填写出院信息,包括出院时间、办理该手续的医生姓名以及病人出院时的身体状况: 图19病人康复出院操作结论本毕业设计的题目是基于C/S构造的医院管理系统,用Visual Basic作为开发工具,SQL Server最为后台数据库,实现了医院系统的根本功能,包括新增病人根本信息的录入和查询、病人病情的诊断、医生根本信息录入和查询、病人住院出院的限制等。在设计中期的程序调试期间,总会出现一些错误,都是在连接数据库和控件的运用上留下的bug,通过自己细致检检查和向教师、同学请教,根本得到了解决。由于本系统的开发运用了visual basic 6.0作为开发工具,具有可视化的编程环境,在编程的过程中就可以对所做的结果进展运行,以马上进展改正。功能上还存在一些问题,许多模块的设置不是特别合理,比方关于医生的科室安排及管理这一块在整个系统中没能得到充分的表达,还有就是诊断病症,数据库中所存的疾病以及病症描述比拟有限,也不够专业,导致病症诊断的功能会受到必须限制。后期工作,应当进一步合理规划系统内部逻辑拓扑,调整模块的设计及功能的实现,更加符合现实中的医院管理的实际运作状况。参考文献1赵俊岚.Visual Basic 6.0按部就班教程M.北京:盼望电子出版社,2002。2何玉洁.数据库原理与应用教程M.北京:机械工业出版社,2003。3袁丽欧,沈宏.SQL Server2000开发编程标准教程M.北京,清华大学出版社,2003。4雷鸣.医院管理信息系统的建立与开展J.中国医院管理,2001,(9:13-18。5罗明.计算机信息管理系统在医院中的应用J.医疗设备信息,2003,(4:32-34。6孔令人.现阶段医院HIS系统的HL7改造J.武汉科技学院学报,2003,(3:30-33。7陈沛章.医院设备管理系统的设计与实现J.北京生物医学工程,2005,(5:57-61。8丘奂阳.医院信息系统B/W/D网络计算模型探究J.医疗设备,2002,(12:12-16。本文是在曾令明教师的热忱关怀和指导下完成的,他渊博的学问和严谨的治学作风使我受益匪浅,对顺当完本钱课题起到了极大的作用。在此向他表示我最诚心的感谢!在论文完成过程中,本人还得到了王燚教师和孙菁、陈思名同学的热心帮助,本人向他们表示深深的谢意!最终向在百忙之中评审本文的各位专家、教师表示诚心的感谢!作者简介:姓名:任航性别:男诞生年月:1984.6民族:汉E-mail:besthanghang本论文的工作是2007年2月至2007年6月在成都信息工程学院网络工程系完成的。文中除了特殊加以标注地方外,不包含他人已经发表或撰写过的探究成果,也不包含为获得成都信息工程学院或其他教学机构的学位或证书而运用过的材料。除非另有说明,本文的工作是原始性工作。关于学位论文运用权和探究成果学问产权的说明:本人完全了解成都信息工程学院有关保管运用学位论文的规定,其中包括:(1学校有权保管并向有关部门递交学位论文的原件与复印件。(2学校可以采纳影印、缩印或其他复制方式保存学位论文。(3学校可以学术沟通为目的复制、赠送和交换学位论文。(4学校可允许学位论文被查阅或借阅。(5学校可以公布学位论文的全部或局部内容(保密学位论文在解密后遵守此规定。除非另有科研合同和其他法律文书的制约,本论文的科研成果属于成都信息工程学院。特此声明!作者签名:2007年06月日