房地产信息管理系统.docx

1、房地产信息管理系统铁道大学四方学院集中实践报告书课题名称房地产信息系统姓 名学 号系、 部土木工程专业专业班级指导教师仁芬2015年 06 月 25 日一、设计任务及要求：设计任务：房地产信息系统的开发要 求：房地产信息管理系统使用的主要成员包括管理员、注册用户和浏览者。1系统管理员：系统管理员具有房源管理、管理员管理、用户信息管理、留言信息管理等重要功能；2数据库模块：建立管理员信息表、楼盘表、楼房基本信息表、房型基本信息表等，实现数据库与前台的，并设置相关权限，完善整个系统功能。主要功能有：1个人或中介主要实现当注册成功后，登录到系统发布房源信息，查看用户发布的求房信息和房源信息，并更新个

2、人信息。2房产商主要实现当登录后，发布房产资讯，楼盘信息和新房信息并可以安全退出。二、指导教师评语： 三、成绩 指导教师签名： 年 月 日 房地产信息管理系统1.选题的意义 随着信息技术的发展，房产公司对房产管理的要求越来越高，很多房产公司已明显觉得不能适应当前的发展和需要，意识到使用计算机管理的重要性。目前各种信息化管理工作也迫切需要从繁杂的事务中解放出来，提高工作效率。因此信息化管理变得越来越重要，而真正实用的房产信息管理系统必须有完善的权限管理机制，这种机制通常是通过用户管理来实现的，并进行相关的信息查询和处理。随着我国城镇住房制度改革的深化、住房建设步伐加快和住房消费有效启动,我国房地

3、产行业得到了飞速发展,在国民经济建设中发挥着巨大的带动作用,并已成为我国的重要支柱行业。虽然计算机管理并不是房地产业销售走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对房地产业的信息业务的管理提供强有力的支持。面对信息时代的机遇和挑战，利用科技手段提高房地产公司的信息管理无疑是一条行之有效的途径。对房地产整个公司来说，对房地产公司销售状况起决定作用的是房地产公司的信息管理水平。如何利用先进的管理手段来提高房地产公司的信息管理水平成为房地产销售业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高房地产公司的信息管理无疑是一条行之有效的途径。虽然计算机管理并不是房地产

4、业销售走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对房地产业的信息业务的管理提供强有力的支持。因此，采用全新的计算机网络和房地产信息管理系统，已成为提高房地产信息管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助房地产公司有效地进行业务管理，释放最大价值。房地产信息管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。需求分析是从

5、客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。2.系统功能需求分析2.1系统概述该系统是以房地产信息管理为基础开发的通用房地产信息管理系统，适合中、小房地产企业的使用。该系统应有较高的可靠性，房地产信息管理系统包括房源管理，留言信息管理，管理员管理，退出等多种功能。我们所设计的房地产信息管理系统具有以上功能，可以方便快捷准确的获取以上信息，为用户以及浏览者提供方便，形成美观大方的主题操作界面，可以使房地产信息系统更高效的为客人服务。房源管理：其中楼盘表，房型基本信息表，楼房基

6、本信息表包含大量的楼房信息。留言信息管理:其中可发布各种求房等信息。管理员管理：其中包括权限管理，用户信息管理，管理系统。退出：可安全退出本程序。2.2系统的组成及各模块的功能房地产信息管理系统的组成主要包括以下几点功能:1.系统登录模块：用户名、密码2.房源管理模块：楼盘表、楼房基本信息表、房型基本信息表3.购房与登记模块：用户购房、购房登记4.留言信息管理模块：留言者、时间、留言容5.退出模块：安全退出6.注册模块：用户名、密码2.3系统的运行环境 1.系统使用环境 操作系统:Windows 2000/XP 系统支持：Visual basic 6.0及以上版本支持库数据库：Access。硬

7、件环境：处理器;Intel Pentium 166MX或者更高。硬盘：剩余使用空间1GB以上。显卡：SVGA显示适配器。存：32MB以上。 操作系统：Windows 2000/XP。 2.系统开发环境系统支持：Visual Basic 6.03、系统设计3.1总体结构设计图1总体模块图32数据库实现表1房型基本信息表字段名称数据类型字段大小所属楼盘文本255栋号文本255单元号文本255房号文本255户型文本255朝向文本255面积文本255状态文本255用户名文本255联系方式文本255户型图文本255表2楼盘表字段名称数据类型字段大小所属楼盘文本255物业类型文本255建筑类别文本255环

8、线位置文本255开发商文本255售楼位置文本255物业地址文本255交通状况文本255平均房价文本255表3楼房基本信息字段名称数据类型字段大小所属楼盘文本255栋号文本255单元总数文本255总层数文本255户型文本255占地面积文本2554、系统实现4.1主窗体的设计与实现图2主窗体界面Private Sub adduser_Click()楼盘表.ShowEnd SubPrivate Sub exit_Click()留言信息管理.ShowEnd SubPrivate Sub liulan_Click()用户信息管理.ShowEnd SubPrivate Sub gf_Click()购房与登

