毕业设计（论文）VB6.0住院处信息管理系统毕业设计毕业论文

1、1目目 录录第一章第一章 绪绪 论论 .311 课题简介 .312 开发的意义 .313 团队构成 .4第二章第二章 开发环境及实现技术开发环境及实现技术 .521 开发环境 .522 开发工具简介 .5第三章第三章 系统设计系统设计 .831 概要设计 .8311概要设计阶段的主要任务.8312概要设计的过程.8313概要设计的原则.8314系统功能分析.832 详细设计 .10321详细设计的任务.10322详细设计的方法.10第四章第四章 数据库设计数据库设计 .1241 数据库 access简介.1242 数据库需求分析 .1343 测试用例 .15第五章第五章 系统的实现系统的实现

2、.1751 系统登录模块的实现 .1752 主界面的实现 .2153 住院手续模块的实现 .23531入院登记模块的实现：.23532收取押金模块的实现.26534出院打票模块的实现.29535费用查询/明细模块的实现.3254 住院报表模块的实现 .32541在院名册的实现.32542住院/出院查询模块的实现.33543清单查询模块的实现方法.3555 病区管理模块的实现 .3556 职工人事管理模块的实现 .3757 版本信息模块的实现 .3858 用户管理模块的实现 .39第六章第六章 系统使用说明系统使用说明 .40261 使用说明 .4062 运行环境 .40第七章第七章 设计心得设

3、计心得 .41参考文献参考文献 .423第一章第一章 绪绪 论论11 课题简介课题简介住院处信息管理系统是每一所医院管理住院病人、病区和职工收入和支出的不可缺少的一个管理信息系统，它的内容对于医院的管理者来说是至关重要的，所以住院处信息管理系统应该能够为每一个医院的管理者提供充足的信息和快捷的查询手段，大大的方便医院的管理者的合理管理。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对住院病人、病区和职工进行管理，具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储

4、量大、保密性好、寿命长、成本低等。这些优点能够极大地提高住院病人、病区和职工管理的效率，也是医院管理的科学化、正规化管理，与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。12 开发的意义开发的意义1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理住院病人、病区和职工今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经应用于许多领域。现在我国的住院病人、病区和职工管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和

5、物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助医院进行住院病人、病区和职工管理。 开发这一系统的好处大约有以下几点：第一、可以存储历年住院病人、病区和职工的信息，安全、高效；第二、只需一到二名档案录入员即可操作系统，节省人力；4第三、可以迅速查到住院病人、病区和职工的各类信息。2为将来医院上网做好准备跟据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870 万，互联网已经十分普及，本系统为医院将来

6、的上网作了先期工作，比如医院的网络管理模式的建立。13 团队构成团队构成指导教师：* 成员：*5第二章第二章 开发环境及实现技术开发环境及实现技术21 开发环境开发环境硬件系统：奔腾 100 以上 cpu、64m 以上内存、1g 以上硬盘、光驱。软件系统：windows 9x 或更高版本、visual basic 6.0 中文版、access 数据库。22 开发工具简介开发工具简介微软公司的 visual basic 6.0 是 windows 应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。visual basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减

7、少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 vb 是一个相对较好的选择。access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 excel 的电子表格，可以使数据库一目了然。另外，access 允许创建自定义报表用于打印或输出数据库中的信息。access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。access 是一种关系数据库工具，关系数据库是已开发的最

8、通用的数据库之一。如上所述，access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。微软的 jet 数据库引擎提供了与数据库打交道的途径，我们是通过它以及 visual basic 来访问数据库并对其进行各种操作。visual basic、access 以及其他微软的软件产品都是通过共用 jet 数据库引擎，从而给用户提供了丰富的数据类型。data 控件在数据库中的信息与将信息显示给用户看的 visual basic 程序之间架起了一座桥梁。我们可以设置 data 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，data

