用MapBasic建立GIS系統(tǒng)

1、第 11 章用 MapBasic 建立用戶系統(tǒng)11.lMapBasic程序結(jié)構(gòu)前一章介紹了MapBasic 的基本元素， 由它們構(gòu)成MapBasic 的不同種類的語句，再由語句組織成程序。 但是 MapBasic 程序中的語句必須以一個特定的方式被安排，而不是任意的。例如： Global語句就不能放在Sub End Sub 結(jié)構(gòu)中，下面給出的是MapBasic 程序中不同組件排列順序的一個典型的格式：全局級的語句出現(xiàn)在程序的項部Include“mapbasic.def”其他的 Includc語句Type End Type語句Declare Sub語句Declare Function語句Defi

2、neGlobal語句語句接下來是主過程定義Sub MainDim語句End Sub.接著是其他的子過程定義Sub .Dim語句End Sub.用戶函數(shù)定義.Function .Dim語句End Function11 2用戶界面程序?qū)嵗秊榱四茏屪x者迅速掌握用MapBasic 進行應(yīng)用程序開發(fā)的最基本方法，本節(jié)將通過剖析一個程序?qū)嵗齺碚故綧apBasic 強大的開發(fā)功能。由于該程序只是一個演示程序，所以它的重點只放在用戶界面的創(chuàng)建。對于其他一些輔助功能，本程序只提供了功能框架，而沒有給出具有完整功能的程序模塊。有興趣的讀者可以對本程序的部分或全部進行修改、增加和精簡，以便完善該程序的功能。11 2

3、 1 程序功能簡介一個優(yōu)秀的應(yīng)用程序，必須有一個令人賞心悅目的用戶界面。一個設(shè)計良好的用戶界面不但能夠使用戶得到視覺上的享受，而且能夠提高人機交互的效率。本程序的最主要部分是生成一個用戶界面，其中包括創(chuàng)建一個全用戶化的菜單、定制符合用戶要求的按鈕盒和對話框，并且在必要時能及時打開一個合適的窗口( 如地圖窗口、瀏覽窗口或統(tǒng)計窗口等) 。1。用戶菜單一般情況下，我們并不需要完全放棄MapInfo的原始菜單，而只要在該菜單系統(tǒng)的基礎(chǔ)上，適當(dāng)?shù)貏h去一些不需要的菜單或菜單項，再增加一些新的菜單或菜單項就可以制作出符合自己要求的菜單。但MapBasic 同樣支持你創(chuàng)建一個全新的菜單系統(tǒng)，本程序就是采用了這

4、種方式。當(dāng)運行該演示程序時，屏幕上將出現(xiàn)如圖11.1 所示的用戶界面。程序圖 11-1演示程序的顯示情況除了顯示一個用戶菜單及用戶按鈕盒外，還打開了一個地圖窗口，在地圖窗口中打開了幾個MapInfo 表。其中菜單欄在屏幕的最上方，它包括：系統(tǒng)菜單、演示菜單、對象、 旅游查詢、旅游統(tǒng)計圖及幫助。系統(tǒng)菜申它由“打開表”、“關(guān)閉表”、“全部關(guān)閉” 、“世界地圖”和“退出”五個菜單項組成。主要完成對MapInfo 表的打開與關(guān)閉操作，并同時將它顯示在一個地圖窗口中。其中“打開”是讓用戶選擇并打開一個表，而“世界地圖”是直接由MapBasic 打開一個事先選定的表 (World.tab)；“關(guān)閉” 是讓

