房地产信息管理系统

※※※※※※※※※

※※

※※

※※

※※※※※※※※※

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。

硬件环境：

处理器;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（）

For i = 1 To n

(2) =

(3) =

(5) =

(6) =

(7) =

(8) =

(1) =

(11) =

("房号") = i &

ext i

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command4_Click()

Unload me

End Sub

Private Sub Command5_Click()

dType = adCmdText

Source = "select * from 房型基本信息表 where 所属楼盘='" + Text9 + "'"

h

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

tionString = "Provider=.12.0;Data

Source=;Persist Security Info=False"

End Sub

Private Sub Command6_Click()

en

Dim s$, s1$, s2$, i%

s = ""

s2 = me

For i = LenB(s2) To 1 Step -1

s1 = Mid(s2, i, 1)

If s1 <> "" Then

s = s1 + s

Else

Exit For

End If

ext

e = LoadPicture( + "image" + s)

Text10 = s

End Sub

Private Sub Form_Load1()

tionString = "Provider=.12.0;Persist Security Info=False;Data

Source=" + + ""

Source = "select 户型图 as 户型图 from 房型基本信息表"

h

End Sub

Private Sub Text10_Change()

If Text10 <> "" Then

e = LoadPicture( + "image" + Text10)

Else

e = LoadPicture()

End If

End Sub

4.3楼盘表的设计与实现

图4楼盘表界面

Private Sub Command2_Click()

xt

End Sub

Private Sub Command1_Click()

evious

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command4_Click()

dType = adCmdText

Source = "select * from 楼盘表 where 楼盘名称='" + Text10 + "'"

h

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()

End Su

b

4.4楼房基本信息的设计与实现

图5楼房基本信息界面

Private Sub Command1_Click()

xt

End Sub

Private Sub Command2_Click()

evious

End Sub

Private Sub Command3_Click()

房型基本信息.Show

End Sub

Private Sub Command4_Click()

dType = adCmdText

Source = "select * from 楼房基本信息表 where 所属楼盘='" + Text3 + "'"

Source = "select * from 楼房基本信息表 where 栋号='" + Text3 + "'"

h

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()

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