VB课设房屋中介系统.docx
《VB课设房屋中介系统.docx》由会员分享，可在线阅读，更多相关《VB课设房屋中介系统.docx（24页珍藏版）》请在冰豆网上搜索。
VB课设房屋中介系统
前言
当今时代，世界经济正在从工业经济向知识经济转变。
我们说知识经济（knowledgebasedeconomy）的两个重要特征就是信息化和全球化，要实现信息化和全球化，就必须依靠完善的网络和完善的数据库。
在这样一个飞速发展的信息时代，各行各业中离不开信息处理，正是计算机被广泛应用于管理信息系统的环境。
使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。
尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。
房屋中介行业是房地产业的重要组成部分，其在房地产业经济运作的全过程之中起着至关重要的作用，为房地产业的生产、流通和消费提供了多元化的中介服务，。
房屋中介行业做为一个管理房屋信息的机构，其对信息的管理应该准确，无误。
本文探讨房产中介管理系统的理论基础和设计思想，介绍了房屋中介管理系统的各个功能，以软件工程理论作为系统开发的理论基础，设计并实现了对出租，出售房屋信息的管理，对求租求购客户信息，需求的记录，并及时为其提供准确信息。
其主要内容包括如下：
对于房屋信息的管理；后台数据库的设计，建立以及各个模块间的关系。
SQL（StructuredQueryLanguage）结构化查询语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。
同时也是数据库脚本文件的扩展名。
关键词：
信息管理；SQL数据库；
第1章系统概述
1.1概述
随着计算机及网络技术的飞速发展，计算机已经要成为我们学习和工作的得力助手。
今天，计算机的价格已经十分低廉，性能却有了长足的进步，它以及被应用于许多的领域，计算机之所以如此流行的原因主要有以下几个方面：
首先，计算机可以代替人工进行许多的复杂的劳动。
其次，计算机可以大大的提高人们的工作效率。
第三，计算机可以节省许多资源。
第四，计算机可以使敏感文档更加安全。
信息技术作为当今使用频率最高的名词之一，随着计算机技术在工业、农业以及日常生活中等各方面的广泛应用，已经被越来越多的个人和企业作为自己赶超世界潮流的标志之一，而数据库技术则是信息技术中一个重要的支撑。
数据库技术是计算机科学技术的一个重要分支。
从20世纪50年代中期开始，计算机应用从科学研究部门扩展到企业管理及政府行政部门，人们对数据处理的要求也越来越高。
在1968年，世界上诞生了第一个商品化的信息管理系统IMS（InformationManagementSystem），从此，数据库技术得到了迅猛发展。
在互联网日益被人们接受的今天，Internet又使数据库技术、知识、技能的重要性得到了充分的放大。
现在数据库已经成为信息管理、办公自动化、计算机辅助设计等应用的主要软件工具之一，帮助人们处理各种各样的信息数据。
所以将数据库的技术应用于房屋中介机构，方便其数据管理就变得尤为重要。
房屋中介行业是房地产业的重要组成部分，其在房地产业经济运行的全过程之中起着重要的作用，为房地产业的生产、流通和消费提供了多元化的中介服务。
房地产中介具有很强的灵活性。
房地产中介机构以佣金为主要收入来源。
国外及港台房地产中介服务具有悠久的发展历史，具有一套较为完善的独立法规体系，包括市场准入法规、执业人员职业道德法规以及执业质量控制标准等。
法国房屋中介业历史悠久，形成了一套完善的法律和管理办法，实行从帮助寻找客户到签约、管理等“一条龙”服务。
有实力的房屋中介公司业务范围更广，不仅从事单元房、宅院、商业用房、车库和仓库等租赁或买卖，还与合伙人共同参与房屋建设，成为房屋的共同物主。
随着互联网的广泛应用，法国的房屋中介公司大都设有网站，从公司诚信为客户服务、帮你解除烦恼的承诺到各种房屋租赁、买卖业务的经营项目，一应俱全。
而在中国古代和近代市场中为房屋买卖双方介绍交易﹑评定房地产商品质量﹑价格的居间行商称之为宅行。
宅行是中国房地产中介机构的前身，现称房屋中介。
房屋中介机构往往有大量的信息需要处理，传统的手工登记的方式对于处理大量信息而言不仅效率低下，而其极易发生信息的记录错误，甚至发生信息丢失的情况。
而计算机技术的发展为解决这一问题提供了良好的途径。
1.2系统目标
本系统适用于WindowsXP等主流操作系统之上,对于该系统的推广使用提供了很好的途径。
该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作习惯，使其对新系统更易适应，在操作上主要凭借使用Windows操作技术即可完成数据录入、修改、删除等功能，方便简单。
使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。
另外界面清晰易懂，加之可视化的管理工具，对数据库的操作是相当简单的，所以操作上是可行的。
随着住房制度改革不断深化和居民收入水平的提高，住房成为新的消费热点。
1998以后，随着住房实物分配制度的取消和按揭政策的实施，房地产投资进入平稳快速发展时期，房地产业成为经济的支柱产业之一。
2003年以来，房屋价格持续上扬，大部分城市房屋销售价格上涨明显。
随之而来国家出台了多项针对房地产行业的调控政策，希望能引导房地产市场的健康发展。
而房屋中介行业是房地产业的重要组成部分，房屋中介贯穿在房地产业经济运行的全过程之中，为房地产业的生产、流通和消费提供了多元化的中介服务。
房屋中介行业做为一个管理房屋信息的机构，其对信息的管理应该准确，无误。
因此利用所学过的软件工程设计思想，数据库等知识设计一个房屋中介管理的软件对于提高该中介公司的工作效率变得尤为重要。
“房产中介管理系统”的开发定位在一个能够满足数据库管理系统，即具备一个数据库管理系统的基本功能，包括数据的增加，删除，修改，查询等，便于用户查看，操作，和查询房屋登记信息。
此外，系统具有会员和管理员登录功能，这样可以提高数据的安全性和可靠性。
该系统符合各房产中介公司的要求。
在开发过程中注重明确需求分析，遵循用户参与、优化创新、使用高效、处理规范化的原则，使开发模型更加趋于完善。
本系统适用于WindowsXP等主流操作系统之上,对于该系统的推广使用提供了很好的途径。
该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作习惯，使其对新系统更易适应，在操作上主要凭借使用Windows操作技术即可完成数据录入、修改、删除等功能，方便简单。
使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。
另外界面清晰易懂，加之可视化的管理工具，对数据库的操作是相当简单的，所以操作上是可行的。
第2章系统规划
2.1组织机构
该系统的主要结构包括以下几个部分：
出租房屋信息管理，出售房屋信息管理，求租房屋信息管理，求购房屋信息管理，退出系统。
其系统的结构图如图2-1所示。
图2-1组织结构图
2.2需求概要
在软件工程的发展过程中，需求分析在很长一段时间里被人们认为是整个软件工程中最简单的一个步骤，但在过去十几年中人们逐渐认识到软件工程是整个过程中最为关键的一个部分。
虽然在可行性研究阶段已经粗略了解了用户的需求，甚至还提出了一些可行的方案，但是，可行性研究的基本目的是用较小的成本在较短的时间内确定是否存在可行的解法，因此许多细节被忽略了。
然而在最终的系统中却不能遗漏任何一个微小的细节，所以可行性研究并不能代替需求分析，它实际上并没有准确地回答“系统必须做什么？
”这个问题。
所以进行软件设计之前，必须先进行需求分析，才能保证软件设计顺利完成。
假如在需求分析阶段分析者们未能正确地认识到顾客的需要的话，那么最后的软件实际上不可能达到顾客的需要，或者软件无法在规定的时间里完工。
系统的需求分析是需要开发人员和用户一起完成。
需求分析主要是对管理信息系统的需求进行分析，分析在设计系统时可能遇到的问题，及其解决方案，对目标系统提出完整、准确、清晰、具体的要求。
需求分析的结果是系统开发的基础，关系到系统的可利用价值，是开发软件所不可缺少的重要环节。
房屋中介管理系统的实现需要从实际出发，对实际情况进行客观的分析，深入了解需求。
系统利用access与数据库结合的技术建立数据库管理系统。
同时需求分析也是进行概要设计和详细设计的基础，是进行内部维护和测试的依据
2.3可行性分析
2.3.1 技术可行性
技术可行性考虑的问题是利用现有的技术条件是否能够顺利完成开发工作，软硬件配置是否满足开发的需求等。
房屋中介管理系统的工作主要是在客户和房屋中介人员之间架起一座桥梁，能相互提供信息，处理信息。
这一特点非常适合于计算机的特点，而计算机硬件和软件技术的飞速发展，也为系统的建设提供了技术条件。
通过对房屋中介的工作流程加以分析，同时.net提供给的良好开发平台，其与数据库链接的方便性以及目前一些利用数据库知识实现的信息管理系统，为实验的顺利进行提供可靠的参考和依据。
2.3.2 经济可行性
经济可行性应该考虑其开发维护费用及该系统所能带来的效益之间的关系。
该系统适用于中小型的房屋中介机构，开发该系统的费用主要包括开发阶段的费用以及今后的运行、维护费用。
其新系统带来的效益来自使用该系统后房屋中介机构工作的科学化，规范化，高效化所带来的效益。
这些主要体现在工作人员的减少，工作效率的提高，相应工资支出的减少，更容易满足客户的需求，使房屋中介公司的客户群扩大，以及与传统的手工登记的方式相比不易发生差错，因差错带来的损失的相对减少。
2.3.3 操作可行性
本系统适用于WindowsXP等主流操作系统之上,对于该系统的推广使用提供了很好的途径。
该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作习惯，使其对新系统更易适应，在操作上主要凭借使用Windows操作技术即可完成数据录入、修改、删除等功能，方便简单。
使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。
另外界面清晰易懂，加之可视化的管理工具，对数据库的操作是相当简单的，所以操作上是可行的。
第3章系统分析
3.1简要介绍
房屋中介管理系统的需求主要包括房屋信息的登记，查询，修改，删除。
对客户需求的记录，查询，修改，删除。
房屋登记将需要登记的房屋的信息输入系统，由系统进行储存，随时可以查阅修改。
一般情况下，普通工作人员只能浏览查询房屋具体信息，而管理员用户除了能查询房屋具体信息以外，还能够登记房屋信息，发布房屋信息，修该，删除房屋数据。
因此，普通用户和管理人员的的权限要明确区分开来，防止操作时因操作错误产生的数据丢失和数据错误。
具体分析如下：
添加操作：
在执行操作时首先都要先检查是否已经输入数据，如果输入的数据不全或者有错误，将提示用户输入正确的数据，如果输入的数据正确，点击添加按钮，能够将数据输入到数据库，并保存数据。
删除操作：
在选定一个房屋信息后可将其从数据库中删除，并在前端界面显示出来。
查询操作：
能够进行全部数据的查询，同时也能进行模糊的查询。
3.2需要解决的问题
以前的房屋中介工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解每位房主的信息，房客们对房主的信息不能充分了解等等，不便于动态及时地调整中介中心的结构，以便更好地适应当前房客的需求。
手工管理还存在这许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。
计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素质。
第4章系统设计
4.1系统的总体结构图
在总体设计这个阶段，应划分出组成该系统的一些物理元素----程序，文件，数据库，人工过程和文档等等。
同时，总体设计阶段另一项重要任务是设计软件的结构，确定系统中每个程序由哪些模块组成，以及这些模块间的关系。
具体到该系统，开发任务是实现房屋中介管理系统化、规范化和自动化，从而提高房屋中介公司的工作效率。
其系统示意图如下图所示：
图4-1系统示意图
进入该系统后，在登录界面输入正确的密码后，就可进入系统的主界面。
4.2 系统流程图设计
图4-2系统流程图
4.3数据库设计
SQL（StructuredQueryLanguage）结构化查询语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。
同时也是数据库脚本文件的扩展名。
SQL面向数据库执行查询；SQL可从数据库取回数据；SQL可在数据库中插入新的记录；SQL可更新数据库中的数据；SQL可从数据库删除记录；SQL可创建新数据库；SQL可在数据库中创建新表；SQL可在数据库中创建存储过程；SQL可在数据库中创建视图；SQL可以设置表、存储过程和视图的权限。
表4-1客户信息表
房屋地址
房型
建筑面积
朝向
设施
国奥小区A单元
一室一厅
40
坐北朝南
一卫
国奥小区B单元
三室一厅
100
坐北朝南
一厨一卫
国奥小区C单元
三室一厅
110
坐北朝南
一厨一卫一阳
第5章主要功能模块设计
5.1登录窗体设计
执行可执行文件，进入系统登录界面如下图：
图5-1登录界面图
登录代码：
PrivateSubcmdok_Click（）
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim（txtname.Text）=""Then'判断输入的用户名是否为空
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtname.SetFocus
Else
sql="select*from系统管理where用户名='"&txtname.Text&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtname.SetFocus
Else'检验密码是否正确
IfTrim（rs_login.Fields
（1））=Trim（txtpwd.Text）Then
userID=txtname.Text
username=rs_login.Fields
（2）
rs_login.Close
UnloadMe
MDIForm1.Show
Else
MsgBox"密码不正确",vbOKOnly+vbExclamation,""
txtpwd.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
EndSub
PrivateSubForm_Load（）
DimconnectionstringAsString
connectionstring="provider=Microsoft.Jet.oledb.4.0;"&_
"datasource="&App.Path&"\zhongjie.mdb"
conn.Openconnectionstring
cnt=0
EndSub
5.2 系统主界面的设计与实现
在登录界面输入正确密码后，可进入如下的系统主界面，如图所示，
输入正确的管理用户名和密码，程序即可进入菜单选择窗体如下图：
图5-2菜单选择窗体界面图
程序代码：
OptionExplicit
DimtxttblAsString
Dimrs_chuzuAsNewADODB.Recordset
Dimrs_chushouAsNewADODB.Recordset
Dimrs_qiuzuAsNewADODB.Recordset
Dimrs_qiugouAsNewADODB.Recordset
DimdatanumAsInteger
DimstateAsString
DimchuzubiaostateAsBoolean
DimchushoubiaostateAsBoolean
DimqiuzubiaostateAsBoolean
DimqiugoubiaostateAsBoolean
DimsavestateAsInteger'新建保存为1，修改保存为2，出租保存为3，出售保存为4
DimsavebackAsBoolean
PrivateSubchushouman_Click（）
DimsqlAsString
IfPicture2
（2）.Visible=FalseThen
Picture2
（2）.Visible=True
Picture2（0）.Visible=False
Picture2
（1）.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="出售单管理"
Ifchushoubiaostate=FalseThen
sql="select*from出售表"
rs_chushou.CursorLocation=adUseClient
rs_chushou.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_chushou.MoveLast'显示最后一条记录
datanum=rs_chushou.RecordCount
viewchushoubiao
chushoubiaostate=True
EndIf
Toolbar1.Buttons
（1）.Enabled=True
EndIf
EndSub
PrivateSubchuzudanfind_Click（）
DimjAsInteger
IfPicture2
（1）.Visible=FalseThen
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="出租单查询"
Forj=0To10
Toolbar1.Buttons（j）.Enabled=False
Nextj
EndIf
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.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"'保存按钮
datasave
Ifsaveback=FalseThen
Button.Enabled=False
Toolbar1.Buttons
（1）.Enabled=True
Toolbar1.Buttons
（2）.Enabled=True
Toolbar1.Buttons（3）.Enabled=True
Toolbar1.Buttons（5）.Enabled=False
EndIf
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
Case"bt_next"'移动到下一条按钮
datamovenext
Case"bt_last"'移动到最后一条按钮
datamovelase
EndSelect
EndSub
PublicSubdatanew（）
DimiAsInteger
OnErrorGoTonewerror
SelectCasestate
Case"出租单管理"
Fori=1To28
txtchuzudan（i）.Text=""
Nexti
Fori=1To17
txtchuzudan（i）.Enabled=True
Nexti
rs_chuzu.MoveLast
txtchuzudan（0）.Text=Format（CStr（rs_chuzu.Fields
（1）+1）,"00000000"）
txtchuzudan（27）.Text=CCur（"0"）
txtchuzudan（21）.Text=CCur（"0"）
txtchuzudan（6）.Text=CCu
升级会员 