1、MapBasic编程1.1 制作菜单栏1.1.1 制作全新的菜单栏1.1.2 修改已有菜单栏1.2 菜单制作1.2.1 全新菜单的制作1.2.2 更改原有菜单1.3 对话框制作1.3.1 标准对话框1.3.2 自定义对话框制作1.3.3 控件的位置和大小1.3.4 控件类型1.3.5 控件的初值和终值1.4 窗口1.4.1 窗口的大小和位置1.4.2 地图窗口1.4.3 浏览窗口1.4.4 统计窗口1.4.5 布局窗口1.4.6 信息窗口1.4.7 消息窗口1.5 工具条1.5.1 工具条的类型1.5.2 工具条的操作1.5.3 创建触发式型按钮1.5.4 创建工具按钮1.5.5 向“主”工具
2、条添加一个按钮1.5.6 选择按钮图表1.5.7 运行MapBasic应用程序1.6 MapBasic过程1.6.1 MapBasic主过程1.6.2 MapBasic子过程1.7 MapBasic变量1.8 MapBasic的表达式1.8.1 MapBasic的函数1.8.2 MapBasic的运算符1.1 分支、循环和其他流程控制1.1.1 分支语句1.1.2 循环语句1.1.3 其他流程控制语句1.10 MapBasic的表操作1.11 习题1 1.1 制作菜单栏菜单栏是MapInfo工作区域顶部的水平条，初始状态下的MapInfo的菜单栏包括“File”，“Edit”，“Objects
3、”，“Query”等。1.1.1 制作全新的菜单栏语法：CreateMenuBarAs菜单名 或ID菜单号,菜单名 或ID菜单号.【例1-1】制作一个全新菜单栏，包含“File”，“Edit”，“Query”，“Map”，“Browse”菜单。代码如下：Create Menu Bar As?汩履尬摅瑩?兜敵祲?灡?潲獷履图1-1 全新菜单栏1.1.2 修改已有菜单栏1.删除菜单语法：AlterMenuBar Remove菜单名 或ID菜单号,菜单名 或ID菜单号.【例【例1-2】在原有菜单栏的基础上，删除】在原有菜单栏的基础上，删除“Windows”，“Help”菜单。菜单。代码如下：Alte
4、r Menu Bar Remove ID 6,ID 7 图1-2 删除菜单2.增加菜单语法：Alter Menu Bar Add菜单名菜单名 或或 ID 菜单号,菜单名 或或 ID 菜单号菜单号.【例1-3】在原有菜单栏的基础上，增加“DataEntry”菜单。代码如下：Alter Menu Bar Add DataEntry 图1-3 增加菜单图1-4 在菜单栏中间增加菜单3.恢复菜单语法：CreateMenuBarAsDefault若放弃对菜单栏的修改，恢复原有菜单样式，可以运行以下代码：Create Menu Bar As Default1.2 菜单制作1.2.1全新菜单的制作语法：Cr
5、eate Menu 新菜单名ID菜单号As菜单项1ID菜单号 Calling handler|As菜单名,菜单项2.【例1-4】制作全新菜单“DataEntry”。代码如下：Create Menu?瑡?瑮祲As制作“DataEntry”菜单?摤,菜单有三个菜单项?楤屴,?汥瑥履Alter Menu Bar Add?瑡?瑮祲将菜单添加到菜单栏中图1-5 制作全新菜单1.2.2 更改原有菜单语法：CreateMenu新菜单名ID菜单号As菜单项1ID菜单项 Callinghandler|As菜单名,菜单项2.【例1-5】更改原有菜单“File”的内容。代码如下：Create Menu?楆敬As?敎
6、屷,?灏湥,?汃獯履,?慓敶,?牐湩屴,?硅瑩图1-6 更改原有菜单1.3 对话框制作1.3.1标准对话框1.消息对话框语法：Note消息图1-7 消息对话框【例1-6】例如显示一个“查询成功！”的消息对话框。代码如下：Note 查询成功！2.询问对话框询问对话框语法：Ask(提示信息,确定文本,取消文本)【例1-7】下面的例子用生成一个简单询问对话框。Dim more As Logicalmore=Ask(Do you want tocontinue?,OK,Stop)运行结果如图1-8所示。图1-8 询问对话框3.选择文件对话框语法：FileOpenDlg(路径,文件名,文件类型,标题)【
7、例1-8】下面的程序用 FileOpenDlg()函数显示提示用户打开一个文件的对话框。Dim s_filename As Strings_filename=FileOpenDlg(,TAB,OpenTable)运行结果如图1-1所示。图1-1 选择文件对话框1.3.2 自定义对话框制作【例1-1】下面是生成一个自定义对话框的代码：Dialogtitle 按省份名Control Statictexttitle 请输省份名尺Control EdittextControl OkbuttonTitle 确定Control CancelbuttonTitle 取消图1-10 自定义对话框图1-11 指
8、定位置和大小1.3.3 控件的位置和大小控件的大小由Width（宽）和Height（高）控制。位置和大小采用对话框单位为单位，每个对话框单位表示一个字符宽度的 1/4或一个字符高度的1/8，以对话框的左上角为原点，它的位置是（0，0）。【例1-10】下面的例程指定了控件的位置及大小。DialogTitle 按省份名Control StaticTextTitle 请输省份名尺Control EditTextControl OkButtonWidth 20Height 12Title 确定Position 60,32Control CancelButtonWidth 20Height 12Titl
9、e 取消Position 100,32运行结果如图1-11所示。1.3.4 控件类型1.静态文本控件语法：ControlStaticTextPositionx,yWidth宽度Height高度ID控件号Title标题【例1-11】下面是生成一个静态文本控件的代码：DialogControl StaticTextTitle Enter map 楴汴?Position 5,10Control OkButton图1-12 静态文本控件Control CancelButton运行结果如图1-12所示。2.输入文本控件输入文本控件语法：ControlEditTextPositionx,yWidth宽度H
10、eight高度ID控件号Value初始值Into变量【例1-12】下面是生成一个输入文本控件的代码：DialogControl EditTextControl OkButtonControl CancelButton运行结果如图1-13所示。图1-13 输入文本控件3.组合框控件语法：ControlGroupBoxPosition x,yWidth宽度Height高度Title标题【例1-13】下面是生成一个组合框的代码：DialogControl GroupBoxTitle Level of Detail Position 5,30Height 40Width 70Control OkBut
11、tonControl CancelButton运行结果如图1-14所示。4.单选项组合控件语法：Control RadioGroup图1-14 组合框控件 Position x,y ID控件号 Calling过程 Title 字符串表达式 或 From Variable字符串变量 Value初始选项 Into变量【例1-14】下面是生成一个单选项组合控件的代码：DialogControl RadioGroupTitle&Full Details;&Partial 敄慴汩屳Position 15,42Control OkButtonControl CancelButton运行结果如图1-15所示
12、。5.Picker选取对象类控件语法：ControlPenPicker或或BrushPicker或或SymbolPicker 或或 FontPicker Position x,y Width 宽度 Height 高高度度 ID控件号Calling过程过程Value样式表达式Into样式变量【例1-15】下面是生成一个文本选取控件的代码：DialogControl FontPickerPosition 140,42Control OkButtonControl CancelButton运行结果如图1-16所示。图1-16 文本选取控件6.ListBox列表框控件语法：Control ListBo
13、xPositionx,yWidth宽度Height高度ID控件号Calling过程Title字符串表达式 或FromVariable字符串变量Value初始选项Into变量【例1-16】下面是生成一个列表框控件的代码：DialogControl ListBoxTitle st Quarter;2ndQuarter;3rd Quarter;4th畑牡整屲Position 10,12Height 40Control OkButtonControl CancelButton运行结果如图1-17所示。图1-17列表框控件7.多重列表框控件多重列表框控件语法：ControlMultiListBoxPos
14、itionx,yWidth宽度Height高度ID控件号Calling过程Title字符串表达式 或FromVariable字符串变量Value初始选项Into变量【例1-17】下面是生成一个多重列表框控件的代码：DialogControl MultiListBoxTitle 卜牴敥獴?杩睨祡?潔湷?潃湵牴敩?瑓瑡獥Position 10,12Width 65Height 35Control OkButtonControl CancelButton运行结果如图1-18所示。图1-18 多重列表框控件8.下拉列表框控件语法：ControlPopupMenuPositionx,yWidth宽度ID
15、控件号Calling过程TitleTitle 字符串表达式或FromVariable字符串变量Value初始选项Into选项变量【例1-18】下面是生成一个下拉列表框控件的代码：DialogControl PopupMenuTitleTown;County;Territory;Region;Entire瑳瑡履Position 10,150Control OkButtonControl CancelButton图1-11 下拉列表框控件1.复选框控件语法：ControlCheckBoxPositionx,yWidth宽度ID控件号Calling过程Title标题Value逻辑值Into逻辑变量【
16、例1-11】下面是生成一个复选框控件的代码：DialogControl CheckBoxTitle Include?来湥層Position 115,155Control OkButton图1-20 复选框控件Control CancelButton运行结果如图1-20所示。10.按钮控件MapBasic包含两个按钮：OkButton和CancelButton。1.3.5 1.3.5 控件的初值和终值控件的初值和终值大部分控件都有一可选的 Value从句，这个从句定义了对话框第一次显示时该控件的状态。大多控件都有一Into从句，这个从句后面有一个变量，MapInfo用这个变量存储对话框的数据。如
17、果有Into从句，用户通过单击“Ok”按钮确认该对话框后，MapInfo会用Into后的变量存储控件的最终值。1.4 窗口MapBasic应用程序能够控制所有的MapInfo窗口，包括标准窗口、地图窗口、浏览（Browse）窗口、布局（Layout）窗口、专题图（Graph）窗口、信息窗口。1.4.1窗口的大小和位置窗口的大小和位置可以通过两种方法控制：在打开的窗口的同时指定窗口的大小和位置。【例1-20】下面的语句指定地图窗口及布局窗口的位置及大小：Open Table 睜牯摬Open Table 捜獵?尴As customersMap from customers,worldPositio
18、n(1,1)Width 3Height 2Layout Position(0,0)Width 2Height 4 在打开窗口后调整窗口的位置和大小。使用Set Window语句。语法：SetWindow窗口号Position(x,y)Units纸面单位 Width窗口宽度 Units纸面单位 Height 窗口高度窗口高度 Units 纸面单位纸面单位 1.4.2地图窗口1.图层的操作增加图层的语法为：AddMapWindow窗口号Layer表1,表2.AutoAnimate 2.设置地图投影可以使用Set Map CoordSys.语句改变地图投影，若要保存投影，使用 Commit Tabl
19、e.As.CoordSys.语句。3.制作专题图专题图有六种形式。每种都可以用相应的MapBasic语句实现。(1)范围值范围值(rangesofvalues)语法：ShadeWindow窗口号图层号 或 图层名With表达式Ignore忽略的数值RangesApply Color或Size或All 【例1-22】下面的例子是根据美国 1110年人口生成的范围值图，总共有三个范围，每个范围用不同颜色、样式填充。Open TablestatesMap FromShade states With Pop_1110 Ranges4827000:21280000 Brush(2,0,201326511
20、),1783000:4827000 Brush(8,0,16777215),441000:1783000 Brush(5,0,16777215)(2)独立值(individual values)语法：ShadeWindow窗口号图层号 或 图层名With表达式Ignore忽略的数值Values字段 1Pen.Line.Brush.Symbol.,字段2Pen.Line.Brush.Symbol.【例 1-23】下面的例子假定“uk_sales”表中有“Sales_Rep”字段，该字段代表在英国销售代理的名字。根据销售商来制作独立值图。Open Table 甥彫慳敬屳Map From uk_sa
21、lesShade 1 With Proper$(Sales_Rep)Ignore ValuesAlan,Amanda,Bob,?湡(3)点密度(dotdensity)语法：ShadeWindow窗口号图层号 或 图层名With表达式Density数值:点的尺寸Color颜色号【例1-24】下面的例子根据人口制作点密度图，60000个人用一个4个像元大小的点表示。OpenTable卜慴整屳MapFromstatesShadestatesWithNum_HH_10Density 60000:4(4)等级符号等级符号(graduated symbols)语法：ShadeWindow窗口号图层号 或
22、图层名With表达式Graduated最小值:符号大小最大值:符号大小Symbol.InflectSymbol.Vary Size By屻屻 佌屇佌屇或卜剑屔卜剑屔或CONST【例1-25】下面的例子建立等级符号表示利润和亏损。商店盈利则用绿色上三角表示，商店亏损则用红色下三角表示。Shade stores With Net_ProfitGraduated0.0:0 15000:24Symbol(36,GREEN,24)Inflect Symbol(37,RED,24)Vary Size By 卜剑屔(5)饼图饼图(piecharts)语法：ShadeWindow窗口号图层号 或 图层名 或
23、选择集With表达式1，表达式2.Half PieAngle角度Counter Fixed Max Size饼尺寸 Units单位名称 At Value 最大值 Vary Size By LOG|SQRT|CONST 【例1-26】下面的例子产生的饼图为同一尺寸。Shade sales_15 With phone_sales,retail_salesPie Fixed慍?楓敺?金 湕瑩?据屨【例1-27】下面的例子创建一个变化大小的饼图。如果记录的总和为85000，它对应的饼图为0.25英寸，记录的值越小，饼图也越小。Shade sales_15 With phone_sales,retail
24、_salesPieMax Size 0.25 Units?据屨At Value 85000【例1-28】下面的例子创建专题图，将饼图放置在图形对象中央。Shade sales_15 With phone_sales,retail_salesPieAngle 180Max Size 0.5 Units?据屨At Value 85000Vary Size By 卜剑屔Border Pen(1,2,0)Position Center AboveStyle Brush(2,RED,0),Brush(2,BLUE,0)(6)直方图直方图(barcharts)语法：ShadeWindow窗口号图层号 或
25、图层名 或 选择集With表达式1，表达式2.BarNormalized或StackedBarFixed Max Size最大尺寸 Units单位名称At Value最大值 Vary Size By屻屻佌屇佌屇或 卜剑屔卜剑屔或CONST 【例1-21】下面的例子创建直方图，并将直方图定位在地图对象中心点上方，Shade sales_13With phone_sales,retail_salesBarMax Size 0.4 Units?据屨 At Value 1245000Vary Size By CONSTBorder Pen(1,2,0)Position Center AboveStyl
26、e Brush(2,RED,0),Brush(2,BLUE,0)1.4.3浏览窗口语法：语法：Browse表达式列表From表Position(x,y)Units纸面单位 Width窗口宽度Units纸面单位 Height窗口高度Units纸面单位 Row行号Column列号Min或Max【例1-21】下面的例子仅显示省份和人口。Browse 省份,人口 from 政区图1-21 显示所有字段图1-22 显示选择字段【例1-31】下面的例子将第十九行和第二列显示在浏览窗口的左上角。Browse*from WorldRow 11Column 2图1-23 浏览窗口【例1-32】下面的例子指定了表
27、达式，用人口除以面积得到密度这一项，并将该表 达 式 的 名 称 改 为“Density”（“密度”）。Open Table 睜牯摬Browsecountry,population,population/area(obj,sq km)?湥楳祴From world1.4.4统计窗口语法：Graph标注列,表达式1，表达式2.From表Position(x,y)Units纸面单位 Width窗口宽度Units纸面单位 Height窗口高度Units纸面单位 Min或Max【例1-33】下面的例子创建人口统计图。Graph人口From 政区运行结果如图1-24所示。图1-24 统计窗口1.4.5布局
28、窗口语法：LayoutPosition(x,y)Units纸面单位 Width窗口宽度Units纸面单位Height窗口高度Units纸面单位 Min 或 Max 【例1-34】例如下面的例子选择布局窗口中所有的对象。Select*From Layout1【例1-35】下面的例子创建一个布局窗口。Layout Position(0,0)Width 2 Height 4运行结果如图1-25所示。图1-25 布局窗口1.4.6信息窗口【例1-36】下面的例子创建一个信息窗口。Include?灡慂楳?敤屦Open Table 坜牯摬 InteractiveSelectCountry，Capital,
29、Inflat_Rate+0?普慬楴湯From World Into World_QuerySet Window InfoTitle Country 慄慴Table World_Query Rec 1Font MakeFont(Arial,1,10,BLACK,WHITE)Width 3 Units 楜屮Height 1.2 Units 楜屮Position(2.5,1.5)Units 楜屮Front1.4.7 消息窗口语法：Print 消息消息在窗口信息中实现换行，可以用下面的语句：图1-26 消息窗口的换行Print Map 慌敹獲尺+Chr$(10)+World,慃楰慴獬运行结果如图1-2
30、6所示。图1-27设置消息的字体及颜色【例1-37】下面的例子创建一个消息窗口，设置了大小和字体样式。Include?偁?屆 needed for color nameBLUEOpen Window Message open Message windowSet Window MessageFont(Helv,1,10,BLUE)Helvetica bold.Position(0.25,0.25)place in upper leftWidth 3.0 make window 尳wideHeight 1.0 make window 就highPrint MapBasic Dispatcher n
31、ow on 楬敮运行结果如图1-27所示。1.5 工具条图1-28 标准工具条图1-21 绘图工具条图1-30 主工具条1.5.1工具条的类型1.PushButtons按钮这种叫做触发式按钮。当用户按下ToolButtons按钮后，按钮立即复位，并调用相应的处理程序。2.ToggleButtons按钮这种按钮叫做开关式按钮。当用户单击ToggleButtons按钮时，这种按钮会在按下与没按下之间切换。3.ToolButton按钮这种称为工具按钮。当用户单击这种按钮时，它处于活动状态，直到用户单击了另外的按钮。1.5.2工具条的操作1.创建工具条创建一个新工具条的语句为：CreateButton
32、Pad2.激活工具条创建一个工具条，并不能立刻显示在窗口中，需要使用下面的语句激活：AlterButtonPad3.激活按钮4.按钮的返回值1.5.3创建触发式型按钮1.5.4创建工具按钮1.5.5向“主”工具条添加一个按钮1.5.6选择按钮图表【例1-41】下面的语句定义了一个按钮，并为按钮选择了一个图标，图标代码定义为MI_ICON_INFO：Alter ButtonPad 主Add SeparatorAdd PushButtonIcon MI_ICON_INFOCalling procedure_name图1-31 图标例子窗口 运行图标示例程序“ICONDEMO.MBX”。显示图标例子
33、菜单，如图 1-31所示。单击图标示例菜单，选择一个菜单项，出现一个自定义图标按钮盒。如图 1-32所示。单击某个图标，出现如图 1-33所示的对话框。将对话框中的图标代码复制到剪贴板中。打开MapBasic程序，用Ctrl+V键将图标代码粘贴到应用程序中。图1-32 自定义图标按钮盒图1-33 图标代码对话框1.5.7运行MapBasic应用程序Startup是一个特殊的工作空间，如果该工作空间存在于用户的系统中，MapInfo将自动加载该工作空间，若Startup工作空间中有RunApplication语句，则 MapInfo将自动运行指定的程序。例如，用户要运行应用程序 Query，可以
34、创建如下Startup工作空间：!Workspace!Version 400!Charset NeutralRun Application 兜敵祲洮硢1.6 MapBasic过程1.6.1MapBasic主过程DeclareSubMain声明一个主过程SubMain主过程开始Note Testing,one two 桴敲?显示一个消息End Sub结束主过程1.6.2MapBasic子过程子过程的声明方法如下：DeclareSub子过程名图1-34 查询菜单图1-35 ProvinceName子过程1.7 MapBasic变量MapBasic变量包括全局变量（Global）和局部变量（Dim）
35、。全局变量在整个程序中起作用，而局部变量仅在声明该变量的过程中其作用。变量的类型有短整型（SmallInt）、整型（Integer）、浮点型（Float）、定长字符型（String）、可变长字符型（String*n）、布尔型（Logical）、日期型（Date）、对象型（Object）、列变量（Alias）、线型（Pen）、填充（Brush）、字体（Font）、符号（Symbol）。1.8 MapBasic的表达式1.8.1 MapBasic的函数MapBasic支持许多不同的函数。每一个函数都有不同的作用，如 Sqr()函数计算正方形的面积，而Ucase$()函数将文本字符串改成大写。在表达
36、式中引用函数时，程序就调用该函数并返回函数值。1.8.2MapBasic的运算符1.数字运算符操作符用途相加相减*相乘/相除整除Mod取余乘方2.字符串运算符字符运算符有“+”、“&”、“Like”。3.日期运算符表1-3 MapBasic的日期运算符表达式结果date+integer日期型值，表示以后的日期date-integer日期型值，表示以前的日期date-date整型数，表示过去的天数4.比较运算符表1-4 比较运算符运算符返回TRUE值=相等不相等大于=大于等于Between.And.在范围内5.逻辑运算符表1-5 逻辑运算符运算符返回TRUE值举例And两操作数为真If aAnd
37、 b ThenOr任一操作数为真If a Or b ThenNot操作数为假If Not a Then6.图形运算符图形运算符表1-6 图形运算符运算符返回TRUE值举例Contains目标A包含目标B中心点If a Contains b ThenContains Part目标 A包含目标 B的一部分If a Contains Part b ThenContains Entire目标A包含目标B的全部If a ContainsEntirebThenPartly Within目标 A的一部分在目标 B内If a Partly Within b ThenEntirely Within目标A的全部在
38、目标 B内If a EntirelyWithinbThenIntersects目标A和目标B相交If a Intersects b Then7.运算符的优先级包含多个运算符的复杂表达式，MapBasic会按运算符的优先级规则来确定运算的先后。优先级最高的是“()”，其次指数、取反、乘法、除法、取余、取整运算、加法、减法、字符连接符、图形运算符、比较运算符、Like、Not、And，最低的是“Or”。1.1 分支、循环和其他流程控制1.1.1 分支语句1.If语句(1)If.Then(2)If.Then.Else(3)If.Then.ElseIf.Then【例1-45】下面的例子用来判断当天的日
39、期，若是1月1日，则系统显示一个消息窗“新年好”；若是2月14日，则系统显示一个消息窗“情人节好”；若是12月25日，则系统显示一个消息窗“圣诞节好”；若是12月25日，则系统显示一个消息窗“圣诞节好”；否则，则系统显示一个消息窗“好日子”。2.DoCase语句语句语法：DoCase表达式Case结果表1语句体1Case结果表2语句体2CaseElse语句体nEndCase3.Goto语句语句语法：Goto 标号1.1.2 循环语句1.For.Next语句语法：For循环变量=初始值To终值Step步长循环体ExitFor循环体Next2.While.Wend语句语句语法：While条件循环体
40、Wend 3.Do.Loop语句语句语法：Do循环体Loop Until或While条件或Do Until或While条件循环体Loop1.1.3 其他流程控制语句1.EndProgram语句语法：EndProgram2.Terminate Application语句语法：Terminate Application应用程序名3.EndMapInfo语句语法：EndMapInfo1.10 MapBasic的表操作1.创建新表创建新表语法：Create Table表(column字段数据类型,.)File保存位置 Type NATIVE|Type DBFCharSetchar_set|Type A
41、ccess Database 数据库文件格式2.打开表打开表语法：OpenTable表 As别名 Interactive 3.关闭表关闭表语法：CloseTable表 Interactive 4.删除表删除表语法：DropTable表5.查询表查询表语法：Select表达式列表From表1，表2,.Where表达式条件Into结果表GroupBy字段OrderBy字段5.修改表数据(1)Insert语句语句语法：Insert Into表(字段)Values(字段表达式)或或Select字段From表6.修改表结构语法：AlterTable表(Add 字段1 类型1，字段2 类型2,.Modif
42、y 字段1 类型1，字段2 类型2,.Drop字段1,字段2.Rename旧字段1 新字段1，旧字段2 新字段2,.Order字段1,字段2.)Interactive 1.11 习题1一、思考题1.MapBasic的语句和VB、QB的异同？2.MapBasic的特点在什么地方？3.控件有哪些类型？说明各有什么用途。4.如何读取控件的终值？二、上机练习1.制作一个全新的菜单栏，包含若干菜单和菜单项。2.制作一个简单对话框，并指定它的位置和大小。3.用各种打开窗口的语句打开一个窗口，并指定它的位置和大小。4.用添加、删除工具条的语句自定义一个工具条，里面要包含一个新按钮。5.编辑一段小程序，实现主过程对子过程的调用。6.用表的操作语句，实现对表的创建、修改、删除、重命名、修改表结构等操作。
