【正文】 系統的需求分析 目前，我們熟悉一個地方的地形情況通常是借助于一張地圖，通常的地圖包含的信息十分的有限，而且具體到某一個建筑物，你不能了解到它的進一步的詳細的情況。 因此，本系統在設計時，需考慮： 1． 同用戶的需求以及學校建筑的實際功能用途來進行分類，以便于用戶的快速查找所需地點。 5． 要實現系統幫助，詳細 介紹本系統的使用方法。進入一個學校，我們希望了解的有學校的行政辦公的場所，包括學校的行政辦公場所，如校長辦公室、教務處、校黨委辦公室、財務處等，以及各個學院的辦公場所，如信息學院在主樓八樓，經貿學院在 C 區(qū)三樓等，因此我們建立一張行政辦公分布圖；關心學校教學設施的用戶可以在教室分布圖上找到學校教室分布情況，在運動設施分布圖上可以了解到學校所有的運動設施的分布情況。根據以上的描述，我們 將整個學校的地圖分為如圖 2 的分類分層圖： Form1 Form3 Form4 Form2 Form5 Form6 第 17 頁 共 31 頁 浙江工業(yè)大學 圖 2： 系統分類分層圖 按照此分類分層圖，打開從 AUTOCAD導入的分層圖，我們將以“地形 .TAB”為基礎，將地圖轉化為分類圖。任何點、 線、面實體都可以用直角坐標點 x， y 來表示。用戶可以通過圖形分層技術，根據自己的需求戶一定的標準對各種空間實體進行分層組合，即將一張地圖分成不同圖層。 在執(zhí)行 Export 命令時，將彈出 Export Data 對話窗口，如圖 5： 圖 5： Export Data 對話框 用戶可在 Export Data 對話窗口中輸入文件名和文件類型， AutoCAD 可導出的文件格式共有如下十種： 1． 3DS 格式 3D Studio 文件格式，可使用 3DSOUT 命令導出此種格式。 5． DXF 格式 AutoCAD 圖形交換文件格式，可使用 DXFOUT 命令導出此種格式。 9． STL 格式 實體對象立體化文件格式，可使用 STLOUT 命令導出此格式。 用 MapInfo 處理地圖 用 MapInfo 處理地圖 MapInfo 的主窗口如圖 7 所示，其工具條主要包括常用工具 條、主工具條、繪圖工具條和工具工具條。 選擇“表〉維護〉表結構”如圖 9，可以添加、刪除字段。 用相同的方法，我們處理其他分層圖。這些操縱包括圖形放大、縮小、漫游、信息標注、空間查詢、圖層的添加和控制等。 控制 反饋消息 回調消息 控制與數據傳輸 DDE回調 ActiveX 控制 MapInfo 處理圖層 2 MapInfo 處理圖層 1 MapInfo 數據庫 圖 12： Delphi 與 MapInfo 連接圖 技術難點是從 Delphi 控制 MapInfo Professional 運行，并取得其服務，操縱嵌入在 Delphi程序界面上的地圖資料：主要指在 Delphi 程序中通過特定 ActiveX 控制接口，執(zhí)行相應接口方法函數，向 MapInfo Professional 發(fā)出控制命令，取得其服務，達到操縱嵌入在 Delphi 程序界面上的 MapInfo 地圖資料的目的。 在 Delphi 的程序中集成 Mapinfo 的地圖窗口是將 Mapinfo 的地圖窗口調進 Delphi 開發(fā)的應用程序界面中去，擴充程序的功能。但是到了今天， OLE 已演變?yōu)橐环N協議或規(guī)范，成為軟構件集成技術的基礎。通過使用 OLE 自動化，能夠完成以下的任務： 1) 創(chuàng)建 OLE 自動化服務器 2) 創(chuàng)建和操縱 OLE 自動 化對象 3) 創(chuàng)建 OLE 自動化控制器 OLE 自動化服務器對象是編程的，其可編程能力主要是通過方法和屬性這兩個類的概念及兩種類型的 OLE 自動化對象成員來實現。 使用 OLE 帶來的好處是，不同應用程序展現的對象在同一編程 環(huán)境中都是可見的，展現的對象可以用任何一個支持 OLE 自動化的編程工具或宏語言來訪問，因此系統集成者可以選擇最合適的任務開發(fā)工具。 MIMapGen 對象主要用于 MapInfo 網絡應用程序 MISearchInfo 對象代表查找的結果。 OLE 自動化允許在不同應用程序之間互相訪問，可以從一種應用程序訪問另一種應用程序或 DDL。一個程序既可以是服務器，又可以是客戶機。這個單元包含了如何操作 OLE 自動化對象的主要代碼。在單元文件的變量聲明部分將 Mapinfo 置為 variant 類型；將 hd 置為 string 類型。39。set application window 39。+hd+39。open table 行政． tab39。)。 這行代碼指定了一個變量 Mapinfo，它代表了作為 OLE 自動化服務器程序。set application window 39。+hd+39。 Style 2 帶圖標的彈出窗口（標題欄寬度比較寬）。)，打開一張地圖“行政． tab”。 第五步：當你通過 OLE 自動起動了 Mapinfo 之后，就可以執(zhí)行 Mapbasic 的命令來完成控制Mapinfo。如放大、縮小、漫游、信息標注相應的代碼為 (1705) (1706) (1702) (1708) 第六步：雙擊 close 按鈕編寫程序的代碼，終止 Mapinfo： procedure Button2Click（ Sender： Tobject）； begin Mapinfo： =nul； End； 第 28 頁 共 31 頁 詳細設計 界面設計 啟動系統在 splash 畫面之后，進入學?？傮w介紹界面，如圖 14： 圖 14：學?？傮w介紹界面 第五章 結束語 本校園地理信息系統實現了一個 ***大學的地理導航系統。 第 29 頁 共 31 頁 三個多月的畢業(yè)設計，我從中受益非淺。 通過這次設計，我學到了一些新的技術。我深深體會到了團結協作精神的重要性。這次設計，使得我認真的研究了一些實用的技術，不僅豐富了我的各種技術 知識，還使我得到了一些工程經驗。在整個畢業(yè)設計期間，我們小組成員均以一個實際的工程要求來要求自己。系統采用了模塊化的面向對象的設計方法和技術，具有較好的可擴展性。利用這些命令用戶可以對地圖進行放大、縮小、漫游、選擇等。map from 行政 39。 （ 5） 最后，執(zhí)行 Mapbasic 的命令 (39。)。 （ 4） 然后調用一個 Mapinfo 窗口到 Delphi 應用程序時，要發(fā)出一個 Set Next Document 語句，跟在創(chuàng)建窗口語句的后面，例如一下程序為 Delphi 客戶程序創(chuàng)建了一個 Mapinfo的子窗口： (39。 （ 3） 在起動了 Mapinfo 以后，用 Mapbasic 命令來設置應用程序窗口，以便在客戶程序中能看到 Mapinfo 對話框和錯誤信息的提示。下面逐一予以解釋： （ 1） 在集成環(huán)境里，運行一個 Mapinfo 程序，調用 Delphi 的 CreateOleObject（）函數，指定其返回變量。 (39。)。 (39。 str(,hd)。 Var Form1： Tform1； Mapinfo： variant； Hd： string； 第四步：雙擊 open map 按鈕編寫程序的代碼如下： procedure (Sender:TObject)。當執(zhí)行函數 CreateOleObject（）時， Windows 檢測被調用程序是否運行，如果沒有，她將啟動被調用程序。 第一步：新建一個工程文件，在 Form1 上放置 Panel、 Button 等控件； Panel 用于顯示地圖。 OLE 自動化有兩種主要的對象類型： OLE 自 動化服務器程序（在本文中指 MapInfo）； OLE 自動化客戶幾程序（在本文中指 Delphi）； 被自動化調用的程序叫做自動化服務器（ AUTOMATION SERVER）。 MIRows 對象集中每一個對象代表表中的每一行， MIFields 對象集中每一個對象代表表中的每一個域。 [8] 對象 對象和對象集 圖 13： OLE 自動化對象模型 MBApplication MBGlobals Application MIMapGen MISearchInfo MIRows MIFields MISelection MIRows MIFields 第 26 頁 共 31 頁 其中 Application 對象代表 MapInfo 的一個實例?！皩傩浴眲t是不帶有形參的函數，并能存取或設置有關對象當前狀態(tài)的信息。 在 OLE 自動化這一技術領域中，由應用程序或 OLE 編程工具所展現的對象稱為 OLE 自動化對象，訪問操作并控制該對象的應用程序或 OLE 編程工具則稱為 OLE 自動化控制器，展現這些對象的應用程序則稱為 OLE 自動化服務器。具體做法是采用 OLE 自動化技術。 可以利用 Delphi對 ActiveX支持的函數啟動和控制 MapInfo Professional運行。 圖 12 為 Delphi 程序與 Mapinfo Professional 兩者在連結控制過程中的分工與地位，以及ActiveX 與 DDE 所扮演的角色。 第 22 頁 共 31 頁 圖 8：未處理前的地圖