本科畢業(yè)論文基于mapgis的汾河上游信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-閱讀頁(yè)
2025-06-28 14:37本頁(yè)面
【正文】 b Private Sub close_Click() Unload Form2 End Sub Private Sub content_Click() MsgBox 請(qǐng)向左海龍購(gòu)買正版軟件 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 未打開(kāi)線文件 Exit Sub Else Set mdc = MpDC iLin End If Case 2: Set mdc = MpDC mdc Case 3: If Then MsgBox 未打開(kāi)點(diǎn)文件 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 頁(yè)面重畫(huà)函數(shù) Private Sub Form_Resize() = 9500 = 15600 End Sub Private Sub open_Click() Set iTinArea = res = () If res = False Then MsgBox 打開(kāi)高程文件失敗 ! 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 打開(kāi) 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é)語(yǔ) 本系統(tǒng)已經(jīng)初步完成，經(jīng)過(guò)試運(yùn)行， 用戶反映該系統(tǒng)界面友好、使用方便，基本上能夠滿足汾河項(xiàng)目的要求。只要做好各種屬性數(shù)據(jù)的錄入建庫(kù) ,不斷修改、更新原有的數(shù)據(jù) ,就會(huì)使本系統(tǒng)發(fā)展成為現(xiàn)勢(shì)性強(qiáng)、查找方便、輸出形式多樣化的新型系統(tǒng)，從而實(shí)現(xiàn)該系統(tǒng)的動(dòng)態(tài)管理，有效提高工作效率，以便為項(xiàng)目的工作 提供更快捷方便的服務(wù)。 ponent GIS。 SDK 13 指導(dǎo)教師評(píng)語(yǔ)： 論文論點(diǎn)突出，論據(jù)詳實(shí)，論證嚴(yán)密，實(shí)驗(yàn)操作規(guī)范，與實(shí)際結(jié)合緊密，在設(shè)計(jì)汾河上游生態(tài)安全模塊過(guò)程中表現(xiàn)出了一個(gè)優(yōu)秀學(xué)生的基本素質(zhì)和獨(dú)立操作能力。 基于 MAPGIS 的汾河上游信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 14 系別 城市與旅游學(xué)院 專業(yè) 地理信息系統(tǒng) 姓名 左海龍 指導(dǎo)教師 李玉軒
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1