医院办公设备管理系统分享

1、真诚为您提供优质参考资料，若有不当之处，请指正。I / 31 华科学院信息系计算机科学与技术专业华科学院信息系计算机科学与技术专业 软件工程课程设计软件工程课程设计报告报告医院办公设备管理系统 （2008-2009 学年 第一学期）学生姓名：学生姓名： 韦杰学生班级：学生班级： 计算机 052203H学学生生学学号号： 200522030319指导教师指导教师： 杨海峰2008 年 12 月 30 日真诚为您提供优质参考资料，若有不当之处，请指正。I / 31目录目录第一章 医院办公设备管理系统概述.11.1 医院办公设备管理系统概述 .11.2 系统的开发方法 .21.3 系统开发的任务和目

2、的 .21.4 系统的开发环境 .31.4.1 硬件环境 .31.4.2 软件环境 .3第二章 需求分析.42.1 数据流图 .42.2 数据字典 .52.3 实体 XXX 图 .62.4 数据库设计 .82.4.1 概念数据模型（CDM）.82.4.2 物理数据模型（PDM）.92.4.3 数据库设计表 .92.4.4 数据库代码.11第三章 总体设计.143.1 引言 .143.2 系统设计的目标 .143.3 系统功能模块 .14第四章 详细设计及编码实现.164.1 系统登陆窗体的创建 .164.2 设备的基础管理窗体的创建 .184.3 设备的档案管理窗体的创建 .19第五章 系统测

3、试分析.235.1 测试方法 .235.2 测试内容 .23真诚为您提供优质参考资料，若有不当之处，请指正。II / 315.2.1 登陆界面测试.235.2.2 设备基础管理测试.245.2.3 设备信息查询测试 .265.2.4 测试结果 .26个人小结.27参考文献.28真诚为您提供优质参考资料，若有不当之处，请指正。1 / 31第一章 医院办公设备管理系统概述1.1 医院办公设备管理系统概述医院办公设备实行计算机管理，已成为一种普遍的设备管理手段。对于加强医院资产管理，提高医院办公设备档案管理水平及为医院发展提供可靠的经济数据发挥了极其重要的作用，同时也是衡量一个医院是否具有现代化管理

4、水平的标志。医院办公设备管理系统运用的是我们常说的 MIS，在强调管理，强调信息的现代社会中它变得越来越普及。MIS 是一门新的学科,它跨越了若干个领域。管理信息系统的应用存在三个要素，这就是人，计算机和数据。计算机技术是 MIS 得以实施的主要技术。在这些技术中，软件开发是 MIS 开发的重点。而在管理信息系统的计算机软件技术中，人机界面已经发展成为一个重要的分支。人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式；另一方面，计算机向人传递的信息必须准确，不致引起误解或者混乱。统一的人机界面不会增加用户的负担，让用户始终用同一种方式思考

5、与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。多数 MIS 软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入，而应让用户用鼠标轻松选择。医院办公设备管理作为管理信息系统的一种，必然需要一种系统软件来进行维护工作。基于这种原因，依据设备处提供的有关资料，开发了医院办公设备管理系统软件。该系统包括以下几个功能模块：(1)医疗设备的基础管理指对医疗设备的申请购置、入库、领用出库、退库情况进行全程的设备跟踪管理。在使用中，输入各种基础数据进行归档、立账，建立各种灵活方便的查询关系、自动统计各项数据和生成各类报表。(2)医疗设备的档案管理对大型医疗设备的单机技术档案实行

6、计算机化管理。进行建档登记后，自动设备分类编号，自动查询。(3)低值易耗品的管理对医用低值易耗品和卫生材料的计划采购、入库、请领、盘点、报废、退货等工作进行全面、有效的监督，在有关人员进行审核、立账后，自动进行各种查询和统计，真诚为您提供优质参考资料，若有不当之处，请指正。2 / 31打印分类报表。类于医疗设备的基础管理。(4)系统维护系统在国际流行的标准应用与开发平台上，便于用户操作与系统维护，保证了系统的可扩展性与开放性。采用参数化设计模式，含有数据整复、重建索引、数据备份以及备份恢复等系统自动维护功能。1.2 系统的开发方法管理系统的开发是一个复杂的系统工程，它涉及到计算机处理技术、系统

