毕业设计房屋租赁管理系统.docx
《毕业设计房屋租赁管理系统.docx》由会员分享，可在线阅读，更多相关《毕业设计房屋租赁管理系统.docx（26页珍藏版）》请在冰豆网上搜索。
毕业设计房屋租赁管理系统
滨江学院
《网站策划与设计》课程设计
题目房屋租赁管理系统
院系滨江学院计算机系
专业软件工程（动画方向）
学生姓名高敏
学号20092358029
指导教师姜青山
二0一二年六月十日
一序论
1.1课题来源
随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高物业管理的水平，是当今社会所面临的一个课题。
提高企业的管理水平，必须全方位地提高企业的管理意识。
只有高标准、高质量的管理才能满足企业的发展需求。
面对信息时代的挑战，利用高科技手段来提高房屋租赁管理无疑是一条行之有效的途径。
在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。
房租租赁管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。
随着计算机技术不断的飞速发展，计算机以及计算机控制的自动处理技术已融入人类社会的各个领域并发挥着越来越重要的作用。
对于当今的科学信息是一次重大的飞越，为人们的生活、工作、学习带来潜移默化的影响。
今天我们使用计算机对房屋租赁信息进行管理，具有手工管理所无法比拟的优点。
例如：
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高房屋租赁管理的效率。
面对目前的实际状况，迫切需要开发一个新系统来适应这一些工作.
1.2开发背景和开发目的
利用计算机实现物业管理中的房屋租赁管理势在必行。
对于物业管理企业来说，利用计算机支持企业高效率完成房屋租赁管理的日常事务，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而房屋租赁管理是一项琐碎、复杂而又十分细致的工作，房屋的基本资料,客户资料的管理,房屋租赁管理，各项收费以及统计报表的管理,一般不允许出错，如果实行手工操作,须手工填制大量的表格,这就会耗费工作人员大量的时间和精力，计算机进行房屋租赁工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高物业管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
开发本系统就是为了解决物业管理企业在房屋租赁信息管理中的一些不规范，使房屋租赁信息的管理向着规范化、简单化、有效化的方向发展。
二需求分析
2.1系统目标
采用企业现有的软硬件环境及科学的管理系统开发方案，建立房屋租赁信息管理系统，实现房屋租赁信息管理的计算机自动化。
系统应符合物业管理企业原有的房屋租赁管理制度，并达到操作直观、方便、实用、安全等要求。
2.2应用现状调查
当前，很多物业管理企业的房屋租赁信息管理都是以纸张为介质作记录，人力管理的比例比较大,往往是各个主要负责人以书面的形式管理房屋租赁信息,效率低下。
数据打印,汇总,成绩更新不及时，容易丢失,损坏数据给学校学生带来损失,不易保存且数据保密性较差。
2.3系统总体流程图如下:
2.4系统的数据流程图及分析
数据流程图
整个系统从总体上分为基本资料管理、客户资料管理、租赁管理、财务管理以及统计报表五大部分，每一部分实现的功能如下：
基本资料管理功能：
实现房屋基本资料的管理.
客户资料管理：
分租户基本资料跟求租户基本资料管理
租赁管理：
分为合同签订，合同续签，合同管理，预定租房，合同查询，预定单查询，出租到期提醒，预定到期提醒。
财务管理功能
分定金、押金、租金收取，租金管理，定金退还，押金退还。
统计报表功能：
房屋统计报表，租户统计报表，求租客户信息表，历史租户表，现有合同表，历史合同表，预定金统计，押金，定金统计，租金统计等功能
2.5系统功能模块图
四房屋租赁管理系统的详细设计
4.1数据库概要
4.1.2数据库管理系统
数据库管理系统，简称DBMS，是为数据库的建立，使用和维护而配置的软件，它提供了安全性和完整性等统一控制机制，方便用户管理和存取大量的数据资源。
例如，VisualBasic6.0就是微机上使用的一种数据管理系统。
在数据库管理系统的支持下，数据完全独立于应用程序，并且能被多个用户或程序共享，其关系如图所示。
应用程序1
应用程序2
应用程序3
应用程序与数据库的关系
数据库管理系统一般具备数据库的定义、操作、查询及控制等功能。
它将所有应用程序使用的数据汇集起来，建立数据库，使之面对所有应用程序的查询和访问。
因此，作为访问者的应用程序相对于数据库来说是独立的，而作为被访问的数据在数据库中同样是独立的。
当要建立新的数据管理系统时，只要生成一个新的应用程序即可，它可以立即使用现成的数据库，而不必建立新的数据文件。
数据库管理系统是为数据库的建立、使用、管理和维护而配置的软件。
它建立在操作系统的基础上，对数据库进行统一的管理和控制。
用户使用的各种数据库命令以及应用程序的执行都要通过数据库管理系统。
数据库管理系统还承担着数据库的维护工作，保证数据库的安全性和完整性。
数据库管理系统的功能体现在“管理”二字上。
它针对不同的用户及不同的使用目的，提供给用户各种操作、管理数据库的命令、函数、控件和对象，以帮助用户完成任务。
其主要功能如下：
定义数据库
根据用户设计的数据结构,建立数据库结构组织.
存取数据
它包括很多基本操作:
输入、更新、插入、检索、删除、输出、统计、排序、索引等。
数据库运行管理
所有数据库的操作都要在数据库管理系统的饿控制程序的统一管理下进行，以保证正确运行，保证数据库正确有效。
数据库系统的维护
系统维护是一项重要的工作，它包括数据库的转存、恢复、数据库的重组及性能监视、分析等。
由上可见，数据库管理系统是一个能使用和管理数据库中数据的软件。
这是数据库系统与文件系统的一个最大的区别。
数据库管理系统功能的强弱基本上决定了整个数据库系统功能。
4.2数据库的结构设计
为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，定义出数据库,各数据表的结构，并对各种数据的属性和各项处理功能进行详细分析。
系统分析的主要成果是系统的逻辑模型。
通过对该系统的研究,将系统数据分为以下几个表:
客户信息表,定金表,房屋表,押金表,求租，预定表以及租金等几个表,各表的具体设计结构如下:
客户信息表:
字段名
类型
宽度
小数位数
客户编号
字符型
10
租户姓名
字符型
6
工作单位
字符型
20
联系电话
字符型
2
性别
字符型
8
租户人数
字符型
20
身份证编号
字符型
20
备注
备注型
4
定金表:
字段名
类型
宽度
小数位数
收费编号
字符型
10
定金金额
字符型
10
预定金编号
字符型
10
收费日期
日期型
8
预定客户
字符型
10
预定房屋编号
字符型
10
备注
备注型
房屋表:
字段名
类型
宽度
小数位数
房屋编号
字符型
8
物业地址
字符型
10
房型
字符型
20
建筑面积
数值型
5
2
使用面积
数值型
5
2
装修情况
字符型
10
出租价位
数值型
5
2
目前状态
字符型
字符型
备注
备注型
押金表:
字段名
类型
宽度
小数位数
收费编号
字符型
10
押金金额
数值型
5
2
收费日期
日期型
8
合同编号
字符型
10
客户姓名
字符型
8
房屋编号
字符型
10
备注
备注型
求租表:
字段名
类型
宽度
小数位数
求租客户编号
字符型
10
求租客户姓名
字符型
10
电话
字符型
15
房型要求
字符型
50
面积要求
数值型
5
2
装修要求
字符型
50
意向价位
数值型
5
2
意向房屋编号
字符型
10
备注
备注
租金表:
字段名
类型
宽度
小数位数
收费编号
字符型
10
租金年份
日期型
8
租金月份
日期型
8
应交租金
数值型
5
2
已交租金
数值型
5
2
久费金额
数值型
5
2
客户姓名
字符型
10
交费日期
日期型
8
备注
备注
4.3系统主界面的设计
启动系统后，主界面设计效果图如下:
公用模块的设计代码分析如下:
OptionExplicit
PublicconnAsNewADODB.Connection
'定义全局变量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语句
PublicsqlqyjAsString
4.3各主要功能模块的设计与实现
4．3．1基本资料管理模块设计
房屋基本资料管理的运行效果图如下:
其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码设计：
新增按钮源码:
PrivateSubcmdAdd_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框，并且设置它们可写
Fori=0To7
Text1（i）.Text=""
Text1（i）.Enabled=True
Nexti
Combo1.Enabled=True
'add变量用于保存时判断是从添加还是修改后保存
add=1
Text1（0）.SetFocus
EndSub
PrivateSubcmdCancel_Click（）
'取消按钮用于用户添加或修改过程中放弃添加或修改操作
cmdSave.Enabled=False
cmdCancel.Enabled=False
cmdAdd.Enabled=True
cmdQuery.Enabled=True
'如果是从添加后取消
Ifadd=1Then
'如果当前House表中有数据则显示第一条数据
IfNotrs_house.EOFAndNotrs_house.BOFThen
Fori=0To7
Text1（i）.Text=rs_house.Fields（i）
Nexti
Ifrs_house.Fields（8）="已租"Then
Combo1.ListIndex=0
ElseIfrs_house.Fields（8）="未租"Then
Combo1.ListIndex=1
ElseIfrs_house.Fields（8）="意向"Then
Combo1.ListIndex=2
EndIf
cmdEdit.Enabled=True
cmdDel.Enabled=True
cmdFirst.Enabled=True
cmdPrev.Enabled=True
cmdNext.Enabled=True
cmdLast.Enabled=True
'如果没有数据，则显示空
Else
Fori=0To7
Text1（i）.Text=""
Nexti
cmdEdit.Enabled=False
cmdDel.Enabled=False
cmdFirst.Enabled=False
cmdPrev.Enabled=False
cmdNext.Enabled=False
cmdLast.Enabled=False
EndIf
'如果是修改后取消，则恢复到修改前的数据
ElseIfadd=0Then
Fori=0To7
Text1（i）.Text=rs_house.Fields（i）
Nexti
Ifrs_house.Fields（8）="已租"Then
Combo1.ListIndex=0
ElseIfrs_house.Fields（8）="未租"Then
Combo1.ListIndex=1
ElseIfrs_house.Fields（8）="意向"Then
Combo1.ListIndex=2
EndIf
EndIf
'开始时设置各个text框不可写
Fori=0To7
Text1（i）.Enabled=False
Nexti
'先设置ComboBox的默认值及不可改
Combo1.Enabled=False
EndSub
PrivateSubcmdClose_Click（）
UnloadMe
EndSub
删除按钮的源代码：
PrivateSubcmdDel_Click（）
'当单击删除记录时，需要弹出一个提示框，警告用户
DimanswerAsString
answer=MsgBox（"确定要删除吗？
",vbYesNo,""）
'确实删除
Ifanswer=vbYesThen
rs_house.Delete'删除当前记录
rs_house.Update'更新删除
MsgBox"成功删除！
",vbOKOnly+vbExclamation,""
Else
ExitSub
EndIf
'删除之后，显示总信息条数需要减1
Text2.Text=Val（Text2.Text）-1
'删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录
'先移动rs_house记录到后一条
rs_house.MoveNext
Ifrs_house.EOFThen
rs_house.MovePrevious
'如果没有到记录首则显示该记录
IfNotrs_house.BOFThen
Fori=0To7
Text1（i）.Text=rs_house.Fields（i）
Nexti
Ifrs_house.Fields（8）="已租"Then
Combo1.ListIndex=0
ElseIfrs_house.Fields（8）="未租"Then
Combo1.ListIndex=1
ElseIfrs_house.Fields（8）="意向"Then
Combo1.ListIndex=2
EndIf
'如果到记录首，则表格已经为空，置所有text框显示为空
ElseIfrs_house.BOFThen
Fori=0To7
Text1（i）.Text=""
Nexti
cmdFirst.Enabled=False
cmdPrev.Enabled=False
cmdNext.Enabled=False
cmdLast.Enabled=False
EndIf
'如果删除的不是首尾记录，则显示当前记录即可
Else
Fori=0To7
Text1（i）.Text=rs_house.Fields（i）
Nexti
Ifrs_house.Fields（8）="已租"Then
Combo1.ListIndex=0
ElseIfrs_house.Fields（8）="未租"Then
Combo1.ListIndex=1
ElseIfrs_house.Fields（8）="意向"Then
Combo1.ListIndex=2
EndIf
EndIf
EndSub
保存按钮的源代码：
PrivateSubcmdEdit_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框可写
Fori=1To7
Text1（i）.Enabled=True
Nexti
Combo1.Enabled=True
add=0
EndSub
PrivateSubcmdFirst_Click（）
'先移动rs_house记录到第一条
rs_house.MoveFirst
'同时需要设置相应按钮为不可用和不可用
cmdPrev.Enabled=False
cmdFirst.Enabled=False
cmdNext.Enabled=True
cmdLast.Enabled=True
'如果已经是第一条记录，则提示用户
Ifrs_house.BOF=TrueThen
MsgBox"对不起，已经是第一条记录了！
",vbOKOnly+vbInformation,"注意"
ExitSub
'如果不是，则个数据表的记录位置移到第一条记录，并且显示之
Else
Fori=0To7
Text1（i）.Text=rs_house.Fields（i）
Nexti
Ifrs_house.Fields（8）="已租"Then
Combo1.ListIndex=0
ElseIfrs_house.Fields（8）="未租"Then
Combo1.ListIndex=1
ElseIfrs_house.Fields（8）="意向"Then
Combo1.ListIndex=2
EndIf
EndIf
EndSubPREV
检索按钮的源代码：
4．3．2客户资料管理模块的设计
4．3．2．1租户基本资料的设计
运行效果图如下所示:
在租户基本资料中，我们重点分析查找家庭租户功能的源码，如下:
PrivateSubcmdQuery_Click（）
IfText1.Text=""Then
MsgBox"查询条件不可为空！
",vbOKOnly+
升级会员 