房地产信息管理系统.doc

1、石家庄铁道大学四方学院集中实践报告书课题名称 房地产信息系统姓 名学 号系、 部 土木工程专业专业班级指导教师 刘仁芬2015 年 06 月 25 日2014 级高级语言程序设计 一、设计任务及要求：设计任务：房地产信息系统的开发要 求：房地产信息管理系统使用的主要成员包括管理员、注册用户和浏览者。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.

7、0 及以上版本支持库数据库：Access。硬件环境：处理器;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系统登录房地产信息管

8、理系统房源管理管理员管理留言信息管理退 出房型基本信息表楼房基本信息表楼盘表用户留言信息表系统注册购房预登记联系方式 文本 255户型图 文本 255表 2 楼盘表字段名称 数据类型 字段大小所属楼盘 文本 255物业类型 文本 255建筑类别 文本 255环线位置 文本 255开发商 文本 255售楼位置 文本 255物业地址 文本 255交通状况 文本 255平均房价 文本 255表 3 楼房基本信息字段名称 数据类型 字段大小所属楼盘 文本 255栋号 文本 255单元总数 文本 255总层数 文本 255户型 文本 255占地面积 文本 2554、系统实现4.1 主窗体的设计与实现图

9、2 主窗体界面Private Sub adduser_Click()楼盘表.ShowEnd SubPrivate Sub exit_Click()留言信息管理.ShowEnd SubPrivate Sub liulan_Click()用户信息管理.ShowEnd SubPrivate Sub gf_Click()购房与登记.ShowEnd SubPrivate Sub MDIForm_Load()If 登录.s “房地产商 1“ Then 房源管理.Enabled = FalseEnd SubPrivate Sub tiantushu_Click()住户信息管理.ShowEnd SubPriv

10、ate Sub fx_Click()房型基本信息.ShowEnd SubPrivate Sub 管理员信息表_Click()管理员管理.ShowEnd SubPrivate Sub 楼房基本信息表_Click()楼房基本信息.ShowEnd SubPrivate Sub 退出_Click()Unload MeEnd Sub4.2 房型基本信息的设计与实现图 3 房型基本信息界面Private Sub Command3_Click()n = val（text11.text ）For i = 1 To nAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(

11、2) = Text1.TextAdodc1.Recordset.Fields(3) = Text2.TextAdodc1.Recordset.Fields(5) = Text7.TextAdodc1.Recordset.Fields(6) = Text6.TextAdodc1.Recordset.Fields(7) = Text5.TextAdodc1.Recordset.Fields(8) = Text4.TextAdodc1.Recordset.Fields(1) = Text8.TextAdodc1.Recordset.Fields(11) = Text10.TextAdodc1.Rec

12、ordset.Fields(“房号“) = i Data Source=database11.accdb;Persist Security Info=False“End 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 “ ThenImage1.Picture = LoadPicture(App.Path + “image“ + T

13、ext10)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 MeEnd SubPrivate Sub Command4_Click()Adodc1.CommandType = adCmdTex

14、tAdodc1.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.Recordset.DeleteEnd Sub4.4 楼房基本信息的设计与实现图 5 楼房基本信息界面Private Su

15、b 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 = “select * from 楼房基本信息表 where 所属楼盘=“ + Text3 + “Adodc1.Record

16、Source = “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、设计体会5.1 总结感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导、和孜孜不倦的教诲，

17、我不可能完成符合要求的合格的课程设计。与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在报告中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。5.2 存在的主要问题鉴于能力水平所限，我们存在的问题还不少，界面不够精明，样式死板，无法直观的了解楼房样式，以及楼房预约，可供查询的内容比较少，望老师提出批评意见。参考文献1 郑砚 周青 李华杰.visual basic 8.0

18、 基础教程 ，北京：清华大学出版社，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