9、记.ShowEnd SubPrivate Sub MDIForm_Load()If 登录.s 管理员 Then 管理员管理.Enabled = FalseIf 登录.s 房地产商1 Then 房源管理.Enabled = FalseEnd SubPrivate Sub tiantushu_Click()住户信息管理.ShowEnd SubPrivate Sub fx_Click()房型基本信息.ShowEnd SubPrivate Sub 管理员信息表_Click()管理员管理.ShowEnd SubPrivate Sub 楼房基本信息表_Click()楼房基本信息.ShowEnd SubPr

10、ivate Sub 退出_Click()Unload MeEnd Sub4.2房型基本信息的设计与实现图3房型基本信息界面Private Sub Command3_Click()n = val（text11.text）For i = 1 To nAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(2) = Text1.TextAdodc1.Recordset.Fields(3) = Text2.TextAdodc1.Recordset.Fields(5) = Text7.TextAdodc1.Recordset.Fields(6) = Text6.Te

11、xtAdodc1.Recordset.Fields(7) = Text5.TextAdodc1.Recordset.Fields(8) = Text4.TextAdodc1.Recordset.Fields(1) = Text8.TextAdodc1.Recordset.Fields(11) = Text10.TextAdodc1.Recordset.Fields(房号) = i & Text2.TextAdodc1.Recordset.UpdateNext iEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPr

12、ivate Sub Command4_Click()Unload meEnd SubPrivate Sub Command5_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 房型基本信息表 where 所属楼盘= + Text9 + Adodc1.RefreshEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provid

13、er=Microsoft.ACE.OLEDB.12.0;Data Source=database11.accdb;Persist Security Info=FalseEnd SubPrivate Sub Command6_Click()CommonDialog1.ShowOpenDim s$, s1$, s2$, i%s = s2 = CommonDialog1.FileNameFor i = LenB(s2) To 1 Step -1s1 = Mid(s2, i, 1)If s1 Thens = s1 + sElseExit ForEnd IfNextImage1.Picture = Lo

14、adPicture(App.Path + image + s)Text10 = sEnd SubPrivate Sub Form_Load1()Adodc1.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source= + App.Path + database11.accdbAdodc1.RecordSource = select 户型图 as 户型图 from 房型基本信息表Adodc1.RefreshEnd SubPrivate Sub Text10_Change

15、()If Text10 ThenImage1.Picture = LoadPicture(App.Path + image + Text10)ElseImage1.Picture = LoadPicture()End IfEnd Sub4.3楼盘表的设计与实现图4楼盘表界面Private Sub Command2_Click()Adodc1.Recordset.MoveNextEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.MovePreviousEnd SubPrivate Sub Command3_Click()Unload MeEn

16、d SubPrivate Sub Command4_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 楼盘表 where 楼盘名称= + Text10 + Adodc1.RefreshEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()Adodc1.Re

17、cordset.DeleteEnd Sub4.4楼房基本信息的设计与实现图5楼房基本信息界面Private Sub Command1_Click()Adodc1.Recordset.MoveNextEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MovePreviousEnd SubPrivate Sub Command3_Click()房型基本信息.ShowEnd SubPrivate Sub Command4_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = sele

18、ct * from 楼房基本信息表 where 所属楼盘= + Text3 + Adodc1.RecordSource = select * from 楼房基本信息表 where 栋号= + Text3 + Adodc1.RefreshEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.DeleteEnd Sub5

19、、设计体会5.1总结感一直对我课程设计提供帮助的仁芬老师，没有您的悉心指导、和孜孜不倦的教诲，我不可能完成符合要求的合格的课程设计。与此同时，我也要感对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，你们。同时，我也要再次感全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在报告中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。5.2存在的主要问题鉴于能力水平所限，我们存在的问题还不少，界面不够精明，样式死板，无法直观的了解楼房样式，以及楼房预约，可供查询的容比较少，望

20、老师提出批评意见。参考文献1 砚 周青 华杰.visual basic 8.0基础教程，：清华大学，2004-5-12 徐健平，永.Visual basic基础教程，机械工业 。出版日期：2000-5-13 鲁.Visual basic 6.0编程技巧与实例分析，水利水电。出版日期：1999-10-14 磊等. Visual basic 6使用详解，机械工业 。出版日期：1999-7-15 康耀红，黄建青等.Visual basic 6.0数据库设计，大学，出版日期：2002-2-16 刚.Visual basic 6.0实效编程百例，人民邮电，出版日期：2002-7-17 周兰文.Visual basic 6中文版与上机指导，清华大学， 出版日期：1999