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

房屋租售系统的设计与实现1/341/34 天津外国语大学本科毕业论文房地产管理系统的设计与实现Design and implementation of real estate project system学科专业：教育技术学学生姓名：王珠琳学生学号：0805114075 指导教师：庞珊娜定稿时间：_ 房屋租售系统的设计与实现I/34I/34 中文摘要随着我国经济的快速发展，我国住房制度的深入变革，房地产行业发展迅猛，房地产交易日趋繁荣。在新的市场条件下，如何提高房地产行业的管理水平已经成为社会上备受关注的话题。实现房产交易的信息化管理，将是解决实际问题，提升房地产行业有效管理水平的必由之路。本文主要分析房地产行业租售管理业务的实际需要，在Visual Basic和Microsoft Access的环境下开发了一套房屋租售系统。在深入研究房地产行业的现状和发展前景的前提下，在进行需求分析、结构设计、数据库设计的过程中，提出了一套完整的房屋租售系统的设计方案。对房屋的数据资料、交易情况等信息的输入、查询、修改、删除、存档等问题进行了不同版块的设计,操作方便，界面友好，详细介绍了各个模块是如何进行功能实现的。关键词：房地产；管理系统；设计房屋租售系统的设计与实现II/34II/34 ABSTRACT With the fast economic development and great reform of housing system in China,the real estate industry boom comes 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 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 demands 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 other 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房屋租售系统的设计与实现III/34III/34 目录1、绪论.11.1 研究的背景和现状 .11.1.1.研究的背景.11.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 Basic.52.2 Access .63、系统的分析和设计.63.1 系统的分析 .63.2 系统的设计 .83.2.1.总体结构设计.8登录界面设计.8系统信息管理界面设计.10 房屋管理界面设计.13 公告栏界面设计.19 发送邮件界面设计.21 3.2.2.数据库设计.25 4、结束语.27参考文献：.29房屋租售系统的设计与实现1/341/34 房地产管理系统的设计与实现1、绪论1.1 研究的背景和现状1.1.1.研究的背景随着市场经济的迅猛发展，房地产制度的深入变革，房地产交易变得十分繁荣，房地产的销售、租赁等业务十分活跃。房地产业务的不断扩大，也带来了庞大的信息量。谁掌握的信息越多，谁越能够有效地利用信息，谁就赢得了主动权，增强竞争优势。而长期以来，房地产交易业务信息都是有人员手工完成，工作量繁重，数据庞大复杂。不利于企业进行长久的顾客信息、市场需求情况的分析，管理不规范、不科学等弊端渐渐浮现。因此借助信息化的手段，将房地产管理推向“无纸化”，开发一套与之相符合的管理系统，实现房地产业务的信息管理，成为解决实际问题的关键。这样的管理系统，需要在计算机的支持下，执行一系列的房屋信息添加和修改、项目成本及报价的管理、利用邮件的发送和公告栏等手段进行信息交流等操作，为用户提供一个完整的自动化交易平台。实现了业务管理的计算机化、公开化。对加强房地产交易管理的规范化，提高工作效率，增加管理的透明度和公众的参与热情，起到了积极的作用。1.1.2.研究的现状房地产交易信息管理技术在很多国家已经趋向成熟，但由于在我国起步尙晚，整体水平不是很高，并且地区间的差异较大。房地产交易的信息管理技术在我国仍有很大的发展空间。经过综合对比发现，我国的房地产信息管理仍存在很多问题。总体来看，多年来，房地产行业没有建立完善的房地产交易管理信息系统，房地产交易业务基本上还是采用人工手写的模式。当顾客需要了解房屋户型、地理位置、租售情况和价格等信息时，业务人员不能很好地利用现代化计算机技术进行处理，仍然采用人工的方法进行信息查询、登记、修改等填写大量的数据。由于信息无法进行良好房屋租售系统的设计与实现2/342/34 地动态流动，实时更新，系统无法很好地实现相关信息的汇总和分析，给房地产交易业务带来很大的不便。庞大的信息依靠人工处理，造成人力资源浪费，管理效率低下，传统的管理手段难以适应网络时代的发展要求。在目前开发的系统来看，普遍存在界面不友好，操作复杂，数据不能进行共享，进行公开服务等问题。因此，建立一套能够进行房地产相关信息查询、信息汇总分析、操作便捷的管理系统，讲与房地产有关的业务整理到一个系统平台上来操作，将会提高工作人员的业务能力和工作效率，保证了信息的完整性，提高了信息的更新速度，促进了信息在顾客和管理者之间的共享，实现电子化、无纸化的管理。目前很多房地产行业正在进行这样工作的尝试。1.2 研究新趋势1.2.1.完善房地产信息管理系统随着计算机和网络技术的普及，传统的操作方法不再适应业务扩大的需求。新的房地产信息管理系统需要具备完善的信息管理功能。例如房屋户型、地理位置、楼层状况、交通情况等各种满足顾客需求的信息查询、更新，信息之间的交流。为顾客提供便捷的操作平台和真实有效的信息。1.2.2.信息公开化，接受政府的监管房地产行业的蓬勃发展，在带来巨大经济效益的同时，也渐渐浮现出很多问题。所以，房地产交易业务信息应该公开化，在政府和企业间搭建平台，为政府进行宏观经济调控提供依据，政府据此进行信息分析工作，健全相应的规章制度，进行有效地调节，保证房地产行业的健康发展和协调运行。1.2.3.提高信息管理水平当今社会是信息化的社会，要迅速抓住商机，首先就要掌握大量的信息。并能够有效地进行信息的汇总、分析和处理。建立的信息管理系统要有实时更新数据的功能，为商家抓住机会、提高竞争能力、做出符合市场实际情况的决策提供条件，这就要求房地产行业不断提高信息管理水平。房屋租售系统的设计与实现3/343/34 1.3 研究意义利用计算机技术开发出科学、实用、高效的房地产信息管理系统，利用现代化手段进行业务管理、推动房地产业务的规范化，已经成为了时代的要求。完善的信息管理系统能够替代人工进行交易处理，大大提高了业务效率；利用计算机进行数据处理，具有快速、方便、灵活、科学和准确等特征，提高了人力资源的利用率；数据库的建立，便于信息的汇总、分析和共享，为企业和政府的科学决策提供了依据；由于信息公开，公众可以更合理地进行房屋租售。总体说来，完善的房地产信息管理系统的建立，为员促进了房地产行业的进一步发展。1.4 系统的特征和设计原则1.4.1.系统的特征系统功能完备系统提供的各种信息，能够以文字、图表等形式完整展现在用户计算机屏幕上，公司和社会公众可以及时了解房地产交易行情，灵活方便。管理者可以按照市场行情的变化对房屋户型、地理位置、楼层高度、交通状况、租售意愿等进行随时添加、删除、修改。系统覆盖面十分广泛，房地产具体资料、交易情况和商家及消费者之间的信息联系平台。数据服务对象广泛系统必须面向任何与房地产有关的服务对象，如管理者、顾客、政府和社会公众等。这些服务对象之间的信息交流将带来庞大的数据。数据之间联系十分复杂，需要系统具备较强编辑、统计和储存功能，便于进行分析比较。兼容性好系统开发的平台和所使用的语言必须满足房地产交易信息的特点，以及计算机的承受能力。由于房地产交易的数据复杂、联系紧密，还要兼顾数据共享和数据交换，要求系统具备良好的兼容性，以满足不同用户的需求。房屋租售系统的设计与实现4/344/34 1.4.2.设计原则通用性原则系统的操作界面应该友好，同时尽可能的简化操作步骤。建设该系统的目的在于应用，所以要求在分析房地产业务的特点的基础上进行设计，由于房地产行业的业务流程和数据收集具有一定程度上的相似性，因此，系统在总体设计时应该考虑到共性，结合当前的实际情况，力求实现通用化。模块化原则为了使系统更加有效地进行工作，必须在设计时按照模块化进行划分。对整个系统进行分析，划分不同功能，对不同的数据进行分类，建立数据库进行管理。例如用户信息模块、房屋信息模块、相关者信息交流模块、交易信息模块等。整体性原则为了使系统能够协调运行，保证总功能的实现，系统必须进行不断的完善，纵观全局，进行统一的设计规划。将整个系统作为一个整体，对各个模块进行安排，在充分利用现有资源的前提下，产生协同效益，更好的实现总体功能。发展性原则在系统的设计过程中，要充分考虑科学技术和市场经济的发展。计算机技术更新速度之快、企业规模进一步扩张和顾客需求的多样化发展，必然会出现新的模式要求。因此，系统要预留一部分空间来适应功能的更新和系统的升级。注重系统的发展性，一遍今后可以更好地扩展和维护系统。1.5 研究的框架1.5.1.房屋信息的查询按照房屋的属性，可以进行的查询有：房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋的成本和报价、房屋的名称和支付方式。房屋租售系统的设计与实现5/345/34 1.5.2.房屋数据的管理房屋的数据管理包括房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋成本和报价等属性的添加、修改、删除等。1.5.3.交易公告栏交易公告栏主要由各个用户发表通知，有关房屋出租、房屋销售、最新房地产管理政策与制度等公告。以便社会公众及时、快捷地了解房地产行业的动态变化。1.5.4.邮件联系邮件联系是为一对一沟通所设计的模块。当用户有特定的交易者时，系统可以实现邮件联系功能。为了方便用户操作，该模块设计了按钮点击弹出联系人选择框的功能。1.5.5.登录和退出系统登录系统时需要输入用户名，否则会弹出“用户名为空”的提示框，并且需要正确的密码，否则会弹出“密码错误”的提示框。在点击退出按钮时，系统会提示“真的要退出系统吗？”的对话框，防止用户的误操作，界面设计友好。2、系统技术平台2.1 Visual Basic Visual Basic是美国于 1991 年开发的一种可视化，面向对象和事件驱动的，结构化编程语言，可用于在 Windows环境下开发的各种应用。它是简单易学，高效率并且功能强大。在Visual Basic环境中，通过事件驱动的编程机制、易于操作的可视化设计工具、以及应用程序接口（API）函数，动态链接库（DLL）和对象链接和嵌入（OLE），开放式数据连接（ODBC）技术的广泛的使用，在 Windows环境下，可以高效，快速地开发强大和丰富的图形界面的应用软件系统。Visual Basic 6.0中的数据访问功能已大大提高，新的 ADO 组件，允许大量数据的快速访问成为可能。数据环境和新的报告功能允许数据开发成为一种全新的体验。Visual Basic 6.0已经具备非常成熟和稳定开发功能，使企业迅速建立多层次的系统。VB房屋租售系统的设计与实现6/346/34 采用面向对象的设计思想，这种设计思想是，面对复杂的设计问题，能够使之实现独立完成和相对简单的收集对象的功能。所谓的“对象”是一个可操作实体，如：下拉框、按钮、标签、文本框。在本文的设计中，正是运用 VB6.0 完成房屋租售系统的开发的。2.2 Access Microsoft Access是由微软发布的一个关系数据库管理系统。它具有 Microsoft Jet数据库引擎和图形用户界面这两个功能的结合，是Microsoft Office软件之一。Microsoft Access 被广泛使用在许多地方，如小企业，大公司的各个部门，很多程序开发人员用其进行数据处理。Access 具有表、查询、窗体、报表、页、宏和模块，方便用户操作和使用。Access 是一个面向对象的开发工具，对数据库系统中使用的各种功能对象化。利用对象的方法、属性，完成数据库的操作和使用，大大简化了用户的工作。同时，基于面向对象的开发方法，使得可以更容易地进行应用程序的开发。Access 是一个可视化工具，操作起来非常方便和直观。本文利用 Microsoft Access数据库建立了房屋租售系统里必备的数据库。3、系统的分析和设计3.1 系统的分析系统的功能模块图房屋管理系统系统管理系统设置信息交流房屋管理房屋租售系统的设计与实现7/347/34 房屋信息实体邮件信息实体邮件信息实体标题收件人内容日期消息房屋信息实体户型面积价格名称其他地理楼层交通房屋租售系统的设计与实现8/348/34 成本报价信息实体3.2 系统的设计3.2.1.总体结构设计登录界面设计为了保证系统的安全和界面的友好，用户需要进行用户名和密码的正确输入，才可进入系统，如果没有通过验证，则需要返回登录界面重新输入，且点击退出按钮时，将会弹出提示对话框，防止用户的误操作。该功能实现的代码如下：Private Sub cmdenter_Click()If Trim(txtname)=Then MsgBox 对不起，请输入用户名,vbInformation,成本报价信息实体成本其他报价消息房屋租售系统的设计与实现9/349/34 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 用户名不存在！,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次！系统强制退出！,vbInformation,App.Title End End If Exit Sub End If Set Login_rs=Nothing Loginname=LCase(Trim(txtname.Text)Access=1 Load frmmain 房屋租售系统的设计与实现10/3410/34 frmmain.Show Unload Me End Sub Private Sub Command2_Click()If MsgBox(确 实 要 退 出 吗？,vbQuestion+vbYesNo+vbDefaultButton2,App.Title)=vbYes Then _ Unload Me End Sub 系统信息管理界面设计该模块汇总了与房屋有关的所有属性，包括：房屋户型、地理位置、面积、价格等各个属性均能实现属性的添加、删除等功能。下面以设置地理位置为例进行展示。该模块可以进行地理位置的添加和删除操作。当用户未进行序号或地理位置输入时，系统将会给出提示框。按照需要在信息添加成功后，将会弹出提示框。单击退出按钮时，将会推出该模块。房屋租售系统的设计与实现11/3411/34 该功能实现的代码如下：Private Sub Command1_Click()If Trim(Text1.Text)=Then MsgBox 对 不 起，序 号 不 能 为 空,vbInformation,App.Title Text1.SetFocus Exit Sub End If If Trim(Text2.Text)=Then MsgBox 对不起，地理位置不能为空,vbInformation,App.Title Text2.SetFocus Exit Sub End If Dim rs As New ADODB.Recordset rs.Open select*from 地 理 位 置where 编 号=&Trim(Text1.Text)&,CN,1,3 If Not rs.EOF Then MsgBox 此序号已经存在,vbInformation,App.Title 房屋租售系统的设计与实现12/3412/34 Text1.Text=Text1.SetFocus Exit Sub Else sql=insert into 地理位置 values(&Trim(Text1.Text)&,&Trim(Text2.Text)&)If exsql(sql)Then Call datagrid MsgBox 添加成功,vbInformation,App.Title Text1.Text=Text2.Text=Text1.SetFocus End If End If End Sub Sub datagrid()Dim sql As String Dim rs As ADODB.Recordset Set rs=New ADODB.Recordset HFGrid.ColWidth(0)=Me.HFGrid.Width/2 HFGrid.ColWidth(1)=Me.HFGrid.Width/2 rs.Open select 编号 as 序号,地理位置 from 地理位置,CN,1,3 Set HFGrid.DataSource=rs End Sub Private Sub Command2_Click()Dim str As String Dim strSql As String str=MsgBox(你真的要删除吗,vbInformation+vbYesNo,房屋租售系统的设计与实现13/3413/34 App.Title)If str=vbYes Then strSql=delete from 地 理 位 置where 编 号=&Me.HFGrid.TextMatrix(HFGrid.Row,0)&If exsql(strSql)Then MsgBox 删除成功,vbInformation,App.Title Call datagrid Exit Sub End If End If End Sub Private Sub Command3_Click()Unload Me End Sub Private Sub Form_Load()Position Me Call datagrid End Sub 房屋管理界面设计该模块将会实现四个功能：房屋信息的添加、支付方式、成本及报价和备注。房屋信息添加的模块，凡是后台有数据库的房屋属性均设计成下拉框的形式方便用户选择。用户可以根据实际情况录入房屋信息，单击保存后，该数据将会返回到后台数据库中。房屋租售系统的设计与实现14/3414/34 该模块功能实现的代码如下：Sub tjj()Dim list As New ADODB.Recordset list.Open Select 价格 from 价格,CN,1,3 Do While Not list.EOF Combo1.AddItem list(0)list.MoveNext Loop Dim rssd As New ADODB.Recordset rssd.Open select 面积 from 面积,CN,1,3 Do While Not rssd.EOF Combo2.AddItem rssd(0)rssd.MoveNext Loop Dim rss4 As New ADODB.Recordset rss4.Open select 地理位置from 地理位置,CN,1,3 Do While Not rss4.EOF Combo4.AddItem rss4(0)房屋租售系统的设计与实现15/3415/34 rss4.MoveNext Loop Dim rss5 As New ADODB.Recordset rss5.Open select 房屋楼层from 房屋楼层,CN,1,3 Do While Not rss5.EOF Combo5.AddItem rss5(0)rss5.MoveNext Loop Dim rss6 As New ADODB.Recordset rss6.Open select 房屋户型from 房屋户型,CN,1,3 Do While Not rss6.EOF Combo6.AddItem rss6(0)rss6.MoveNext Loop Dim rss9 As New ADODB.Recordset rss9.Open select 交通线路from 交通线路,CN,1,3 Do While Not rss9.EOF Combo9.AddItem rss9(0)rss9.MoveNext Loop Combo1.ListIndex=0 Combo2.ListIndex=0 Combo4.ListIndex=0 Combo5.ListIndex=0 Combo6.ListIndex=0 Combo9.ListIndex=0 End Sub 支付方式模块，主要用来房屋名称和支付方式的录入。房屋租售系统的设计与实现16/3416/34 在单击加号按钮以后，弹出对话框，用户可以根据实际情况进行数据录入，单击添加按钮后，数据会显示出来，确认无误单击保存以后，数据将会返回后台数据库。单击退出按钮即可退出该模块。Private Sub Form_Load()HFGrid.FormatString=房屋名称|支付方式 hfgrid1.FormatString=成本项目|成本|报价|说明 Call tjj HFGrid.ColWidth(0)=Me.HFGrid.Width/2 房屋租售系统的设计与实现17/3417/34 HFGrid.ColWidth(1)=Me.HFGrid.Width/2 hfgrid1.ColWidth(0)=Me.hfgrid1.Width/4 hfgrid1.ColWidth(1)=Me.hfgrid1.Width/4 hfgrid1.ColWidth(2)=Me.hfgrid1.Width/4 hfgrid1.ColWidth(3)=Me.hfgrid1.Width/4 End Sub Private Sub Command1_Click()Dim i As Integer i=frmfwgl.HFGrid.Rows-1 frmfwgl.HFGrid.Rows=frmfwgl.HFGrid.Rows+1 frmfwgl.HFGrid.TextMatrix(i,0)=Text1.Text frmfwgl.HFGrid.TextMatrix(i,1)=Text2.Text End Sub Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()End Sub 成本报价模块实现记录房屋成本和报价信息。房屋租售系统的设计与实现18/3418/34 在单击右侧加号按钮之后，将会弹出对话框方便用户进行操作，对话框中的费用类别采用下拉框的形式，方便用户进行选择。用户可以根据实际情况进行数据录入工作。单击添加按钮后，数据会显示，单击保存按钮后，数据将会返回后台数据库。该功能实现的代码如下：Private Sub Form_Load()HFGrid.FormatString=房屋名称|支付方式 hfgrid1.FormatString=成本项目|成本|报价|说明 Call tjj HFGrid.ColWidth(0)=Me.HFGrid.Width/2 HFGrid.ColWidth(1)=Me.HFGrid.Width/2 hfgrid1.ColWidth(0)=Me.hfgrid1.Width/4 hfgrid1.ColWidth(1)=Me.hfgrid1.Width/4 hfgrid1.ColWidth(2)=Me.hfgrid1.Width/4 hfgrid1.ColWidth(3)=Me.hfgrid1.Width/4 End Sub Private Sub Command1_Click()Dim i As Integer i=frmfwgl.HFGrid.Rows-1 房屋租售系统的设计与实现19/3419/34 frmfwgl.HFGrid.Rows=frmfwgl.HFGrid.Rows+1 frmfwgl.HFGrid.TextMatrix(i,0)=Text1.Text frmfwgl.HFGrid.TextMatrix(i,1)=Text2.Text End Sub Private Sub Command2_Click()Unload Me End Sub 公告栏界面设计该模块主要用于交易者之间的信息交流。该模块主要实现两个功能，一是关注房地产行业信息的查询，二是实现信息发布功能。可以看到其他用户发布的内容，当前用户还可以自行填写发布内容，然后提交给后台的数据库。单击退出按钮，即可实现退出该模块。在添加成功之后，系统将会弹出发布成功后的对话框。单击确定之后，发布的内容即添加到公告栏内。房屋租售系统的设计与实现20/3420/34 该功能实现的代码如下：Private Sub Command1_Click()If Text1.Text=Then MsgBox 主题不能为空 Exit Sub End If Dim a As String a=Date Dim strSql As String strSql=insert into 公告(发布者,标题,日期,消息)values(&Loginname&,&Text1.Text&,&a&,&Text2.Text&)If exsql(strSql)Then MsgBox 发布成功 Text1.SetFocus Call aaa Text1.Text=Text2.Text=Else 房屋租售系统的设计与实现21/3421/34 MsgBox 发布失败 End If End Sub Private Sub Command2_Click()Unload Me End Sub Public Sub aaa()Dim strSql As String strSql=select id as 编号,发布者,标题,日期,消息 from 公告 Dim rs As New ADODB.Recordset Set rs=AdoSet(strSql)Set HFGrid.DataSource=rs End Sub Private Sub Form_Load()Call aaa HFGrid.ColWidth(0)=Me.HFGrid.Width/5 HFGrid.ColWidth(1)=Me.HFGrid.Width/5 HFGrid.ColWidth(2)=Me.HFGrid.Width/5 HFGrid.ColWidth(3)=Me.HFGrid.Width/5 HFGrid.ColWidth(4)=Me.HFGrid.Width/5 End Sub 发送邮件界面设计该模块的设计只要是为了满足用户一对一的交流。当然，只要是该系统的用户合法登录以后，进入邮件发送模块也能看见其他用户发布的邮件，但该模块明确指出了收件人的姓名。这样设计更有助于操作透明化和信息的流动。房屋租售系统的设计与实现22/3422/34 为了方便用户，单击选择按钮后，将会弹出联系人选择框。用户只需选择想要联系的用户，单击添加按钮以后，接收人栏内将会自动载入，用户可以根据自己的需要填写主题和内容。在消息发布成功后，系统会弹出发布成功提示框。单击确定按钮以后发布的邮件将会出现在公告栏。由于房地产业务十分活跃，信息联系频繁，导致后台数据繁多，为了解决这个问题，在该模块添加了删除全部的按钮，根据用户的实际操作反馈到后台数据库。单击退出按钮之后，将会退出该模块。房屋租售系统的设计与实现23/3423/34 该功能实现的代码如下：Private Sub Command1_Click()frmemail.Show End Sub Private Sub Command2_Click()If Text1.Text=Then MsgBox 收件人不能为空 Exit Sub End If Dim strSql As String Dim a As String a=Date strSql=insert into 邮件 values(&Loginname&,&Text1.Text&,&Text2.Text&,&a&,&Text3.Text&,0)If exsql(strSql)Then Call aa MsgBox 发送成功 Else 房屋租售系统的设计与实现24/3424/34 MsgBox 发送失败 End If End Sub Private Sub Command3_Click()Unload Me End Sub Private Sub Command4_Click()strSql=delete from 邮件 If exsql(strSql)Then MsgBox 删除成功 Call aa End If End Sub Private Sub Form_Load()Call aa HFGrid.ColWidth(0)=Me.HFGrid.Width/6 HFGrid.ColWidth(1)=(Me.HFGrid.Width)/6 HFGrid.ColWidth(2)=(Me.HFGrid.Width)/6 HFGrid.ColWidth(3)=(Me.HFGrid.Width)/2 End Sub Sub aa()Dim rs As New ADODB.Recordset Dim str As String str=select 收件人,标题,日期,消息 from 邮件 Set rs=AdoSet(str)Set HFGrid.DataSource=rs End Sub Private Sub Command2_Click()frmmaif.Text1.Text=List1.Text 房屋租售系统的设计与实现25/3425/34 End Sub Private Sub Command1_Click()Unload Me End Sub Private Sub Form_Load()Dim rs As New ADODB.Recordset rs.Open Select 姓名 from 系统管理,CN,1,3 Do While Not rs.EOF List1.AddItem rs(0)rs.MoveNext Loop End Sub Private Sub List1_Click()Command2_Click End Sub 3.2.2.数据库设计通过建立统一的数据库，为系统提供数据支撑。本系统借助Access建立了一个小型清晰地数据库。以下以个别数据库为例说明。成本项目数据库：房屋租售系统的设计与实现26/3426/34 房屋信息数据库：邮件数据库：房屋租售系统的设计与实现27/3427/34 系统管理数据库：4、结束语本文在充分了解房地产信息管理系统发展现状之后，立足于房地产行业的实际需要，通过系统分析和结构建立，借助Visual Basic 语言和Microsoft Access数据库设计并实现了房屋销售系统。按照通用性、模块性、整体性、发展性的设计原则，兼顾整体和局部，基本创建了系统的多房屋租售系统的设计与实现28/3428/34 样模块，如：房屋基本属性设置模块、成本交易模块、公告栏模块、邮件联系模块等，实现了系统的各个模块的基本功能，包括查询房屋信息、添加和删除各属性内容、各用户之间的信息联系等。该系统界面友好，操作简单，功能清晰，便于数据的统计和分析，提高了管理效率。为用户提供了比较完善的操作平台。通过该系统的设计与功能实现，让我更加熟悉了Visual Basic 语言和Microsoft Access数据库开发工具的操作方法。在系统设计过程中遇到的问题，通过导师的帮助、查阅书籍以及借助互联网的搜索，得到了解决。特别感谢导师的耐心帮助和教导，使我最终完成系统的设计。房屋租售系统的设计与实现29/3429/34 参考文献：1 张国伟，张国英房地产管理信息系统开发探讨J 房地产信息化，2007（9）2 方志祥，黄全义，罗年学房地产管理信息系统特征及开发方案浅析J 测绘通报，2001（18）3 杨长江房地产管理信息系统应用前景看好J 房地科技，1999（2）4 李明，冯峰房地产管理中的多项目开发模式分析J 科协论坛，2011（6）5 陆新泉，吴群，吴渭春，林海涛房屋销售管理系统的设计与实现J 计算机系统应用,1998（2）6 李奕文，景德广数字房地产管理信息系统的技术探索J 测绘技术装备，2007（2）7 罗超理，李万红管理信息系统原理与应用M 清华大学出版社，20028 艾德才计算机信息管理基础M 中国水利水电出版社 2010 9 陶宏才数据库原理及设计M 清华大学出版 2009 10 蒋海琴，蒋文明房地产管理信息系统M 科学出版社 2007 11 袁渭康，俞金寿信息科学与工程M 科学出版社 2009 12 阎俊爱，张素娇数字化房地产技术与设计 D 东北财经大学出版社2006 13 赛奎春 Visual basic信息管理系统开发实例精选M 机械工业出版社 2010 14 陈学东 Visual Basic6.0程序设计实验教程 M电子工业出版社2009 15 闵联营 Visual Basic程序设计 M 北京大学出版社 2008 16 Jeffrey R.Shapiro.Visual basic.NET.电子工业出版社.17 H.M.Deitel.Visual basic.NET.清华大学出版社.18 曼纽尔卡斯特.网络社会的崛起.社会科学文献出版社.19 登哈特.公共服务:服务而不是掌舵.中国人民大学出版社.房屋租售系统的设计与实现30/3430/34 20John W.Satzinger,Robert B.Jackson,Stephen D.Burd.系统分析与设计.机械工业出版社.