毕业论文：基于MAPX的房屋测绘管理系统设计.doc

本科生毕业论文（设计）题 目：基于MAPX的房屋测绘 管理系统设计 专业代码： 070703 作者姓名： 欧阳任彬 学 号： 2007202065 单 位： 环境与规划学院 指导教师： 肖 燕 2011年5月31日原创性声明本人郑重声明：所提交的学位论文是本人在导师指导下，独立进行研究取得的成果。除文中已经注明引用的内容外，论文中不含其他人已经发表或撰写过的研究成果，也不包含为获得聊城大学或其他教育机构的学位证书而使用过的材料。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人承担本声明的相应责任。学位论文作者签名： 日期 .指导教师签名： 日期 .聊城大学本科毕业论文（设计）目录1 前言11.1 系统设计背景11.2 系统开发相关技术11.2.1 Visual Basic 6.0中文版介绍11.2.2 MapX 5.0中文版简介12 系统总功能22.1绘制房屋平面图22.2平面图属性设置22.3平面面积的计算22.4系统辅助功能22.5系统维护23 系统程序实现33.1主界面设计33.2 图层控制功能设计43.3 平面图属性设置功能设计43.4 平面图面积计算功能设计73.5 系统辅助功能设计153.6 系统维护功能设计164 结语16参考文献17致 谢18摘 要房屋测绘管理是对房屋属性描述的有效系统，针对房屋管理中需要解决的如何实现测绘平面图、属性设置、房屋面积计算、辅助功能和系统维护等管理功能，文章提出建立基于MAPX的房屋测绘管理系统，以数据库为基础，在计算机软硬件支持下，运用系统工程和信息科学的理论和方法，综合地、动态地获取、存储、管理、分析和应用地理信息的多媒体信息系统。该系统的建立，将以其快速高效收集、存储、整理、输出、查询、检索等功能来提高房屋测绘管理效率，更以其优越的空间分析功能使房屋测绘管理更为科学。关键词：MAPX；房屋测绘；管理系统；设计AbstractHouses of surveying and mapping management is the effective system house property description .Aimed at building management of how to realize the need to be solved in surveying and mapping plan,attribute set ,building area calculation,the auxiliary function and system maintenance management function.This paper based on the house MAPX surveying and mapping management system, based on database, in support of computer software and hardware , uses system engineering and information science, the theory and methods of comprehensive dynamicly 、acquire、store 、manage 、analysis and apply of multimedia information system of geographic information.With its efficient collection, storage, sorting, output, inquiry, retrieval functions to improve the efficiency of surveying and mapping administration more houses, with its superior spatial analysis function of surveying and mapping administration of the building is more scientific, this system sets up successly.Key words: MAPX；housing surveying and mapping；management system；design基于MAPX的房屋测绘管理系统设计1 前言1.1 系统设计背景 随着房价日益上涨，房屋测绘管理系统显得尤为重要。房屋测绘管理系统包括测绘平面图、属性设置、房屋面积计算、辅助功能和系统维护五大管理功能，实现了房屋测绘的全面管理，是各种房地产公司进行电脑信息化管理的理想选择。最重要的就是利用Mapx控件进行房屋图层的管理和控制.并将数据库同图层紧密的结合在一起。该系统可以广泛的应用于各种测绘企业以及房地产公司。以空间信息处理为核心的地理信息系统(GIS) 技术, 因具有强大的空间信息管理、空间信息分析、空间信息查询及三维影像显示等功能 1。而成为房屋测绘信息化的首选平台。基于VB+MapX的房屋测绘管理系统是以数据库为基础，在计算机软硬件支持下，运用系统工程和信息科学的理论和方法，综合地、动态地获取、存储、管理、分析和应用地理信息的多媒体信息系统。该系统的建立，将以其快速高效收集、存储、整理、输出、查询、检索等功能来提高房屋测绘管理效率，更以其优越的空间分析功能使房屋测绘管理更为科学 2。1.2 系统开发相关技术1.2.1 Visual Basic 6.0中文版介绍Visual Basic是在原有Basic语言基础上的进一步发展，它包含了数百条语句、函数及关键词，其中很多与Windows GUI有直接的关系。可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序3。1.2.2 MapX 5.0中文版简介MapX是一种集MapInfo强大功能于一身的性价比非常高的ActiveX控件，MapX支持用户将地图功能添加到任何应用中，提供了一种高度可视化的方法，来显示和分析基于位置的数据，它和众多的可视化编程工具例如Visual Basic、Visual c+、PowerBuilder、Delphi等紧密结合，使得众多的用户利用它可以很快的开发出非常专业的地理信息系统应用软件4。2 系统总功能2.1绘制房屋平面图在这个功能模块中，包括基本信息设置、平面图文件操作、绘制房屋平面图、设置平面图属性和编辑平面图5个方面。通过一系列正确的操作，可以方便地生成房屋平面图。2.2平面图属性设置在这个图形属性设置中，包括层数设置、类型设置、分摊和阳台阁楼归属4个方面。类型设置和分摊是房屋面积计算中关键的参数，是是否能够计算出房屋面积的关键。类型设置中的功能模块以准确的类型基础，提供了对各封闭平面的类型设定，类型包括户室、封闭阳台、阳台、阁楼、墙体、分摊面积和未知类型几种，按封闭面和不同种类分别给予设定。2.3平面面积的计算能否准确合理地计算所需的平面图的数据，是评价系统好坏的关键。为了达到一个比较好的计算效果，系统中综合运用了数据库的后台备份技术及其MapX空间强大的前台绘图机计算机技术，较好地实现了计算机平面图面积的功能。2.4系统辅助功能在这个模块中，包括转成区域、区域合并、生成墙体、三角形角度计算和计算器5个方面。该模块用来实现平面图统一集中的管理，为其他几个管理系统提供了基本信息，用以提高工作效率。2.5系统维护在这个模块中，包括系统日志、数据库整理、数据库备份、数据库还原4个方面。系统维护中的功能模块用来保障数据库和系统的安全。综上所述，系统的功能需求框图如图1所示。绘制房屋平面图平面图面积计算系统维护系统辅助功能平面图属性设置房屋测绘管理系统图1 系统总功能需求框图 Fig.1 systems total functional requirements diagram3 系统程序实现3.1主界面设计本程序采用流行的界面设计技术，符合商业化软件设计的要求。采用菜单、工具栏、状态条相结合的方法，使得用户能够在主界面上快速的进入所需要的程序模块，具体的程序运行界面如图2所示。图2 系统主界面 Fig.2 system interface3.2 图层控制功能设计 图层控制，最主要的就是能够新建图层或者打开现有的图层。打开图层以后，能够选取或者删除图层中的元素等。3.3 平面图属性设置功能设计 平面图属性设置主要包括层数设置、类型设置、分摊设置和阳台、阁楼归属设置4个功能模块。上图形绘制完成了，才对各个封闭面进行各种设置，以便以后的面积计算。在对封闭面进行层数设置时，点击选区域或框选后选中一个或几个封闭面，如图3所示。图3选定封闭面后窗体 Fig.3 after selecting areas form 在“属性”菜单中选中“层数设置”，在其中输入基层和结束层数。完成对刚才选定的封闭的层数的设定。 在对封闭面进行分摊设置时，应先画好平面图，点击选区域或框选后选中多个封闭面(一定要有一个封闭面的类型为户屋)，在“属性”菜单中选中“分摊设置”，选择是一次分摊还是多次分摊。则对刚才选定的封闭的分摊进行了设定，被分摊面的类型发生了变化。 对阳台、阁楼归属的设置和分摊设置基本相同，不再赘述。 下面就属性设置中重要的功能模块的设计和核心代码实现进行分析。 菜单“属性 类型设置”单击事件代码，用于进行图层类型设置，类型设置界面如图4所示。图4 类型设置窗体 Fig.4 type settings form类型设置代码如下：Private Sub mnuProperties_Click() Dim fs As Features Dim f As MapXLib.Feature Dim txtLyrF As New MapXLib.Feature Dim rs As ADODB.Recordset Dim szSQL As String Dim frm As frmSProperies Dim ct As Long Dim ret As Long Dim OldType As Long 老的类型 On Error GoTo ErrHandler Set fs = Map1.Layers.Item(REGION_LAYER).Selection - ct = GetCountFromFeatures(fs) If ct = 1 Then 先从数据库删除数据 DeleteFromTBFir REGION_LAYER, f.FeatureKey 将新类型写入tbFeature szSQL = UPDATE tbFeature & _ SET jchh= & CStr(frm.HuHao) & , & _ ftype= & CStr(frm.Htype) & _ WHERE tbName= & REGION_LAYER & AND ftkey= & f.FeatureKey & MAP_CONN.Execute szSQL 改变Feature的颜色 f.Style.RegionPattern = miPatternSolid Select Case frm.Htype Case 0 未知类型 f.Style.RegionColor = lblWZ.BackColor Case 1 户室 f.Style.RegionColor = lblHS.BackColor Case 2 阳台 f.Style.RegionColor = lblYT.BackColor Case 3 封闭阳台 f.Style.RegionColor = lblFBYT.BackColor Case 4 阁楼 f.Style.RegionColor = lblGL.BackColor Case 5 未分摊面 f.Style.RegionColor = lblFT.BackColor Case 6 墙体 f.Style.RegionColor = lblQT.BackColor Case Else End Select f.Update End If - If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If Next close the rs If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If Set rs = Nothing End If Exit SubErrHandler: Screen.MousePointer = 0 Set rs = Nothing Set frm = Nothing ErrMessageBox mnuProperties_Click(), Me.CaptionEnd Sub3.4 平面图面积计算功能设计既然是房屋测量系统，那么面积计算的功能是不可少的，下面介绍面积测量模块中的重要代码。 (l)菜单“属性 面积计算”单击事件代码，用于楼层面积计算，面积计算的结果如图5所示。菜单单击事件代码如下:Private Sub mnuCalcArea_Click() 面积计算 Call CalculateArea 显示计算结果 Call mnuAreaDisp_ClickEnd Sub其中函数CalculateArea用于计算面积，rnnuAreaDispes-Click用于显示计算窗体。图5 面积计算窗体 Fig.5 calculate area form(2)计算面积的核心函数CalculateArea面积计算Private Sub CalculateArea() Dim frm As Form Dim fs As MapXLib.Features Dim f As MapXLib.Feature Dim szSQL As String Dim szCydy As String 参与分摊的单元 Dim rs As ADODB.Recordset Dim rs1 As ADODB.Recordset Dim MaxCS As Long 最大层数 Dim MinCS As Long 最小层数 Dim Zjzmj As Double 总建筑面积 Dim ZGymj As Double 部共用面积 Dim Ztljzmj As Double 总套内建筑面积 Dim Zglmj As Double 总阁楼面积 Dim Zftxs As Double 总分摊系数 Screen.MousePointer = 11 Set rs = New ADODB.Recordset Set frm = New frmBusy frm.Message = 正在进行面积计算，请稍候. Load frm frm.Show vbModeless, Me DoEvents On Error GoTo ErrHandler 10:在进行面积计算之前，做一些初始化的工作 MAP_CONN.Execute DELETE FROM tbHS 20:先计算几何面积并存入tbFeature中 Set fs = Map1.Layers.Item(REGION_LAYER).AllFeatures For Each f In fs If f.Type = miFeatureTypeRegion Then szSQL = UPDATE tbFeature SET Farea= & CStr(f.Area) & _ WHERE tbName= & REGION_LAYER & & _ AND FtKey= & CStr(f.FeatureKey) & MAP_CONN.Execute szSQL End If Next 25:将户室数据转入tbHS中 MAP_CONN.Execute INSERT INTO tbHS SELECT * FROM tbFeature & _ WHERE tbFeature.tbName= & REGION_LAYER & & _ AND tbFeature.FType=1 30:计算户室面积（实用面积），包括阳台和封闭阳台 30.10#：将户室的几何面积存入tbArea中 MAP_CONN.Execute DELETE FROM tbArea MAP_CONN.Execute INSERT INTO tbArea(tbName,FtKey,CH,Harea) & _ SELECT tbHS.tbName,tbHS.FtKey, & _ (CSTR(jc) & - & Cstr(JC+CS-1) as CH, & _ tbHS.Farea FROM tbHS 30.20#：计算阳台的几何面积并加到tbArea.Harea中去 rs.Open SELECT * FROM qryYT, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Do While Not rs.EOF MAP_CONN.Execute UPDATE tbArea & _ Set tbArea.Harea = tbArea.Harea + & CStr(rs!YTArea) & , & _ tbArea.YT=tbArea.YT+ & CStr(rs!YTArea) & _ Where tbArea.tbName = & CStr(rs!tbName) & And & _ tbArea.FtKey = & CStr(rs!FTKey) & rs.MoveNext Loop If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 30.30#：计算封闭阳台的几何面积并加到tbArea.Harea中去 rs.Open SELECT * FROM qryFBYT, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Do While Not rs.EOF MAP_CONN.Execute UPDATE tbArea & _ Set tbArea.Harea = tbArea.Harea + & CStr(rs!YTArea) & , & _ tbArea.YT=tbArea.YT+ & CStr(rs!YTArea) & _ Where tbArea.tbName = & CStr( & rs!tbName) & And & _ tbArea.FtKey = & CStr( & rs!FTKey) & rs.MoveNext Loop If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 40：计算一次分摊系数及面积 rs.Open SELECT tbName,FtKey,Sum(YCFTMJ) as FTMJ FROM qryHSYCFT GROUP BY tbName,FtKey, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Do While Not rs.EOF MAP_CONN.Execute UPDATE tbArea & _ SET tbArea.ycftxs= & CStr(rs!YCFTXS) & , & _ TbArea.YCFTMJ = & CStr(rs!YCFTMJ) & _ WHERE tbArea.tbName= & CStr(rs!tbName) & AND & _ tbArea.FTKey = & CStr(rs!FtKey) & MAP_CONN.Execute UPDATE tbArea & _ SET tbArea.YCFTMJ = & CStr(rs!FTMJ) & _ WHERE tbArea.tbName= & CStr(rs!tbName) & AND & _ tbArea.FTKey = & CStr(rs!FTKey) & rs.MoveNext Loop If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 50：计算多次分摊系数及面积 rs.Open SELECT tbName,FtKey,Sum(DCFTMJ) as FTMJ FROM qryHSDCFT GROUP BY tbName,FtKey, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Do While Not rs.EOF MAP_CONN.Execute UPDATE tbArea & _ SET tbArea.dcftmj = & CStr(rs!FTMJ) & _ WHERE tbArea.tbName= & CStr(rs!tbName) & AND & _ tbArea.FTKey = & CStr(rs!FTKey) & rs.MoveNext Loop If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 55:计算墙体分摊系数及面积(已经纳入一次分摊计算中去了) 60：阁楼面积 rs.Open SELECT * FROM qryGL, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Do While Not rs.EOF MAP_CONN.Execute UPDATE tbArea & _ SET tbArea.GLmj = & CStr(rs!GLArea) & & _ WHERE tbArea.tbName= & CStr(rs!tbName) & AND & _ tbArea.ftKey = & CStr(rs!FTKey) & rs.MoveNext Loop If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 70：计算建筑面积 MAP_CONN.Execute UPDATE tbArea & _ SET jzmj = Harea + ycftmj + dcftmj + glmj 75：处理报表数据 75.10#：清空分摊面积表tbFTarea MAP_CONN.Execute DELETE FROM tbFTarea 75.20#：插入一次分摊面面积 szSQL = INSERT INTO tbFTarea ( FtKey, CH, Jhmj, zmj, HSzmj, ftlx ) & _ SELECT tbFeature.FtKey AS Ftkey, & _ (CStr(tbFeature.Jc) & - & CStr(tbFeature.JC + tbFeature.CS - 1) AS CH, & _ tbFeature.Farea AS Jhmj, (tbFeature.Farea * tbFeature.CS) AS zmj, & _ qryYCFTZMJ.YCZMJ AS HSzmj, 一次分摊 AS Ftlx & _ From tbFeature, qryYCFTZMJ & _ WHERE qryYCFTZMJ.tbName=tbFeature.tbName AND & _ qryYCFTZMJ.FtKey=tbFeature.FtKey MAP_CONN.Execute szSQL 75.30#：插入多次分摊面积 szSQL = INSERT INTO tbFTarea(FtKey,CH,Jhmj,zmj,HSzmj,Ftlx) & _ SELECT tbFeature.FtKey AS Ftkey, & _ (CStr(tbFeature.Jc) & - & CStr(tbFeature.JC + tbFeature.CS - 1) AS CH, & _ tbFeature.Farea AS Jhmj, (tbFeature.Farea * tbFeature.CS) AS zmj, & _ qryDCFTZMJ.DCZMJ, 多次分摊 AS Ftlx & _ From qryDCFTZMJ, tbFeature & _ WHERE qryDCFTZMJ.tbName=tbFeature.tbName AND & _ qryDCFTZMJ.FtKey=tbFeature.FtKey MAP_CONN.Execute szSQL 75.40#：更新分摊系数、参与分摊的单元 分摊系数 MAP_CONN.Execute UPDATE tbFTarea SET Ftxs=zmj/HSzmj 参与分摊的单元 rs.Open SELECT FtKey,Cydy FROM tbFTarea, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Set rs1 = New ADODB.Recordset Do While Not rs.EOF szSQL = SELECT (A & H_FtKey) as HFK FROM tbFir WHERE F_TbName= szSQL = szSQL & REGION_LAYER & AND F_FtKey= & & rs(FtKey) & rs1.Open szSQL, MAP_CONN, adOpenKeyset, adLockPessimistic, adCmdText Set rs1 = MAP_CONN.Execute(szSQL) szCydy = Do While Not rs1.EOF szCydy = szCydy & & rs1(HFK) & , rs1.MoveNext Loop If Right(szCydy, 1) = , Then szCydy = Left(szCydy, Len(szCydy) - 1) End If update the recordset rs.Update Array(Cydy), Array(szCydy) - If Not rs1 Is Nothing Then If rs1.State = adStateOpen Then rs1.Close End If End If - rs.MoveNext Loop release the pointer If Not rs1 Is Nothing Then If rs1.State = adStateOpen Then rs1.Close End If Set rs1 = Nothing End If 77:统计 77.10#:计算层数 Set rs = MAP_CONN.Execute(SELECT Max(jc+cs-1) as MaxC FROM tbFeature WHERE tbName= & REGION_LAYER & ) If Not rs.EOF Then MaxCS = rs(MaxC) End If If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If Set rs = MAP_CONN.Execute(SELECT Min(jc) as MinC FROM tbFeature WHERE tbName= & REGION_LAYER & ) If Not rs.EOF Then MinCS = rs(MinC) End If If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If If MinCS 0 Then MaxCS = MaxCS - MinCS End If 77.20#： Dim Zjzmj As Double 总建筑面积 Dim ZGymj As Double 总共用面积 Dim Ztljzmj As Double 总套内建筑面积 Dim Zglmj As Double 总阁楼面积 Dim Zftxs As Double 总分摊系数 总共用面积 Set rs = MAP_CONN.Execute(SELECT Sum(Zmj) as GYMJ FROM rptFT) If Not rs.EOF Then If Not IsNull(rs(GYMJ) Then ZGymj = rs(GYMJ) End If End If If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 总套内建筑面积 szSQL = SELECT Sum(tbArea.Harea*tbFeature.cs) as TLMJ FROM tbArea,tbFeature & _ WHERE tbArea.Tbname=tbFeature.tbName AND tbArea.FtKey=tbFeature.FtKey Set rs = MAP_CONN.Execute(szSQL) If Not rs.EOF Then If Not IsNull(rs(TLMJ) Then Ztljzmj = rs(TLMJ) End If End If If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 总建筑面积 Zjzmj = ZGymj + Ztljzmj 总阁楼面积 szSQL = SELECT Sum(cs*farea) as GLMJ FROM tbFeature WHERE tbName= & REGION_LAYER & AND Ftype=4 Set rs = MAP_CONN.Execute(szSQL) If Not rs.EOF Then If Not IsNull(rs(GLMJ) Then Zglmj = 0 + rs(GLMJ) End If End If If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If End If 总分摊系数 If Ztljzmj 0 Then Zftxs = ZGymj / Ztljzmj End If 写入数据库 szSQL = UPDATE tbTable SET Cs= & CStr(MaxCS) & , & _ Zjzmj= & CStr(Zjzmj) & , & _ Zgymj= & CStr(ZGymj) & , & _ Ztljzmj= & CStr(Ztljzmj) & , & _ Zglmj= & CStr(Zglmj) & , & _ Zftxs= & CStr(Zftxs) & _ WHERE LyrName= & REGION_LAYER & MAP_CONN.Execute szSQL 80：计算结束，显示计算结果 Screen.MousePointer = 0 If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If Set rs = Nothing End If Unload frm - Exit SubErrHandler: Screen.MousePointer = 0 If Not frm Is Nothing Then Unload frm End If - If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close End If Set rs = Nothing End If - If Not rs1 Is Nothing Then If rs1.State = adStateOpen Then rs1.Close End If Set rs1 = Nothing End If ErrMessageBox CalculateArea():面积计算出错!, Me.CaptionEnd Sub以上计算函数，主要是从数据库中读取各种数据，然后进行各种统计计算。 在计算面积的同时。还可以打印。在图5中，单击“打印预览”按钮，可以进行预览并打印，如图6所示。图6 打印预览窗体 Fig.6 print preview form3.5 系统辅助功能设计“系统辅助”模块主要完成图形转换、合并等操作，辅助平面图绘制人员进行图形的绘制。系统辅助功能包括区域转换、区域合并、三角形角度计算和生成墙体。三角形角度计算的窗体frmTriangle如图7所示，可以计算三角形的角度。用户只需要在3个文本框中输入三角形三条边的长度，就可以计算出三条边之间的角度，可以在窗体中画出三角形。图7 三角形角度计算窗体 Fig.7 triangle angle calculation form可以通过选择一定的区域，然后将其变成墙体。生成墙体可以实现这个功能。例如墙体厚度设定为13米，墙体设定前后，图层的外观分别如图8和图9所示。 图8 设定墙体前窗体 图9 设定墙体后窗体Fig.8 before setting wall form Fig.9 after setting wall form3.6 系统维护功能设计在这个模块中，包括系统日志、数据库整理、数据库备份、数据库还原4个方面。系统维护中的功能模块用来保障数据库和系统安全性。系统日志的窗体如图10所示。图10 系统日志窗体 Fig.10 system log form4 结语本文提出的房屋测绘管理系统是基于MAPX