住院病人管理系统教案资料

住院病人管理系统沈阳航空航天大学课程设计报告课程设计名称：软件综合课程设计课程设计题目：病人住院管理院（系）：计算机学院专业：班级：学号：姓名：指导教师：完成日期： 2011年09月09日目录1 系统分析 (1)1.1需求分析 (1)1.2开发工具 (1)1.2.1V ISUAL B ASIC 6.0 (1)1.2.2M ICROSOFT O FFICE A CCESS (3)2 概要设计 (5)2.1数据库概念结构设计 (5)2.2系统模块设计 (7)3 详细设计 (9)3.1数据库逻辑结构设计 (9)3.2系统子模块设计 (11)3.2.1编写全局变量和通用过程 (11)3.2.2用户管理模块 (12)3.2.3病人资料管理模块 (13)3.2.4费用输入模块 (17)4 调试分析 (19)5 测试及运行结果 (20)5.1用户登陆界面 (20)5.2用户管理界面 (21)5.3病人资料管理界面 (23)参考文献 (26)附录 (27)1 系统分析1.1需求分析实现一个病人住院管理系统，系统可以连接数据库。

病人入院时，住在指定科室的病房（如外科、内科、儿科等），到每个病人有一个主治医生负责，可以选择单人间和三人间病房，如果选择三人间病房，床位由系统分配。

入院时通过该系统将病人的信息添加数据库中。

当病人出院时计算住院期间的费用（药费、床费、餐费等）。

系统能够按照病人、病房、主治医生进行查询，所以查询模块至少有三个界面分别显示相关信息。

1.2开发工具1.2.1Visual Basic 6.0Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。

从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB 的开发者还是抱怨VB的开发者的数量。

它源自于BASIC编程语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。

VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。

因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

窗体控件的增加和改变可以用拖放技术实现。

一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。

每个控件都有自己的属性和事件。

默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。

很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。

举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。

在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。

VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。

有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。

VB的组件既可以拥有用户界面，也可以没有。

这样一来服务器端程序就可以处理增加的模块。

VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。

因为越来越多组建的出现，程序员可以选用自己需要的扩展库。

和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。

默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。

1.2.2Microsoft Office AccessMicrosoft Office Access（前名 Microsoft Access）是由微软发布的关联式数据库管理系统。

它结合了 Microsoft Jet Database Engine 和图形用户界面两项特点，是 Microsoft Office的成员之一。

其实Access 也是微软公司另一个通讯程序的名字，想与 ProComm 以及其他类似程序来竞争。

可是事后微软证实这是个失败计划，并且将它中止。

数年后他们把名字重新命名于数据库软件。

Access在2000年的时候成为了计算机等级考试中的计算机二级的一种数据库语言并且因为它的易学易用的特点正逐步取代传统的VFP成为二级中最受欢迎的数据库语言。

Access 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS，即Relational Database Management System），是Office系列应用软件之一。

它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。

Access能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。

熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的"进阶用户"则能使用它来开发简单的应用软件。

虽然它支援部分面向对象（OOP）技术，但是未能成为一种完整的面向对象开发工具。

与一般的RDBMS完全不同，它缺乏数据库触发和预存程序。

自从MS Access 2000 (Jet 4.0)，开发人员可以在查询中设定参数，这跟预存程序很相似的，但这些“预存程序”只能处理一个程序．当资料表内数据发生变化时，它确实允许形式包含被引发的代码，使用是普通的透过查询和其他技术在进入营运储存的程序在方面RDBMS支援这些的。

进入可提供的编程语言，当时在另一个内产品Microsoft Office家具，微软公司应用的Visual Basic。

两个数据库进入信息库COM组成部分被提供：这笔遗产数据存取物体(DAO)，用进入和新只可提供ActiveX数据对象(忙乱)。

Microsoft Access容易被应用于小的工程，但是如果设计的不好对大工程是无用的。

全部数据库质问，形式和报告被储存在数据库里，并且与相关的模型的理想协调，没有与他们做一个身体上组织的阶层的可能性。

一种设计技术是把进入应用在数据和计划之间进行分发。

一个数据库应该只包含桌子和关系，当另一个将有全部计划时，形式，报告和质问和对第一个数据库桌子的连接。

令人遗憾，当连结时，进入允许没有有关的道路，因此那些发展环境作为这种生产环境有相同的道路应该(虽然你写你们自己的能"动态连接程序"常规在里VBA那搜出能一定背面结束档案以透过这个目录树搜寻，如果它发现这条电流通路它不能)。

