房屋租售系统的设计与实现.docx

1、房屋租售系统的设计与实现天津外国语大学本科毕业论文房地产管理系统的设计与实现Design and implementation of real estate project system学科专业： 教育技术学 * * 学生学号： * * * 定稿时间：_ 中文摘要随着我国经济的快速发展，我国住房制度的深入变革，房地产行业发展迅猛，房地产交易日趋繁荣。在新的市场条件下，如何提高房地产行业的管理水平已经成为社会上备受关注的话题。实现房产交易的信息化管理，将是解决实际问题，提升房地产行业有效管理水平的必由之路。本文主要分析房地产行业租售管理业务的实际需要，在Visual Basic和Microsof

2、t Access的环境下开发了一套房屋租售系统。在深入研究房地产行业的现状和发展前景的前提下，在进行需求分析、结构设计、数据库设计的过程中，提出了一套完整的房屋租售系统的设计方案。对房屋的数据资料、交易情况等信息的输入、查询、修改、删除、存档等问题进行了不同版块的设计,操作方便，界面友好，详细介绍了各个模块是如何进行功能实现的。关键词：房地产；管理系统；设计ABSTRACTWith the fast economic development and great reform of housing system in China, the real estate industry boom co

3、mes and the trade of real estate is more and more prosperous. In the new market conditions, how to enhance the management level in real estate industry has become the most concerned topic in society. The realization of information management in the trade of real estate would be the necessary way to

4、solving the actual problems and enhancing the valid management level of real estate industry. This paper presents a system for house sale and rent operated under the environment of Visual Basic and Microsoft Access after analyzing the actual demand in the management of house sale and rent. With dema

5、nds analysis, structure design and database design, I present this entire design plan of system for house sale and rent after deeply investigated the current situation and prospect of real estate industry. This system is able to deal with the input, inquiry, modification, deletion, filing and some o

6、ther operations of information about houses data and trading record. It is convenient, has a friendly interface and specifies how each module works.Key Words: REAL ESTATE, MANAGEMENT SYSTEM, DESIGN房地产管理系统的设计与实现1、绪论1.1研究的背景和现状1.1.1.研究的背景随着市场经济的迅猛发展，房地产制度的深入变革，房地产交易变得十分繁荣，房地产的销售、租赁等业务十分活跃。房地产业务的不断扩大，也

7、带来了庞大的信息量。谁掌握的信息越多，谁越能够有效地利用信息，谁就赢得了主动权，增强竞争优势。而长期以来，房地产交易业务信息都是有人员手工完成，工作量繁重，数据庞大复杂。不利于企业进行长久的顾客信息、市场需求情况的分析，管理不规范、不科学等弊端渐渐浮现。因此借助信息化的手段，将房地产管理推向“无纸化”，开发一套与之相符合的管理系统，实现房地产业务的信息管理，成为解决实际问题的关键。这样的管理系统，需要在计算机的支持下，执行一系列的房屋信息添加和修改、项目成本及报价的管理、利用邮件的发送和公告栏等手段进行信息交流等操作，为用户提供一个完整的自动化交易平台。实现了业务管理的计算机化、公开化。对加强

8、房地产交易管理的规范化，提高工作效率，增加管理的透明度和公众的参与热情，起到了积极的作用。1.1.2.研究的现状房地产交易信息管理技术在很多国家已经趋向成熟，但由于在我国起步尙晚，整体水平不是很高，并且地区间的差异较大。房地产交易的信息管理技术在我国仍有很大的发展空间。经过综合对比发现，我国的房地产信息管理仍存在很多问题。总体来看，多年来，房地产行业没有建立完善的房地产交易管理信息系统，房地产交易业务基本上还是采用人工手写的模式。当顾客需要了解房屋户型、地理位置、租售情况和价格等信息时，业务人员不能很好地利用现代化计算机技术进行处理，仍然采用人工的方法进行信息查询、登记、修改等填写大量的数据。

9、由于信息无法进行良好地动态流动，实时更新，系统无法很好地实现相关信息的汇总和分析，给房地产交易业务带来很大的不便。庞大的信息依靠人工处理，造成人力资源浪费，管理效率低下，传统的管理手段难以适应网络时代的发展要求。在目前开发的系统来看，普遍存在界面不友好，操作复杂，数据不能进行共享，进行公开服务等问题。因此，建立一套能够进行房地产相关信息查询、信息汇总分析、操作便捷的管理系统，讲与房地产有关的业务整理到一个系统平台上来操作，将会提高工作人员的业务能力和工作效率，保证了信息的完整性，提高了信息的更新速度，促进了信息在顾客和管理者之间的共享，实现电子化、无纸化的管理。目前很多房地产行业正在进行这样工