7、理论、组织结构、管理功能、管理知识等各方面的问题。管理系统的开发方法主要有：结构化生命周期开发方法、原型法、面向对象的开发方法等。目前较为流行的 MIS 开发方法是结构化生命周期开发方法，其基本思想是：用系统的思想和系统工程的方法，按用户至上的原则，结构化、模块化地自上而下对生命周期进行分析与设计。用结构化生命周期开发方法开发一个系统，将整个开发过程划分为 5 个依次连接的阶段：1.系统规划阶段：主要任务是明确系统开发的请求，并进行初步的调查，通过可行性研究确定下一阶段的实施。2.系统分析阶段：主要任务是对组织结构与功能进行分析，理清数据流程的处理，并且将数据流程抽象化，通过对功能数据的分析，

8、提出新系统的逻辑方案。3.系统设计阶段：主要任务是确定系统的总体设计方案、划分子系统功能、确定共享数据的组织，然后进行详细设计。4.系统实施阶段：主要任务是讨论确定设计方案、对系统模块进行调试、进行系统运行所需数据的准备、对相关人员进行培训等。5.系统运行阶段：主要任务是进行系统的日常运行管理，评价系统的运行效率，对运行费用和效果进行监理审计。原型法的基本思想是系统开发人员凭借自己对用户需求的理解，通过强有力的软件环境支持，构造出一个实在的系统原型，然后与用户协商，反复修改原型直至用户满意。面向对象的系统开发方法的基本思想是将客观世界抽象地看成是若干相互 XXX 的对象，然后根据对象和方法的特

9、性研制出一套软件工具，使之能够映射为计算机软件系统结构模型和进程，从而实现信息系统的开发。经过综合比较，医院办公设备管理系统以结构化生命周期法为开发方法。1.3 系统开发的任务和目的 系统初步命名为医院办公设备管理系统。本系统开发的主要任务就是在医院管理真诚为您提供优质参考资料，若有不当之处，请指正。3 / 31系统中建立一个平台，方便管理医院办公设备，对办公设备的申请购置，入库，出库进行统一的管理，节省了物力和人力。另外，用户能直接的查询到各种办公设备的信息，方便了用户领取各种设备。所以，做出一个办公设备管理系统是很有必要的。1.4 系统的开发环境医院办公设备管理系统采用客户/服务器结构，后

10、台采用了当今流行的 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

11、 / 31第二章 需求分析2.1 数据流图数据流图(Data Flow Diagram,简称 DFD) 是新系统逻辑模型的主要组成部分，它可以反映出新系统的主要功能、系统与外部环境间的输入输出、系统内部的处理、数据传送、数据存储等情况。它的绘制依据是现行系统流程图，数据流程图是管理信息系统的总体设计图。其中数据处理指对数据的逻辑处理功能，也就是对数据的变换功能。数据流是指处理功能的输入或输出，用一个水平箭头或垂直箭头表示。数据存储是数据保存的地方。数据源/数据去向表示数据的来源或数据的流向。数据流图描绘系统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。因为数据

12、流图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流图只需考虑系统必须完成的基本逻辑功能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。 医院办公设备管理系统主要是为了对设备进行计算机管理。所以主要的数据源应是设备有关方面的各种信息。如图 2.1 为数据流图：Flow_19Flow_18Flow_17Flow_16Flow_15Flow_14Flow_13Flow_12Flow_11Flow_9Flow_8Flow_7123图 2.1 设备管理系统数据流图真诚为您提供优质参考资料，若有不当之处，请指正。5 / 312

13、.2 数据字典 数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后所获得的主要成果。 数据字典通常包括以下 5 个部分： 1. 数据项：数据项是不可再分的数据单位。 2. 数据结构：数据结构反映了数据之间的组合关系。一个数据结构可以由若干个数据项组成，也可以由若干个数据结构组成，或由若干数据项和数据结构混合组成。 3. 数据流：数据流是数据结构在系统内传输的路径。 4. 数据存储：数据存储是数据及其结构停留或保存的地方，也是数据流的来源和去向之一。 5. 处理过程：处理过程的具体处理逻辑一般用判定表或判定树来描述。数据字典是关于数据库中数据的描述，即对元数据的描述。数 据字典是在

