住院病人管理系统.doc

沈阳航空航天大学 课课 程程 设设 计计 报报 告告 课程设计名称 软件综合课程设计软件综合课程设计 课程设计题目 病人住院管理病人住院管理 院 系 计算机学院 专 业 班 级 学 号 姓 名 指导教师 完成日期 2011年09月09日 沈阳航空航天大学课程设计报告 I 目目 录录 1 系统分析系统分析 1 1 1 需求分析 1 1 2 开发工具 1 1 2 1VISUAL BASIC 6 0 1 1 2 2MICROSOFT OFFICE ACCESS 2 2 概要设计概要设计 4 2 1 数据库概念结构设计 4 2 2 系统模块设计 6 3 详细设计详细设计 7 3 1 数据库逻辑结构设计 7 3 2 系统子模块设计 8 3 2 1 编写全局变量和通用过程 8 3 2 2 用户管理模块 10 3 2 3 病人资料管理模块 10 3 2 4 费用输入模块 13 4 调试分析调试分析 15 5 测试及运行结果测试及运行结果 16 5 1 用户登陆界面 16 5 2 用户管理界面 17 5 3 病人资料管理界面 18 参考文献参考文献 21 附附 录录 22 沈阳航空航天大学课程设计报告 1 1 系统分析 1 1 需求分析需求分析 实现一个病人住院管理系统 系统可以连接数据库 病人入院时 住在指定 科室的病房 如外科 内科 儿科等 到每个病人有一个主治医生负责 可以 选择单人间和三人间病房 如果选择三人间病房 床位由系统分配 入院时通过 该系统将病人的信息添加数据库中 当病人出院时计算住院期间的费用 药费 床费 餐费等 系统能够按照病人 病房 主治医生进行查询 所以查询模块 至少有三个界面分别显示相关信息 1 2 开发工具开发工具 1 2 1Visual Basic 6 0 Visual Basic 是一种由微软公司开发的包含协助开发环境的事件驱动编程语 言 从任何标准来说 VB 都是世界上使用人数最多的语言 不仅是盛赞 VB 的 开发者还是抱怨 VB 的开发者的数量 它源自于 BASIC 编程语言 VB 拥有图形用 户界面 GUI 和快速应用程序开发 RAD 系统 可以轻易的使用 DAO RDO ADO 连接数据库 或者轻松的创建 ActiveX 控件 程序员可以轻松的 使用 VB 提供的组件快速建立一个应用程序 VB 使用了可以简单建立应用程序的 GUI 系统 但是又可以开发相当复杂 的程序 VB 的程序是一种基于窗体的可视化组件安排的联合 并且增加代码 来指定组件的属性和方法 因为默认的属性和方法已经有一部分定义在了组件 内 所以程序员不用写多少代码就可以完成一个简单的程序 过去的版本里面 VB 程序的性能问题一直被放在了桌 面上 但是随着计算机速度的飞速增加 关于性能的争论已经越来越少 窗体控件的增加和改变可以用拖放技术实现 一个排列满控件的工具箱用 来显示可用控件 比如文本框或者按钮 每个控件都有自己的属性和事件 沈阳航空航天大学课程设计报告 2 默认的属性值会在控件创建的时候提供 但是程序员也可以进行更改 很多的 属性值可以在运行时候随着用户的动作和修改进行改动 这样就形成了一个动 态的程序 举个例子来说 窗体的大小改变事件中加入了可以改变控件位置的 代码 在运行时候每当用户更改窗口大小 控件也会随之改变位置 在文本框 中的文字改变事件中加入相应的代码 程序就能够在文字输入的时候自动翻译 或者阻止某些字符的输入 VB 的程序可以包含一个或多个窗体 或者是一个主窗体和多个子窗体 类 似于操作系统的样子 有很少功能的对话框窗口 比如没有最大化和最小化按 钮的窗体 可以用来提供弹出功能 VB 的组件既可以拥有用户界面 也可以 没有 这样一来服务器端程序就可以处理增加的模块 VB 使用参数计算的方法来进行垃圾收集 这个方法中包含有大量的对象 提供基本的面向对象支持 因为越来越多组建的出现 程序员可以选用自己需 要的扩展库 和有些语言不一样 VB 对大小写不敏感 但是能自动转换关键 词到标准的大小写状态 以及强制使得符号表入口的实体的变量名称遵循书写 规则 默认情况下字符串的比较是对大小写敏感的 但是可以关闭这个功能 1 2 2Microsoft Office Access Microsoft Office Access 前名 Microsoft Access 是由微软发布的关联 式数据库管理系统 它结合了 Microsoft Jet Database Engine 和 图形用户界 面两项特点 是 Microsoft Office 的成员之一 其实 Access 也是微软公司另 一个通讯程序的名字 想与 ProComm 以及其他类似程序来竞争 可是事后微软 证实这是个失败计划 并且将它中止 数年后他们把名字重新命名于数据库软件 Access 在 2000 年的时候成为了计算机等级考试中的计算机二级的一种数据库语 言并且因为它的易学易用的特点正逐步取代传统的 VFP 成为二级中最受欢迎的数 据库语言 Access 是微软公司推出的基于 Windows 的桌面关系数据库管理系统 RDBMS 即 Relational Database Management System 是 Office 系列应用软 件之一 它提供了表 查询 窗体 报表 页 宏 模块 7 种用来建立数据库系 沈阳航空航天大学课程设计报告 3 统的对象 提供了多种向导 生成器 模板 把数据存储 数据查询 界面设计 报表生成等操作规范化 为建立功能完善的数据库管理系统提供了方便 也使得 普通用户不必编写代码 就可以完成大部分数据管理的任务 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 那搜出能一定背面结束档案以透过这个目录树搜寻 如果它发现 这条电流通路它不能 这种技术也允许开发者在不同的档案中分申请 因此一些架构是可能的 沈阳航空航天大学课程设计报告 4 2 概要设计 2 1 数据库概念结构设计数据库概念结构设计 本系统包括的实体主要有病人 科室 病房 医生 费用等 下面分别介绍 各实体的 E R 图 通过 E R 图可以了解各实体的属性 科室实体的属性图如图 2 1 所示 科室 开始 科室名称 编号 图图 2 12 1 科室实体的属性图科室实体的属性图 病房实体的属性图如图 2 2 所示 病房 开始 编号病房类型床费 图图 2 22 2 病房实体的属性图病房实体的属性图 医生实体的属性图如图 2 3 所示 医生 开始 编号医生姓名 图图 2 32 3 医生实体的属性图医生实体的属性图 沈阳航空航天大学课程设计报告 5 病人实体的属性图如图 2 4 所示 病人 开始 编号 姓名 身份证性别 备注 图图 2 22 2 病人实体的属性图病人实体的属性图 费用实体的 E R 图如图 2 5 所示 费用 开始 药费 总计 结算 床费 餐费 日期 基本费用 编号 图图 2 52 5 费用实体的属性图费用实体的属性图 实体间的 E R 图如图 2 6 所示 病人入院时 根据病人情况选择科室和病房 每个科室有多个病人就诊 每个病房可以住多个病人 一个病人由一个医生负责 作为该病人的主治医生 每个医生可能负责多个病人 病人住院期间的费用根据 时间日期来计算 沈阳航空航天大学课程设计报告 6 病人 开始 科室 开始 医生 开始 费用 开始 病房 开始 花费 属于 属于 治疗 日期 1 n 1 n m nmn 图图 2 62 6 实体间的实体间的 E RE R 图图 2 2 系统模块设计系统模块设计 整个系统可分为三个模块进行设计 主要包括病人基本信息管理 费用数据 录入 查询 病人 病房 主治医生查询 系统管理等部分 系统模块图如图 2 7 所示 病人住院管理系统 开始 数据处理模块 开始 查询模块 开始 系统功能模块 费 用 输 入 病 人 资 料 管 理 用 户 管 理 数 据 备 份 数 据 恢 复 病 房 查 询 病 人 查 询 主 治 医 生 查 询 图图 2 72 7 系统模块图系统模块图 沈阳航空航天大学课程设计报告 7 3 详细设计 3 1 数据库逻辑结构设计数据库逻辑结构设计 本系统共建立六张表 科室表 病房表 医生表 病人表 费用表 操作员 表 以下分别列出各表的字段说明 科室表 用于保存医院中各科室的信息 在系统中只使用科室编号和名称 将其单独列出一张表可方便用户修改科室 各字段参数如表 3 1 所示 表表 3 13 1 科室表科室表 字段名称数据类型字段大小是否主键说明 ID自动编号是科室编号 科室文本20否科室名称 病房表 用于保存病房信息 包括病房编号 类型 以及不同类型病房床费 其中病房类型分为单人间和三人间 且不同房间所需床费不同 各字段参数如表 3 2 所示 表表 3 23 2 病房表病房表 字段名称数据类型字段大小是否主键说明 ID自动编号是病房编号 病房文本20否病房类型 床费货币否床费 医生表 用于医院所有医生的信息 病人需要医生开药来计算药费 所以将 药费作为医生的一个属性 各字段参数如表 3 3 所示 表表 3 33 3 医生表医生表 字段名称数据类型字段大小是否主键说明 ID自动编号是医生编号 医生文本15否医生姓名 药费货币否开药药费 病房表 用于保存病人基本信息 包括病人编号 姓名 性别 身份证号码 入院时间 科室 病房 主治医生及入院时所需缴纳的基本费用 其中科室 病 房和医生均是各实体的编号 各字段参数如表 3 4 所示 沈阳航空航天大学课程设计报告 8 表表 3 43 4 病人表病人表 字段名称数据类型字段大小是否主键说明 ID自动编号是病人编号 姓名文本10否病人姓名 身份证文本15否身份证 性别文本2否性别 入院时间日期 时间否入院时间 科室数字否科室编号 病房数字否病房编号 医生数字否医生编号 基本费用货币否基本费用 备注备注备注信息 费用表 用于保存病人住院期间的费用 由于需要按病人查询费用 所以包 含了病人 ID 各字段参数如表 3 5 所示 表表 3 53 5 费用表费用表 字段名称数据类型字段大小是否主键说明 ID自动编号是序号 病人 ID长整型否病人编号 日期日期 时间否费用日期 基本费用货币否基本费用 床费货币否床费 药费货币否药费 餐费货币否餐费 总计货币否总计 结算货币否结算 操作员表 用于保存操作本系统人员的登录名 密码等信息 各字段参数如 表 3 6 所示 表表 3 63 6 操作员表 操作员表 UserUser 字段名称数据类型字段大小是否主键说明 Name文本15是登录名 PWD文本16否登录密码 UserClass字节否用户类型 3 2 系统子模块设计系统子模块设计 3 2 1 编写全局变量和通用过程编写全局变量和通用过程 在由应用程序向导创建的程序框架中 创建了一个模块文件 Module1 bas 沈阳航空航天大学课程设计报告 9 在该模块中有一个名为 Sub Main 的过程 用来启动应用程序 在该模块中还定义了一下全局变量和通用过程 供其他模块使用 下面的过 程用来执行针对数据库的操作 如创建 释放数据库连接 运行查询等 Public Sub Connect 连接数据库 If IsConnect True Then 如果连接标记为真 则返回 否则会出错 Exit Sub End If Set cnn New ADODB Connection 关键 New 用于创建新对象 cnn cnn ConnectionString Conn 设置连接字符串 ConnectionString 属性 cnn Open 打开到数据库的连接 If cnn State adStateOpen Then 判断连接的状态 MsgBox 数据库连接失败 vbOKOnly vbCritical 警告 如果连接不成功 则 显示提示信息 退出程序 End End If IsConnect True 设置连接标记 表示已经连接到数据库 End Sub Public Sub Disconnect 断开与数据库的连接 Dim rc As Long If IsConnect False Then Exit Sub 如果连接标记为假 标明已经断开连接 则直接返回 cnn Close 关闭连接 Set cnn Nothing IsConnect False End Sub Public Sub SQLExt ByVal strSQLstmt As String 执行数据库操作语句 Dim cmd As New ADODB Command 创建 Command 对象 cmd Connect 连接到数据库 Set cmd ActiveConnection cnn 设置 cmd 的 ActiveConnection 属性 指定与其关联的数 沈阳航空航天大学课程设计报告 10 据库连接 cmd CommandText strSQLstmt 设置要执行的命令文本 cmd Execute Set cmd Nothing Disconnect End Sub 3 2 2 用户管理模块用户管理模块 用户管理是大多数信息管理系统中都需要的功能 将用户管理的功能设置为 一个类 可提高代码的可重用性 用户管理类模块名称为 clsUser 基本流程 如图 3 1 开始 初始化数据 调用 SQLExt 过程执行 SQL 语句 结束 查找指定用户 图图 3 13 1 用户管理模块流程图用户管理模块流程图 3 2 3 病人资料管理模块病人资料管理模块 病人资料管理模块是本系统的核心 包括病人资料的增加 修改 删除等功 能的实现 可以在对话框中对病人资料进行管理并连接到数据库中 增加 按 钮有两种状态 当该按钮病人入院时 进入该模块点击 增加 按钮 可以增加 沈阳航空航天大学课程设计报告 11 一个病人 将病人的基本信息输入 并添加到数据库的病人表中 其流程如图 3 2 从科室表中获取数据 从病房表中获取数据 SQL 语句 结束 从医生表中获取数据 定义 SQL 语句 SQL 语句 刷新 ADO 控件数据 SQL 语句 设置 DataGrid1 控件显示 ADO 控件中的数据 SQL 语句 数据是否读取完毕 设置 ADO 控件连接字符串为全局变量 SQL 语句 计数器加 1 SQL 语句 是 程序停止运行 返回 false 否 开始 沈阳航空航天大学课程设计报告 12 图图 3 23 2 病人资料管理模块增加事件流程图病人资料管理模块增加事件流程图 病人入院后可能会更换病房或者出现其他变动 所以在该模块还需要实现病 人资料的即时更新 当在 DataGrid 表格中选中一个病人记录时 增加 按钮的 标题将改变为 修改 此时单击该按钮将修改选中记录的数据 具体流程如图 3 3 开始 禁止使用 删除 按钮 调用 Status 过程允许用户操作窗体各控件 SQL 语句 结束 清除数据 检查用户输入或修改的数据 SQL 语句 刷新 ADO 控件数据 SQL 语句 调用 Status 过程禁止用户操作窗体中的控件 SQL 语句 输入数据 SQL 语句 数据是否输入完毕 是 否 图图 3 33 3 病人资料管理模块修改事件流程图病人资料管理模块修改事件流程图 沈阳航空航天大学课程设计报告 13 为了方便查询 只显示住院病人资料 若病人出院 需要将该病人的资料删 除 及时更新数据库 进入该模块点击 删除 按钮 可以将病人的基本信息删 除 其流程如图 3 4 开始 结束 显示提示信息 SQL 语句 刷新数据 SQL 语句 病人编号大于 0 是否为添加状态 删除 SQL 语句 SQL 语句 执行 SQL 语句 SQL 语句 是 是 否 否 图图 3 43 4 病人资料管理模块删除事件流程图病人资料管理模块删除事件流程图 3 2 4 费用输入模块费用输入模块 费用输入模块主要用来录入病人指定时间的费用 为减少录入工作量 减少 沈阳航空航天大学课程设计报告 14 录入错误 使用列表框显示病人姓名 系统将自动填充病人的基本费用 床费 药费 用户也可以修改这些自动填充的数据 对于最终的结算数据 既可手工输 入 也可单击右侧的 C 计算 按钮自动计算 其主要流程如图 3 5 开始 从病房表中获取数据 从病人表中获取数据 SQL 语句 结束 从医生表中获取数据 调用 status 过程禁止用户操作窗体控件 SQL 语句 将当前记录中 病人 ID 保存到变量 id 中 SQL 语句 在病人数组中逐个判断 SQL 语句 数据是否读取完毕 设置 ADO 控件连接字符串 SQL 语句 将病人姓名添加到组合框中 SQL 语句 是 否 图图 3 53 5 费用输入模块流程图费用输入模块流程图 沈阳航空航天大学课程设计报告 15 4 调试分析 1 信息不能全部显示 问题描述 数据文件输出到 text 控件中输出数据不能全部显示 问题分析 text 控件中且数据量比较大 窗体不够大 所以不能全部 显示 解决方法 比较简单的方法就是把数据放到一个文本框 text 里 并 在其中加上水平和垂直滚动条 具体实现步骤为 先在窗体 form 里 加入一个文本框 采用默认名 text1 然后 设置文本框 text1 的属性 text 属性设置为空 multiline 属性设置为 true scrollbars 属性设 置为 3 both 接着添加一段 vb 代码即可 2 运行出错 问题描述 运行点击病人资料时出错 调试时在设置 ADO 控件连接字 符串为全局变量 Conn 一行出错 问题分析 指示出错行并未有问题 可能原因是前面定义 SQL 语句时 出错 经检查分析 SELECT 语句中医生表中并未出现 主治医生 这 一参数 解决方法 将 SELECT 语句中 主治医生 改为 医生 修改后的 SELECT 语句如下 strSQL2 SELECT a ID 姓名 d 科室 性别 身份证 入院时间 b 病房 c 医 生 基本费用 备注 strSQL2 strSQL2 FROM 病人表 a 病房表 b 医生表 c 科室表 d strSQL2 strSQL2 WHERE a 病房 b ID AND a 医生 c ID AND a 科 室 d ID 沈阳航空航天大学课程设计报告 16 5 测试及运行结果 5 1 用户登陆界面用户登陆界面 在 VB6 开发环境中 选择菜单 运行 启动 命令 将显示登陆窗体 如图 5 1 所示 图图 5 15 1 用户登陆窗体用户登陆窗体 在登录窗体中单击 确定 按钮 即可进入系统主窗体 如图 5 2 所示 图图 5 25 2 系统主窗体系统主窗体 沈阳航空航天大学课程设计报告 17 5 2 用户管理界面用户管理界面 在系统主窗体中 系统 用户管理 或点击 用户 按钮 可以进入用户管 理界面 如图 5 3 所示 图图 5 35 3 用户管理窗体用户管理窗体 单击 添加用户 按钮 管理员和操作员都可以添加新用户 如图 5 4 所示 图图 5 45 4 添加用户窗体添加用户窗体 沈阳航空航天大学课程设计报告 18 单击 修改用户 按钮 管理员可以修改用户 如图 5 5 所示 图图 5 55 5 修改用户窗体修改用户窗体 5 3 病人资料管理界面病人资料管理界面 在系统主窗体中 数据 病人资料 可以进入病人资料管理界面 操作员可 以对病人资料进行添加 修改 删除等操作 并且可以直观显示在界面的表格中 如图 5 6 所示 沈阳航空航天大学课程设计报告 19 图图 5 65 6 病人资料管理界面病人资料管理界面 输入新的入院病人资料 单击 添加 按钮 添加时界面显示如图 5 7 所示 图图 5 75 7 添加病人资料显示界面添加病人资料显示界面 新入院病人资料已添加到数据库中 添加后界面显示如图 5 8 所示 沈阳航空航天大学课程设计报告 20 图图 5 85 8 添加后病人资料显示界面添加后病人资料显示界面 单击 删除 按钮 弹出对话框如图 5 9 所示 图图 5 95 9 弹出对话框弹出对话框 选择 是 可将该用户从数据库中删除 删除后显示界面如图 5 10 所示 图图 5 105 10 删除后病人资料显示界面删除后病人资料显示界面 沈阳航空航天大学课程设计报告 21 参考文献 1 Visual Basic 课程设计案例精编 M 北京 清华大学出版社 2007 2 Visual Basic 项目案例开发实例自学手册 M 北京 人民邮电出版社 2008 3 Visual Basic 完全自学手册 M 北京 机械工业出版社 2009 4 30 天学通 Visual Basic 项目案例开发 M 北京 电子工业出版社 2009 5 Visual Basic 从入门到精通 M 北京 人民邮电出版社 2010 沈阳航空航天大学课程设计报告 22 附 录 主要源程序清单 Private Sub MDIForm Load Me Left GetSetting App Title Settings MainLeft 1000 Me Top GetSetting App Title Settings MainTop 1000 Me Width GetSetting App Title Settings MainWidth 6500 Me Height GetSetting App Title Settings MainHeight 6500 LoadNewDoc End Sub Private Sub MDIForm Unload Cancel As Integer If Me WindowState vbMinimized Then SaveSetting App Title Settings MainLeft Me Left SaveSetting App Title Settings MainTop Me Top SaveSetting App Title Settings MainWidth Me Width SaveSetting App Title Settings MainHeight Me Height End If End Sub Private Sub mnuDataEmp Click frmEmp Show End Sub Private Sub mnuDataInput Click frmInput Show End Sub Private Sub mnuDataRef Click frmDataRef Show End Sub Private Sub mnuQueryFind Click frmSearchName Show End Sub Private Sub mnuReportEmp Click frmReportEmp Show 沈阳航空航天大学课程设计报告 23 End Sub Private Sub mnuReportPay Click frmReportPay Show End Sub Private Sub mnuSysBack Click Dim strSoureFile As String strDestFile As String iRet As Integer On Error Resume Next strSoureFile App Path strDB 源数据库文件 strDestFile App Path BAK DATA BAK 备份文件 If Trim strDestFile Then Exit Sub If Dir strDestFile Then 文件存在 iRet MsgBox Dir strDestFile 文件已经存在 是否替换 vbYesNo 警告 If iRet vbNo Then Exit Sub End If End If Dim buff As Byte i As Long 定义缓冲区 i FileLen strSoureFile ReDim buff i 1 Open strSoureFile For Binary As 1 打开源文件 Get 1 buff 读取数据到缓冲区 Close 1 关闭文件 Open strDestFile For Binary As 1 打开目标文件 Put 1 buff 输入缓冲区到目标文件 Close 1 MsgBox 数据库备份完成 vbInformation vbOKOnly 提示 End Sub Private Sub mnuSysPWD Click With frmUserEdit Caption 修改密码 strOldUser CurUser strName txtUserName Text CurUser strName If CurUser iUserClass 1 Then cmbUserClass AddItem 管理员 Else cmbUserClass AddItem 操作员 End If cmbUserClass ListIndex 0 cmbUserClass Enabled False txtUserName Enabled False 不允许修改用户名 沈阳航空航天大学课程设计报告 24 bModify True Show End With End Sub Private Sub mnuSysQuit Click Dim yn As String yn MsgBox 确定要退出系统吗 vbYesNo 退出确定 If yn vbYes Then Unload Me End Sub Private Sub mnuSysRest Click Dim strSoureFile As String strDestFile As String Dim buff As Byte i As Long iRet As Integer On Error Resume Next strSoureFile App Path BAK DATA BAK strDestFile App Path strDB If Dir strSoureFile Then MsgBox 没有发现可以恢复的数据库 vbOKOnly vbCritical 警告 E