毕业设计房屋租赁管理系统.docx

1、毕业设计房屋租赁管理系统滨江学院 网站策划与设计课程设计题 目 房屋租赁管理系统 院 系 滨江学院计算机系专 业 软件工程（动画方向）学生姓名 高敏 学 号 20092358029 指导教师 姜青山 二0 一二 年 六 月 十 日一 序论 1.1课题来源随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高物业管理的水平，是当今社会所面临的一个课题。提高企业的管理水平，必须全方位地提高企业的管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高房屋租赁管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设

2、中显现出越来越重要的地位。房租租赁管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。 随着计算机技术不断的飞速发展，计算机以及计算机控制的自动处理技术已融入人类社会的各个领域并发挥着越来越重要的作用。对于当今的科学信息是一次重大的飞越，为人们的生活、工作、学习带来潜移默化的影响。今天我们使用计算机对房屋租赁信息进行管理，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高房屋租赁管理的效率。面对目前的实际状况，迫切需要开发一个新系统来适应这一些工作.1.2 开发背景和开发目的利用计算机实现物业管理中的房

3、屋租赁管理势在必行。对于物业管理企业来说，利用计算机支持企业高效率完成房屋租赁管理的日常事务，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而房屋租赁管理是一项琐碎、复杂而又十分细致的工作，房屋的基本资料,客户资料的管理,房屋租赁管理，各项收费以及统计报表的管理,一般不允许出错，如果实行手工操作,须手工填制大量的表格,这就会耗费工作人员大量的时间和精力，计算机进行房屋租赁工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高物业管理的效

4、率,也是企业的科学化、正规化管理,与世界接轨的重要条件。开发本系统就是为了解决物业管理企业在房屋租赁信息管理中的一些不规范，使房屋租赁信息的管理向着规范化、简单化、有效化的方向发展。二 需求分析2.1 系统目标采用企业现有的软硬件环境及科学的管理系统开发方案，建立房屋租赁信息管理系统，实现房屋租赁信息管理的计算机自动化。系统应符合物业管理企业原有的房屋租赁管理制度，并达到操作直观、方便、实用、安全等要求。2.2 应用现状调查 当前，很多物业管理企业的房屋租赁信息管理都是以纸张为介质作记录，人力管理的比例比较大,往往是各个主要负责人以书面的形式管理房屋租赁信息,效率低下。数据打印,汇总,成绩更新

5、不及时，容易丢失,损坏数据给学校学生带来损失,不易保存且数据保密性较差。2.3系统总体流程图如下: 2.4 系统的数据流程图及分析数据流程图整个系统从总体上分为基本资料管理、客户资料管理、租赁管理、财务管理以及统计报表五大部分，每一部分实现的功能如下：基本资料管理功能：实现房屋基本资料的管理.客户资料管理：分租户基本资料跟求租户基本资料管理租赁管理：分为合同签订，合同续签，合同管理，预定租房，合同查询，预定单查询，出租到期提醒，预定到期提醒。财务管理功能分定金、押金、租金收取，租金管理，定金退还，押金退还。统计报表功能：房屋统计报表，租户统计报表，求租客户信息表，历史租户表，现有合同表，历史合

6、同表，预定金统计，押金，定金统计，租金统计等功能2.5系统功能模块图 四 房屋租赁管理系统的详细设计4.1数据库概要4.1.2 数据库管理系统数据库管理系统，简称DBMS，是为数据库的建立，使用和维护而配置的软件，它提供了安全性和完整性等统一控制机制，方便用户管理和存取大量的数据资源。例如，Visual Basic 6.0就是微机上使用的一种数据管理系统。在数据库管理系统的支持下，数据完全独立于应用程序，并且能被多个用户或程序共享，其关系如图所示。 应用程序1应用程序2应用程序3应用程序与数据库的关系数据库管理系统一般具备数据库的定义、操作、查询及控制等功能。它将所有应用程序使用的数据汇集起来