14、需求分析阶段建立，在数据库设计过程中不断修改、充实、完善的。数据项：员工号 描述：唯一地标识数据库中员工的一个特定的关键域 定义：员工号8字符8 位置：员工基本信息 数据项：部门号 描述：唯一地标识数据库中单位部门的一个特定的关键域 定义：部门号8字符8 位置： 部门基本信息数据项：设备号 描述：唯一地标识数据库中工作岗位的一个特定的关键域 定义：设备号8字符8 位置：设备基本信息真诚为您提供优质参考资料，若有不当之处，请指正。6 / 31数据项：基本信息查询报表 描述：用户指定条件下的员工基本情况查询结果的信息表 定义：基本信息查询报表员工号姓名年龄性别位置：输出到打印机 数据项：部门基本信

15、息查询报表 描述：用户指定条件下的部门基本情况查询结果的信息表 定义：基本信息查询报表部门编号+部门名称+部门人数 位置：输出到打印机 2.3 实体 XXX 图员工基本信息包括了 4 个方面：员工编号，姓名，年龄，性别。如图 2.2 为员工基本信息 E-R 图：图 2.2 员工基本信息 E-R 图 部门信息包括 3 个方面：部门编号，部门名称，部门人数。如图 2.3 为部门信息E-R 图：真诚为您提供优质参考资料，若有不当之处，请指正。7 / 31图 2.3 部门信息 E-R 图设备信息包括 3 个方面：设备编号，设备名称，设备出厂编号。如图 2.4 为设备信息 E-R 图：图 2.4 设备信

16、息 E-R 图 通过对上面 3 个分 E-R 图的结合，得出了下面的总 E-R 图。如图 2.5 为总体 E-R 图：真诚为您提供优质参考资料，若有不当之处，请指正。8 / 31图 2.5 总体 E-R 图2.4 数据库设计2.4.1 概念数据模型（CDM）数据模型是现实世界中数据特征的抽象。数据模型应该满足三个方面的要求：（1）能够比较真实地模拟现实世界（2）容易为人所理解（3）便于计算机实现概念数据模型也称信息模型，它以实体XXX(Entity-RelationShip,简称 E-R)理论为基础，并对这一理论进行了扩充。它从用户的观点出发对信息进行建模，主要用于数据库的概念设计。通常人们先

17、将现实世界抽象为概念世界，然后再将概念世界转为机器世界。换句话说，就是先将现实世界中的客观对象抽象为实体(Entity)和 XXX (Relationship),它并不依赖于具体的计算机系统或某个 DBMS 系统，这种模型就是我们所说的 CDM;然后再将 CDM 转换为计算机上某个 DBMS 所支持的数据模型，这样的模型就是物理数据模型,即 PDM。CDM 是一组严格定义的模型元素的集合，这些模型元素精确地描述了系统的静态特性、动态特性以及完整性约束条件等，其中包括了数据结构、数据操作和完整性约束三部分。（1）数据结构表达为实体和属性；真诚为您提供优质参考资料，若有不当之处，请指正。9 / 3

18、1（2）数据操作表达为实体中的记录的插入、删除、修改、查询等操作；（3）完整性约束表达为数据的自身完整性约束（如数据类型、检查、规则等）和数据间的参照完整性约束（如 XXX、继承 XXX 等） ；如图 2.6 为 CDM：Relation_108Relation_107yg messageyg idnamesexyyg agebm messagebm idbm namebm membersb messagesb idsb nameout num图 2.6 CDM2.4.2 物理数据模型（PDM）物理数据模型（ Physical Data Model）：简称物理模型，是面向计算机物理表示的模型，

19、描述了数据在储存介质上的组织结构，它不但与具体的DBMS 有关，而且还与操作系统和硬件有关。每一种逻辑数据模型在实现时都有起对应的物理数据模型。DBMS 为了保证其独立性与可移植性，大部分物理数据模型的实现工作又系统自动完成，而设计者只设计索引、聚集等特殊结构。在概念数据模型中最常用的是 E-R 模型、扩充的 E-R 模型、面向对象模型及谓词模型。在逻辑数据类型中最常用的是层次模型、网状模型、关系模型。如图2.7 为 PDM：ID = BM_IDID = IDYG_MESSAGEIDcharacter(20)NAMEAGEcharacter(3)SEXYBM_MESSAGEIDcharacte

