房屋租售系统的设计与实现Word文件下载.doc

1、1.1.2.研究的现状11.2研究新趋势21.2.1.完善房地产信息管理系统21.2.2.信息公开化，接受政府的监管21.2.3.提高信息管理水平21.3研究意义31.4系统的特征和设计原则31.4.1.系统的特征3系统功能完备3数据服务对象广泛3兼容性好31.4.2.设计原则4通用性原则4模块化原则4整体性原则4发展性原则41.5研究的框架41.5.1.房屋信息的查询41.5.2.房屋数据的管理51.5.3.交易公告栏51.5.4.邮件联系51.5.5.登录和退出系统52、系统技术平台52.1 Visual Basic52.2 Access53、系统的分析和设计63.1系统的分析63.2系统

2、的设计73.2.1.总体结构设计7登录界面设计7系统信息管理界面设计9房屋管理界面设计13公告栏界面设计19发送邮件界面设计213.2.2.数据库设计254、结束语27参考文献：291、绪论1.1研究的背景和现状1.1.1.研究的背景随着市场经济的迅猛发展，房地产制度的深入变革，房地产交易变得十分繁荣，房地产的销售、租赁等业务十分活跃。房地产业务的不断扩大，也带来了庞大的信息量。谁掌握的信息越多，谁越能够有效地利用信息，谁就赢得了主动权，增强竞争优势。而长期以来，房地产交易业务信息都是有人员手工完成，工作量繁重，数据庞大复杂。不利于企业进行长久的顾客信息、市场需求情况的分析，管理不规范、不科学

3、等弊端渐渐浮现。因此借助信息化的手段，将房地产管理推向“无纸化”，开发一套与之相符合的管理系统，实现房地产业务的信息管理，成为解决实际问题的关键。这样的管理系统，需要在计算机的支持下，执行一系列的房屋信息添加和修改、项目成本及报价的管理、利用邮件的发送和公告栏等手段进行信息交流等操作，为用户提供一个完整的自动化交易平台。实现了业务管理的计算机化、公开化。对加强房地产交易管理的规范化，提高工作效率，增加管理的透明度和公众的参与热情，起到了积极的作用。1.1.2.研究的现状房地产交易信息管理技术在很多国家已经趋向成熟，但由于在我国起步尙晚，整体水平不是很高，并且地区间的差异较大。房地产交易的信息管

4、理技术在我国仍有很大的发展空间。经过综合对比发现，我国的房地产信息管理仍存在很多问题。总体来看，多年来，房地产行业没有建立完善的房地产交易管理信息系统，房地产交易业务基本上还是采用人工手写的模式。当顾客需要了解房屋户型、地理位置、租售情况和价格等信息时，业务人员不能很好地利用现代化计算机技术进行处理，仍然采用人工的方法进行信息查询、登记、修改等填写大量的数据。由于信息无法进行良好地动态流动，实时更新，系统无法很好地实现相关信息的汇总和分析，给房地产交易业务带来很大的不便。庞大的信息依靠人工处理，造成人力资源浪费，管理效率低下，传统的管理手段难以适应网络时代的发展要求。在目前开发的系统来看，普遍

5、存在界面不友好，操作复杂，数据不能进行共享，进行公开服务等问题。因此，建立一套能够进行房地产相关信息查询、信息汇总分析、操作便捷的管理系统，讲与房地产有关的业务整理到一个系统平台上来操作，将会提高工作人员的业务能力和工作效率，保证了信息的完整性，提高了信息的更新速度，促进了信息在顾客和管理者之间的共享，实现电子化、无纸化的管理。目前很多房地产行业正在进行这样工作的尝试。1.2研究新趋势1.2.1.完善房地产信息管理系统随着计算机和网络技术的普及，传统的操作方法不再适应业务扩大的需求。新的房地产信息管理系统需要具备完善的信息管理功能。例如房屋户型、地理位置、楼层状况、交通情况等各种满足顾客需求的

6、信息查询、更新，信息之间的交流。为顾客提供便捷的操作平台和真实有效的信息。1.2.2.信息公开化，接受政府的监管房地产行业的蓬勃发展，在带来巨大经济效益的同时，也渐渐浮现出很多问题。所以，房地产交易业务信息应该公开化，在政府和企业间搭建平台，为政府进行宏观经济调控提供依据，政府据此进行信息分析工作，健全相应的规章制度，进行有效地调节，保证房地产行业的健康发展和协调运行。1.2.3.提高信息管理水平当今社会是信息化的社会，要迅速抓住商机，首先就要掌握大量的信息。并能够有效地进行信息的汇总、分析和处理。建立的信息管理系统要有实时更新数据的功能，为商家抓住机会、提高竞争能力、做出符合市场实际情况的决

