医院办公设备管理系统.doc

华华科学院信息系科学院信息系计计算机科学与技算机科学与技术专业术专业 软件工程课程设计软件工程课程设计报告报告 医院办公设备管理系统 （2008-2009 学年 第一学期） 学生姓名：学生姓名： 韦杰 学生班级：学生班级： 计算机 052203H 学学生生学学号号： 200522030319 指导教师指导教师： 杨海峰 2008 年 12 月 30 日 I 目录目录 第一章 医院办公设备管理系统概述1 1.1 医院办公设备管理系统概述 .1 1.2 系统的开发方法 .2 1.3 系统开发的任务和目的 .2 1.4 系统的开发环境 .3 1.4.1 硬件环境 .3 1.4.2 软件环境 .3 第二章 需求分析4 2.1 数据流图 .4 2.2 数据字典 .5 2.3 实体联系图 .6 2.4 数据库设计 .8 2.4.1 概念数据模型（CDM）8 2.4.2 物理数据模型（PDM）9 2.4.3 数据库设计表 .9 2.4.4 数据库代码11 第三章 总体设计.14 3.1 引言 14 3.2 系统设计的目标 14 3.3 系统功能模块 14 第四章 详细设计及编码实现.16 4.1 系统登陆窗体的创建 16 4.2 设备的基础管理窗体的创建 18 4.3 设备的档案管理窗体的创建 19 第五章 系统测试分析.23 5.1 测试方法 23 5.2 测试内容 23 II 5.2.1 登陆界面测试23 5.2.2 设备基础管理测试24 5.2.3 设备信息查询测试 26 5.2.4 测试结果 26 个人小结27 参考文献28 1 第一章 医院办公设备管理系统概述 1.1 医院办公设备管理系统概述 医院办公设备实行计算机管理，已成为一种普遍的设备管理手段。对于加强医院 资产管理，提高医院办公设备档案管理水平及为医院发展提供可靠的经济数据发挥了 极其重要的作用，同时也是衡量一个医院是否具有现代化管理水平的标志。医院办公 设备管理系统运用的是我们常说的 MIS，在强调管理，强调信息的现代社会中它变得越 来越普及。MIS 是一门新的学科,它跨越了若干个领域。管理信息系统的应用存在三个 要素，这就是人，计算机和数据。计算机技术是 MIS 得以实施的主要技术。在这些技 术中，软件开发是 MIS 开发的重点。而在管理信息系统的计算机软件技术中，人机界 面已经发展成为一个重要的分支。人机界面设计的关键是使人与计算机之间能够准确 地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式；另一方面， 计算机向人传递的信息必须准确，不致引起误解或者混乱。统一的人机界面不会增加 用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就 要换一套操作命令与操作方法。多数 MIS 软件的数据输入量较大。对于一些相对固定 的数据，不应让用户频频输入，而应让用户用鼠标轻松选择。医院办公设备管理作为 管理信息系统的一种，必然需要一种系统软件来进行维护工作。基于这种原因，依据 设备处提供的有关资料，开发了医院办公设备管理系统软件。 该系统包括以下几个功能模块： (1)医疗设备的基础管理 指对医疗设备的申请购置、入库、领用出库、退库情况进行全程的设备跟踪管理。 在使用中，输入各种基础数据进行归档、立账，建立各种灵活方便的查询关系、自动 统计各项数据和生成各类报表。 (2)医疗设备的档案管理 对大型医疗设备的单机技术档案实行计算机化管理。进行建档登记后，自动设备 分类编号，自动查询。 (3)低值易耗品的管理 对医用低值易耗品和卫生材料的计划采购、入库、请领、盘点、报废、退货等工 作进行全面、有效的监督，在有关人员进行审核、立账后，自动进行各种查询和统计， 2 打印分类报表。类于医疗设备的基础管理。 (4)系统维护 系统在国际流行的标准应用与开发平台上，便于用户操作与系统维护，保证了系 统的可扩展性与开放性。采用参数化设计模式，含有数据整复、重建索引、数据备份 以及备份恢复等系统自动维护功能。 1.2 系统的开发方法 管理系统的开发是一个复杂的系统工程，它涉及到计算机处理技术、系统理论、 组织结构、管理功能、管理知识等各方面的问题。管理系统的开发方法主要有：结构 化生命周期开发方法、原型法、面向对象的开发方法等。 目前较为流行的 MIS 开发方法是结构化生命周期开发方法，其基本思想是：用系 统的思想和系统工程的方法，按用户至上的原则，结构化、模块化地自上而下对生命 周期进行分析与设计。用结构化生命周期开发方法开发一个系统，将整个开发过程划 分为 5 个依次连接的阶段：1.系统规划阶段：主要任务是明确系统开发的请求，并进 行初步的调查，通过可行性研究确定下一阶段的实施。2.系统分析阶段：主要任务是 对组织结构与功能进行分析，理清数据流程的处理，并且将数据流程抽象化，通过对 功能数据的分析，提出新系统的逻辑方案。3.系统设计阶段：主要任务是确定系统的 总体设计方案、划分子系统功能、确定共享数据的组织，然后进行详细设计。4.系统 实施阶段：主要任务是讨论确定设计方案、对系统模块进行调试、进行系统运行所需 数据的准备、对相关人员进行培训等。5.系统运行阶段：主要任务是进行系统的日常 运行管理，评价系统的运行效率，对运行费用和效果进行监理审计。原型法的基本思 想是系统开发人员凭借自己对用户需求的理解，通过强有力的软件环境支持，构造出 一个实在的系统原型，然后与用户协商，反复修改原型直至用户满意。面向对象的系 统开发方法的基本思想是将客观世界抽象地看成是若干相互联系的对象，然后根据对 象和方法的特性研制出一套软件工具，使之能够映射为计算机软件系统结构模型和进 程，从而实现信息系统的开发。经过综合比较，医院办公设备管理系统以结构化生命 周期法为开发方法。 1.3 系统开发的任务和目的 系统初步命名为医院办公设备管理系统。本系统开发的主要任务就是在医院管理 3 系统中建立一个平台，方便管理医院办公设备，对办公设备的申请购置，入库，出库 进行统一的管理，节省了物力和人力。另外，用户能直接的查询到各种办公设备的信 息，方便了用户领取各种设备。所以，做出一个办公设备管理系统是很有必要的。 1.4 系统的开发环境 医院办公设备管理系统采用客户/服务器结构，后台采用了当今流行的 Microsoft SQL Server2000 数据库系统，前台应用程序采用了 Visual Basic6.0 进行编程。 医院办公设备管理系统的设计和开发是以计算机为操作对象的，因此本系统开发 的环境配置是不能忽视的。 1.4.1 硬件环境 处理器：Intel(R) Core(TM)2 Duo CPU 2.20GHz 内存：512MB 硬盘空间：80GB 1.4.2 软件环境 操作系统：Microsoft Windows XP 数据库：Microsoft SQL Server 2000 应用程序：Visual Basic 6.0 中文版 4 第二章 需求分析 2.1 数据流图 数据流图(Data Flow Diagram,简称 DFD) 是新系统逻辑模型的主要组成部分，它 可以反映出新系统的主要功能、系统与外部环境间的输入输出、系统内部的处理、数 据传送、数据存储等情况。它的绘制依据是现行系统流程图，数据流程图是管理信息 系统的总体设计图。其中数据处理指对数据的逻辑处理功能，也就是对数据的变换功 能。数据流是指处理功能的输入或输出，用一个水平箭头或垂直箭头表示。数据存储 是数据保存的地方。数据源/数据去向表示数据的来源或数据的流向。数据流图描绘系 统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理 的情况。因为数据流图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容 易理解，所以是极好的通信工具。此外，设计数据流图只需考虑系统必须完成的基本 逻辑功能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的 出发点。 医院办公设备管理系统主要是为了对设备进行计算机管理。所以主要的数 据源应是设备有关方面的各种信息。如图 2.1 为数据流图： Flow_19 Flow_18 Flow_17 Flow_16 Flow_15 Flow_14 Flow_13 Flow_12 Flow_11 Flow_9 Flow_8 Flow_7 1 2 3 图 2.1 设备管理系统数据流图 5 2.2 数据字典 数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后所获得 的主要成果。 数据字典通常包括以下 5 个部分： 1. 数据项：数据项是不可再分的数据单位。 2. 数据结构：数据结构反映了数据之间的组合关系。一个数据结构可以由若干个数据 项组成，也可以由若干个数据结构组成，或由若干数据项和数据结构混合组成。 3. 数据流：数据流是数据结构在系统内传输的路径。 4. 数据存储：数据存储是数据及其结构停留或保存的地方，也是数据流的来源和去向 之一。 5. 处理过程：处理过程的具体处理逻辑一般用判定表或判定树来描述。数据字典是关 于数据库中数据的描述，即对元数据的描述。数 据字典是在需求分析阶段建立，在数 据库设计过程中不断修改、充实、完善的。 数据项：员工号 描述：唯一地标识数据库中员工的一个特定的关键域 定义：员工号8字符8 位置：员工基本信息 数据项：部门号 描述：唯一地标识数据库中单位部门的一个特定的关键域 定义：部门号8字符8 位置： 部门基本信息 数据项：设备号 描述：唯一地标识数据库中工作岗位的一个特定的关键域 定义：设备号8字符8 位置：设备基本信息 6 数据项：基本信息查询报表 描述：用户指定条件下的员工基本情况查询结果的信息表 定义：基本信息查询报表员工号姓名年龄性别 位置：输出到打印机 数据项：部门基本信息查询报表 描述：用户指定条件下的部门基本情况查询结果的信息表 定义：基本信息查询报表部门编号+部门名称+部门人数 位置：输出到打印机 2.3 实体联系图 员工基本信息包括了 4 个方面：员工编号，姓名，年龄，性别。如图 2.2 为员工 基本信息 E-R 图： 图 2.2 员工基本信息 E-R 图 部门信息包括 3 个方面：部门编号，部门名称，部门人数。如图 2.3 为部门信息 E-R 图： 7 图 2.3 部门信息 E-R 图 设备信息包括 3 个方面：设备编号，设备名称，设备出厂编号。如图 2.4 为设备 信息 E-R 图： 图 2.4 设备信息 E-R 图 通过对上面 3 个分 E-R 图的结合，得出了下面的总 E-R 图。如图 2.5 为总体 E-R 图： 8 图 2.5 总体 E-R 图 2.4 数据库设计 2.4.1 概念数据模型（CDM） 数据模型是现实世界中数据特征的抽象。数据模型应该满足三个方面的要求： （1）能够比较真实地模拟现实世界 （2）容易为人所理解 （3）便于计算机实现 概念数据模型也称信息模型，它以实体联系(Entity-RelationShip,简称 E-R)理 论为基础，并对这一理论进行了扩充。它从用户的观点出发对信息进行建模，主要用 于数据库的概念设计。通常人们先将现实世界抽象为概念世界，然后再将概念世界转 为机器世界。换句话说，就是先将现实世界中的客观对象抽象为实体(Entity)和联系 (Relationship),它并不依赖于具体的计算机系统或某个 DBMS 系统，这种模型就是我 们所说的 CDM;然后再将 CDM 转换为计算机上某个 DBMS 所支持的数据模型，这样的模 型就是物理数据模型,即 PDM。 CDM 是一组严格定义的模型元素的集合，这些模型元素精确地描述了系统的静态特 性、动态特性以及完整性约束条件等，其中包括了数据结构、数据操作和完整性约束 三部分。 （1）数据结构表达为实体和属性； 9 （2）数据操作表达为实体中的记录的插入、删除、修改、查询等操作； （3）完整性约束表达为数据的自身完整性约束（如数据类型、检查、规则等）和数据 间的参照完整性约束（如联系、继承联系等） ；如图 2.6 为 CDM： Relation_108 Relation_107 yg message yg id name sexy yg age bm message bm id bm name bm member sb message sb id sb name out num 图 2.6 CDM 2.4.2 物理数据模型（PDM） 物理数据模型（ Physical Data Model）：简称物理模型，是面向计算机物理 表示的模型，描述了数据在储存介质上的组织结构，它不但与具体的DBMS 有关， 而且还与操作系统和硬件有关。每一种逻辑数据模型在实现时都有起对应的物理数 据模型。DBMS 为了保证其独立性与可移植性，大部分物理数据模型的实现工作又系 统自动完成，而设计者只设计索引、聚集等特殊结构。 在概念数据模型中最常用的是 E-R 模型、扩充的 E-R 模型、面向对象模型及 谓词模型。在逻辑数据类型中最常用的是层次模型、网状模型、关系模型。如图 2.7 为 PDM： ID = BM_ID ID = ID YG_MESSAGE IDcharacter(20) NAME AGEcharacter(3) SEXY BM_MESSAGE IDcharacter(20) NAME BM_MEMBERcharacter(4) SB_MESSAGE IDcharacter(20) BM_IDcharacter(20) NAME OUT_NUMcharacter(20) 图 2.7 PDM 2.4.3 数据库设计表 （1）用户信息表，如图 2.8： 图 2.8 用户信息表 10 （2）部门信息表，如图 2.9： 图 2.9 部门信息表 （3）设备信息表，如图 2.10： 图 2.10 设备信息表 （4）员工信息表，如图 2.11： 图 2.11 员工信息表 11 2.4.4 数据库代码 数据库实现所需的 SQL 语句代码如下： use master go if exists (select * from dbo.sysdatabases where name = yiyuan) drop database yiyuan go create database yiyuan go use yiyuan go create table login( id char(16) primary key, pw char(20) not null, ) go create table sys_ygxx( 员工号 char(8) primary key, 员工姓名 char(8) not null, 性别 char(2) not null, 年龄 char(2) not null, ) go create table sys_sbxx( 设备编号 char(6) primary key, 设备名称 char(10) not null, 设备数量 char(8) not null, ); go create table sys_bmxx( 部门编号 char(10) primary key, 部门名称 char(20) not null, 部门人数 char(6) not null, ); go 12 insert into login (id,pw) values (weijie,123456789); go insert into sys_ygxx( 员工号,员工姓名,性别,年龄) values(100001,张三,男,30); insert into sys_ygxx( 员工号,员工姓名,性别,年龄) values(100002,李四,男,23); insert into sys_ygxx( 员工号,员工姓名,性别,年龄) values(100003,蒙古人,男,25); insert into sys_ygxx( 员工号,员工姓名,性别,年龄) values(100004,蓝天,男,34); insert into sys_ygxx( 员工号,员工姓名,性别,年龄) values(100005,张鱼,女,23); insert into sys_ygxx( 员工号,员工姓名,性别,年龄) values(100006,王龙,男,32); go insert into sys_sbxx( 设备编号,设备名称,设备数量) values (03001,透视仪,7); insert into sys_sbxx( 设备编号,设备名称,设备数量) values (03002,B 超仪,6); insert into sys_sbxx( 设备编号,设备名称,设备数量) values (03003,胃镜,4); insert into sys_sbxx( 设备编号,设备名称,设备数量) values (03004,打印机,4); insert into sys_sbxx( 设备编号,设备名称,设备数量) values (03005,心电仪,3); insert into sys_sbxx( 设备编号,设备名称,设备数量) values (03006,多功能手术台,5); go insert into sys_bmxx( 部门编号,部门名称,部门人数) values(yy0001,外科,20); insert into sys_bmxx( 部门编号,部门名称,部门人数) values(yy0002,内科,17); insert into sys_bmxx( 部门编号,部门名称,部门人数) values(yy0003,精神科,30); insert into sys_bmxx( 部门编号,部门名称,部门人数) values(yy0004,妇科,48); insert into sys_bmxx( 部门编号,部门名称,部门人数) values(yy0005,儿科,31); 13 go select * from login select * from sys_ygxx select * from sys_sbxx select * from sys_bmxx go 14 第三章 总体设计 3.1 引言 总体设计阶段的基本目的就是用比较抽象概括的方式确定系统如果完成预定的任 务，也就是说，应该确定系统的物理配置方案，并且进而确定组成系统的每个程序的 结构。在进行详细的过程设计和编写程序之前，首先进行结构设计，其好处正在于可 以在软件开发的早期站在全局高度对软件结构进行优化。在这个时期进行优化付出的 代价不高，却可以使软件质量得到重大改进。总体设计阶段的另一项重要任务就是设 计软件的机构，也就是要确定系统中的每个程序是由哪些模块组成的，以及这些模块 相互间的关系。 3.2 系统设计的目标 设计本系统主要是为了给医院设备管理提供一个很简洁，方便的平台。在次平台 上，能实现对设备的申请购置，设备的入库，设备的出库进行很好的管理，节省了很 多物力，人力。通过本系统，还能准确的查询到库里的所有设备信息，更对员工门领 取设备提供了许多方便，很好的实现了医院办公设备管理的系统化。 3.3 系统功能模块 本系统主要分为以下几个层次： （1）第一层主要包括了 4 个模块：设备的基础管理，设备的档案管理，低值易耗品的 管理以及系统维护。 （2）第二层主要就是上述几大模块的子模块，我设计的系统主要实现了设备的基础管 理和设备的档案管理。如图 3.1 为系统功能模块图： 15 图 3.1 系统功能模块图 在设备的基础管理模块里，有 5 个基本功能：申请购置是用户向系统提出申请， 将申请购置的设备信息添加到设备信息表中，最后统一进行购置；设备入库的功能是 将购入的设备信息添加到信息表，方便用户的查询；领用出库是功能是将用户领用出 库的设备信息添加到设备信息表中；设备转让的功能是将转让后的设备信息添加到信 息表；设备退库的功能是将报废或领用出库的设备信息从设备信息表中删除。 在设备的档案管理模块中，主要实现 3 个基本功能：申请购置是用户向系统提出 申请，将申请购置的设备信息添加到设备信息表中，最后统一进行购置；自动查询则 是让用户直接查询到设备仓库里的所有设备信息；打印清单是用户最后把想要的设备 信息通过打印输出。 16 第四章 详细设计及编码实现 4.1 系统登陆窗体的创建 添加一个窗体，利用 VB 提供的控件，并设置其属性，得到的窗体如下图。如图 4.1 为系统登陆窗体： 图 4.1 系统登陆窗体 登陆窗体主要实现的就是用户登陆功能，输入正确的用户名和密码即可。系统流 程图如图 4.2： 17 图 4.2 医院办公设备管理子系统流程图 代码如下： Private Sub Command1_Click() Dim strSql As String sql 查询语句 Dim rst As New ADODB.Recordset If Trim(id.Text) = “ Then MsgBox “请输入正确的用户名!“, vbOKOnly + vbExclamation, “警告“ id.SetFocus Else strSql = “select * from student where id =“ & id.Text & “ “ Set rst = ExecuteSql(strSql) If rst.EOF = True Then MsgBox “用户名不存在，请重新输入!“, vbOKOnly + vbExclamation, “警告“ Set rst = ExecuteSql(strSql) id.SetFocus Else If Trim(rst.Fields(“pw“) = Trim(pw.Text) Then rst.Close Me.Hide main.Show 18 Else MsgBox “密码不正确，请重新输入!“, vbOKOnly + vbExclamation, “警告“ pw.Text = “ pw.SetFocus End If End If End If End Sub End Sub Private Sub Command2_Click() End End Sub 4.2 设备的基础管理窗体的创建 这个模块的主要功能就是进行设备的信息添加，正确的输入设备名称、设备数量、 设备编号，系统就会将信息添加到数据库。如图 4.3 为设备基础管理窗体： 图 4.3 设备基础管理窗体 代码如下： Private Sub Command1_Click() Dim strSql As String Dim rst As New ADODB.Recordset strSql = “insert into sys_sbxx (设备编号,设备名称,设备数量)values(“ & txtID.Text & “,“ & 19 txtName.Text & “,“ & txtNum.Text & “)“ If Trim(txtID.Text) = “ Then MsgBox “设备编号不能为空“ End If If Trim(txtName.Text) = “ Then MsgBox “设备名称不能为空“ Else If Trim(txtNum.Text) = “ Then MsgBox “设备数量不能为空“, vbOKOnly, “警告“ Else Set rst = ExecuteSql(strSql) MsgBox “提交成功“, vbOKOnly + vbExclamation, “恭喜“ End If End If Private Sub txtNum_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 0-9 Exit Sub Case Else KeyAscii = 0 MsgBox “, vbOKOnly + vbExclamation, “ End Select End Sub 4.3 设备的档案管理窗体的创建 这个模块可以实现的就是查询设备信息的功能，通过 SQL 查询语句把设备信息查 询出来。如图 4.4 为档案管理的窗体： 20 图 4.4 设备档案窗体 通过查询，得出设备信息表。如图 4.5 为设备信息： 图 4.5 设备信息 代码如下： Option Explicit Dim rst As New ADODB.Recordset Dim rstName As New ADODB.Recordset Dim strSql, strSqlName As String Public Sub ShowData() Dim j As Integer 21 Dim i As Integer strSql = “select * from sys_sbxx“ Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & “, “yyyy- mm-dd“) Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) & “ End Select Next i rst.MoveNext Loop End With End If rst.Close End Sub Private Sub btnClose_Click() Me.Hide 设备的档案管理.Show End Sub Private Sub Form_Load() txtID.Text = “ With MSFlexGrid1 固定表头 .FixedRows = 1 表头居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 22 .ColSel = .Cols - 1 .CellAlignment = 4 .Rows = 2 .Cols = 3 End With guding liekuan MSFlexGrid1.ColWidth(0) = 1200 MSFlexGrid1.ColWidth(1) = 1200 MSFlexGrid1.ColWidth(2) = 1500 MSFlexGrid1.ColWidth(3) = 2000 MSFlexGrid1.ColWidth(4) = 2000 MSFlexGrid1.ColWidth(5) = 2400 MSFlexGrid1.TextMatrix(0, 0) = “设备编号“ MSFlexGrid1.TextMatrix(0, 1) = “设备名称“ MSFlexGrid1.Tex