本科畢業(yè)論文基于mapgis的汾河上游信息系統(tǒng)的設(shè)計與實現(xiàn)(更新版)
【正文】 屬性數(shù)據(jù)與空間數(shù)據(jù)的聯(lián)動以及 SQL 查詢，可以進(jìn)行動態(tài)瀏覽。通過調(diào)用 MAPGIS 組件的基本功能 ,并結(jié)合其他專業(yè)模型和專業(yè)模型分析控件 ,可以快速地開發(fā) GIS應(yīng)用程序 ,這 就大大降低了 GIS應(yīng)用系統(tǒng)的開發(fā)難度與開發(fā)成本。 首先將需要的組件和控件在 WINDOWS 注冊表或 REGSUV 命令進(jìn)行注冊，這樣就可以像使用普通 VB 的 ACTIVE X 控件一樣使用 MAPGIS 控件了。 作者 左海龍 End Sub Private Sub close_Click() Unload Form2 End Sub Private Sub content_Click() MsgBox 請向左海龍購買正版軟件 End Sub Private Sub EditView1_MyDraw(ByVal MpDC As Object) Dim mdc As MapGisDC Select Case DspMyDraw 10 Case 0: Exit Sub Case 1: If Then MsgBox 未打開線文件 Exit Sub Else Set mdc = MpDC iLin End If Case 2: Set mdc = MpDC mdc Case 3: If Then MsgBox 未打開點文件 Exit Sub Else Set mdc = MpDC iPnt End If Case Else: MsgBox 非法的類型！ Exit Sub End Select Set mdc = Nothing End Sub Private Sub Form_Load() Form_Resize End Sub 頁面重畫函數(shù) Private Sub Form_Resize() = 9500 = 15600 End Sub Private Sub open_Click() Set iTinArea = res = () If res = False Then MsgBox 打開高程文件失敗 ! 11 Exit Sub End If Dim rect As D_Rect Set rect = , , , DspMyDraw = 2 End Sub 漫游功能 Private Sub pan_Click() End Sub 工具欄各按鈕功能 Private Sub Toolbar1_ButtonClick(ByVal Button As ) On Error Resume Next Select Case Case 放大 zoomin_Click Case 縮小 zoomout_Click Case 幫助 about_Click Case 漫游 pan_Click Case 打開 open_Click End Select End Sub 復(fù)位功能 Private Sub update_Click() End Sub 放大功能 Private Sub zoomin_Click() End Sub Private Sub zoomout_Click() 12 End Sub 四、結(jié)語 本系統(tǒng)已經(jīng)初步完成，經(jīng)過試運(yùn)行， 用戶反映該系統(tǒng)界面友好、使用方便，基本上能夠滿足汾河項目的要求。 基于 MAPGIS 的汾河上游信息系統(tǒng)的設(shè)計與實現(xiàn) 14 系別 城市與旅游學(xué)院 專業(yè) 地理信息系統(tǒng) 姓名 左海龍 指導(dǎo)教師 李玉軒
公司管理相關(guān)推薦
鄂ICP備17016276號-1