20、r(20)NAMEBM_MEMBERcharacter(4)SB_MESSAGEIDcharacter(20)BM_IDcharacter(20)NAMEOUT_NUMcharacter(20)图 2.7 PDM2.4.3 数据库设计表（1）用户信息表，如图 2.8：图 2.8 用户信息表真诚为您提供优质参考资料，若有不当之处，请指正。10 / 31（2）部门信息表，如图 2.9：图 2.9 部门信息表 （3）设备信息表，如图 2.10：图 2.10 设备信息表（4）员工信息表，如图 2.11：图 2.11 员工信息表真诚为您提供优质参考资料，若有不当之处，请指正。11 / 312.4.4 数

21、据库代码数据库实现所需的 SQL 语句代码如下：use mastergoif exists (select * from dbo.sysdatabases where name = yiyuan) drop database yiyuangocreate database yiyuangouse yiyuangocreate table login(id char(16) primary key,pw char(20) not null,)gocreate table sys_ygxx(员工号 char(8) primary key,员工姓名 char(8) not null,性别 char(

22、2) not null,年龄 char(2) not null,)gocreate table sys_sbxx(设备编号 char(6) primary key,设备名称 char(10) not null,设备数量 char(8) not null,);gocreate table sys_bmxx(部门编号 char(10) primary key, 部门名称 char(20) not null, 部门人数 char(6) not null,);go真诚为您提供优质参考资料，若有不当之处，请指正。12 / 31insert into login (id,pw)values (weijie

23、,123456789);goinsert 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(1

24、00005,张鱼,女,23);insert into sys_ygxx( 员工号,员工姓名,性别,年龄)values(100006,王龙,男,32);goinsert 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 (0300

25、4,打印机,4);insert into sys_sbxx( 设备编号,设备名称,设备数量)values (03005,心电仪,3);insert into sys_sbxx( 设备编号,设备名称,设备数量)values (03006,多功能手术台,5);goinsert into sys_bmxx( 部门编号,部门名称,部门人数)values(yy0001,外科,20);insert into sys_bmxx( 部门编号,部门名称,部门人数)values(yy0002,内科,17);insert into sys_bmxx( 部门编号,部门名称,部门人数)values(yy0003,精神科

26、,30);insert into sys_bmxx( 部门编号,部门名称,部门人数)values(yy0004,妇科,48);insert into sys_bmxx( 部门编号,部门名称,部门人数)values(yy0005,儿科,31);真诚为您提供优质参考资料，若有不当之处，请指正。13 / 31goselect * from loginselect * from sys_ygxxselect * from sys_sbxxselect * from sys_bmxxgo真诚为您提供优质参考资料，若有不当之处，请指正。14 / 31第三章 总体设计3.1 引言总体设计阶段的基本目的就是用

27、比较抽象概括的方式确定系统如果完成预定的任务，也就是说，应该确定系统的物理配置方案，并且进而确定组成系统的每个程序的结构。在进行详细的过程设计和编写程序之前，首先进行结构设计，其好处正在于可以在软件开发的早期站在全局高度对软件结构进行优化。在这个时期进行优化付出的代价不高，却可以使软件质量得到重大改进。总体设计阶段的另一项重要任务就是设计软件的机构，也就是要确定系统中的每个程序是由哪些模块组成的，以及这些模块相互间的关系。3.2 系统设计的目标设计本系统主要是为了给医院设备管理提供一个很简洁，方便的平台。在次平台上，能实现对设备的申请购置，设备的入库，设备的出库进行很好的管理，节省了很多物力，

28、人力。通过本系统，还能准确的查询到库里的所有设备信息，更对员工门领取设备提供了许多方便，很好的实现了医院办公设备管理的系统化。3.3 系统功能模块本系统主要分为以下几个层次：（1）第一层主要包括了 4 个模块：设备的基础管理，设备的档案管理，低值易耗品的管理以及系统维护。（2）第二层主要就是上述几大模块的子模块，我设计的系统主要实现了设备的基础管理和设备的档案管理。如图 3.1 为系统功能模块图：真诚为您提供优质参考资料，若有不当之处，请指正。15 / 31图 3.1 系统功能模块图在设备的基础管理模块里，有 5 个基本功能：申请购置是用户向系统提出申请，将申请购置的设备信息添加到设备信息表中

