房地产信息管理系统
铁道大学四方学院 集中实践报告书
课题名称 房地产信息系统 姓 名
学 号
系、 部 土木工程专业
专业班级 指导教师
仁芬
2015年 06 月 25 日
※※※※※※※※※ ※
※ ※
※ ※※
※
※
※
※
※
※※※※
2014级 高级语言程序设计
房地产信息管理系统
1.选题的意义
随着信息技术的发展，房产公司对房产管理的要求越来越高，很多房产公司已明显觉得不能适应当前的发展和需要，意识到使用计算机管理的重要性。目前各种信息化管理工作也迫切需要从繁杂的事务中解放出来，提高工作效率。因此信息化管理变得越来越重要，而真正实用的房产信息管理系统必须有完善的权限管理机制，这种机制通常是通过用户管理来实现的，并进行相关的信息查询和处理。随着我国城镇住房制度改革的深化、住房建设步伐加快和住房消费有效启动,我国房地产行业得到了飞速发展,在国民经济建设中发挥着巨大的带动作用,并已成为我国的重要支柱行业。虽然计算机管理并不是房地产业销售走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对房地产业的信息业务的管理提供强有力的支持。面对信息时代的机遇和挑战，利用科技手段提高房地产公司的信息管理无疑是一条行之有效的途径。
对房地产整个公司来说，对房地产公司销售状况起决定作用的是房地产公司的信息管理水平。如何利用先进的管理手段来提高房地产公司的信息管理水平成为房地产销售业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高房地产公司的信息管理无疑是一条行之有效的途径。虽然计算机管理并不是房地产业销售走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对房地产业的信息业务的管理提供强有力的支持。因此，采用全新的计算机网络和房地产信息管理系统，已成为提高房地产信息管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助房地产公司有效地进行业务管理，释放最大价值。房地产信息管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。
需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。
2.系统功能需求分析
2.1系统概述
该系统是以房地产信息管理为基础开发的通用房地产信息管理系统，适合中、小房地产企业的使用。该系统应有较高的可靠性，房地产信息管理系统包括房源管理，
留言信息管理，管理员管理，退出等多种功能。我们所设计的房地产信息管理系统具有以上功能，可以方便快捷准确的获取以上信息，为用户以及浏览者提供方便，形成美观大方的主题操作界面，可以使房地产信息系统更高效的为客人服务。
房源管理：其中楼盘表，房型基本信息表，楼房基本信息表包含大量的楼房信息。留言信息管理:其中可发布各种求房等信息。
管理员管理：其中包括权限管理，用户信息管理，管理系统。
退出：可安全退出本程序。
2.2系统的组成及各模块的功能
房地产信息管理系统的组成主要包括以下几点功能:
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.系统开发环境
系统支持：Visual Basic 6.0
3、系统设计
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
占地面积文本255 4、系统实现
4.1主窗体的设计与实现
图2主窗体界面
Private Sub adduser_Click()
楼盘表.Show
End Sub
Private Sub exit_Click()
留言信息管理.Show
End Sub
Private Sub liulan_Click()
用户信息管理.Show
End Sub
Private Sub gf_Click()
购房与登记.Show
End Sub
Private Sub MDIForm_Load()
If 登录.s <> "管理员" Then 管理员管理.Enabled = False If 登录.s <> "房地产商1" Then 房源管理.Enabled = False End Sub
Private Sub tiantushu_Click()
住户信息管理.Show
End Sub
Private Sub fx_Click()
房型基本信息.Show
End Sub
Private Sub 管理员信息表_Click()
管理员管理.Show
End Sub
Private Sub 楼房基本信息表_Click()
楼房基本信息.Show
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
4.2房型基本信息的设计与实现
图3房型基本信息界面Private Sub Command3_Click()
n = val（text11.text）
For i = 1 To n
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(2) = Text1.Text
Adodc1.Recordset.Fields(3) = Text2.Text
Adodc1.Recordset.Fields(5) = Text7.Text
Adodc1.Recordset.Fields(6) = Text6.Text
Adodc1.Recordset.Fields(7) = Text5.Text
Adodc1.Recordset.Fields(8) = Text4.Text
Adodc1.Recordset.Fields(1) = Text8.Text
Adodc1.Recordset.Fields(11) = Text10.Text
Adodc1.Recordset.Fields("房号") = i & Text2.Text
Adodc1.Recordset.Update
Next i
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Unload me
End Sub
Private Sub Command5_Click()
https://www.360docs.net/doc/8811551456.html,mandType = adCmdText
Adodc1.RecordSource = "select * from 房型基本信息表where 所属楼盘='" + Text9 + "'" Adodc1.Refresh
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=database11.accdb;Persist Security Info=False"
End Sub
Private Sub Command6_Click()
CommonDialog1.ShowOpen
Dim s$, s1$, s2$, i%
s = ""
s2 = CommonDialog1.FileName
For i = LenB(s2) To 1 Step -1
s1 = Mid(s2, i, 1)
If s1 <> "\" Then
s = s1 + s
Else
Exit For
End If
Next
Image1.Picture = LoadPicture(App.Path + "\image\" + s)
Text10 = s
End Sub
Private Sub Form_Load1()
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source=" + App.Path + "\database11.accdb"
Adodc1.RecordSource = "select 户型图as 户型图from 房型基本信息表"
Adodc1.Refresh
End Sub
Private Sub Text10_Change()
If Text10 <> "" Then
Image1.Picture = LoadPicture(App.Path + "\image\" + Text10)
Else
Image1.Picture = LoadPicture()
End If
End Sub
4.3楼盘表的设计与实现
图4楼盘表界面
Private Sub Command2_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.MovePrevious
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
https://www.360docs.net/doc/8811551456.html,mandType = adCmdText
Adodc1.RecordSource = "select * from 楼盘表where 楼盘名称='" + Text10 + "'" Adodc1.Refresh
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.Delete
End Su b
4.4楼房基本信息的设计与实现
图5楼房基本信息界面
Private Sub Command1_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
End Sub
Private Sub Command3_Click()
房型基本信息.Show
End Sub
Private Sub Command4_Click()
https://www.360docs.net/doc/8811551456.html,mandType = adCmdText
Adodc1.RecordSource = "select * from 楼房基本信息表where 所属楼盘='" + Text3 + "'"
Adodc1.RecordSource = "select * from 楼房基本信息表where 栋号='" + Text3 + "'"
Adodc1.Refresh
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.Delete
End Sub
5、设计体会
5.1总结
感一直对我课程设计提供帮助的仁芬老师，没有您的悉心指导、和孜孜不倦的教诲，我不可能完成符合要求的合格的课程设计。
与此同时，我也要感对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，你们。
同时，我也要再次感全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在报告中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。
5.2存在的主要问题
鉴于能力水平所限，我们存在的问题还不少，界面不够精明，样式死板，无法直观的了解楼房样式，以及楼房预约，可供查询的容比较少，望老师提出批评意见。参考文献
[1] 砚周青华杰.《visual basic 8.0基础教程》，：清华大学，2004-5-1
[2] 徐健平，永.《Visual basic基础教程，机械工业。出版日期：2000-5-1
[3] 鲁.《Visual basic 6.0编程技巧与实例分析》，水利水电。出版日期：1999-10-1
[4] 磊等. 《Visual basic 6使用详解》，机械工业。出版日期：1999-7-1
[5] 康耀红，黄建青等.《Visual basic 6.0数据库设计》，大学，出版日期：2002-2-1
[6] 刚.《Visual basic 6.0实效编程百例》，人民邮电，出版日期：2002-7-1
[7] 周兰文.《Visual basic 6中文版与上机指导》，清华大学，出版日期：1999