2023年校医院门诊管理信息系统实验报告

数据库技术与应用实验报告实验题目:校医院门诊管理信息系统姓名：学号:班级：联系方式：2０23年12月需求分析系统需求设计这个校医院门诊管理信息系统的目的是为了规范校医院门诊过程中处方、收费单据等的财务规范性,提高看病、报销效率。校医院门诊管理信息系统的重要功能是实现各项相关信息(涉及病人的相关信息、费用标准的相关信息)的编辑和查询以及对各类新用户的添加。本系统中的用户分为如下四种:（１)医生。在本系统中,医生的用户类型被定义为“１”。“医生”类型的用户在本系统中具有以下权限：a．查询学生的挂号记录。b.创建维护学生的诊疗记录，如症状、诊疗结果等。（即进行编辑)ｃ．创建维护学生的处方单。（即进行编辑）(2）挂号人员。在本系统中，挂号人员的用户类型被定义为“２”。“挂号人员”类型的用户在本系统中具有以下权限:a.创建、维护学生挂号记录，如学号、姓名、年龄、学院、本科、研究生、医保类型等。(即进行编辑）b.查询学生的诊疗记录、处方。财务人员。在本系统中,财务人员的用户类型被定义为“3”。“财务人员”类型的用户在本系统中具有如下权限：A．查询学生的挂号记录、处方记录、诊疗记录、交费记录。b.查询药品费用记录。ｃ．查询治疗费用标准记录。d.维护学生的医药费报销记录。(即进行编辑)划价人员。在本系统中，划价人员的用户类型被定义为“4”。“划价人员”类型的用户在本系统中具有如下权限;ａ.创建药品价格记录、治疗费用标准。（即进行编辑)ｂ.查询药品价格纪录。c.查询治疗费用标准。d．创建、维护学生的交费费用单据。(即进行编辑）功能需求根据系统需求分析，本系统的功能规定如下:病人管理。病人管理的功能是供用户对病人的挂号记录、诊疗记录、处方、缴费记录、医保报销记录等信息进行编辑和查询。费用标准管理。费用标准管理的功能是供用户对治疗费用标准(对于诊疗项目而言的）、药品价格记录等信息进行编辑和查询。添加新用户。用户可以添加新用户的信息来创建与自己用户类型即使用权限相同的新用户。退出系统。用户在结束使用之后可以主界面选择“退出系统”,进而退出系统,回到Ｗindowｓ环境。软件环境需求操作系统:Ｗｉndowｓ7。数据库：MｉcroｓoftSQLServer２02３．系统设计数据库设计整个校医院门诊管理信息系统涉及的数据实体重要有病人、药品、诊疗项目、费用、医生、财务人员、挂号人员、划价人员、处方、诊疗记录等。“病人”实体与“药品”实体之间的联系描述了病人的用药情况，“医生”、“划价人员”、“挂号人员”、“财务人员”都是为“病人”服务的，“病人”消耗“药品”,“病人”使用“诊疗项目”，“病人”花费“费用”。“医生”为“病人”开具“处方”,创建编辑“诊疗记录”。所以，系统有如下关系模式:病人(学号，姓名，性别,年龄，学院，学历，医保类型)药品(药品编号,药品名称，进货价格,出售价格,保质期，库存量,药品功能，用法用量，划价日期,划价人员编号）诊疗项目(诊疗项目编号,收费标准,诊疗项目名称）费用(学号，医保报销费用，需交费用，诊疗项目花费,药品费用，实交费用，缴费日期，划价人员编号)医生(医生编号，医生姓名,所属科室）划价人员(划价人员编号,划价人员姓名)财务人员（财务人员编号,财务人员姓名）挂号人员(挂号人员姓名,挂号人员编号）处方（学号，医生编号,处方,开具日期,诊疗结果，病人症状）诊疗记录(学号,医生编号,症状,诊疗结果)(I)E－R图如下:划价人员医生财务人员挂号人员服务 病人诊疗记录使用产生包含ﻩ药品诊疗项目费用处方学号姓名性别年龄学历医保类型病人财务人员财务人员编号财务人员姓名处方学号医生编号处方开具日期诊疗结果症状费用缴费日期划价人员编号学号医保报销费用需交费用诊疗项目花费药品费用实交费用挂号人员挂号人员编号挂号人员姓名划价人员划价人员编号划价人员姓名药品功能用法用量划价日期划价人员编号药品药品名称药品编号进货价格出售价格保质期库存量医生医生编号医生姓名所属科室诊疗记录学号医生编号症状诊疗结果诊疗项目编号诊疗项目诊疗项目名称收费标准（II)将E-Ｒ图转换为如下关系表：病人信息表财务人员信息表处方信息费用挂号人员信息表划价人员信息表系统用户登录表药品信息表医保报销记录医生信息表诊疗记录诊疗项目信息表(ＩII)创建挂号人员信息表的语句如下，其他表的创建语句与此类似不再赘述:Uｓｅ校医院门诊信息管理系统GｏCREAＴEＴABLE挂号人员信息表(挂号人员姓名nchar(10）ＮＯTNUＬＬ，挂号人员编号nｃhaｒ(10)NOTNUＬL),ＰRIMARＹKEY(挂号人员编号)(IV）数据库中的关系图：ＶB程序设计过程功能描述这个程序的功能是通过各类用户实现各项相关信息（涉及病人的相关信息、费用标准的相关信息)的编辑和查询以及对各类新用户的添加。具体的内容在“功能需求”部分有具体介绍。而四类用户分别为医生、挂号人员、财务人员、划价人员，他们相应的权限在前文的“系统需求”部分已有具体的交代,在此不再赘述。编辑即相应用户对于相关信息的创建和修改,在程序中用户可通过一条一条翻阅相关信息进行修改、保存，还可以进行删除和添加。一个编辑信息的界面如图一所示。至于查询功能,用户可通过在相应文本框中输入相应的信息，即可实现查询功能。一个查询信息的界面如图二所示。图一学生处方编辑图二病人挂号记录查询在数据库表中原本保存了几条各类型用户的信息，原始的用户可通过查询数据表中自己的信息将自己的信息输入登录界面，进而登录该系统。当用户登录该系统以后,不同的用户会拥有不同的权限,即对于一类用户而言界面上出现的部分功能不能使用,只能使用自己的类型相相应的功能。每一类用户都可添加新用户，但是建议用户添加与自己类型相同的用户,这样可以便于各种职业的用户各司其职,不会看到自己的用户类型本不应当看到的信息,更好地保护用户的隐私。每一次添加新用户之前,系统会对用户进行提醒，请用户注意要添加与自己类型相同的新用户。当用户打算结束本次使用的时候，用户可以在主界面中选择“退出系统”选项,这时会弹出一个带有作者信息的消息框,点击拟定之后即可退出系统。ｂ.程序中所用到的查询语句这个VB程序采用ADO数据控件连接数据库，当它的CｏmmanｄType属性被设立为2-aｄCmｄTable时,可以直接选择要连接的表或存储过程。而当ＣｏmｍandType属性被设立为1-aｄCｍdＴext时,则需要用ＳQＬ语句获取所需记录集,需要将相应ＳＱL语句设立为ADＯ控件的RｃorｄＳoｕrce属性。在这个程序所用到的所有SQL查询语句如下：ＳELECT*From药品信息表（Ｆorm1１)ＳELECT*Ｆrom诊疗项目信息表(Foｒm13)SEＬECT＊Fｒoｍ医保报销记录（Form１5)SELECT＊From诊疗记录(Form5)SELECＴ*Ｆrｏm病人信息表（Ｆorm６)SELＥＣT*Ｆrom处方信息（Ｆｏrm７)ＳELＥCＴ*From费用（Ｆorｍ9）c.关键代码在这个程序中要实现相应的功能，我认为较为关键的代码有实现查询和编辑功能的代码，尚有实现对不同用户进行权限设立的代码。(Ｉ）实现查询功能的代码（以Ｆorm9为例)：在窗体Ｆorm９中插入ADO数据控件，将其命名为“Aｄｏdc１”,将其ＣommａndTypｅ属性设立为“1-ａdＣmdＴｅxt”,RcoｒdSourcｅ属性设立为“SEＬEＣT*Ｆrom费用”。而“查询”按钮的名称为“Coｍmaｎd１”。将数据网格“DaｔaGｒid1”的DａtａSｏuｒce属性设立为”Adodc1”，ＡlｌowUpdａte属性设立为“False”。在使用时,用户将要查询的学号输入名为“Ｔｅxt1”的文本框中。此时该窗体的代码如下:PrivatｅＳubCommand1_Clｉｃk()Adodｃ1．ReｃorｄSouｒce=＂SELECT*From费用Where学号='＂&Trim(Texｔ1.Ｔext)&＂＇＂Adｏdc１.RefresｈEndＳubPriｖａteSｕbCｏmmand2_Click（)ＵｎloadMeＥnｄSｕb这样，当用户输入了想要查询费用的病人的学号并且点击了“查询”按钮之后，这个病人的缴费记录就能单独显示在数据网格中。Forｍ9的窗口显示如图三所示:图三使用Fｏrｍ９窗口进行查询(IＩ）实现编辑功能的代码(以Form2为例）“添加”、“修改”、“删除”、“保存”、“第一条”、“下一条”、“上一条”、“最后一条”的按钮的名称分别为“Commａnd１”、“Coｍmａｎd2”、“Cｏmｍand3”、“Cｏmmａnd4”、“Coｍmａnd5”、“Cｏmｍand6”、“Cｏmmanｄ７”、“Coｍmand8”。窗体中插入ＡDO控件,关联到数据表“处方信息”中。此时这个窗口中以上功能的代码如下:PrivａtｅSubCommａｎｄ1_Click（)Adoｄc1．Reｃordseｔ.ＡdｄNewCｏｍmand1.Enabｌeｄ=FalseCoｍmand４．Enａｂled=TrueEnｄSubPriｖatｅＳubComｍand2_Ｃlｉck()Ａdodｃ1.Rｅcordｓｅt.DeletｅAdodc1.Recｏｒdsｅt.MoｖeNeｘtEndSｕｂPrivａｔeＳubComｍａｎd3_Cｌick(）Adodｃ１.Ｒecordseｔ.UｐｄateEｎdSｕbPrivatｅSubＣoｍmａnd4_Clｉck（)Aｄｏｄc1.Recordsｅt.ＵｐdatｅCoｍmanｄ1.Enabled=TｕreCommand4.Enaｂled＝FａｌseEnｄSuｂPrivatｅSｕbCoｍmaｎd５_Cｌick()Ａdodc1.Ｒecorｄset．MoveＦirstＥｎdＳubPrivatｅＳｕbComｍａnｄ６_Click（)Adodc１.Ｒecoｒdset.MoveNextIfAdｏdc1.Ｒｅcordsｅt．EＯＦThenAｄｏdc1．Ｒecｏｒｄｓeｔ．MoveLａstEndIfEndSubＰｒｉvａｔeＳubＣomｍａｎｄ７＿Clｉｃk()Adodc１.Ｒｅｃordｓet．MoｖeＰreviｏｕsIfＡdoｄc１．Reｃｏｒdseｔ.ＢOFTheｎAdｏdc１.Ｒecordset.MoｖeFｉrsｔEndIfEndＳuｂPrivateSubＣoｍmand8＿Ｃlick()Adodc1.Recorｄｓet.MoveLａstＥｎdSｕb（IIＩ)实现权限设立的代码定义一个模块“Ｍｏduｌｅ1”,内容如下：PuｂlｉcｕｓeｒｔｙpeAsIntegｅr在Forｍ１中使得用户的类型被ｕserｔｙpe的“1”、“2”、“3”、“4”所表达,这些数字的含义在开头有提及，在此不再赘述。以实现“医生”用户的“处方编辑”功能的权限为例，在MＤIForm1中有如下代码：PｒivateSub学生处方记录编辑_Click()Ifuseｒtype＝1ThenＦorm2.Sｈow//Fｏｒｍ2为“处方编辑”窗口ElｓｅMsgBoｘ"对不起,您没有访问权限＂,，"提醒"EndIｆEｎdＳub程序运营结果展示以“挂号人员”用户使用此系统为例展示运营结果，其他用户的运营方式和所见到的各界面与此类似。一方面,在开始运营这个程序的时候会出现一个登录窗口,用户应当在这个登录窗口中输入自己的登录信息,如下图示：(之所以没有将用户的密码隐藏起来是考虑到用户修改方便)假如输入的信息对的则进入主界面:假如输入的用户名没有定义则会弹出一个消息框显示“没有这个用户”,假如输入的密码不对的则会弹出一个消息框显示“密码不对的”,假如输入的用户类型不对则会弹出一个消息框显示“没有符合条件的用户”，而这三个消息框出现之后用户可以点击“拟定”按钮然后回到登录窗口修改信息之后再登录。１.挂号记录编辑当“挂号人员”进入主界面时，可以选择“病人管理”中的“学生挂号记录编辑”来查询学生的挂号记录，如下图所示:当用户单击“添加”按钮时,添加一个新纪录，各输入框显示为空,同时添加按钮变为不可用,避免多次单击“添加”按钮产生多条空记录,而“保存”按钮可以使用,当用户在输入框中输入各字段后，单击“保存”按钮，则将新纪录写入数据库中。例如,现在添加一条记录:学号为“3”,姓名为“六六”，性别为“男”,年龄为“18”，学院为“信息科学与工程学院”,学历为“本科”,医保类型为“城市”,如图示:此时数据表“病人信息表”中增长了关于学生“六六”的信息，而原本这个表中只有两个学生的信息,如图示：对“六六”的年龄进行修改，再按下“修改”按钮,如图示:此时表格中的信息发生了变化，“六六”的年龄变为了19岁:若要删除和“六六”相关的信息,则按下“删除”,之后表格中关于“六六”的信息会被删除:2.学生诊疗记录查询用户还可选择“病人管理”中的“学生诊疗记录查询”来查询诊疗记录，此时出现如下窗口:输入想要查询的病人的学号，然后按下“查询”，相应的学生的诊疗记录出现在网格中：学生处方查询这个操作与2中的操作同样。４.注意由于前面的两个关系图的存在,所以对于用户使用各功能的顺序有规定,