29、，最后统一进行购置；设备入库的功能是将购入的设备信息添加到信息表，方便用户的查询；领用出库是功能是将用户领用出库的设备信息添加到设备信息表中；设备转让的功能是将转让后的设备信息添加到信息表；设备退库的功能是将报废或领用出库的设备信息从设备信息表中删除。在设备的档案管理模块中，主要实现 3 个基本功能：申请购置是用户向系统提出申请，将申请购置的设备信息添加到设备信息表中，最后统一进行购置；自动查询则是让用户直接查询到设备仓库里的所有设备信息；打印清单是用户最后把想要的设备信息通过打印输出。真诚为您提供优质参考资料，若有不当之处，请指正。16 / 31第四章 详细设计及编码实现4.1 系统登陆窗体

30、的创建添加一个窗体，利用 VB 提供的控件，并设置其属性，得到的窗体如下图。如图4.1 为系统登陆窗体：图 4.1 系统登陆窗体登陆窗体主要实现的就是用户登陆功能，输入正确的用户名和密码即可。系统流程图如图 4.2：真诚为您提供优质参考资料，若有不当之处，请指正。17 / 31图 4.2 医院办公设备管理子系统流程图代码如下：Private Sub Command1_Click() Dim strSql As String sql 查询语句 Dim rst As New ADODB.Recordset If Trim(id.Text) = Then MsgBox 请输入正确的用户名!, vbO

31、KOnly + 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 rs

32、t.Close Me.Hide main.Show真诚为您提供优质参考资料，若有不当之处，请指正。18 / 31 Else MsgBox 密码不正确，请重新输入!, vbOKOnly + vbExclamation, 警告 pw.Text = pw.SetFocus End If End If End IfEnd SubEnd SubPrivate Sub Command2_Click()EndEnd Sub4.2 设备的基础管理窗体的创建这个模块的主要功能就是进行设备的信息添加，正确的输入设备名称、设备数量、设备编号，系统就会将信息添加到数据库。如图 4.3 为设备基础管理窗体：图 4.3

33、设备基础管理窗体代码如下：Private Sub Command1_Click()Dim strSql As StringDim rst As New ADODB.RecordsetstrSql = insert into sys_sbxx (设备编号,设备名称,设备数量)values( & txtID.Text & , & 真诚为您提供优质参考资料，若有不当之处，请指正。19 / 31txtName.Text & , & txtNum.Text & )If Trim(txtID.Text) = ThenMsgBox 设备编号不能为空End If

34、If Trim(txtName.Text) = ThenMsgBox 设备名称不能为空ElseIf Trim(txtNum.Text) = ThenMsgBox 设备数量不能为空, vbOKOnly, 警告ElseSet rst = ExecuteSql(strSql)MsgBox 提交成功, vbOKOnly + vbExclamation, 恭喜End IfEnd IfPrivate Sub txtNum_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 0-9 Exit Sub Case Else KeyAs

35、cii = 0 MsgBox , vbOKOnly + vbExclamation, End SelectEnd Sub4.3 设备的档案管理窗体的创建这个模块可以实现的就是查询设备信息的功能，通过 SQL 查询语句把设备信息查询出来。如图 4.4 为档案管理的窗体：真诚为您提供优质参考资料，若有不当之处，请指正。20 / 31图 4.4 设备档案窗体通过查询，得出设备信息表。如图 4.5 为设备信息：图 4.5 设备信息代码如下：Option ExplicitDim rst As New ADODB.RecordsetDim rstName As New ADODB.RecordsetDim

36、 strSql, strSqlName As StringPublic Sub ShowData() Dim j As Integer真诚为您提供优质参考资料，若有不当之处，请指正。21 / 31 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 Sel

37、ect 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 SubPrivate Sub btnClose_Click() Me.Hide 设备的档案

38、管理.ShowEnd SubPrivate Sub Form_Load() txtID.Text = With MSFlexGrid1 固定表头 .FixedRows = 1 表头居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1真诚为您提供优质参考资料，若有不当之处，请指正。22 / 31 .ColSel = .Cols - 1 .CellAlignment = 4 .Rows = 2 .Cols = 3 End With guding liekuan MSFlexGrid1.ColWidth(0) = 1200 MSFl

39、exGrid1.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.TextMatrix(0, 2) = 设备数量ShowData End Sub真诚为您提供优质参考资料，若有不当之处，请指正。23 / 31第五章 系统测