7、策提供条件，这就要求房地产行业不断提高信息管理水平。1.3研究意义利用计算机技术开发出科学、实用、高效的房地产信息管理系统，利用现代化手段进行业务管理、推动房地产业务的规范化，已经成为了时代的要求。完善的信息管理系统能够替代人工进行交易处理，大大提高了业务效率；利用计算机进行数据处理，具有快速、方便、灵活、科学和准确等特征，提高了人力资源的利用率；数据库的建立，便于信息的汇总、分析和共享，为企业和政府的科学决策提供了依据；由于信息公开，公众可以更合理地进行房屋租售。总体说来，完善的房地产信息管理系统的建立，为员促进了房地产行业的进一步发展。1.4系统的特征和设计原则1.4.1.系统的特征系统功

8、能完备系统提供的各种信息，能够以文字、图表等形式完整展现在用户计算机屏幕上，公司和社会公众可以及时了解房地产交易行情，灵活方便。管理者可以按照市场行情的变化对房屋户型、地理位置、楼层高度、交通状况、租售意愿等进行随时添加、删除、修改。系统覆盖面十分广泛，房地产具体资料、交易情况和商家及消费者之间的信息联系平台。数据服务对象广泛系统必须面向任何与房地产有关的服务对象，如管理者、顾客、政府和社会公众等。这些服务对象之间的信息交流将带来庞大的数据。数据之间联系十分复杂，需要系统具备较强编辑、统计和储存功能，便于进行分析比较。兼容性好系统开发的平台和所使用的语言必须满足房地产交易信息的特点，以及计算机

9、的承受能力。由于房地产交易的数据复杂、联系紧密，还要兼顾数据共享和数据交换，要求系统具备良好的兼容性，以满足不同用户的需求。1.4.2.设计原则通用性原则系统的操作界面应该友好，同时尽可能的简化操作步骤。建设该系统的目的在于应用，所以要求在分析房地产业务的特点的基础上进行设计，由于房地产行业的业务流程和数据收集具有一定程度上的相似性，因此，系统在总体设计时应该考虑到共性，结合当前的实际情况，力求实现通用化。模块化原则为了使系统更加有效地进行工作，必须在设计时按照模块化进行划分。对整个系统进行分析，划分不同功能，对不同的数据进行分类，建立数据库进行管理。例如用户信息模块、房屋信息模块、相关者信息

10、交流模块、交易信息模块等。整体性原则为了使系统能够协调运行，保证总功能的实现，系统必须进行不断的完善，纵观全局，进行统一的设计规划。将整个系统作为一个整体，对各个模块进行安排，在充分利用现有资源的前提下，产生协同效益，更好的实现总体功能。发展性原则在系统的设计过程中，要充分考虑科学技术和市场经济的发展。计算机技术更新速度之快、企业规模进一步扩张和顾客需求的多样化发展，必然会出现新的模式要求。因此，系统要预留一部分空间来适应功能的更新和系统的升级。注重系统的发展性，一遍今后可以更好地扩展和维护系统。1.5研究的框架1.5.1.房屋信息的查询按照房屋的属性，可以进行的查询有：房屋户型、地理位置、房

11、屋价格、房屋面积、房屋楼层、交通线路、房屋的成本和报价、房屋的名称和支付方式。1.5.2.房屋数据的管理房屋的数据管理包括房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋成本和报价等属性的添加、修改、删除等。1.5.3.交易公告栏交易公告栏主要由各个用户发表通知，有关房屋出租、房屋销售、最新房地产管理政策与制度等公告。以便社会公众及时、快捷地了解房地产行业的动态变化。1.5.4.邮件联系邮件联系是为一对一沟通所设计的模块。当用户有特定的交易者时，系统可以实现邮件联系功能。为了方便用户操作，该模块设计了按钮点击弹出联系人选择框的功能。1.5.5.登录和退出系统登录系统时需要输入用

12、户名，否则会弹出“用户名为空”的提示框，并且需要正确的密码，否则会弹出“密码错误”的提示框。在点击退出按钮时，系统会提示“真的要退出系统吗？”的对话框，防止用户的误操作，界面设计友好。2、系统技术平台2.1 Visual Basic Visual Basic是美国于1991年开发的一种可视化，面向对象和事件驱动的，结构化编程语言，可用于在Windows环境下开发的各种应用。它是简单易学，高效率并且功能强大。在Visual Basic环境中，通过事件驱动的编程机制、易于操作的可视化设计工具、以及应用程序接口（API）函数，动态链接库（DLL）和对象链接和嵌入（OLE），开放式数据连接（ODBC）

