Delphi开发的宠物医院管理系统论文.doc

精品文档 。 1欢迎下载 目录 摘要摘要 .2 2 1 1 概述概述 .3 3 1.1 选题的目的、意义.3 1.2 国内外研究现状及存在的问题.3 1.3 需求分析.3 2 2 开发工具简介开发工具简介 .5 5 2.1 选用 DELPHI7.0+ACCESS2000 作为开发工具原因。 .5 2.2 DELPHI7.0.5 2.2.1 Delphi7.0 的特点.6 2.2.2 数据库组件介绍 .6 2.2.3SQL 语言简介 .7 2.2.4 SQL 语句 .8 2.3 数据库的选择.10 2.3.1 Microsoft Office Access.10 3 3 概要设计概要设计 .1212 3.1 系统流程 .12 3.2 数据库设计 .12 3.2.1 数据库设计过程 .12 3.2.2 数据库构成.14 4 4 详细设计详细设计 .1616 4.1 系统的主要功能 .16 4.2 系统的基本模块.16 4.2.1 系统操作模块 .16 4.2.2 客户管理模块 .17 4.2.3 药品管理模块 .19 4.2.4 财务管理模块 .21 4.2.5 系统管理模块 .22 4.2.6 主界面 .24 5 5 总结总结 .2525 6 6 致谢致谢 .2626 7 7 参考文献参考文献 .2727 精品文档 。 2欢迎下载 摘要摘要 本次毕业设计任务是通过开发一个宠物医院管理系统，学习用 Delphi 开发分布 式多层数据库系统。采用 Delphi7.0 和 Microsoft Office Access 等软件为开发工具； 通过对计算机硬件和软件解决方案的论证；对应用领域进行调查分析；参考各种资料 和进行数据库编程实践。在我指导老师的帮助下，已经基本上成功地实现了设计任务 书的要求。使得设计的数据库系统能够实现一般数据库的管理。我们研究了数据库的 查询优化问题。 本系统是针对宠物医院管理进行设计的， 关键词：关键词：宠物医院、管理、Delphi7、Microsoft Office Access 精品文档 。 3欢迎下载 1 1 概述概述 1.11.1 选题的目的、意义选题的目的、意义 开发一个宠物医院管理系统，可以实现动态的连接应用程序服务器，只要对配置文 件进行配置，就可以像网上邻居一样选择所要连接的应用程序服务器。并能实现登录、 客户管理、药品和宠物用品的添加和修改 、数据的备份和还原等功能。 1.21.2 国内外研究现状及存在的问题国内外研究现状及存在的问题 随着社会发展，人类的生产、生活越来越离不开信息。谁拥有了更多更有效的信息， 谁就将在竞争中处于有利地位。信息产业正在成为一个国家的支柱。数据作为信息的载 体，其管理工具数据库对于信息技术的重要性，正日益得到人们的重视。只有拥有了先 进的数据库技术，才能有效地管理好浩如烟海的数据，并从中提取出对自己有用的信息 来加以利用。 90 年代，人们开发 MIS 系统大都采用客户机/服务器结构，客户机/服务器结构既是 硬件结构又是软件结构。即数据放在服务器上，程序在客户机上。进行数据访问时，由 客户机提出请求，服务器执行并给出结果。客户机/服务器对于优化了网络，提高了系统 的利用率。客户机/服务器体系结构的发展经历了从二级体系结构模式到三级体系结构模 式。 1.31.3 需求分析需求分析 信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和社会生 活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继 续用手工劳动。为了适应现代社会人们高度强烈的时间观念，宠物医院管理系统软件为 宠物医院带来了极大的方便。 运用现代信息化技术再造的组织结构，建立一个适应知识经济创新需要的网络化水 平管理方式，显得尤为重要。电脑信息库录入是指将手工已编制好的记账信息库管理系 统或根据原始信息库直接在系统内制作信息库信息，同时，可对输入的信息库信息进行 修改、查找、等操作。这种集约化的管理模式，便于信息库信息的收集、整理和加工， 又便于操作员的需求信息在最短的时间内得到反馈。 我国加入 WTO 后，面对高度信息化、全球化和管理现代化的国际竞争，中国如何应 用信息技术促进管理创新，以管理创新促进实施信息现代化的战略，深化改革和实现管 精品文档 。 4欢迎下载 理水平跨越式发展，提高服务水平和服务质量，增强的竞争力，已成为一个不容回避、 亟待研究解决的重大课题。 本系统所实现的宠物医院管理是以 Delphi7.0 和 Microsoft Office Access 为编程 环境来实现其制作和开发过程的，通过对宠物医院管理系统，进行可行性分析、需求分 析和设计逐步将一个宠物医院管理系统的开发过程呈现出来。没有刻意追求专业性和商 品化软件的华丽包装，而是本着简单实用的原则，即在功能上满足用户的需求，又力求 操作简便，是本系统容易掌握和使用。 精品文档 。 5欢迎下载 2 2 开发工具简介开发工具简介 2.12.1 选用选用 Delphi7.0+ACCESS2000Delphi7.0+ACCESS2000 作为开发工具原因。作为开发工具原因。 随着社会需求的推动和计算机技术的发展普及，各行业的管理机构需要有计算机来处 理大量的信息。选择一优秀的数据库管理系统作为开发平台，将给日后的信息处理带来 便利性。其中，基于微型计算机的数据库系统是应用最广泛、实用性最强的一种计算机 技术。而事实证明：ACCESS 数据库是一个广泛使用、简单易用、性能价格比较高、工具 完整而又丰富、界面友好、处理速度高的关系型数据库。ACCESS20000 主要用于 Windows 环境，利用它可设计出体现 Windows 风格的丰富多彩的图形化用户界面，使用户的操作 和使用十分便利。ACCESS2000 是为数据库应用程序开发而设计的功能强大、面向对象的 编程工具。它能够管理大量复杂的数据信息，同时有具有很好的安全性和较强的网络功 能，甚至还能够实现数据的远程访问和存储加工 从本人的实际情况看：因为在校期间也有学习过可视化的编程，对这一类的软件的使 用也有叫深的认识，所以说选用 ACCESS2000 作为开发工具是很有优势的。 而对于前台编程工具，目前比较流行的是 RAD（Rapid Application Development 快速开发工具）VC+，VB，Delphi，PowerBuilder, C+builder 等。其中以 VC+和 Delphi 较为杰出，而 VC+主要是侧重于偏硬方面， Delphi 主要侧重于偏软方面。对底 层编程比较需要的地方就大部分 VC+，而 Delphi 的 IDE 是非常易用的。业界有一句很经 典的话：真正的程序员用 VC+，而聪明的程序员用 Delphi。可见，VC+与 Delphi 是两 种较行优秀的语言开发工具。 Delphi 7.0 应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工 具，Delphi 7.0 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了 编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和 可靠性。 2.22.2 Delphi7.0Delphi7.0 Delphi 是一门真正的面向对象的编程语言，它支持封装、继承和多态性等面向对象 的概念。面向对向程序设计是现今最为流行的程序设计方法，也是开发 Delphi 程序的根 本思想。简单来说，是将一个对象的数据以及一个对象的操作结合起来，对一个对象中 的数据的访问，通过该随行提供的操作接口来实现。继 承，是指子类拥有父类的方法和 属性。面向对象的程序设计目的是创建可重用的代码，通过把属性和方法封装进对象 中，以便更好地模拟现实世界。面向对象的 程序设计涉及到对象、类、封装、多态等基 本概念，以下作简要说明简单来说，是将一个对象的数据以及一个对象的操作结合起来， 精品文档 。 6欢迎下载 对一个对象中的数据的访问，通 过该随行提供的操作接口来实现。继承，是指子类拥有 父类的方法和属性。 2.2.12.2.1 Delphi7.0Delphi7.0 的特点的特点 Delphi7.0 是以组件化的编程方式、面向对象的程序设计、快速的 Pascal 编译器、 众多的组件和强大的数据库及网络应用开发支持，是开发客户机-服务器程序的高效工具， 是面向对象编程的典范。 1. 可视化开发环境。 Delphi 提供了一套可视化工具，通过它们可以及时观察界面设计中的变化，这种设 计过程基本是“所见即所得” 可视化开发环境的特点是“控件组装” 。 2. Delphi 提供了丰富的可视组件库。 3. 面向对象的特性。 4. 高效的编译器。 Delphi 的编译器是目前世界上最快的 32 位本地代码(源代码)编译器。使用这种编译 器产生的运行文件 EXE 是独立的，不需要链接运行时的解释器 DLL。 5. 强大的数据库开发功能。 开发数据库应用程序是的主要功能之一。 应用程序可通过在 Delphi 中使用 Borland 公司提供的数据引擎(BDE)功能，使用多 种数据库， 例如 Oracle、Sybase、Informix、Interbase、Microsoft SQL Server、Paradox、Xbase 系列数据库。 6. 支持分布式应用开发 适应于多种数据库结构，包括客户机服务机模式和多层数据结构模式。 2.2.22.2.2 数据库组件介绍数据库组件介绍 用 Delphi7 开发数据库应用，重点是和各种数据库组件打交道，能和数据库挂钩的组 件对象有 5 种，它们是：Session（数据库会话） 、 Database（数据库） 、Dataset（数据 集） 、DataSource（数据源） 、Data control（数据控制组件，也叫 data-controls 即数 据感知组件） 。其中前面 4 种统称为数据访问（Data Access）组件。 ADO 组件 Delphi7.0 包含了可以用来访问 Microsoft 公司的 ActiveX Data Objects（ADO）格式数据库的组件。ADO 是 Micrsoft 公司关于各种类型数据的高等界面， 后来逐渐演变成满足所有数据访问需要的完整解决办法。ADO 的对象模型是所有数据访问 接口对象模型中最简单的一种。Microsoft 公司用来访问 ADO 数据的应用程序界面技术是 OLE DB。OLE DB 是一种底层编程接口，用来访问许多不同类型的数据源，其中包括消息、 文件系统以及其他一些非传统的数据源。OLE DB 是一个由 Component Object Model（COM）接口组成的集合，用来隐藏创建数据访问服务过程中的细节。OLEDB 提供了 精品文档 。 7欢迎下载 访问任何数据资源的方法，包括相互关联的数据库和相互不关联的数据库、Email 和文件 系统、文本和图形以及用户定义的数据对象。 Delphi 的 ADO 组件无需依靠 BDE 而是使用 ADO 技术，提供了可以通过数据控制组件访 问数据的新方法。唯一的要求是在使用 ADO 组件时必须运行 ADO/OLEDB。ADO 组件的使 用使得 DELPHI 在访问数据的类型和采用的技术方面都有了很大的突破。 数据模块设计窗口 数据模块设计窗口是用来设计和维护数据模块的。数据模块设计窗 口中包含了所有以.DTI 作为文件扩展名的 Data Diagram 文件的信息。DTI 文件在编译时 不起任何作用。 2.2.2.2.3SQL3SQL 语言简介语言简介 SQL(Structured Query Language)，意思为结构化查询语言，是一种介于关系代数 与关系演算之间的结构化查询语言。它的主要功能就是同各种数据库建立联系，进行沟 通。ANSI（美国国家标准协会）规定 SQL 是关系型数据库管理系统的标准语言。SQL 语句 可以用来执行各种各样的操作，例如更新数据库中的数据、从数据库中提取数据等。 SQL 语言之所以能够为用户和业界所接受，并成为国际标准，是因为它是一个综合的、 功能极强同时又简捷易学的语言。SQL 语言集数据查询、数据操纵、数据定义和数据控制 功能于一体，主要特点包括： 1.综合统一 非关系模型的数据语言一般都分为模式数据定义语言（模式 DDL）、外模式数据定义 语言（外模式 DDL）、与数据存储有关的描述语言（DSDL）及数据操纵语言（DML），分 别用于定义模式、外模式、内模式和进行数据的存取与处置。当拥护数据库投入运行后， 如果需要修改模式，必须停止现有的数据库的运行，转储数据，修改模式并编译后再重 装数据库，十分麻烦。 SQL 语言则集数据定义语言 DDL、数据操纵语言 DML、数据控制语言 DCL 的功能于一 体，语言风格统一，可以独立完成数据库生命周期中的全部活动，包括定义关系模式、 建立数据库、插入数据、查询、更新、维护、数据库重构、数据库安全性控制等一系列 操作要求，这就为数据库应用系统的开发提供了良好的环境。用户在数据库系统投入运 行后，还可根据需要随时地逐步地修改模式，切并不影响数据库的运行，从而使系统具 有良好的可扩展性。 2. 高度非过程化 非关系数据模型的数据操纵语言是面向过程的语言，用其完成某项请求必须指定存 取路径。而用 SQL 语言进行数据操作，只要提出“做什么”，而无须指明“怎么做” ， 因此无须了解存取路径，存取路径的选择以及 SQL 语言句的操作过程由系统自动完成。 这不但大大减轻了用户负担，而且有利于提高数据独立性。 3. 面向集合的操作方式 精品文档 。 8欢迎下载 非关系数据模型采用的是面向记录的操作方式，操作对象是一条记录。而 SQL 语言 采用集合操作方式，不仅操作对象、查找结果可以是元组的集合，而且一次插入、删除、 更新操作的对象也可以是元组的集合。 4. 以同一种语法结构提供两种使用方式 SQL 语言既是自含式语言，又是嵌入式语言。作为自含式语言，他能够独立地用于联 机交互的使用方式，用户何以在终端键盘上直接键入 SQL 命令对数据库进行操作；作为 嵌入式语言，SQL 语句能够嵌入到高级语言中，供程序员设计程序时使用。而在两种不同 的使用方式下，SQL 语言的语法结构基本上是一致的。 5. 语言简捷，易学易用 SQL 语言功能极强，但由于设计巧妙，语言十分简捷，完成核心功能只用了 9 个动词， SQL 语言接近英语口语，因此容易学习，容易使用。 6SQL 为许多任务提供了命令，其中包括： 1 查询数据 2 在表中插入、修改和删除记录 3 建立、修改和删除数据对象 4 控制对数据和数据对象的存取 5 保证数据库一致性和完整性 2.2.42.2.4 SQLSQL 语句 SQL 功能强大，是一种完备的数据处理语言，不仅用于数据库查询，而且用于数据库 中的数据修改和更新，概括起来，它可以分成以下几组： DML（Data Manipulation Language，数据操作语言）：用于检索或者修改数据； DDL（Data Definition Language，数据定义语言）： 用于定义数据的结构，比如 创建、修改或者删除数据库对象； DCL（Data Control Language，数据控制语言）：用于定义数据库用户的权限。 DML 组可以细分为以下的几个语句： SELECT：用于检索数据； INSERT：用于增加数据到数据库； UPDATE：用于从数据库中修改现存的数据； DELETE：用于从数据库中删除数据。 DDL 语句可以用于创建用户和重建数据库对象。下面是 DDL 命令： CREATE TABLE，ALTER TABLE，DROP TABLE，CREATE INDEX，DROP INDEX Select 查询语法： Select distinct别名.字段名或表达式as 列标题 /指定要选择的列或行及其限 精品文档 。 9欢迎下载 定 From table_source /from 子句，指定表或试图 where search_condition /where 子句，指定查询条件 group by group_by_expression /group by 子句，指定分组表 达式 order by order_expressionasc|desc /order 子句，指定排序表达 式和顺序 其中，select 和 from 子句是不可缺少的。 Select 子句指出查询结果中显示的字段名，以及字段名和字段名和函数组成的表达 式等。可用 distinct 去除重复的记录行；as 列标题指定查询结果显示的列标题。若要 显示表中所有字段时，可用通配符“*”代替字段名列表。 Where 子句定义了查询条件。Where 子句必须紧跟 From 子句之后，其基本格式为： Where 其中 search_condition 为查询条件，常用格式为： not|() and|or not|() ,n 其中 predicate 为判定运算，结果为 true,false 或 unknown. 1. DDL 与 DML 数据定义语言 DDL：它是用来创建和修改数据库结构的一种语句，包括 Create、Alter 和 Drop 语句。 数据操作语言 DML：包括数据查询与数据更新。数据查询主要是由 Select 语句完成， 这一点不再赘述。而数据更新所造成的风险大大超过数据查询。数据库管理系统必须在 更改期内保护所存储的数据的一致性，确保有效的数据进入数据库，数据库必须保持一 致性，DBMS 还必须协调多用户的并行更新，以确保用户和它们的更改不至于影响其它用 户的作业。 用于修改数据库内容的 SQL 语句主要有以下三个： (1) Insert，向一个表中加入新的数据行 (2) Delete，从一个表中删除数据行 (3) Update，更改数据库中已经存在的数据 Insert 标准语法： INSERT INTO table_name (col1, col2.) VALUES(value1, value2.) Insert 语句还可以将多行数据添加到目标表中去，在这种形式的 Insert 语句中， 新行的数据值不是在语句正文中明确地指定的，而是语句中指定的一个数据库查询。添 加的值来自数据库自身的行，在某些特定的状态下，这是非常有用的。多行 Insert 语 精品文档 。 10欢迎下载 句为拷贝数据提供了一种紧凑而高效的方法。 Update 语句用于更新单表中选定行的一列或多列的值。要更新的目标表在语句中定 义，Set 子句则指定要更新哪些列并计算它们的值。 Update 语句总是包含 Where 语句， 而且 Update 语句比较危险，所以您必须明确地认识到 Where 语句的重要性，Where 语句 被用来指定需要更新的行。 标准语法： UPDATE table_name SET columnname1 = value1 , columname2 = value2. WHERE search_condition Delete 语句标准语法： DELETE FROM tablename WHERE condition 2.32.3 数据库的选择数据库的选择 2.3.12.3.1 MicrosoftMicrosoft OfficeOffice AccessAccess Access2000 是微软公司开发的 WINDOWS 操作系统环境下流行的桌面数据管理系统。 使用 Access2000 时，用户无需编写任何编码，仅通过简单直观的可视化操作就可以完成 大部分的数据管理任务。 Access 2000 是建立在成熟而强大的关系模型基础上的，它可以很好地支持客户/服 务器模型，很好地支持局域网与互联网的应用，能够满足企事业单位构建中小型应用 系 统的需求。利用 Access 2000 创建数据库应用系统十分简便而快速，甚至无需编程即可 实现简单应用系统的创建。Access 2000 已成为最容易使用且被广泛接受的数据库软件。 Access2000 是一个面向对象的、采用事件驱动机制的新型关系数据库管理系统， Access2000 提供了表生成器、查询生成器、报表设计器等许多便捷的可视化操作工具以 及数据库向导、表向导、查询向导、窗体向导、报表向导等众多向导，可以很方便的构 造一个功能完善的数据库管理系统；它还为数据库开发管理人员提供了 Visual Basic For Application（VBA）程序设计语言，便于高级用户开发功能更完善的数据库管理系 统。 在 Access 数据库中，任何事物都可以称之为对象。一般情况下，Access 数据库包括 表、查询、窗体、报表、数据访问页、宏和模块七个对象，这些对象用于收集、存储和 操作各种不同的信息。 Access 数据库中的每一个对象都不能独立保存，而只能作为 Access 数据库中的一部 分。 在 Access 中， 用户可以为每一种类型的信息创建一个表，将数据分别存放在自己 精品文档 。 11欢迎下载 创建的表中，然后可以通过联机窗体方便地查看、添加及更新表中的数据；使用查询查 找并检索符 合指定条件的数据；使用报表分析数据，并以特定的版面打印数据；利用数 据访问页查看、编辑和汇报驻留在浏览器中的数据的 HTML 页；使用宏完成自己定义的一 系列操作，同时又不需要编写程序。还可以通过嵌入模块来实现一些复杂功能。 精品文档 。 12欢迎下载 3 3 概要设计概要设计 3.13.1 系统系统流程流程 根据宠物医院管理的要求，宠物医院管理系统的设计应包括与宠物相关的各个方面， 即应包括宠物基本信息的管理，医院的管理。其中有分别包括各自信息的添加、删除、 查询功能。以实现对宠物医院的高效、全面管理。这里仅对系统的大体实现做一个整体 的设计，具体的功能将在下面章节中进行介绍。 系统流程图（如下图）： N Y 图 3-1 系统设计流程图 3.23.2 数据库设计数据库设计 3.2.13.2.1 数据库设计过程数据库设计过程 数据库的设计过程如下图所示。在数据库设计过程中，需求分析和概念设计可以独 立于任何数据库管理系统进行。逻辑设计和物理设计与具体的数据库管理系统密切相关。 由于需求分析比较重要。我们在设计的时候，花了比较多的时间。在获得这些资料之后， 进行分析。从中提取有用的部分。 数据库设计过程图（如下图）： 用户登录 密码？ 进入系统 进行操作 结束 重新登录 精品文档 。 13欢迎下载 需求分析说明书 概念数据库模式 独立于数据 （高级数据模型） 库管理系统 与数据库管 理系统相关 逻辑数据库模式 （特定数据模型） 物理数据库模式 （特定的物理存储结构和存取方式） 图 3-2 数据库设计过程图 现实世界 需求分析 概念数据库设计 逻辑数据库设计 物理数据库设计 精品文档 。 14欢迎下载 3.2.23.2.2 数据库构成数据库构成 数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要 的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设 计， 可以提高数据信息的存储效率，保证数据信息的完整性和一直性。同时，一个合理的数 据库结构有利于程序的实现。这里选用 Access 2000 作为后台数据库。 1用户信息表 表主要用于用户的信息和数据，只有这里记录的用户才能登陆使用 本系统。 表 3-1.1 用户数据定义表 字段名称数据类型字段大小必填字段允许空字符串 id 文本 20 是是 password文本20是是 主要定义 id(用户名)和 password（密码）的数据类型和字段大小。 表 3-1.2 用户名表 idPassword admin123 main123456 主要纪录着用户名和密码的信息。用户登录时用户名和密码就是从用户名表中调用。 2. 登记薄信息表 表 3-2.1 登记薄数据表定义 字段名称数据类型字段大小必填字段允许空字符串 姓名文本 20 是是 电话数字长整型否否 手机数字长整型否否 病历号数字长整型是是 种类文本 20 是是 宠物名文本 20 是是 主要定义姓名、电话、手机、病历号、种类、宠物名的数据类型和字段大小。 表 3-2.2 登记薄表 姓名电话手机病历号种类宠物名 李太太 70246061365552222111112 猫 Ms 张太太 70246071365552222211113 狗阿大 主要记录着姓名、电话、手机、病历号、种类、宠物名。用户信息添加和查找在登记 精品文档 。 15欢迎下载 薄中有记录。 3药品信息表 表 3-3.1 药品数据表定义 字段名称数据类型字段大小必填字段允许空字符串 药品简称文本 15 是是 药品名文本 20 是是 新增数量数字长整型是是 单位文本 10 是是 近价数字双精度型是是 售价数字双精度型是是 厂家文本 20 否否 药品数据表定义了药品简称、药品名、新增数量、单位、近价、售价、厂家信息。 表 3-3.2 药表 药品简称药品名新增数量单位近价售价厂家 qwdk 犬瘟单抗 100 盒 100200 齐鲁制药 qwgm 犬瘟高免 100 盒 100200 齐鲁制药 其他信息表一样也是通过数据表定义建立数据表。 精品文档 。 16欢迎下载 4 4 详细设计详细设计 4.14.1 系统的主要功能系统的主要功能 开发一个宠物医院管理系统，可以实现动态的连接应用程序服务器，只要对配置文 件进行配置，就可以像网上邻居一样选择所要连接的应用程序服务器。并能实现登录、 客户管理、药品和宠物用品的添加和修改 、数据的备份和还原等功能。 4.24.2 系统的基本模块系统的基本模块 根据需求分析，本系统的设计功能共划分为七个子模块分别为：系统操作模块、客户管 理 模块、药品管理模块、治疗处理模块、宠物用品模块、财务管理模块、系统管理模块。 客 户 管 理 药 品 管 理 治 疗 处 理 宠 物 用 品 财 务 管 理 系 统 管 理 宠物医院管理 图 4-1 总体功能模块示意图 4.2.14.2.1 系统操作模块系统操作模块 系统操作模块：本模块的主要功能是完成用户的登录和退出。是系统最主要的模块。 登录界面图： 系 统 操 作 精品文档 。 17欢迎下载 图 4-2 登录界面 为宠物医院的相关信息不被其他人员任意查阅更改，本系统的使用应首先进行用户的 登录确认，只有正确输入系统管理员姓名和密码才能够进入本系统，进行信息的管理.如 果姓名与密码不相符，则弹出提示窗口，提示密码错误;输入正确，点击登录按钮，即可 进入系统主界面。 退出：主要功能是退出该系统回到 WINDOWS 环境下。 4.2.24.2.2 客户管理模块客户管理模块 客户管理模块：本模块的主要功能是完成客户的相关信息和宠物的信息。客户信息包 括客户名、电话、手机。宠物信息包括病历号、宠物种类、宠物名、病称。同时模块还 有查找用户和删除用户的功能。 登记薄图： 图 4-3 登记界面 登记薄是登记畜主及其宠物的详细信息，每个畜主第一次带来宠物时在大部分医院要 精品文档 。 18欢迎下载 进行挂号。 图 4-4 添加用户界面 在上图中可以录入畜主和宠物详细信息，病历号。 图 4-5 病历界面 4.2.34.2.3 药品管理模块药品管理模块 药品管理模块：本模块的主要功能是完成药品的管理。药品的管理：药品的添加、药 精品文档 。 19欢迎下载 品的修改、药品库存的查看。程序实现了药品信息的添加、查询、修改、删除功能 查询、添加、修改、删除用的函数命令如下： SELECT：用于检索数据； INSERT：用于增加数据到数据库； UPDATE：用于从数据库中修改现存的数据； DELETE：用于从数据库中删除数据。 新增药品： 图 4-6 新增药品界面 药品修改： 精品文档 。 20欢迎下载 图 4-7 药品修改界面 药品库存： 图 4-7 药品库存界面 药品管理和治疗处理、用品管理的功能相差不多。其中添加、修改、查找都是用相同 的功能代码完成的。 精品文档 。 21欢迎下载 4.2.44.2.4 财务管理模块财务管理模块 财务管理模块：本模块的主要功能是完成收银和支出的纪录。收银主要是：挂号费、 药费、宠物用品费。支出主要是：买药费、买宠物用品费。 图 4-8 收银界面 图 4-9 支出界面 4.2.54.2.5 系统管理模块系统管理模块 系统管理模块：本模块的主要功能是完成备份和还原。备份和还原在系统中有比较重 要的功能。如果出现意外，可以在备份文件中还原回来，而不会造成损失。 精品文档 。 22欢迎下载 1备份 图 4-10 备份界面 数据库的备份功能的实现过程是：点击数据备份菜单，则把数据库复制并另存为到用 户指定的地方并重命名。备份成功，系统提示备份成功。 procedure Tsjbf_Form.Button1Click(Sender: TObject); var path:string; begin if SaveDialog1.Execute then if SaveDialog1.FileName then begin path := ExtractFilePath(application.ExeName); try copyfile(pchar(path+/db/data.mdb), pchar(SaveDialog1.FileName+ .mdb.bak),false); messagebox(getactivewindow(),成功备份数据！,提示！ ,MB_OK + MB_ICONINFORMATION); except messagebox(getactivewindow(),备份数据失败，请重试！!,错误！ ,MB_OK +MB_ICONERROR); end; end; end; 2还原 精品文档 。 23欢迎下载 图 4-11还原界面 数据库的还原功能实现过程如下：点击数据还原菜单，用户手动找到数据备份存放的 地址。打开备份数据库并复制数据库备份。并把原数据库删除且把数据库备份考贝到原 数据库的位置并重命名为原数据库的名字。 procedure Tsjhy_Form.Button1Click(Sender: TObject); var path:string; begin if OpenDialog1.Execute then if OpenDialog1.FileName then begin path := ExtractFilePath(application.ExeName); try main_Form.ADOConnection1.Connected:= false; Deletefile(path+/db/data.mdb); copyfile(pchar(OpenDialog1.FileName),pchar(path + /db/data.mdb), false); messagebox(getactivewindow(),成功恢复数据,单击确定后请重新运行软件！,提示！ ,MB_OK + MB_ICONINFORMATION); Application.Terminate; except messagebox(getactivewindow(),恢复数据失败，请重试！!,错误！ ,MB_OK + MB_ICONERROR); end; end; end; 精品文档 。 24欢迎下载 4.2.64.2.6 主界面主界面 系统操作：实现了系统登录系统和退出系统。 客户管理：实现了宠物主人的基本信息，如姓名、电话、手机、病历号、宠物种类、宠 物名。 药品管理：实现了药品信息的查询、添加、修改、删除功能。 治疗处理：实现了治疗处理的查询、添加、修改、删除功能。 用品管理：实现了用品信息的查询、添加、修改、删除功能。 财务管理：费用的收入和支出功能。 系