9、控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。data 控件还提供了用来浏览不同记录的各种跳转按钮。将 data 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。6ado 是 mcrosoft 提出的第三种数据库访问对象，是 microsoft 数据库访问技术的一个主要发展方向，ado 将 ole db 封装在一个数据对象中，使得 vb 程序中以方便地实现对数据库的访问。具体的与数据库的关系如下：vb 数据库应用程序一般由用户界

10、面、数据库引擎和数据仓库三大部分组成。1用户界面: 用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元素和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、删除记录或执行查询的 vb 代码等，这些对象隐含着用来请求数据库服务的属性、事件和方法。2数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作,并向应用程序返回结果。3数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地的 vb 数据库来说，就是.mdb 格式文件；对于不同的

11、数据库，它可能具备其它格式。vb 访问数据库通常有三种途径:1.使用数据控件和数据绑定控件访问数据库；2.通过 vb 提供的数据访问变量编程访问；3.通过 odbc 接口访问 odbc api 函数。vb 程序的数据访问通过数据访问接口来实现。 在 vb 中，主要的数据访问接口有三种：数据存取对象(data access object；dao)、远程数据对象(remote data object；rdo)、activex 数据对象(activex data objects；ado)。vb 通过数据库引擎可以访问的数据库分如下三类:内部数据库、外部数据库和 odbc数据库。1、内部数据库即.md

12、b 格式的数据库，包括 dao api、microsoft access 和microsoft excel 创建的数据源，也称为本地数据库。由于是由 jet 引擎直接创建和操作这些数据库，可以提供最大程度的灵活性和速度。72、外部数据库即索引顺序存取方法(isam)数据库，例如btrieve、dbase、foxpro 以及 paradox 等。vb 能够创建和操作所有这些数据库，还可以访问 microsoft excel 或 lotus l-2-3 电子表格，以及一些标准的文本文件。3、odbc 数据库即符合开放式数据库连接性(odbc)协议的数据库。vb 可以访问odbc 标准客户/服务器数

13、据库-如 microsoft sql server、oracle 和 sybase。可使用odbc object 直接把命令传递给服务器处理，以创建真正的客户机/服务器程序。8第三章第三章 系统设计系统设计31 概要设计概要设计311 概要设计阶段的主要任务概要设计阶段的主要任务本人先审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供指导老师审定，审定后进入设计。确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。 编写概要设计说

14、明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。312 概要设计的过程概要设计的过程概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。313 概要设计的原则概要设计的原则将软件划分成若干独立成分的依据。如何表示不同的成分内的功能细节和数据结构。如何统一衡量软件设计的技术质量。314 系统功能分析系统功能分析根据学校的教务人员提供的学生档案管理的信息，预测开发的管理系统的达到的功能如下：第一部分：系统用户管理要求：用户分四类

15、：超级用户一切功能可用、管理员不可添加系统用户、修改用户密码、不可实现收费功能、收费员仅可查询信息、收费功能、普通用户仅可查询信息第二部分：患者基本资料 要求：实现患者资料的新增、修改、办理患者出院、查询患者资料。9第三部分病房管理 要求：实现新增病人、病人的转科转房、病房明细查询、患者退房第四部分 主治医师管理要求：实现主治医师资料的新增、修改、查询，有统计各个主治医师的治疗效果第五部分 收费管理要求：实现收费项目列表、查询各患者交费情况的查询，及收费窗口第五部分 统计打印报表要求：实现当日出/入院病人数量和人员列表，实现各患者费用情况的打印第六部分 帮助制作帮助文档，介绍各部分功能即可根据

16、以上分析，该系统考虑将整个系统分解成如图 3-1 模块结构图:主界面主界面系系统统管管理理住住院院手手续续管管理理住住院院报报表表管管理理职职工工人人事事管管理理病病区区管管理理登录登录图 3-1 模块结构图10并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。32 详细设计详细设计321 详细设计的任务详细设计的任务详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述

17、；确定每一模块使用的数据结构；确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。322 详细设计的方法详细设计的方法程序流程图、n-s 图、pad 图、ipo 图本系统在开发过程中所采用的详细设计方法为 ipo 图：1、住院病人、病区和职工管理模块模块 ipo 图：i io op p病人、病区和职工的信息提供相应的界面供操作人员录入保存到表2、住院病人、病区

