GIS軟件開發(fā)課程設計

報告書題目名稱：全球信息查詢系統(tǒng)院系：管理學院地理科學專業(yè)班級：地理科學0811開發(fā)組員：張波張萍李旭周鑫張茫鄧曉燕董晶晶馬嚴彪國完成日期：2010年12月26TOC\o"1-5"\h\z1弓1言32系統(tǒng)分析3\o"CurrentDocument"1需求分析33系統(tǒng)設計3\o"CurrentDocument"1總體設計3\o"CurrentDocument"3.1.1用戶需求3\o"CurrentDocument"3.1.2系統(tǒng)目標4\o"CurrentDocument"3.1.3總體結構4\o"CurrentDocument"3.1.4系統(tǒng)功能5\o"CurrentDocument"3.2詳細設計5\o"CurrentDocument"子系統(tǒng)設計5\o"CurrentDocument"數(shù)據(jù)庫設計6\o"CurrentDocument"3.2.3功能模塊設計6\o"CurrentDocument"3.2.4用戶界面設計114設計結論1引言隨著我國經(jīng)濟水平突飛猛進的發(fā)展，科學技術不斷向前，傳統(tǒng)的教學方式效率不高，因此越來越不能滿足教育服務工作的需要。全球查詢服務系統(tǒng)將為科學技術普及及中學教學工作提供一種方便、快捷的方式。該系統(tǒng)將為科學普及和教學工作的發(fā)展帶來很好的促進作用。2系統(tǒng)分析1需求分析目前，隨著信息化水平的不斷提高以及信息技術的普及，相關技術逐漸進入一般人的生活中，因而數(shù)字化信息化的教學方式被引入一般中學教學以及一些科學技術普及工作中，然而在相關需求不斷擴大的現(xiàn)在，與其相配套的技術卻略有滯后，傳統(tǒng)的方法不僅操作難度大，同時效率低下。如何滿足人們?nèi)找嬖鲩L的需求以及方便教師與科普工作者進行一般的教育科普工作，是當前必須解決的一個問題?；贕IS的全球地理查詢系統(tǒng)是一個擁有全球個地方簡易地理信息的數(shù)據(jù)庫，集成了地理信息管理模塊可以實現(xiàn)GIS的空間查詢，分析功能及可視化功能的軟件。其旨在滿足廣大教育與科學普及工作者的需求，采用GIS技術，使地理數(shù)據(jù)的查詢、分析更加方便快捷，且操作簡單容易，易于一般沒有任何計算機操作的人員使用。實現(xiàn)了授課的高科技化。該信息平臺大大提高了信息化、智能化程度，提高了數(shù)據(jù)的集成度，對空間數(shù)據(jù)的查詢，分析更加方便、數(shù)據(jù)結構更為合理，并增加了對動態(tài)數(shù)據(jù)的存儲、處理和顯示，提供了更多的管理與分析模塊，在一般中學教學與科學普及工作中有一定的優(yōu)勢。3系統(tǒng)設計1總體設計3.1.1用戶需求在系統(tǒng)具體設計前必須明確所要設計系統(tǒng)的用戶需求，只有了解了用戶的具體要求才能依此為依據(jù)進行系統(tǒng)具體功能的設計，這樣設計的系統(tǒng)才有其存在的意義。然而對于本系統(tǒng)來說其用戶的需求是能夠方便快捷的查詢，分析世界地圖上各個地區(qū)的一些基本的地理信息屬性，例如面積，經(jīng)緯度，距離等，并可以實現(xiàn)數(shù)據(jù)篩選功能。同時操作要求便捷，數(shù)據(jù)要用文字，數(shù)字，圖形等快速的顯示出來。3.1.2系統(tǒng)目標全球地理查詢系統(tǒng)的目標主要是實現(xiàn)中學課堂教學及一般科學普及單位科普工作的信息化，來滿足當前社會發(fā)展趨勢下用戶要求，可以給用戶提供一些最基本的地理信息，為了提高課堂教學以及科學普及工作的信息化，加快教育信息化發(fā)展，為地理教學科普而開發(fā)基于SuperMapObject6.0和VisualBasic語言GIS建立的全球地理查詢系統(tǒng)，并希望通過這個系統(tǒng)使課堂地理教學信息化更加普及，系統(tǒng)目標如下：（1）系統(tǒng)應能實現(xiàn)圖形和屬性的連接，實現(xiàn)用戶對圖形及屬性的雙向檢索；（2）系統(tǒng)具有快速對地理信息進行查詢、空間分析與顯示功能；（3）系統(tǒng)應具有良好的擴展性與改進空間。3.1.3總體結構本課題所研究的全球地理查詢系統(tǒng)根據(jù)用戶的需要，實現(xiàn)了地理信息查詢，以及測距，側面積的功能。經(jīng)過需求分析階段的工作后，系統(tǒng)必須“做什么”的問題已經(jīng)解決了，現(xiàn)在是解決“怎么做”這個問題的時候了?？傮w設計的基本目的就是回答系統(tǒng)應該如何實現(xiàn)這個問題。系統(tǒng)總體結構設計是要根據(jù)系統(tǒng)分析的要求和組織的實際情況來對新系統(tǒng)的總體結構形式進行大致設計，它是一種宏觀、總體上的設計和規(guī)劃。1）全球地理查詢系統(tǒng)主要功能是讓用戶方便對于基礎地理信息的查詢與分析工作，方便教學與科普活動。2）數(shù)據(jù)的屬性查詢模塊主要功能是對所屬地區(qū)基本地理信息，例如面積，經(jīng)緯度等的查詢。3）條件查詢的主要功能是設置一條件，對于滿足此條件的地域進行顯示的功能。系統(tǒng)功能總體結構圖如圖1：