10、作的尝试。1.2研究新趋势1.2.1.完善房地产信息管理系统随着计算机和网络技术的普及，传统的操作方法不再适应业务扩大的需求。新的房地产信息管理系统需要具备完善的信息管理功能。例如房屋户型、地理位置、楼层状况、交通情况等各种满足顾客需求的信息查询、更新，信息之间的交流。为顾客提供便捷的操作平台和真实有效的信息。1.2.2.信息公开化，接受政府的监管房地产行业的蓬勃发展，在带来巨大经济效益的同时，也渐渐浮现出很多问题。所以，房地产交易业务信息应该公开化，在政府和企业间搭建平台，为政府进行宏观经济调控提供依据，政府据此进行信息分析工作，健全相应的规章制度，进行有效地调节，保证房地产行业的健康发展和

11、协调运行。1.2.3.提高信息管理水平当今社会是信息化的社会，要迅速抓住商机，首先就要掌握大量的信息。并能够有效地进行信息的汇总、分析和处理。建立的信息管理系统要有实时更新数据的功能，为商家抓住机会、提高竞争能力、做出符合市场实际情况的决策提供条件，这就要求房地产行业不断提高信息管理水平。1.3研究意义利用计算机技术开发出科学、实用、高效的房地产信息管理系统，利用现代化手段进行业务管理、推动房地产业务的规范化，已经成为了时代的要求。完善的信息管理系统能够替代人工进行交易处理，大大提高了业务效率；利用计算机进行数据处理，具有快速、方便、灵活、科学和准确等特征，提高了人力资源的利用率；数据库的建立

12、，便于信息的汇总、分析和共享，为企业和政府的科学决策提供了依据；由于信息公开，公众可以更合理地进行房屋租售。总体说来，完善的房地产信息管理系统的建立，为员促进了房地产行业的进一步发展。1.4系统的特征和设计原则1.4.1.系统的特征系统功能完备系统提供的各种信息，能够以文字、图表等形式完整展现在用户计算机屏幕上，公司和社会公众可以及时了解房地产交易行情，灵活方便。管理者可以按照市场行情的变化对房屋户型、地理位置、楼层高度、交通状况、租售意愿等进行随时添加、删除、修改。系统覆盖面十分广泛，房地产具体资料、交易情况和商家及消费者之间的信息联系平台。数据服务对象广泛系统必须面向任何与房地产有关的服务

13、对象，如管理者、顾客、政府和社会公众等。这些服务对象之间的信息交流将带来庞大的数据。数据之间联系十分复杂，需要系统具备较强编辑、统计和储存功能，便于进行分析比较。兼容性好系统开发的平台和所使用的语言必须满足房地产交易信息的特点，以及计算机的承受能力。由于房地产交易的数据复杂、联系紧密，还要兼顾数据共享和数据交换，要求系统具备良好的兼容性，以满足不同用户的需求。1.4.2.设计原则通用性原则系统的操作界面应该友好，同时尽可能的简化操作步骤。建设该系统的目的在于应用，所以要求在分析房地产业务的特点的基础上进行设计，由于房地产行业的业务流程和数据收集具有一定程度上的相似性，因此，系统在总体设计时应该

14、考虑到共性，结合当前的实际情况，力求实现通用化。模块化原则为了使系统更加有效地进行工作，必须在设计时按照模块化进行划分。对整个系统进行分析，划分不同功能，对不同的数据进行分类，建立数据库进行管理。例如用户信息模块、房屋信息模块、相关者信息交流模块、交易信息模块等。整体性原则为了使系统能够协调运行，保证总功能的实现，系统必须进行不断的完善，纵观全局，进行统一的设计规划。将整个系统作为一个整体，对各个模块进行安排，在充分利用现有资源的前提下，产生协同效益，更好的实现总体功能。发展性原则在系统的设计过程中，要充分考虑科学技术和市场经济的发展。计算机技术更新速度之快、企业规模进一步扩张和顾客需求的多样

15、化发展，必然会出现新的模式要求。因此，系统要预留一部分空间来适应功能的更新和系统的升级。注重系统的发展性，一遍今后可以更好地扩展和维护系统。1.5研究的框架1.5.1.房屋信息的查询按照房屋的属性，可以进行的查询有：房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋的成本和报价、房屋的名称和支付方式。1.5.2.房屋数据的管理房屋的数据管理包括房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋成本和报价等属性的添加、修改、删除等。1.5.3.交易公告栏交易公告栏主要由各个用户发表通知，有关房屋出租、房屋销售、最新房地产管理政策与制度等公告。以便社会公众及时、快捷地了