18、和职工的查询模块 ipo 图：i io op p查询内容的设定提供相应的界面供操作人员操作1显示查询的结果2统计相关信息113、收费管理模块 ipo 图：i io op p收费项目等的设置提供相应的界面供操作人员操作保存到收入/支出项目表4、打印模块 ipo 图：i io op p选择打印项提供相应的界面供操作人员操作打印5、用户管理模块的 ipo 图i io op p增加、删除、修改用户信息提供相应的界面供操作人员操作保存到用户管理表12第四章第四章 数据库设计数据库设计41 数据库数据库 access 简介简介access 中文版是 microsoft office 2000 套装软件的数

19、据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。access 具有良好的界面，采用了与 windows 和 microsoft office 系列软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据管理任务。microsoft office 的一个集成化的程序设计语言是vba(visual basic for applications)，使用 vba 可以创建非常实用的数据库应用系统。access 可以作为个人计算机终端和大型

20、主机系统之间的桥梁。通过如 sql、odbc 等特定技术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决方案。access 可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。随着 internet 网络应用的发展，access 还增加了使用信息发布 web 向导和用 html格式导出对象的功能。数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表

21、的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 visual basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系13数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是

22、指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。42 数据库需求分析数据库需求分析根据调查有关单位的住院病人、病区和职工管理的实际情况，分析得到如下的数据库结构。住院患者资料表：入院科别表：14交费情况表：用户表：1543 测试用例测试用例住院患者资料表的测试用例：入院科别表的测试用例：16交费情况表的测试用例：用户表的测试用例：17第五章第五章 系统的实现系统的实现51 系统登录模块的实现系统登录模块的实现1流程图2界面：界面包

23、括的控件有标签、文本框、命令按钮等控件。3实现过程：第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：yn开始输入登录密码是否正确主界面18第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:第三步双击相应的控件，在控件的相应过程中编写代码：如此窗体上“登录”与“退出”按钮的代码如下：19并且具有改变“登录”菜单为“注销用户”菜单的功能。private sub command2_click()unload meend sub此程序段中，“if”语句的作用是判断

24、用户输入的用户名与密码和数据库的是否相同，如果相同，则打开菜单项并执行 unload me，如果用户名或密码输入错误，则提示：使用户重新输入用户名或密码。unload me 语句的作用是下载窗体。打开菜单改变登录菜单为注销菜单设置的大小与位置20此窗体上另外还有 data1、text3 二个控件在程序运行时是看不到的，它们的作用是使 vb 与 access 数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下：首先，将 data、text 控件拖放到窗体上，其次，设置它们的属性：（1）data1 控件的属性设置如下图：此两个属性

25、的作用是保证 data 控件与数据库相连。数据库的名称数据库中的表名21visible 属性是使此控件运行时在窗体上不显示。（2）text3 控件的属性设置如下：visible 属性的设置同 data1 控件。5 52 2 主界面的实现主界面的实现主界面是用菜单形式表现的，如图：运行时是否隐藏此数据控件绑定到何数据库此数据控件绑定到何字段22菜单的制作过程如下：首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： 此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。调节菜单的级别设置菜单是否有效快捷键设置23最后设置如下的

26、代码（只要单击菜单即可设置各菜单代码），代码如下：主要是通过 show 方法调用相应的窗体。53 住院手续模块的实现住院手续模块的实现531 入院登记模块的实现：入院登记模块的实现：1、流程图：2、运行界面：入院的运行界面：ny开始增加病人是否继续退出241实现过程：（以入院为例）第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：第二步，选择窗体或控件进行属性设置，同上一小结。 其它属性和控件的设置方法类似。第三步双击相应的控件，在控件的相应过程中编写代码：的代码为：2

