毕业设计房屋租凭管理系统设计与实现

1、编编 号号 本本科科毕毕业业设设计计（论论文文） 题目：题目： 房屋租凭管理系统房屋租凭管理系统 学学 院院 （ 系系 ） 专专 业业 学 号： 学生姓名： 指导教师： （职称： ） 201 年年 月月 摘要摘要 随着我国市场经济的快速发展和人们生活水平的不断提高，简单的租凭服 务已经不能满足人们的需求。如何利用先进的管理手段，提高房屋租凭管理水 平，是当今社会所面临的一个重要课题。本文通过用 vb6.0 编写房屋租赁管理 系统，利用软件工程原理，采用面向对象的编程方法，其开发主要包括后台数 据库的建立和维护以及前端应用程序的开发两个方面，实现了房屋租赁管理的 自动化和信息化. 整个系统从符合

2、操作简便、界面友好、灵活、实用、安全的要求出发，完 成基本资料管理、客户资料管理、租凭合同管理、财务管理、统计报表管理等 功能.经过实际测试证明，本文所设计的房屋租赁管理系统可以用于物业管理部 门从事房屋租赁信息管理方面的需要。 论文主要介绍了本课题的开发背景，所要完成的功能和开发的全过程。重 点的说明了系统设计的重点、设计思想、难点技术和解决方案。 关关键键词词：数数据据库库 v vi is su ua al l b ba as si ic c 6 6. .0 0 房房屋屋租租赁赁管管理理系系统统 abstract with the rapid development of the mark

3、et economy of our country and people living standard rise ceaselessly, the simplicity of the lease service already cant satisfy peoples needs. how to use the advanced management method, improve the level of management, the rental house facing society today is an important issue. this article through

4、 to write with vb6.0 house lease management system, the use of software engineering theory, by using object oriented programming method, and its development mainly includes the backstage database the establishment and the maintenance and development of front application program of two aspects, reali

5、zed the automation of house lease management and information. from the entire system to operate and friendly interface, flexible, practical, safe, complete the requirement of basic data management, customer data management, the rental contract management, financial management, statistics management

6、etc. function. after the actual test, this paper designed the house lease management system can be used in property management department engaged in house lease information management needs. paper mainly introduced this topic development background; want to complete the whole process of the function

7、 and development. the focus of the explanation of the system design, design thoughts, the focus of some technical and solutions. keywords: database visual basic 6.0 house lease management system 目目 录录 摘要摘要.1 第一章第一章 序论序论.1 1.1 课题来源 .1 1.2 开发背景和开发目的.1 1.3 本文所做的工作 .2 第二章第二章 需求分析需求分析.3 2.1 应用现状调查 .3 2.2

8、 系统目标 .3 2.3 可行性分析 .3 2.3.1经济可行性分析.3 2.3.2操作可行性分析.4 2.3.3技术可行性分析.4 2.4.1 业务流程图.4 2.4.2 数据流分析.5 2.4.3 系统功能需求 .6 第三章第三章 总体设计总体设计.7 3.2 系统模块设计.7 3.2.1 系统功能分析.7 3.2.2系统功能模块图.8 3.3 数据库的设计 .10 3.4 数据库的选择.10 第四章第四章 相关技术简介相关技术简介.10 4.1 microsoft visual basic 的技术简介.10 4.2microsoft access技术简介.14 第五章第五章 房屋租赁管理

9、系统的详细设计房屋租赁管理系统的详细设计.15 5.1 数据库的实现 .15 5.2 系统主界面的设计 .18 5.3 各主要功能模块的设计与实现 .20 531基本资料管理模块设计.20 532 客户资料管理模块的设计.28 533 租赁管理模块的设计.33 534财务管理模块的设计.41 535 统计报表模块的设计.43 第六章第六章 主菜单的设计及系统连编主菜单的设计及系统连编.47 6.1 主菜单的设计.47 6.2 系统的编译与发行.48 第七章第七章 毕业设计小结毕业设计小结.49 参考文献参考文献.50 致致 谢谢.50 第一章第一章 序论序论 1.11.1 课题来源课题来源 随

