关 键 词：

毕业设计论文

资源描述：

JSJ06-167@VB医院血库管理系统设计(源代码+系统+开题报告+说明),毕业设计论文

内容简介：

1 医院 管理系统 开题报告 一、 选题的目的意义： 医院管理系统是每一个医疗机构管理病人及医师收入和支出的不可缺少的一个管理信息系统，它的内容对于医疗机构的管理者来说是至关重要的，所以医院管理系统应该能够为每一个医疗机构的管理者提供充足的信息和快捷的查询手段，大大的方便医疗机构的管理者的合理管理。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机 应用的一部分，使用计算机对病人及医师进行管理，具有着手工管理所无法比拟的优点，如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高病人及医师管理的效率，也是医疗机构理财的科学化、正规化管理，与先进科学技术接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。 1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理病人及医师 今天，计算机的价格已经十分低廉， 性能却有了长足的进步。它已经应用于许多领域。 现在我国的病人及医师管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。 我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助医疗机构进行病人及医师管理。 开发这一系统的好处大约有以下几点： 第一、可以存储历年病人及医师的信息，安全、高效； 第二、只需一到二名档案录入员即可操作系统，节省人力； 第三、可以迅速查到病人及医师的各类信息。 nts 2 2为将来医疗机构上网做好准备 跟据 2003 年中国电信的调查报告显示我国的上网人数已达到 1870 万，互联网已经十分普及，本系统为医疗机构将来的上网作了先期工作，比如医疗机构的网络管理模式的建立。 开发环境 硬件系统：奔腾 100 以上 CPU、 64M 以上内存、 1G 以上硬盘、光驱。 软件系统： Windows 9x 或更高版本、 Visual Basic 6.0 中文版、 Access 数据库。 开发工具简介 微软公司的 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 控件还提供了用来浏览不同nts 3 记录的各种跳转按钮。将 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 引擎直接创建和操作这些数据库，可以提供最大程度的灵活性和速度。 nts 4 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 直接把命令传递给服务器处理，以创建真正的客户机 /服务器程序。 二、 人力资源管理 系统实现的功能： 第一部分：系统用户管理 要求：用户分 四 类：超级用户 一切功能可用 、管理员 不可添加系统用户、修改用户密 码、不可实现收费功能 、收费员 仅可查询信息、收费功能 、普通用户 仅可查询信息 第二部分：患者基本资料 要求：实现患者资料的新增、修改、办理患者出院、查询患者资料 。 第三部分病房管理 要求：实现新增病人、病人的转科转房、病房明细查询、患者退房 第四部分 主治医师管理 要求：实现主治医师资料的新增、修改、查询，有统计各个主治医师的治疗效果 第五部分 收费管理 要求：实现收费项目列表、查询各患者交费情况的查询，及收费窗口 第五部分 统计打印报表 要求：实现当日出 /入院病人数量和人员列表，实现各患者费用情 况的打印 第六部分 帮助 制作帮助文档，介绍各部分功能即可 根据以上分析，该系统考虑将整个系统分解成如图 3-1 模块结构图 : nts 5 图 3-1 模块结构图 并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。 参考文献 1 袭沛曾，陆慰民 ，杨志强 . Visual Basic 程序设计教程（ 6.0 版） . 高等教育出版社 . 2000 年 2 肖建 ，薛凤武 ， 吴静 . Visual Basic 6.0 基础教程 . 中国电力出版社 . 2002 年 3 张大年， 廖智勇 ，刘检锋 . Visual Basic 数据库应用开发与实例 . 主界面 病人管理理 医师管理理 收费管理 密码修改 等 打印服务 登录 nts 6 清华大学出版社 . 2002 年 4 杨宗志 . Visual Basic 数据库程序设计 . 清华大学出版社 . 2001 年 5 陈豫龙， 何旭洪 . Visual Basic 6.0 数据库开发实例导航 人民邮电出版社 . 2002 年 6 Visual Basic 6.0 时尚编程百例 机械工业出版社 . 2001 年 7 飞思科技产品研发中 心 . Access 2000 数据处理技术 电子工业出版社 2001 年 nts 1 前言 医院血库 管理系统 是一个 医院 不可缺少的部分。人工管理方式存在着许多缺点：效率低，保密性差，另外时间一长，将产生大量的文件和数据，这对于查找，更新和维护都带来不少困难。随着科学技术的不断提高。计算机学日渐成熟。它已进入人类社会的各个领域并发挥重要作用。使用计算机档案信息管理，有好多好处：查找方便，可靠性高，存储量大，保密性好，成本低等，能够极大提高管理的效率，也是 医院 信息管理的科学化，与世界接轨的重要条件。 nts 2 摘要 本医院血库管理系统 是典型的信息管理系统 (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. nts 3 目 录 前言 . 1 摘要 . 2 第一章 绪 论 . 4 1 1 课题简介 . 4 1 2 开发的意义 . 4 第二章 开发环境及实现技术 . 5 2 1 开发环境 . 5 2 2 开发工具简介 . 5 第三章、系统设计 . 7 3 1 面对对象的编程 . 7 3 2 数据库的概念 . 8 3 3 新建一个数据库 . 8 3 4 实现数据库之间的联系 . 8 3.5 系统功能图设计 . 9 第四章 数据库设计 . 9 4 1 数据库 ACCESS 简介 . 9 4 2 数据库需求分析 . 10 第五章 系统界面实现 . 13 5.1 登录界面 . 13 第六章 系统功能简介 . 18 总结 . 49 参考文献 . 49 nts 4 第一章 绪 论 1 1课题简介 血库管理系统 是每一个 医疗机构 管理 病人及医师 不可缺少的一个管理信息系统，它的内容对于 医疗机构 的管理者来说是至关重要的，所以 血库管 理系统 应该能够为每一个 医疗机构 的管理者提供充足的信息和快捷的查询手段，大大的方便 医疗机构 的管理者的合理 管理 。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分，使用计算机对 病人及医师 进行管理，具有着手工管理所无法比拟的优点，如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高 病人及医师 管理的效率，也是 医疗机构 理财的科学化、正规化管理，与先进科学技术接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学 生 来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。 1 2开发的意义 1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理 病人及医师 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经应用于许多领域。 现在我国的 病人及医师 管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。 我作为一个计 算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助 医疗机构 进行 病人及医师 管理。 开发这一系统的好处大约有以下几点： 第一、可以存储历年 病人及医师 的信息，安全、高效； 第二、只需一到二名档案录入员即可操作系统，节省人力； 第三、可以迅速查到 病人及医师 的 各类 信息。 2为将来 医疗机构 上网做好准备 跟据 2003年中国电信的调查报告显示我国的上网人数已达到 1870万，互联网已经十分普及，本系统为 医疗机构 将来的上网作 了先期工作，比如 医疗机构的网络 管理模式的建立。 1 3团队构成 指导教师： * 成员： * nts 5 第二章 开发环境及实现技术 2 1开发环境 硬件系统：奔腾 100以上 CPU、 64M以上内存、 1G 以上硬盘、光驱。 软件系统： Windows 9x或更高版本、 Visual Basic 6.0 中文版、 Access数据库。 2 2开发工具简介 微软公司的 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数据库引擎 :所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作 ,并向应用程序返回结果。 nts 6 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直接把命令传递给服务器处理，以创建真正的客户机 /服务器程序。 nts 7 第三章、系统设计 3 1 面对对象的编程 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控件相同。 _ 帮助 专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是nts 8 仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的 Help Workshop4.0 是一套独立于 Visual Basic 的用来协助我们创建、运行于 32位 Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。 _ 关于版本 为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。 Visual Basic允许你使用 APP对象来保存这些信息， APP对象是一个预定义对象，不需要在程序中创建它。 APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些 APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。 3 2 数据库的概 念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（ flat-file）和关系数据库（ relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 3 3 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 1 标识需要的数据； 2 收集被标识的字段到表中； 3 标 识主关键字字段； 4 绘制一个简单的数据图表； 5 规范数据； 6 标识指定字段的信息； 7 创建物理表。 _ 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 3 4 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的 连接形式称为自连接。这种连接是指一个nts 9 表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 3.5系统功能图设计 模块结构图 并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。 第四章 数据库设计 4 1数据库 Access简介 Access中文版是 Microsoft Office 2000 套装软件的数据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。 主界面 系统设置 血液管理 统计查询 系统帮助 打印服务 登录 nts 10 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 创建的程序来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接 到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 4 2数据库需求分析 数据库的实现 -病人用血情况 nts 11 病人用血情况表 里存储了 病人的用血 的信息包括： 科别、姓名 、年龄 采血 日期， 经手人 等 信息模块： 该模块主要完成学生基本信息的录入、删除 、更新等功能。在此模块中定义了八个域名来进行 病人用血情况 的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进 行 病人用户信息 记录的编辑，此窗口使用数据窗口的 FREEDOM风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新 病人用血的 纪录。 -出库信息 数据库 出库信息数 据库里存储了 病人出库信息，包括出库单，病人姓名，血型，科别，病历号，输血量，输血日期，取血人，发血人。 -入库信息数据库 nts 12 入库信息数据库里存储了病人入库信息，包括入库单，病人姓名，血型，科别，病历号，输血量，输血日期，取血人，发血人 -用户管理数据库 用户管理数据库利存储了用户的所有用户名和密 码 列名（中文）列名（英文）数据类型宽度小数点位数是否为空用户号 IDCourseDate8No密码PublisherDate20No 用户管理模块：该模块主要完成存储所有用户的用户名以及密码 -与 VB的连接 Visual Basic提供了与底层数据库系统紧密的连接。 Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用， Visual Basic连接数据库的 方式有两种： 通过使用 Visual Basic的 ADODC控件。 通过使用由 Visual Basic提供的专用的直接与数据库相连的接口 nts 13 第五章 系统界面实现 5.1登录界面 登录界面实现上主要是连接数据库，根据用户名和权限来判断用户的功能如图。在连接数据库上采用的是 Jet4引擎来 Access数据库，连接代码如下： 用户和密码都为 admin 流程图 图 5-1登录界面 (2) 主界面 主界面的实现是根据设计的需要，主要做了菜单，工具栏，壮态栏。如图 5-2: Y N 开始 输入登录密码 是否正确 主界面 nts 14 图 5-2 主界面 系统维护菜单里，包括用户管理，密码修改，数据库备份，背景设计等子菜单如图 5-3。血液管理菜单里包括，入库信息和出库信息。统计查询里包括当前库存查询，入库查询和出库查询。如图 5-4,5-5所示。 图 5-3系统维护 图 5-4 血液管理 图 5-5 统计查询 (3) 各分窗体的实现 用户管理和密码管理，当管理员进入本系统时，可以使用用户管理，可以创建和删除用户（包括用户权限），（普通用户没有这个权限）。 数据库备份是对数据库进行备份 ，以保证数据安全。 背景设置，是对界面的图片或颜色进行设置。如图 5-6。 背景设置中用户可以选择用图片做为背景，也可以选择用颜色做为背景。如果选择图片，点 这个按钮时出现如图 5-7打开对话框选择图片，图片支持的格式有 bmp、 jpg、 gif等。如果选择颜色，点 按钮时出现如图 5-8颜色对话框。 菜单 工具栏 状态栏 nts 15 图 5-7 打开图片 图 5-8 颜色 入库信息和出库信息，是对血液的入库和出库的详细情况进入添加，修改，删除等操作。如图 5-9。 nts 16 图 5-9 入库信息管理 图 5-9各按钮的功能： ：移动到下一条记录。 ：移动最后一条记录。 添加：是添加一新的记录。 修改：在移动到要修改的记录，点修改。修改完后点保存后就修改完毕。 浏览：是查看全的记录。 删除：是删除当前的记录。 保存：是在添加和修改记录后，保存记录。 所有的信息表中的序号及各种编号一定要统一、规范。这样有利于信息检索。 详细界面请参考源代码。 当前库存查询，是对当前不同血型的量进行查询。 入库信息和出库信息查询打印，是对详细的入库和出库信息可以按所有的字段查询。可以导出 Excel报表来打印，如图 5-10。 nts 17 图 5-10 查询 在选择条件包括 =， ,=,like，其中 like是用于模糊检索。 检索完之后，点 Excel报表输出，系统自动输出成报表。编辑格式以后就可以打印。如图 5-11。 图 5-8 打印报表 nts 18 第 六 章 系统功能简介 第一部分：系统用户管理 要求：用户分四类：超级用户 一切功能可用 、管理员 不可添加系统用户、修改用户密码、不可实现收费功能 、 源代码如下： 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 nts 19 If Trim(txtPassword.Text) = Then 判断密码是否为空 MsgBox 请输入密码！ , vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus Exit Sub End If 判断是否有这个用户 txtSql = select * from 系统用户 where 用户名 = & txtUserName.Text & If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then 如果没有这个用户 MsgBox 没有这个帐号，请重新输入帐号 !, vbOKOnly + vbExclamation, 警告 txtUserName.Text = txtPassword.Text = txtUserName.SetFocus Else 如果有用户 If Trim(rs.Fields(1) = Trim(txtPassword.Text) Then 判断权限 UserPrivs = If Trim(rs.Fields(2) = 管理员 Then 管理员权限 IsUserMode = 1 ElseIf Trim(rs.Fields(2) = 普通用户 Then 普通用户权限 IsUserMode = 2 Else 无权 IsUserMode = 0 MsgBox 你没有权限 !, vbExclamation, 警告 End End If UserPrivs = Trim(rs.Fields(2) UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show Exit Sub Else MsgBox 输入密码不正确，请重新输入！ , vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text = End If End If rs.Close nts 20 miCount = miCount + 1 If miCount = 3 Then 三次错误 ,自动退出程序 End End If Exit Sub Err: MsgBox 登录出错 ,请找管理员 !, vbExclamation Ok = False End End Sub Private Sub Form_Activate() txtUserName.SetFocus End Sub Private Sub Form_Load() On Error GoTo Err 连数据库代码 If CN.State Then CN.Close CN.ConnectionString = Provider=Microsoft.JET.OLEDB.4.0; & Data Source= & App.Path & database.mdb;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 nts 21 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 nts 22 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, ) nts 23 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 nts 24 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_