27、5关键的有方法：addnew、update、delete、edit 等。此窗体上用了 1 个 adodc 控件，adodc1 用来连接入院科别表。使用方法是首先通过adodc 控件与数据库相连，然后将各数据项与数据字段相连。adodc1 控件的属性为： 如科别的控件的主要属性设置如下：连接数据库数据库中的何表26其他控件的设置同。出院管理类型，主要以有无入院/出院时间判断病人是住院状态还是出院状态。532 收取押金模块的实现收取押金模块的实现1运行界面：2实现过程：列表数据来源显示的字段显示数据的来源列表的字段27界面的实现方法同上，下面主要看关键代码：text1 的改变事件的代码：priva

28、te sub text1_change() sql = select * from 住院患者资料 where 住院号= & trim(text1.text) & data1.recordsource = sql data1.refresh if data1.recordset.eof then msgbox 没有此 住院号 ,请核对住院号！, , 提示 else label5.visible = true label6.visible = true label7.visible = true label8.visible = true label9.visible = true label10

29、.visible = true text2.visible = true text3.visible = true text4.visible = true text5.visible = true text6.visible = true data2.recordset.addnew text8.text = text1.text text7.text = 预收 text6.text = yf text9.text = date label1.caption = date end ifend sub28主要作用：通过 sql 语句查询出此此住院号的记录并显示结果。然后再增加预收费用，如下：p

30、rivate sub text5_change()text11.text = text5.textend subprivate sub text5_lostfocus()text10.text = val(text10.text) + val(text11.text)end sub数据库的实现方法同前，不再介绍。533 零用清单模块的实现1、运行界面：2、实现方法：主要作用：增加预支项目，并完成与预收费用的比较，作出判断。代码如下：29534 出院打票模块的实现出院打票模块的实现1、运行界面：替换并判断是否超支完成自动总价计算302、实现方法：首先根据住院号查找并出院，再打印出院凭证。代码如下

31、：private sub command1_click() text1(12) = date msgbox 出院成功！祝君身体健康！, , 提示end subprivate sub command2_click()sql = select * from 住院患者资料 where 住院号= & trim(text1(0).text) & data1.recordsource = sqldata1.refreshif data1.recordset.eof then msgbox 住院号错！, , 提示end ifend sub实现查找功能。private sub command3_click()

32、if len(trim(text1(0).text) = 0 then msgbox 请输入住院号！, , 提示31else if dataenvironment1.rs 打印费用.state adstateclosed then dataenvironment1.rs 打印费用.close end if dataenvironment1.commands(打印费用).parameters(0).value = trim(text1(0).text) set datareport4.datasource = dataenvironment1 datareport4.datamember = 打

33、印费用 datareport4.showend ifend sub根据住院号打印。主要是调 datareport4 打印，其设计界面如下：它的数据源为 dataenvironment1，界面如下：32通过 sql 语句 select * from 住院患者资料 where 住院号 = ?实现。535 费用查询费用查询/明细模块的实现明细模块的实现1、运行界面：2、实现方法通过控件 sstab 实现。每一页实现一个查找功能。其中的查询语句与前面的章节相似，不再重复。54 住院报表模块的实现住院报表模块的实现541 在院名册的实现在院名册的实现2运行界面：332实现过程：主要通过 datarepo

34、rt1 实现，设计界面如下：设计方法同上节。542 住院住院/出院查询模块的实现出院查询模块的实现1、运行界面：342、实现的方法以住院查询为例介绍。界面设计同前，主要用了一个 combo 控件，用来选择查询的条件，代码如下：35查询语句主要通过 sql 实现。查询出院人员的实现方法相同，在此不再介绍。543 清单查询模块的实现方法清单查询模块的实现方法1运行界面：查询满足条件的记录设置控件的enable 属性36实现方法同前。涉及到 datareport2 和 datareport5 两个报表。55 病区管理模块的实现病区管理模块的实现1流程图：ny开始增加删除修改查询病区信息是否继续退出2运行界面：373实现过程：界面的设计方法与实现方法同前。主要作用：管理病区的信息。56 职工