房地产信息管理系统Word格式.docx

1、建立管理员信息表、楼盘表、楼房基本信息表、房型基本信息表等，实现数据库与前台的链接，并设置相关权限，完善整个系统功能。主要功能有：1个人或中介主要实现当注册成功后，登录到系统发布房源信息，查看用户发布的求房信息和房源信息，并更新个人信息。2房产商主要实现当登录后，发布房产资讯，楼盘信息和新房信息并可以安全退出。二、指导教师评语： 三、成绩 指导教师签名： 年 月 日 1. 选题的意义 随着信息技术的发展，房产公司对房产管理的要求越来越高，很多房产公司已明显觉得不能适应当前的发展和需要，意识到使用计算机管理的重要性。目前各种信息化管理工作也迫切需要从繁杂的事务中解放出来，提高工作效率。因此信息化

2、管理变得越来越重要，而真正实用的房产信息管理系统必须有完善的权限管理机制，这种机制通常是通过用户管理来实现的，并进行相关的信息查询和处理。随着我国城镇住房制度改革的深化、住房建设步伐加快和住房消费有效启动,我国房地产行业得到了飞速发展,在国民经济建设中发挥着巨大的带动作用,并已成为我国的重要支柱行业。虽然计算机管理并不是房地产业销售走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对房地产业的信息业务的管理提供强有力的支持。面对信息时代的机遇和挑战，利用科技手段提高房地产公司的信息管理无疑是一条行之有效的途径。对房地产整个公司来说，对房地产公司销售状况起决定作用的是房地产公司的

3、信息管理水平。如何利用先进的管理手段来提高房地产公司的信息管理水平成为房地产销售业务发展的当务之急。因此，采用全新的计算机网络和房地产信息管理系统，已成为提高房地产信息管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助房地产公司有效地进行业务管理，释放最大价值。房地产信息管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。2.系统功能需求分析2.1系

4、统概述该系统是以房地产信息管理为基础开发的通用房地产信息管理系统，适合中、小房地产企业的使用。该系统应有较高的可靠性，房地产信息管理系统包括房源管理，留言信息管理，管理员管理，退出等多种功能。我们所设计的房地产信息管理系统具有以上功能，可以方便快捷准确的获取以上信息，为用户以及浏览者提供方便，形成美观大方的主题操作界面，可以使房地产信息系统更高效的为客人服务。房源管理：其中楼盘表，房型基本信息表，楼房基本信息表包含大量的楼房信息。留言信息管理:其中可发布各种求房等信息。管理员管理：其中包括权限管理，用户信息管理，管理系统。退出：可安全退出本程序。2.2系统的组成及各模块的功能房地产信息管理系统

5、的组成主要包括以下几点功能:1. 系统登录模块：用户名、密码2. 房源管理模块：楼盘表、楼房基本信息表、房型基本信息表3. 购房与登记模块：用户购房、购房登记4. 留言信息管理模块：留言者、时间、留言内容5. 退出模块：安全退出6. 注册模块：2.3系统的运行环境 1.系统使用环境 操作系统:Windows 2000/XP 系统支持：Visual basic 6.0及以上版本支持库数据库：Access。硬件环境：处理器;Intel Pentium 166MX或者更高。硬盘：剩余使用空间1GB以上。显卡：SVGA显示适配器。内存：32MB以上。 操作系统：Windows 2000/XP。 2.系

6、统开发环境系统支持：Visual Basic 6.03、系统设计3.1总体结构设计图1总体模块图32数据库实现表1房型基本信息表字段名称数据类型字段大小所属楼盘文本255栋号单元号房号户型朝向面积状态用户名联系方式户型图表2楼盘表物业类型建筑类别环线位置开发商售楼位置物业地址交通状况平均房价表3楼房基本信息单元总数总层数占地面积4、系统实现4.1主窗体的设计与实现图2主窗体界面Private Sub adduser_Click（）楼盘表.ShowEnd SubPrivate Sub exit_Click（）留言信息管理.ShowPrivate Sub liulan_Click（）用户信息管理.

7、ShowPrivate Sub gf_Click（）购房与登记.ShowPrivate Sub MDIForm_Load（）If 登录.s 管理员 Then 管理员管理.Enabled = False房地产商1 Then 房源管理.Enabled = FalsePrivate Sub tiantushu_Click（）住户信息管理.ShowPrivate Sub fx_Click（）房型基本信息.ShowPrivate Sub 管理员信息表_Click（）管理员管理.ShowPrivate Sub 楼房基本信息表_Click（）楼房基本信息.ShowPrivate Sub 退出_Click（）

8、Unload Me4.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.TextAdodc1.Recordset.Fields（7

9、） = Text5.TextAdodc1.Recordset.Fields（8） = Text4.TextAdodc1.Recordset.Fields（1） = Text8.TextAdodc1.Recordset.Fields（11） = Text10.TextAdodc1.Recordset.Fields（房号） = i & Text2.TextAdodc1.Recordset.UpdateNext iPrivate Sub Command2_Click（）Adodc1.Recordset.DeletePrivate Sub Command4_Click（）Unload mePrivat

10、e Sub Command5_Click（）Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 房型基本信息表 where 所属楼盘= + Text9 + Adodc1.RefreshPrivate Sub Command1_Click（）Private Sub Form_Load（）Adodc1.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=database11.accdb;Persist Security Info=FalseP

11、rivate 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 = LoadPicture（App.Path + image + s）Text10 = sPrivate Sub Form_Load1（）Persist Security Info=False;Data Source= + App.Path + database11.accdbselect 户型图 as 户型图 from 房型基本信息表Private Sub Text10_Change（）If Text10 + Text10）Image1.Picture = LoadPicture（）4.3楼盘表的设计与实现图4楼盘表界面Private