地理信息系統(tǒng)設(shè)計(jì)

地理信息系統(tǒng)設(shè)計(jì)院(系):創(chuàng)新實(shí)驗(yàn)學(xué)院級(jí)別：院系級(jí)指導(dǎo)老師：金博成員：何蔚華、景立超、張強(qiáng)工程介紹背景地理信息系統(tǒng)處理、管理的對(duì)象是多種地理空間實(shí)體數(shù)據(jù)及其關(guān)系，包括空間定位數(shù)據(jù)、圖形數(shù)據(jù)、遙感數(shù)據(jù)、屬性數(shù)據(jù)等，用于分析和處理在一定地理區(qū)域內(nèi)分布的各種現(xiàn)象和過程，解決復(fù)雜的規(guī)劃、決策和管理問題。CGIS是世界的第一個(gè)“系統(tǒng)”，并且在“繪圖”應(yīng)用上進(jìn)行了改良，它具有覆蓋，測(cè)量，資料數(shù)字化/掃描的功能，支持一個(gè)跨越大陸的國(guó)家坐標(biāo)系統(tǒng)，將線編碼為具有真實(shí)的嵌入拓?fù)浣Y(jié)構(gòu)的“弧”，并且將屬性和位置的信息分別存儲(chǔ)在單獨(dú)的文件中。它的開發(fā)者，地理學(xué)家RogerTomlinson，被稱為“GIS之父”。我國(guó)地理信息系統(tǒng)的起步稍晚，但開展勢(shì)頭相當(dāng)迅猛，大致可分為以下三個(gè)階段:起步階段、試驗(yàn)階段和GIS全面開展階段。80年代末到90年代以來，我國(guó)的GIS隨著社會(huì)主義市場(chǎng)經(jīng)濟(jì)的開展走上了全面開展階段。國(guó)家測(cè)繪局正在全國(guó)范圍內(nèi)建立數(shù)字化測(cè)繪信息產(chǎn)業(yè)。1：100萬地圖數(shù)據(jù)庫已公開出售，1：25萬地圖數(shù)據(jù)庫也已完成建庫，并開始了全國(guó)1：10萬地圖數(shù)據(jù)庫生產(chǎn)與建庫工作，各省測(cè)繪局正在抓緊建立省級(jí)1：1萬根底地理信息系統(tǒng)。數(shù)字?jǐn)z影測(cè)量和遙感應(yīng)用從典型試驗(yàn)逐步走向運(yùn)行系統(tǒng)，這樣就可保證向GIS源源不斷地提供地形和專題信息。進(jìn)入90年代以來，沿海、沿江經(jīng)濟(jì)開發(fā)區(qū)的開展，土地的有償使用和外資的引進(jìn)，急需GIS為之效勞，有力地促進(jìn)了城市地理信息系統(tǒng)的開展。用于城市規(guī)劃、土地管理、交通、電力及各種根底設(shè)施管理的城市信息系統(tǒng)在我國(guó)許多城市相繼建立。在根底研究和軟件開發(fā)方面，科技部在“九五”科技攻關(guān)方案中，將“遙感、地理信息系統(tǒng)和全球定位系統(tǒng)的綜合應(yīng)用”列入國(guó)家“九五”重中之重科技攻關(guān)工程，在該工程中投入相當(dāng)大的研究經(jīng)費(fèi)支持武漢測(cè)繪科技大學(xué)、北京大學(xué)、中國(guó)地質(zhì)大學(xué)、中國(guó)林業(yè)科學(xué)研究院和中國(guó)科學(xué)院地理研究所等單位開發(fā)我國(guó)自主版權(quán)的地理信息系統(tǒng)根底軟件。經(jīng)過幾年的努力，中國(guó)GIS根底軟件與國(guó)外的差距迅速縮小，涌現(xiàn)出假設(shè)干能參與市場(chǎng)競(jìng)爭(zhēng)的地理信息系統(tǒng)軟件，如GeoStar，MapGIS，OityStar，ViewGIS等。在遙感方面，在該工程的支持下，已建立全國(guó)基于IK4遙感影像土地分類結(jié)果的土地動(dòng)態(tài)監(jiān)測(cè)信息系統(tǒng)。國(guó)家這一重大工程的實(shí)施，有力地促進(jìn)了中國(guó)遙感和地理信息系統(tǒng)的開展。地理信息系統(tǒng)在最近開展得非?？?，這是因?yàn)槲覀兯幍沫h(huán)境都具有時(shí)空屬性，我們的生產(chǎn)生活自然就離不開地理信息了。就大連市而言，GIS也是廣泛應(yīng)用于資源管理、資源配置、城市規(guī)劃和管理、生態(tài)環(huán)境管理與模擬等自然領(lǐng)域。因此我們說做到大連市區(qū)域環(huán)境管理系統(tǒng)〔以下簡(jiǎn)稱系統(tǒng)〕，應(yīng)大連市環(huán)境管理的需求開發(fā)了相應(yīng)的功能，以滿足環(huán)境管理所需的地理屬性數(shù)據(jù)，從而為環(huán)境管理決策提供幫助和依據(jù)。系統(tǒng)概述系統(tǒng)是將地理圖片加載到軟件中，在相應(yīng)的圖片上添加所需的信息，從而提高人機(jī)交互的方便性。這里將客戶信息定位在對(duì)應(yīng)的區(qū)、街道，并在指定的點(diǎn)上顯示地圖與相應(yīng)的信息。系統(tǒng)的主要功能包括：1、實(shí)現(xiàn)地理區(qū)域信息的管理；2、實(shí)現(xiàn)地圖信息的錄入；3、實(shí)現(xiàn)地圖信息的查詢等功能。工程完成時(shí)，我們將完成一個(gè)較完善的地理信息管理系統(tǒng)。用戶通過對(duì)地圖的管理，可以更清楚地知道目標(biāo)所在地地理區(qū)域及詳細(xì)信息，從而可以更加方便地進(jìn)行地理環(huán)境的管理與分析或研究。根據(jù)系統(tǒng)開發(fā)流程和功能需求分析的結(jié)果,把大連市環(huán)境相關(guān)地理信息系統(tǒng)設(shè)置為7個(gè)子系統(tǒng),代碼實(shí)現(xiàn)的過程中,將對(duì)各子系統(tǒng)的功能進(jìn)行一一實(shí)現(xiàn),具體包括:(1)地圖控制子系統(tǒng):具有地圖索引、圖層控制等;(2)地圖顯示子系統(tǒng):具有地圖放大、地圖刷新、地圖縮小、地圖漫游、地圖顯示和地圖縮略圖等功能;(3)地圖輸出子系統(tǒng):專題圖的導(dǎo)出和打印功能〔待實(shí)現(xiàn)〕;(4)地理要素查詢子系統(tǒng):具有地理要素索引、地物信息顯示、點(diǎn)選擇等功能;(5)地理名稱查詢子系統(tǒng):具有關(guān)鍵詞等查詢功能;(6)綜合查詢子系統(tǒng)。工程記錄一、09年-10年上半學(xué)年進(jìn)展情況我們說做到工程開始執(zhí)行時(shí)間是零九年十月，上學(xué)期致力于熟悉Delphi7.0的使用，及ObjectPascal語言的學(xué)習(xí)。其中Delphi7.0的熟悉過程中，我們學(xué)會(huì)了如何定制工具欄、如何定制組件面板、如何定制代碼編輯器、保存自定義開發(fā)環(huán)境桌面、安裝ActiveX組件、安裝不同類型的第三方組件等。這些當(dāng)然是最根底的局部，大概花了一兩周的時(shí)間。關(guān)于Delphi7.0最關(guān)鍵的還是掌握其菜單項(xiàng)，各個(gè)組件都位于組件欄內(nèi)，熟悉了菜單項(xiàng)能在很大程度上提高工作效率。上學(xué)期的重點(diǎn)應(yīng)該是在ObjectPascal語言的學(xué)習(xí)上，包括對(duì)根底語言的學(xué)習(xí)、類，函數(shù)，重載的學(xué)習(xí)和參數(shù)與指針等的學(xué)習(xí)。關(guān)于控件的操作以以下代碼為例：procedureTForm1.RadioButton1Click(Sender:TObject);beginClassKind:=Tedit;end;procedureTForm1.RadioButton2Click(Sender:TObject);beginClassKind:=Tbutton;end;procedureTForm1.FormCreate(Sender:TObject);beginClassKind:=TButton;end;procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);VarNewCp:TControl;CPName:string;beginNewCp:=ClassKind.Create(Self);NewCp.Visible:=False;NewCp.Parent:=(Self);NewCp.Left:=X;NewCp.Top:=Y;Inc(CPNum);CPName:=ClassKind.ClassName+IntToStr(CPNum);Delete(CPName,1,1);NewCp.Name:=CPName;NewCp.Visible:=true;end;此程序重點(diǎn)在與實(shí)現(xiàn)了動(dòng)態(tài)生成組件，關(guān)鍵語句為NewCp:=ClassKind.Create(Self);在每次按下鼠標(biāo)都有一個(gè)相應(yīng)的組件生成。關(guān)于簡(jiǎn)單程序算法實(shí)現(xiàn)有如下代碼說明：procedureTForm1.Button1Click(Sender:TObject);varupper_limit,lower_limit,i,j,temp:integer;Card:array[0..51]ofInteger;str:String;beginrandomize;Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';fori:=0to51dobeginlower_limit:=0;temp:=1;whiletemp<>0dobegintemp:=0;forj:=0toi-1dobeginif(Card[j]>lower_limit)And(Card[j]<=upper_limit)thenbegintemp:=temp+1;end;end;lower_limit:=upper_limit;upper_limit:=upper_limit+temp;end;//檢查完畢Card[i]:=upper_limit;//完成一次發(fā)牌end;//對(duì)發(fā)牌結(jié)果進(jìn)行檢查j:=0;repeattemp:=0;fori:=0to50-jdobeginifCard[i]>Card[i+1]thenbegintemp:=Card[i];Card[i]:=Card[i+1];Card[i+1]:=temp;temp:=1;end;end;j:=j+1;until(j>50)or(temp=0);//檢查代碼段，正常運(yùn)行需注釋此段fori:=1to52do//將牌顯示到Editbegincase(Card[i-1]Mod4)of1:str:='黑';2:str:='紅';3:str:='梅';elsestr:='方';end;case((Card[i-1]+3)Div4)of1:str:=str+'A';11:str:=str+'J';12:str:=str+'Q';13:str:=str+'K';elsestr:=str+inttostr((Card[i-1]+3)Div4);end;case(iMod4)of1:Edit1.Text:=Edit1.Text+str+'';2:Edit2.Text:=Edit2.Text+str+'';3:Edit3.Text:=Edit3.Text+str+'';elseEdit4.Text:=Edit4.Text+str+''end;end;end;此程序簡(jiǎn)單的實(shí)現(xiàn)了隨機(jī)發(fā)牌的功能，將52張牌隨機(jī)的發(fā)給四個(gè)人，同時(shí)代碼段內(nèi)有檢查程序錯(cuò)誤的代碼，正常運(yùn)行需注釋后編譯。本