第11章用MapBasic建立用户系统.docx

第11章用MapBasic建立用户系统.docx

《第11章用MapBasic建立用户系统.docx》由会员分享，可在线阅读，更多相关《第11章用MapBasic建立用户系统.docx（24页珍藏版）》请在冰豆网上搜索。

第11章用MapBasic建立用户系统

第11章用MapBasic建立用户系统

11.lMapBasic程序结构

前一章介绍了MapBasic的基本元素，由它们构成MapBasic的不同种类的语句，再由语句组织成程序。

但是MapBasic程序中的语句必须以一个特定的方式被安排，而不是任意的。

例如：

Global语句就不能放在Sub…EndSub结构中，下面给出的是MapBasic程序中不同组件排列顺序的一个典型的格式：

全局级的语句出现在程序的项部

Include“mapbasic.def”

其他的Includc语句

Type…EndType语句

DeclareSub语句

DeclareFunction语句

Define语句

Global语句

…接下来是主过程定义…

SubMain

Dim语句

EndSub

....接着是其他的子过程定义

Sub....

Dim语句

EndSub

......用户函数定义....

Function....

Dim语句

EndFunction

11．2用户界面程序实例

为了能让读者迅速掌握用MapBasic进行应用程序开发的最基本方法，本节将通过剖析一个程序实例来展示MapBasic强大的开发功能。

由于该程序只是一个演示程序，所以它的重点只放在用户界面的创建。

对于其他一些辅助功能，本程序只提供了功能框架，而没有给出具有完整功能的程序模块。

有兴趣的读者可以对本程序的部分或全部进行修改、增加和精简，以便完善该程序的功能。

11．2．1程序功能简介

一个优秀的应用程序，必须有一个令人赏心悦目的用户界面。

一个设计良好的用户界面不但能够使用户得到视觉上的享受，而且能够提高人机交互的效率。

本程序的最主要部分是生成一个用户界面，其中包括创建一个全用户化的菜单、定制符合用户要求的按钮盒和对话框，并且在必要时能及时打开一个合适的窗口（如地图窗口、浏览窗口或统计窗口等）。

1。

用户菜单

一般情况下，我们并不需要完全放弃MapInfo的原始菜单，而只要在该菜单系统的基础上，适当地删去一些不需要的菜单或菜单项，再增加一些新的菜单或菜单项就可以制作出符合自己要求的菜单。

但MapBasic同样支持你创建一个全新的菜单系统，本程序就是采用了这种方式。

当运行该演示程序时，屏幕上将出现如图11.1所示的用户界面。

程序

图11-1演示程序的显示情况

除了显示一个用户菜单及用户按钮盒外，还打开了一个地图窗口，在地图窗口中打开了几个MapInfo表。

其中菜单栏在屏幕的最上方，它包括：

系统菜单、演示菜单、对象、旅游查询、旅游统计图及帮助。

·系统菜申．它由“打开表”、“关闭表”、“全部关闭”、“世界地图”和“退出”五个菜单项组成。

主要完成对MapInfo表的打开与关闭操作，并同时将它显示在一个地图窗口中。

其中“打开”是让用户选择并打开一个表，而“世界地图”是直接由MapBasic打开一个事先选定的表（World.tab）；“关闭”是让用户选择一个当前打开的表把它关闭，并保存相应工作空间，而“全部关闭”是将当前矽甫打开的表全部关闭；“退出”是退出该演示程序恢复到原来的MapInfo界面。

．演示菜单它包含一个“建介”了菜单。

该子菜单用于生成一个用户菜单、按钮盒或对话柜。

对应于此英申的MapBaslc功能模块就是生成用户界面的最典型方法。

菜单项“工具栏”实质上是一个对话框，只是该对话框只包含四个复选框：

主、常用、绘图、用户。

当选中了其中的一个或多个，相应的按钮盒就会在屏幕亡显示，否则就会隐藏按钮盒。

这里按钮盒“主”、“常用”和“绘图”是MapInfo系统自带的，而“用户”按钮盒则是由本演示程序自制的。

另外，你还会看到三个呈现灰色的菜单项“设置更新口令”、“数据备份”和“数据恢复”，由于这些功能在本程序中还没有全部制作进去，所以这里把这些菜单项设置为不可选。

·对象MapBasic可以创建、修改对象，而且可以把一个对象赋给一个表的对象列。

该菜单包括一个“创建对象”子菜单和两个菜单项“折线转换成区域”、“区域转换成折线”。

其中两个菜单项是呈灰色的，表示它们不可选择。

