房屋租售系统的设计与实现Word文件下载.doc
《房屋租售系统的设计与实现Word文件下载.doc》由会员分享，可在线阅读，更多相关《房屋租售系统的设计与实现Word文件下载.doc（34页珍藏版）》请在冰点文库上搜索。
1.1.2.研究的现状 1
1.2研究新趋势 2
1.2.1.完善房地产信息管理系统 2
1.2.2.信息公开化，接受政府的监管 2
1.2.3.提高信息管理水平 2
1.3研究意义 3
1.4系统的特征和设计原则 3
1.4.1.系统的特征 3
①系统功能完备 3
②数据服务对象广泛 3
③兼容性好 3
1.4.2.设计原则 4
①通用性原则 4
②模块化原则 4
③整体性原则 4
④发展性原则 4
1.5研究的框架 4
1.5.1.房屋信息的查询 4
1.5.2.房屋数据的管理 5
1.5.3.交易公告栏 5
1.5.4.邮件联系 5
1.5.5.登录和退出系统 5
2、系统技术平台 5
2.1VisualBasic 5
2.2Access 5
3、系统的分析和设计 6
3.1系统的分析 6
3.2系统的设计 7
3.2.1.总体结构设计 7
①登录界面设计 7
②系统信息管理界面设计 9
③房屋管理界面设计 13
④公告栏界面设计 19
⑤发送邮件界面设计 21
3.2.2.数据库设计 25
4、结束语 27
参考文献：
29
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"
用户名不存在！
txtname.Text="
txtname.SetFocus
ExitSub
EndIf
IfLCase（txtpwd.Text）<
>
Login_rs
（1）Then
用户密码错误！
txtpwd.Text="
txtpwd.SetFocus
Pwdtimes=Pwdtimes+1
IfPwdtimes>
=3Then
MsgBox"
密码输入错误超过3次！
系统强制退出！
End
ExitSub
SetLogin_rs=Nothing
Loginname=LCase（Trim（txtname.Text））
Access=1
Loadfrmmain
frmmain.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
IfMsgBox（"
确实要退出吗？
vbQuestion+vbYesNo+vbDefaultButton2,App.Title）=vbYesThen_
②系统信息管理界面设计
该模块汇总了与房屋有关的所有属性，包括：
房屋户型、地理位置、面积、价格等各个属性均能实现属性的添加、删除等功能。
下面以设置地理位置为例进行展示。
该模块可以进行地理位置的添加和删除操作。
当用户未进行序号或地理位置输入时，系统将会给出提示框。
按照需要在信息添加成功后，将会弹出提示框。
单击退出按钮时，将会推出该模块。
PrivateSubCommand1_Click（）
IfTrim（Text1.Text）="
MsgBox"
对不起，序号不能为空"
Text1.SetFocus
ExitSub
EndIf
IfTrim（Text2.Text）="
对不起，地理位置不能为空"
Text2.SetFocus
DimrsAsNewADODB.Recordset
rs.Open"
select*from地理位置where编号='
Trim（Text1.Text）&
IfNotrs.EOFThen
MsgBox"
此序号已经存在"
Text1.Text="
Text1.SetFocus
ExitSub
Else
sql="
insertinto地理位置values（'
'
Trim（Text2.Text）&
）"
Ifexsql（sql）Then
Calldatagrid
添加成功"
Text2.Text="
EndIf
Subdatagrid（）
DimsqlAsString
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset
HFGrid.ColWidth（0）=Me.HFGrid.Width/2
HFGrid.ColWidth
（1）=Me.HFGrid.Width/2
select编号as序号,地理位置from地理位置"
SetHFGrid.DataSource=rs
DimstrAsString
DimstrSqlAsString
str=MsgBox（"
你真的要删除吗"
vbInformation+vbYesNo,App.Title）
Ifstr=vbYesThen
strSql="
deletefrom地理位置where编号='
Me.HFGrid.TextMatrix（HFGrid.Row,0）&
Ifexsql（strSql）Then
MsgBox"
删除成功"
Calldatagrid
ExitSub
PrivateSubCommand3_Click（）
UnloadMe
PrivateSubForm_Load（）
PositionMe
③房屋管理界面设计
该模块将会实现四个功能：
房屋信息的添加、支付方式、成本及报价和备注。
房屋信息添加的模块，凡是后台有数据库的房屋属性均设计成下拉框的形式方便用户选择。
用户可以根据实际情况录入房屋信息，单击保存后，该数据将会返回到后台数据库中。
该模块功能实现的代码如下：
Subtjj（）
DimlistAsNewADODB.Recordset
list.Open"
Select价格from价格"
DoWhileNotlist.EOF
Combo1.AddItemlist（0）
list.MoveNext
Loop
DimrssdAsNewADODB.
升级会员 