16、解房地产行业的动态变化。1.5.4.邮件联系邮件联系是为一对一沟通所设计的模块。当用户有特定的交易者时，系统可以实现邮件联系功能。为了方便用户操作，该模块设计了按钮点击弹出联系人选择框的功能。1.5.5.登录和退出系统登录系统时需要输入用户名，否则会弹出“用户名为空”的提示框，并且需要正确的密码，否则会弹出“密码错误”的提示框。在点击退出按钮时，系统会提示“真的要退出系统吗？”的对话框，防止用户的误操作，界面设计友好。2、系统技术平台2.1 Visual Basic Visual Basic是美国于1991年开发的一种可视化，面向对象和事件驱动的，结构化编程语言，可用于在Windows环境下开

17、发的各种应用。它是简单易学，高效率并且功能强大。在Visual Basic环境中，通过事件驱动的编程机制、易于操作的可视化设计工具、以及应用程序接口（API）函数，动态链接库（DLL）和对象链接和嵌入（OLE），开放式数据连接（ODBC）技术的广泛的使用，在Windows环境下，可以高效，快速地开发强大和丰富的图形界面的应用软件系统。Visual Basic 6.0中的数据访问功能已大大提高，新的ADO组件，允许大量数据的快速访问成为可能。数据环境和新的报告功能允许数据开发成为一种全新的体验。Visual Basic 6.0已经具备非常成熟和稳定开发功能，使企业迅速建立多层次的系统。VB采用面

18、向对象的设计思想，这种设计思想是，面对复杂的设计问题，能够使之实现独立完成和相对简单的收集对象的功能。所谓的“对象”是一个可操作实体，如：下拉框、按钮、标签、文本框。在本文的设计中，正是运用VB6.0完成房屋租售系统的开发的。2.2 Access Microsoft Access是由微软发布的一个关系数据库管理系统。它具有Microsoft Jet数据库引擎和图形用户界面这两个功能的结合，是Microsoft Office软件之一。Microsoft Access被广泛使用在许多地方，如小企业，大公司的各个部门，很多程序开发人员用其进行数据处理。Access具有表、查询、窗体、报表、页、宏和模

19、块，方便用户操作和使用。Access是一个面向对象的开发工具，对数据库系统中使用的各种功能对象化。利用对象的方法、属性，完成数据库的操作和使用，大大简化了用户的工作。同时，基于面向对象的开发方法，使得可以更容易地进行应用程序的开发。Access是一个可视化工具，操作起来非常方便和直观。本文利用Microsoft Access数据库建立了房屋租售系统里必备的数据库。3、系统的分析和设计3.1系统的分析 系统的功能模块图 房屋信息实体邮件信息实体成本报价信息实体3.2系统的设计3.2.1.总体结构设计登录界面设计为了保证系统的安全和界面的友好，用户需要进行用户名和密码的正确输入，才可进入系统，如果

20、没有通过验证，则需要返回登录界面重新输入，且点击退出按钮时，将会弹出提示对话框，防止用户的误操作。 该功能实现的代码如下： Private Sub cmdenter_Click()If Trim(txtname) = Then MsgBox 对不起，请输入用户名, vbInformation, App.Title txtname.SetFocus Exit Sub End If Dim Login_rs As New ADODB.Recordset Login_rs.Open select 用户名,密码 from 系统管理 where 用户名= & Trim(txtname.Text) & ,

21、 CN, 1, 3 If Login_rs.EOF Then MsgBox 用户名不存在！, vbInformation, App.Title txtname.Text = txtname.SetFocus Exit Sub End If If LCase(txtpwd.Text) Login_rs(1) Then MsgBox 用户密码错误！, vbInformation, App.Title txtpwd.Text = txtpwd.SetFocus Pwdtimes = Pwdtimes + 1 If Pwdtimes = 3 Then MsgBox 密码输入错误超过3次！系统强制退出！