而“创建对象”子菜单是用于创建MapInfo的图形对象，当用户选择了该子菜单下的一个菜单项时，程序首先将建立一个MapInfo表，并将该表地图化，接着为它追加一条记录，并把创建的对象赋值给该记录的对象列。

最后，程序将在一个地图窗口的一个可编辑图居中显示该对象。

·旅游查询该菜申的所有菜单项都是不可选的。

用户可以根据自己的要求编写相应的程序以完成该项功能。

．旅游统计图这个菜单的功能是将某些MapInfo表中的信息以统计图的形式显示在屏幕上，使得观察更加直观方便，当然你可以通过设置来指定统计图的格式。

．帮助该菜单提供了MapInfo主要功能的在线查询，通过Intemet访问MapInfo站点，以及有关本演水程序的一些信息。

2．按钮盒

按钮盒是用户界面的重要组成部分。

它以工具箱的形式为用户提供某些常用的功能。

MgpBasic中的按钮盒中的按钮有三种类型：

工具按钮、触发式按钮和按压式按钮（或称开关式按钮）。

一般地，当选中一个工具按钮时，应用程序并不立即调用相应的处理程序，而只是作好了一些必要的设置（如改变光标的形状），只有在选中该按钮后，继续在相应的窗口中进行单击或拖拉时应用程序才调用相应处理程序，如MapInfo“绘图”按钮盒中的“画线”、“画椭圆”等按钮就属此类。

触发式按钮是在选中该按钮时就立即调用处理程序，而按压式按钮是在“按压”或“恢复”该按钮时都调用处理程序。

用户可以根据各自的需要选择合适的按钮类型。

本演示程序有两处涉及按钮盒的创建，一个是在程序开始运行时就出现在屏幕上的“用户”按钮盒。

这里选择了一些对地图窗口进行操作的常用工具，如放大、缩小视图等。

该按钮盒是漂浮在整个桌面上的。

