房地产信息管理.docx

1、房地产信息管理徐州工程学院管理学院实验报告 实验课程名称 ：信息管理系统 实验地点： 城南校区7楼机房 2013 年 9 月27日至 2013 年11月15日 专 业 工程管理（ 房地产经营与开发） 班 级 11房管1班 学生姓名 井梁林 学 号 20111512105 指导老师 周渠 实验项目：小型数据库设计实验学时：2学时 实验日期：2013.9.27实验要求：数据库逻辑设计、数据库物理设计 （内容自定）实验内容： 房地产数据库设计本文后台数据库采用SQL Server 2000 作为开发工具 ，采用了结构化生命周期法、系统思想和方法得以实现和完成。该系统主要包括基本资料管理、客户管理、房

2、屋销售、收款管理、统计管理等多个功能模块 。 1功能需求 系统包括五大功能模块：主要功能模块有基本资料、客户管理、房屋销售、收款管理、统计管理等功能模块。1基本资料主要包括楼盘房屋资料、员工资料功能子模块。2客户管理是对客户的个人信息情况进行管理。主要包括来访客户资料管理、一般客户资料管理、预订客户资料管理、购房客户资料管理等功能子模块。3房屋销售主要包括房屋销售、已销售房屋资料、已预订房屋资料等功能子模块。4收款管理主要包括未收款管理、已收款管理、到期收款提示管理等功能子模块。5统计管理：包括销售代表销售记录排行、楼盘销售排行统计、收款情况统计等。报表可以根据客户的要求进行设置。2.关系模式

3、 关系模型。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格。1楼房单元房号（楼房号，单元，房号）2登记房屋（房号，单元，房型，面积，单价，总价）3登记客户（需求客户编号，预订客户编号）4预订客户（预订客户编号，客户姓名，性别，年龄，职务，身份证号，联系电话，联系地址，支付方式）5收款（预订合同编号，预订客户编号）3.E-R图所要实现的功能设计，可能建立它们之间的关系，进而实现逻辑结构功能。房地产销售管理信息系统可以划分的实体有：员工信息实体、登记房屋预登记客户信

4、息实体、预订客户与预订房屋信息实体、预订记录信息实体、需求客户与需求房屋信息实体、购买需求实体、收款记录实体。用E-R图一一描述这些实体。3.1楼房单元房号信息实体E-R图：3.2登记房屋信息实体E-R图：3.3登记客户信息实体E-R图：3.4预订客户信息实体E-R图：3.5收款记录实体E-R图：3.6总的信息实体E-R图：4.数据流程图： D5 员工信息录入 房屋信息录入 D2 D1房屋信息管理房屋登记客户登记 基本信息录入 基本信息录入 D3房屋信息管理员工信息管理 D4 预订信息录入 客户信息返回 房屋信息返回 预订信息管理表1 楼房单元房号：表中列名数据类型大小是否为空楼号intnot

5、 null(主键)单元intnot null房号char4not null表2 登记房屋：表中列名数据类型大小是否为空房号char4not null(主键)单元intnot null(外主键)房型char10Not null面积floatNot null单价floatNot null总价floatNot null表3 登记客户：表中列名数据类型大小是否为空需求客户编号char6not null(外主键)预订客户编号char6not null(外主键)表4预订客户：表中列名数据类型大小是否为空预订客户编号char6not null(主键)客户姓名char15not null性别char2Not

6、null年龄intNot null职务char10Not null身份证号char18Not null联系电话char12Not null联系地址char25Not null支付方式char10Not null表5 收款：表中列名数据类型大小是否为空预订合同编号char6Not null(外主键)预订客户编号char6Not null(外主键)实验项目：简单网页设计实验学时：2学时 实验日期：2013.9.29实验要求：了解HTML、设计简单HTML代码网页 。实验内容 This as a sample Text for Html 徐州工程学院工程管理专业2011级工程管理专业2011级实验项