全球地理查詢系統(tǒng)圖1、系統(tǒng)功能總結構圖3.1.4系統(tǒng)功能全球地理查詢系統(tǒng)圖1、系統(tǒng)功能總結構圖本課題主要基本地理信息的查詢分析服務，目的是為課堂教學更加科學更加人性化，是用戶輕而易舉就可以完成地理相關信息的查詢與檢索功能。本系統(tǒng)重要包括五個獨立的模塊：地圖瀏覽模塊，查詢模塊，娛樂模塊，精確查詢模塊，幫助模塊。幾個模塊的使用大大提高了用戶信息檢索的效率與精確度，為用戶提供了很大的方便。3.2詳細設計3.2.1子系統(tǒng)設計本系統(tǒng)主要分為5個獨立的模塊：地圖瀏覽模塊、娛樂模塊、精確查詢模塊、查詢功能模塊，幫助模塊。在地圖瀏覽模塊中，用戶可以使用相關控件對地圖進行漫游，放大，縮小，也可以根據(jù)個人需要進行自由縮放，以及全屏觀看在娛樂模塊中，為大家在學習工作之余提供了小游戲。在精確查詢模塊中，進行SQL查詢，根據(jù)用戶的不同需求對信息進行檢索，并對檢索結果進行排序，并且可以保存輸出查詢結果。在查詢模塊中，可以查詢相關地域的屬性，使用條件查詢可以對地圖上的符合查詢條件的地點通過圖像進行顯示。幫助模塊用于對用戶提供一定的幫助。3.2.2數(shù)據(jù)庫設計由于是地理信息系統(tǒng)，全球地理查詢系統(tǒng)數(shù)據(jù)庫也應包括空間數(shù)據(jù)庫和屬性數(shù)據(jù)庫，再此采用關系型數(shù)據(jù)庫模式。具體的屬性數(shù)據(jù)以圖表形式記錄，而圖形數(shù)據(jù)以拓撲關系記錄。并且在這些建立這些專題數(shù)據(jù)庫時要注意各種專題信息的關系字段，保證互相之間都有聯(lián)系。數(shù)據(jù)建庫時，要按照分類標準進行科學分類，要符合數(shù)據(jù)編碼的一般要求：（1）凡國家已施行的編碼規(guī)范和標準，均按國家規(guī)定的執(zhí)行；（2）科學編碼系統(tǒng)的設計必須可靠地識別數(shù)據(jù)信息的分類，以較少的代碼提供豐富的參考信息，以及根據(jù)代碼結構能進行數(shù)據(jù)間關系的邏輯推理和判別；（3）編碼不宜過長，一般為4—7位，以減少出錯的可能性和節(jié)省存儲空間。對于多要素的數(shù)據(jù)信息，通過設置特征位來有效地壓縮碼位的長度；（4）編碼標準化，其內(nèi)容包括統(tǒng)一的碼位長度、一致的碼位格式和明確的代碼含義，不能出現(xiàn)代碼的多義性等等。此外，數(shù)據(jù)質(zhì)量要嚴格控制，主要控制保證：數(shù)據(jù)完整性、數(shù)據(jù)一致性、位置精度、時間精度、屬性精度。系統(tǒng)E-R圖如圖2：圖2、系統(tǒng)E-R3.2.3功能模塊設計查詢功能模塊PrivateSubToolbar2_ButtonClick(ByValButtonAsMSComctlLib.Button)Case"屬性查詢"SuperMapl.Action=scaSelectCase"條件查詢"DimobjDsAssoDataSource'數(shù)據(jù)源DimobjDtVectorAssoDatasetVector'矢量數(shù)據(jù)集DimobjRecordsetAssoRecordset'記錄集DimobjSelectionAssoSelection'選擇集'取矢量數(shù)據(jù)集：取其中面數(shù)據(jù)集"World"進行查詢SetobjDs=SuperWorkspace1.Datasources.Item("MyDataSource")IfobjDsIsNothingThenExitSubSetobjDtVector=objDs.Datasets("World")IfobjDtVectorIsNothingThenMsgBox"打開數(shù)據(jù)集錯誤"，vbInformationExitSubEndIf'使用SQL過濾條件安從數(shù)據(jù)集中查詢出記錄集，SetobjRecordset=objDtVector.Query(txtExpression.Text,True)IfobjRecordsetIsNothingThenExitSubElse'將查詢結果加入到選擇集中，使其高亮顯示SetobjSelection=SuperMap1.SelectionobjSelection.FromRecordsetobjRecordset'刷新地圖窗口SuperMap1.RefreshEndIfSetobjDtVector=NothingSetobjRecordset=NothingSetobjSelection=NothingEndSelectEndSub娛樂模塊PrivateSubToolbar3_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButtonCase"游戲"Shell"C:\DocumentsandSettings\Administrator\桌面'VisualBasic6.0\ddchess.exe"Case"音樂"Shell"F:\KuGou2010\KuGoo.exe"Case"驚喜"Print"售價100萬，地科免費！"FontName="黑體"FontItalic=TrueFontSize=48EndSelectEndSub精確查找模塊PrivateSubbtnSQL_Click()frmSQLExpression.ShowvbModal,MeEndSubPrivateSubbtnShowDt_Click()DimiAsIntegerDimobjDsAssoDataSourceDimobjDtAssoDatasetIfbtnShowDt.Caption="顯示生成的數(shù)據(jù)集"ThenSetobjDs=SuperWorkspace1.Datasources(1)IfstrDtName=""ThenExitSubSuperMap1.Layers.RemoveAllSetobjDt=objDs.Datasets(strDtName)SuperMap1.Layers.AddDatasetobjDt,TrueSuperMap1.RefreshbtnShowDt.Caption="顯示全部圖層"ElseSetobjDs=SuperWorkspace1.Datasources(1)Fori=1ToobjDs.Datasets.CountSetobjDt=objDs.Datasets(i)SuperMap1.Layers.AddDatasetobjDt,TrueNextbtnShowDt.Caption="顯示生成的數(shù)據(jù)集"EndIfSuperMapl.RefreshEndSub地圖瀏覽模塊PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButtonCase"放大"SuperMap1.Action=scaZoomInCase"縮小"SuperMap1.Action=scaZoomOutCase"自由縮放"SuperMap1.Action=scaZoomFreeCase"漫游"SuperMap1.Action=scaPanCase"選擇"SuperMap1.Action=scaSelectCase"全屏"SuperMap1.ViewEntireCase"演示"'建立地圖窗口與工作空間的聯(lián)系，用于顯示數(shù)據(jù)SuperMap1.ConnectSuperWorkspace1.ObjecDimstrAliasAsString'數(shù)據(jù)源別名DimnEngineTypeAsseEngineType'數(shù)據(jù)源引擎類型DimstrDatasourceNameAsString'數(shù)據(jù)源所在路徑DimobjDataSourceAssoDataSource'數(shù)據(jù)源對象，指向打開的數(shù)據(jù)源DimbReadOnlyAsBoolean'數(shù)據(jù)源是否只讀打開DimobjLayerAssoLayer'圖層對象變量，指向將要打開的圖層DimbAddToHeadAsBoolean'是否將數(shù)據(jù)集加到地圖最上一層顯示DimiAsInteger'數(shù)據(jù)集索引strAlias="MyDataSource"'別名可任意，但建議取數(shù)據(jù)源文件名相同的名稱nEngineType=sceSDBPlus'可打開不同引擎的數(shù)據(jù)源strDatasourceName="C:\DocumentsandSettings\Administrator\桌面\VisualBasic6.0\world.sdb"'數(shù)據(jù)源所在路徑，也可以是相對路徑bReadOnly=False'非只讀打開SetobjDataSource=SuperWorkspace1.OpenDataSource(strDatasourceName,strAlias,nEngineType,bReadOnly)IfobjDataSourceIsNothingThenMsgBox"打開數(shù)據(jù)源失??！"，vbInformationElseFori=1ToobjDataSource.Datasets.Count'把數(shù)據(jù)源中的所有數(shù)據(jù)集加入到SuperMap中顯示bAddToHead=TrueSetobjLayer=SuperMap1.Layers.AddDataset(objDataSource.Datasets.Item(i),bAddToHead)NextEndIf'刷新地圖窗口SuperMap1.Refresh'可定制選中對象風格，或保持默認SuperMap1.Selection.Style.PenColor=RGB(231,77,0)SuperMap1.Selection.Style.PenWidth=1SuperMap1.Selection.Style.PenStyle=1SuperMap1.Selection.Style.BrushStyle=5SuperMap1.Selection.Style.BrushColor=RGB(115,69,140)SuperMap1.Selection.Style.BrushBackColor=RGB(239,150,255)SuperMap1.Selection.Style.BrushOpaqueRate=50'釋放內(nèi)存SetobjDataSource=NothingSetobjLayer=NothingCase"退出"EndEndSelectEndSub幫助模塊PrivateSubbb_Click()MsgBox"GIS全球查詢系統(tǒng)1.3，有問題請聯(lián)系我們！"EndSubPrivateSublx_Click()MsgBox"郵箱zhangbo208512@163.comEndSubPrivateSubwz_Click()Shell"explorer.exe/470170583/infocenter"EndSub3.2.4用戶界面設計用戶界面基于visualbasic開發(fā)提供，分為登陸界面與使用界面。登陸界面PrivateSubCommand1_Click()IfText1.Text="08"AndText2.Text="08"ThenGIS全球查詢系統(tǒng).ShowGIS全球查詢系統(tǒng)3.HideElseMsgBox"密碼或賬號有錯誤，請重新輸入！"，vbExclamationText1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSub圖3.2.4（1）

需要賬號密碼，用戶輸入后即可享用。通過設置此項目可以保護用戶的隱私與使用權。圖3.2.4（2）用戶使用界面本界面中提供了世界地圖，用戶在此界面中可以對地圖信息實現(xiàn)查找，分析的功能。能夠迅速定位用戶所需的