房屋出租管理系统论 文-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 引 言 20世纪以来，社会生产力迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、 一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。 对于房屋出租者来说，大量复杂的房产、租金、合同信息难于通过传统的方法进行管理；对于租房者来说，大量复杂的房产信息使他们感到迷茫。房屋出租管理系统正是钟对上述的问题而开发的，通过计算机系统来管理房屋出租情况，可以解决大量房产信息的查询和管理，便于更好的进行物业管理，同时也为租房者提供方便。这样，使原本复杂的房产、租金、合同信息简单化。房屋出租管理系统实质上就是一个管理信息系统。 管理信息系统是一个集信息技术、经济管理理论、 统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。 开发房屋出租管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和房屋管理实践活动两者之间架设桥梁。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 摘 要 房屋出 租 管理系统是为房屋 出租者 管理房屋出租、出售信息资料而设计的信息管理系统，包含有后台数据库和前台应用程序系统两大部分，后台数据库要求数据的一致性和完整性、安全性 ,用以储存单位工程文档资料及相关信息，前台应用程序系统要求应用程序功能完备、易于使用和界面友好等。经过全面分析，确定数据库采用 SQL server2000，开发工具为 Delphi 7.0，利用 Microsoft 公司的 ADO（ ActiveX Data Object，ActiveX数据对象）访问和操作数据库服务器中的数据。 关键词： 数据库 面向对象开发软件包 数据对象 Abstract House rent Management System is to design for house agency enterprise or business. It have two include the database of backstage supporter and customer application system, the database of backstage supporter ask safety and integrity and the consistency of data to store unit project document information and related information, customer end ask application program function complete, easily to use and interface friendly etc. Via overall analysis, determine to use database adopt SQL server 2000, development tool is Delphi 7.0, ADO visit Keywords: database System Delphi ADO 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第一章 房屋出租管理系统概述 1.1 房屋出租的发展及使用情况 随着城市现代化建设步伐不断加快，城市规模不断扩大 国内外的 房地产业的迅速发展，房屋出售出租行业业务日益增多 。大型技术开发区的周 边多半为出租房 ,为了适应这种形式， 摆脱以前的人工操作。 房屋出售出租行业不仅要提高本身的硬件基础，还要有一整套完善的房屋出售和出租的软件管理系统，以便以最快地速度响应客户的需求，及时为他们提供服务，使买卖或出租承租双方都能够方便快捷的得到信息，同时，使用计算机管理系统进行管理，对企业内部来看，可以提高工作效率；对外来看，获得竞争优势。 21世纪以来，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性 空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。在 Internet 出现之前，房屋出租的方式通常为电话预订。世界各地的客人选择了旅游目的地之后很难了解当地房屋出租的状况，如当地房屋的数量、规模、星级、服务水平、预订情况等，这就给预订工作带来了很大的麻烦，即使是规模较大的旅行社获得上述信息的途径也非常有限，书籍、广告成为其主要的信息载体。然而书籍、广告作为信息载体有其不可避免的局限 性。首先，信息的表现形式过于单一。一些陈旧的图片和枯燥的文字又能使我们对一间房屋有多少了解呢？其次，信息的更新速度跟不上。 对于房屋出租者来说，大量复杂的房产、租金、合同信息难于通过传统的方法进行管理；对于租房者来说，大量复杂的房产信息使他们感到迷茫。房屋出租管理系统正是钟对上述的问题而开发的，通过计算机系统来管理房屋出租情况，可以解决大量房产信息的查询和管理，便于更好的进行物业管理，同时也为租房者提供方便。这样，使原本复杂的房产、租金、合同信息简单化。房屋出租管理系统实质上就是一个管理信息系统。 管理信息系统是一个集信息技术、经济管理理论、统计学与运筹学、数据库技无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。 1.2 管理信息系统概述 管理信息系统是一门新的学科，到目前为止，发展还很不完善，它引用其他学科如管理科学与 工程、经济理论、统计学、运筹学以及计算机学科、通信技术的概念和方法，融合成一门新的综合性、边缘性的学科。 20 世纪，随着全球经济的蓬勃发展，众多经济学家纷纷提出了新的管理理论。 20世纪 50 年代，西蒙提出管理依赖于信息和决策的思想。同时期的维纳发表了控制论，他认为管理是一个控制过程。 1958 年，盖尔写到：“管理将以较低的成本得到及时准确的信息，做到较好的控制”。这个时期，计算机开始用于会计工作。数据处理一词已经出现。 1970 年， Walter T.Kennevan 给刚刚出现的管理信息系统这个词语下了一个定 义：“以口头或书面的形式，在合适的时间向经理，职员以及外界人员提供过去的，现在的，预测未来的有关企业内部及其环境的信息，以帮助他们进行决策”。在这个定义里强调了用信息支持决策，但并没有强调应用模型，没有提到计算机的应用。 1985 年，管理信息系统的创始人，明尼苏达大学的管理学教授 Gordon B.Davis 给了管理信息系统一个较完整的定义，即“管理信息系统是一个利用计算机软硬件资源以及数据库的人 -机系统。它能提供信息支持企业或组织的运行，管理和决策功能。”这个定义全面地说明了管理信息系统的目标，功能和组成， 而且反映了管理信息系统在当时达到的水平。 90年代以来，发达国家的企业已进入信息网络化的阶段，企业信息管理由于全球竞争环境的需要，正在逐步转向其更高阶段，即企业知识管理新阶段。企业不仅强调能力的提高，而且还强调知识创新能力的增强，这是一场企业信息化的革命。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 管理信息系统是依赖于电子计算机的发展而发展的，以计算机和通信技术为代表的现代信息技术为信息管理提供了强有力的工具和手段，信息技术的进步，使整个社会的信息化水平不断提高。 1.3 管理信息系统开发方法 管理信息系统的开发方法是一个复杂的系统工程，它涉 及到计算机处理技术，系统理论，组织结构，管理功能，管理知识等各方面的问题，至今没有一种统一完备的开发方法，但是每一种开发方法都要遵循相应的开发策略。任何一种开发策略都要明确以下问题： 系统要解决的问题：如采取何种方式解决组织管理和信息处理方面的问题，对企业提出的新的管理需求该如何满足等。 系统可行性研究：确定系统所要实现的目标。通过对企业状况的初步调研得出现状分析的结果，然后提出可行性方案并进行论证。系统可行性的研究包括目标和方案可行性、技术可行性、经济可行性和社会影响方面的考虑。 系统开 发的原则：在系统开发过程中，要遵循领导参与、优化创新、实用高效、处理规范化的原则。 系统开发前的准备工作：作好开发人员的组织准备和企业基础准备工作。 系统开发方法的选择和开发计划的制定：针对已经确定的开发策略选定相应的开发方法，是结构化系统分析和设计方法，还是选择原型法或面向对象的方法。开发计划的制定是要明确系统开发的工作计划、投资计划、工程进度计划和资源利用计划。 管理信息系统开发方法主要有：结构化生命周期开发方法、原型法，面向对象的开发方法等。 1.4 结构化生命周期开发方法 目前较为 流行的 MIS开发方法是 结构化的生命周期开发方法。其基本思想是：用系统的思想和系统工程的方法，按用户至上的原则，结构化、模块化地自上而下的对生命周期进行分析与设计。 用结构化生命周期开发方法开发一个系统，将整个开发过程分为 5 个依次连接的阶无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 段： 系统规划阶段 系统分析阶段 系统设计阶段 系统实施阶段 系统运行阶段 这 5个阶段共同构成了系统开发的生命周期。结构化生命周期开发方法严格区分了开发阶段，非常重视文档工作，对于开发过程中出现的问题可以得到及时的纠正，避免了出现混乱状态。但是，该方 法不可避免的出现开发周期长、系统预算超支的情况，而且在开发过程中用户的需求一旦发生变化，系统将很难做出调整 。 1.5 原型法 原型法在系统开发过程中也得到不少的用应。原型法的基本思想是系统开发人员凭借自己对用户需求的理解，通过强有力的软件环境支持，构造出一个实在的系统原型，然后与用户协商，反复修改原型直至用户满意。原型法的用应使人们对需求有了渐进的认识，从而使系统开发更有针对性。另外，原型法的运用充分利用了最新的软件工具，使系统开发效率大为提高。 原型法的最大的问题是难于对开发过程进行管理及控制，其次是 “原型”的设计难度较大，需要较高层次的设计人员，原型法目前还是一个不够成熟和普遍应用的方法，但随着第四代语言、面向对象、软件复用技术的发展和普及，原型法也将会有更大发展。 在实际的 MIS 开发中，经常是生命周期法与原型法相结合使用，需求模型确定阶段往往采用系统分析的方法，在设计和实施阶段则采用快速原型法。这样，既能较好地确定系统开发目标，又能较快地交互开发实现所确定的系统。 1.6 面向对象系统开发方法 面向对象（ OO, OBJECT ORIENTED）的系统开发方法，是近年来受到关注的一种系统开发方法。面向对 象的系统开发方法的基本思想是将客观世界抽象地看成是若干相互联系的对象，然后根据对象和反复法的特性研制出一套软件工具，使之能够映射为计算机软件系统结构模型和进程，从而实现信息系统的开发。 在这一方法中，对象是指问题空间一次或多次出现的事物的抽象。结构化方法以功无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 能分解为基础，系统的功能在系统内外环境急剧变化时很不稳定。而问题空间中的对象是系统中最稳定的部分，基于对象的分类结构和组装结构，并利用服务、消息、继承等概念建立的系统，有较强的应变的能力，应用软件可重用性好，特别适合于复杂、大型系统的开发和处理多媒体数据 。程序设计的思想方法越来越接近人们思维方式。它摈弃了持续许久的“自顶向下”（ Top-Down）和“自底向上”（ Bottom up）的争论，把对于复杂系统的认识归结为对一批对象及关系的认识。因此，软件工作进一步向用户靠近，这对于计算机应用深入到各个领域是十分有利的。面向对象的程序设计语言的出现，使软件开发工作更加方便。面向对象的各种方法正在进一步的发展，并形成了逐步合流的趋势。总之，面向对象的程序设计是人们克服软件危机的又一次努力。 1.7 系统开发方法的选择 本次系统开发我选择了结构化生命周期开发方法。用结 构化生命周期开发方法开发一个系统，将整个开发过程分为 5个依次连接的阶段： 系统规划阶段：主要任务是明确系统的方法要求，并进行逐步的调查，通过可行性的研究确定下一阶段的实施。系统规划方法有战略目标集转化法（ SST, Strategy set transformation）、关键成功因素法（ CSF， Critical success factors）和企业规划法（ BSP, Business system planning）。 系统分析阶段：主要任务是对组织结构与功能进行分析，理清企业业务流程和数据流 程的处理，并且将企业业务流程与数据流程抽象化，通过对功能数据的分析，提出新系统的逻辑方案。 系统设计阶段：主要任务是确定系统的总体设计方案、划分子系统功能、确定共享数据的组织，然后进行详细设计，如处理模块的设计、数据库系统的设计、输入输出界面的设计和编码的设计等。 系统实施阶段：主要任务是讨论确定设计方案、对系统模块进行调试、进行系统运行所需数据的准备、对相关人员进行培训等。 系统运行阶段：主要任务是进行系统的日常运行管理，评价系统的运行效率，无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 对运行费用和效果进行监理审计，如出现问题则对系 统进行修改、调整。 这 5个阶段共同构成了系统开发的生命周期。结构化生命周期开发方法严格区分了开发阶段，非常重视文档工作，对于开发过程中出现的问题可以得到及时的纠正，避免了出现混乱状态。但是，该方法不可避免的出现开发周期长、系统预算超支的情况，而且在开发过程中用户的需求一旦发生变化，系统将很难做出调整。 第二章 系统分析及需求分析 2.1 功能需求分析 为了房屋管理者更好地管理房屋的合同、租金等一系列问题，也为了让租房者更方便地了解待租房屋的情况，现开发一个房屋出租管理系统。房屋出租管理系统是一个关于房 屋及其出租业务的管理信息系统。对于用户来讲，主要包括的功能模块有：房屋管理、合同管理、租金管理、统计和系统维护等。对于租房者来说，主要的功能模块有：基本房价查询、房产咨询和待出租房屋浏览。 本系统的设计就是根据房东和房客的需要，为房东提供主要以房产及出租业务管理为基本要求，为房客提供房产信息咨询。 2.2 系统功能分析 本系统主要有以下功能要求： 1.用户登录模块 : 主要用于用户的登录。当用户输入用户名和密码后经过确认，才能进入房产管理系统。如果不是用户，拒绝进入，但是，任何人都可以进入游客浏览窗口，对房 屋的基本情况进行了解。 2.房屋管理模块 : 该模块是用户登录后进入的第一个模块，主要用于用户对房屋及其业务的情况进行管理，其中包括： 房产信息管理模块 : 主要用于房产信息的插入、删除、修改、保存等基本操作。 房产总表浏览 : 用于查看房产信息的总体情况。 3.合同管理模块 : 该模块是用户对合同信息的基本情况进行管理。包括有： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 合同信息管理 : 主要用于对合同信息进行插入、修改、删除、保存等基本的管理。 到期合同处理 : 主要对到期的合同进行处理，若合同已到期，可结束其使用权。 合同信息查询 : 用于查询合同的使用情 况和基本信息。 合同总表浏览 : 用于查看合同信息的总体情况。 4.租金管理模块 : 该模块是用户对租金信息的基本情况进行管理。主要包括有： 租金收取 : 用于收取租金时对租金的收取情况的管理。 按合同号租金查询 : 即输入想要查询的合同号，就可查看到有关此合同的租金收取情况。 按发票号租金查询 : 输入想要查询的发票号，可查出该发票的租金相干情况。 5.统计模块 : 该模块用于对房产信息、合同信息、租金信息等的统计。具体包括有： 本月租金统计 : 用于对所输入年月的租金进行统计。 履约金统计 : 对未退还的履约金进行统计 。 到期合同统计 : 即对已到期的合同进行统计。 空闲房屋统计 : 对已空的房屋即可租用的房屋进行统计。 6.系统维护模块 : 该模块用于对本系统的基本信息进行管理。主要包括有： 数据备份 : 用于对相干数据进行备份，将备份文件保存起来以防丢失。 数据恢复 : 用于恢复文件和数据。 密码管理 : 对用户的密码进行修改、保存管理。 7.游客浏览模块： 主要是让想了解房产的人对所要了解的信息进行查询。包括有以下功能： 房价查询 : 是对所要求的房屋进行月租金查询，看是否满意。 房屋咨询 : 对所想租的房屋类型进行咨询，看是否有 符合条件的。 8.有房出租：功能是可以查看所有可出租房屋的总体情况 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2.3 系统功能模块设计 图 2-1 功能模块图 2.4 系统运行环境的需求 Pentium 133 以上（推荐 Pentium 400 以上，可加快反应速度） ,64M 以上内存（推荐 128M 以上，可加快数据存取速度） ,1G 以上硬盘空间（推荐 4G 以上，根据实际数据大小而定） ,10M 网卡（推荐 10M/100M网卡或 100M网卡，可加快数据传输速度） ,VGA 或更高分辨率的 显示器 或专业显示器 。 ,键盘和鼠标或专用设备。 用户登录 房 屋 出 租 管 理 系 统 游客登录 房产管理 合同管理 租金管理 统计模块 系统维护 房价查询 房屋咨询 有房出租 退 出 房产信息管理 房产总表浏览 租金收取 按合同号查询 按发票号查询 本月租金统计 履约金统计 空闲房屋统计 合同信息管理 到期合同处理 合同信息查询 合同总表浏览 房产信息管理 房产信息管理 房产信息管理 房产信息管理 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 服务器： Windows 2000 server、 SQL server 2000 个人版 服务器端 客户端： Windows XP、 SQL server 2000 企业版 客户端 开发工具： Delphi 7.0 企业版 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第三章 系统数据库的设计 计算机化的管理信息系统是一个以大量数据资源为基础并以此为中心而建立起来的应用系统。其目的是为一个组织中各个部门和各个管理层次提供必要的管理信息和决策数据，由于它涉及到应用领域中一定的深度和广度，因而必然要接触大量的不同类型的数据。对这些数据的合理组织和有效的存储是管理信息系统开发中一项重要的工作。 3.1 数据库的需求分析 数据库需求分析是数据库设计的第一阶段也是很重要的一个阶段，它是收集基本数据以及数据处理的流程，为以后进一步设计打下基础，需求分析主要解决两个问题： 处理要求 ,弄清应用系统用户需求对数据库进行什么样的处理，及数据库中各种数据之间的关系； 内容要求 :弄清应用系统用户所需要操作的数据，决定在数据库中存储什么数据。 在数据库需求分析后，应该得到一个数据字典文档，包括 3个方面的内容： 数据项 : 包括名 称、含义、类型、取值范围、长度以及和其它数据项之间的逻辑关系。 数据结构 : 若干数据项的有意义的集合，包括名称、含义以及组成数据结构的数据项 数据流 : 指数据库中数据的处理过程，包括输入、处理、输出。 3.2 数据库概念结构设计 概念结构设计的主要任务是根据用户需求设计数据库的概念数据模型（简称概念模型）。概念模型独立于具体的数据库管理系统，它描述的是从用户角度看到的数据库，反映了用户的现实环境，而与数据库将来怎样实现无关。 本系统包括的数据项有： 用户表：用户号，用户名，密码。 房产表： 房屋号，坐落位置，面积，类型，状态，合同号，基本月租金。 合同表：合同号，租期，起租日期，到期日期，付款期限，月租金，租金总额，押金，乙方单位，联系人，电话，手机，备注，标志。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 租金表：发票号，合同号，应收日期，实收日期，应收金额，实收金额。 本系统采用实体联系图 ER图来描述用户需求的实体与联系。 E_R图如下所示： 实体 属性 实体间联系 图 3-1 E_R 图表示 用户实体 E_R图： 图 3-2 用户实体 E_R 图 发票号 合同号 管理 用 户 用户号 密码 用户名 管理 管理 租 金 合 同 房 产 标 志 房屋号 到期日期 起租日期 租金总额 联系人 租期 合同号 应收日期 应收金额 实收金额 实收日期 房屋号 合同号 状态 类 型 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 3.3 数据库逻辑结构设计 根据上面的 ER图，需要 4个基本信息表 : 表 3-1 用户表 字段名称 类型 是否为空 用户号 CHAR（ 2） 否 用户名 CHAR（ 2） 否 密码 CHAR（ 10） 否 表 3-2 房产表 字段名称 类型 是否为空 房屋号 CHAR（ 2） 否 坐落位置 CHAR（ 2） 是 面积 CHAR（ 10） 是 类型 CHAR（ 10） 是 状态 CHAR（ 10） 是 合同号 CHAR（ 10） 是 基本月租金 MONEY（ 8） 是 表 3-3 合同表 字段名称 类型 是否为空 合同号 CHAR（ 2） 否 租期 CHAR（ 2） 是 起租日期 CHAR（ 10） 是 到期日期 CHAR（ 10） 是 付款期限 CHAR（ 10） 是 月租金 MONEY（ 8） 是 租金总额 MONEY（ 8） 是 押金 MONEY（ 8） 是 乙方单位 CHAR（ 10） 是 联系人 CHAR（ 10） 是 电话 CHAR（ 10） 是 手机 CHAR（ 10） 是 备注 CHAR（ 10） 是 标志 CHAR（ 10） 是 表 3-4 租金表 字段名称 类型 是否为空 发票号 CHAR（ 2） 否 合同号 CHAR（ 2） 是 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 应收日期 CHAR（ 10） 是 应收金额 MONEY（ 8） 是 实收金额 MONEY（ 8） 是 实收日期 CHAR（ 10） 是 3.4 数据库连接 本系统采用 ADO 组件连接数据库。 ADO 组件页介绍 ： TADOConnection 是用来建 立与 ADO 数据库之间联系的组件，各种 ADO 的数据集及操作组件可以共用这种联系来执行命令，读取数据，并执行相应的操作。 TADOTable组件主要用来从单个数据表格中读取数据，完成相应操作。它可以直接与数据库相联，也可以通过 TADOConnection 来实现连接。 TADOQuery 组件通过使用常用的 SQL语句来读取数据，完成相应操作。和 TTable组件相比， TQuery组件的重要性体现在只有使用 SQL 语言才能完成查询的时候必须使用该组件，它支持复杂得嵌套查询，也就是 Select 中包含着 Select 子查询。它还 可以使用 DDL SQL 语句，它可以直接与数据库相联，也可以通过 TADOConnection 来实现连接。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第四章 系统详细设计 4.1 后台数据库的选择 本系统需要多个用户进行访问，因此，在多种数据库软件中，选择了相对来说比较易用的 SQL server 2000 作为后台数据库。 Microsoft SQL server 是一个高性能的关系型数据库管理系统，它具有客户机 /服务器体系结构，能够满足大规模分布式计算环境的需要。 Microsoft SQL server 数据库管理系统特点如下： （ 1）完全的客户机 /服务器体系结构。 （ 2）简单的图形化管理工具。 （ 3）隐含的迸发控制能力。 （ 4）丰富的编程接口工具。 （ 5）多线程体系结构。 （ 6） SQL server 是 Microsoft服务器套件 BackOffice的成员之一，它与其它软件（ Windows 2000、 Internet Information Server、 Exchange Server 等）有机结合，并充分利用它们所提供的服务或功能，从而增强了 SQL server 数据库系统的功能，同时占用较少的资源。 （ 7） SQL server 数据库系统各种对象的范围 更加广泛。 4.2 开发工具的选择 在 PB、 VB、 DELPHI 中，我选择 Delphi7.0 作为本系统的前端开发工具。今天， Delphi已经是一个 Microsoft Window,Windows 强大的数据库开发工具它除了能够设计传统的高性能、基于客户 /服务器体系结构的应用系统外，也能够用于开发基于 Internet的应用系统。 Delphi7.0 支持应用系统同时访问多种数据库为方便用户截面的开发，Delphi7.0 提供了大量的控件，这既加快了项目的开发进度。 Delphi7.0 还支持分布式的应用系统的开发，形成多层 应用系统结构，也就是说， Delphi7.0 不仅可以开发客户端应用程序，并可以生成机器代码的可执行文件。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 4.3 系统功能模块的创建 在 DELPHI 中，应用程序通过一个工程 Project 来实现，而工程通过多个窗体 Form来实现应用程序所具有的功能。本系统工程中窗体结构图如下图： 图 4-1 功能结构图 本系统供两种身份的用户进行操作，所以有两大主窗口。在打开主窗口之前有一个登录窗口供用户选择。 4.3.1 登录窗体的创建 本程序的第一个窗体是登录 窗体，主要用于验证是否为合法用户，通过用户名和密码的确认后才可进入房产管理主窗体，否则只可进入房客浏览窗体。登录窗体布局如下： 房 屋 出 租 管 理 系统 用 户 登 录 窗 体 游客浏览主窗体 房屋管理主窗体 房价查询窗体 房产咨询窗体 有房出租窗体 房产管理窗体 合同管理窗体 租金管理窗体 信息统计窗体 系统维护窗体 帮助窗体 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 4-2 登陆主窗口 表 4-1 窗体中主要的对象属性所示 对象名 属性 取值（说明） denglu (form) caption 登录 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext 用户名，密码 Edit1 (Edit) Text (空 )用于输入用户名 Edit2 (Edit) PasswordChar *(所有输入都显示为指定的字符 ) Button1(Button) Caption 用户登录 Button2(Button) Caption 游客浏览 Button3(Button) Caption 退出 用户登录在 Button1 的 OnClick 事件处理程序中完成，当确认用户名和密码后，登录到房屋管理窗体；如不是用户，可以进入游客浏览窗体，代码如下： procedure Tdenglu.Button1Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin adodataset1.Close ； /关闭 ADOdataset adodataset1.CommandText :=select 密码 from 用户表 where 用户名 =:name； adodataset1.Parameters.ParamByName(name).Value := edit1.Text ； /获取用户信息 adodataset1.Open； if (adodataset1.Recordset.RecordCount =1) and (trim(adodataset1.FieldByName(密码).Value) =edit2.Text ) then /判断密码是否正确和用户名是否存在 begin mainform1.show； /进入房屋管理主窗口 denglu.hide ； end else ShowMessage(用户名或密码错误！请重新输入 )； end； procedure Tdenglu.Button2Click(Sender: TObject)； begin mainform2.show； /进入游客浏览主窗口 end； procedure Tdenglu.Button3Click(Sender: TObject)； begin close； /关闭窗口，退出应用程序 end； 4.3.2 房屋管理系统窗体的设计 该窗体为房屋管理者的主窗体，包括了菜单的设计，窗体的布局如下： 图 4-3 房屋管理系统主界面 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 菜单的设计如下图： 图 4-4 菜单设计 以下代码主要用来显示各窗体，具体代码有： procedure Tmainform1.N2Click(Sender: TObject)； begin Form4.Showmodal； /显示房产信息管理窗体 end； procedure Tmainform1.N3Click(Sender: TObject)； begin Form5.Showmodal； /显示房产总表浏览窗体 end； procedure Tmainform1.N5Click(Sender: TObject)； begin Form9.showmodal； /显示合同信息管理窗体 end； procedure Tmainform1.N6Click(Sender: TObject)； begin Form10.showmodal；/显示到期合同处理窗体 end； procedure Tmainform1.N7Click(Sender: TObject)； begin form11.showmodal；/显示合同信息查询窗体 end； procedure Tmainform1.N8Click(Sender: TObject)； begin Form12.showmodal； /显示合同总表浏览窗体 end； procedure Tmainform1.N10Click(Sender: TObject)； begin 房产管理 合同管理 租金管理 信息统计 系统维护 背景 帮助 房产信息管理 房产总表浏览 合同信息管理 到期合同处理 合同信息查询 合同总表浏览 租金收取 按合同号查询 按发票号查询 租金信息统计 到期合同统计 履约金统计 空闲房屋统 计 数据备份 数据恢复 密码管理 天堂 城堡 雪松 楼房一 楼房二 帮助主题 系统帮助 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： form13.showmodal； /显示租金收取窗体 end； procedure Tmainform1.N11Click(Sender: TObject)； begin form14.showmodal； /显示按合同号租金查询窗体 end； procedure Tmainform1.N12Click(Sender: TObject)； begin form15.showmodal； /显示按发票号查询窗体 end； procedure Tmainform1.N14Click(Sender: TObject)； begin form16.showmodal； /显示租金信息统计窗体 end； procedure Tmainform1.N20Click(Sender: TObject)； begin form17.showmodal； /显示已到期合同统计窗体 end； procedure Tmainform1.N21Click(Sender: TObject)； begin form18.showmodal； /显示履约金统计窗体 end； procedure Tmainform1.N22Click(Sender: TObject)； begin form19.showmodal； /显示空闲房屋统计窗体 end； procedure Tmainform1.N16Click(Sender: TObject)； begin form20.showmodal； /显示数据备份窗体 end； procedure Tmainform1.N17Click(Sender: TObject)； begin form21.showmodal； /显示数据恢复窗体 end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure Tmainform1.N18Click(Sender: TObject)； begin form22.showmodal； /显示密码管理窗体 end； procedure Tmainform1.FormClose(Sender: TObject； var Action: TCloseAction)； begin denglu.Close； /关闭登录窗体 end； procedure Tmainform1.N23Click(Sender: TObject)； begin form23.showmodal； /显示帮助主题窗体 end； procedure Tmainform1.FormCloseQuery(Sender: TObject； var CanClose: Boolean)； begin if MessageDlg( 是 否 退 出 ？ ？ ？ , mtConfirmation, mbYes, mbNo,0) = mrNo then canclose :=false； end； /判断是否真的退出 procedure Tmainform1.Timer1Timer(Sender: TObject)； var xs,fz,m : string； begin xs := inttostr(hourof(now)； if MinuteOf(now) 10 then fz := 0+inttostr(minuteof(now) else fz := inttostr(minuteof(now)； if secondof(now) 10 then m := 0+inttostr(secondof(now) else m := inttostr(secondof(now)； statusbar1.Panels.Items3.Text := xs+:+fz+:+m； end； procedure Tmainform1.FormShow(Sender: TObject)； var rq :string； begin timer1.Enabled := true； rq:= inttostr(yearof(now)+年 +inttostr(monthof(now)+月 +inttostr(dayof(now)+日； statusbar1.Panels.Items2.Text := rq； statusbar1.Panels.Items1.Width := mainform1.Width - 370； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； /设置准确时间的变化 procedure Tmainform1.FormResize(Sender: TObject)； begin statusbar1.Panels.Items1.Width := mainform1.Width - 370； end； procedure Tmainform1.N25Click(Sender: TObject)； begin form23.Show； end； procedure Tmainform1.N27Click(Sender: TObject)； begin form24.Show； /显示关于系统窗体 end； procedure Tmainform1.N28Click(Sender: TObject)； begin form36.Show； /显示帮助内容窗体 end； procedure Tmainform1.N110Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic001.jpg)； N110.checked := true； n29.Checked := false； n31.Checked := false； end； /显示背景天堂 procedure Tmainform1.N29Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic002.jpg)； N110.checked := false； n29.Checked := true； n31.Checked := false； end； /显示背景城堡 procedure Tmainform1.N31Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic003.jpg)； N110.checked := false； n29.Checked := false； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： n31.Checked := true； end； /显示背景雪松 procedure Tmainform1.N41Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic0048.jpg)； N110.checked := false； n29.Checked := false； n31.Checked := false； n41.Checked :=true； end； /显示楼房一背景 procedure Tmainform1.N51Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic0049.jpg)； N110.checked := false； n29.Checked := false； n31.Checked := false； n41.Checked :=false； n51.Checked :=true； end； /显示楼房二背景 4.3.3 房产信息管理窗体的设计 图 4-5 信息管理窗体 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 表 4-4-3 主要控件对象属性如下 对象名 属性 取值（说明） Form4 (form) caption 房产管理信息 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active True Commandtext Select *from 房产表 Datasource1 (datasource) Dataset ADODataset1 Name Datasource1 DBEdit1 (DBEdit) Datasource Datasource1 Datafield 房屋号 Name DBEdit1 Readonly true DBEdit2 (DBEdit) Datasource Datasource1 Datafield 坐落位置 Name DBEdit2 Readonly true DBEdit3 (DBEdit) Datasource Datasource1 Datafield 状态 Name DBEdit3 Readonly true DBEdit4 (DBEdit) Datasource Datasource1 Datafield 面积 Name DBEdit4 Readonly true DBEdit5 (DBEdit) Datasource Datasource1 Datafield 合同号 Name DBEdit5 Readonly true DBEdit6 (DBEdit) Datasource Datasource1 Datafield 类型 Name DBEdit6 Readonly true 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： DBEdit7 (DBEdit) Datasource Datasource1 Datafield 基本月租金 Name DBEdit7 Readonly true Button5(Button) Caption 插入 Button6(Button) Caption 删除 Button7(Button) Caption 保存 Button10(Button) Caption 保存 实现窗体功能的代码如下： procedure TForm4.Button1Click(Sender: TObject)； begin adodataset1.First ； button7.Enabled := false； end； /显示第一条记录并且隐藏保存按钮 procedure TForm4.Button2Click(Sender: TObject)； begin adodataset1.next ； button7.Enabled := false； end； /显示下一条记录并且隐藏保存按钮 procedure TForm4.Button3Click(Sender: TObject)； begin adodataset1.Prior ； button7.Enabled := false； end； /显示上一条记录并且隐藏保存按钮 procedure TForm4.Button4Click(Sender: TObject)； begin adodataset1.Last ； button7.Enabled := false； end； 显示最后一条记录并且隐藏保存按钮 procedure TForm4.Button5Click(Sender: TObject)； begin adodataset1.Append； /对房产表进行插入 end； procedure TForm4.Button6Click(Sender: TObject)； begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if MessageDlg(如果删除，记录将不能恢复，是否确定？ ,mtConfirmation, mbYes, mbNo,0) = mrYes then adodataset1.Delete ； button7.Enabled := false； /对记录进行删除操作，并先判断是否确定删除 end； procedure TForm4.Button7Click(Sender: TObject)； begin adodataset1.Post； showmessage(保存完毕 )； /对插入或修改的记录进行保存，保存后显示“保存完毕” end； procedure TForm4.Button9Click(Sender: TObject)； begin form28.ADODataSet1.Close； form28.ADODataSet1.CommandText:=select * from 房产表 where 房屋号 =:fwh； form28.ADODataSet1.Parameters.ParamByName(fwh).Value:=dbedit1.Text； form28.ADODataSet1.Open； form28.QuickRep1.Preview； /对所显示的记录进行打印 end； procedure TForm4.Button10Click(Sender: TObject)； begin adodataset1.Edit； dbedit1.ReadOnly:=false； dbedit2.ReadOnly:=false； dbedit3.ReadOnly:=false； dbedit4.ReadOnly:=false； dbedit5.ReadOnly:=false； dbedit6.ReadOnly:=false； dbedit7.ReadOnly:=false； button7.Enabled := true； button6.Enabled := false； button10.Enabled := false； button5.Enabled := false； end； /对记录进行修改 end 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 4.3.4 房产总表浏览窗体的设计 该窗体主要用来浏览房产的总体信息，布局如下图所示： 图 4-6 房产总表浏览窗体 该窗体所用的主要控件属性和与数据库的连接跟房产信息管理窗体类似 。 本窗体能打印房产信息的总表，打印 按纽的 clicked事件的代码为： procedure TForm5.Button1Click(Sender: TObject)； begin form27.QuickRep1.Preview； end； 4.3.5 房屋合同管理窗体的设计 该窗体主要是对合同信息进行查询，插入，修改等操作，窗体布局如下图： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 4-7 合同管理窗体 4.3.6 到期合同处理窗体的创建 功能是对已到期的合同进行处理，即对已到期的合同标志为无效合同，窗体布局如下： 图 4-8 到期合同处理窗体 实现功能的代码： procedure TForm10.Button2Click(Sender: TObject)； begin if dbedit3.Text =dbedit4.Text then 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin adodataset2.Close ； adodataset2.CommandText := select * from 合同表 where 合同号 =:hth； adodataset2.Parameters.ParamByName(hth).Value := dbcombobox1.Text ； adodataset2.Open ； adodataset2.Edit ； adodataset2.FieldByName(标志 ).Value := 1； adodataset2.FieldByName(备注 ).Value:=该合同已无效 ； adodataset2.Post ； showmessage(合同已结束 )； end； end； 4.3.7 合同信息查询窗体的设计 该窗体实现的功能是对合同信息进行查询，包括三个选择查 询，分别是按合同号查询、按租主名查询、按租用单位查询，当点击按合同号查询时 comboBox1 就会显示供选择的合同号，就可查询所要查询的信息，点击按租主名查询时 ComboBox1 就显示供选择的联系人，按租用单位查询也一样，点击时显示供选择的租用单位。 窗体布局如图： 图 4-9 合同信息查询窗体 本窗体的功能主要是通过“查询“按钮的 clicked 事件来实现的，具体代码如下： procedure TForm11.Button1Click(Sender: TObject)； begin if radiobutton1.Checked then 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 合同号 =:hth； adodataset1.Parameters.ParamByName(hth).Value := combobox1.Text ； adodataset1.Open ； end； /按合同号查询 if radiobutton2.Checked then begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 联系人 =:lxr； adodataset1.Parameters.ParamByName(lxr).Value := combobox1.Text ； adodataset1.Open ； end； /按租主名查询 if radiobutton3.Checked then begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 乙方单位 =:yfdw； adodataset1.Parameters.ParamByName(yfdw).Value := combobox1.Text ； adodataset1.Open ； end； label1.Caption:=共 +inttostr(adodataset1.RecordCount)+ 条 ； end； /按租用单位查询 4.3.8 合同信息总表浏览窗体的设计 与房产信息 总表浏览窗体的设计类似。 4.3.9 租金收取窗体的创建 该窗体的功能是对租金的收取情况进行管理、保存。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 4-10 租金收取窗体 功能的实现代码如下： procedure TForm13.Button2Click(Sender: TObject)； begin adodataset1.AppendRecord(edit2.Text ,edit5.text,edit3.Text ,edit6.Text ,edit4.Text ,edit7.Text )； showmessage(保存完毕 )； end； /对租金的收取进行保存 procedure TForm13.Button3Click(Sender: TObject)； begin form31.ADODataSet1.Close； form31.ADODataSet1.CommandText:=select * from 租金表 where 发票号 =:fph； form31.ADODataSet1.Parameters.ParamByName(fph).Value:=edit7.Text； form31.ADODataSet1.Open； form31.QuickRep1.Preview； end； /打印租金收取单 4.3.10 按合同号租金查询窗体的设计 该窗体的功能是输入合同号后查询该合同的租金情况，并且可以总结出该合同的总体上缴租金。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 4-11 按合同号租金查询窗体 租金按合同查询的系统窗口主要靠两个数据库连接控件跟租金表连接。 表 4-4 主要控件属性如下 对象名 属性 取值（说明） Form14 (form) caption 按合同号租金查询 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext Select *from 租金表 ADOdataset2 (ADODataset) Name ADODataset2 Connection ADOconnection1 Active false 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Commandtext Select * from 租金表 Datasource1 (Datasource) Name Datasource1 Dataset ADODataset1 Edit1 (Edit) Text (空 )用于输入合同号 Edit2 (Edit) Text (空 )用于显示所选合同号的租金收取总额 Readonly true Button1(TButton) Caption 退出 Button2(TButton) Caption 显示 Button3(TButton) Caption 显示全部 Button4(TButton) Caption 打印 实现上述功能的代码有： “显示”按纽的程序为： procedure TForm14.Button2Click(Sender: TObject)； begin if edit1.Text then begin adodataset1.Close ； adodataset1.CommandText :=select * from 租金表 where 合同号 =:hth； adodataset1.Parameters.ParamByName(hth).Value :=edit1.Text ； adodataset1.Open ； /用于显示所输入合同号的租金情况 adodataset2.Close； adodataset2.CommandText:=select sum(实收金额 ) from 租金表 where 合同号 =:hth； adodataset2.Parameters.ParamByName(hth).Value:=edit1.Text； adodataset2.Open； edit2.Text:= adodataset2.Recordset.Fields.Item0.Value； /显示所输入合同号的租金收取总额 end； end； “显示全部”按纽的代码为： procedure TForm14.Button3Click(Sender: TObject)； begin adodataset1.Close ； adodataset1.CommandText :=select * from 租金表 ； adodataset1.Open ； edit1.Text:=； edit2.Text:=； end； /显示全部租金收取情况 procedure TForm14.Button1Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin close； end； /退出 procedure TForm14.Button4Click(Sender: TObject)； begin if edit1.Text = then form32.QuickRep1.Preview else begin form32.ADODataSet1.Close； form32.ADODataSet1.CommandText:=select * from 租金表 where 合同号 =:hth； form32.ADODataSet1.Parameters.ParamByName(hth).Value:=edit1.Text； form32.ADODataSet1.Open； form32.QuickRep1.Preview； end； end； /打印预览租金表 end. 4.3.11 按发票号租金查询窗口的设计 功能是输入要查询的发票号，可查看该发票号所对应的租金情况， 图 4-12 按发票号租金查询窗口 具体功能的实现代码与“按合同号租金查询窗口”类似。 4.3.12 租金信息统计窗口的设计 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 该窗体是属于“信息统计”模块的其中一个窗口。 功能是统计所输入时间内的租金收取情况，并统计出所收取租金总额。 窗体布局如下图： 图 4-13 租金信息统计窗口 功能实现代码如下： 功能实现 主要点击“统计”按纽，就可以完成，该按纽的代码为： procedure TForm16.Button1Click(Sender: TObject)； var rq1,rq2 :string； begin rq1 := inttostr(yearof(datetimepicker1.Date )； if monthof(datetimepicker1.Date)10 then rq1 := rq1 + 0； rq1 := rq1 + inttostr(monthof(datetimepicker1.date)； if dayof(datetimepicker1.date)10 then rq1 := rq1 +0； rq1 := rq1 + inttostr(dayof(datetimepicker1.date)； rq2 := inttostr(yearof(datetimepicker2.Date )； if monthof(datetimepicker2.Date)10 then rq2 := rq2 + 0； rq2 := rq2 + inttostr(monthof(datetimepicker2.date)； if dayof(datetimepicker2.date)=:ssrq1 and 实收日期=:ssrq1 and 实收日期 =:ssrq2 ； adodataset2.Parameters.ParamByName(ssrq1).Value :=rq1； adodataset2.Parameters.ParamByName(ssrq2).Value :=rq2； adodataset2.Open； if adodataset2.Recordset.Fields.Item0.Value null then edit1.Text:=adodataset2.Recordset.Fields.Item0.Value else edit1.Text:=0； end； /统计所输入时间段收取的总租金额 4.3.13 已到期合同的统计窗口创建 该窗口也是“信息统计”模块中的一个窗体。 功能是统计和打印出已到期的合同情况，窗体设计如下； 图 4-14 已到期合同的统计窗口 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 具体实现功能的代码如下 ： procedure TForm17.Button1Click(Sender: TObject)； begin adodataset1.Close； adodataset1.CommandText:=select * from 合同表 where 标志 =:bz； adodataset1.Parameters.ParamByName(bz).Value:=1； adodataset1.Open； label1.Caption:=共 +inttostr(adodataset1.Recordset.RecordCount)+ 条 ； end； /按纽“统计”的实现代码，即到期合同的统计情况 procedure TForm17.Button3Click(Sender: TObject)； begin form34.ADODataSet1.Close； form34.ADODataSet1.CommandText:=select * from 合同表 where 标志 =:bz； form34.ADODataSet1.Parameters.ParamByName(bz).Value:=1； form34.ADODataSet1.Open ； form34.QuickRep1.Preview； end； /打印预览统计情况 4.3.14 未返还履约金统计窗口的创建 该统计窗口的功能是统计未返还履约金的情况，窗体布局如 下： 图 4-15 未返还履约金统计窗口 实现的代码如下： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TForm18.Button1Click(Sender: TObject)； begin adodataset1.Close； adodataset1.CommandText:=select * from 合同表 where 标志 =:bz； adodataset1.Parameters.ParamByName(bz).Value:=0； adodataset1.Open ； label2.Caption := 共 +inttostr(adodataset1.Recordset.RecordCount)+ 条 ； end； /统计未返还的履约金情况 procedure TForm18.Button3Click(Sender: TObject)； begin form35.ADODataSet1.Close； form35.ADODataSet1.CommandText:=select * from 合同表 where 标志 =:bz； form35.ADODataSet1.Parameters.ParamByName(bz).Value:=0； form35.ADODataSet1.Open； form35.QuickRep1.Preview； end； /打印预览统计情况 4.3.15 空闲房屋统计窗体的设计 与履约金统计窗口的设计类似。 4.3.16 数据备份窗体的设计 数据备份窗体是“系统维护”模块中的一个窗体，实现维护功能。 该窗体的功能理论上是对新数据进行保存，防止数据的丢失。 窗体布局如下 ： 图 4-16 数据备份窗体 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 4.3.17 数据恢复窗体的创建 该窗 体也是“系统维护”模块的一部分，数据误操作后，数据可能会破坏或丢失，该窗体的功能是恢复正确的数据。窗体布局如下图： 图 4-17 数据恢复窗口图 4.3.18 密码管理的窗体创建 该窗体也是“系统维护”模块的一部分，能实现密码的修改。 窗体布局如下： 图 4-18 密码管理的窗体 表 4-5 主要功能控件的属性如下 对象名 属性 取值（说明） Form22 caption 密码管理 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： (form) position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext Select * from 用户表 Edit1 (TEdit) Text (空 )用于输入用户名 Edit2 (Tedit) PasswordChar *(所有输入都显示为指定的字符 )用于输入原密码 Edit3 (TEdit) PasswordChar *(所有输入都显示为指定的字符 )用于输入新密码 Edit4 (TEdit) Passwordchar *(所有输入都显示为指定 的字符 )用于确认新密码 Button1(Button) Caption 确定 Button2(Button) Caption 退出 功能是通过按纽“确定”来实现的，主要的代码是： procedure TForm22.Button1Click(Sender: TObject)； begin adodataset2.Close ； adodataset2.CommandText :=select * from 用户表 where 用户名 =:name； adodataset2.Parameters.ParamByName(name).Value := edit1.Text ； adodataset2.Open； /打开用户表 if (adodataset2.Recordset.RecordCount =0) or (trim(adodataset2.fieldbyname(密码 ).Value) edit2.Text) then showmessage(用户名或密码错误 ) /判断用户名和密码是否正确 else if edit3.textedit4.text then showmessage(新密码与确认密码不一致！ ) /判断密码与新密码是否一致 else begin adodataset2.First ； adodataset2.Edit； adodataset2.FieldByName(密码 ).Value :=edit3.Text ； adodataset2.Post； showmessage(密码修改成功！ )； /修改密码且保存新密码 end； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 4.3.19 主窗体游客浏览的创建 该窗体的设计是为了给租房者提供信息的，包括“房价查询”“房产咨询”“有房出租”三大模块。该窗体可以为租房者提供了方便，也使房屋更好的出租。 图 4-19 游客浏览窗体图 4.3.20 房价查询窗口的设计 功能是输入要找房子的类型和坐落位置，便可查出房子的价格和 具体情况，方便寻房者更好的找到房子。窗体的布局如下： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 4-20 房价查询窗口 功能实现的代码如下： procedure TForm7.Button2Click(Sender: TObject)； begin adodataset2.Close； adodataset2.CommandText:=select * from 房产表 where 类型 =:lx and 坐落位置 =:zlwz ； adodataset2.Parameters.ParamByName(lx).Value:=combobox1.Text ； adodataset2.Parameters.ParamByName(zlwz).Value:=combobox3.Text； adodataset2.Open； end； /实现查询条件后的记录查询 4.3.21 房产信息查询窗体的设计 功能是提供了“按地理位置查询”和“按房子类型查询”的功能，选择了“按地理位置查询”时可按所选的地理环境查看房产情况，选择“按房子类型查询”也一样，可查看不同类型的房产情况。 窗体布局如下 : 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 4-21 房产信息查询窗体 功能实现的 代码如下： procedure TForm6.RadioButton1Click(Sender: TObject)； begin Label1.Caption:=坐落位置： ； combobox1.Clear ； adodataset2.Close ； adodataset2.CommandText := select distinct 坐落位置 from 房产表 ； adodataset2.Open ； adodataset2.First ； while not adodataset2.Eof do begin if adodataset2.Recordset.Fields.Item 0.Value null then begin combobox1.Items.Add (adodataset2.Recordset.Fields.Item0.Value)； end； adodataset2.Next ； end； end； /在 Combobox1 中显示坐落位置 procedure TForm6.RadioButton2Click(Sender: TObject)； begin Label1.Caption:=房子类型： ； combobox1.Clear ； adodataset2.Close ； adodataset2.CommandText := select distinct 类型 from 房产表 ； adodataset2.Open ； adodataset2.First ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： while not adodataset2.Eof do begin if adodataset2.Recordset.Fields.Item 0.Value null then begin combobox1.Items.Add (adodataset2.Recordset.Fields.Item0.Value)； end； adodataset2.Next ； end； end； /在 Combobox1中显示房子类型 procedure TForm6.Button2Click(Sender: TObject)； begin if radiobutton1.Checked then begin adodataset1.Close ； adodataset1.CommandText :=select * from 房产表 where 坐落位置 =:zlwz； adodataset1.Parameters.ParamByName(zlwz).Value := combobox1.Text ； adodataset1.Open ；