《房屋租售系统的设计与实现》.docx
《《房屋租售系统的设计与实现》.docx》由会员分享，可在线阅读，更多相关《《房屋租售系统的设计与实现》.docx（31页珍藏版）》请在冰点文库上搜索。
《房屋租售系统的设计与实现》
天津外国语大学
本科毕业论文
房地产管理系统的设计与实现
Designandimplementationofrealestateprojectsystem
学科专业：
教育技术学
学生姓名：
王珠琳
学生学号：
0805114075
指导教师：
庞珊娜
定稿时间：
____________
中文摘要
随着我国经济的快速发展，我国住房制度的深入变革，房地产行业发展迅猛，房地产交易日趋繁荣。
在新的市场条件下，如何提高房地产行业的管理水平已经成为社会上备受关注的话题。
实现房产交易的信息化管理，将是解决实际问题，提升房地产行业有效管理水平的必由之路。
本文主要分析房地产行业租售管理业务的实际需要，在VisualBasic和MicrosoftAccess的环境下开发了一套房屋租售系统。
在深入研究房地产行业的现状和发展前景的前提下，在进行需求分析、结构设计、数据库设计的过程中，提出了一套完整的房屋租售系统的设计方案。
对房屋的数据资料、交易情况等信息的输入、查询、修改、删除、存档等问题进行了不同版块的设计,操作方便，界面友好，详细介绍了各个模块是如何进行功能实现的。
关键词：
房地产；管理系统；设计
ABSTRACT
WiththefasteconomicdevelopmentandgreatreformofhousingsysteminChina,therealestateindustryboomcomesandthetradeofrealestateismoreandmoreprosperous.Inthenewmarketconditions,howtoenhancethemanagementlevelinrealestateindustryhasbecomethemostconcernedtopicinsociety.Therealizationofinformationmanagementinthetradeofrealestatewouldbethenecessarywaytosolvingtheactualproblemsandenhancingthevalidmanagementlevelofrealestateindustry.ThispaperpresentsasystemforhousesaleandrentoperatedundertheenvironmentofVisualBasicandMicrosoftAccessafteranalyzingtheactualdemandinthemanagementofhousesaleandrent.Withdemandsanalysis,structuredesignanddatabasedesign,Ipresentthisentiredesignplanofsystemforhousesaleandrentafterdeeplyinvestigatedthecurrentsituationandprospectofrealestateindustry.Thissystemisabletodealwiththeinput,inquiry,modification,deletion,filingandsomeotheroperationsofinformationabouthouses’dataandtradingrecord.Itisconvenient,hasafriendlyinterfaceandspecifieshoweachmoduleworks.
KeyWords:
REALESTATE,MANAGEMENTSYSTEM,DESIGN
房地产管理系统的设计与实现
1、绪论
1.1研究的背景和现状
1.1.1.研究的背景
随着市场经济的迅猛发展，房地产制度的深入变革，房地产交易变得十分繁荣，房地产的销售、租赁等业务十分活跃。
房地产业务的不断扩大，也带来了庞大的信息量。
谁掌握的信息越多，谁越能够有效地利用信息，谁就赢得了主动权，增强竞争优势。
而长期以来，房地产交易业务信息都是有人员手工完成，工作量繁重，数据庞大复杂。
不利于企业进行长久的顾客信息、市场需求情况的分析，管理不规范、不科学等弊端渐渐浮现。
因此借助信息化的手段，将房地产管理推向“无纸化”，开发一套与之相符合的管理系统，实现房地产业务的信息管理，成为解决实际问题的关键。
这样的管理系统，需要在计算机的支持下，执行一系列的房屋信息添加和修改、项目成本及报价的管理、利用邮件的发送和公告栏等手段进行信息交流等操作，为用户提供一个完整的自动化交易平台。
实现了业务管理的计算机化、公开化。
对加强房地产交易管理的规范化，提高工作效率，增加管理的透明度和公众的参与热情，起到了积极的作用。
1.1.2.研究的现状
房地产交易信息管理技术在很多国家已经趋向成熟，但由于在我国起步尙晚，整体水平不是很高，并且地区间的差异较大。
房地产交易的信息管理技术在我国仍有很大的发展空间。
经过综合对比发现，我国的房地产信息管理仍存在很多问题。
总体来看，多年来，房地产行业没有建立完善的房地产交易管理信息系统，房地产交易业务基本上还是采用人工手写的模式。
当顾客需要了解房屋户型、地理位置、租售情况和价格等信息时，业务人员不能很好地利用现代化计算机技术进行处理，仍然采用人工的方法进行信息查询、登记、修改等填写大量的数据。
由于信息无法进行良好地动态流动，实时更新，系统无法很好地实现相关信息的汇总和分析，给房地产交易业务带来很大的不便。
庞大的信息依靠人工处理，造成人力资源浪费，管理效率低下，传统的管理手段难以适应网络时代的发展要求。
在目前开发的系统来看，普遍存在界面不友好，操作复杂，数据不能进行共享，进行公开服务等问题。
因此，建立一套能够进行房地产相关信息查询、信息汇总分析、操作便捷的管理系统，讲与房地产有关的业务整理到一个系统平台上来操作，将会提高工作人员的业务能力和工作效率，保证了信息的完整性，提高了信息的更新速度，促进了信息在顾客和管理者之间的共享，实现电子化、无纸化的管理。
目前很多房地产行业正在进行这样工作的尝试。
1.2研究新趋势
1.2.1.完善房地产信息管理系统
随着计算机和网络技术的普及，传统的操作方法不再适应业务扩大的需求。
新的房地产信息管理系统需要具备完善的信息管理功能。
例如房屋户型、地理位置、楼层状况、交通情况等各种满足顾客需求的信息查询、更新，信息之间的交流。
为顾客提供便捷的操作平台和真实有效的信息。
1.2.2.信息公开化，接受政府的监管
房地产行业的蓬勃发展，在带来巨大经济效益的同时，也渐渐浮现出很多问题。
所以，房地产交易业务信息应该公开化，在政府和企业间搭建平台，为政府进行宏观经济调控提供依据，政府据此进行信息分析工作，健全相应的规章制度，进行有效地调节，保证房地产行业的健康发展和协调运行。
1.2.3.提高信息管理水平
当今社会是信息化的社会，要迅速抓住商机，首先就要掌握大量的信息。
并能够有效地进行信息的汇总、分析和处理。
建立的信息管理系统要有实时更新数据的功能，为商家抓住机会、提高竞争能力、做出符合市场实际情况的决策提供条件，这就要求房地产行业不断提高信息管理水平。
1.3研究意义
利用计算机技术开发出科学、实用、高效的房地产信息管理系统，利用现代化手段进行业务管理、推动房地产业务的规范化，已经成为了时代的要求。
完善的信息管理系统能够替代人工进行交易处理，大大提高了业务效率；利用计算机进行数据处理，具有快速、方便、灵活、科学和准确等特征，提高了人力资源的利用率；数据库的建立，便于信息的汇总、分析和共享，为企业和政府的科学决策提供了依据；由于信息公开，公众可以更合理地进行房屋租售。
总体说来，完善的房地产信息管理系统的建立，为员促进了房地产行业的进一步发展。
1.4系统的特征和设计原则
1.4.1.系统的特征
①系统功能完备
系统提供的各种信息，能够以文字、图表等形式完整展现在用户计算机屏幕上，公司和社会公众可以及时了解房地产交易行情，灵活方便。
管理者可以按照市场行情的变化对房屋户型、地理位置、楼层高度、交通状况、租售意愿等进行随时添加、删除、修改。
系统覆盖面十分广泛，房地产具体资料、交易情况和商家及消费者之间的信息联系平台。
②数据服务对象广泛
系统必须面向任何与房地产有关的服务对象，如管理者、顾客、政府和社会公众等。
这些服务对象之间的信息交流将带来庞大的数据。
数据之间联系十分复杂，需要系统具备较强编辑、统计和储存功能，便于进行分析比较。
③兼容性好
系统开发的平台和所使用的语言必须满足房地产交易信息的特点，以及计算机的承受能力。
由于房地产交易的数据复杂、联系紧密，还要兼顾数据共享和数据交换，要求系统具备良好的兼容性，以满足不同用户的需求。
1.4.2.设计原则
①通用性原则
系统的操作界面应该友好，同时尽可能的简化操作步骤。
建设该系统的目的在于应用，所以要求在分析房地产业务的特点的基础上进行设计，由于房地产行业的业务流程和数据收集具有一定程度上的相似性，因此，系统在总体设计时应该考虑到共性，结合当前的实际情况，力求实现通用化。
②模块化原则
为了使系统更加有效地进行工作，必须在设计时按照模块化进行划分。
对整个系统进行分析，划分不同功能，对不同的数据进行分类，建立数据库进行管理。
例如用户信息模块、房屋信息模块、相关者信息交流模块、交易信息模块等。
③整体性原则
为了使系统能够协调运行，保证总功能的实现，系统必须进行不断的完善，纵观全局，进行统一的设计规划。
将整个系统作为一个整体，对各个模块进行安排，在充分利用现有资源的前提下，产生协同效益，更好的实现总体功能。
④发展性原则
在系统的设计过程中，要充分考虑科学技术和市场经济的发展。
计算机技术更新速度之快、企业规模进一步扩张和顾客需求的多样化发展，必然会出现新的模式要求。
因此，系统要预留一部分空间来适应功能的更新和系统的升级。
注重系统的发展性，一遍今后可以更好地扩展和维护系统。
1.5研究的框架
1.5.1.房屋信息的查询
按照房屋的属性，可以进行的查询有：
房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋的成本和报价、房屋的名称和支付方式。
1.5.2.房屋数据的管理
房屋的数据管理包括房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋成本和报价等属性的添加、修改、删除等。
1.5.3.交易公告栏
交易公告栏主要由各个用户发表通知，有关房屋出租、房屋销售、最新房地产管理政策与制度等公告。
以便社会公众及时、快捷地了解房地产行业的动态变化。
1.5.4.邮件联系
邮件联系是为一对一沟通所设计的模块。
当用户有特定的交易者时，系统可以实现邮件联系功能。
为了方便用户操作，该模块设计了按钮点击弹出联系人选择框的功能。
1.5.5.登录和退出系统
登录系统时需要输入用户名，否则会弹出“用户名为空”的提示框，并且需要正确的密码，否则会弹出“密码错误”的提示框。
在点击退出按钮时，系统会提示“真的要退出系统吗？
”的对话框，防止用户的误操作，界面设计友好。
2、系统技术平台
2.1VisualBasic
VisualBasic是美国于1991年开发的一种可视化，面向对象和事件驱动的，结构化编程语言，可用于在Windows环境下开发的各种应用。
它是简单易学，高效率并且功能强大。
在VisualBasic环境中，通过事件驱动的编程机制、易于操作的可视化设计工具、以及应用程序接口（API）函数，动态链接库（DLL）和对象链接和嵌入（OLE），开放式数据连接（ODBC）技术的广泛的使用，在Windows环境下，可以高效，快速地开发强大和丰富的图形界面的应用软件系统。
VisualBasic6.0中的数据访问功能已大大提高，新的ADO组件，允许大量数据的快速访问成为可能。
数据环境和新的报告功能允许数据开发成为一种全新的体验。
VisualBasic6.0已经具备非常成熟和稳定开发功能，使企业迅速建立多层次的系统。
VB采用面向对象的设计思想，这种设计思想是，面对复杂的设计问题，能够使之实现独立完成和相对简单的收集对象的功能。
所谓的“对象”是一个可操作实体，如：
下拉框、按钮、标签、文本框。
在本文的设计中，正是运用VB6.0完成房屋租售系统的开发的。
2.2Access
MicrosoftAccess是由微软发布的一个关系数据库管理系统。
它具有MicrosoftJet数据库引擎和图形用户界面这两个功能的结合，是MicrosoftOffice软件之一。
MicrosoftAccess被广泛使用在许多地方，如小企业，大公司的各个部门，很多程序开发人员用其进行数据处理。
Access具有表、查询、窗体、报表、页、宏和模块，方便用户操作和使用。
Access是一个面向对象的开发工具，对数据库系统中使用的各种功能对象化。
利用对象的方法、属性，完成数据库的操作和使用，大大简化了用户的工作。
同时，基于面向对象的开发方法，使得可以更容易地进行应用程序的开发。
Access是一个可视化工具，操作起来非常方便和直观。
本文利用MicrosoftAccess数据库建立了房屋租售系统里必备的数据库。
3、系统的分析和设计
3.1系统的分析
系统的功能模块图
房屋信息实体
邮件信息实体
成本报价信息实体
3.2系统的设计
3.2.1.总体结构设计
①登录界面设计
为了保证系统的安全和界面的友好，用户需要进行用户名和密码的正确输入，才可进入系统，如果没有通过验证，则需要返回登录界面重新输入，且点击退出按钮时，将会弹出提示对话框，防止用户的误操作。
该功能实现的代码如下：
PrivateSubcmdenter_Click（）
IfTrim（txtname）=""Then
MsgBox"对不起，请输入用户名",vbInformation,App.Title
txtname.SetFocus
ExitSub
EndIf
DimLogin_rsAsNewADODB.Recordset
Login_rs.Open"select用户名,密码from系统管理where用户名='"&Trim（txtname.Text）&"'",CN,1,3
IfLogin_rs.EOFThen
MsgBox"用户名不存在！
",vbInformation,App.Title
txtname.Text=""
txtname.SetFocus
ExitSub
EndIf
IfLCase（txtpwd.Text）<>Login_rs
（1）Then
MsgBox"用户密码错误！
",vbInformation,App.Title
txtpwd.Text=""
txtpwd.SetFocus
Pwdtimes=Pwdtimes+1
IfPwdtimes>=3Then
MsgBox"密码输入错误超过3次！
系统强制退出！
",vbInformation,App.Title
End
EndIf
ExitSub
EndIf
SetLogin_rs=Nothing
Loginname=LCase（Trim（txtname.Text））
Access=1
Loadfrmmain
frmmain.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
IfMsgBox（"确实要退出吗？
",vbQuestion+vbYesNo+vbDefaultButton2,App.Title）=vbYesThen_
UnloadMe
EndSub
②系统信息管理界面设计
该模块汇总了与房屋有关的所有属性，包括：
房屋户型、地理位置、面积、价格等各个属性均能实现属性的添加、删除等功能。
下面以设置地理位置为例进行展示。
该模块可以进行地理位置的添加和删除操作。
当用户未进行序号或地理位置输入时，系统将会给出提示框。
按照需要在信息添加成功后，将会弹出提示框。
单击退出按钮时，将会推出该模块。
该功能实现的代码如下：
PrivateSubCommand1_Click（）
IfTrim（Text1.Text）=""Then
MsgBox"对不起，序号不能为空",vbInformation,App.Title
Text1.SetFocus
ExitSub
EndIf
IfTrim（Text2.Text）=""Then
MsgBox"对不起，地理位置不能为空",vbInformation,App.Title
Text2.SetFocus
ExitSub
EndIf
DimrsAsNewADODB.Recordset
rs.Open"select*from地理位置where编号='"&Trim（Text1.Text）&"'",CN,1,3
IfNotrs.EOFThen
MsgBox"此序号已经存在",vbInformation,App.Title
Text1.Text=""
Text1.SetFocus
ExitSub
Else
sql="insertinto地理位置values（'"&Trim（Text1.Text）&"','"&Trim（Text2.Text）&"'）"
Ifexsql（sql）Then
Calldatagrid
MsgBox"添加成功",vbInformation,App.Title
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndIf
EndIf
EndSub
Subdatagrid（）
DimsqlAsString
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset
HFGrid.ColWidth（0）=Me.HFGrid.Width/2
HFGrid.ColWidth
（1）=Me.HFGrid.Width/2
rs.Open"select编号as序号,地理位置from地理位置",CN,1,3
SetHFGrid.DataSource=rs
EndSub
PrivateSubCommand2_Click（）
DimstrAsString
DimstrSqlAsString
str=MsgBox（"你真的要删除吗",vbInformation+vbYesNo,App.Title）
Ifstr=vbYesThen
strSql="deletefrom地理位置where编号='"&Me.HFGrid.TextMatrix（HFGrid.Row,0）&"'"
Ifexsql（strSql）Then
MsgBox"删除成功",vbInformation,App.Title
Calldatagrid
ExitSub
EndIf
EndIf
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
PositionMe
Calldatagrid
EndSub
③房屋管理界面设计
该模块将会实现四个功能：
房屋信息的添加、支付方式、成本及报价和备注。
房屋信息添加的模块，凡是后台有数据库的房屋属性均设计成下拉框的形式方便用户选择。
用户可以根据实际情况录入房屋信息，单击保存后，该数据将会返回到后台数据库中。
该模块功能实现的代码如下：
Subtjj（）
DimlistAsNewADODB.Recordset
list.Open"Select价格from价格",CN,1,3
DoWhileNotlist.EOF
Combo1.AddItemlist（0）
list.MoveNext
Loop
DimrssdAsNewADODB.Recordset
rssd.Open"select面积from面积",CN,1,3
DoWhileNotrssd.EOF
Combo2.AddItemrssd（0）
rssd.MoveNext
Loop
Dimrss4AsNewADODB.Recordset
rss4.Open"select地理位置from地理位置",CN,1,3
DoWhileNotrss4.EOF
Combo4.AddItemrss4（0）
rss4.MoveNext
Loop
Dimrss5AsNewADODB.Recordset
rss5.Open"select房屋楼层from房屋楼层",CN,1,3
DoWhileNotrss5.EOF
Combo5.AddItemrss5（0）
rss5.MoveNext
Loop
Dimrss6AsNewADODB.Recordset
rss6.Open"select房屋户型from房屋户型",CN,1,3
DoWhileNotrss6.EOF
Combo6.AddItemrss6（0）
rss6.MoveNext
Loop
Dimrss9AsNewADODB.Recordset
rss9.Open"select交通线路from交通线路",CN,1,3
DoWhileNotrss9.EOF
Combo9.AddItemrss9（0）
rss9.MoveNext
Loop
Combo1.ListIndex=0
Combo2.ListIndex=0
Combo4.ListIndex=0
Combo5.ListIndex=0
Combo6.ListIndex=0
Combo9.ListIndex=0
EndSub
支付方式模块，主要用来房屋名称和支付方式的录入。
在单击加号按钮以后，弹出对话框，用户可以根据实际情况进行数据录入，单击添加按钮后，数据会显示出来，确认无误单击保存以后，数据将会返回后台数据库。
单击退出按钮即可退出该模块。
PrivateSubForm_Load（）
HFGrid.FormatString="房屋名称|支付方式"
hfgrid1.FormatString="成本项目|成本|报价|说明"
Calltjj
HFGrid.ColWidt
升级会员 