这种技术也允许开发者在不同的档案中分申请，因此一些架构是可能的。

2 概要设计2.1数据库概念结构设计本系统包括的实体主要有病人、科室、病房、医生、费用等。

下面分别介绍各实体的E-R图，通过E-R图可以了解各实体的属性。

科室实体的属性图如图2.1所示。

图2.1 科室实体的属性图病房实体的属性图如图2.2所示。

图2.2 病房实体的属性图医生实体的属性图如图2.3所示。

图2.3 医生实体的属性图病人实体的属性图如图2.4所示。

图2.2 病人实体的属性图费用实体的E-R图如图2.5所示。

图2.5 费用实体的属性图实体间的E-R图如图2.6所示。

病人入院时，根据病人情况选择科室和病房，每个科室有多个病人就诊，每个病房可以住多个病人。

一个病人由一个医生负责，作为该病人的主治医生，每个医生可能负责多个病人。

病人住院期间的费用根据时间日期来计算。

图2.6 实体间的E-R图2.2系统模块设计整个系统可分为三个模块进行设计，主要包括病人基本信息管理，费用数据录入、查询，病人、病房、主治医生查询，系统管理等部分，系统模块图如图2.7所示。

图2.7 系统模块图3详细设计3.1 数据库逻辑结构设计本系统共建立六张表：科室表、病房表、医生表、病人表、费用表、操作员表。

以下分别列出各表的字段说明。

科室表：用于保存医院中各科室的信息。

在系统中只使用科室编号和名称，将其单独列出一张表可方便用户修改科室。

各字段参数如表3.1所示。

病房表：用于保存病房信息。

包括病房编号、类型，以及不同类型病房床费。

其中病房类型分为单人间和三人间，且不同房间所需床费不同。

各字段参数如表3.2所示。

医生表：用于医院所有医生的信息。

病人需要医生开药来计算药费，所以将药费作为医生的一个属性。

各字段参数如表3.3所示。

病房表：用于保存病人基本信息。

包括病人编号、姓名、性别、身份证号码、入院时间、科室、病房、主治医生及入院时所需缴纳的基本费用。

其中科室、病房和医生均是各实体的编号。

各字段参数如表3.4所示。

费用表：用于保存病人住院期间的费用。

由于需要按病人查询费用，所以包含了病人ID。

各字段参数如表3.5所示。

操作员表：用于保存操作本系统人员的登录名、密码等信息。

各字段参数如表3.6所示。

表3.6 操作员表（User）3.2 系统子模块设计3.2.1编写全局变量和通用过程在由应用程序向导创建的程序框架中，创建了一个模块文件“Module1.bas”，在该模块中有一个名为“Sub Main”的过程，用来启动应用程序。

在该模块中还定义了一下全局变量和通用过程，供其他模块使用。

下面的过程用来执行针对数据库的操作，如创建/释放数据库连接，运行查询等。

Public Sub Connect() '连接数据库If IsConnect = True Then '如果连接标记为真，则返回。

否则会出错Exit SubEnd IfSet cnn = New ADODB.Connection '关键New用于创建新对象cnncnn.ConnectionString = Conn '设置连接字符串ConnectionString属性cnn.Open '打开到数据库的连接If cnn.State <> adStateOpen Then '判断连接的状态MsgBox "数据库连接失败", vbOKOnly + vbCritical, "警告" '如果连接不成功，则显示提示信息，退出程序EndEnd IfIsConnect = True '设置连接标记，表示已经连接到数据库End SubPublic Sub Disconnect() '断开与数据库的连接Dim rc As LongIf IsConnect = False Then Exit Sub '如果连接标记为假，标明已经断开连接，则直接返回cnn.Close '关闭连接Set cnn = NothingIsConnect = FalseEnd SubPublic Sub SQLExt(ByVal strSQLstmt As String) '执行数据库操作语句Dim cmd As New mand '创建Command对象cmdConnect '连接到数据库Set cmd.ActiveConnection = cnn '设置cmd的ActiveConnection属性，指定与其关联的数据库连接mandText = strSQLstmt '设置要执行的命令文本cmd.ExecuteSet cmd = NothingDisconnectEnd Sub3.2.2用户管理模块用户管理是大多数信息管理系统中都需要的功能，将用户管理的功能设置为一个类，可提高代码的可重用性。