优质毕业设计房屋租赁综合管理系统.doc

届XXXX班毕业论文存档编号：X X 大 学毕 业 论 文题目 房屋租赁管理系统 专 业： 计算机科学和技术 年 级： 学 号： 00000000 论文作者： X X X 指导老师： X X X 职 称： 教授 XX大学计算机学院 制 完成时间： 03月20日摘要伴随中国市场经济快速发展和大家生活水平不停提升，简单租凭服务已经不能满足大家需求。怎样利用优异管理手段，提升房屋租凭管理水平，是当今社会所面临一个关键课题。本文经过用VB6.0编写房屋租赁管理系统，利用软件工程原理，采取面向对象编程方法，其开发关键包含后台数据库建立和维护和前端应用程序开发两个方面，实现了房屋租赁管理自动化和信息化.整个系统从符合操作简便、界面友好、灵活、实用、安全要求出发，完成基础资料管理、用户资料管理、租凭协议管理、财务管理、统计报表管理等功效.经过实际测试证实，本文所设计房屋租赁管理系统能够用于物业管理部门从事房屋租赁信息管理方面需要。论文关键介绍了本课题开发背景，所要完成功效和开发全过程。关键说明了系统设计关键、设计思想、难点技术和处理方案。关键词：数据库 Visual Basic 6.0 房屋租赁管理系统目 录摘要1第一章 序论11.1课题起源11.2 开发背景和开发目标11.3可行性分析21.3.1经济可行性分析21.3.2操作可行性分析21.3.3技术可行性分析21.4本文所做工作2第二章 需求分析42.1 系统目标42.2 应用现实状况调查42.3系统总体步骤图以下:42.4 系统数据步骤图及分析:52.5系统功效模块图5第三章 开发工具选择及介绍63.1开发工具选择63.2开发工具介绍7第四章 房屋租赁管理系统具体设计104.1数据库概要104.1.1数据库含义104.1.2 数据库管理系统104.1.3 数据库应用系统124.2 数据库结构设计124.3系统主界面设计144.3 各关键功效模块设计和实现17431基础资料管理模块设计17432 用户资料管理模块设计244321租户基础资料设计244322求租户基础资料设计25433 租赁管理模块设计28433 .1签署协议设计28433 .2预定租房设计35434财务管理模块设计36434 .1定金收取设计36435 统计报表模块设计394351 房屋统计报表设计394352 租户信息表404353 求租用户信息表414353 租金统计表设计42第五章 主菜单设计及系统连编435.1 主菜单设计435.2 系统编译和发行44第六章 毕业设计小结45参考文件45致 谢46第一章 序论1.1课题起源伴随中国市场经济快速发展和信息化水平不停提升，怎样利用优异管理手段，提升物业管理水平，是当今社会所面临一个课题。提升企业管理水平，必需全方位地提升企业管理意识。只有高标准、高质量管理才能满足企业发展需求。面对信息时代挑战，利用高科技手段来提升房屋租赁管理无疑是一条行之有效路径。在某种意义上，信息和科技在企业管理和现代化建设中显现出越来越关键地位。房租租赁管理方面信息化和科学化，已成为现代化生活水平步入高台阶关键标志。 伴随计算机技术不停飞速发展，计算机和计算机控制自动处理技术已融入人类社会各个领域并发挥着越来越关键作用。对于当今科学信息是一次重大飞越，为大家生活、工作、学习带来潜移默化影响。今天我们使用计算机对房屋租赁信息进行管理，含有手工管理所无法比拟优点。比如：检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升房屋租赁管理效率。面对现在实际情况，迫切需要开发一个新系统来适应这部分工作.1.2 开发背景和开发目标利用计算机实现物业管理中房屋租赁管理势在必行。对于物业管理企业来说，利用计算机支持企业高效率完成房屋租赁管理日常事务，是适应该代企业制度要求、推进企业劳动型管理走向科学化、规范化必需条件；而房屋租赁管理是一项琐碎、复杂而又十分细致工作，房屋基础资料,用户资料管理,房屋租赁管理，各项收费和统计报表管理,通常不许可犯错，假如实施手工操作,须手工填制大量表格,这就会花费工作人员大量时间和精力，计算机进行房屋租赁工作管理，不仅能够确保各项信息正确无误、快速输出，同时计算机含有手工管理所无法比拟优点.比如:检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升物业管理效率,也是企业科学化、正规化管理,和世界接轨关键条件。开发本系统就是为了处理物业管理企业在房屋租赁信息管理中部分不规范，使房屋租赁信息管理向着规范化、简单化、有效化方向发展。1.3可行性分析1.3.1经济可行性分析本系统开发简单但要耗去一定时间，所用开发工具和软件全部差不多是无偿。而且，因为系统能够在未来较长一段时期内稳定地发挥作用，这对于学生房屋租赁信息自动化管理，称业管理企业人力和财力全部有很大帮助。由此可见在，开发此系统在经济上是完全可行。1.3.2操作可行性分析现在计算机已经走进千家万户，硬件成本下降，造成计算机购置成本降低.我这套系统是利用自己计算机加Microsoft Visual FoxPro6.0作为软件开发平台，使开发出来系统有友好用户界面、有良好安全性设置、有具体操作说明书，这么更使各类用户很快地掌握系统使用方法,操作友好所以在操作上是可行.1.3.3技术可行性分析从现在IT业界比较流行数据库开发、管理软件来看，对于比较简单中小型数据库，Visual Basic 6.0和Windows 结合无疑是在实际应用中较为成功一个处理方案。为用户提供了业界软件开发一直坚持很友好、操作简单用户界面、完善强大数据库操作功效和简练明了数据库接口。所以技术实施起来相对会轻易。1.4本文所做工作第一章 绪论部分关键叙述课题起源、开发背景和开发目标,可行性分析,分析比较目前开发工具，数据库技术比较。第二章 结合软件工程方法，对系统进行需求分析、系统目标和应用现实状况调查、系统总体步骤图和功效调查图绘制和分析。第三章 在需求分析基础上选择好开发工具,并对开发工具做简明描述. 第四章 依据需求分析结果，对系统进行概要设计，关键介绍用Visual Basic 6.0创建应用程序步骤,和在本系统开发所用到控件.实现每一个模块具体功效。第五章 依据第四章创建应用程序步骤及Visual Basic6.0提供控件进行房屋租赁管理系统具体设计.关键分析数据库设计和关键功效模块实现.第六章 在完成了关键功效模块设计后,本章进行系统主程序设计,和怎样在Visual Basic 6.0环境下生成应用程序.第七章 毕业设计小结，总结部分介绍了设计体会和编程体会. 设计存在不足,及以后学习方向.第二章 需求分析2.1 系统目标采取企业现有软硬件环境及科学管理系统开发方案，建立房屋租赁信息管理系统，实现房屋租赁信息管理计算机自动化。系统应符合物业管理企业原有房屋租赁管理制度，并达成操作直观、方便、实用、安全等要求。2.2 应用现实状况调查 目前，很多物业管理企业房屋租赁信息管理全部是以纸张为介质作统计，人力管理百分比比较大,往往是各个关键责任人以书面形式管理房屋租赁信息,效率低下。数据打印,汇总,成绩更新不立即，轻易丢失,损坏数据给学校学生带来损失,不易保留且数据保密性较差。2.3系统总体步骤图以下: 2.4 系统数据步骤图及分析:房屋登记基础信息输入定金管理下定金，预定管理协议签署押金管理租户求租资料用户登记信息求租数据步骤图整个系统从总体上分为基础资料管理、用户资料管理、租赁管理、财务管理和统计报表五大部分，每一部分实现功效以下：基础资料管理功效：实现房屋基础资料管理.用户资料管理：分租户基础资料跟求租户基础资料管理租赁管理：分为协议签署，协议续签，协议管理，预定租房，协议查询，预定单查询，出租到期提醒，预定到期提醒。财务管理功效分定金、押金、租金收取，租金管理，定金退还，押金退还。统计报表功效：房屋统计报表，租户统计报表，求租用户信息表，历史租户表，现有协议表，历史协议表，预定金统计，押金，定金统计，租金统计等功效2.5系统功效模块图房屋租赁管理系统基础资料用户资料租赁管理财务管理统计报表房屋基础管理租户基础资料求租用户资料协议续签协议管理预定租房协议查询预定单查询出租到期提醒预定到期提醒协议签定财务管理财务财务管理定金收取租金收取押金收取租金管理定金退还押金退还统计报表财务财务管理基础资料基础资料基础资料基础资料基础资料预定单统计租户信息表求租用户房屋统计历史租户现有协议历史协议定金统计租金统计 第三章 开发工具选择及介绍3.1开发工具选择针对现在世界上流行大量软件和开发工具，经过认真分析其优缺点，结合数据库管理系统需要和现在硬件环境，我们选择微软WINDOWS平台下Visual Basic6.0（简写为VB6.0）作为房屋租赁管理系统开发工具.3.2开发工具介绍现在，市场上能够选购应用开发产品很多，流行也有数十种。现在在中国市场上最为流行、使用最多、最为优异可用作企业级开发工具产品有：Microsoft企业Visual BasicMicrosoft企业Visual CMicrosoft企业Visual FoxProBorland企业Delphi Powersoft企业PowerBuliderJava等等在现在市场上这些众多程序开发工具中，有些强调程序语言弹性和实施效率；有些则偏重于可视化程序开发工具所带来便利性和效率得高，各有各优点和特色，也满足了不一样用户需求。然而，语言弹性和工具便利性是密不可分，只有便利工具，却没有弹性语言作支持，很多特殊化处理动作必需要花费数倍工夫来处理，使得原来所标榜效率提升优点失去了作用；相反，假如只强调程序语言弹性，却没有便利工具作配合，会使部分即使很简单界面处理动作，也会严重地浪费程序设计师宝贵时间。Visual Basic是美国微软企业第一个编程工具和系统开发第一个产品，Visual Basic以优良性能、较强系统开发功效、完美视觉界面和简单易学特点，已经赢得了全世界广大用户偏爱。Visual Basic编程环境包含了快速有效开发功效，尤其是数据窗口这一方便而简练操纵数据库智能化对象，使系统开发更人性化，操作更简便。作为管理信息系统开发，Visual Basic是一个很理想选择。Visual Basic是一个可视化、面对对象和条用事件驱动方法结构化高级程序设计，可用于开发Windows环境下种类应用程序。它简单易学、效率高，且功效强大，能够和Windows专业开发工具SDK相媲美，而且程序开发人员无须含有C/C+编程基础。在Visual Basic环境下，利用事件驱动编程机制、新奇易用可视化设计工具，使用Windows内部应用程序接口(API)函数，和动态链接库(DLL)、动态数据交换(DDE)、对象链接和嵌入(OLE)、开放式数据访问(ODBC)等技术，能够高效、快速地开发出Windows环境下功效强大、图形界面丰富应用软件系统。总来说，Visual Basic6.0含有以下特点：Visual Basic是一个可视化、面对对象和条用事件驱动方法结构化高级程序设计，可用于开发Windows环境下种类应用程序。它简单易学、效率高，且功效强大，能够和Windows专业开发工具SDK相媲美，而且程序开发人员无须含有C/C+编程基础。在Visual Basic环境下，利用事件驱动编程机制、新奇易用可视化设计工具，使用Windows内部应用程序接口(API)函数，和动态链接库(DLL)、动态数据交换(DDE)、对象链接和嵌入(OLE)、开放式数据访问(ODBC)等技术，能够高效、快速地开发出Windows环境下功效强大、图形界面丰富应用软件系统。可视化编程：用传统程序设计语言设计程序时，全部是经过编写程序代码来设计用户界面，在设计过程中看不到界面实际显示效果，必需编译后运行程序才能观察。假如对界面效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改操作可能要反复数次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计复杂性“封装”起来，开发人员无须为界面设计而编写大量程序代码。只需要按设计要求屏幕布局，用系统提供工具，在屏幕上画出多种“部件”，即图形对象，并设置这些图形对象属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功效那部分代码，从而能够大大提升程序设计效率。面向对象程序设计4.0版以后Visual Basic支持面向对象程序设计，但它和通常面向对象程序设计语言(C+)不完全相同。在通常面向对象程序设计语言中，对象由程序代码和数据组成，是抽象概念；而Visual Basic则是应用面向对象程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象给予应有属性，使对象成为实在东西。在设计对象时，无须编写建立和描述每个对象程序代码，而是用工具画在界面上，Visual Basic自动生成对象程序代码并封装起来。每个对象以图形方法显示在界面上，全部是可视。结构化程序设计语言Visual Basic是在BASIC语言基础上发展起来，含有高级程序设计语言语句结构，靠近于自然语言和人类逻辑思维方法。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检验，同时含有功效强大且使用灵活调试器和编译器。Visual Basic是解释型语言，在输入代码同时，解释系统将高级语言分解翻译成计算机能够识别机器指令，并判定每个语句语法错误。在设计Visual Basic程序过程中，随时能够运行程序，而在整个程序设计好以后，能够编译生成可实施文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic经过事件来实施对象操作。一个对象可能会产生多个事件，每个事件全部能够经过一段程序来响应。比如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将实施一段程序，用来实现指定操作。在用Visual Basic设计大型应用软件时，无须建立含有显著开始和结束程序，而是编写若干个微小子程序，即过程。这些过程分别面向不一样对象，由用户操作引发某个事件来驱动完成某种特定功效，或由事件驱动程序调用通用过程来实施指定操作，这么能够方便编程人员，提升效率。访问数据库Visual Basic含有强大数据库管理功效，利用数据控件和数据库管理窗口，能够直接建立或处理Microsoft Access格式数据库，并提供了强大数据存放和检索功效。同时，Visual Basic还能直接编辑和访问其它外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式全部能够用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功效，可经过直接访问或建立连接方法使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，能够使用结构化查询语言SQL数据标准，直接访问服务器上数据库，并提供了简单面向对象库操作指令和多用户数据库访问加锁机制和网络数据库SQL编程技术，为单机上运行数据库提供了SQL网络接口，方便在分布式环境中快速而有效地实现用户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，能够把一个应用程序中数据动态地链接到另一个应用程序中，使两种完全不一样应用程序建立起一条动态数据链路。当原始数据改变时，能够自动更新链接数据。Visual Basic提供了动态数据交换编程技术，能够在应用程序中和其它Windows应用程序建立动态数据交换，在不一样应用程序之间进行通信。对象链接和嵌入(OLE)对象链接和嵌入(OLE)将每个应用程序全部看作是一个对象(object)，将不一样对象链接(link)起来，再嵌入(embed)某个应用程序中，从而能够得到含有声音、影像、图像、动画、文字等多种信息集合式文件。OLE技术是Microsoft企业对象技术战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一个应用程序一体化技术。利用OLE技术，能够方便地建立复合式文档(compound document)，这种文档由来自多个不一样应用程序对象组成，文档中每个对象全部和原来应用程序相联络，并可实施和原来应用程序完全相同操作。动态链接库(DLL)Visual Basic是一个高级程序设计语言，不含有低级语言功效，对访问机器硬件操作不太轻易实现。但它能够经过动态链接库技术将C/C+或汇编语言编写程序加入到Visual Basic应用程序中，能够像调用内部函数一样调用其它语言编写函数。另外，经过动态链接库，还能够调用Windows应用程序接口(API)函数，实现SDK所含有功效第四章 房屋租赁管理系统具体设计4.1数据库概要4.1.1数据库含义所谓数据库，就是为了满足一些系统、一些用户需要，在计算机系统中根据一定数据模型、数据结构等方法进行组织、存放和使用相互关联数据集合，是数据按科学结构形式组织“仓库”。在实际中，大家把数据库以文件形式存入于磁盘（软盘、硬盘或磁带）中，数据库管理系统以文件形式对其进行调度管理。4.1.2 数据库管理系统数据库管理系统，简称DBMS，是为数据库建立，使用和维护而配置软件，它提供了安全性和完整性等统一控制机制，方便用户管理和存取大量数据资源。比如，Visual Basic 6.0就是微机上使用一个数据管理系统。在数据库管理系统支持下，数据完全独立于应用程序，而且能被多个用户或程序共享，其关系图所表示。 应用程序1数据库管理系统数据库应用程序2应用程序3应用程序和数据库关系数据库管理系统通常含有数据库定义、操作、查询及控制等功效。它将全部应用程序使用数据聚集起来，建立数据库，使之面对全部应用程序查询和访问。所以，作为访问者应用程序相对于数据库来说是独立，而作为被访问数据在数据库中一样是独立。当要建立新数据管理系统时，只要生成一个新应用程序即可，它能够立即使用现成数据库，而无须建立新数据文件。数据库管理系统是为数据库建立、使用、管理和维护而配置软件。它建立在操作系统基础上，对数据库进行统一管理和控制。用户使用多种数据库命令和应用程序实施全部要经过数据库管理系统。数据库管理系统还负担着数据库维护工作，确保数据库安全性和完整性。数据库管理系统功效表现在“管理”二字上。它针对不一样用户及不一样使用目标，提供给用户多种操作、管理数据库命令、函数、控件和对象，以帮助用户完成任务。其关键功效以下： 定义数据库 依据用户设计数据结构,建立数据库结构组织. 存取数据 它包含很多基础操作:输入、更新、插入、检索、删除、输出、统计、排序、索引等。 数据库运行管理 全部数据库操作全部要在数据库管理系统饿控制程序统一管理下进行，以确保正确运行，确保数据库正确有效。 数据库系统维护 系统维护是一项关键工作，它包含数据库转存、恢复、数据库重组及性能监视、分析等。由上可见，数据库管理系统是一个能使用和管理数据库中数据软件。这是数据库系统和文件系统一个最大区分。数据库管理系统功效强弱基础上决定了整个数据库系统功效。4.1.3 数据库应用系统数据库应用系统是指系统开发人员利用数据库系统资源开发出来，面向某一类信息处理问题而建立软件系统。数据库系统用户自己编写、基于数据库数据程序称为应用程序，针对某一数据库管理而编制一组应用程序形成该数据库应用系统，它是数据库系统一个关键组成部分，它们和数据库上数据组成数据库中最活跃部分。4.2 数据库结构设计为了实现管理信息系统计算机化，仅仅用文字来描述信息流动和存放还远远不够，还要深入调查分析舍去物质流，抽象出信息流，定义出数据库,各数据表结构，并对多种数据属性和各项处理功效进行具体分析。系统分析关键结果是系统逻辑模型。经过对该系统研究,将系统数据分为以下多个表:用户信息表,定金表,房屋表,押金表,求租，预定表和租金等多个表,各表具体设计结构以下:用户信息表:字段名类型宽度小数位数用户编号字符型10租户姓名字符型6工作单位字符型20联络电话字符型2性别字符型8租户人数字符型20身份证编号字符型20备注备注型4定金表:字段名类型宽度小数位数收费编号字符型10定金金额字符型10预定金编号字符型10收费日期日期型8预定用户字符型10预定房屋编号字符型10备注备注型房屋表:字段名类型宽度小数位数房屋编号字符型8物业地址字符型10房型字符型20建筑面积数值型52使用面积数值型52装修情况字符型10出租价位数值型52现在状态字符型字符型备注备注型押金表:字段名类型宽度小数位数收费编号字符型10押金金额数值型52收费日期日期型8协议编号字符型10用户姓名字符型8房屋编号字符型10备注备注型求租表:字段名类型宽度小数位数求租用户编号字符型10求租用户姓名字符型10电话字符型15房型要求字符型50面积要求数值型52装修要求字符型50意向价位数值型52意向房屋编号字符型10备注备注租金表:字段名类型宽度小数位数收费编号字符型10租金年份日期型8租金月份日期型8应交租金数值型52已交租金数值型52久费金额数值型52用户姓名字符型10交费日期日期型8备注备注4.3系统主界面设计开启系统后，主界面设计效果图以下: 公用模块设计代码分析以下:Option ExplicitPublic conn As New ADODB.Connection定义全局变量queryhouse 作为判定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 窗体家企业户选项卡显示查询数据还是全体数据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定义全局变量sqlqzc 作为查询求租用户信息时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窗体中单击下定金预定调用还是直接菜单调用Public fromqzc As Boolean定义全局变量fromYuding 作为判定frmPayDingJin 窗体是从frmYuDing窗体中单击收取定金调用还是直接菜单调用Public fromYuding As Boolean定义全局变量fromContract 作为判定frmPayYaJin 窗体是从frmSignContract窗体中单击收取押金调用还是直接菜单调用Public fromContract As Boolean定义全局变量ZuJinfromContract 作为判定frmPayZuJin 窗体是从frmSignContract窗体中单击收取租金调用还是直接菜单调用Public ZuJinfromContract As Boolean定义全局变量queryZuJin 作为判定frmAdminZuJin 窗体显示查询数据还是全体数据Public queryZuJin As Boolean定义全局变量sqlqzj 作为查询协议信息时sql语句Public sqlqzj As String定义全局变量sqlqdj 作为查询定金信息时sql语句Public sqlqdj As String定义全局变量sqlqyj 作为查询押金信息时sql语句Public sqlqyj As String4.3 各关键功效模块设计和实现431基础资料管理模块设计房屋基础资料管理运行效果图以下:其表单界面属性设计比较直观,在此关键分析新增,修改,删除,保留四个命令按钮源代码设计：新增按钮源码:Private Sub cmdAdd_Click() 设置除保留和取消按钮外其它按钮不可用 cmdAdd.Enabled = False cmdEdit.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 Combo1.Enabled = True add变量用于保留时判定是从添加还是修改后保留 add = 1 Text1(0).SetFocus End SubPrivate 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 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 = True 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 If 假如是修改后取消，则恢复到修改前数据 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框不可写 For i = 0 To 7 Text1(i).Enabled = False Next i 先设置ComboBox默认值及不可改 Combo1.Enabled = FalseEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub删除按钮源代码：Private Sub cmdDel_Click() 当单击删除统计时，需要弹出一个提醒框，警告用户 Dim answer As String answer = MsgBox(确定要删除吗？, vbYesNo, ) 确实删除 If answer = vbYes Then rs_house.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