22、, vbInformation, App.Title End End If Exit Sub End If Set Login_rs = Nothing Loginname = LCase(Trim(txtname.Text) Access = 1 Load frmmain frmmain.Show Unload MeEnd SubPrivate Sub Command2_Click()If MsgBox(确实要退出吗？, vbQuestion + vbYesNo + vbDefaultButton2, App.Title) = vbYes Then _ Unload MeEnd Sub系统信

23、息管理界面设计该模块汇总了与房屋有关的所有属性，包括：房屋户型、地理位置、面积、价格等各个属性均能实现属性的添加、删除等功能。下面以设置地理位置为例进行展示。该模块可以进行地理位置的添加和删除操作。当用户未进行序号或地理位置输入时，系统将会给出提示框。按照需要在信息添加成功后，将会弹出提示框。单击退出按钮时，将会推出该模块。该功能实现的代码如下：Private Sub Command1_Click()If Trim(Text1.Text) = Then MsgBox 对不起，序号不能为空, vbInformation, App.Title Text1.SetFocus Exit SubEnd

24、IfIf Trim(Text2.Text) = Then MsgBox 对不起，地理位置不能为空, vbInformation, App.Title Text2.SetFocus Exit SubEnd IfDim rs As New ADODB.Recordsetrs.Open select * from 地理位置 where 编号= & Trim(Text1.Text) & , CN, 1, 3If Not rs.EOF Then MsgBox 此序号已经存在, vbInformation, App.Title Text1.Text = Text1.SetFocus Exit SubEls

25、esql = insert into 地理位置 values ( & Trim(Text1.Text) & , & Trim(Text2.Text) & )If exsql(sql) ThenCall datagrid MsgBox 添加成功, vbInformation, App.Title Text1.Text = Text2.Text = Text1.SetFocus End IfEnd IfEnd SubSub datagrid() Dim sql As String Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset HFGri

26、d.ColWidth(0) = Me.HFGrid.Width / 2 HFGrid.ColWidth(1) = Me.HFGrid.Width / 2rs.Open select 编号 as 序号,地理位置 from 地理位置, CN, 1, 3Set HFGrid.DataSource = rsEnd SubPrivate Sub Command2_Click()Dim str As StringDim strSql As Stringstr = MsgBox(你真的要删除吗, vbInformation + vbYesNo, App.Title)If str = vbYes Thenst

27、rSql = delete from 地理位置 where 编号 = & Me.HFGrid.TextMatrix(HFGrid.Row, 0) & If exsql(strSql) Then MsgBox 删除成功, vbInformation, App.Title Call datagridExit SubEnd IfEnd IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Position MeCall datagridEnd Sub房屋管理界面设计该模块将会实现四个功能：房屋信息的添加

28、、支付方式、成本及报价和备注。房屋信息添加的模块，凡是后台有数据库的房屋属性均设计成下拉框的形式方便用户选择。用户可以根据实际情况录入房屋信息，单击保存后，该数据将会返回到后台数据库中。该模块功能实现的代码如下：Sub tjj()Dim list As New ADODB.Recordsetlist.Open Select 价格 from 价格 , CN, 1, 3Do While Not list.EOFCombo1.AddItem list(0)list.MoveNextLoopDim rssd As New ADODB.Recordsetrssd.Open select 面积 from

29、面积, CN, 1, 3Do While Not rssd.EOFCombo2.AddItem rssd(0)rssd.MoveNextLoopDim rss4 As New ADODB.Recordsetrss4.Open select 地理位置 from 地理位置, CN, 1, 3Do While Not rss4.EOFCombo4.AddItem rss4(0)rss4.MoveNextLoopDim rss5 As New ADODB.Recordsetrss5.Open select 房屋楼层 from 房屋楼层, CN, 1, 3Do While Not rss5.EOFCom

30、bo5.AddItem rss5(0)rss5.MoveNextLoopDim rss6 As New ADODB.Recordsetrss6.Open select 房屋户型 from 房屋户型, CN, 1, 3Do While Not rss6.EOFCombo6.AddItem rss6(0)rss6.MoveNextLoopDim rss9 As New ADODB.Recordsetrss9.Open select 交通线路 from 交通线路, CN, 1, 3Do While Not rss9.EOFCombo9.AddItem rss9(0)rss9.MoveNextLoop

31、Combo1.ListIndex = 0Combo2.ListIndex = 0Combo4.ListIndex = 0Combo5.ListIndex = 0Combo6.ListIndex = 0Combo9.ListIndex = 0End Sub支付方式模块，主要用来房屋名称和支付方式的录入。在单击加号按钮以后，弹出对话框，用户可以根据实际情况进行数据录入，单击添加按钮后，数据会显示出来，确认无误单击保存以后，数据将会返回后台数据库。单击退出按钮即可退出该模块。Private Sub Form_Load() HFGrid.FormatString = 房屋名称 |支付方式 hfgrid1.FormatString = 成本项目 |成本|报价|说明Call tjjHFGrid.ColWidth(0) = M