另外一个按钮盒是通过选择[演示菜单1＞[建立]＞[按钮盒]来创建的，该按钮盒是固定在窗口顶部，其中包含三个按钮，它们分别属于三种不同的类型。

3．对话框

该程序创建的一个最典型的对话框是通过选择[演示菜申—1＞[建立3＞[对话框]建立的。

它包括以下对话框控件：

StaticText、EditText、GroupBox、PopupMenu、ListBox、RadioGroup、SymbolPicker、CheckBox、OkButton和CancelButton。

另外，“系统菜单”中的“退出”菜单项、“演示菜单”中的“工具栏”菜单项、“帮助”菜单中的“关于”菜单项都是对话框的例子。

4．窗口

窗口也是用户界面的重要组成部分，Maplnfo包括多种类型的窗口，如地图窗口、浏览窗口、统汁窗口、布局窗口以及普通的信息窗口等。

本演示程序一执行就先打开一个地图窗口，并将窗口标题设置为“一个用户界面程序的演示示例”，另外，还可以用[系统菜单]＞[打开]或[系统菜单]＞[世界地图]打开一个地图窗口。

通过选择[旅游统计图]＞[旅游人口]可以打开一个统计图窗口。

至于其他类型的统计图，本程序没有涉及，用户可以技类似的方法自己建立。

11.2.2源程序及其注解

1.源程序清单

‘一个用户界面演示程序：

Ye_Demo.mb

‘制作日期：

1998.7

‘目的：

快速掌握MapBasic程序开发．

‘内容：

生成用户界面的MapBasic程序

‘主要语句：

‘CreateMenu菜单名as生成菜单

‘子菜单名calling进程

‘CreateButtonPad按钮盒名As生成按钮盒

‘按钮类型[PushButton、ToolButton、Togg1eButton]

‘Dialog生成对话框

‘Title对话框标题

‘控制类型

‘***********标准定义文件***********

Include“mapbasic.def”

Include“icons.def”

Include“menu.def”

‘**********进程声明**********

DeclareSubMain

DeclareSubYe_denm

DeclareSubYe_ButtonPad

DeclareSubYe_Menu

DeclareSubYe_Tool

DeclareSubYe_graph

DeclareSubYe_Dialog

DeclareSubMenu_Test

DeclareSubButton_Test

DeclareSubYe_about

DeclareSubYe_Exit

DeclareSubYe_Button1

DeclareSubYe_Buttonn2

DeclareSubClose_all

DeclareSubClose_some

DeclareSubOpen_File

DeclareSubOpen_world

DeclareSubMake_ellipse

‘*************************

‘建立主菜单

‘*************************

SUBMain

0nerrorgotosub_err

CreateMenu“风景点”As

“按地区分”CallingYe_demo,

“按类型分”CallingYe_demo,

“按最佳旅游季节分”CallingYe_demo,

“（-“,

“风景点向导”CallingYe_demo

CREATEMENU“建立”As

“用户菜单“CallingYe_menu

“按钮盒\tCtrl+B/W^B/Mb/XCtrl+b”CallingYe_Buttonpad

“对话框\tCtrl+D/W^D/Md/XCtrl+d”CallingYe_Dialog

CreateMenu“创建对象”As

“点”CallingYe_demo,

“直线”CallingYe_demo,

“椭圆”CallingMmake_ellipse,

“折线”CallingYe_demo,

“矩形”CallingYe_demo,

“圆角矩形”CallingYe_demo,

“圆弧”CallingYe_demo,

“区域”CallingYe_demo,

“文本”CallingYe_demo,

“标签”CallingM_TOOLS_LABELER

CreateMENU“演示菜单”As‘****建立用户主菜单****

“建立”As“建立”,

“工具栏...”CallingYe_Tool,

“（-“,

“设置更新口令”CallingYe_demo,

“（-“,

“数据备份”CallingYe_demo,

“数据恢复”CallingYe_demo

CreateMenu“系统菜单”As

“打开表”ID111CallingOpen_File,

“关闭表”CallingClose_some,

“全部关闭”CallingClose_all,

“（-“,

“世界地图”IDll2CallingOpen_world,

“（-“,

“退出”CallingYe_exit

CreateMenu“旅游查询”As

“风景点”As“风景点”,

“风土人情”CallingYe_demo,

“路线”CallingYe_demo

CreateMenu“旅游统计图”As

“旅游收入”CallingYe_graph,

“旅游人数”CallingYe_demo,

“旅游淡旺季”CallingYe_demo

CreateMenu“帮助”As

“主题索引”CallingM_HELP_CONTENTS,

“Web页搜索”CallingM_HELP_CONNECT_MIFORUM,

“（-“,

“关于”CallingYe_about

CreateMenu“对象”As

“创建对象”As“创建对象”,

“（-“,

“折线转换成区域”CaingYe_demo,

“区域转换成折线”CallingYe_demo

AlterMenuItemYe_demoDisable

CreateMenuBarAs

“系统菜单”,”演示菜单”,”对象”,”旅游查询”,”旅游统计图”,”帮助”

‘’’****将所建立的用户菜单加入菜单栏*******

AlterBUTTONPAD“绘图”Hide‘**将不使用的按钮盒隐藏**

AlterBUTTONPAD“ODBC”HIDE

ALTERBUITONPAD“主”HIDE

ALTERBUTTONPAD“常用”HIDE

MENUBARSHOW‘****显示新菜单栏****

OpenTable“景点分布”As景点分布Interactive

OpenTable“省”As省Interactive

OpenTable“市”As市Interactive

MapFrom景点分布，市，省

Position（0.0520833,0.0520833）Units“in”

Width4.125Units“in”Height2.36458Units“in”

SetWindowFrontWindow（）MaxScrollBarsOffAutoscrollOn

SetMap

CoordSysEarthProjection1,0

Center（119.6263825,29,3124845）

Zoom86.15402206Units“mi”

PreserveZoomDisplayZoom

XYUnits“degree”DistanceUnits“mi”AreaUnits“sqmi”

SetMap

Layer1

DisplayGraphic

LabelLineArrowPositionRightFont（“Arial”,0,12,0）Pen（1,2,0）

Withname

ParallelOnAutoOffOverlapOffDuplicatesOnOffset2

VisibilityOn

Layer2

DisplayGraphic

LabelLineArrowPositionRightFont（“Arial”,0,12,0）Pen（1,2,0）

With市

ParallelOnAutoOffOverlapOffDuplicatesOnOffset2

VisibilityOn

Layer3

DisplayGraphic

LabelLineArrowPositionRightFont（“Arial”,0,12,0）Pen（1,2,0）

With省

ParallelOnAutoOffOverlapOffDuplicatesOnOffset2

VisibilityOn

CreateButtonPad“用户”As

ToolButton

IconMI_ICON_ARROW

CallingM_TOOLS_SELECTOR

HelpMsg“Selectobjectsforediting\n选择”

ToolButton

IconMI_ICON_ZOOM_IN

CallingM_TOOLS_EXPAND

HelpMsg“工具按钮\n放大”

ToolButton

IconMI_ICON_ZOOM_OUT

CallingM_TOOLS_SHRINK

HelpMsg“工具按钮\n缩小”

ToolButton

IconMI_ICON_ZOOM_QUESTION

HelpMsg“工具按钮＼n问题”

ToolButton

IconMI_ICON_GRABBER

CallingM_TOOLS_RECENTER

HelpMsg“工具按钮\n平移”

ToolButton

IconMI_ICON_INFO

CallingM_TOOLS_PNT_QUERY

HelpMsg“工具按钮\n信息”

PushButton

IconMI_ICON_MISC_15

CallingYe_Button1

HelpMeg“用户开关按钮＼n按压式”

ToggleButton

IconMI_ICON_MAPSYMB_20

CallingYe_Button2

HelpMsg“用户触发式按钮＼n触发式”

Show

SetwindowFrontWindow（）title“一个用户界面程序的演示示例”

ExitSub

Sub_err:

NoteError$（）

ExitSub

EndSub

‘’****************

‘’建立菜单

‘’****************

SUBYe_Menu

Onerrorgotosub_err

Createmenu“新菜单”as

“菜单项一”id3000CallingMenu_Test,

“删除菜单”id3001CallingMenu_Test

altermenubaradd“新菜单”

menubarshows

exitsub

sub_err:

noteError$（）

exitsub

EndSub

‘’***************

‘’菜单调试

‘’**************

SUBMenuTest

DoCaselnt（CommandInfo（CMD_INFO_MENUITEM））

Case3000

Nots“您已经选用了菜单项一”

Case3001

Note“新菜单将被删除”

Altermenubarremove“新菜单”

EndCase

Menubarshow

EndSub

‘’**********************

‘’建立按钮盒

‘’**********************

SUBYe_buttonPad

CreateBUTTONNPAD“用户按钮”As

ToolButton‘’具按钮

IconMI_ICON_ARROW‘图标

CursorMI_CURSOR_CROSSSHAIR‘光标

CallingButton_Test‘调用进程

Id1001‘ID号

HelpMsg“工具按钮\n工具按钮”‘帮助信息

PUSHBUTTON‘佃发式按钮

ICONMI_ICON_HELP

CallingButton_Test

HelpMsg“触发式按钮\n触发式按钮”

Id1002

ToggleButton

IconMI_ICON_MAPSYMB_16

CallingButton_Test

ID1003

HelpMsg“开关式按钮\n开关式按钮”

SHOW

FIXED

EndSub

‘’*************

‘’按钮盒测试

‘’*************

SUBButton_Test

Onerrorgotosub_err

DOCaseInt（CommandInfo（CMD_INFO_TOOLBTN））

Case1001

Ifnumwindows（）=OThen

NOTE“工具型技钮盒”+CHR$（10）+”请在地图窗口中使用”

Exitsub

ElseIfWindowInfo（FrontWindow（）,WIN_INFO_TYPE）<>WIN_MAPPERThen

NOTE“工具型按钮盒”+CHR$（10）+”请在地图窗口中使用”

exitsub

else

note“当前光标位置”+CHR$（10）+”x：

”+str$（CommandInfo（CMD_INFO_X））+”y：

”+str$（CommandInfo（CMD_INFO_Y））

EndIf

Case1002

Note“触发型按钮盒”

Case1003

Note“按压型按钮盒”

EndCase

Exitsub

Sub_err:

NoteError$（）

Exitsub

EndSub

SubYe_Button1

Note“按压型按钮盒”

EndSub

SubYe_Button2

Note“触发型按钮盒”

EndSub

‘’**********

‘’建立对话框

‘’**********

SUBYe_dialog

DimfilenameasString

Dimcntrl_valasInteger

Dialog

Title“一个用户界面演示程序”

ControlStaticText

Title“面板文本”

Position20,5

ControlPopupMenu

Title“下拉式菜单选项—1选项—2：

”

Position90,5

ControlGroupBox

Title“群组选择框”

Position10,20

Width80Height40

ControlRadioGroup

Title“&R单选一;&R单选二”

Position20,32

Valuel

Intocntrl_val

ControlListBox

Title“列表选择框;选项—1;选项—2；选项—3选项—4；选项—5;选项—6”

Width80height40

Positionl05,25

ControlStaticText

Title“线型：

”

Position20,70

ControlPenPicker

Position60,70

Width20Height20

ControlGroupBox

Title“编辑文本将存于：

”

Position10,100

Width160Height40

ControlEditText

Value“文件名”

Int