10、着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的 管理手段，提高物业管理的水平，是当今社会所面临的一个课题。提高企业的 管理水平，必须全方位地提高企业的管理意识。只有高标准、高质量的管理才 能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高房屋租 赁管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与 现代化建设中显现出越来越重要的地位。房租租赁管理方面的信息化与科学化， 已成为现代化生活水平步入高台阶的重要标志。 随着计算机技术不断的飞速发展，计算机以及计算机控制的自动处理技术 已融入人类社会的各个领域并发挥着越来越重要的作用。对于当今的科学信息 是一

11、次重大的飞越，为人们的生活、工作、学习带来潜移默化的影响。今天我 们使用计算机对房屋租赁信息进行管理，具有手工管理所无法比拟的优点。例 如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低 等。这些优点能够极大地提高房屋租赁管理的效率。面对目前的实际状况，迫 切需要开发一个新系统来适应这一些工作. 1.21.2 开发背景和开发目的开发背景和开发目的 利用计算机实现物业管理中的房屋租赁管理势在必行。对于物业管理企业 来说，利用计算机支持企业高效率完成房屋租赁管理的日常事务，是适应现代 企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而房屋 租赁管理是一项琐碎、复杂而

12、又十分细致的工作，房屋的基本资料,客户资料的 管理,房屋租赁管理，各项收费以及统计报表的管理,一般不允许出错，如果实 行手工操作,须手工填制大量的表格,这就会耗费工作人员大量的时间和精力， 计算机进行房屋租赁工作的管理，不仅能够保证各项信息准确无误、快速输出， 同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠 性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高物 业管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 开发本系统就是为了解决物业管理企业在房屋租赁信息管理中的一些不规 范，使房屋租赁信息的管理向着规范化、简单化、有效化的方向发展。

13、 1.31.3 本文所做的工作本文所做的工作 第一章 绪论部分主要叙述课题来源、开发背景和开发目的,可行性分析,分 析比较当前开发工具，数据库技术的比较。 第二章 结合软件工程方法，对系统进行需求分析、系统目标和应用现状调 查、系统总体流程图与功能调查图绘制与分析。 第三章 在需求分析的基础上选择好开发工具,并对开发工具做简要描述. 第四章 根据需求分析的结果，对系统进行概要设计，主要介绍用 visual basic 6.0 创建应用程序的步骤,以及在本系统开发的所用到控件.实现每一个 模块的具体功能。 第五章 根据第四章的创建应用程序步骤及 visual basic6.0 提供的控件进 行房

14、屋租赁管理系统的详细设计.重点分析数据库的设计以及主要功能模块的实 现. 第六章 在完成了主要功能模块的设计后,本章进行的系统主程序的设计,以 及怎样在 visual basic 6.0 环境下生成应用程序. 第七章 毕业设计小结，总结部分介绍了设计体会和编程体会. 设计存在的 不足,及今后的学习方向. 第二章第二章 需求分析需求分析 2.12.1 应用现状调查应用现状调查 当前，很多物业管理企业的房屋租赁信息管理都是以纸张为介质作记录， 人力管理的比例比较大,往往是各个主要负责人以书面的形式管理房屋租赁信息,效 率低下。数据打印,汇总,成绩更新不及时，容易丢失,损坏数据给学校学生带来 损失,

15、不易保存且数据保密性较差。 2.22.2 系统目标系统目标 采用企业现有的软硬件环境及科学的管理系统开发方案，建立房屋租赁信 息管理系统，实现房屋租赁信息管理的计算机自动化。 系统应符合物业管理企业原有的房屋租赁管理制度，并达到操作直观、方 便、实用、安全等要求。 2.32.3 可行性分析可行性分析 2.3.12.3.1 经济可行性分析经济可行性分析 本系统开发简单但要耗去一定的时间，所用的开发工具和软件都差不多是 免费的。而且，由于系统能够在未来较长的一段时期内稳定地发挥作用，这对 于学生房屋租赁信息的自动化管理，称业管理企业的人力和财力都有很大的帮 助。由此可见在，开发此系统在经济上是完全

16、可行的。 2.3.22.3.2 操作可行性分析操作可行性分析 如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本 的降低.我的这套系统是利用自己的计算机加 microsoft visual foxpro6.0 作 为软件的开发平台，使开发出来的系统有友好的用户界面、有良好的安全性设 置、有详细的操作说明书，这样更使各类用户很快地掌握系统的使用方法,操作 友好因此在操作上是可行的. 2.3.32.3.3 技术可行性分析技术可行性分析 从目前 it 业界比较流行的数据库开发、管理软件来看，对于比较简单的中 小型数据库，visual basic 6.0 和 windows 2000 的

