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

编号本科毕业设计（论文）题目房屋租凭管理系统学院（系）专业学号学生姓名指导教师（职称）201年月摘要随着我国市场经济的快速发展和人们生活水平的不断提高，简单的租凭服务已经不能满足人们的需求。如何利用先进的管理手段，提高房屋租凭管理水平，是当今社会所面临的一个重要课题。本文通过用VB60编写房屋租赁管理系统，利用软件工程原理，采用面向对象的编程方法，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了房屋租赁管理的自动化和信息化整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成基本资料管理、客户资料管理、租凭合同管理、财务管理、统计报表管理等功能经过实际测试证明，本文所设计的房屋租赁管理系统可以用于物业管理部门从事房屋租赁信息管理方面的需要。论文主要介绍了本课题的开发背景，所要完成的功能和开发的全过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键词数据库VISUALBASIC60房屋租赁管理系统ABSTRACTWITHTHERAPIDDEVELOPMENTOFTHEMARKETECONOMYOFOURCOUNTRYANDPEOPLELIVINGSTANDARDRISECEASELESSLY,THESIMPLICITYOFTHELEASESERVICEALREADYCANTSATISFYPEOPLESNEEDSHOWTOUSETHEADVANCEDMANAGEMENTMETHOD,IMPROVETHELEVELOFMANAGEMENT,THERENTALHOUSEFACINGSOCIETYTODAYISANIMPORTANTISSUETHISARTICLETHROUGHTOWRITEWITHVB60HOUSELEASEMANAGEMENTSYSTEM,THEUSEOFSOFTWAREENGINEERINGTHEORY,BYUSINGOBJECTORIENTEDPROGRAMMINGMETHOD,ANDITSDEVELOPMENTMAINLYINCLUDESTHEBACKSTAGEDATABASETHEESTABLISHMENTANDTHEMAINTENANCEANDDEVELOPMENTOFFRONTAPPLICATIONPROGRAMOFTWOASPECTS,REALIZEDTHEAUTOMATIONOFHOUSELEASEMANAGEMENTANDINFORMATIONFROMTHEENTIRESYSTEMTOOPERATEANDFRIENDLYINTERFACE,FLEXIBLE,PRACTICAL,SAFE,COMPLETETHEREQUIREMENTOFBASICDATAMANAGEMENT,CUSTOMERDATAMANAGEMENT,THERENTALCONTRACTMANAGEMENT,FINANCIALMANAGEMENT,STATISTICSMANAGEMENTETCFUNCTIONAFTERTHEACTUALTEST,THISPAPERDESIGNEDTHEHOUSELEASEMANAGEMENTSYSTEMCANBEUSEDINPROPERTYMANAGEMENTDEPARTMENTENGAGEDINHOUSELEASEINFORMATIONMANAGEMENTNEEDSPAPERMAINLYINTRODUCEDTHISTOPICDEVELOPMENTBACKGROUNDWANTTOCOMPLETETHEWHOLEPROCESSOFTHEFUNCTIONANDDEVELOPMENTTHEFOCUSOFTHEEXPLANATIONOFTHESYSTEMDESIGN,DESIGNTHOUGHTS,THEFOCUSOFSOMETECHNICALANDSOLUTIONSKEYWORDSDATABASEVISUALBASIC60HOUSELEASEMANAGEMENTSYSTEM目录摘要1第一章序论111课题来源112开发背景和开发目的113本文所做的工作2第二章需求分析321应用现状调查322系统目标323可行性分析3231经济可行性分析3232操作可行性分析4233技术可行性分析4241业务流程图4242数据流分析5243系统功能需求6第三章总体设计732系统模块设计7321系统功能分析7322系统功能模块图833数据库的设计1034数据库的选择10第四章相关技术简介1041MICROSOFTVISUALBASIC的技术简介1042MICROSOFTACCESS技术简介14第五章房屋租赁管理系统的详细设计1551数据库的实现1552系统主界面的设计1853各主要功能模块的设计与实现20531基本资料管理模块设计20532客户资料管理模块的设计28533租赁管理模块的设计33534财务管理模块的设计41535统计报表模块的设计43第六章主菜单的设计及系统连编4761主菜单的设计4762系统的编译与发行48第七章毕业设计小结49参考文献50致谢50第一章序论11课题来源随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高物业管理的水平，是当今社会所面临的一个课题。提高企业的管理水平，必须全方位地提高企业的管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高房屋租赁管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。房租租赁管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。随着计算机技术不断的飞速发展，计算机以及计算机控制的自动处理技术已融入人类社会的各个领域并发挥着越来越重要的作用。对于当今的科学信息是一次重大的飞越，为人们的生活、工作、学习带来潜移默化的影响。今天我们使用计算机对房屋租赁信息进行管理，具有手工管理所无法比拟的优点。例如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高房屋租赁管理的效率。面对目前的实际状况，迫切需要开发一个新系统来适应这一些工作12开发背景和开发目的利用计算机实现物业管理中的房屋租赁管理势在必行。对于物业管理企业来说，利用计算机支持企业高效率完成房屋租赁管理的日常事务，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而房屋租赁管理是一项琐碎、复杂而又十分细致的工作，房屋的基本资料,客户资料的管理,房屋租赁管理，各项收费以及统计报表的管理,一般不允许出错，如果实行手工操作,须手工填制大量的表格,这就会耗费工作人员大量的时间和精力，计算机进行房屋租赁工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点例如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高物业管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。开发本系统就是为了解决物业管理企业在房屋租赁信息管理中的一些不规范，使房屋租赁信息的管理向着规范化、简单化、有效化的方向发展。13本文所做的工作第一章绪论部分主要叙述课题来源、开发背景和开发目的,可行性分析,分析比较当前开发工具，数据库技术的比较。第二章结合软件工程方法，对系统进行需求分析、系统目标和应用现状调查、系统总体流程图与功能调查图绘制与分析。第三章在需求分析的基础上选择好开发工具,并对开发工具做简要描述第四章根据需求分析的结果，对系统进行概要设计，主要介绍用VISUALBASIC60创建应用程序的步骤,以及在本系统开发的所用到控件实现每一个模块的具体功能。第五章根据第四章的创建应用程序步骤及VISUALBASIC60提供的控件进行房屋租赁管理系统的详细设计重点分析数据库的设计以及主要功能模块的实现第六章在完成了主要功能模块的设计后,本章进行的系统主程序的设计,以及怎样在VISUALBASIC60环境下生成应用程序第七章毕业设计小结，总结部分介绍了设计体会和编程体会设计存在的不足,及今后的学习方向第二章需求分析21应用现状调查当前，很多物业管理企业的房屋租赁信息管理都是以纸张为介质作记录，人力管理的比例比较大,往往是各个主要负责人以书面的形式管理房屋租赁信息,效率低下。数据打印,汇总,成绩更新不及时，容易丢失,损坏数据给学校学生带来损失,不易保存且数据保密性较差。22系统目标采用企业现有的软硬件环境及科学的管理系统开发方案，建立房屋租赁信息管理系统，实现房屋租赁信息管理的计算机自动化。系统应符合物业管理企业原有的房屋租赁管理制度，并达到操作直观、方便、实用、安全等要求。23可行性分析231经济可行性分析本系统开发简单但要耗去一定的时间，所用的开发工具和软件都差不多是免费的。而且，由于系统能够在未来较长的一段时期内稳定地发挥作用，这对于学生房屋租赁信息的自动化管理，称业管理企业的人力和财力都有很大的帮助。由此可见在，开发此系统在经济上是完全可行的。232操作可行性分析如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本的降低我的这套系统是利用自己的计算机加MICROSOFTVISUALFOXPRO60作为软件的开发平台，使开发出来的系统有友好的用户界面、有良好的安全性设置、有详细的操作说明书，这样更使各类用户很快地掌握系统的使用方法,操作友好因此在操作上是可行的233技术可行性分析从目前IT业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，VISUALBASIC60和WINDOWS2000的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了业界软件开发一直坚持的非常友好、操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库接口。所以技术实行起来相对会容易。24系统需求分析241业务流程图图21业务流程图242数据流分析图22数据流程图整个系统从总体上分为基本资料管理、客户资料管理、租赁管理、财务管理以及统计报表五大部分，每一部分实现的功能如下基本资料管理功能实现房屋基本资料的管理客户资料管理分租户基本资料跟求租户基本资料管理租赁管理分为合同签订，合同续签，合同管理，预定租房，合同查询，预定单查询，出租到期提醒，预定到期提醒。房屋登记基本信息输入定金管理下定金，预定管理合同签订押金管理租户求租资料客户登记信息求租财务管理功能分定金、押金、租金收取，租金管理，定金退还，押金退还。统计报表功能房屋统计报表，租户统计报表，求租客户信息表，历史租户表，现有合同表，历史合同表，预定金统计，押金，定金统计，租金统计等功能243系统功能需求该系统主要完成房屋出租，合同签订，合同查询，租金收取，租金统计等功能。要求界面美观、大方，且操作方便简易。2431系统性能需求（1）界面友好化界面简单，易操作；（2）操作简便用鼠标、键盘就能实现数据的采集、统计等功能；（3）功能强大能进行收集基本资料，合同签订，租金收取，租金统计等。（4）结构合理整个系统采用模块化管理；（5）技术先进采用MICROSOFT公司的VISUALBASIC，MICROSOFT公司的ACCESS制作，技术成熟，维护方便。2432系统运行需求（1）操作系统要求为WINDOWS98/NT/2000/XP。（2）最低硬件要求为能运行WINDOWS98以上操作系统。（3）系统中要求有MICROSOFT公司的VISUALBASIC，MICROSOFT公司的ACCESS制作（4）基本的支持硬件有鼠标，键盘，打印机等基本设备。第三章总体设计31系统总体设计思想本系统采用B/S结构。该系统实现的主要功能有基本房屋资料，租凭管理，财务管理，统计报表，可以删除数据等等。该系统的界面应该友好、大方、美观，让用户能够非常清楚地根据页面上的功能项知道它是实现什么功能的；同时，将相似的功能项目集结在一个父项目下，使得页面安排更加简洁明了,用户更容易操作。32系统模块设计321系统功能分析本系统主要有6个模块，分别是客户信息模块，定金模块，房屋模块，押金模块，求租模块，预定模块。（1）客户信息模块该模块主要有客户编号，租户姓名，工作单位，联系电话，性别，租户人数，身份证编号，备注。（2）定金模块该模块主要有收费编号，定金金额，预定金编号，收费日期，预定客户，预订房屋编号，备注（3）房屋模块该模块主要有房屋编号，物业地址，房型，建筑面积，使用面积，装修情况，出租价位，目前状态，备注。（4）押金模块该模块主要有收费编号，押金金额，收费日期，合同编号，客户姓名，房屋编号，备注。（5）求租模块该模块主要有求租客户编号，求租客户姓名，电话，房型要求，面积要求，装修要求，意向价位，意向房屋编号，备注。（6）租金模块该模块主要有收费编号，租金年份，租金月份，应交租金，已交租金，久费金额，客户姓名，交费日期，备注。322系统功能模块图房屋租赁管理系统基本资料客户资料租赁管理财务管理统计报表房屋基本管理租户基本资料求租客户资料合同续签合同管理预定租房合同查询预定单查询出租到期提醒预定到期提醒合同签定财务管理财务财务管理定金收取租金收取押金收取租金管理定金退还押金退还统计报表财务财务管理基本资料基本资料基本资料基本资料基本资料预定单统计租户信息表求租客户房屋统计历史租户现有合同历史合同定金统计租金统计图31系统功能模块图33数据库的设计根据前面的分析，数据库的关系模式设计如下客户信息（客户编号，租户姓名，工作单位，联系电话，性别，租户人数，身份证编号）定金（收费编号，定金金额，预定金编号，收费日期，预定客户，预订房屋编号）房屋（房屋编号，物业地址，房型，建筑面积，使用面积，装修情况，出租价位，目前状态）押金（收费编号，押金金额，收费日期，合同编号，客户姓名，房屋编号）求租（求租客户编号，求租客户姓名，电话，房型要求，面积要求，装修要求，意向价位，意向房屋编号）租金（收费编号，租金年份，租金月份，应交租金，已交租金，久费金额，客户姓名，交费日期）34数据库的选择根据前面的要求,我选择的开发平台是WINDOWSXP，后台数据库选的是MICROSOFTACCESS第四章相关技术简介41MICROSOFTVISUALBASIC的技术简介现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有MICROSOFT公司的VISUALBASICMICROSOFT公司的VISUALCMICROSOFT公司的VISUALFOXPROBORLAND公司的DELPHIPOWERSOFT公司的POWERBULIDERJAVA等等在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。VISUALBASIC是美国微软公司的第一个编程工具和系统开发的第一个产品，VISUALBASIC以优良的性能、较强的系统开发功能、完美的视觉界面和简单易学的特点，已经赢得了全世界广大用户的偏爱。VISUALBASIC的编程环境包含了快速有效的开发功能，尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，使系统的开发更人性化，操作更简便。作为管理信息系统的开发，VISUALBASIC是一个非常理想选择。VISUALBASIC是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发WINDOWS环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与WINDOWS的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C编程基础。在VISUALBASIC环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用WINDOWS内部的应用程序接口API函数，以及动态链接库DLL、动态数据交换DDE、对象的链接与嵌入OLE、开放式数据访问ODBC等技术，可以高效、快速地开发出WINDOWS环境下功能强大、图形界面丰富的应用软件系统。总的来说，VISUALBASIC60具有以下特点VISUALBASIC是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发WINDOWS环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与WINDOWS的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C编程基础。在VISUALBASIC环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用WINDOWS内部的应用程序接口API函数，以及动态链接库DLL、动态数据交换DDE、对象的链接与嵌入OLE、开放式数据访问ODBC等技术，可以高效、快速地开发出WINDOWS环境下功能强大、图形界面丰富的应用软件系统。可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程编译修改的操作可能要反复多次，大大影响了软件开发效率。VISUALBASIC提供了可视化设计工具，把WINDOWS界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。VISUALBASIC自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计40版以后的VISUALBASIC支持面向对象的程序设计，但它与一般的面向对象的程序设计语言C不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而VISUALBASIC则是应用面向对象的程序设计方法OOP，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，VISUALBASIC自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言VISUALBASIC是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。VISUALBASIC语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。VISUALBASIC是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VISUALBASIC程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件EXE，脱离VISUALBASIC环境，直接在WINDOWS环境下运行。事件驱动编程机制VISUALBASIC通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”CLICK事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用VISUALBASIC设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库VISUALBASIC具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理MICROSOFTACCESS格式的数据库，并提供了强大的数据存储和检索功能。同时，VISUALBASIC还能直接编辑和访问其他外部数据库，如DBASE，FOXPRO，PARADOX等，这些数据库格式都可以用VISUALBASIC编辑和处理。VISUALBASIC提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQLSERVER，ORACLE等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器CLIENT/SERVER方案。动态数据交换DDE利用动态数据交换DYNAMICDATAEXCHANGE技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。VISUALBASIC提供了动态数据交换的编程技术，可以在应用程序中与其他WINDOWS应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入OLE对象的链接与嵌入OLE将每个应用程序都看作是一个对象OBJECT，将不同的对象链接LINK起来，再嵌入EMBED某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是MICROSOFT公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档COMPOUNDDOCUMENT，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库DLLVISUALBASIC是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C或汇编语言编写的程序加入到VISUALBASIC应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用WINDOWS应用程序接口API函数，实现SDK所具有的功能42MICROSOFTACCESS技术简介使用MICROSOFTACCESS，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，MICROSOFTACCESS将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。第五章房屋租赁管理系统的详细设计51数据库的实现为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，定义出数据库,各数据表的结构，并对各种数据的属性和各项处理功能进行详细分析。系统分析的主要成果是系统的逻辑模型。通过对该系统的研究,将系统数据分为以下几个表客户信息表,定金表,房屋表,押金表,求租，预定表以及租金等几个表,各表的具体设计结构如下表51客户信息表字段名类型宽度小数位数客户编号字符型10租户姓名字符型6工作单位字符型20联系电话字符型2性别字符型8租户人数字符型20身份证编号字符型20备注备注型4表52定金表字段名类型宽度小数位数收费编号字符型10定金金额字符型10预定金编号字符型10收费日期日期型8预定客户字符型10预定房屋编号字符型10备注备注型表53房屋表字段名类型宽度小数位数房屋编号字符型8物业地址字符型10房型字符型20建筑面积数值型52使用面积数值型52装修情况字符型10出租价位数值型52目前状态字符型字符型备注备注型表54押金表字段名类型宽度小数位数收费编号字符型10押金金额数值型52收费日期日期型8合同编号字符型10客户姓名字符型8房屋编号字符型10备注备注型表55求租表字段名类型宽度小数位数求租客户编号字符型10求租客户姓名字符型10电话字符型15房型要求字符型50面积要求数值型52装修要求字符型50意向价位数值型52意向房屋编号字符型10备注备注表56租金表字段名类型宽度小数位数收费编号字符型10租金年份日期型8租金月份日期型8应交租金数值型52已交租金数值型52久费金额数值型52客户姓名字符型10交费日期日期型8备注备注52系统主界面的设计启动系统后，主界面设计效果图如下图51系统主界面说明在这个界面我们可以根据不同的条件来选择公用模块的设计代码分析如下OPTIONEXPLICITPUBLICCONNASNEWADODBCONNECTION定义全局变量QUERYHOUSE作为判断FRMHOUSE窗体显示查询的数据还是全体数据PUBLICQUERYHOUSEASBOOLEAN定义全局变量SQLQH作为查询房屋信息时的SQL语句PUBLICSQLQHASSTRING定义全局变量QUERYCF作为判断FRMCLIENT窗体家庭租户选项卡显示查询的数据还是全体数据PUBLICQUERYCFASBOOLEAN定义全局变量SQLQCF作为查询家庭租户信息时的SQL语句PUBLICSQLQCFASSTRING定义全局变量QUERYCG作为判断FRMCLIENT窗体家公司户选项卡显示查询的数据还是全体数据PUBLICQUERYCGASBOOLEAN定义全局变量SQLQCG作为查询公司租户信息时的SQL语句PUBLICSQLQCGASSTRING定义全局变量QUERYEMP作为判断FRMEMP窗体显示查询的数据还是全体数据PUBLICQUERYEMPASBOOLEAN定义全局变量SQLQE作为查询员工信息时的SQL语句PUBLICSQLQEASSTRING定义全局变量QUERYQZC作为判断FRMQZCLIENT窗体显示查询的数据还是全体数据PUBLICQUERYQZCASBOOLEAN定义全局变量SQLQZC作为查询求租客户信息时的SQL语句PUBLICSQLQZCASSTRING定义全局变量QUERYCON作为判断FRMADMINCONTRACT窗体显示查询的数据还是全体数据PUBLICQUERYCONASBOOLEAN定义全局变量SQLQCON作为查询合同信息时的SQL语句PUBLICSQLQCONASSTRING定义全局变量SQLQYD作为查询预定单信息时的SQL语句PUBLICSQLQYDASSTRING定义全局变量FROMQZC作为判断FRMYUDING窗体是从FRMQZCLIENT窗体中单击下定金预定调用的还是直接菜单调用的PUBLICFROMQZCASBOOLEAN定义全局变量FROMYUDING作为判断FRMPAYDINGJIN窗体是从FRMYUDING窗体中单击收取定金调用的还是直接菜单调用的PUBLICFROMYUDINGASBOOLEAN定义全局变量FROMCONTRACT作为判断FRMPAYYAJIN窗体是从FRMSIGNCONTRACT窗体中单击收取押金调用的还是直接菜单调用的PUBLICFROMCONTRACTASBOOLEAN定义全局变量ZUJINFROMCONTRACT作为判断FRMPAYZUJIN窗体是从FRMSIGNCONTRACT窗体中单击收取租金调用的还是直接菜单调用的PUBLICZUJINFROMCONTRACTASBOOLEAN定义全局变量QUERYZUJIN作为判断FRMADMINZUJIN窗体显示查询的数据还是全体数据PUBLICQUERYZUJINASBOOLEAN定义全局变量SQLQZJ作为查询合同信息时的SQL语句PUBLICSQLQZJASSTRING定义全局变量SQLQDJ作为查询定金信息时的SQL语句PUBLICSQLQDJASSTRING定义全局变量SQLQYJ作为查询押金信息时的SQL语句PUBLICSQLQYJASSTRING53各主要功能模块的设计与实现531基本资料管理模块设计房屋基本资料管理的运行效果图如下图52房屋基本资料说明我们通过这个界面可以对房屋的整体资料有所了解，也可以添加和删除房屋资料其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码设计新增按钮源码PRIVATESUBCMDADD_CLICK设置除保存和取消按钮外的其他按钮不可用CMDADDENABLEDFALSECMDEDITENABLEDFALSECMDDELENABLEDFALSECMDSAVEENABLEDTRUECMDCANCELENABLEDTRUECMDFIRSTENABLEDFALSECMDPREVENABLEDFALSECMDNEXTENABLEDFALSECMDLASTENABLEDFALSECMDQUERYENABLEDFALSE需要清空所有TEXT框，并且设置它们可写FORI0TO7TEXT1ITEXT“TEXT1IENABLEDTRUENEXTICOMBO1ENABLEDTRUEADD变量用于保存时判断是从添加还是修改后保存ADD1TEXT10SETFOCUSENDSUBPRIVATESUBCMDCANCEL_CLICK取消按钮用于用户添加或修改过程中放弃添加或修改操作CMDSAVEENABLEDFALSECMDCANCELENABLEDFALSECMDADDENABLEDTRUECMDQUERYENABLEDTRUE如果是从添加后取消IFADD1THEN如果当前HOUSE表中有数据则显示第一条数据IFNOTRS_HOUSEEOFANDNOTRS_HOUSEBOFTHENFORI0TO7TEXT1ITEXTRS_HOUSEFIELDSINEXTIIFRS_HOUSEFIELDS8“已租“THENCOMBO1LISTINDEX0ELSEIFRS_HOUSEFIELDS8“未租“THENCOMBO1LISTINDEX1ELSEIFRS_HOUSEFIELDS8“意向“THENCOMBO1LISTINDEX2ENDIFCMDEDITENABLEDTRUECMDDELENABLEDTRUECMDFIRSTENABLEDTRUECMDPREVENABLEDTRUECMDNEXTENABLEDTRUECMDLASTENABLEDTRUE如果没有数据，则显示空ELSEFORI0TO7TEXT1ITEXT“NEXTICMDEDITENABLEDFALSECMDDELENABLEDFALSECMDFIRSTENABLEDFALSECMDPREVENABLEDFALSECMDNEXTENABLEDFALSECMDLASTENABLEDFALSEENDIF如果是修改后取消，则恢复到修改前的数据ELSEIFADD0THENFORI0TO7TEXT1ITEXTRS_HOUSEFIELDSINEXTIIFRS_HOUSEFIELDS8“已租“THENCOMBO1LISTINDEX0ELSEIFRS_HOUSEFIELDS8“未租“THENCOMBO1LISTINDEX1ELSEIFRS_HOUSEFIELDS8“意向“THENCOMBO1LISTINDEX2ENDIFENDIF开始时设置各个TEXT框不可写FORI0TO7TEXT1IENABLEDFALSENEXTI先设置COMBOBOX的默认值及不可改COMBO1ENABLEDFALSEENDSUBPRIVATESUBCMDCLOSE_CLICKUNLOADMEENDSUB删除按钮的源代码PRIVATESUBCMDDEL_CLICK当单击删除记录时，需要弹出一个提示框，警告用户DIMANSWERASSTRINGANSWERMSGBOX“确定要删除吗“,VBYESNO,“确实删除IFANSWERVBYESTHENRS_HOUSEDELETE删除当前记录RS_HOUSEUPDATE更新删除MSGBOX“成功删除“,VBOKONLYVBEXCLAMATION,“ELSEEXITSUBENDIF删除之后，显示总信息条数需要减1TEXT2TEXTVALTEXT2TEXT1删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录先移动RS_HOUSE记录到后一条RS_HOUSEMOVENEXTIFRS_HOUSEEOFTHENRS_HOUSEMOVEPREVIOUS如果没有到记录首则显示该记录IFNOTRS_HOUSEBOFTHENFORI0TO7TEXT1ITEXTRS_HOUSEFIELDSINEXTIIFRS_HOUSEFIELDS8“已租“THENCOMBO1LISTINDEX0ELSEIFRS_HOUSEFIELDS8“未租“THENCOMBO1LISTINDEX1ELSEIFRS_HOUSEFIELDS8“意向“THENCOMBO1LISTINDEX2ENDIF如果到记录首，则表格已经为空，置所有TEXT框显示为空ELSEIFRS_HOUSEBOFTHENFORI0TO7TEXT1ITEXT“NEXTICMDFIRSTENABLEDFALSECMDPREVENABLEDFALSECMDNEXTENABLEDFALSECMDLASTENABLEDFALSEENDIF如果删除的不是首尾记录，则显示当前记录即可ELSEFORI0TO7TEXT1ITEXTRS_HOUSEFIELDSINEXTIIFRS_HOUSEFIELDS8“已租“THENCOMBO1LISTINDEX0ELSEIFRS_HOUSEFIELDS8“未租“THENCOMBO1LISTINDEX1ELSEIFRS_HOUSEFIELDS8“意向“THENCOMBO1LISTINDEX2ENDIFENDIFENDSUB保存按钮的源代码PRIVATESUBCMDEDIT_CLICK设置除保存和取消按钮外的其他按钮不可用CMDADDENABLEDFALSECMDEDITENABLEDFALSECMDDELENABLEDFALSECMDSAVEENABLEDTRUECMDCANCELENABLEDTRUECMDFIRSTENABLEDFALSECMDPREVENABLEDFALSECMDNEXTENABLEDFALSECMDLASTENABLEDFALSECMDQUERYENABLEDFALSE需要设置除主键之外的TEXT框可写FORI1TO7TEXT1IENABLEDTRUENEXTICOMBO1ENABLEDTRUEADD0ENDSUBPRIVATESUBCMDFIRST_CLICK先移动RS_HOUSE记录到第一条RS_HOUSEMOVEFIRST同时需要设置相应按钮为不可用和不可用CMDPREVENABLEDFALSECMDFIRSTENABLEDFALSECMDNEXTENABLEDTRUECMDLASTENABLEDTRUE如果已经是第一条记录，则提示用户IFRS_HOUSEBOFTRUETHENMSGBOX“对不起，已经是第一条记录了“,VBOKONLYVBINFORMATION,“注意“EXITSUB如果不是，则个数据表的记录位置移到第一条记录，并且显示之ELSEFORI0TO7TEXT1ITEXTRS_HOUSEFIELDSINEXTIIFRS_HOUSEFIELDS8“已租“THENCOMBO1LISTINDEX0ELSEIFRS_HOUSEFIELDS8“未租“THENCOMBO1LISTINDEX1ELSEIFRS_HOUSEFIELDS8“意向“THENCOMBO1LISTINDEX2ENDIFENDIFENDSUBPREV检索按钮的源代码532客户资料管理模块的设计5321租户基本资料的设计运行效果图如下所示图53租户基本资料说明通过这个界面我们可以对租户的资料修改，查询，添加等指令。在租户基本资料中，我们重点分析查找家庭租户功能的源码，如下PRIVATESUBCMDQUERY_CLICKIFTEXT1TEXT“THENMSGBOX“查询条件不可为空“,VBOKONLYVBINFORMATION,“注意“TEXT1SETFOCUSEXITSUBENDIF设置查询家庭租户变量为真QUERYCFTRUESQLQCF“WHERE“MAYBEBACKINTHEPAST,TOONESELFTHEPARANOIDWEIRDBELIEFDISILLUSIONMENT,THESEDAYS,MYMINDHASBEENVERYMESSY,INMYMINDCONSTANTLYALWAYSFEELONESELFSHOULDGOTODOSOMETHING,ORWRITESOMETHINGTWENTYYEARSOFLIFETRAJECTORYDEEPLYSHALLOW,SUDDENLYFEELSOMETHING,DOIT一字开头的年龄已经到了尾声。或许是愧疚于自己似乎把转瞬即逝的很多个不同的日子过成了同一天的样子；或许是追溯过去，对自己那些近乎偏执的怪异信念的醒悟，这些天以来，思绪一直很凌乱，在脑海中不断纠缠。总觉得自己自己似乎应该去做点什么，或者写点什么。二十年的人生轨迹深深浅浅，突然就感觉到有些事情，非做不可了。THEENDOFOURLIFE,ANDCANMEETMANYTHINGSREALLYDO而穷尽我们的一生，又能遇到多少事情是真正地非做不可DURINGMYCHILDHOOD,THINKLUCKYMONEYANDNEWCLOTHESARENECESSARYFORNEWYEAR,BUTASTHEADVANCEOFTHEAGE,WILLBEMOREANDMOREFOUNDTHATTHOSETHINGSAREOPTIONALJUNIORHIGHSCHOOL,THOUGHTTOHAVEACRUSHONJUSTMEANSTHATTHEREALGROWTH,BUTOVERTHEPASTTHREEYEARSLATER,HISWRITINGOFALUMNIINPEACE,SUDDENLYFOUNDTHATISNTREALLYGROWUP,ITSEEMSISNOTSOIMPORTANTTHENINHIGHSCHOOL,THINKDONTWANTTOGIVEVENTTOOUTYOURINNERVOICECANBEINTHEHIGHSCHOOLCHILDRENOFTHEFEELINGSINAPERIOD,BUTWASEVENTUALLYINFARCTIONWHENGRADUATIONPARTYINTHETHROAT,LATERAGAINSTOODONTHEPITCHHEHASSWEATPROFUSELY,LOOKEDATHISTHROWNABASKETBALLHOOPS,SUDDENLYFOUNDHIMSELFHASALREADYCANTREMEMBERHISAPPEARANCE童年时，觉得压岁钱和新衣服是过年必备，但是随着年龄的推进，会越来越发现，那些东西根本就可有可无；初中时，以为要有一场暗恋才意味着真正的成长，但三年过去后，自己心平气和的写同学录的时候，突然就发现是不是真正的成长了，好像并没有那么重要了；然后到了高中，觉得非要吐露出自己的心声才能为高中生涯里的懵懂情愫划上一个句点，但毕业晚会的时候最终还是被梗塞在了咽喉，后来再次站在他曾经挥汗如雨的球场，看着他投过篮球的球框时，突然间发现自己已经想不起他的容颜。ORIGINALLY,THISWORLD,CANPRODUCEACHEMICALREACTIONTOANEVENT,INADDITIONTORESOLUTELY,HAVETODO,ANDTIME原来，这个世界上，对某个事件能产生化学反应的，除了非做不可的坚决，还有，时间。APERSONSTIME,YOURIDEASAREALWAYSSPECIALTOCLEARWANT,WANT,LINEISCLEAR,ASIFNOTHINGCOULDSHAKEHISALSOONCESEEMEDTOBEDETERMINEDTODOSOMETHING,BUTMOREOFTENISHEBACKEDOUTATLASTDISLIKEHISCOWARDICE,FINALLYFOUNDTHATTHEREAREALOTOFLOVE,THEREAREALOTOFMISS,LIKESHADOWREALLYHAVEBEENDOOMEDTHOSEWHODO,JUSTGREENYEARSONESELFGIVEONESELFANARMINJECTION,ORISASELFRIGHTEOUSSPIRITUAL一个人的时候，自己的想法总是特别地清晰。想要的，不想要的，界限明确，好像没有什么可以撼动自己。也曾经好像已经下定了决心去做某件事，但更多的时候是最后又打起了退堂鼓。嫌恶过自己的怯懦，最终却发现有很多缘分，有很多错过，好像冥冥之中真的已经注定。那些曾经所谓的非做不可，只是青葱年华里自己给自己注射的一支强心剂，或者说，是自以为是的精神寄托罢了。ATTHEMOMENT,THESKYISDARK,THEAIRISFRESHFACTORAFTERJUSTRAINEDSUDDENLYTHOUGHTOFBLUEPLAIDSHIRTTHOSEWEREBROKENINTOVARIOUSSHAPESOFSTATIONERYFROMTHECORNERATTHEBEGINNINGOFDEEPFRIENDSHIPHAVEDECLAREDTHEENDOFT