VB课设-房屋中介系统(共26页).doc

《VB课设-房屋中介系统(共26页).doc》由会员分享，可在线阅读，更多相关《VB课设-房屋中介系统(共26页).doc（26页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上前言当今时代，世界经济正在从工业经济向知识经济转变。我们说知识经济(knowledge based economy)的两个重要特征就是信息化和全球化，要实现信息化和全球化，就必须依靠完善的网络和完善的数据库。在这样一个飞速发展的信息时代，各行各业中离不开信息处理，正是计算机被广泛应用于管理信息系统的环境。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。房屋中介行业是房地产业的重要组成部分，其在房地产业经济运作的全过程之中起着至关重要的作用，为房地产业的生产、流通和消费提供了多元化的中介服务，。

2、房屋中介行业做为一个管理房屋信息的机构，其对信息的管理应该准确，无误。本文探讨房产中介管理系统的理论基础和设计思想，介绍了房屋中介管理系统的各个功能，以软件工程理论作为系统开发的理论基础，设计并实现了对出租，出售房屋信息的管理，对求租求购客户信息，需求的记录，并及时为其提供准确信息。其主要内容包括如下：对于房屋信息的管理；后台数据库的设计，建立以及各个模块间的关系。SQL(Structured Query Language)结构化查询语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。同时也是数据库脚本文件的扩展名。 关键词：信息管理；SQL数据库；目 录专心

3、-专注-专业第1章 系统概述1.1概述随着计算机及网络技术的飞速发展，计算机已经要成为我们学习和工作的得力助手。今天，计算机的价格已经十分低廉，性能却有了长足的进步，它以及被应用于许多的领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多的复杂的劳动。其次，计算机可以大大的提高人们的工作效率。第三，计算机可以节省许多资源。第四，计算机可以使敏感文档更加安全。信息技术作为当今使用频率最高的名词之一，随着计算机技术在工业、农业以及日常生活中等各方面的广泛应用，已经被越来越多的个人和企业作为自己赶超世界潮流的标志之一，而数据库技术则是信息技术中一个重要的支撑。数据库技

4、术是计算机科学技术的一个重要分支。从20世纪50年代中期开始，计算机应用从科学研究部门扩展到企业管理及政府行政部门，人们对数据处理的要求也越来越高。在1968年，世界上诞生了第一个商品化的信息管理系统IMS(Information Management System)，从此，数据库技术得到了迅猛发展。在互联网日益被人们接受的今天，Internet又使数据库技术、知识、技能的重要性得到了充分的放大。现在数据库已经成为信息管理、办公自动化、计算机辅助设计等应用的主要软件工具之一，帮助人们处理各种各样的信息数据。所以将数据库的技术应用于房屋中介机构，方便其数据管理就变得尤为重要。房屋中介行业是房地产

5、业的重要组成部分，其在房地产业经济运行的全过程之中起着重要的作用，为房地产业的生产、流通和消费提供了多元化的中介服务 。房地产中介具有很强的灵活性。房地产中介机构以佣金为主要收入来源。国外及港台房地产中介服务具有悠久的发展历史，具有一套较为完善的独立法规体系，包括市场准入法规、执业人员职业道德法规以及执业质量控制标准等。法国房屋中介业历史悠久，形成了一套完善的法律和管理办法，实行从帮助寻找客户到签约、管理等“一条龙”服务。有实力的房屋中介公司业务范围更广，不仅从事单元房、宅院、商业用房、车库和仓库等租赁或买卖，还与合伙人共同参与房屋建设，成为房屋的共同物主。随着互联网的广泛应用，法国的房屋中介

6、公司大都设有网站，从公司诚信为客户服务、帮你解除烦恼的承诺到各种房屋租赁、买卖业务的经营项目，一应俱全。而在中国古代和近代市场中为房屋买卖双方介绍交易评定房地产商品质量价格的居间行商称之为宅行。宅行是中国房地产中介机构的前身，现称房屋中介。房屋中介机构往往有大量的信息需要处理，传统的手工登记的方式对于处理大量信息而言不仅效率低下，而其极易发生信息的记录错误，甚至发生信息丢失的情况。而计算机技术的发展为解决这一问题提供了良好的途径。1.2系统目标本系统适用于Windows XP等主流操作系统之上,对于该系统的推广使用提供了很好的途径。该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作习