7、目：某某系统系统分析实验学时：4学时 实验日期：2013.10.11,10.18实验要求：了解系统分析主要步骤、系统分析内容（可行性、业务流程、数据流程）。实验内容：一 系统分析 指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法，应用系统思想和系统科学的原理进行分析工作的方法与技术。 系统分析阶段的目的，就是按照系统规划所定的某个开发项目范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。系统分析在整个系统开发过程中，是要解决“做什么”的问题，即根据系统规划所确定的范围，对现行系统进行详细调查，尽可能弄清楚用户对信息的需求，调查原信息系统的资源，输入，处理和输出，描述现行

8、系统的业务流程，指出现行系统的局限性和不足之处，确定新系统的基本目标和逻辑功能要求，也即提出新系统的逻辑模型，为下一阶段进行物理方案设计，解决“怎么做”提供依据。因此，这个阶段又称逻辑设计阶段。 二 房屋销售管理系统的系统分析内容1、可行性研究主要目标是：进一步明确系统的目标、规模与功能，对系统开发背景、必要性和意义进行调查分析并根据需要和可能提出开发系统的初步方案与计划。可行性研究是对系统进行全面、概要的分析。 通过调查分析，新系统设计方案有以下三个可行性：可行性研究从三个方面着手,分析情况如下:1、管理上的可行性。主要是工作人员对开发信息系统的态度和管理方面的基础工作。项目的可行必须得到主

9、要领导的大力支持。基础工作的好坏主要表现在管理制度和方法是否科学,规章制度是否齐全以及原始数据是否正确等方面。该销售公司各类资料很种类繁多、数量巨大，因此公司要为各类信息，为每个客户，每个业主建立需求资料档案，也便于加强公司对客户需求的管理，因此在管理上可行。 2、技术上的可行性。主要考虑将来的采用的硬件和软件技术能否满足用户提出的要求(计算机的容量和速度等)。硬件上，目前的计算机配置足以满足该系统的硬件需要；软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Foxpro6.0，这些软件在MIS开发中已被大量应用，技术上都比较成熟。此外，还要考虑开发人员的水平。信

10、息系统是一种知识密集型行业，对技术要求较高。如果没有足够的技术实力，单纯依靠外部力量开发系统，是很难成功的。3、经济可行性。主要是对项目的经济效益进行评估，另一方面是开发的费用，其中包括设备购置费，软件开发费，管理和维护费用人员工资和培训费等。面对于系统设计还应该以“标准性、安全性、兼容性、高效性、保密性、可维护性”为标准，在着眼于当前实用的基础上，为将来系统的扩展，升级留有余地。软件的开发应能在较长时间内满足房地产市场的发展需要。故新系统还需要满足以下这几个标准：（1） 标准性：系统的软硬件选型都应该采用工业化标准，这样既可以保证系统运行质量又可以分享在此标准上的每一次技术进步。（2） 可靠

