VB课设-房屋中介系统.doc

前言 当今时代 世界经济正在从工业经济向知识经济转变 我们说知识经济 knowledge based economy 的两个重要特征就是信息化和全球化 要实现信息化和全球化 就必须 依靠完善的网络和完善的数据库 在这样一个飞速发展的信息时代 各行各业中离不开 信息处理 正是计算机被广泛应用于管理信息系统的环境 使用计算机进行信息控制 不仅提高了工作效率 而且大大的提高了其安全性 尤其对于复杂的信息管理 计算机 能够充分发挥它的优越性 房屋中介行业是房地产业的重要组成部分 其在房地产业经济运作的全过程之中起 着至关重要的作用 为房地产业的生产 流通和消费提供了多元化的中介服务 房屋中 介行业做为一个管理房屋信息的机构 其对信息的管理应该准确 无误 本文探讨房产中介管理系统的理论基础和设计思想 介绍了房屋中介管理系统的各个 功能 以软件工程理论作为系统开发的理论基础 设计并实现了对出租 出售房屋信息 的管理 对求租求购客户信息 需求的记录 并及时为其提供准确信息 其主要内容包 括如下 对于房屋信息的管理 后台数据库的设计 建立以及各个模块间的关系 SQL Structured Query Language 结构化查询语言 是一种数据库查询和程序设计 语言 用于存取数据以及查询 更新和管理关系数据库系统 同时也是数据库脚本文件 的扩展名 关键词 信息管理 SQL 数据库 目目 录录 前言 4 第 1 章 系统概述 1 1 1 概述 1 1 2 系统目标 2 第 2 章 系统规划 3 2 1 组织机构 3 2 2 需求概要 3 2 3 可行性分析 4 2 3 1 技术可行性 4 2 3 2 经济可行性 4 2 3 3 操作可行性 4 第 3 章系统分析 5 3 1 简要介绍 5 3 2 需要解决的问题 5 第 4 章系统设计 5 4 1 系统的总体结构图 5 4 2 系统流程图设计 6 4 3 数据库设计 7 第 5 章 主要功能模块设计 7 5 1 登录窗体设计 7 5 2 系统主界面的设计与实现 9 5 3 出租房屋信息管理界面的设计 19 5 4 出售房屋信息管理界面的设计与实现 20 5 5 求购客户信息界面的设计与实现 21 5 6 求租客户信息界面的设计与实现 22 5 7 统计的设计与实现 22 第 6 章 总 结 23 参考文献 24 1 第 1 章 系统概述 1 1 概述 随着计算机及网络技术的飞速发展 计算机已经要成为我们学习和工作的得力 助手 今天 计算机的价格已经十分低廉 性能却有了长足的进步 它以及被应用 于许多的领域 计算机之所以如此流行的原因主要有以下几个方面 首先 计算机 可以代替人工进行许多的复杂的劳动 其次 计算机可以大大的提高人们的工作效 率 第三 计算机可以节省许多资源 第四 计算机可以使敏感文档更加安全 信息技术作为当今使用频率最高的名词之一 随着计算机技术在工业 农业以 及日常生活中等各方面的广泛应用 已经被越来越多的个人和企业作为自己赶超世 界潮流的标志之一 而数据库技术则是信息技术中一个重要的支撑 数据库技术是 计算机科学技术的一个重要分支 从 20 世纪 50 年代中期开始 计算机应用从科学 研究部门扩展到企业管理及政府行政部门 人们对数据处理的要求也越来越高 在 1968 年 世界上诞生了第一个商品化的信息管理系统 IMS Information Management System 从此 数据库技术得到了迅猛发展 在互联网日益被人们接受的今天 Internet 又使数据库技术 知识 技能的重要性得到了充分的放大 现在数据库已 经成为信息管理 办公自动化 计算机辅助设计等应用的主要软件工具之一 帮助 人们处理各种各样的信息数据 所以将数据库的技术应用于房屋中介机构 方便其 数据管理就变得尤为重要 房屋中介行业是房地产业的重要组成部分 其在房地产业经济运行的全过程之 中起着重要的作用 为房地产业的生产 流通和消费提供了多元化的中介服务 房 地产中介具有很强的灵活性 房地产中介机构以佣金为主要收入来源 国外及港台 房地产中介服务具有悠久的发展历史 具有一套较为完善的独立法规体系 包括市 场准入法规 执业人员职业道德法规以及执业质量控制标准等 法国房屋中介业历 史悠久 形成了一套完善的法律和管理办法 实行从帮助寻找客户到签约 管理等 一条龙 服务 有实力的房屋中介公司业务范围更广 不仅从事单元房 宅院 商业用房 车库和仓库等租赁或买卖 还与合伙人共同参与房屋建设 成为房屋的 共同物主 随着互联网的广泛应用 法国的房屋中介公司大都设有网站 从公司诚 信为客户服务 帮你解除烦恼的承诺到各种房屋租赁 买卖业务的经营项目 一应 俱全 而在中国古代和近代市场中为房屋买卖双方介绍交易 评定房地产商品质量 价格的居间行商称之为宅行 宅行是中国房地产中介机构的前身 现称房屋中介 房屋中介机构往往有大量的信息需要处理 传统的手工登记的方式对于处理大量信 2 息而言不仅效率低下 而其极易发生信息的记录错误 甚至发生信息丢失的情况 而计算机技术的发展为解决这一问题提供了良好的途径 1 2 系统目标 本系统适用于 Windows XP 等主流操作系统之上 对于该系统的推广使用提供了 很好的途径 该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作 习惯 使其对新系统更易适应 在操作上主要凭借使用 Windows 操作技术即可完成 数据录入 修改 删除等功能 方便简单 使用前只要对用户进行简单的说明或阅 读帮助文件即可使用该系统 另外界面清晰易懂 加之可视化的管理工具 对数据库的操作是相当简单的 所以 操作上是可行的 随着住房制度改革不断深化和居民收入水平的提高 住房成为新的消费热点 1998 以后 随着住房实物分配制度的取消和按揭政策的实施 房地产投资进入平稳 快速发展时期 房地产业成为经济的支柱产业之一 2003 年以来 房屋价格持续上 扬 大部分城市房屋销售价格上涨明显 随之而来国家出台了多项针对房地产行业 的调控政策 希望能引导房地产市场的健康发展 而房屋中介行业是房地产业的重 要组成部分 房屋中介贯穿在房地产业经济运行的全过程之中 为房地产业的生产 流通和消费提供了多元化的中介服务 房屋中介行业做为一个管理房屋信息的机构 其对信息的管理应该准确 无误 因此利用所学过的软件工程设计思想 数据库等 知识设计一个房屋中介管理的软件对于提高该中介公司的工作效率变得尤为重要 房产中介管理系统 的开发定位在一个能够满足数据库管理系统 即具备一 个数据库管理系统的基本功能 包括数据的增加 删除 修改 查询等 便于用户 查看 操作 和查询房屋登记信息 此外 系统具有会员和管理员登录功能 这样 可以提高数据的安全性和可靠性 该系统符合各房产中介公司的要求 在开发过程 中注重明确需求分析 遵循用户参与 优化创新 使用高效 处理规范化的原则 使开发模型更加趋于完善 本系统适用于 Windows XP 等主流操作系统之上 对于该系统的推广使用提供了 很好的途径 该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作 习惯 使其对新系统更易适应 在操作上主要凭借使用 Windows 操作技术即可完成 数据录入 修改 删除等功能 方便简单 使用前只要对用户进行简单的说明或阅 读帮助文件即可使用该系统 另外界面清晰易懂 加之可视化的管理工具 对数据库的操作是相当简单的 所以 操作上是可行的 3 第 2 章 系统规划 2 1 组织机构 该系统的主要结构包括以下几个部分 出租房屋信息管理 出售房屋信息管理 求租房屋信息管理 求购房屋信息管理 退出系统 其系统的结构图如图 2 1 所示 房屋中介管理系统 登陆系统 出租房屋信息管理 出售房屋信息管理 求租房屋信息管理 求购房屋信息管理 退出系统 图 2 1 组织结构图 2 2 需求概要 在软件工程的 发展过程中 需求分析 在很长一段时间里被人们认为是整个 软件工程中最简单的一个步骤 但在过去 十几年中人们逐渐认识到软件工程是 整个过程中最 为关键的一个 部分 虽然在可行性研究阶段已经粗略了解了用户 的需求 甚至还提出了一些可行的方案 但是 可行性研究的基本目的是用较小 的成本在较短的时间内确定是否存在可行的解法 因此许多细节被忽略了 然而 在最终的系统中却不能遗漏任何一个微小的细节 所以可行性研究并不能代替需求 分析 它实际上并没有准确地回答 系统必须做什么 这个问题 所以进行软件 设计之前 必须先进行需求分析 才能保证软件设计顺利完成 假如在需求分析 阶 段分析者们未能正确地认识到顾客的需要的话 那么最后的软件实际上不可能达 到顾客的需要 或者软件无法在规定的时间里完工 系统的需求分析是需要开发 人员和用户一起完成 需求分析主要是对管理信息系统的需求进行分析 分析在设 4 计系统时可能遇到的问题 及其解决方案 对目标系统提出完整 准确 清晰 具 体的要求 需求分析的结果是系统开发的基础 关系到系统的可利用价值 是开发 软件所不可缺少的重要环节 房屋中介管理系统的实现需要从实际出发 对实际情况进行客观的分析 深入 了解需求 系统利用 access 与数据库结合的技术建立数据库管理系统 同时需求分 析也是进行概要设计和详细设计的基础 是进行内部维护和测试的依据 2 3 可行性分析 2 3 12 3 1 技术可行性技术可行性 技术可行性考虑的问题是利用现有的技术条件是否能够顺利完成开发工作 软 硬件配置是否满足开发的需求等 房屋中介管理系统的工作主要是在客户和房屋中 介人员之间架起一座桥梁 能相互提供信息 处理信息 这一特点非常适合于计算 机的特点 而计算机硬件和软件技术的飞速发展 也为系统的建设提供了技术条件 通过对房屋中介的工作流程加以分析 同时 net 提供给的良好开发平台 其与数据 库链接的方便性以及目前一些利用数据库知识实现的信息管理系统 为实验的顺利 进行提供可靠的参考和依据 2 3 22 3 2 经济可行性经济可行性 经济可行性应该考虑其开发维护费用及该系统所能带来的效益之间的关系 该 系统适用于中小型的房屋中介机构 开发该系统的费用主要包括开发阶段的费用以 及今后的运行 维护费用 其新系统带来的效益来自使用该系统后房屋中介机构工 作的科学化 规范化 高效化所带来的效益 这些主要体现在工作人员的减少 工 作效率的提高 相应工资支出的减少 更容易满足客户的需求 使房屋中介公司的 客户群扩大 以及与传统的手工登记的方式相比不易发生差错 因差错带来的损失 的相对减少 2 3 32 3 3 操作可行性操作可行性 本系统适用于 Windows XP 等主流操作系统之上 对于该系统的推广使用提供了 很好的途径 该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作 习惯 使其对新系统更易适应 在操作上主要凭借使用 Windows 操作技术即可完成 数据录入 修改 删除等功能 方便简单 使用前只要对用户进行简单的说明或阅 读帮助文件即可使用该系统 另外界面清晰易懂 加之可视化的管理工具 对数据库的操作是相当简单的 所以 操作上是可行的 5 第 3 章系统分析 3 1 简要介绍 房屋中介管理系统的需求主要包括房屋信息的登记 查询 修改 删除 对客 户需求的记录 查询 修改 删除 房屋登记将需要登记的房屋的信息输入系统 由系统进行储存 随时可以查阅修改 一般情况下 普通工作人员只能浏览查询房 屋具体信息 而管理员用户除了能查询房屋具体信息以外 还能够登记房屋信息 发布房屋信息 修该 删除房屋数据 因此 普通用户和管理人员的的权限要明确 区分开来 防止操作时因操作错误产生的数据丢失和数据错误 具体分析如下 添加操作 在执行操作时首先都要先检查是否已经输入数据 如果输入的数据 不全或者有错误 将提示用户输入正确的数据 如果输入的数据正确 点击添加按 钮 能够将数据输入到数据库 并保存数据 删除操作 在选定一个房屋信息后可将其从数据库中删除 并在前端界面显示 出来 查询操作 能够进行全部数据的查询 同时也能进行模糊的查询 3 2 需要解决的问题 以前的房屋中介工作大部分还是进行着手工管理 工作起来效率很低 并且不 能及时了解每位房主的信息 房客们对房主的信息不能充分了解等等 不便于动态 及时地调整中介中心的结构 以便更好地适应当前房客的需求 手工管理还存在这 许多弊端 由于不可避免的人为因素 经常造成数据的遗漏 误报 计算机信息化 管理有着储存信息量大 速度快等许多优点 提供给我们的处理信息及时快捷 同 时也提高了我们工作人员的自身素质 第 4 章系统设计 4 1 系统的总体结构图 在总体设计这个阶段 应划分出组成该系统的一些物理元素 程序 文件 数 6 据库 人工过程和文档等等 同时 总体设计阶段另一项重要任务是设计软件的结 构 确定系统中每个程序由哪些模块组成 以及这些模块间的关系 具体到该系统 开发任务是实现房屋中介管理系统化 规范化和自动化 从而提高房屋中介公司的 工作效率 其系统示意图如下图所示 图 4 1 系统示意图 进入该系统后 在登录界面输入正确的密码后 就可进入系统的主界面 4 24 2 系统流程图设计系统流程图设计 用户登录 判断密码 各功能模块操作界面 退出系统 是 否 7 图 4 2 系统流程图 4 3 数据库设计 SQL Structured Query Language 结构化查询语言 是一种数据库查询和程序 设计语言 用于存取数据以及查询 更新和管理关系数据库系统 同时也是数据库 脚本文件的扩展名 SQL 面向数据库执行查询 SQL 可从数据库取回数据 SQL 可在数据库中插入新的记录 SQL 可更新数据库中的数据 SQL 可从数据库删除记录 SQL 可创建新数据库 SQL 可在数 据库中创建新表 SQL 可在数据库中创建存储过程 SQL 可在数据库中创建视图 SQL 可以 设置表 存储过程和视图的权限 表 4 1 客户信息表 房屋地址房型建筑面积朝向设施 国奥小区 A 单元一室一厅40坐北朝南一卫 国奥小区 B 单元三室一厅100坐北朝南一厨一卫 国奥小区 C 单元三室一厅110坐北朝南一厨一卫一阳 第 5 章 主要功能模块设计 5 1 登录窗体设计 执行可执行文件 进入系统登录界面如下图 8 图 5 1 登录界面图 登录代码 Private Sub cmdok Click Dim sql As String Dim rs login As New ADODB Recordset If Trim txtname Text Then 判断输入的用户名是否为空 MsgBox 没有这个用户 vbOKOnly vbExclamation txtname SetFocus Else sql select from 系统管理 where 用户名 data source App Path zhongjie mdb conn Open connectionstring cnt 0 End Sub 5 25 2 系统主界面的设计与实现系统主界面的设计与实现 在登录界面输入正确密码后 可进入如下的系统主界面 如图所示 输入正确的管理用户名和密码 程序即可进入菜单选择窗体如下图 图 5 2 菜单选择 窗体界面图 10 程序代码 Option Explicit Dim txttbl As String Dim rs chuzu As New ADODB Recordset Dim rs chushou As New ADODB Recordset Dim rs qiuzu As New ADODB Recordset Dim rs qiugou As New ADODB Recordset Dim datanum As Integer Dim state As String Dim chuzubiaostate As Boolean Dim chushoubiaostate As Boolean Dim qiuzubiaostate As Boolean Dim qiugoubiaostate As Boolean Dim savestate As Integer 新建保存为1 修改保存为2 出租保存为 3 出售保存为4 Dim saveback As Boolean Private Sub chushouman Click Dim sql As String If Picture2 2 Visible False Then Picture2 2 Visible True Picture2 0 Visible False Picture2 1 Visible False 11 Picture2 3 Visible False Picture2 4 Visible False Picture2 5 Visible False Picture2 6 Visible False Picture2 7 Visible False Picture2 8 Visible False Picture2 9 Visible False Picture2 11 Visible False Picture2 10 Visible False state 出售单管理 If chushoubiaostate False Then sql select from 出售表 rs chushou CursorLocation adUseClient rs chushou Open sql conn adOpenKeyset adLockPessimistic rs chushou MoveLast 显示最后一条记录 datanum rs chushou RecordCount viewchushoubiao chushoubiaostate True End If Toolbar1 Buttons 1 Enabled True End If End Sub 12 Private Sub chuzudanfind Click Dim j As Integer If Picture2 1 Visible False Then Picture2 1 Visible True Picture2 0 Visible False Picture2 2 Visible False Picture2 3 Visible False Picture2 4 Visible False Picture2 5 Visible False Picture2 6 Visible False Picture2 7 Visible False Picture2 8 Visible False Picture2 9 Visible False Picture2 11 Visible False Picture2 10 Visible False state 出租单查询 For j 0 To 10 Toolbar1 Buttons j Enabled False Next j End If End Sub 13 Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Key 按关键字选择 Case bt new 新建 按钮 datanew Button Enabled False Toolbar1 Buttons 2 Enabled False Toolbar1 Buttons 3 Enabled False Toolbar1 Buttons 4 Enabled True Toolbar1 Buttons 5 Enabled True savestate 1 Case bt modify 修改按 钮 Toolbar1 Buttons 1 Enabled False Toolbar1 Buttons 2 Enabled False Toolbar1 Buttons 3 Enabled False Toolbar1 Buttons 4 Enabled True Toolbar1 Buttons 5 Enabled True savestate 2 modify Case bt delete 删除按 钮 datadelete Case bt save 保存 按钮 14 datasave If saveback False Then Button Enabled False Toolbar1 Buttons 1 Enabled True Toolbar1 Buttons 2 Enabled True Toolbar1 Buttons 3 Enabled True Toolbar1 Buttons 5 Enabled False End If Case bt cancel 取消按 钮 datacancel Button Enabled False Toolbar1 Buttons 1 Enabled True Toolbar1 Buttons 2 Enabled True Toolbar1 Buttons 3 Enabled True Toolbar1 Buttons 4 Enabled False Case bt print 打印按 钮 dataprint Case bt first 移动到 第一条按钮 dataMoveFirst Case bt previous 移动到 前一条按钮 dataMovePrevious 15 Case bt next 移动 到下一条按钮 datamovenext Case bt last 移动 到最后一条按钮 datamovelase End Select End Sub Public Sub datanew Dim i As Integer On Error GoTo newerror Select Case state Case 出租单管理 For i 1 To 28 txtchuzudan i Text Next i For i 1 To 17 txtchuzudan i Enabled True Next i rs chuzu MoveLast txtchuzudan 0 Text Format CStr rs chuzu Fields 1 1 00000000 txtchuzudan 27 Text CCur 0 16 txtchuzudan 21 Text CCur 0 txtchuzudan 6 Text CCur 0 Case 出售单管理 For i 1 To 17 txtchushoudan i Text Next i For i 1 To 17 txtchushoudan i Enabled True Next i rs chushou MoveLast txtchushoudan 0 Text Format CStr rs chushou Fields 1 1 00000000 txtchushoudan 27 Text CCur 0 txtchushoudan 21 Text CCur 0 txtchushoudan 6 Text CCur 0 Case 房屋求租管理 For i 1 To 17 txtqiuzu i Text Next i For i 1 To 17 txtqiuzu i Enabled True Next i rs qiuzu MoveLast 17 txtqiuzu 0 Text Format CStr rs qiuzu Fields 1 1 00000000 txtqiuzu 6 Text CCur 0 Case 房屋求购管理 For i 1 To 19 txtqiugou i Text Next i For i 1 To 19 txtqiugou i Enabled True Next i rs qiugou MoveLast txtqiugou 0 Text Format CStr rs qiugou Fields 1 1 00000000 txtqiugou 7 Text CCur 0 End Select Exit Sub newerror MsgBox Err Description End Sub Public Sub dataprint Dim i As Integer Dim X On Error GoTo modifyerror Dim sql As String 18 Select Case state Case 出租单管理 X BitBlt Picture2 0 hDC 0 0 Picture2 0 Width Picture2 0 Height MDIForm1 Picture1 hDC Round Picture2 0 Left Screen TwipsPerPixelX 2 Round Picture2 0 Top Screen TwipsPerPixelY 2 SRCCOPY Picture2 0 Picture Picture2 0 Image Printer PaintPicture Picture2 0 Picture 0 0 Printer EndDoc Exit Sub Case 出售单管理 X BitBlt Picture2 2 hDC 0 0 Picture2 2 Width Picture2 2 Height MDIForm1 Picture1 hDC Round Picture2 2 Left Screen TwipsPerPixelX 2 Round Picture2 2 Top Screen TwipsPerPixelY 2 SRCCOPY Picture2 2 Picture Picture2 2 Image Printer PaintPicture Picture2 2 Picture 0 0 Printer EndDoc Exit Sub Case 房屋求租管理 Exit Sub Case 房屋求购管理 19 viewqiugoubiao Exit Sub End Select Exit Sub modifyerror MsgBox Err Description End Sub 5 35 3 出租房屋信息管理界面的设计出租房屋信息管理界面的设计 点击主界面的出租房屋信息管理按钮 即可弹出出租房屋信息管理的界面 如 下图 图 5 3 出租房屋信息界面 点击查询信息按钮 即可弹出如下界面 用以输入查询条件 20 图 5 4 出租房屋信息查询界面 5 45 4 出售