《校医院门诊管理信息系统实验报告》由会员分享，可在线阅读，更多相关《校医院门诊管理信息系统实验报告（20页珍藏版）》请在金锄头文库上搜索。
1、数据库技术与应用数据库技术与应用实验报告实验报告实验题目：校医院门诊管理信息系统 姓 名：学 号：班 级：联系方式：2015 年 12 月1需求分析1.系统需求设计这个校医院门诊管理信息系统的目的是为了规范校医院门诊过程中处方、收费单据等的财务规范性，提高看病、报销效率。校医院门诊管理信息系统的主要功能是实现各项相关信息（包括病人的相关信息、费用标准的相关信息）的编辑和查询以及对各类新用户的添加。本系统中的用户分为如下四种：（1）医生。在本系统中，医生的用户类型被定义为“1”。“医生”类型的用户在本系统中具有以下权限：a.查询学生的挂号记录。b.创建维护学生的诊疗记录，如症状、诊疗结果等。（即
2、进行编辑）c.创建维护学生的处方单。（即进行编辑）（2）挂号人员。在本系统中，挂号人员的用户类型被定义为“2”。“挂号人员”类型的用户在本系统中具有以下权限：a.创建、维护学生挂号记录，如学号、姓名、年龄、学院、本科、研究生、医保类型等。（即进行编辑）b.查询学生的诊疗记录、处方。（3）财务人员。在本系统中，财务人员的用户类型被定义为“3”。“财务人员”类型的用户在本系统中具有如下权限：A.查询学生的挂号记录、处方记录、诊疗记录、交费记录。b.查询药品费用记录。c.查询治疗费用标准记录。d.维护学生的医药费报销记录。（即进行编辑）（4）划价人员。在本系统中，划价人员的用户类型被定义为“4”。“
3、划价人员”类型的用户在本系统中具有如下权限；a.创建药品价格记录、治疗费用标准。（即进行编辑）b.查询药品价格纪录。c.查询治疗费用标准。d.创建、维护学生的交费费用单据。（即进行编辑）2.功能需求根据系统需求分析，本系统的功能要求如下：（1）病人管理。病人管理的功能是供用户对病人的挂号记录、诊疗记录、处方、缴费记录、医保报销记录等信息进行编辑和查询。（2）费用标准管理。费用标准管理的功能是供用户对治疗费用标准（对于诊疗项目而言的）、药品价格记录等信息进行编辑和查询。（3）添加新用户。用户可以添加新用户的信息来创建与自己用户类型即使用权限相同的新用户。（4）退出系统。用户在结束使用之后可以主界
4、面选择“退出系统”，进而退出系统，回到 Windows 环境。3.软件环境需求（1）操作系统：Windows 7。（2）数据库：Microsoft SQL Server 2008.2系统设计1.数据库设计整个校医院门诊管理信息系统涉及的数据实体主要有病人、药品、诊疗项目、费用、医生、财务人员、挂号人员、划价人员、处方、诊疗记录等。“病人”实体与“药品”实体之间的联系描述了病人的用药情况，“医生”、“划价人员”、“挂号人员”、“财务人员”都是为“病人”服务的，“病人”消耗“药品”，“病人”使用“诊疗项目”，“病人”花费“费用”。“医生”为“病人”开具“处方”，创建编辑“诊疗记录”。所以，系统有如
5、下关系模式：（1）病人（学号，姓名，性别，年龄，学院，学历，医保类型）（2）药品（药品编号，药品名称，进货价格，出售价格，保质期，库存量，药品功能，用法用量，划价日期，划价人员编号）（3）诊疗项目（诊疗项目编号，收费标准，诊疗项目名称）（4）费用（学号，医保报销费用，需交费用，诊疗项目花费，药品费用，实交费用，缴费日期，划价人员编号）（5）医生（医生编号，医生姓名，所属科室）（6）划价人员（划价人员编号，划价人员姓名）（7）财务人员（财务人员编号，财务人员姓名）（8）挂号人员（挂号人员姓名，挂号人员编号）（9）处方（学号，医生编号，处方，开具日期，诊疗结果，病人症状）（10）诊疗记录（学号，医
6、生编号，症状，诊疗结果）（I)E-R 图如下：划价人员 医生 财务人员 挂号人员服务病人 诊疗记录 使用 产生 包含药品 诊疗项目 费用 处方学号 姓名 性别 年龄 学历 医保类型病人财务人员财务人员编号 财务人员姓名处方学号 医生编号 处方 开具日期 诊疗结果 症状费用 缴费日期划价人员编号学号 医保 报销费用 需交费用 诊疗项目花费 药品费用 实交费用挂号人员挂号人员编号 挂号人员姓名划价人员划价人员编号 划价人员姓名药品功能 用法用量 划价日期 划价人员编号药品药品名称 药品编号 进货价格 出售价格 保质期 库存量 医生医生编号 医生姓名 所属科室诊疗记录学号 医生编号 症状 诊疗结果诊
7、疗项目编号 诊疗项目 诊疗项目名称收费标准 (II)将 E-R 图转换为如下关系表：病人信息表财务人员信息表处方信息费用挂号人员信息表划价人员信息表系统用户登录表药品信息表医保报销记录医生信息表诊疗记录诊疗项目信息表(III)创建挂号人员信息表的语句如下，其他表的创建语句与此类似不再赘述：Use 校医院门诊信息管理系统GoCREATE TABLE 挂号人员信息表 （挂号人员姓名 nchar(10) NOT NULL,挂号人员编号 nchar(10) NOT NULL),PRIMARY KEY(挂号人员编号）(IV)数据库中的关系图：2.VB 程序设计过程a.功能描述 这个程序的功能是通过各类用
8、户实现各项相关信息（包括病人的相关信息、费用标准的相关信息）的编辑和查询以及对各类新用户的添加。具体的内容在“功能需求”部分有详细介绍。而四类用户分别为医生、挂号人员、财务人员、划价人员，他们对应的权限在前文的“系统需求”部分已经有详细的交代，在此不再赘述。编辑即对应用户对于相关信息的创建和修改，在程序中用户可通过一条一条翻阅相关信息进行修改、保存，还可以进行删除和添加。一个编辑信息的界面如图一所示。至于查询功能，用户可通过在对应文本框中输入对应的信息，即可实现查询功能。一个查询信息的界面如图二所示。图一 学生处方编辑图二 病人挂号记录查询在数据库表中原本保存了几条各类型用户的信息，原始的用户
9、可通过查询数据表中自己的信息将自己的信息输入登录界面，进而登录该系统。当用户登录该系统以后，不同的用户会拥有不同的权限，即对于一类用户而言界面上出现的部分功能不能使用，只能使用自己的类型相对应的功能。每一类用户都可添加新用户，但是建议用户添加与自己类型相同的用户，这样可以便于各种职业的用户各司其职，不会看到自己的用户类型本不应该看到的信息，更好地保护用户的隐私。每一次添加新用户之前，系统会对用户进行提醒，请用户注意要添加与自己类型相同的新用户。当用户打算结束本次使用的时候，用户可以在主界面中选择“退出系统”选项，这时会弹出一个带有作者信息的消息框，点击确定之后即可退出系统。b.程序中所用到的查
10、询语句这个 VB 程序采用 ADO 数据控件连接数据库，当它的 CommandType 属性 被设置为 2-adCmdTable 时，可以直接选择要连接的表或存储过程。而当 CommandType 属性被设置为 1-adCmdText 时，则需要用 SQL 语句获取所需记录 集，需要将相应 SQL 语句设置为 ADO 控件的 RcordSource 属性。在这个程序所 用到的所有 SQL 查询语句如下：SELECT * From 药品信息表（Form11)SELECT * From 诊疗项目信息表（Form13)SELECT * From 医保报销记录（Form15)SELECT * From
11、 诊疗记录（Form5)SELECT * From 病人信息表（Form6)SELECT * From 处方信息（Form7)SELECT * From 费用（Form9)c.关键代码在这个程序中要实现相应的功能，我认为较为关键的代码有实现查询和编 辑功能的代码，还有实现对不同用户进行权限设置的代码。（I)实现查询功能的代码（以 Form9 为例）：在窗体 Form9 中插入 ADO 数据控件，将其命名为“Adodc1”,将其 CommandType 属性设置为“1-adCmdText”,RcordSource 属性设置为“SELECT * From 费用” 。而“查询”按钮的名称为“Comm
12、and1” 。将数据网格 “DataGrid1”的 DataSource 属性设置为”Adodc1”,AllowUpdate 属性设置为 “False” 。在使用时，用户将要查询的学号输入名为“Text1”的文本框中。此 时该窗体的代码如下： Private Sub Command1_Click() Adodc1.RecordSource = “SELECT * From 费用 Where 学号=“ & Trim(Text1.Text) & “ Adodc1.Refresh End SubPrivate Sub Command2_Click() Unload Me End Sub 这样，当用户
13、输入了想要查询费用的病人的学号并且点击了“查询”按钮 之后，这个病人的缴费记录就能单独显示在数据网格中。Form9 的窗口显示如 图三所示：图三 使用 Form9 窗口进行查询 （II)实现编辑功能的代码（以 Form2 为例） “添加” 、 “修改” 、 “删除” 、 “保存” 、 “第一条” 、 “下一条” 、 “上一条” 、 “最后一条”的按钮的名称分别为“Command1” 、 “Command2” 、 “Command3” 、 “Command4” 、 “Command5” 、 “Command6” 、 “Command7” 、 “Command8” 。窗体中插 入 ADO 控件，关
14、联到数据表“处方信息”中。此时这个窗口中以上功能的代码 如下：Private Sub Command1_Click()Adodc1.Recordset.AddNew Command1.Enabled = False Command4.Enabled = True End SubPrivate Sub Command2_Click() Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End SubPrivate Sub Command3_Click() Adodc1.Recordset.Update End SubPrivate Sub Com
15、mand4_Click() Adodc1.Recordset.Update Command1.Enabled = Ture Command4.Enabled = False End SubPrivate Sub Command5_Click() Adodc1.Recordset.MoveFirst End SubPrivate Sub Command6_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End SubPrivate Sub Command7_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If End SubPrivate Sub Command8_Click() Adodc1.Recordset.MoveLast End Sub（III)实现权限设置的代码定义一个模块“Module1”,内容如下：Public usertype As Integer在 Form1 中使得用户的类型被 usertype 的“1” 、 “