17、结合无疑是在实际应用中 较为成功的一种解决方案。为用户提供了业界软件开发一直坚持的非常友好、 操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库接口。 所以技术实行起来相对会容易。 2.42.4 系统需求分析系统需求分析 2.2.4.14.1 业务流程图业务流程图 图 2-1 业务流程图 2.4.22.4.2 数据流分析数据流分析 图 2-2 数据流程图 整个系统从总体上分为基本资料管理、客户资料管理、租赁管理、财务管 理以及统计报表五大部分，每一部分实现的功能如下： 基本资料管理功能： 实现房屋基本资料的管理. 客户资料管理： 分租户基本资料跟求租户基本资料管理 租赁管理： 分为

18、合同签订，合同续签，合同管理，预定租房，合同查询，预定单查询， 出租到期提醒，预定到期提醒。 房屋登记 基本信息输 入 定金管理 下定金，预定管理 合同签订 押金管理 租户求租资 料 客户登记信息 求租 财务管理功能 分定金、押金、租金收取，租金管理，定金退还，押金退还。 统计报表功能： 房屋统计报表，租户统计报表，求租客户信息表，历史租户表，现有合同 表，历史合同表，预定金统计，押金，定金统计，租金统计等功能 2.4.32.4.3 系统功能系统功能需求需求 该系统主要完成房屋出租，合同签订，合同查询，租金收取，租金统计等 功能。要求界面美观、大方，且操作方便简易。 2.4.3.1 系统性能需

19、求 （1）界面友好化：界面简单，易操作； （2）操作简便：用鼠标、键盘就能实现数据的采集、统计等功能； （3）功能强大：能进行收集基本资料，合同签订，租金收取，租金统计 等。 （4）结构合理：整个系统采用模块化管理； （5）技术先进：采用 microsoft 公司的 visual basic，microsoft 公司的 access 制作，技术成熟，维护方便。 2.4.3.2 系统运行需求 （1）操作系统要求为 windows 98/nt/2000/xp。 （2）最低硬件要求为能运行 windows 98 以上操作系统。 （3）系统中要求有 microsoft 公司的 visual basic

20、，microsoft 公司的 access 制作. （4）基本的支持硬件有：鼠标，键盘，打印机等基本设备。 第三章第三章 总体设计总体设计 3.13.1 系统总体设计思想系统总体设计思想 本系统采用 b/s 结构。该系统实现的主要功能有：基本房屋资料，租凭管 理，财务管理，统计报表，可以删除数据等等。 该系统的界面应该友好、大方、美观，让用户能够非常清楚地根据页 面上的功能项知道它是实现什么功能的；同时，将相似的功能项目集结在一个 父项目下，使得页面安排更加简洁明了,用户更容易操作。 3.23.2 系统模块设计系统模块设计 3.2.13.2.1 系统功能分析系统功能分析 本系统主要有 6 个模

21、块，分别是客户信息模块，定金模块，房屋模块，押金模 块，求租模块，预定模块。 （1）客户信息模块 该模块主要有：客户编号，租户姓名，工作单位，联系电话，性别，租户 人数，身份证编号，备注。 （2）定金模块 该模块主要有：收费编号，定金金额，预定金编号，收费日期，预定客户， 预订房屋编号，备注 （3）房屋模块 该模块主要有：房屋编号，物业地址，房型，建筑面积，使用面积，装 修情况，出租价位，目前状态，备注。 （4）押金模块 该模块主要有：收费编号，押金金额，收费日期，合同编号，客户姓名， 房屋编号，备注。 （5）求租模块 该模块主要有：求租客户编号，求租客户姓名，电话，房型要求，面积 要求，装修

22、要求，意向价位，意向房屋编号，备注。 （6）租金模块 该模块主要有：收费编号，租金年份，租金月份，应交租金，已交租金， 久费金额，客户姓名，交费日期，备注。 3.2.23.2.2 系统功能模块图系统功能模块图 房屋租赁管理系统 基本资料客户资料租赁管理财务管理统计报表 房屋基本管理 租户基本资料 求租客户资料 合同续签 合同管理 预定租房 合同查询 预定单查询 出租到期提醒 预定到期提醒 合同签定 财务管理 财务财务管理 定金收取 租金收取 押金收取 租金管理 定金退还 押金退还 统计报表 财务财务管理 基本资料 基本资料 基本资料 基本资料 基本资料 预定单统计 租户信息表 求租客户 房屋统