7、惯，使其对新系统更易适应，在操作上主要凭借使用Windows操作技术即可完成数据录入、修改、删除等功能，方便简单。使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。另外界面清晰易懂，加之可视化的管理工具，对数据库的操作是相当简单的，所以操作上是可行的。随着住房制度改革不断深化和居民收入水平的提高，住房成为新的消费热点。1998以后，随着住房实物分配制度的取消和按揭政策的实施，房地产投资进入平稳快速发展时期，房地产业成为经济的支柱产业之一。2003年以来，房屋价格持续上扬，大部分城市房屋销售价格上涨明显。随之而来国家出台了多项针对房地产行业的调控政策，希望能引导房地产市场的健康发展。而

8、房屋中介行业是房地产业的重要组成部分，房屋中介贯穿在房地产业经济运行的全过程之中，为房地产业的生产、流通和消费提供了多元化的中介服务 。房屋中介行业做为一个管理房屋信息的机构，其对信息的管理应该准确，无误。因此利用所学过的软件工程设计思想，数据库等知识设计一个房屋中介管理的软件对于提高该中介公司的工作效率变得尤为重要。“房产中介管理系统”的开发定位在一个能够满足数据库管理系统，即具备一个数据库管理系统的基本功能，包括数据的增加，删除，修改，查询等，便于用户查看，操作，和查询房屋登记信息。此外，系统具有会员和管理员登录功能，这样可以提高数据的安全性和可靠性。该系统符合各房产中介公司的要求。在开发

9、过程中注重明确需求分析，遵循用户参与、优化创新、使用高效、处理规范化的原则，使开发模型更加趋于完善。本系统适用于Windows XP等主流操作系统之上,对于该系统的推广使用提供了很好的途径。该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作习惯，使其对新系统更易适应，在操作上主要凭借使用Windows操作技术即可完成数据录入、修改、删除等功能，方便简单。使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。另外界面清晰易懂，加之可视化的管理工具，对数据库的操作是相当简单的，所以操作上是可行的。第2章 系统规划2.1组织机构该系统的主要结构包括以下几个部分：出租房屋信息管理，出售

10、房屋信息管理，求租房屋信息管理，求购房屋信息管理，退出系统。其系统的结构图如图2-1所示。房屋中介管理系统登陆系统出租房屋信息管理出售房屋信息管理求租房屋信息管理求购房屋信息管理退出系统图2-1 组织结构图2.2需求概要在软件工程的发展过程中，需求分析在很长一段时间里被人们认为是整个软件工程中最简单的一个步骤，但在过去十几年中人们逐渐认识到软件工程是整个过程中最为关键的一个部分。虽然在可行性研究阶段已经粗略了解了用户的需求，甚至还提出了一些可行的方案，但是，可行性研究的基本目的是用较小的成本在较短的时间内确定是否存在可行的解法，因此许多细节被忽略了。然而在最终的系统中却不能遗漏任何一个微小的细

11、节，所以可行性研究并不能代替需求分析，它实际上并没有准确地回答“系统必须做什么？”这个问题。所以进行软件设计之前，必须先进行需求分析，才能保证软件设计顺利完成。假如在需求分析阶段分析者们未能正确地认识到顾客的需要的话，那么最后的软件实际上不可能达到顾客的需要，或者软件无法在规定的时间里完工。系统的需求分析是需要开发人员和用户一起完成。需求分析主要是对管理信息系统的需求进行分析，分析在设计系统时可能遇到的问题，及其解决方案，对目标系统提出完整、准确、清晰、具体的要求。需求分析的结果是系统开发的基础，关系到系统的可利用价值，是开发软件所不可缺少的重要环节。房屋中介管理系统的实现需要从实际出发，对实

12、际情况进行客观的分析，深入了解需求。系统利用access与数据库结合的技术建立数据库管理系统。同时需求分析也是进行概要设计和详细设计的基础，是进行内部维护和测试的依据2.3可行性分析2.3.1技术可行性技术可行性考虑的问题是利用现有的技术条件是否能够顺利完成开发工作，软硬件配置是否满足开发的需求等。房屋中介管理系统的工作主要是在客户和房屋中介人员之间架起一座桥梁，能相互提供信息，处理信息。这一特点非常适合于计算机的特点，而计算机硬件和软件技术的飞速发展，也为系统的建设提供了技术条件。通过对房屋中介的工作流程加以分析，同时.net提供给的良好开发平台，其与数据库链接的方便性以及目前一些利用数据库

