(精品)医院管理系统精品(2013年优秀毕业设计)

前言 医院血库管理系统是一个医院不可缺少的部分。人工管理方式存在着许多缺点：效率 低，保密性差，另外时间一长，将产生大量的文件和数据，这对于查找，更新和维护都带 来不少困难。随着科学技术的不断提高。计算机学日渐成熟。它已进入人类社会的各个领 域并发挥重要作用。使用计算机档案信息管理，有好多好处：查找方便，可靠性高，存储 量大，保密性好，成本低等，能够极大提高管理的效率，也是医院信息管理的科学化，与 世界接轨的重要条件。 摘要 本医院血库管理系统 是典型的信息管理系统(MIS),其开发主要包括后台数据库的建 立和维护以及前端应用程序的开发两个方面.对于前者要求建立数据一致性和完整性强,数 据安全性好的数据库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析如此情况,我们使用 VB 作为数据库等开发工具,利用其提供的各种面向对象 的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内 建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,真到形成用户满 意的可行系统. 关键词原型法，面向对象，数据一致性，数据窗口，信息管理系统。 Summary This system is doctor aspects that typical information management system( MIS), its development includes primarily the backstage database establishes with support and the head applies the development two aspects of the procedure.Establish the data consistency to the former request is strong with the complete, the that data safety good database.But request the latter very much the applied procedure function complete, easy usage etc. characteristics. Through the analysis such circumstance, we use the VB, database etc. development tool, make use of its every kind of the tool of development that provide that face to the object, particularly is intelligence that data window way this on canning be convenient but Chiens manipulates the database turn the object, establish in the in a short time first system application prototype, then, start to the beginning prototype system proceeding need on behalf, revise continuously with improve, really arrive to become the customer satisfied can A system. 目目 录录 前言前言.1 摘要摘要.2 第一章第一章 绪绪 论论.3 11 课题简介3 12 开发的意义4 第二章第二章 开发环境及实现技术开发环境及实现技术.5 21 开发环境5 22 开发工具简介5 第三章、系统设计第三章、系统设计.7 31 面对对象的编程 .7 32 数据库的概念 .8 33 新建一个数据库 .8 34 实现数据库之间的联系 .8 3.5 系统功能图设计.9 第四章第四章 数据库设计数据库设计.9 41 数据库 ACCESS简介 .9 42 数据库需求分析10 第五章第五章 系统界面实现系统界面实现.13 5.1 登录界面.13 第六章第六章 系统功能简介系统功能简介.18 总结总结.49 参考文献参考文献.49 第一章第一章 绪绪 论论 11 课题简介课题简介 血库管理系统是每一个医疗机构管理病人及医师不可缺少的一个管理信息系统，它的内容 对于医疗机构的管理者来说是至关重要的，所以血库管理系统应该能够为每一个医疗机构 的管理者提供充足的信息和快捷的查询手段，大大的方便医疗机构的管理者的合理管理。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已 进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分，使用计算机对病人及医师进行管理，具有着手工管理所无法比 拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。 这些优点能够极大地提高病人及医师管理的效率，也是医疗机构理财的科学化、正规化管 理，与先进科学技术接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生 来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。 12 开发的意义开发的意义 1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理病人及医师 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经应用于许多领域。 现在我国的病人及医师管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能 适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被 计算机为基础的信息管理所取代。 我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小 平同志说过“科学技术是第一生产力” ，我希望能用我所学的知识编制出一个实用的程序来 帮助医疗机构进行病人及医师管理。 开发这一系统的好处大约有以下几点： 第一、可以存储历年病人及医师的信息，安全、高效； 第二、只需一到二名档案录入员即可操作系统，节省人力； 第三、可以迅速查到病人及医师的各类信息。 2为将来医疗机构上网做好准备 跟据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870 万，互联网已经十分普 及，本系统为医疗机构将来的上网作了先期工作，比如医疗机构的网络管理模式的建立。 13 团队构成 指导教师：* 成员：* 第二章第二章 开发环境及实现技术开发环境及实现技术 21 开发环境开发环境 硬件系统：奔腾 100 以上 CPU、64M 以上内存、1G 以上硬盘、光驱。 软件系统：Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 数据库。 22 开发工具简介开发工具简介 微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易 用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和 实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应 用程序的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类 似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用 于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把 数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库 工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开 发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大 功能。 微软的 JET 数据库引擎提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来 访问数据库并对其进行各种操作。Visual Basic、Access 以及其他微软的软件产品都是通 过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。 DATA 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座 桥梁。我们可以设置 DATA 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情 况下，DATA 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类 型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后， 该记录集合中的记录也会随之改变。DATA 控件还提供了用来浏览不同记录的各种跳转按钮。 将 DATA 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 ADO 是 Mcrosoft 提出的第三种数据库访问对象，是 Microsoft 数据库访问技术的一个主要 发展方向，ADO 将 OLE DB 封装在一个数据对象中，使得 VB 程序中以方便地实现对数据库的 访问。 具体的与数据库的关系如下： VB 数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成。 1用户界面: 用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元 素和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、 删除记录或执行查询的 VB 代码等，这些对象隐含着用来请求数据库服务的属性、事件和方 法。 2数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用 程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作, 并向应用程序返回结果。 3数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地 的 VB 数据库来说，就是.mdb 格式文件；对于不同的数据库，它可能具备其它格式。 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、内部数据库即.MDB 格式的数据库，包括 DAO API、Microsoft Access 和 Microsoft Excel 创建的数据源，也称为本地数据库。由于是由 Jet 引擎直接创建和操作这些数据库， 可以提供最大程度的灵活性和速度。 2、外部数据库即“索引顺序存取方法(ISAM)数据库，例如 Btrieve、dBASE、FoxPro 以 及 Paradox 等。VB 能够创建和操作所有这些数据库，还可以访问 Microsoft Excel 或 Lotus l-2-3 电子表格，以及一些标准的文本文件。 3、ODBC 数据库即符合开放式数据库连接性(ODBC)协议的数据库。VB 可以访问 ODBC 标 准客户/服务器数据库-如 Microsoft SQL Server、Oracle 和 Sybase。可使用 ODBC Object 直接把命令传递给服务器处理，以创建真正的客户机/服务器程序。 第三章、系统设计第三章、系统设计 31 面对对象的编程面对对象的编程 Windows下的Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有 一些特性和行为（属性、事件和 方法）。开发人员可以最有效利用所创建的每一个对象。 使用应用程序具有可通用性可说扩展性和强有力的功能。 Visual Basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户 对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件 都可在许多应用中重复使用。 _实现菜单选项 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和 维护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。 您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜单编辑器建 立菜单或者修改已经存在的菜单。 _ 实现工具栏 CoolBar控件与Office97种看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的 工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你局可以向用户提供 更好的灵活性和义用性。 Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功 能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个 控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。 选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择 “Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象如下： 1 Align属性定义工具条在窗体中的位置 2 ToolTipText属性是字符串类型，定义控件的提示字符 3 Style属性定义按钮外观。 4 ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的 图像。 5 HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图 像。 6 DisabledImageList属性定义工具条按钮无效时显示的图像。 创建工具条包括ImageList和Toolbar控件 ImageList用于为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述 Toolbar控件相同。 _ 帮助 专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还 是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮 助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运 行于32位Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序 生成一组帮助文件。 _ 关于版本 为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包 括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存 这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被 应用程序用来提供常规的信息，通过使用这些APP提供的属性，可以在应用程序和用户之间 交流重要信息，在项目属性框中可以设置它的属性。 32 数据库的概念数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简 而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat- file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含 有各个不同部分的术语，象记录、域等。 33 新建一个数据库新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建 一个数据库结构的过程被认为是数据模型设计。 1 标识需要的数据； 2 收集被标识的字段到表中； 3 标识主关键字字段； 4 绘制一个简单的数据图表； 5 规范数据； 6 标识指定字段的信息； 7 创建物理表。 _ 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序 来完成，下面的章节将详细描述实现的具体方法。 34 实现数据库之间的联系实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表， 这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在 相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指 一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中 有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型 用于描述库表示什么以及在数据库中如何与其它的库建立关系。 3.5 系统功能图设计系统功能图设计 主界面主界面 系系 统统 设设 置置 血血 液液 管管 理理 统统 计计 查查 询询 系系 统统 帮帮 助助 打打 印印 服服 务务 登录登录 模块结构图 并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高， 并且也有利于投入使用后的系统维护。 第四章第四章 数据库设计数据库设计 41 数据库数据库 Access 简介简介 Access 中文版是 Microsoft Office 2000 套装软件的数据库管理系统软件，是目前比较流 行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方 式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。 Access 具有良好的界面，采用了与 Windows 和 Microsoft Office 系列软件完全一致的风格， 用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完 成数据管理任务。Microsoft Office 的一个集成化的程序设计语言是 VBA(Visual Basic for Applications)，使用 VBA 可以创建非常实用的数据库应用系统。 Access 可以作为个人计算机终端和大型主机系统之间的桥梁。通过如 SQL、ODBC 等特定技 术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/ 服务器解决方案。 Access 可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。 随着 Internet 网络应用的发展，Access 还增加了使用信息发布 Web 向导和用 HTML 格式导 出对象的功能。 数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简 而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat- file）和关系数据库（relational） 。关系数据库中包含了多个数据表的信息，数据库含有 各个不同部分的术语，象记录、域等。 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建 一个数据库结构的过程被认为是数据模型设计。 1 标识需要的数据； 2 收集被标识的字段到表中； 3 标识主关键字字段； 4 绘制一个简单的数据图表； 5 规范数据； 6 标识指定字段的信息； 7 创建物理表。 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序 来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表， 这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在 相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指 一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中 有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型 用于描述库表示什么以及在数据库中如何与其它的库建立关系。 42 数据库需求分析数据库需求分析 数据库的实现数据库的实现 -病人用血情况 病人用血情况表里存储了病人的用血的信息包括：科别、姓名、年龄采血日期，经手人等 信息模块： 该模块主要完成学生基本信息的录入、删除 、更新等功能。在此模块中定义了八个域名来 进行病人用血情况的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行病 人用户信息记录的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。该种风 格特点是列标题紧挨着数据列在此窗口还可以增加新病人用血的纪录。 -出库信息数据库 出库信息数据库里存储了病人出库信息，包括出库单，病人姓名，血型，科别，病历号， 输血量，输血日期，取血人，发血人。 -入库信息数据库 入库信息数据库里存储了病人入库信息，包括入库单，病人姓名，血型，科别，病历号， 输血量，输血日期，取血人，发血人 -用户管理数据库 用户管理数据库利存储了用户的所有用户名和密码 列名（中文）列名（英文）数据类型宽度小数点位数是否为空用户号IDCourseDate8No密码 PublisherDate20No 用户管理模块：该模块主要完成存储所有用户的用户名以及密码 -与VB的连接 Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库 管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的 应用，Visual Basic连接数据库的方式有两种： 通过使用Visual Basic的 ADODC控件。 通过使用由Visual Basic提供的专用的直接与数据库相连的接口 第五章第五章 系统界面实现系统界面实现 5.1 登录界面登录界面 登录界面实现上主要是连接数据库，根据用户名和权限来判断用户的功能如图。在连接数 据库上采用的是 Jet4 引擎来 Access 数据库，连接代码如下： 用户和密码都为 admin 流程图 图 5-1 登录界面 (2) 主界面 主界面的实现是根据设计的需要，主要做了菜单，工具栏，壮态栏。如图 5-2: Y N 开始 输入登录密码 是否正确 主界面 图 5-2 主界面 系统维护菜单里，包括用户管理，密码修改，数据库备份，背景设计等子菜单如图 5-3。血 液管理菜单里包括，入库信息和出库信息。统计查询里包括当前库存查询，入库查询和出 库查询。如图 5-4,5-5 所示。 图 5-3 系统维护 图 5-4 血液管理 图 5-5 统计查询 (3) 各分窗体的实现 用户管理和密码管理，当管理员进入本系统时，可以使用用户管理，可以创建和删除 用户（包括用户权限） ， （普通用户没有这个权限） 。 数据库备份是对数据库进行备份，以保证数据安全。 背景设置，是对界面的图片或颜色进行设置。如图 5-6。 背景设置中用户可以选择用图片做为背景，也可以选择用颜色做为背景。如果选择图片， 点这个按钮时出现如图 5-7 打开对话框选择图片，图片支持的格式有 bmp、jpg、gif 等。 如果选择颜色，点按钮时出现如图 5-8 颜色对话框。 菜单 工具栏 状态栏 图 5-7 打开图片 图 5-8 颜色 入库信息和出库信息，是对血液的入库和出库的详细情况进入添加，修改，删除等操作。 如图 5-9。 图 5-9 入库信息管理 图 5-9 各按钮的功能： ：移动到下一条记录。 ：移动最后一条记录。 添加：是添加一新的记录。 修改：在移动到要修改的记录，点修改。修改完后点保存后就修改完毕。 浏览：是查看全的记录。 删除：是删除当前的记录。 保存：是在添加和修改记录后，保存记录。 所有的信息表中的序号及各种编号一定要统一、规范。这样有利于信息检索。 详细界面请参考源代码。 当前库存查询，是对当前不同血型的量进行查询。 入库信息和出库信息查询打印，是对详细的入库和出库信息可以按所有的字段查询。 可以导出 Excel 报表来打印，如图 5-10。 图 5-10 查询 在选择条件包括=，,=,like，其中 like 是用于模糊检索。 检索完之后，点 Excel 报表输出，系统自动输出成报表。编辑格式以后就可以打印。如图 5-11。 图 5-8 打印报表 第六章第六章 系统功能简介系统功能简介 第一部分：系统用户管理 要求：用户分四类：超级用户一切功能可用、管理员不可添加系统用户、修改用户密码、 不可实现收费功能、 源代码如下： Public miCount As Integer Private Sub cmdCancel_Click() 退出程序 End End Sub Private Sub cmdOK_Click() 进入确定 On Error GoTo Err Dim txtSql As String UserName = “ If Trim(txtUserName.Text) = “ Then 判断用户名是否为空 MsgBox “请输入帐号！“, vbOKOnly + vbExclamation, “警告“ txtUserName.SetFocus Exit Sub End If If Trim(txtPassword.Text) = “ Then 判断密码是否为空 MsgBox “请输入密码！“, vbOKOnly + vbExclamation, “警告“ txtPassword.SetFocus Exit Sub End If 判断是否有这个用户 txtSql = “select * from 系统用户 where 用户名 = “ “ Jet OLEDB:Database Password=12345“ access2000 带密码 CN.Open miCount = 0 Ok = False txtUserName.Text = GetSetting(App.Title, “Settings“, “user_name“, “) Label2.MouseIcon = cmdOK.MouseIcon Exit Sub Err: MsgBox Err.Description, , “数据库连接错误“ End End Sub Private Sub Form_Resize() Label3.Top = Label1.Top + 30 Label3.Left = Label1.Left + 30 End Sub Private Sub Label2_Click() End End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If End Sub Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus End If End Sub 第二部部分：系统主界面 Private Sub BackSettings_Click() 背景 frmOption.Show 1 End Sub Private Sub Exit_Click() End End Sub Private Sub FindCk_Click() strTableName = “出库信息表“ Form2.Show 1 End Sub Private Sub FindDate_Click() 按时间 End Sub Private Sub FindRk_Click() strTableName = “入库信息表“ Form2.Show 1 End Sub Private Sub Form_Load() PrivsSeting 加载权限设置 End Sub Private Sub Form_Resize() On Error GoTo Err 改变控件位置代码 Picture1.Top = Toolbar1.Height Picture1.Left = 0 Picture1.Height = Me.ScaleHeight - StatusBar1.Height - Toolbar1.Height Picture1.Width = Me.ScaleWidth StatusBar1.Panels(1).Text = “状态“ Label9.Left = (Picture1.ScaleWidth - Label9.Width) / 2 Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2 Label1.Top = Label9.Top + 50 Label1.Left = Label9.Left + 50 加载背景代码 Dim strS As String strS = GetSetting(App.Title, “Settings“, “BackPic“, “) If strS “ Then Picture1.BackColor = strS Else Image1.Picture = LoadPicture(App.Path & “1.jpg“) Picture1.Refresh Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.Height End If End If Err: End Sub Private Sub Gongzitongji_Click() frmTongji.Show 1 End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub HelpFiles_Click() 帮助文件 On Error GoTo Err Mainfrm.StatusBar1.Panels(1).Text = “帮助文件“ Dim strPath As String strPath = App.Path + “医院血库管理系统说明.doc“ ShellExecute hWnd, “open“, mFso.GetFileName(strPath), lpParameters, mFso.GetParentFolderName(strPath), 5 Exit Sub Err: MsgBox Err.Description End Sub Private Sub InfoEnter_Click() 入库信息 strTableName = “入库信息表“ Form1.Show 1 End Sub Private Sub InfoOutPut_Click() strTableName = “出库信息表“ Form1.Show 1 End Sub Private Sub Sjbf_Click() frmDatabase.Show 1 End Sub Private Sub SysAbout_Click() 关于 frmAbout.Show 1 End Sub Private Sub sysManager_Click() Form3.Show 1 End Sub Private Sub TJkc_Click() 统计库存 frmtemp.Show 1 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 系统管理 Call sysManager_Click Case 2 用户密码 Call Userpasword_Click Case 4 Call InfoEnter_Click 入库 Case 5 Call InfoOutPut_Click 出库 Case 6 Call TJkc_Click 当前库存 Case 8 Call FindRk_Click 入库查询 Case 9 Call FindCk_Click 出库查询 Case 10 Call SysAbout_Click End Select End Sub Private Sub UserBloodInfo_Click() strTableName = “病人用血情况“ Form1.Show 1 End Sub Private Sub Userpasword_Click() 用户密码 Form4.Show 1 End Sub Public Sub PrivsSeting() 权限设置 If IsUserMode = 1 Then 管理员 ZiDianmanage.Enabled = True sysManager.Enabled = True Toolbar1.Buttons(1).Enabled = True ElseIf IsUserMode = 2 Then ZiDianmanage.Enabled = False sysManager.Enabled = False Toolbar1.Buttons(1).Enabled = False End If End Sub Private Sub ZiDianmanage_Click() 字典信息 strTableName = “字典信息“ Form1.Show 1 End Sub 第三部分：血液入库管理 要求：实现血液入库信息的新增、修改、浏览，删除等操作。 源代码如下： Dim nModeSys As Integer Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRegAdd_Click() 添加 nModeSys = 2 添加操作 Dim IDmax As String Dim i As Integer For i = 1 To Val(Txt(0).Text) Txt(i).Text = “ Next i cmdRegSave.Enabled = True End Sub Private Sub cmdRegDel_Click() 删除 On Error GoTo Err Dim ss As Integer ss = MsgBox(“真的删除该记录吗？“, vbCritical + vbOKCancel, “系统提示“) If ss = 1 Then If rs.BOF And rs.EOF Then For i = 1 To Val(Txt(0).Text) Txt(i).Text = “ Next i Else rs.Delete rs.UpdateBatch rs.Filter = adFilterNone rs.Requery If Not rs.EOF Then rs.MoveLast For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i Else For i = 1 To Val(Txt(0).Text) Txt(i) = “ Next i End If End If End If Exit Sub Err: MsgBox Err.Description, vbInformation + vbOKOnly, “系统提示“ End Sub Private Sub cmdRegFirst_Click() Dim i As Integer On Error GoTo Err rs.MoveLast If Not rs.EOF Then For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLook_Click() strLook = Trim(Combo1.Text) If strLook Dim i As Integer On Error GoTo Err If rs.EOF Then rs.MoveLast If Not rs.EOF Then For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i End If Else rs.MoveNext If Not rs.EOF Then For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() Dim i As Integer On Error GoTo Err rs.MoveLast If Not rs.EOF Then For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLook_Click() strLook = Trim(Combo1.Text) If strLook Dim i As Integer On Error GoTo Err If rs.EOF Then rs.MoveLast If Not rs.EOF Then For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i End If Else rs.MoveNext If Not rs.EOF Then For i = 1 To Val(Txt(0).Text) If Not IsNull(rs.Fields(i - 1) Then Txt(i) = rs.Fields(i - 1) Else Txt(i) = “ End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() “ Then strSql = “select sum(血量) as 库存量 from 入库信息表 where 血型=“ & Trim(Combo1.Text) & “ Else Exit Sub End If rs1.Open strSql, CN, adOpenStatic, adLockOptimistic If Not rs1.EOF Then If rs2.State Then rs2.Close strSql = “select sum(输血量) as 库存量 from 出库信息表 where 血型=“ & Trim(Combo1.Text) & “ rs2.Open strSql, CN, adOpenStatic, adLockOptimistic If Not IsNull(rs1.Fields(0) Then a = Val(rs1.Fields(0) N Y 开始 设置/修改查询条件 是否继续 退出 If Not IsNull(rs2.Fields(0) Then b = Val(rs2.Fields(0) With MSHFlexGrid1 .Rows = 2 .Cols = 4 .TextMatrix(0, 0) = “序号“ .TextMatrix(0, 1) = “日期“ .TextMatrix(0, 2) = “血型“ .TextMatrix(0, 3) = “库存量“ .TextMatrix(1, 0) = 1 .TextMatrix(1, 1) = Date .TextMatrix(1, 2) = Combo1.Text .Te