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