5、用戶選擇一個當(dāng)前打開的表把它關(guān)閉，并保存相應(yīng)工作空間，而“全部關(guān)閉”是將當(dāng)前矽甫打開的表全部關(guān)閉；“退出”是退出該演示程序恢復(fù)到原來的MapInfo 界面。演示菜單它包含一個“建介”了菜單。該子菜單用于生成一個用戶菜單、按鈕盒或?qū)υ捁瘛?yīng)于此英申的MapBaslc 功能模塊就是生成用戶界面的最典型方法。菜單項“工具欄”實質(zhì)上是一個對話框，只是該對話框只包含四個復(fù)選框：主、常用、繪圖、用戶。當(dāng)選中了其中的一個或多個，相應(yīng)的按鈕盒就會在屏幕亡顯示，否則就會隱藏按鈕盒。這里按鈕盒“主”、“常用”和“繪圖”是MapInfo 系統(tǒng)自帶的，而“用戶”按鈕盒則是由本演示程序自制的。另外，你還會看到三個呈現(xiàn)

6、灰色的菜單項“設(shè)置更新口令”、“數(shù)據(jù)備份”和“數(shù)據(jù)恢復(fù)”，由于這些功能在本程序中還沒有全部制作進去，所以這里把這些菜單項設(shè)置為不可選。對象 MapBasic 可以創(chuàng)建、修改對象，而且可以把一個對象賦給一個表的對象列。該菜單包括一個“創(chuàng)建對象”子菜單和兩個菜單項“折線轉(zhuǎn)換成區(qū)域”、“區(qū)域轉(zhuǎn)換成折線” 。其中兩個菜單項是呈灰色的，表示它們不可選擇。而“創(chuàng)建對象” 子菜單是用于創(chuàng)建MapInfo的圖形對象，當(dāng)用戶選擇了該子菜單下的一個菜單項時，程序首先將建立一個MapInfo 表，并將該表地圖化，接著為它追加一條記錄，并把創(chuàng)建的對象賦值給該記錄的對象列。最后，程序?qū)⒃谝粋€地圖窗口的一個可編輯圖居中顯

7、示該對象。旅游查詢該菜申的所有菜單項都是不可選的。用戶可以根據(jù)自己的要求編寫相應(yīng)的程序以完成該項功能。旅游統(tǒng)計圖這個菜單的功能是將某些 MapInfo 表中的信息以統(tǒng)計圖的形式顯示在屏幕上，使得觀察更加直觀方便，當(dāng)然你可以通過設(shè)置來指定統(tǒng)計圖的格式。幫助該菜單提供了 MapInfo 主要功能的在線查詢，通過 Intemet 訪問 MapInfo 站點，以及有關(guān)本演水程序的一些信息。2按鈕盒按鈕盒是用戶界面的重要組成部分。它以工具箱的形式為用戶提供某些常用的功能。MgpBasic 中的按鈕盒中的按鈕有三種類型：工具按鈕、觸發(fā)式按鈕和按壓式按鈕( 或稱開關(guān)式按鈕 ) 。一般地，當(dāng)選中一個工具按鈕時

8、，應(yīng)用程序并不立即調(diào)用相應(yīng)的處理程序，而只是作好了一些必要的設(shè)置( 如改變光標的形狀) ，只有在選中該按鈕后，繼續(xù)在相應(yīng)的窗口中進行單擊或拖拉時應(yīng)用程序才調(diào)用相應(yīng)處理程序，如 MapInfo “繪圖”按鈕盒中的“畫線” 、“畫橢圓” 等按鈕就屬此類。 觸發(fā)式按鈕是在選中該按鈕時就立即調(diào)用處理程序， 而按壓式按鈕是在“按壓”或“恢復(fù)”該按鈕時都調(diào)用處理程序。用戶可以根據(jù)各自的需要選擇合適的按鈕類型。本演示程序有兩處涉及按鈕盒的創(chuàng)建， 一個是在程序開始運行時就出現(xiàn)在屏幕上的 “用戶”按鈕盒。這里選擇了一些對地圖窗口進行操作的常用工具，如放大、縮小視圖等。該按鈕盒是漂浮在整個桌面上的。另外一個按鈕盒