23、计 历史租户 现有合同 历史合同 定金统计 租金统计 图 3-1 系统功能模块图 3.33.3 数据库的设计数据库的设计 根据前面的分析，数据库的关系模式设计如下： 客户信息（客户编号，租户姓名，工作单位，联系电话，性别，租户人数，身 份证编号） 定金（收费编号，定金金额，预定金编号，收费日期，预定客户，预订房屋编 号） 房屋（房屋编号，物业地址，房型，建筑面积，使用面积，装修情况，出租价 位，目前状态） 押金（收费编号，押金金额，收费日期，合同编号，客户姓名，房屋编号） 求租（求租客户编号，求租客户姓名，电话，房型要求，面积要求，装修要求， 意向价位，意向房屋编号） 租金（收费编号，租金年份

24、，租金月份，应交租金，已交租金，久费金额，客 户姓名，交费日期） 3.43.4 数据库的选择数据库的选择 根据前面的要求,我选择的开发平台是 windowsxp，后台数据库选的是 microsoft access. 第四章第四章 相关技术简介相关技术简介 4.1 microsoft visual basic 的技术简介的技术简介 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在 我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有： microsoft 公司的 visual basic microsoft 公司的 visual c microsoft 公司的 v

25、isual foxpro borland 公司的 delphi powersoft 公司的 powerbulider java 等等 在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执 行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各 有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便 利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化 的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点 失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合， 会使一些即使非常简单的界面处理动作，也会严重地浪费

26、程序设计师的宝贵时 间。 visual basic 是美国微软公司的第一个编程工具和系统开发的第一个产品， visual basic 以优良的性能、较强的系统开发功能、完美的视觉界面和简单易 学的特点，已经赢得了全世界广大用户的偏爱。visual basic 的编程环境包含 了快速有效的开发功能，尤其是数据窗口这一方便而简洁操纵数据库的智能化 对象，使系统的开发更人性化，操作更简便。 作为管理信息系统的开发，visual basic 是一个非常理想选择。visual basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计， 可用于开发 windows 环境下的种类应用程序。

27、它简单易学、效率高，且功能强 大，可以与 windows 的专业开发工具 sdk 相媲美，而且程序开发人员不必具有 c/c+编程基础。在 visual basic 环境下，利用事件驱动的编程机制、新颖易 用的可视化设计工具，使用 windows 内部的应用程序接口(api)函数，以及动态 链接库(dll)、动态数据交换(dde)、对象的链接与嵌入(ole)、开放式数据访问 (odbc)等技术，可以高效、快速地开发出 windows 环境下功能强大、图形界面 丰富的应用软件系统。 总的来说，visual basic6.0 具有以下特点： visual basic 是一种可视化的、面对对象和条用事

28、件驱动方式的结构化高 级程序设计，可用于开发 windows 环境下的种类应用程序。它简单易学、效率 高，且功能强大，可以与 windows 的专业开发工具 sdk 相媲美，而且程序开发 人员不必具有 c/c+编程基础。在 visual basic 环境下，利用事件驱动的编程 机制、新颖易用的可视化设计工具，使用 windows 内部的应用程序接口(api)函 数，以及动态链接库(dll)、动态数据交换(dde)、对象的链接与嵌入(ole)、开 放式数据访问(odbc)等技术，可以高效、快速地开发出 windows 环境下功能强 大、图形界面丰富的应用软件系统。 可视化编程： 用传统程序设计语

29、言设计程序时，都是通过编写程序代码来设计用户界面， 在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如 果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改 的操作可能要反复多次，大大影响了软件开发效率。visual basic 提供了可视 化设计工具，把 windows 界面设计的复杂性“封装”起来，开发人员不必为界 面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工 具，在屏幕上画出各种“部件” ，即图形对象，并设置这些图形对象的属性。 visual basic 自动产生界面设计代码，程序设计人员只需要编写实现程序功能 的那部分代码，从

