本科畢業(yè)論文基于mapgis的汾河上游信息系統(tǒng)的設(shè)計與實現(xiàn)-文庫吧在線文庫
【正文】 ayer 封裝了點、線、區(qū)、網(wǎng)文件的數(shù)據(jù)管理功能；地圖對象 Map 封裝了對MAPGIS 基本圖形的編輯 /輸出操作和對多個圖層的管理功能；圖例對象 Legend 封裝了點、線、區(qū)圖例元素的管理和操作功能，并提供了管理圖例文件存儲和圖例元素的功能； MSI 對象封裝了對圖像工作區(qū)的操作和顯示，并提供了矢量數(shù)據(jù)和柵格數(shù)據(jù)的相互轉(zhuǎn)換功能； DBS 對象封裝了操作和顯示圖庫工作區(qū)的方法。 . amp。 SDK 13 指導(dǎo)教師評語： 論文論點突出，論據(jù)詳實，論證嚴(yán)密，實驗操作規(guī)范，與實際結(jié)合緊密，在設(shè)計汾河上游生態(tài)安全模塊過程中表現(xiàn)出了一個優(yōu)秀學(xué)生的基本素質(zhì)和獨立操作能力。只要做好各種屬性數(shù)據(jù)的錄入建庫 ,不斷修改、更新原有的數(shù)據(jù) ,就會使本系統(tǒng)發(fā)展成為現(xiàn)勢性強、查找方便、輸出形式多樣化的新型系統(tǒng)，從而實現(xiàn)該系統(tǒng)的動態(tài)管理，有效提高工作效率，以便為項目的工作 提供更快捷方便的服務(wù)。 Public Function loadfile(ByVal aiType As Enum_Area_Type) Dim pntai As PntArea Dim linai As LinArea Dim regai As RegArea Dim myform As New frmDocument loadfile = 0 Select Case aiType 8 Case gisPNT: Set pntai = New PntArea If Then loadfile = 1 = gisPNT Set = pntai = pntai , , , End If Case gisLIN: Set linai = New LinArea If Then loadfile = 1 = gisLIN Set = linai = linai , , , End If Case gisREG Set regai = New RegArea If Then loadfile = 1 = gisREG Set = regai = regai , , , End If Case Else End Select If loadfile Then = False Else Set myform = Nothing End If Set pntai = Nothing Set linai = Nothing Set regai = Nothing End Function 9 SQL 過程 Private Sub sql_Click() Dim objQuery As New Dim regnum As Long Dim objIDList As New IDList = linai Set objIDList = (gisREG_ENTITY) If Not objIDList Is Nothing Then For regnum = 0 To 1 linai, objIDList(regnum), gisREG_ENTITY objIDList(regnum) objIDList(regnum) Next regnum End If Set objIDList = Nothing End Sub 三維模塊 Dim iTinLayer As New Dim iTinArea As Dim iLin As New LinArea Dim iPnt As New PntArea Dim demInfo As New DemInfoStru Public DspMyDraw As Integer Dim res As Boolean Private Sub about_Click() MsgBox 版本 amp。(2)將使用到的 MAPGIS 組件引用到應(yīng)用程序中 。 多窗口據(jù)處理模塊界面 圖形編輯功能 5 屬性數(shù)據(jù)顯示 、模型分析 該模型是本系統(tǒng)的主要功能所在，也是對汾河 上游項目提供技術(shù)支持的核心，主要包括緩沖區(qū)分析，坡度坡向
公司管理相關(guān)推薦
鄂ICP備17016276號-1