基于bs结构的房屋租售管理系统的实现.doc

上海理工大学成人高等学历教育毕业设计（论文） 基于 B/S 结构的房屋租售管理系统的实现 摘 要 随着现代社会的科技发展，网络技术的不断进步，越来越多的商业活动都 从传统的现实社会中发展到了网络上。房屋的出租业务也从现实生活中走上了 网络空间。随着这类业务的开展，如何对租售房屋进行高效、实用、合理的管 理这个问题越来越表现出来。本课题正是基于这些问题进行开发，力求尽量简 洁、实用地解决在线房屋出租管理方面的问题。 该系统采用基于 B/S 结构，利用 VBscript 和 T-SQL 语言实现对数据库的 操作。系统实现房屋出租、出售管理的在线操作。注册用户可以通过网站发布 出租、出售信息，删除已经发布的信息等功能。游客可以访问本系统,进行房屋 的注册、查询出租、出售房屋信息，联系房东进行交易洽谈等功能。该系统总 体方面实现了快捷、方便、简单的查询、管理等操作。以方便为宗旨是该系统 主要特色。 关键词：关键词：房屋租售；管理系统；房屋租售；管理系统；B/SB/S 基于 BS 结构的房屋租售管理系统的实现 The Realization of the Housing Renting and Selling Management System Based on B/S Abstract Along with development of modern society, network technology advances, more and more commercial activities transfer from the traditional social reality to the network. Housing rental business transfers from real life to network space, too. With such activity, how to rent housing efficiently, practical, rational management and the issue has become more evident. The subject is how to solution this problem area, and developed a simple practical solution to online rental management system. The system is based on the B/S structure, which using VBscript and T-SQL language in database manipulate the database. The system can rent and sale by online management. The registered users can post information of house on website, and the registered users can delete the information of house which the information has been posted by him. The visitor can access the system and register. And the visitor can query the information which the information has been posted. The visitor can get in touch with landlord and discuss with him. In the general, the system is rapid, convenient and simple to be queried and managed. The main purpose of system is convenient. Key words: The building renting and selling; Management system; B/S 上海理工大学成人高等学历教育毕业设计（论文） 目 录 1引言 1 1.1课题背景.1 1.2国内外研究现状.1 1.3本课题研究的意义.1 1.4本课题的研究方法.1 2技术基础 3 2.1开发语言及环境.3 2.2ASP编程语言3 2.3MICROSOFT SQL SERVER 2000.3 2.4IIS 的安装与配置 .3 2.5开发工具.4 2.6B/S 简介 .4 3需求分析 5 3.1系统概要.5 3.2系统流程.5 3.3系统 E-R 图.7 3.4数据库的建立.8 4系统的实现 .12 4.1数据库的连接12 4.2登录模块12 4.3房屋出租出售发布模块14 4.4房屋信息修改模块15 4.5消息发送及回复模块16 4.6房屋管理模块17 4.7房屋查询模块18 4.8管理员房屋、帐号管理模块19 4.9遇到的问题及解决办法20 5系统的测试 .21 5.1测试项目21 5.2测试环境21 5.3测试结果21 5.4评价21 结 论.22 基于 BS 结构的房屋租售管理系统的实现 参考文献.23 附录 A.24 附录 B.26 附录 C.29 致 谢.37 上海理工大学成人高等学历教育毕业设计（论文） 1 1引言 1.11.1 课题背景课题背景 当今时代是飞速发展的信息时代，计算机与信息处理技术日渐成熟。随着 Internet 和计算机网络技术的蓬勃发展，Web 技术得到了迅猛地发展。在科学 技术高速发展的今天，信息技术已经渗透到社会发展的每一个领域，而计算机 技术为我们的工作提供了方便性、高效性、灵活性及安全性，尤其 Web 技术的 高速发展将计算机的应用提升到另一个层次。房屋的出租出售业务也从现实生 活中走上了网络空间。随着这类业务的开展，如何对出租房屋进行高效，实用， 合理的管理这个问题越来越表现出来。本课题正是基于对这个问题的解决方面 进行开发，力求尽量的简洁实用地解决在线房屋出租管理方面的问题，具有免 费、快捷、方便等优点。 1.21.2 国内外研究现状国内外研究现状 我国是一个人口大国，随着人口的增多，网络的普及，房屋的交易需求日 益增大。专家们认为，尽管中国人均居住面积有了很大改善，但是居住环境不 容乐观。开始进入小康生活的中国人，对住房的需求，已经从生存性向舒适性 转变，房屋的位置、房型、环境、价格成为人们考虑的综合因素。国外发达城 市，人口也是非常的拥挤。房屋需求也是非常的明显。 从上面显示，城市要发展，必须有人口作基础，有了人口基础才能带动消 费。所以需要更多的房屋。我国的房屋需求的改变，必然带动房屋的交易。对 于中国普通老百姓和刚毕业的大学生寻求房屋非常不便。房屋中介网络化需求 迫在眉下，房屋管理系统需求相应日益增多，召唤网络房屋交易查询平台的产 生。 1.31.3 本课题研究的意义本课题研究的意义 无论什么社会么年代，房屋是人类生活必备的基础条件。对于当今繁华的 城市，人口不断增加。对于房屋需求者如何找到自己称心如意的房屋呢？如何 寻找到离工作点最近的房屋呢？如何找到最好的门面旺铺呢？如何才能不花一 分钱就能找到绝对如意的房屋呢？为了满足这些需求，就有了本系统的产生。 快捷、操作简单是本课题的主要思路和方向。 1.41.4 本课题的研究方法本课题的研究方法 本课题主要研究对象是数据的操作以及 asp 脚本语言的应用，利用 SQL 语 句实现对数据库的写入、查询、修改等操作。通过服务器实现房屋出租和出售 信息的在线管理。让注册用户可以在任何地方足不出户对房屋信息进行发布、 删除、修改、查看留言等功能。让普通用户可以查询房屋、发布消息与房东进 基于 BS 结构的房屋租售管理系统的实现 2 行联系以实现交易。管理员能对帐号、房屋信息、留言、过期房屋信息进行处 理。 上海理工大学成人高等学历教育毕业设计（论文） 3 2技术基础 2.12.1开发语言及环境开发语言及环境 本设计采用 B/S 结构，用 ASP 开发工具进行开发。服务器采用 windows 2000 sever 操作系统，网络服务器选用 IIS 5.0，后台数据库采用性能稳定功 能强大的 SQL Server 2000 做数据库。客户机选用 windowsXP 系统，测试浏览 器 IE 6.0 进行开发设计。 2.22.2aspasp 编程语言编程语言 ASP 全称为 Active Server Pages 的简写，是一套由微软公司开发的服务 器端运行的脚本平台，ASP 含于 IIS 当中。使用 ASP 内置组件可以快速开发动 态网页。每一个组件都是由一组富有经验的程序员根据动态网页最常用的功能 而开发的。在 ASP3.0 中，共有 6 个这样的组件： Application ASPError Request Response Server Session ASP 是经过服务器解析之后再向网页网页浏览器返回数据，所以有了 ASP 就不必担心客户的浏览器是否能运行你所编写的代码。因为所有的程序都将在 网页服务器端执行，包括所有嵌在普通 HTML 中的脚本程序。当程序执行完毕后， 服务器仅将执行的结果返回给客户浏览器，这样也就减轻了客户端浏览器的负 担，大大提高了交互的速度。 由于代码是需要经过服务器执行之后才向浏览器发送的，所以在客户端看 到的只能是经过解析之后的数据，而无法获得源代码，故编写者不用担心自己 的源代码会被别人剽窃。但不排除黑客利用系统漏洞窃取服务器端的 ASP 源代 码。 基于这样的解析方式，也导致运行 ASP 页面相对于普通的 HTML 页面要慢一 点。因为普通的 HTML 页面只需要浏览器就能够解析，而 ASP 则必须是服务器将 整页的代码都执行一遍之后再发送数据。 ASP 提供与数据库的交互，如 Microsoft SQL Server、Access、MySQL 和 Oracle，比较流行的是 ASP 和 Microsoft SQL Server 的组合。 2.32.3MicrosoftMicrosoft SQLSQL ServerServer 20002000 Microsoft SQL Server 2000 是目前比较流行的一种数据库。SQL 在建立数 据库、数据表、关系、视图以及索引等对象时，除了可以使用 SQL 语法来操作 外，它还提供了相当好的工具和向导，能够更方便地建立与访问数据库对象。 SQL 的维护、备份管理等功能也是非常的优秀。 2.42.4IISIIS 的安装与配置的安装与配置 IIS 的安装与配置：若 WINDOWS2000 上未安装 IIS 服务器，可打开“控制 面版” ，然后单击启动“添加/删除程序” ，在弹出是对话框中选择“添加/删除 基于 BS 结构的房屋租售管理系统的实现 4 组件” ，在 WINDOWS 组件向导对话框中选中“INTERNET 信息服务（IIS） ” ，然后 单击“下一步” ，按向导提示，完成对 IIS 的安装。启动 INTERNET 信息服务简 称 IIS，单击 WINDOWS 2000 SERVER 开始菜单-程序管理工具INTERNET 服 务管理器，即启动“INTERNET 信息服务”管理工具安装 IIS 后，系统自动创建 了一个默认的 WEB 站点，该站点的主目录默认为 C：/INETPUT/WWWROOT。用鼠 标右键单击“默认 WEB 站点” ，在弹出的快捷菜单中选中“属性” ，此时就可打 开站点属性设置的对话框。在对话框中可完成对属性的全部配置。我们主要设 置“主目录” ，单击主目录标签，切换到主目录设置页面。在本地路径（C）： 中输入 C：/INETPUT/WWWROOT，完成对主目录的设置。接下来还要设置“主页 文档” ，单击“文档”标签，可切换到对主页文档的设置页面。主页文档是在浏 览器中键入网站的域名，主页文件名是“index.asp” 。最后把我的文档解压到 “C：/INETPUT/WWWROOT” ，并在主目录的本地路径中添加“index.asp ” 。完成 以上操作后，便可以在浏览器中输入“/ index.asp ”就可以浏览到 网页了。最后还要注意的是在 INTERNET 信息服务的工具栏中，提供有启动与停 止服务的功能。单击启动按扭可启动 IIS 服务器：单击停止按扭，则停止 IIS 服务。 2.52.5开发工具开发工具 本系统的开发工具是 Macromedia Dreamweaver 8，它是建立 Web 站点和应 用程序的专业工具。它将可视布局工具、应用程序开发功能和代码编辑支持组 合在一起，其功能强大，使得各个层次的开发人员和设计人员都能够快速创建 界面吸引人的基于标准的网站和应用程序。从对基于 CSS 的设计的领先支持到 手工编码功能,Dreamweaver 提供了专业人员在一个集成、高效的环境中所需的 工具。开发人员可以使用 Dreamweaver 及所选择的服务器技术来创建功能强大 的 Internet 应用程序，从而使用户能连接到数据库、Web 服务等。 2.62.6B/SB/S 简介简介 B/S 结构，即 Browser/Server(浏览器/服务器)结构，是随着 Internet 技 术的兴起，对 C/S 结构的一种变化或者改进的结构。在这种结构下，用户界面 完全通过 WWW 浏览器实现，一部分事务逻辑在前端实现，但是主要事务逻辑在 服务器端实现，形成所谓 3-tier 结构。B/S 结构，主要是利用了不断成熟的 WWW 浏览器技术，结合浏览器的多种 Script 语言(VBScript、JavaScript 等) 和 ActiveX 技术，用通用浏览器就实现了原来需要复杂专用软件才能实现的强 大功能，并节约了开发成本，是一种全新的软件系统构造技术。随着 Windows 98/Windows 2000 将浏览器技术植入操作系统内部，这种结构更成为当今应用 软件的首选体系结构。显然 B/S 结构应用程序相对于传统的 C/S 结构应用程序 上海理工大学成人高等学历教育毕业设计（论文） 5 是巨大的进步。 3需求分析 3.13.1系统概要系统概要 本系统采用基于 B/S 结构进行开发。对数据库的操作以及 asp 中脚本语言 的应用，利用 VBscript 和 SQL 语言实现对数据库的写入，查询，修改等操作。 通过服务器实现房屋出租出售管理的在线操作，让管理员可以在任何地点足不 出户地对房屋进行出租、出售的管理。以及注册用户可以通过网站发布出租、 出售信息。删除已经发布的信息等功能。游客可以访问本系统实现房屋的注册、 查询出租、出售的房屋信息，并能联系房东进行交易洽谈。 3.23.2系统流程系统流程 基于以上功能，该系统流程分为 3 个部分：注册用户、管理员、游客（未 注册用户） 。 注册用户要实现：房屋信息的发布、修改、删除，查看、删除留言，联系 管理员，修改密码。 管理员功能：帐号管理，可以删除帐号，通过帐号来删除房屋信息进行管 理。清理过期房屋信息，就是删除过期的房屋，根据发布时间与系统时间进行 判断是否过期。还有处理注册用户的问题和回复，发布删除公告和通知，密码 修改功能。 游客（未注册用户）功能：能进行房屋的查询，发送消息给房东进行联系， 注册等。详细功能见图 3-1、图 3-2、图 3-3。 基于 BS 结构的房屋租售管理系统的实现 6 管理员 帐 号 管 理 出 租 过 期 清 理 出 售 过 期 清 理 回 复 删 除 问 题 发 布 删 除 公 告 发 布 删 除 通 知 密 码 修 改 图 3-1 管理员功能 注 册 用 户 发 布 租 售 信 息 修 改 租 售 信 息 删 除 租 售 信 息 查 看 租 房 留 言 删 除 租 房 留 言 查 看 售 房 留 言 删 除 售 房 留 言 联 系 管 理 员 查 看 回 复 通 知 修 改 密 码 图 3-2 注册用户功能 游 客 发 送 租 房 消 息 发 送 买 房 消 息 根 据 地 址 查 询 出 租 根 据 条 件 查 询 出 租 根 据 地 址 查 询 出 售 根 据 条 件 查 询 出 售 模 拟 计 算 开 支 注 册 图 3-3 游客功能 上海理工大学成人高等学历教育毕业设计（论文） 7 3.33.3系统系统 E-RE-R 图图 图 3-4 管理员 图 3-5 注册用户 基于 BS 结构的房屋租售管理系统的实现 8 3.43.4数据库的建立数据库的建立 本系统一共涉及到 9 张表。管理员表（admin） 、注册用户表（yonghu） 、出 租房屋信息表（chuzu） 、出售房屋信息表（chushou） 、公告（news） 、求租消息 （chuzumsg） 、买房消息（chushoumsg） 、管理员消息（liuyan_admin） 、注册用 户消息（liuyan_user） 。 图 3-6 管理员 管理员表主要是记录管理员的帐号、密码信息。如图 3-6 就是该表的主要 设计。adzh 为管理员帐号，mima 就是管理员的登陆密码。 图 3-7 用户注册信息 用户注册信息表，如上图 3-7 主要是记录该注册用户的详细信息。包含帐 号(zhanghao)、密码（mima） 、性别(sex)、QQ(qq)、 E_mail(mail)、注册时间 信息(zctime)。这里的 id 是一个自动编号，主要是用来方便后面的操作。 图 3-8 公告 公告表，如上图 3-8。主要是用来记录公告信息，它包含一个序号 （xuhao） 、帐号（adzh） 、信息(msg)和发布时间（t） 。其中序号(xuhao)为自动 编号，其目的就是以后操作根据该编号进行。 图 3-9 求租信息 上海理工大学成人高等学历教育毕业设计（论文） 9 求租信息表，如上图 3-9。主要包含自动编号(id)、标题（biaoti） 、信息 （msg） 、发布信息时间（msgt） 、和房东(man)。主要是存储游客（未注册用户） 给房东联系的信息。 图 3-10 出租房屋信息 出租信息表，如上图 3-10。主要是用来记录房东发布的房屋信息。其中 id 为主键，以后的操作就是主要根据该编号进行。 图 3-11 买房信息 买房信息表，如上图 3-11。主要是记录普通用户联系房东的买房屋的信息。 房东可以查阅该信息他们之间进行交易洽谈。其中 id 为自动编号，还包含标题 （biaoti） 、信息（msg） 、发布信息的时间（msgt）和房东（man） 。 基于 BS 结构的房屋租售管理系统的实现 10 图 3-12 出售房屋信息 出租房屋信息表，如上图 3-12。主要是用来记录房东所发布的出售的房屋 信息。其中包含有：有效时间(yxt)、发布时间(t)、房东(man)等项。 图 3-13 注册用户给 admin 留言 注册用户给 admin 留言表，如上图 3-13。主要是用来记录房东（注册用户） 给管理员反映的问题。能够使得注册用户可以和管理员进行交流、和解决问题 等。其中包含自动编号（id） 、标题（biaoti） 、具体的消息内容（msg） 、发送 时间（t）和发送人（man） 。 图 3-14 管理员回复和公告通知 上海理工大学成人高等学历教育毕业设计（论文） 11 管理员回复和公告通知表，如上图 3-14。主要是用来存储管理员给注册用 户回复的信息和发布通知。这 2 项存储在一个表中，当管理员要发布通知的时 候则具体代码内赋值，其中包含代码如：biaoti=”公告通知” ，man=”管理员” 这样就何以区分给注册用户的回复和公告通知。其中包含自动编号（id） 、标题 （biaoti） 、消息(msg)、接受消息人（yonghu） 、发送时间（t）和发送消息的 人（man） 。这里 man 是被赋值为管理员。如果为公告通知则这里的标题被赋值 为公告通知。 基于 BS 结构的房屋租售管理系统的实现 12 4系统的实现 4.14.1数据库的连接数据库的连接 本系统采用的是用 asp 语言与 SQL 数据库的连接。首先建立文件 DNS。其 代码如下： 其中 C:Program FilesCommon FilesODBC 是路径，abc.dsn 为文件 DSN 的名字。 4.24.2登录模块登录模块 图 4-1 登陆界面 界面如图 4-1，是该系统的登陆界面，也是首页。 注册用户登录代码如下： alert(请核对你的帐号密码);history.back(-1); 上海理工大学成人高等学历教育毕业设计（论文） 13 “ response.End() else 验证成功。 session(“zhanghao“)=zhanghao把帐号赋值给 session,以方便后面传递， 以限制权限。 end if % 其中这里有段验证非法字符的一个判断函数，如下： alert(密码中含有非法字符,请重新输 入);window.history.back();“ response.End() end if上面是判断输入的是否有非法字符。 Function CheckSqlIn(Str,Length,NotStr)函数。 if Str=“ then如果输入的为空则 false。 CheckSqlIn=false exit function end if if len(Str)Length then判断输入的长度。 CheckSqlIn=false exit function end if Dim NotStrArr定义变量。 Dim I定义变量。 NotStrArr=Split(NotStr,“|“)拆分为数组。 for I=LBound(NotStrArr) to UBound(NotStrArr)for 循环。 if Instr(Str,NotStrArr(I) “ And Trim(List2(0).Text) “ Then If Trim(Text1(1).Text) “ Then str = str + “ “ + Trim(List1(0).Text) + “ “ + Trim(List2(1).Text) + “ like %“ +_ Trim(Text1(1).Text) + “%“ If Trim(List1(1).Text) “ And Trim(List2(2).Text) “ Then If Trim(Text1(3).Text) “ Then str = str + “ “ + Trim(List1(2).Text) + “ “ + Trim(List2(3).Text) + “ like %“_ + Trim(Text1(3).Text) + “%“ If Trim(List1(3).Text) “ And Trim(List2(4).Text) “ Or Trim(List2(4).Text) “ Or Trim(List2(3).Text) “ Or Trim(List2(4).Text) “ Then str = “ MsgBox “输入错误“, vbOKOnly, “信息提示“ End If End If Else str = “ MsgBox “输入错误“, vbOKOnly, “信息提示“ End If Else If Trim(Text1(2).Text) “ Or Trim(List2(2).Text) “ Or Trim(List2(3).Text) _ “ Or Trim(List2(4).Text) “ Or Trim(Text1(4).Text)_ “ Or Trim(List1(3).Text) “ Or Trim(Text1(1).Text) “ Or_ Trim(List1(1).Text) “ Or Trim(List2(2).Text) “ Or Trim(List2(3).Text) “ Or_ Trim(List2(4).Text) “ Then str = “ MsgBox “输入错误“, vbOKOnly, “信息提示“ End If End If Else If Trim(List1(0).Text) “ Or Trim(Text1(1).Text) “ Or Trim(List1(1).Text) “ _ Or Trim(List2(2).Text) “ Or Trim(List2(3).Text) “ Or Trim(List2(4).Text) “ Then str = “ MsgBox “输入错误“, vbOKOnly, “信息提示“ End If End If If Trim(Text2.Text) “ Then str = str + “ and “ + “完成日期 like “ + Trim(Text2.Text) + “ Else str = “完成日期 like “ + Trim(Text2.Text) + “ End If End If If str 0 Then cond = “文档编号=“ + Trim(cond) + “ Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find (cond) End If Searchform2.Show vbModal End Sub Private Sub Command2_Click() 返回控件：返回 searchform 窗体 Unload Me End Sub Private Sub Form_Load() Text1.Text = Searchform.Adodc1.Recordset.Fields(“文档编号“) Text2.Text = Searchform.Adodc1.Recordset.Fields(“标题“) Text3.Text = Searchform.Adodc1.Recordset.Fields(“作者“) Text4.Text = Searchform.Adodc1.Recordset.Fields(“关键字“) Text5.Text = Searchform.Adodc1.Recordset.Fields(“摘要“) Text6.Text = Searchform.Adodc1.Recordset.Fields(“完成日期“) Text7.Text = Searchform.Adodc1.Recordset.Fields(“机构“) End Sub 4 searchform2 窗体： Dim cond As String Private Sub Command1_Click() 返回控件：返回 searchform1 窗体 Unload Me End Sub Private Sub Form_Load() Text1.Text = searchform1.Adodc1.Recordset.Fields(“文档编号“) Text2.Text = searchform1.Adodc1.Recordset.Fields(“文档类型“) Text3.Text = searchform1.Adodc1.Recordset.Fields(“归档时间“) Text4.Text = searchform1.Adodc1.Recordset.Fields(“秘密级别“) Text5.Text = searchform1.Adodc1.Recordset.Fields(“文档大小“) Text6.Text = searchform1.Adodc1.Recordset.Fields(“存储位置“) End Sub 5 editform 窗体： Private Sub Command1_Click() 确定控件：根据设置条件检索定位 recs1 = Adodc1.Recordset.RecordCount Dim str As String str = “ If Trim(Text1.Text) “ Then If str “ Then If str “ Then 上海理工大学成人高等学历教育毕业设计（论文） 33 If str “ Then If str “ Then If str “ Then Adodc1.RecordSource = “select * from 文档内容元数据表 where “ + str Adodc1.Refresh Else Adodc1.RecordSource = “select * from 文档内容元数据表“ Adodc1.Refresh End If If recs1 0 Then cond = “文档编号=“ + Trim(cond) + “ editform1.Adodc1.Recordset.MoveFirst editform1.Adodc1.Recordset.Find (cond) End If If MsgBox(“真的要删除该记录吗？“, vbYesNo, “信息提示“) = vbYes Then Adodc1.Recordset.Delete recs1 = recs1 - 1 editform1.Adodc1.Recordset.Delete recs2 = recs2 - 1 End If End Sub 基于 BS 结构的房屋租售管理系统的实现 34 Private Sub Command5_Click() 返回控件：返回菜单界面 Unload Me End Sub 6 editform1 窗体 Dim rs As ADODB.Recordset Private Sub Command1_Click() 确定控件：进行文档内容元数据记录 的编辑 Dim sqltxt As String If Trim(Text1.Text) = “ Or Trim(Text2.Text) = “ Or Trim(Text3.Text) = “ Or Trim(Text4.Text) = “ Then MsgBox “数据项不能为空，请重新设置“, vbOKOnly, “信息提示“ Exit Sub End If If flag = 1 Then sqltxt = “select * from 文档内容元数据表 where 标题 like “ + Trim(Text2.Text) + “ + “ _ and “ + “作者 like “ + Trim(Text3.Text) + “ + “ and “ + “关键字 like “ +_ Trim(Text4.Text) + “ + “ and “ + “摘要 like “ + Trim(Text5.Text) + “ Set rs = exesql(sqltxt) If rs.RecordCount 0 Then MsgBox “存在相同的记录，请重新设置“, vbOKOnly, “信息提示“ rs.Close Exit Sub End If editform.Adodc1.Recordset.AddNew editform.Adodc1.Recordset.Fields(“文档编号“) = Trim(Text1.Text) editform.Adodc1.Recordset.Fields(“标题“) = Trim(Text2.Text) editform.Adodc1.Recordset.Fields(“作者“) = Trim(Text3.Text) editform.Adodc1.Recordset.Fields(“关键字“) = Trim(Text4.Text) editform.Adodc1.Recordset.Fields(“摘要“) = Trim(Text5.Text) editform.Adodc1.Recordset.Fields(“完成日期“) = Trim(Text6.Text) editform.Adodc1.Recordset.Fields(“机构“) = Trim(Text7.Text) editform.Adodc1.Recordset.Update recs1 = recs1 + 1 Else editform.Adodc1.Recordset.Fields(“文档编号“) = Trim(Text1.Text) editform.Adodc1.Recordset.Fields(“标题“) = Trim(Text2.Text) editform.Adodc1.Recordset.Fields(“作者“) = Trim(Text3.Text) editform.Adodc1.Recordset.Fields(“关键字“) = Trim(Text4.Text) editform.Adodc1.Recordset.Fields(“摘要“) = Trim(Text5.Text) editform.Adodc1.Recordset.Fields(“完成日期“) = Trim(Text6.Text) editform.Adodc1.Recordset.Fields(“机构“) = Trim(Text7.Text) editform.Adodc1.Recordset.Update End If End Sub Private Sub Command2_Click() 返回控件：返回 editform 窗体 Unload Me End Sub Private Sub Command3_Click() 属性设置控件：调用 editform窗体进 行文档属性记录编辑 If flag = 1 Then Adodc1.RecordSource = “select * from 文档属性表“ Adodc1.Refresh 上海理工大学成人高等学历教育毕业设计（论文） 35 Editform2.Show vbModal ElseIf flag = 2 Then Adodc1.RecordSource = “select * from 文档属性表 where “ + “文档编号=“ + Trim(Text1.Text)_ + “ Adodc1.Refresh Editform2.Show vbModal Else End If End Sub Private Sub Form_Load() If flag = 2 Then Text1.Text = editform.Adodc1.Recordset.Fields(“文档编号“) & “ Text2.Text = editform.Adodc1.Recordset.Fields(“标题“) & “ Text3.Text = editform.Adodc1.Recordset.Fields(“作者“) & “ Text4.Text = editform.Adodc1.Recordset.Fields(“关键字“) & “ Text5.Text = editform.Adodc1.Recordset.Fields(“摘要“) & “ Text6.Text = editform.Adodc1.Recordset.Fields(“完成日期“) & “ Text7.Text = editform.Adodc1.Recordset.Fields(“机构“) & “ End If End Sub 7 editform2 窗体： Private Sub Command1_Click() 返回控件：返回 edirform1 窗体 Unload Me End Sub Private Sub Command2_Click() 确定控件：进行文档属性记录的编辑 Dim sqltxt As String If Trim(Text1.Text) = “ Or Trim(Text2.Text) = “ Or Trim(Text3.Text) = “ Or Trim(Text4.Text) = “ Or Trim(Text5.Text) = “ Or Trim(Text6.Text) = “ Then MsgBox “数据项不能为空，请重新设置“, vbOKOnly, “信息提示“ Exit Sub End If If flag = 1 Then editform1.Adodc1.Recordset.AddNew editform1.Adodc1.Recordset.Fields(“文档编号“) = Trim(editform1.Text1.Text) editform1.Adodc1.Recordset.Fields(“文档类型“) = Trim(Text1.Text) editform1.Adodc1.Recordset.Fields(“归档时间“) = Trim(Text2.Text) editform1.Adodc1.Recordset.Fields(“秘密级别“) = Trim(Text3.Text) editform1.Adodc1.Recordset.Fields(“载体类型“) = Trim(Text4.Text) editform1.Adodc1.Recordset.Fields(“文档大小“) = Trim(Text5.Text) editform1.Adodc1.Recordset.Fields(“存储位置“) = Trim(Text6.Text) editform1.Adodc1.Recordset.Update recs2 = recs2 + 1 Else editform1.Adodc1.Recordset.Fields(“文档类型“) = Trim(Text1.Text) editform1.Adodc1.Recordset.Fields(“归档时间“) = Trim(Text2.Text) editform1.Adodc1.Recordset.Fields(“秘密级别“) = Trim(Text3.Text) editform1.Adodc1.Recordset.Fields(“载体类型“) = Trim(Text4.Text) editform1.Adodc1.Recordset.Fields(“文档大小“) = Trim(Text5.Text) editform1.Adodc1.Recordset.Fields(“存储位置“) = Trim(Text6.Text) editform1.Adodc1.Recordset.Update End If End Sub Private Sub Form_Load() 基于 BS 结构的房屋租售管理系统的实现 36 recs = editform1.Adodc1.Recordset.RecordCount If flag = 2 Then Text1.Text = editform1.Adodc1.Recordset.Fields(“文档类型“) & “ Text2.Text = editform1.Adodc1.Recordset.Fields(“归档时间“) & “ Text3.Text = editform1.Adodc1.Recordset.Fields(“秘密级别“) & “ Text4.Text = editform1.Adodc1.Recordset.Fields(“载体类型“) & “ Text5.Text = editform1.Adodc1.Recordset.Fields(“文档大小“) & “ Text6.Text = editform1.Adodc1.Recordset.Fields(“存储位置“) & “ End If End Sub 上海理工大学成人高等学历教育毕业设计（论文） 致致 谢谢 本文是在老师的热情关心和指导下完成的，他渊博的知识和严谨的治学作 风使我受益匪浅，对顺利完成本课题起到了极大的作用。在此向他表示我最衷 心的感谢！ 在论文完成过程中，本人还得到了很多老师和同学的热心帮助，本人向他 们表示深深的谢意！ 最后向在百忙之中评审本文的各位专家、老师表示衷心的感谢！ 基于 BS 结构的房屋租售管理系统的实现 38 计算机科学与技术专业 毕业实习及毕业论文毕业实习及毕业论文(设计设计)规范规范 计算机科学与工程学院 计算机科学与技术系 2015 年 03 月 上海理工大学成人高等学历教育毕业设计（论文） 1 目目 录录 一. 毕业实习及毕业论文(设计)的主要目的.1 二. 指导教师选聘及对指导教师的要求 .1 三. 毕业实习分组及实施计划 .3 四. 毕业论文(设计)的选题.3 五毕业实习及毕业论文(设计)的进度控制4 六、毕业论文的结构与格式 7 七、毕业实习以及毕业论文(设计)成绩评定10 八、毕业设计的归档工作 10 九、毕业实习及毕业论文(设计)领导小组12 附件 1：任务书的填写格式 .14 附件 2：开题报告的填写格式 .18 附件 3：文献综述格式 .22 附件 4：实习报告封面格式 .27 附件 5：实习鉴定表格式 .28 附件 6：实习成绩评定表格式 .29 附件 7：毕业论文格式的基本要求 .30 附件 8：毕业设计袋封面填写格式 .39 附件 9：毕业论文验收表 .40 附件 10：毕业设计(论文)评论标准.41 附件 11：毕业设计资料电子文档目录结构 .46 上海理工大学成人高等学历教育毕业设计（论文） 1 根据学院有关学生实习的规定和本专业教学计划的安排，对计算机科学与技术专 业学生毕业实习及毕业论文(设计)作如下具体安排： 6 6一一. . 毕业实习及毕业论文毕业实习及毕业论文( (设计设计) )的主要目的的主要目的 1、 毕业实习的主要目的： (1) 通过毕业实习，使学生从理论走向实践，并运用所学的理论知识解决一些实 际软硬件应用问题，达到实践锻炼的目的。 (2) 总结升华理论知识的目的，使学生毕业后能迅速适应实际工作岗位。 (3) 为毕业论文(设计)获取素材。 2、 毕业论文(设计)的主要目的： (1) 全面检验学生四年所学得基本理论和基本技能状况，巩固学生所学知识，并 提高学生运用所学知识的能力。 (2) 通过毕业论文(设计)的撰写，弥补知识结构中的薄弱环节，优化毕业生知识结 构，提高毕业生的适应能力。 (3) 培养学生运用所学理论知识和技术，发现、分析和解决问题的能力，使学生 掌握科学研究的方法和原则，培养和提高学生对理论和时间问题研究的能力。 (4) 通过论文撰写，培养学生创造性思维能力，提高学生创新能力。 7 7二二. . 指导教师选聘及对指导教师的要求指导教师选聘及对指导教师的要求 1、 指导教师选聘 (1) 指导教师应具有讲师