30、而可以大大提高程序设计的效率。 面向对象的程序设计 4.0 版以后的 visual basic 支持面向对象的程序设计，但它与一般的面向 对象的程序设计语言(c+)不完全相同。在一般的面向对象程序设计语言中，对 象由程序代码和数据组成，是抽象的概念；而 visual basic 则是应用面向对象 的程序设计方法(oop)，把程序和数据封装起来作为一个对象，并为每个对象赋 予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述 每个对象的程序代码，而是用工具画在界面上，visual basic 自动生成对象的 程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。 结构化

31、程序设计语言 visual basic 是在 basic 语言的基础上发展起来的，具有高级程序设计语 言的语句结构，接近于自然语言和人类的逻辑思维方式。visual basic 语句简 单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强 大且使用灵活的调试器和编译器。 visual basic 是解释型语言，在输入代码的同时，解释系统将高级语言分 解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计 visual basic 程序的过程中，随时可以运行程序，而在整个程序设计好之后， 可以编译生成可执行文件(.exe)，脱离 visual basic 环境，直接在

32、 windows 环 境下运行。 事件驱动编程机制 visual basic 通过事件来执行对象的操作。一个对象可能会产生多个事件， 每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单 击该按钮时，将产生一个“单击”(click)事件，而在产生该事件时将执行一段 程序，用来实现指定的操作。 在用 visual basic 设计大型应用软件时，不必建立具有明显开始和结束的 程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象， 由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调 用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。 访问

33、数据库 visual basic 具有强大的数据库管理功能，利用数据控件和数据库管理窗 口，可以直接建立或处理 microsoft access 格式的数据库，并提供了强大的数 据存储和检索功能。同时，visual basic 还能直接编辑和访问其他外部数据库， 如 dbase，foxpro，paradox 等，这些数据库格式都可以用 visual basic 编辑 和处理。 visual basic 提供开放式数据连接，即 odbc 功能，可通过直接访问或建 立连接的方式使用并操作后台大型网络数据库，如 sql server，oracle 等。在 应用程序中，可以使用结构化查询语言 sql

34、数据标准，直接访问服务器上的数 据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制 和网络数据库的 sql 的编程技术，为单机上运行的数据库提供了 sql 网络接口， 以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。 动态数据交换(dde) 利用动态数据交换(dynamic data exchange)技术，可以把一种应用程序中 的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一 条动态数据链路。当原始数据变化时，可以自动更新链接的数据。visual basic 提供了动态数据交换的编程技术，可以在应用程序中与其他 wind

35、ows 应 用程序建立动态数据交换，在不同的应用程序之间进行通信。 对象的链接与嵌入(ole) 对象的链接与嵌入(ole)将每个应用程序都看作是一个对象(object)，将不 同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有 声音、影像、图像、动画、文字等各种信息的集合式的文件。ole 技术是 microsoft 公司对象技术的战略，它把多个应用程序合为一体，将每个应用程 序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用 ole 技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个 不同应用程序的对象组成，文

36、档中的每个对象都与原来的应用程序相联系，并 可执行与原来应用程序完全相同的操作。 动态链接库(dll) visual basic 是一种高级程序设计语言，不具备低级语言的功能，对访问 机器硬件的操作不太容易实现。但它可以通过动态链接库技术将 c/c+或汇编 语言编写的程序加入到 visual basic 应用程序中，可以像调用内部函数一样调 用其他语言编写的函数。此外，通过动态链接库，还可以调用 windows 应用程 序接口(api)函数，实现 sdk 所具有的功能 4.2microsoft access技术简介技术简介 使用 microsoft access，可以在单一的数据库文件中管理所

37、有的信息。 在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些 空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查 找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体 或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创 建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的 计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在 打开一个窗体时，micro

38、soft access 将从一个或多个表中检索数据，并使用用 户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如， 可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数 据格式的打印邮件标签的报表。 第五章第五章 房屋租赁管理系统的详细设计房屋租赁管理系统的详细设计 5.15.1 数据库的实现数据库的实现 为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存 储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，定义出数据 库,各数据表的结构，并对各种数据的属性和各项处理功能进

39、行详细分析。系统 分析的主要成果是系统的逻辑模型。 通过对该系统的研究,将系统数据分为以下几个表:客户信息表,定金表,房 屋表,押金表,求租，预定表以及租金等几个表,各表的具体设计结构如下: 表 5-1 客户信息表 字段名 类型 宽度 小数位数 客户编号字符型 10 租户姓名字符型 6 工作单位字符型 20 联系电话字符型 2 性别字符型 8 租户人数字符型 20 身份证编号字符型 20 备注备注型 4 表 5-2 定金表 字段名类型宽度小数位数 收费编号字符型 10 定金金额字符型 10 预定金编号字符型 10 收费日期日期型 8 预定客户字符型 10 预定房屋编号字符型 10 备注备注型

