房地产信息管理系统

探2014 级高级语言程序设计探石家庄铁道大学四方学院集中实践报告书课题名称房地产信息系统姓名学号系、部土木工程专业专业班级指导教师刘仁芬2015年06月25 日、设计任务及要求：设计任务：房地产信息系统的开发要 求:房地产信息管理系统使用的主要成员包括管理员、 注册用户和浏览者。 1系统管理员：系统管理员具有房源管理、管理员管理、用户信息管理、 留言信息管理等重要功能；2数据库模块：建立管理员信息表、楼盘表、楼房基本信息表、房型基本 信息表等，实现数据库与前台的链接，并设置相关权限，完善整个系统功能。主要功能有：1个人或中介主要实现当注册成功后，登录到系统发布房源信息，查看用 户发布的求房信息和房源信息，并更新个人信息。2房产商主要实现当登录后，发布房产资讯，楼盘信息和新房信息并可以 安全退出。、指导教师评语:二、成绩指导教师签名： 年月 日房地产信息管理系统1. 选题的意义随着信息技术的发展，房产公司对房产管理的要求越来越高，很多房产公司已明 显觉得不能适应当前的发展和需要，意识到使用计算机管理的重要性。目前各种信 息化管理工作也迫切需要从繁杂的事务中解放出来，提高工作效率。因此信息化管 理变得越来越重要，而真正实用的房产信息管理系统必须有完善的权限管理机制， 这种机制通常是通过用户管理来实现的，并进行相关的信息查询和处理。随着我国 城镇住房制度改革的深化、住房建设步伐加快和住房消费有效启动，我国房地产行业 得到了飞速发展，在国民经济建设中发挥着巨大的带动作用，并已成为我国的重要支 柱行业。虽然计算机管理并不是房地产业销售走向成功的关键元素，但它可以最大 限度地发挥准确、快捷、高效等作用，对房地产业的信息业务的管理提供强有力的 支持。面对信息时代的机遇和挑战，利用科技手段提高房地产公司的信息管理无疑 是一条行之有效的途径。对房地产整个公司来说，对房地产公司销售状况起决定作用的是房地产公司的 信息管理水平。如何利用先进的管理手段来提高房地产公司的信息管理水平成为房地 产销售业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高房地产 公司的信息管理无疑是一条行之有效的途径。 虽然计算机管理并不是房地产业销售走 向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对房地产业 的信息业务的管理提供强有力的支持。 因此，采用全新的计算机网络和房地产信息管 理系统，已成为提高房地产信息管理效率， 使作业人员与管理系统之间灵活互动， 实 现流畅的工作流衔接，帮助房地产公司有效地进行业务管理， 释放最大价值。房地产 信息管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、 准确、迅速地满足顾客服务的需求。需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需 求的升华，直接关系到该系统的质量。需求分析是从客户的需求中提取出软件系统能 够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块， 即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。2. 系统功能需求分析2.1系统概述该系统是以房地产信息管理为基础开发的通用房地产信息管理系统，适合中、小房地产企业的使用。该系统应有较高的可靠性，房地产信息管理系统包括房源管理，留言信息管理，管理员管理，退出等多种功能。我们所设计的房地产信息管理系统具 有以上功能，可以方便快捷准确的获取以上信息，为用户以及浏览者提供方便，形成美观大方的主题操作界面，可以使房地产信息系统更高效的为客人服务。房源管理：其中楼盘表，房型基本信息表，楼房基本信息表包含大量的楼房信息。 留言信息管理：其中可发布各种求房等信息。管理员管理：其中包括权限管理，用户信息管理，管理系统。退出：可安全退出本程序。2.2系统的组成及各模块的功能房地产信息管理系统的组成主要包括以下几点功能：1. 系统登录模块：用户名、密码2. 房源管理模块：楼盘表、楼房基本信息表、房型基本信息表3. 购房与登记模块：用户购房、购房登记4. 留言信息管理模块：留言者、时间、留言内容5. 退出模块：安全退出6. 注册模块：用户名、密码2.3系统的运行环境1. 系统使用环境操作系统：Windows 2000/XP系统支持：Visual basic 6.0及以上版本支持库数据库：Access硬件环境：处理器；In tel Pe ntium 166MX或者更高。硬盘：剩余使用空间1GB以上。显卡：SVGA显示适配器。内存：32MB以上。操作系统： Win dows 2000/XP。2. 系统开发环境系统支持：Visual Basic 6.03、系统设计3.1总体结构设计系统登录系统注册房地产信息管理系统房源管理购房预登记留言_:言退出信 息 管 理图1总体模块图3. 2数据库实现表1房型基本信息表字段名称数据类型字段大小所属楼盘文本255栋号文本255单元号文本255由口 房号文本255户型文本255朝向文本255面积文本255状态文本255用户名文本255联系方式文本255户型图文本255表2楼盘表字段名称数据类型字段大小所属楼盘文本255物业类型文本255建筑类别文本255环线位置文本255开发商文本255售楼位置文本255物业地址文本255交通状况文本255平均房价文本255表3楼房基本信息字段名称数据类型字段大小所属楼盘文本255栋号文本255单元总数文本255总层数文本255户型文本255占地面积文本2554、系统实现4.1主窗体的设计与实现1工建i：左畔小忙IPareilo II B f E3 11刚0配虹础中迅 Redact图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 管理员 Then 管理员管理 .Enabled = FalseIf 登录 .s 房地产商 1 Then 房源管理 .Enabled = False End SubPrivate Sub tiantushu_Click() 住户信息管理 .ShowEnd SubPrivate Sub fx_Click() 房型基本信息 .ShowEnd SubPrivate Sub 管理员信息表 _Click() 管理员管理 .ShowEnd SubPrivate Sub 楼房基本信息表 _Click() 楼房基本信息 .ShowEnd SubPrivate Sub 退出 _Click()Un load MeEnd Sub4.2房型基本信息的设计与实现图3房型基本信息界面Private Sub Comma nd3_Click()n = val (text11.text)For i = 1 To n=Text5.Text房号)=i & Text2.TextNext iEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command4_Click()Unload meEnd SubPrivate Sub Command5_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 房型基本信息表 where 所属楼盘 = + Text9 + Adodc1.RefreshEnd SubPrivate Sub Command1_Click()End SubPrivate Sub Form_Load()Adodc1.ConnectionString = 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 Thens = s1 + sElseExit ForEnd IfNextImagel.Picture = LoadPicture(App.Path + image + s)TextIO = sEnd SubPrivate Sub Form_Load1()Source= + App.Path + database11.accdbAdodc1.RecordSource = select户型图 as户型图from 房型基本信息表”Adodc1.RefreshEnd SubPrivate Sub Text10_Cha nge()If Text10 The nImage1. Picture = LoadPicture(App. Path + image + Text10)ElseImage1.Picture = LoadPicture()End IfEnd Sub4.3楼盘表的设计与实现图4楼盘表界面Private Sub Comma nd2_Click()End SubPrivate Sub Comma nd1_Click()End SubPrivate Sub Comma nd3_Click()Un load MeEnd SubPrivate Sub Comma nd4_Click()Adodc1.Comma ndType = adCmdTextAdodc1.RecordSource = select * from 楼盘表 where 楼盘名称=+ Text10 + AdodcI.RefreshEnd SubPrivate Sub Comma nd5_Click()End SubPrivate Sub Comma nd6_Click()End SubPrivate Sub Comma nd7_Click()End Sub4.4楼房基本信息的设计与实现图5楼房基本信息界面Private Sub Comma nd1_Click()End SubPrivate Sub Comma nd2_Click()End SubPrivate Sub Comma nd3_Click()房型基本信息.ShowEnd SubPrivate Sub Comma nd4_Click()Adodc1.Comma ndType = adCmdTextAdodc1.RecordSource = select * from 楼房基本信息表 where 所属楼盘=+ Text3 + “Adodcl.RecordSource = select * from 楼房基本信息表 where 栋号=+ Text3 + “ AdodcI.RefreshEnd SubPrivate Sub Comma nd5_Click()End SubPrivate Sub Comma nd6_Click()End SubPrivate Sub Comma nd7_Click()End Sub5、设计体会5.1总结感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导、和孜孜不倦的教诲，我不可能完成符合要求的合格的课程设计。与此同时，我也要感谢对我课程设计提供帮助的同学们， 是你们给予了我更多更 广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大 的帮助，谢谢你们。同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在报告中， 您们的劳动都是我的毕业设 计能够完成不可缺少的因素。5.2 存在的主要问题 鉴于能力水平所限，我们存在的问题还不少，界面不够精明，样式死板，无法 直观的了解楼房样式，以及楼房预约，可供查询的内容比较少，望老师提出批评意 见。参考文献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