房地产信息管理Word文件下载.docx

1、1楼房单元房号（楼房号，单元，房号）2登记房屋（房号，单元，房型，面积，单价，总价）3登记客户（需求客户编号，预订客户编号）4预订客户（预订客户编号，客户姓名，性别，年龄，职务，身份证号，联系电话，联系地址，支付方式）5收款（预订合同编号，预订客户编号）3.E-R图所要实现的功能设计，可能建立它们之间的关系，进而实现逻辑结构功能。房地产销售管理信息系统可以划分的实体有：员工信息实体、登记房屋预登记客户信息实体、预订客户与预订房屋信息实体、预订记录信息实体、需求客户与需求房屋信息实体、购买需求实体、收款记录实体。用E-R图一一描述这些实体。3.1楼房单元房号信息实体E-R图：3.2登记房屋信息实

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 null（主键）单元not null房号char4表2 登记房屋：not null（外主键）房型10Not null面积float单价总价表3 登记客户：需求客户编号6预订客户编号表4预订客户：客户姓名1

3、5性别2年龄职务身份证号18联系电话12联系地址25支付方式表5 收款：预订合同编号Not null（外主键）简单网页设计2013.9.29了解HTML、设计简单HTML代码网页 。实验内容 titleThis as a sample Text for Html /headh2 徐州工程学院工程管理专业2011级hr size=1 color=redTABLE ALIGN=CENTERTRTD width=40%工程管理专业2011级/TABLEimg src=C:I386PRAGUEM.jpg ALT=示 例 图 片 align=center width=30%height=30%p/htm

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

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

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

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

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

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

10、盘及房屋信息录入、房屋信息查询、修改、删除。退出：联网用户访问完该系统后，退出管理系统 。某某系统系统设计2013.10.25,11.1系统设计 （代码设计、配置方案、数据存储、输入输出设计） 房屋销售系统详细设计.1 系统主窗体系统主窗体主要由窗体本身和菜单构成。首先建立一个工程，然后创建系统主窗体，主窗体的菜单，并在主窗体中添加窗体代码，来处理接各个子窗体的关系。楼盘销售管理系统的主界面如下：在主窗体中调用、切换不同界面，进行相应功能的实现，其代码如下：Private Sub building_Click（） frmbuilding.Show 打开楼房管理界面End SubPrivate

11、Sub custom_Click（） frmcustomer.Show 打开客户信息界面Private Sub info_Click（） frminfo.Show 打开信息查询界面Private Sub mnuEnd_Click（） Unload Me 结束Private Sub price_Click（） frmprice.Show 打开房屋定价界面Private Sub room_Click（） frmroom.Show 打开房间管理界面Private Sub sale_Click（） frmsale.Show 打开楼盘销售界面Private Sub statistics_Click（）

12、frmstatistics.Show 打开统计分析界面6.1. 1 楼房管理楼房管理主要用于简历娄烦信息，包括楼房号、楼名、所处位置、占地面积、总投资、层数、房间数、简介等，并对楼房信息进行添加、修改、删除等操作。 楼房管理界面具体代码如下：运行窗体时出发Load事件，调用LoadData过程初始化楼房ListView设置空间可用属性，调用ShowData过程显示数据，其代码如下： Option ExplicitDim rs As ADODB.RecordsetDim SQLStr As StringDim msg As StringDim flag As String 判断是新增记录还是修改

13、记录Private Sub Form_Load（） Call LoadData 装载数据 Call ShowData 显示数据 调用LoadData过程，装载数据，其代码如下：Private Sub LoadData（） Dim list As ListItem Dim key As String Set rs = Nothing SQLStr = SELECT * FROM 楼房信息表 ORDER BY buildingID Set rs = SelectSQL（SQLStr, msg） 查询楼房信息 ListView1.ListItems.Clear 清空ListView控件 If rs.

14、RecordCount = 0 Then 如果不存在楼房信息，添加按钮可用，其他按钮不可用 CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = False CmdCancel.Enabled = False: CmdSave.Enabled = False Else 如果存在楼房信息，初始化ListView控件 rs.MoveFirst Do Until rs.EOF key = rs.Fields（buildingID） & rs.Fields（bdname） Set list = ListView1.L

15、istItems.Add（, , key, 1） rs.MoveNext Loop 编辑控件可用性 CmdModify.Enabled = True: CmdDelete.Enabled = True rs.MoveFirst 返回到第一条记录 End If设置控件Enable值 Call CtrEnable（False） 调用Ctrenable过程设置空间的可属性其代码如下所示： Private Sub CtrEnable（flag As Boolean）设置控件的Enable值 txtBuildingId.Enabled = flag txtName.Enabled = flag txtA

16、rea.Enabled = flag txtInvest.Enabled = flag txtFloors.Enabled = flag txtRooms.Enabled = flag txtPosition.Enabled = flag txtNotes.Enabled = flag 调用ShowData过程，在控件中显示字段的相应数据，期代码如下： Private Sub ShowData（）在控件中显示数据 If rs.RecordCount 0 Then key = Trim（ListView1.SelectedItem） SELECT * FROM 楼房信息表 WHERE build

17、ingID= & Left（key, 4） & Set rs = SelectSQL（SQLStr, msg）重新显示数据（3） 当用户单击【保存】按钮时，将触发CmdSave_Cilk事件。在保存数据库之前，要对数据进行合法性检查，需要调用CheckData函数，返回True时候表示数据合法，返回False时表示数据非法。同时需要调用setData过程来设置数据，其代码如下所示； Private Sub CmdSave_Click（）保存操作On Error GoTo ErrMsg 错误处理 If Not CheckData Then Exit Sub 如果数据不合法就退出操作 If fla

18、g = Modify Then 如果是修改数据，给出修改提示 msg = MsgBox（您确实要修改这条数据吗?, vbYesNo） If msg = vbYes Then Call setData 设置数据字段的值 Else Exit Sub ElseIf flag = Add如果是添加新数据 rs.AddNew rs.Update 更新数据设置控件的可用性 CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = False Then MsgBox （成功添加数据

19、！成功更新数据!重新装载数据定位到添加或修改记录 rs.Find （buildingID= Trim（txtBuildingId.Text） & If Not rs.EOF Then Call ShowData ErrMsg:报告出错信息 MsgBox Err.Description, vbExclamation, 出错 调用CheckData函数，返回Ture时表示数据合法，返回False时表示数据非法，其代码如下所示：Private Function CheckData（） As Boolean检查数据的合法性 Dim rst As ADODB.Recordset Dim msgt As

20、String msgt = 检查数据 If Trim（txtBuildingId.Text） = 检查楼房号是否为空楼房号为空； ElseIf Len（txtBuildingId.Text） 如果已经存在该楼房信息，提示重复添加该信息已经存在，重复添加! rst.Close如果信息重复添加，返回False CheckData = True 如果数据检查合法，返回TrueEnd Function调用setData过程。给数据库的字段赋值，其代码如下：Private Sub setData（）为字段设置数据） = txtBuildingId.Text） = txtName.Text） = txtArea.Text） = txtInvest.Text） = txtFloors.Text） = txtRooms.Text） = txtPosition.Text） = txtNotes.Text（4） 当用户单击【取消】按钮时，将触发CmdCancel_Clik（）事件，对当前工作执行取消操作，其代码如下：Private Sub cmdCancel_Click（）取消操作重新