40、表 5-3 房屋表 字段名类型宽度小数位数 房屋编号字符型 8 物业地址字符型 10 房型字符型 20 建筑面积数值型 52 使用面积数值型 52 装修情况字符型 10 出租价位数值型 52 目前状态字符型字符型 备注备注型 表 5-4 押金表 字段名类型宽度小数位数 收费编号字符型 10 押金金额数值型 52 收费日期日期型 8 合同编号字符型 10 客户姓名字符型 8 房屋编号字符型 10 备注备注型 表 5-5 求租表 字段名类型宽度小数位数 求租客户编号字符型 10 求租客户姓名字符型 10 电话字符型 15 房型要求字符型 50 面积要求数值型 52 装修要求字符型 50 意向价位数

41、值型 52 意向房屋编号字符型 10 备注备注 表 5-6 租金表 字段名类型宽度小数位数 收费编号字符型 10 租金年份日期型 8 租金月份日期型 8 应交租金数值型 52 已交租金数值型 52 久费金额数值型 52 客户姓名字符型 10 交费日期日期型 8 备注备注 5.25.2 系统主界面的设计系统主界面的设计 启动系统后，主界面设计效果图如下: 图 5-1 系统主界面 说明：在这个界面我们可以根据不同的条件来选择. 公用模块的设计代码分析如下: option explicit public conn as new adodb.connection 定义全局变量 queryhouse 作

42、为判断 frmhouse 窗体显示查询的数据还是全体 数据 public queryhouse as boolean 定义全局变量 sqlqh 作为查询房屋信息时的 sql 语句 public sqlqh as string 定义全局变量 querycf 作为判断 frmclient 窗体家庭租户选项卡显示查询的 数据还是全体数据 public querycf as boolean 定义全局变量 sqlqcf 作为查询家庭租户信息时的 sql 语句 public sqlqcf as string 定义全局变量 querycg 作为判断 frmclient 窗体家公司户选项卡显示查询的 数据还是

43、全体数据 public querycg as boolean 定义全局变量 sqlqcg 作为查询公司租户信息时的 sql 语句 public sqlqcg as string 定义全局变量 queryemp 作为判断 frmemp 窗体显示查询的数据还是全体数据 public queryemp as boolean 定义全局变量 sqlqe 作为查询员工信息时的 sql 语句 public sqlqe as string 定义全局变量 queryqzc 作为判断 frmqzclient 窗体显示查询的数据还是全体 数据 public queryqzc as boolean 定义全局变量 sq

44、lqzc 作为查询求租客户信息时的 sql 语句 public sqlqzc as string 定义全局变量 querycon 作为判断 frmadmincontract 窗体显示查询的数据还 是全体数据 public querycon as boolean 定义全局变量 sqlqcon 作为查询合同信息时的 sql 语句 public sqlqcon as string 定义全局变量 sqlqyd 作为查询预定单信息时的 sql 语句 public sqlqyd as string 定义全局变量 fromqzc 作为判断 frmyuding 窗体是从 frmqzclient 窗体中单 击下

45、定金预定调用的 还是直接菜单调用的 public fromqzc as boolean 定义全局变量 fromyuding 作为判断 frmpaydingjin 窗体是从 frmyuding 窗体 中单击收取定金调用的 还是直接菜单调用的 public fromyuding as boolean 定义全局变量 fromcontract 作为判断 frmpayyajin 窗体是从 frmsigncontract 窗体中单击收取押金调用的 还是直接菜单调用的 public fromcontract as boolean 定义全局变量 zujinfromcontract 作为判断 frmpayzuj

46、in 窗体是从 frmsigncontract 窗体中单击收取租金调用的 还是直接菜单调用的 public zujinfromcontract as boolean 定义全局变量 queryzujin 作为判断 frmadminzujin 窗体显示查询的数据还是 全体数据 public queryzujin as boolean 定义全局变量 sqlqzj 作为查询合同信息时的 sql 语句 public sqlqzj as string 定义全局变量 sqlqdj 作为查询定金信息时的 sql 语句 public sqlqdj as string 定义全局变量 sqlqyj 作为查询押金信息