11、性：由于房屋销售信息的重要性，系统的软硬件应均为质量可靠，并采用RAID 0+1廉价磁盘冗余保护技术，确保不会由于软硬件故障造成系统运行终止而使用户蒙受损失。（3） 安全性：所有后台页面采用session检测，防止外来人员非法提交URL进行后台访问；登录模块采用用户名和密码分开检测，防止SQL注入；在实际运行中可以考虑IP过虑，防止网外用户进入；数据库定期备份。（4） 兼容性：系统的所有软硬件理论上都应有100%的兼容性，用以保证软硬件的可互换性。（5） 高效性：由于房屋销售每次处理的信息量较大，因此系统对信息的处理能力，响应能力都应是快速而有效的，在软件编制过程中应充分考虑到这一点。(6）

12、可维护性：系统软件设计时应采用结构化模块设计，以便于开发和维护，也有利于根据情况随时进行功能调整。同时在系统开发时应该充分考虑到用户的日常维护，使之能简便易行通过可行性分析研究，认为新系统的开发方案切实可行，可进行开发。联网用户访问房屋销售管理系统的互联网地址，登录后台，进入管理系统的首页。2、业务流程：.销售核算 销售、预售收入核算，销售情况分析等基本资料.合同管理 包括合同有效性审查、合同执行情况分析、合同等级和变更等基本资料销售员信息管理：销售员信息录入，销售员基本信息修改、查找、删除。添加销售记录：添加最新销售记录。客户信息管理模块：客户信息录入，客户信息修改，客户信息删除。修改密码：

13、该系统用户更新自己密码。楼盘及房屋信息：楼盘及房屋信息录入、房屋信息查询、修改、删除。退出：联网用户访问完该系统后，退出管理系统 。 实验项目：某某系统系统设计实验学时：4学时 实验日期：2013.10.25,11.1实验要求：系统设计 (代码设计、配置方案、数据存储、输入输出设计) 房屋销售系统详细设计.1 系统主窗体系统主窗体主要由窗体本身和菜单构成。首先建立一个工程，然后创建系统主窗体，主窗体的菜单，并在主窗体中添加窗体代码，来处理接各个子窗体的关系。楼盘销售管理系统的主界面如下：在主窗体中调用、切换不同界面，进行相应功能的实现，其代码如下：Private Sub building_Cl

14、ick() frmbuilding.Show 打开楼房管理界面End SubPrivate Sub custom_Click() frmcustomer.Show 打开客户信息界面End SubPrivate Sub info_Click() frminfo.Show 打开信息查询界面End SubPrivate Sub mnuEnd_Click() Unload Me 结束End SubPrivate Sub price_Click() frmprice.Show 打开房屋定价界面End SubPrivate Sub room_Click() frmroom.Show 打开房间管理界面End

15、 SubPrivate Sub sale_Click() frmsale.Show 打开楼盘销售界面End SubPrivate Sub statistics_Click() frmstatistics.Show 打开统计分析界面End Sub6.1. 1 楼房管理楼房管理主要用于简历娄烦信息，包括楼房号、楼名、所处位置、占地面积、总投资、层数、房间数、简介等，并对楼房信息进行添加、修改、删除等操作。 楼房管理界面具体代码如下：运行窗体时出发Load事件，调用LoadData过程初始化楼房ListView设置空间可用属性，调用ShowData过程显示数据，其代码如下： Option Expli

16、citDim rs As ADODB.RecordsetDim SQLStr As StringDim msg As StringDim flag As String 判断是新增记录还是修改记录Private Sub Form_Load() Call LoadData 装载数据 Call ShowData 显示数据End Sub 调用LoadData过程，装载数据，其代码如下：Private Sub LoadData()装载数据 Dim list As ListItem Dim key As String Set rs = Nothing SQLStr = SELECT * FROM 楼房信息

17、表 ORDER BY buildingID Set rs = SelectSQL(SQLStr, msg) 查询楼房信息 ListView1.ListItems.Clear 清空ListView控件 If rs.RecordCount = 0 Then 如果不存在楼房信息，添加按钮可用，其他按钮不可用 CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = False CmdCancel.Enabled = False: CmdSave.Enabled = False Else 如果存在楼房信息，初始化List

18、View控件 rs.MoveFirst Do Until rs.EOF key = rs.Fields(buildingID) & rs.Fields(bdname) Set list = ListView1.ListItems.Add(, , key, 1) rs.MoveNext Loop 编辑控件可用性 CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True CmdCancel.Enabled = False: CmdSave.Enabled = False rs.MoveFirst 返回到第一条

19、记录 End If 设置控件Enable值 Call CtrEnable(False)End Sub 调用Ctrenable过程设置空间的可属性其代码如下所示： Private Sub CtrEnable(flag As Boolean)设置控件的Enable值 txtBuildingId.Enabled = flag txtName.Enabled = flag txtArea.Enabled = flag txtInvest.Enabled = flag txtFloors.Enabled = flag txtRooms.Enabled = flag txtPosition.Enabled

20、 = flag txtNotes.Enabled = flagEnd Sub 调用ShowData过程，在控件中显示字段的相应数据，期代码如下： Private Sub ShowData()在控件中显示数据 If rs.RecordCount 0 Then 如果存在记录 为控件赋值 txtBuildingId.Text = rs.Fields(buildingID) txtName.Text = rs.Fields(bdname) txtArea.Text = rs.Fields(area) txtInvest.Text = rs.Fields(investment) txtFloors.Te

21、xt = rs.Fields(layers) txtRooms.Text = rs.Fields(roomN) txtPosition.Text = rs.Fields(bdposition) txtNotes.Text = rs.Fields(bdintroduction) End IfEnd Sub（2）当用户单击ListView控件中楼房图标时，将出发ListView1_Cilk事件，在控件中显示楼房信息，代码如下： Private Sub ListView1_Click()在控件中显示楼房信息 Dim key As String If rs.RecordCount 0 Then key

22、 = Trim(ListView1.SelectedItem) SQLStr = SELECT * FROM 楼房信息表 WHERE buildingID= & Left(key, 4) & Set rs = SelectSQL(SQLStr, msg) Call ShowData 重新显示数据 End IfEnd Sub(3) 当用户单击【保存】按钮时，将触发CmdSave_Cilk事件。在保存数据库之前，要对数据进行合法性检查，需要调用CheckData函数，返回True时候表示数据合法，返回False时表示数据非法。同时需要调用setData过程来设置数据，其代码如下所示； Privat

23、e Sub CmdSave_Click()保存操作On Error GoTo ErrMsg 错误处理 If Not CheckData Then Exit Sub 如果数据不合法就退出操作 If flag = Modify Then 如果是修改数据，给出修改提示 msg = MsgBox(您确实要修改这条数据吗?, vbYesNo) If msg = vbYes Then Call setData 设置数据字段的值 Else Exit Sub End If ElseIf flag = Add Then 如果是添加新数据 rs.AddNew Call setData 设置数据字段的值 End I

24、f rs.Update 更新数据 设置控件的可用性 CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = False If flag = Add Then MsgBox (成功添加数据！) Else MsgBox (成功更新数据!) End If Call LoadData 重新装载数据 If rs.RecordCount 0 Then 定位到添加或修改记录 rs.MoveFirst rs.Find (build

25、ingID= & Trim(txtBuildingId.Text) & ) If Not rs.EOF Then Call ShowData 重新显示数据 End If Exit SubErrMsg: 报告出错信息 MsgBox Err.Description, vbExclamation, 出错End Sub 调用CheckData函数，返回Ture时表示数据合法，返回False时表示数据非法，其代码如下所示：Private Function CheckData() As Boolean检查数据的合法性 Dim rst As ADODB.Recordset Dim msgt As Strin

26、g msgt = 检查数据 If Trim(txtBuildingId.Text) = Then 检查楼房号是否为空 msgt = 楼房号为空； ElseIf Len(txtBuildingId.Text) 4 Then 检查楼房号是否为4位 msgt = msgt & 楼房号不是4位； ElseIf Trim(txtName.Text) = Then 检查楼名是否为空 msgt = msgt & 楼名为空； End If If Not msgt = Then 如果提示信息不为空，给出错误提示 MsgBox (msgt) CheckData = False 返回False Exit Funct

27、ion End If If flag = Add Then 添加数据时，检查数据唯一性 SQLStr = SELECT * FROM 楼房信息表 WHERE buildingID= & Trim(txtBuildingId.Text) & Set rst = SelectSQL(SQLStr, msg) If rst.RecordCount 0 Then 如果已经存在该楼房信息，提示重复添加 MsgBox (该信息已经存在，重复添加!) rst.Close CheckData = False 如果信息重复添加，返回False Exit Function End If End If CheckD

28、ata = True 如果数据检查合法，返回TrueEnd Function调用setData过程。给数据库的字段赋值，其代码如下：Private Sub setData()为字段设置数据 rs.Fields(buildingID) = txtBuildingId.Text rs.Fields(bdname) = txtName.Text rs.Fields(area) = txtArea.Text rs.Fields(investment) = txtInvest.Text rs.Fields(layers) = txtFloors.Text rs.Fields(roomN) = txtRooms.Text rs.Fields(bdposition) = txtPosition.Text rs.Fields(bdintroduction) = txtNotes.TextEnd Sub（4） 当用户单击【取消】按钮时，将触发CmdCancel_Clik()事件，对当前工作执行取消操作，其代码如下：Private Sub cmdCancel_Click()取消操作 Call ShowData 重新