9、是通過選擇 演示菜單 1 建立 按鈕盒 來創(chuàng)建的， 該按鈕盒是固定在窗口頂部， 其中包含三個按鈕， 它們分別屬于三種不同的類型。3對話框該程序創(chuàng)建的一個最典型的對話框是通過選擇 演示菜申 1 建立3 對話框 建立的。它包括以下對話框控件：StaticText、 EditText、 GroupBox、 PopupMenu、 ListBox 、RadioGroup 、SymbolPicker 、CheckBox、OkButton 和 CancelButton 。另外，“系統(tǒng)菜單”中的“退出”菜單項、 “演示菜單”中的“工具欄”菜單項、 “幫助”菜單中的“關(guān)于”菜單項都是對話框的例子。4 窗口窗口也

10、是用戶界面的重要組成部分，Maplnfo 包括多種類型的窗口，如地圖窗口、瀏覽窗口、 統(tǒng)汁窗口、 布局窗口以及普通的信息窗口等。本演示程序一執(zhí)行就先打開一個地圖窗口，并將窗口標題設(shè)置為“一個用戶界面程序的演示示例”，另外，還可以用 系統(tǒng)菜單 打開 或 系統(tǒng)菜單 世界地圖 打開一個地圖窗口。通過選擇 旅游統(tǒng)計圖 旅游人口 可以打開一個統(tǒng)計圖窗口。至于其他類型的統(tǒng)計圖，本程序沒有涉及，用戶可以技類似的方法自己建立。11.2.2源程序及其注解1.源程序清單 一個用戶界面演示程序：Ye_Demo.mb制作日期： 1998.7 目的：快速掌握MapBasic 程序開發(fā) 內(nèi)容：生成用戶界面的MapBasi

11、c 程序 主要語句：CreateMenu 菜單名 as生成菜單 子菜單名calling進程 Create ButtonPad按鈕盒名 As 生成按鈕盒 按鈕類型 PushButton 、 ToolButton 、Togg1eButtonDialog生成對話框Title對話框標題 控制類型*標準定義文件 *Include“mapbasic.def”Include“icons.def”Include“menu.def ”*進程聲明 *Declare Sub MainDeclare Sub Ye_denmDeclare Sub Ye_ButtonPadDeclare Sub Ye_MenuDecla

12、re Sub Ye_ToolDeclare Sub Ye_graphDeclare Sub Ye_DialogDeclare Sub Menu_TestDeclare Sub Button_TestDeclare Sub Ye_aboutDeclare Sub Ye_ExitDeclare Sub Ye_Button1Declare Sub Ye_Buttonn2Declare Sub Close_allDeclare Sub Close_someDeclare Sub Open_FileDeclare Sub Open_worldDeclare Sub Make_ellipse*建立主菜單*

13、SUB Main0nerror goto sub_errCreate Menu“風(fēng)景點 ”As“按地區(qū)分 ” Calling Ye_demo,“按類型分 ” Calling Ye_demo,“按最佳旅游季節(jié)分”Calling Ye_demo,“(- “,“風(fēng)景點向?qū)?” Calling Ye_demoCREATE MENU “用戶菜單“建立 ”As“ Calling Ye_menu“按鈕盒 tCtrl+B/WB/Mb/XCtrl+b” Calling Ye_Buttonpad“演示菜單 ” As “建立 ”,“對話框 tCtrl+D/WD/Md/XCtrl+d” Calling Ye_Dial

14、ogCreate Menu“創(chuàng)建對象 ”As“點 ” Calling Ye_demo,“直線 ” Calling Ye_demo,“橢圓 ” Calling Mmake_ellipse,“折線 ” Calling Ye_demo,“矩形 ” Calling Ye_demo,“圓角矩形 ” Calling Ye_demo,“圓弧 ” Calling Ye_demo,“區(qū)域 ” Calling Ye_demo,“文本 ” Calling Ye_demo,“標簽 ” Calling M_TOOLS_LABELERCreate MENU *建立用戶主菜單*“建立 ” As“工具欄 .” Calling