47、时的 sql 语句 public sqlqyj as string 5.35.3 各主要功能模块的设计与实现各主要功能模块的设计与实现 5 53 31 1 基本资料管理模块设计基本资料管理模块设计 房屋基本资料管理的运行效果图如下: 图 5-2 房屋基本资料 说明：我们通过这个界面可以对房屋的整体资料有所了解，也可以添加和删除 房屋资料 其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令 按钮的源代码设计： 新增按钮源码: private sub cmdadd_click() 设置除保存和取消按钮外的其他按钮不可用 cmdadd.enabled = false cmded

48、it.enabled = false cmddel.enabled = false cmdsave.enabled = true cmdcancel.enabled = true cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false cmdquery.enabled = false 需要清空所有 text 框，并且设置它们可写 for i = 0 to 7 text1(i).text = text1(i).enabled = true next i com

49、bo1.enabled = true add 变量用于保存时判断是从添加还是修改后保存 add = 1 text1(0).setfocus end sub private sub cmdcancel_click() 取消按钮用于用户添加或修改过程中放弃添加或修改操作 cmdsave.enabled = false cmdcancel.enabled = false cmdadd.enabled = true cmdquery.enabled = true 如果是从添加后取消 if add = 1 then 如果当前 house 表中有数据则显示第一条数据 if not rs_house.eof

50、 and not rs_house.bof then for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if cmdedit.enabled = true cmddel.enabled = tr

51、ue cmdfirst.enabled = true cmdprev.enabled = true cmdnext.enabled = true cmdlast.enabled = true 如果没有数据，则显示空 else for i = 0 to 7 text1(i).text = next i cmdedit.enabled = false cmddel.enabled = false cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false end i

52、f 如果是修改后取消，则恢复到修改前的数据 elseif add = 0 then for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if end if 开始时设置各个 text 框不可写 fo

53、r i = 0 to 7 text1(i).enabled = false next i 先设置 combobox 的默认值及不可改 combo1.enabled = false end sub private sub cmdclose_click() unload me end sub 删除按钮的源代码： private sub cmddel_click() 当单击删除记录时，需要弹出一个提示框，警告用户 dim answer as string answer = msgbox(确定要删除吗？, vbyesno, ) 确实删除 if answer = vbyes then rs_house.

54、delete 删除当前记录 rs_house.update 更新删除 msgbox 成功删除！, vbokonly + vbexclamation, else exit sub end if 删除之后，显示总信息条数需要减 1 text2.text = val(text2.text) - 1 删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则 显示上一条记录 先移动 rs_house 记录到后一条 rs_house.movenext if rs_house.eof then rs_house.moveprevious 如果没有到记录首则显示该记录 if not rs_house.

55、bof then for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if 如果到记录首，则表格已经为空，置所有 text 框显示为空 elseif rs_house.bof then for i

56、 = 0 to 7 text1(i).text = next i cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false end if 如果删除的不是首尾记录，则显示当前记录即可 else for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8)

57、= 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if end if end sub 保存按钮的源代码： private sub cmdedit_click() 设置除保存和取消按钮外的其他按钮不可用 cmdadd.enabled = false cmdedit.enabled = false cmddel.enabled = false cmdsave.enabled = true cmdcancel.enabled = true cmdfirst.enabl

58、ed = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false cmdquery.enabled = false 需要设置除主键之外的 text 框可写 for i = 1 to 7 text1(i).enabled = true next i combo1.enabled = true add = 0 end sub private sub cmdfirst_click() 先移动 rs_house 记录到第一条 rs_house.movefirst 同时需要设置相应按钮为不可用和不可用 c

59、mdprev.enabled = false cmdfirst.enabled = false cmdnext.enabled = true cmdlast.enabled = true 如果已经是第一条记录，则提示用户 if rs_house.bof = true then msgbox 对不起，已经是第一条记录了！, vbokonly + vbinformation, 注意 exit sub 如果不是，则个数据表的记录位置移到第一条记录，并且显示之 else for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_hou

60、se.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if end if end subprev 检索按钮的源代码： 5 53 32 2 客户资料管理模块的设计客户资料管理模块的设计 5321 租户基本资料的设计 运行效果图如下所示: 图 5-3 租户基本资料 说明：通过这个界面我们可以对租户的资料修改，查询，添加等指令。 在租