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