15、 Ye_Tool,“(- “,“設(shè)置更新口令” Calling Ye_demo,“(- “,“數(shù)據(jù)備份 ” Calling Ye_demo,“數(shù)據(jù)恢復(fù) ” Calling Ye_demoCreate Menu“系統(tǒng)菜單 ” As“打開表 ”ID 111 Calling Open_File,“關(guān)閉表 ” Calling Close_some,“全部關(guān)閉 ” Calling Close_all,“(- “,“世界地圖 ” ID ll2 Calling Open_world,“(- “,“退出 ” Calling Ye_exitCreate Menu“旅游查詢 ” As“風(fēng)景點 ” As“風(fēng)景點 ”

16、,“風(fēng)土人情 ” Calling Ye_demo,“路線 ” Calling Ye_demoCreate Menu“旅游統(tǒng)計圖 ” As“旅游收入 ” Calling Ye_graph,“旅游人數(shù) ” Calling Ye_demo,“旅游淡旺季 ”Calling Ye_demoCreate Menu“幫助 ” As“主題索引 ” Calling M_HELP_CONTENTS,“Web頁搜索 ” Calling M_HELP_CONNECT_MIFORUM,“(- “,“關(guān)于 ” Calling Ye_aboutCreate Menu“對象 ” As“創(chuàng)建對象 ” As“創(chuàng)建對象 ”,“(-

17、 “,“折線轉(zhuǎn)換成區(qū)域” Caing Ye_demo,“區(qū)域轉(zhuǎn)換成折線” Calling Ye_demoAlter Menu Item Ye_demo DisableCreate Menu Bar As“系統(tǒng)菜單 ”, ”演示菜單 ”, ”對象 ”, ”旅游查詢 ”, ”旅游統(tǒng)計圖 ”, ”幫助 ”*將所建立的用戶菜單加入菜單欄*Alter BUTTONPAD“繪圖 ” Hide *將不使用的按鈕盒隱藏*Alter BUTTONPAD“ODBC” HIDEALTER BUITONPAD“主 ” HIDEALTER BUTTONPAD“常用 ” HIDEMENU BAR SHOW *顯示新菜單欄

18、*Open Table“景點分布 ” As景點分布InteractiveOpen Table“省 ” As省InteractiveOpen Table“市 ” As市InteractiveMap From景點分布，市，省Position(0.0520833, 0.0520833) Units“in ”Width 4.125 Units“in ” Height 2.36458 Units“in”Set Window FrontWindow() Max ScrollBars Off Autoscroll OnSet MapCoordSys Earth Projection 1,0Center(11

19、9.6263825,29,3124845)Zoom 86.15402206 Units“mi ”Preserve Zoom Display ZoomXY Units“degree ”Distance Units“mi” Area Units“sq mi”Set MapLayer 1Display GraphicLabel Line Arrow Position Right Font(“Arial”,0,12,0) Pen(1,2,0)With nameParallel On Auto Off Overlap Off Duplicates On Offset 2Visibility OnLaye

20、r 2Display GraphicLabel Line Arrow Position Right Font(“Arial”,0,12,0)Pen(1,2,0)With市Parallel On Auto Off Overlap Off DuplicatesOn Offset 2Visibility OnLayer 3Display GraphicLabel Line Arrow Position Right Font(“Arial”,0,12,0)Pen(1,2,0)With省Parallel On Auto Off Overlap Off Duplicates On Offset 2Visi

21、bility OnCreate ButtonPad“用戶 ” AsToolButtonIcon MI_ICON_ARROWCalling M_TOOLS_SELECTORHelpMsg“Select objects for editingnToolButtonIcon MI_ICON_ZOOM_INCalling M_TOOLS_EXPANDHelpMsg“工具按鈕 n 放大 ”ToolButtonIcon MI_ICON_ZOOM_OUTCalling M_TOOLS_SHRINKHelpMsg“工具按鈕 n 縮小 ”ToolButton選擇 ”Icon MI_ICON_ZOOM_QUEST

22、IONHelpMsg“工具按鈕 n 問題 ”ToolButtonIcon MI_ICON_GRABBERCalling M_TOOLS_RECENTERHelpMsg“工具按鈕 n 平移 ”ToolButtonIcon MI_ICON_INFOCalling M_TOOLS_PNT_QUERYHelpMsg“工具按鈕 n 信息 ”PushButtonIcon MI_ICON_MISC_15Calling Ye_Button1HelpMeg“用戶開關(guān)按鈕n 按壓式 ”ToggleButtonIcon MI_ICON_MAPSYMB_20Calling Ye_Button2HelpMsg“用戶觸發(fā)

23、式按鈕n 觸發(fā)式 ”ShowSet windowFrontWindow() title“一個用戶界面程序的演示示例”Exit SubSub_err:Note Error$()Exit SubEnd Sub* 建立菜單*SUB Ye_MenuOnerror goto sub_errCreate menu“新菜單 ” as“菜單項一 ” id 3000 Calling Menu_Test,“刪除菜單 ” id 3001 Calling Menu_Testalter menu bar addmenu bar showsexit subsub_err:note Error$()exit subEnd

24、Sub“新菜單 ”* 菜單調(diào)試*SUB Menu TestDo Case lnt(CommandInfo(CMD_INFO_MENUITEM)Case 3000Nots“您已經(jīng)選用了菜單項一”Case 3001Note“新菜單將被刪除”Alter menu bar remove“新菜單 ”End CaseMenu bar showEnd Sub* 建立按鈕盒*SUB Ye_buttonPadCreate BUTTONNPAD“用戶按鈕 ” AsToolButton具按鈕Icon MI_ICON_ARROW 圖標Cursor MI_CURSOR_CROSSSHAIR 光標Calling Butt

25、on_Test 調(diào)用進程Id 1001 ID 號HelpMsg“工具按鈕 n 工具按鈕 ” 幫助信息PUSHBUTTON 佃發(fā)式按鈕ICON MI_ICON_HELPCalling Button_TestHelpMsg“觸發(fā)式按鈕 n 觸發(fā)式按鈕 ”Id 1002ToggleButtonIcon MI_ICON_MAPSYMB_16Calling Button_TestID 1003HelpMsg“開關(guān)式按鈕 n 開關(guān)式按鈕 ”SHOWFIXEDEnd Sub* 按鈕盒測試*SUB Button_TestOnerror goto sub_errDO Case Int(CommandInfo(C

26、MD_INFO_TOOLBTN)Case 1001If numwindows()=O ThenNOTE“工具型技鈕盒”+CHR$(10)+”請在地圖窗口中使用”Exit subElse If WindowInfo(FrontWindow(), WIN_INFO_TYPE) WIN_MAPPER ThenNOTE “工具型按鈕盒 ”+CHR$(10)+”請在地圖窗口中使用 ” exit subelsenote“當(dāng)前光標位置 ”+CHR$(10)+”x： ”+str$(CommandInfo(CMD_INFO_X)+”y： ”+str$(CommandInfo(CMD_INFO_Y)End IfC

27、ase 1002Note“觸發(fā)型按鈕盒”Case 1003Note“按壓型按鈕盒”End CaseExit subSub_err:Note Error$()Exit subEnd SubSub Ye_Button1Note“按壓型按鈕盒 ”End SubSub Ye_Button2Note“觸發(fā)型按鈕盒 ”End Sub* 建立對話框*SUB Ye_dialogDim filename as StringDim cntrl_val as IntegerDialogTitle“一個用戶界面演示程序”Control Static TextTitle“面板文本 ”Position 20,5Contr

28、ol PopupMenuTitle“下拉式菜單選項1 選項 2： ”Position 90,5Control GroupBoxTitle“群組選擇框 ”Position 10,20Width 80 Height 40Control RadioGroupTitle“&R單選一 ; &R 單選二 ”Position 20,32Value lInto cntrl_valControl ListBoxTitle“列表選擇框 ; 選項 1; 選項 2；選項Width 80 height 40Position l05,25Control Static TextTitle“線型： ”Position 20,

29、703 選項 4；選項5;選項 6”Control PenPickerPosition 60,70Width 20 Height 20Control GroupBoxTitle“編輯文本將存于：”Position 10,100Width 160 Height 40Control EditTextValue“文件名 ”Into filenamePosition 20,120Control CheckBoxTitle“功能確認框 ”Title“確定 ”Position 50,180Control CancelButtonTitle“取附 ”Position 120,180printfilename

30、print cntrl_valEnd Sub*關(guān)于 Ye_DEMO.MB*SUB Ye_aboutDialogTitle“關(guān)于一個用戶界面演示程序”Control Static TextTitle“程序名 : Ys_demo ”Position 20,10Control Static TextTitle生成菜單： ”Position 20,30Control Static TextTitle“選擇演示菜單，建立，用戶菜單”Position 20,40Control Static TextTitle“生成按鈕盒： ”Position 20,50Control Static TextTitle“選

31、擇演示菜單，建立按鈕盒”Position 20,60Control Static TextTitle“生成對話框： ”Position 20,70Control Static TextTitle“選擇演示菜單，建立，對話框”Position 20,80Control Static TextTitle“制作：浙江師范大學(xué)計算機系”Position 30,100Control Static TextTitle“電話： (0579)2341801 2338 ”Position 30,110Control OkButtonTitle“確定 ”Width 60 height 15Position 42,

32、130End SubSUB Close_someRun Menu Command l103End SubSUB Close_a11Close allEnd SubSUB Ye_demoNote“這只是一個演示程序謝謝使用”End SubSUB Ye_ToolDim check_main, check_usually, check_draw, check_custom As LogicalDialogTitle“工具欄 ”Width 55 Height 70 Position 110,110CONTROL CHECKBOXTitle“主”Into check_mainPosition 10,5C

33、ONTROL CHECKBOXTitle“常用 ”Into cheek_usuallyPosition 10,15CONTROL CHECKBOXTitle“繪圖 ”Into check_drawPosition 10,25CONTROL CHECKBOXTitle“用戶 ”Into check_customPosition l0,35CONTROL OkButtonTitle“確定 ”WIDTH 20 HEIGHT l0Position 5,55CONTROL CancelButtonTitle“取消 ”WIDTH 20 HEIGHT l0Position 30,55If CommandIn

34、fo(CMD_INFO_DLG_OK) ThenIf Check_main ThenAlter ButtonPad“主 ” ShowelseAlter ButtonPad“主 ” HideEnd IfIf Check_usuallyThenAlter ButtonPad“常用 ” ShowelseAlter ButtonPad“常用 ” HideEnd IfIf Check_draw ThenAlter ButtonPad“繪圖 ” ShowelseAlter ButtonPad“繪圖 ” HideEnd IfIf Check_custom ThenAlter ButtonPad“用戶 ” S

35、howelseAlter ButtonPad“用戶 ” HideEnd IfEndlfEnd SubSub Ye_graphOpen table“旅游收入 ” As旅游收入Graph景點名 , 95, 96, 97, 98 FromEnd SubInteractive旅游收入Sub Open_FileDim s_filename As Strings_filename = FileOpenDlg(If s_filename ”ThenRun Menu Command 104Open Table s_filename AsMap From選擇表ElseNote“沒有文件被選擇”End IfEnd Sub“c:MapInfodataworld選擇表”, ”,”TAB”, ”打開表 ”)Sub Open_worldColse allOpen Table“c:MapInfo