13、技术的广泛的使用，在Windows环境下，可以高效，快速地开发强大和丰富的图形界面的应用软件系统。Visual Basic 6.0中的数据访问功能已大大提高，新的ADO组件，允许大量数据的快速访问成为可能。数据环境和新的报告功能允许数据开发成为一种全新的体验。Visual Basic 6.0已经具备非常成熟和稳定开发功能，使企业迅速建立多层次的系统。VB采用面向对象的设计思想，这种设计思想是，面对复杂的设计问题，能够使之实现独立完成和相对简单的收集对象的功能。所谓的“对象”是一个可操作实体，如：下拉框、按钮、标签、文本框。在本文的设计中，正是运用VB6.0完成房屋租售系统的开发的。2.2 Ac

14、cess Microsoft Access是由微软发布的一个关系数据库管理系统。它具有Microsoft Jet数据库引擎和图形用户界面这两个功能的结合，是Microsoft Office软件之一。Microsoft Access被广泛使用在许多地方，如小企业，大公司的各个部门，很多程序开发人员用其进行数据处理。Access具有表、查询、窗体、报表、页、宏和模块，方便用户操作和使用。Access是一个面向对象的开发工具，对数据库系统中使用的各种功能对象化。利用对象的方法、属性，完成数据库的操作和使用，大大简化了用户的工作。同时，基于面向对象的开发方法，使得可以更容易地进行应用程序的开发。Acc

15、ess是一个可视化工具，操作起来非常方便和直观。本文利用Microsoft Access数据库建立了房屋租售系统里必备的数据库。3、系统的分析和设计3.1系统的分析房屋管理系统系统管理系统设置信息交流房屋管理 系统的功能模块图 房屋信息实体户型面积价格名称其他地理楼层交通 邮件信息实体标题收件人内容日期消息成本报价信息实体成本报价3.2系统的设计3.2.1.总体结构设计登录界面设计为了保证系统的安全和界面的友好，用户需要进行用户名和密码的正确输入，才可进入系统，如果没有通过验证，则需要返回登录界面重新输入，且点击退出按钮时，将会弹出提示对话框，防止用户的误操作。该功能实现的代码如下：Priva

16、te 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） & , CN, 1, 3 If Login_rs.EOF Then MsgBox 用户名不存在！ txtname.Text = txtnam

17、e.SetFocus Exit Sub End If If LCase（txtpwd.Text） Login_rs（1） Then用户密码错误！ txtpwd.Text = txtpwd.SetFocus Pwdtimes = Pwdtimes + 1 If Pwdtimes = 3 Then MsgBox 密码输入错误超过3次！系统强制退出！ End Exit Sub Set Login_rs = Nothing Loginname = LCase（Trim（txtname.Text） Access = 1 Load frmmain frmmain.Show Unload MeEnd Sub

18、Private Sub Command2_Click（）If MsgBox（确实要退出吗？, vbQuestion + vbYesNo + vbDefaultButton2, App.Title） = vbYes Then _系统信息管理界面设计该模块汇总了与房屋有关的所有属性，包括：房屋户型、地理位置、面积、价格等各个属性均能实现属性的添加、删除等功能。下面以设置地理位置为例进行展示。该模块可以进行地理位置的添加和删除操作。当用户未进行序号或地理位置输入时，系统将会给出提示框。按照需要在信息添加成功后，将会弹出提示框。单击退出按钮时，将会推出该模块。Private Sub Command1_

19、Click（）If Trim（Text1.Text） = MsgBox 对不起，序号不能为空 Text1.SetFocus Exit SubEnd IfIf Trim（Text2.Text） = 对不起，地理位置不能为空 Text2.SetFocusDim rs As New ADODB.Recordsetrs.Open select * from 地理位置 where 编号= Trim（Text1.Text） &If Not rs.EOF Then MsgBox 此序号已经存在 Text1.Text = Text1.SetFocus Exit SubElsesql = insert into

20、 地理位置 values （, Trim（Text2.Text） &）If exsql（sql） ThenCall datagrid添加成功 Text2.Text = End IfSub datagrid（） Dim sql As String Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset HFGrid.ColWidth（0） = Me.HFGrid.Width / 2 HFGrid.ColWidth（1） = Me.HFGrid.Width / 2select 编号 as 序号,地理位置 from 地理位置Set HFGrid.D

21、ataSource = rsDim str As StringDim strSql As Stringstr = MsgBox（你真的要删除吗, vbInformation + vbYesNo, App.Title）If str = vbYes ThenstrSql = delete from 地理位置 where 编号 = Me.HFGrid.TextMatrix（HFGrid.Row, 0） &If exsql（strSql） Then MsgBox 删除成功 Call datagridExit SubPrivate Sub Command3_Click（）Unload MePrivate

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