《房地产信息管理系统》由会员分享，可在线阅读，更多相关《房地产信息管理系统（11页珍藏版）》请在金锄头文库上搜索。
1、2014级高级语言程序设计 石家庄铁道大学四方学院集中实践报告书课题名称房地产信息系统姓 名学 号系、 部土木工程专业专业班级指导教师刘仁芬2015年 06 月 25 日一、设计任务及要求：设计任务：房地产信息系统的开发要 求：房地产信息管理系统使用的主要成员包括管理员、注册用户和浏览者.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.0及以
7、上版本支持库数据库: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
8、面积文本255状态文本255用户名文本255联系方式文本255户型图文本255表2楼盘表字段名称数据类型字段大小所属楼盘文本255物业类型文本255建筑类别文本255环线位置文本255开发商文本255售楼位置文本255物业地址文本255交通状况文本255平均房价文本255表3楼房基本信息字段名称数据类型字段大小所属楼盘文本255栋号文本255单元总数文本255总层数文本255户型文本255占地面积文本2554、系统实现4.1主窗体的设计与实现图2主窗体界面Private Sub adduser_Click（)楼盘表。ShowEnd SubPrivate Sub exit_Click（）留言信息
9、管理.ShowEnd SubPrivate Sub liulan_Click（)用户信息管理.ShowEnd SubPrivate Sub gf_Click（）购房与登记.ShowEnd SubPrivate Sub MDIForm_Load()If 登录.s 管理员” Then 管理员管理.Enabled = FalseIf 登录.s ”房地产商1 Then 房源管理。Enabled = FalseEnd SubPrivate Sub tiantushu_Click()住户信息管理。ShowEnd SubPrivate Sub fx_Click()房型基本信息.ShowEnd SubPriv
10、ate 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(2) = Text1.TextAdodc1.Recordset.Fields（3) =
11、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.Recordset。Fields(”房号) = i & Text2.TextAdodc1。Re
12、cordset。UpdateNext iEnd SubPrivate Sub Command2_Click（)Adodc1。Recordset.DeleteEnd SubPrivate Sub Command4_Click(）Unload meEnd SubPrivate Sub Command5_Click（)Adodc1.CommandType = adCmdTextAdodc1。RecordSource = ”select from 房型基本信息表 where 所属楼盘=” + Text9 + ”Adodc1。RefreshEnd SubPrivate Sub Command1_Clic
13、k(）Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load（）Adodc1。ConnectionString = Provider=Microsoft.ACE.OLEDB.12。0；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
14、1 Step -1s1 = Mid（s2, i， 1）If s1 ” Thens = s1 + sElseExit ForEnd IfNextImage1.Picture = LoadPicture（App。Path + ”image” + s）Text10 = sEnd SubPrivate 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