13、知识实现的信息管理系统，为实验的顺利进行提供可靠的参考和依据。2.3.2经济可行性经济可行性应该考虑其开发维护费用及该系统所能带来的效益之间的关系。该系统适用于中小型的房屋中介机构，开发该系统的费用主要包括开发阶段的费用以及今后的运行、维护费用。其新系统带来的效益来自使用该系统后房屋中介机构工作的科学化，规范化，高效化所带来的效益。这些主要体现在工作人员的减少，工作效率的提高，相应工资支出的减少，更容易满足客户的需求，使房屋中介公司的客户群扩大，以及与传统的手工登记的方式相比不易发生差错，因差错带来的损失的相对减少。2.3.3操作可行性本系统适用于Windows XP等主流操作系统之上,对于该

14、系统的推广使用提供了很好的途径。该系统研究了中介机构的工作流程后充分考虑到工作人员以前的工作习惯，使其对新系统更易适应，在操作上主要凭借使用Windows操作技术即可完成数据录入、修改、删除等功能，方便简单。使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。另外界面清晰易懂，加之可视化的管理工具，对数据库的操作是相当简单的，所以操作上是可行的。第3章 系统分析3.1简要介绍房屋中介管理系统的需求主要包括房屋信息的登记，查询，修改，删除。对客户需求的记录，查询，修改，删除。房屋登记将需要登记的房屋的信息输入系统，由系统进行储存，随时可以查阅修改。一般情况下，普通工作人员只能浏览查询房屋

15、具体信息，而管理员用户除了能查询房屋具体信息以外，还能够登记房屋信息，发布房屋信息，修该，删除房屋数据。因此，普通用户和管理人员的的权限要明确区分开来，防止操作时因操作错误产生的数据丢失和数据错误。具体分析如下：添加操作：在执行操作时首先都要先检查是否已经输入数据，如果输入的数据不全或者有错误，将提示用户输入正确的数据，如果输入的数据正确，点击添加按钮，能够将数据输入到数据库，并保存数据。删除操作：在选定一个房屋信息后可将其从数据库中删除，并在前端界面显示出来。查询操作：能够进行全部数据的查询，同时也能进行模糊的查询。3.2需要解决的问题以前的房屋中介工作大部分还是进行着手工管理，工作起来效率

16、很低，并且不能及时了解每位房主的信息，房客们对房主的信息不能充分了解等等，不便于动态及时地调整中介中心的结构，以便更好地适应当前房客的需求。手工管理还存在这许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素质。第4章 系统设计4.1系统的总体结构图在总体设计这个阶段，应划分出组成该系统的一些物理元素-程序，文件，数据库，人工过程和文档等等。同时，总体设计阶段另一项重要任务是设计软件的结构，确定系统中每个程序由哪些模块组成，以及这些模块间的关系。具体到该系统，开发任务是实现

17、房屋中介管理系统化、规范化和自动化，从而提高房屋中介公司的工作效率。其系统示意图如下图所示：图4-1 系统示意图进入该系统后，在登录界面输入正确的密码后，就可进入系统的主界面。4.2系统流程图设计用户登录判断密码各功能模块操作界面退出系统是否图4-2系统流程图4.3数据库设计SQL(Structured Query Language)结构化查询语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。同时也是数据库脚本文件的扩展名。SQL 面向数据库执行查询；SQL 可从数据库取回数据；SQL 可在数据库中插入新的记录；SQL 可更新数据库中的数据；SQL 可从数据

18、库删除记录；SQL 可创建新数据库；SQL 可在数据库中创建新表；SQL 可在数据库中创建存储过程；SQL 可在数据库中创建视图；SQL 可以设置表、存储过程和视图的权限。表4-1 客户信息表房屋地址房型建筑面积朝向设施国奥小区A单元一室一厅40坐北朝南一卫国奥小区B单元三室一厅100坐北朝南一厨一卫国奥小区C单元三室一厅110坐北朝南一厨一卫一阳第5章 主要功能模块设计5.1登录窗体设计执行可执行文件，进入系统登录界面如下图：图5-1 登录界面图登录代码：Private Sub cmdok_Click()Dim sql As StringDim rs_login As New ADODB.R

