住院管理系统实验报告

住院管理系统实验报告实验目的:数据库课程设计的主要目标是：（1）加深对数据库系统、软件工程、程序设计语言的理论知识的理解和应用水平。（2）通过设计实际的数据库系统应用课题，进一步熟悉数据库管理系统的操作技术，提高动手能力，提高分析问题和解决问题的能力。2.实验简述为医院所属各部门提供病人信息和病房信息的收集、存储、处理、提取和数据交换的能力，并满足所有授权用户的功能需求。作为其中的模块之一：住院管理系统，其意义同样不可忽视。住院管理系统主要用来管理病人和病房的关系其中包括在住病人的基本信息，病房的基本信息。此系统可以让医院增加删除病房，还可以登记和出院病人操作员可以根据系统内设定好的费用，在病人出院的同时准确计算出病人在住院期间内的住院费用。3．课程设计全过程（1）可行性分析（2）系统分析（3）需求分析（4）数据库设计概念(模型)设计（实际到概念）逻辑设计（逻辑推导）物理设计（理论到实现）SQL编程、调试（测试验证）（实践反复检验）（5）应用程序编程、调试、测试可行性分析1技术可行性硬件、软件要求不高，目前市场上的一般计算机软硬件资源均能满足系统开发需要。该管理系统以VB和SQLServer为主要开发工具，通过ADO方式与后台数据库MicrosoftSQLServer2000相连接，建立了一个基于C/S（客户机/服务器）的数据库应用管理系统。维护工作方便，由于SQL2000的易用性，使得后台的操作十分便捷，操作人员可以在短时间内完全掌握系统的维护工作。2经济可行性对于每个住院部门，可以根据自己需要，配置性能一般的计算机做为终端，向服务器存储数据或搜索数据。这些电脑的费用对整个住院系统来说并不是一个很重点负担。3社会可行性由于医院住院病人数量众多，因而通过电脑化操作可以减少纸张的使用，同时由于数据直接通过局域网传输，可以减少信息传递时间，提高效率，同时也方便医生，病人搜查相关住院信息，提高医院工作透明度和工作效率。系统分析注重系统的易用性本系统设计过程中力求人性化，结合强大的搜索功能帮助医生、护士、病人随时查找到所需的信息，同时在数据录入过程中，尽可能减少人工输入部分，降低人工输入错误的可能性。注重系统的可移植性由于医院整体系统庞大复杂，可以根据需要实际取系统中的部分功能。同时由于数据库采用微软的SQL2000，可以很方便地备数据，转移数据。系统的名称、目标名称：医院住院管理系统目标：(1)方便医院对病人和病房的管理(2)方便医院管理病人的住院费用需求分析总体功能操作流程住院管理系统系统信息住院管理系统系统信息出院管理病房管理病人登记帮助信息更换用户更改密码新增用户删除用户退出系统病人登记病人查询费用查询病房信息病房查询增/删病房登记出院出院病人查询帮助产题关于所有病房信息空闲病房信息在住病房信息操作员登记/查询病人登记/查询病人登记病人出院查询病房信息查询出院病人操作员登录系统退出系统操作员的操作流程图操作员可以登录/查询病人、查看病房的状态和信息、给要出院的病人登记出院、查询已经出院的病人的信息。管理人员增加/删除病房增加/删除病房备份/恢复数据增加/删除用户更改密码管理人员登录退出系统管理人员登录系统流程管理人员除了具有操作员的功能以外，还可以对病房进行管理、对操作员----用户进行管理、备份/恢复现在的数据库、更改管理员的密码！病人登记基本信息病人登记登记基本信息病人登记住入住入病房病房病人登记住院登记出院信息申请出院病人登记出院信息申请出院病人出院出院概念模型设计数据库要表示的信息如下:管理员的信息。病人的信息。病房的信息病人和病房之间的联系病房类型姓名病房类型姓名病房号1:m证件类型性别病房号1:m证件类型性别证件号码病房在住病人证件号码病房在住病人价格价格在住状态出生日期过敏史在住状态出生日期过敏史年龄血型R/H因子年龄血型R/H因子姓名5.总体联系图姓名在住状态病房号病房类型性别在住状态病房号病房类型性别价格年龄居住病人存在病房医院拥有管理人员身份价格年龄居住病人存在病房医院拥有管理人员身份血型血型R/H因子R/H因子证件类型管理证件类型管理过敏史证件号码过敏史证件号码密码帐号出生日期密码帐号出生日期逻辑设计管理员/操作员→(name,psw,权限)病人信息→(编号,患者姓名,性别，出生日期，证件类型，证件号码，血型，RH因子，过敏史,病房类型，病房号，主治医师，住院时间，定金，登记员，备注)出院病人信息→(编号,患者姓名,性别，出生日期，证件类型，证件号码，血型，RH因子，过敏史,病房类型，病房号，主治医师，住院时间，定金，登记员，备注,出院时间)病房类型/价格→（病房类型，病房价格）病房表→（病房号，病房类型，在住状态，flag）物理结构设计用SQL实现设计实现该设计的环境为WindowsxpPerfessinal+MSSQLServer2000.01．建立病房类型/价格表CREATETABLE[dbo].[bflx]( [病房类型][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [病房价格][int]NULL)ON[PRIMARY]2．建立病房表CREATETABLE[dbo].[bfno]( [病房号][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [病房类型][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [flag][tinyint]NULL, [在住状态][varchar](6)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]建立管理员/操作员信息表CREATETABLE[dbo].[psw]( [name][char](20)COLLATEChinese_PRC_CI_ASNULL, [psw][char](10)COLLATEChinese_PRC_CI_ASNULL, [权限][tinyint]NULL)ON[PRIMARY]5．建立病人信息表CREATETABLE[dbo].[sufferer]( [编号][varchar](8)COLLATEChinese_PRC_CI_ASNOTNULL, [患者姓名][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [性别][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [出生日期][datetime]NULL, [证件类型][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [证件号码][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [血型][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [rh因子][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [过敏史][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [病房类型][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [病房号][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [主治医师][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [住院时间][datetime]NULL, [登记员][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [备注][text]COLLATEChinese_PRC_CI_ASNULL, [压金][int]NULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]6．建立出院病人信息表CREATETABLE[dbo].[出院病人]( [编号][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [患者姓名][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [性别][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [出生日期][datetime]NULL, [证件类型][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [证件号码][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [血型][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [RH因子][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [过敏史][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [病房类型][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [病房号][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [主治医师][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [住院时间][datetime]NULL, [出院时间][datetime]NULL, [登记员][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [备注][text]COLLATEChinese_PRC_CI_ASNULL, [住院费用][int]NULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]7.所有操作登录rs.Open"selectname,pswfrompswwherename='"&Trim(Text1.Text)&"'andpsw='"&Trim(Text2.Text)&"'",cn,adOpenStatic,adLockReadOnly更改密码rs.Open"selectname,pswfrompswwherename='"&cname&"'andpsw='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockOptimisticrs("psw")=Trim(Text2.Text)新增用户rs.Open"select*frompsw",cn,adOpenDynamic,adLockOptimisticrs.AddNewrs("name")=Trim(Text1.Text)rs("psw")=Trim(Text2.Text)rs.Updaters.Close删除用户rs.Open"selectnamefrompsw",cn,adOpenStatic,adLockOptimisticrs.delect更换用户和登录用户一样操作！备份/恢复备份和恢复住院管理系统的ZY数据库备份：sql="usemaster;restoredatabasezyfromdisk='"&a&"'"cn.Execute(sql)恢复：sql="usemaster;restoredatabasezyfromdisk='"&a&"'"cn.Execute(sql)登记病人登记成功把病人信息写到病人信息表中rs.Open"select*fromsufferer",cn,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields(0)=Trim(Text1.Text)rs.Fields(1)=Trim(Text2.Text)rs.Fields(2)=Trim(Combo1.Text)rs.Fields(3)=DTPicker1.Valuers.Fields(4)=Trim(Combo2.Text)rs.Fields(5)=Trim(Text5.Text)rs.Fields(6)=Trim(Combo3.Text)rs.Fields(7)=Trim(Combo4.Text)rs.Fields(8)=Trim(Text6.Text)rs.Fields(9)=Trim(Combo5.Text)rs.Fields(10)=Trim(Combo6.Text)rs.Fields(11)=Trim(Text8.Text)rs.Fields(12)=Trim(Text9.Text)rs.Fields(13)=Trim(Text10.Text)rs.Fields(14)=Trim(Text7.Text)rs.Fields(15)=Val(Text11.Text)rs.Update查询病人包含精确查询和模糊查询编号查询：rs.Open"select*fromsuffererwhere编号='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockReadOnlyrs.Open"select*fromsuffererwhere编号like'%"+Trim(Text1.Text)+"%'orderby编号",cn,adOpenStatic,adLockReadOnly资料查询：rs.Open"select*fromsuffererwhere患者姓名='"&Trim(Text2.Text)&"'and证件号码='"&Trim(Text3.Text)&"'",cn,adOpenStatic,adLockReadOnlyrs.Open"select*fromsuffererwhere证件号码like'%"+Trim(Text3.Text)+"%'orderby证件号码",cn,adOpenStatic,adLockReadOnly病房查询：rs.Open"select*fromsuffererwhere病房类型='"&Trim(Text5.Text)&"'and病房号='"&Trim(Text6.Text)&"'",cn,adOpenStatic,adLockReadOnlyrs.Open"select*fromsuffererwhere病房类型like'%"+Trim(Text5.Text)+"%'orderby病房类型",cn,adOpenStatic,adLockReadOnly病房管理包括增加/删除病房类型和增加/删除病房增加：类型增加：rs.Open"select*frombflx",cn,adOpenStatic,adLockOptimisticrs.AddNewrs("病房类型")=Trim(Text1.Text)rs("病房价格")=Val(Text2.Text)rs.Updaters.Close病房增加：rs1.Open"select*frombfno",cn,adOpenStatic,adLockOptimisticrs1.AddNewrs1("病房类型")=Trim(DataCombo2.Text)rs1("病房号")=Trim(Text3.Text)rs1("在住状态")="空闲"rs1("flag")=0rs1.Updaters1.Close删除：类型删除：rs1.Open"select*frombflxwhere病房类型='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockOptimisticrs1.Delete病房删除：rs.Open"select*frombfnowhere病房类型='"&Trim(DataCombo2.Text)&"'and病房号='"&Trim(Text3.Text)&"'",cn,adOpenStatic,adLockOptimistic登记出院登记出院时把病人的信息增加到出院病人表中rs.Open"select*from出院病人",cn,adOpenStatic,adLockOptimisticrs1.Open"select*fromsuffererwhere编号='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields("编号")=Trim(rs1.Fields("编号"))rs.Fields("患者姓名")=Trim(rs1.Fields("患者姓名"))rs.Fields("性别")=Trim(rs1.Fields("性别"))rs.Fields("出生日期")=rs1.Fields("出生日期")rs.Fields("证件类型")=Trim(rs1.Fields("证件类型"))rs.Fields("证件号码")=Trim(rs1.Fields("证件号码"))rs.Fields("血型")=Trim(rs1.Fields("血型"))rs.Fields("RH因子")=Trim(rs1.Fields("rh因子"))rs.Fields("过敏史")=Trim(rs1.Fields("过敏史"))rs.Fields("病房类型")=Trim(rs1.Fields("病房类型"))rs.Fields("病房号")=Trim(rs1.Fields("病房号"))rs.Fields("主治医师")=Trim(rs1.Fields("主治医师"))rs.Fields("住院时间")=Trim(rs1.Fields("住院时间"))rs.Fields("出院时间")=Trim(Text5.Text)rs.Fields("登记员")=Trim(rs1.Fields("登记员"))rs.Fields("备注")=Trim(rs1.Fields("备注"))rs.Fields("住院费用")=Val(Text6.Text)rs.Updaters.Closers1.Deleters1.Updaters1.Close出院病人查询rs.Open"select*from出院病人where患者姓名like'%"+Trim(Text1.Text)+"%'",cn,adOpenStatic,adLockReadOnly根据出院病人的编号查询测试阶段用户管理部分新增加用户,删除用户,更换用户,更改密码!在删除用户的时候超级管理员用户不能删除,而且普通操作员登录后不能删除用户,在删除管理员的时候要用户提了确认信息才能删除,以免用户的误操作!在调试用户管理部分时候以上问题都要注意。病人登记/查找部分在病人登记的时候要能够自动显示当前的操作员，并写入到数据库当中。登记日期也是由系统自动生成。查询病人的同时有精确查询和模糊查询，这样更加增加了系统的灵活性，在调试时候也要用大量的数据来试。如数据库中定义了姓名不能超过10个字符，调试时候超过10个就报错所以必须定义text的maxlength为一个固定的长度，以防止用户输入错误的信息而引起的错误。后来的地方对这方面也加以注意.登记出院/查询出院病人部分这部分调试的难点在与能够自动生成病人在住院期间的费用，要用到DateDiff来实现时间的相减。同时登记出院成功后要正确的把病人的信息加载到出院病人表里面。以便下面的查询！而查询出院病人则通过病人惟一的编号查询。增强了准备性！备份/恢复部分这部分是调试阶段