7、，建立数据库，使之面对所有应用程序的查询和访问。因此，作为访问者的应用程序相对于数据库来说是独立的，而作为被访问的数据在数据库中同样是独立的。当要建立新的数据管理系统时，只要生成一个新的应用程序即可，它可以立即使用现成的数据库，而不必建立新的数据文件。数据库管理系统是为数据库的建立、使用、管理和维护而配置的软件。它建立在操作系统的基础上，对数据库进行统一的管理和控制。用户使用的各种数据库命令以及应用程序的执行都要通过数据库管理系统。数据库管理系统还承担着数据库的维护工作，保证数据库的安全性和完整性。数据库管理系统的功能体现在“管理”二字上。它针对不同的用户及不同的使用目的，提供给用户各种操作、

8、管理数据库的命令、函数、控件和对象，以帮助用户完成任务。其主要功能如下： 定义数据库 根据用户设计的数据结构,建立数据库结构组织. 存取数据 它包括很多基本操作:输入、更新、插入、检索、删除、输出、统计、排序、索引等。 数据库运行管理 所有数据库的操作都要在数据库管理系统的饿控制程序的统一管理下进行，以保证正确运行，保证数据库正确有效。 数据库系统的维护 系统维护是一项重要的工作，它包括数据库的转存、恢复、数据库的重组及性能监视、分析等。由上可见，数据库管理系统是一个能使用和管理数据库中数据的软件。这是数据库系统与文件系统的一个最大的区别。数据库管理系统功能的强弱基本上决定了整个数据库系统功能

9、。4.2 数据库的结构设计 为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，定义出数据库,各数据表的结构，并对各种数据的属性和各项处理功能进行详细分析。系统分析的主要成果是系统的逻辑模型。通过对该系统的研究,将系统数据分为以下几个表:客户信息表,定金表,房屋表,押金表,求租，预定表以及租金等几个表,各表的具体设计结构如下:客户信息表:字段名类型宽度小数位数客户编号字符型10租户姓名字符型6工作单位字符型20联系电话字符型2性别字符型8租户人数字符型20身份证编号字符型20备注备注型4定金表:字段名类型宽度小数位数收费编号字

10、符型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意向

11、房屋编号字符型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

12、 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 窗体

13、显示查询的数据还是全体数据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定义全局变量sqlq

14、con 作为查询合同信息时的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

15、 作为判断frmPayYaJin 窗体是从frmSignContract窗体中单击收取押金调用的还是直接菜单调用的Public fromContract As Boolean定义全局变量ZuJinfromContract 作为判断frmPayZuJin 窗体是从frmSignContract窗体中单击收取租金调用的还是直接菜单调用的Public ZuJinfromContract As Boolean定义全局变量queryZuJin 作为判断frmAdminZuJin 窗体显示查询的数据还是全体数据Public queryZuJin As Boolean定义全局变量sqlqzj 作为查询合同信

16、息时的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 = Fals

17、e 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

18、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.EO

19、F 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 = T

20、rue 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

21、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

22、 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 删

23、除当前记录 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.BOF Then Fo

24、r 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 = 0 To 7 Tex

25、t1(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) = 未租 Then Com

26、bo1.ListIndex = 1 ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2 End If End IfEnd Sub保存按钮的源代码：Private Sub cmdEdit_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPr

27、ev.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 = 0End SubPrivate Sub cmdFirst_Click() 先移动rs_house记录到第一条 rs_house.MoveFirst 同时需要设置相应按钮为不可用和不可用 cmdPrev.Enabled = False

28、 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_house.Fields(8) = 已租 Then

29、 Combo1.ListIndex = 0 ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1 ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2 End If End IfEnd SubPREV检索按钮的源代码：432 客户资料管理模块的设计4321租户基本资料的设计运行效果图如下所示:在租户基本资料中，我们重点分析查找家庭租户功能的源码，如下:Private Sub cmdQuery_Click() If Text1.Text = Then MsgBox 查询条件不可为空！, vbOKOnly +