19、ecordsetIf Trim(txtname.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtname.SetFocusElse sql = select * from 系统管理 where 用户名= & txtname.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtname.S

20、etFocus Else 检验密码是否正确 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtname.Text username = rs_login.Fields(2) rs_login.Close Unload Me MDIForm1.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfEnd SubPriv

21、ate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & zhongjie.mdbconn.Open connectionstringcnt = 0End Sub5.2系统主界面的设计与实现在登录界面输入正确密码后，可进入如下的系统主界面，如图所示， 输入正确的管理用户名和密码，程序即可进入菜单选择窗体如下图：图5-2 菜单选择窗体界面图程序代码：Option ExplicitDim txt

22、tbl As StringDim rs_chuzu As New ADODB.RecordsetDim rs_chushou As New ADODB.RecordsetDim rs_qiuzu As New ADODB.RecordsetDim rs_qiugou As New ADODB.RecordsetDim datanum As IntegerDim state As StringDim chuzubiaostate As BooleanDim chushoubiaostate As BooleanDim qiuzubiaostate As BooleanDim qiugoubiao

23、state As BooleanDim savestate As Integer 新建保存为1，修改保存为2，出租保存为3，出售保存为4Dim saveback As BooleanPrivate Sub chushouman_Click()Dim sql As StringIf Picture2(2).Visible = False Then Picture2(2).Visible = True Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(4).Vis

24、ible = 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.CursorL

25、ocation = adUseClient rs_chushou.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chushou.MoveLast 显示最后一条记录 datanum = rs_chushou.RecordCount viewchushoubiao chushoubiaostate = True End If Toolbar1.Buttons(1).Enabled = TrueEnd IfEnd SubPrivate Sub chuzudanfind_Click()Dim j As IntegerIf Picture2(1).

26、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

27、Picture2(11).Visible = False Picture2(10).Visible = False state = 出租单查询 For j = 0 To 10 Toolbar1.Buttons(j).Enabled = False Next jEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key 按关键字选择 Case bt_new 新建按钮 datanew Button.Enabled = False Toolbar1.Bu

28、ttons(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

29、 = True Toolbar1.Buttons(5).Enabled = True savestate = 2 modify Case bt_delete 删除按钮 datadelete Case bt_save 保存按钮 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).Enabl

30、ed = 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 移动到前

31、一条按钮 dataMovePrevious Case bt_next 移动到下一条按钮 datamovenext Case bt_last 移动到最后一条按钮 datamovelaseEnd SelectEnd SubPublic Sub datanew()Dim i As IntegerOn Error GoTo newerrorSelect 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_chu

32、zu.MoveLast txtchuzudan(0).Text = Format(CStr(rs_chuzu.Fields(1) + 1), ) txtchuzudan(27).Text = CCur(0) 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 tx

33、tchushoudan(0).Text = Format(CStr(rs_chushou.Fields(1) + 1), ) 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 txtqiuzu(0).Text

34、= Format(CStr(rs_qiuzu.Fields(1) + 1), ) 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), ) txtqiugou(7).Text = CCur(0)End SelectExit Subne

35、werror: MsgBox Err.DescriptionEnd SubPublic Sub dataprint()Dim i As IntegerDim XOn Error GoTo modifyerrorDim sql As StringSelect 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

36、, _ 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(

37、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 房屋求购管理 viewqiugoubiao Exit SubEnd SelectExit Submodifyerror: M

38、sgBox Err.DescriptionEnd Sub5.3出租房屋信息管理界面的设计点击主界面的出租房屋信息管理按钮，即可弹出出租房屋信息管理的界面，如下图图5-3出租房屋信息界面点击查询信息按钮，即可弹出如下界面，用以输入查询条件，图5-4出租房屋信息查询界面5.4出售房屋信息管理界面的设计与实现图5-5出售房屋信息在该界面下，包括出售房屋信息查询，信息添加，删除，显示所需信息，等功能。图5-6出售房屋信息查询5.5求购客户信息界面的设计与实现图5-7求购客户信息管理界面图5-8求购客户信息查询界面5.6求租客户信息界面的设计与实现图5-9求租客户信息界面图5-10求租客户信息界面5.7

39、统计的设计与实现图5-11统计信息界面第6章 总 结二十一世纪，世界经济正在从工业经济向知识经济转变。我们说知识经济的两个重要特征就是信息化和全球化，要实现信息化和全球化，就必须依靠完善的网络和完善的数据库。在这样一个飞速发展的信息时代，各行各业中离不开信息处理，正是计算机被广泛应用于管理信息系统的环境。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。这次我的课设题目是开发ABC家教管理信息系统。然而现代管理信息系统早就进化信息化阶段了，但是从软件市场购买的一些信息管理软件通常是通用版的，不可能适应所有家教服务所管理中的情况，功能不能扩充，这样不仅工作效率低下，浪费人力，财力，而且在一些中间环节还造成信息丢失，出错。在软、硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，可以很简单方便的管理各种教师及学员信息。硬件的配置要求不能太高，这样可以很好的适应当前的家教服务所得需求。由于时间的仓促和自己学习的不够认真，所以很多功能自己都没有能够实现