成都理工大学-3S-GIS-第八章――MapBasic程序设计基础

MapBasic程序设计,MapBasic基础,什么是MapBasic语言？Mapbasic是一种高级脚本语言，是MapInfo地理信息系统二次开发语言,它通过高级语言来描述、定制和调用Mapinfo的功能来完成用户的需要。它和Mapinfo集成于一体，在MapInfo环境中运行。Mapbasic版本1.04.05.05.56.57.07.88.0,MapBasic基础,MapBasic集成环境MapBasic提供一个集成开发环境，使用该集成环境，用户能完成MapBasic程序的编辑、编译、调试和运行并提供良好的在线帮助。MapBasic集成开发环境由以下几部分组成文本编译器连接器在线帮助,MapBasic基础,MapBasic安装文件名和后缀*.mb源程序*.mbx编译后的程序*.mbp工程文件*.mbo对象文件*.err错误文件,MapBasic基础,建立和运行MapBasic程序（1）运行MapBasic集成环境（2）创建新程序（3）编辑程序（4）编译（5）运行程序,MapBasic基础,一个最简单的MapBasic程序,MapBasic集成开发环境,MapBasic语法,MapBasic语法,一般语法规则注释：单引号，编译时单引号后的字符被忽略字母大小写：不区分跨行输入：Ifcounter=55orcounter=34thenNote“Counterisinvalid”EndIf,MapBasic语法,嵌入Mapbasic.defMapbasic文件是一文本文件，它定义了一些标准的Mapbasic代码，如果要使用Mapbasic定义的标准变量，需要包含Mapbasic.def文件在程序开头加入includemapbasic.def,变量、数据类型和数组,变量声明及赋值用Dim语句声明局部变量。每一个变量必须在使用之前声明。使用“”给变量赋值。DimCounterAsIntergerDimx,y,langitude,latitudeAsFloatDimstart_date,end_dateAsDate,First_name,last_nameAsStringCounter=10X=12.01Start_date=“01/10/2005”,变量、数据类型和数组,变量命名规则每个变量名最长不能超过31个字符变量名中不能有空格变量名必须以字母或者“_”开头变量名由字母、数字、“#”、“_”组成,可以用下列字符结尾$,%,value2;value3;”Value2Into整数变量CheckBoxTitle“”Into整数变量Positionx,yWidth宽度Height高度,对话框,尺寸和位置定义宽度Width高度Height位置position单位：1个对话框单位=1/8字符宽度(高度)ControlOKButtonTitle“确定:”position10,30ControlCancelButtonTitle“取消:”position90,30,一个对话框程序,IncludeMapbasic.defDeclareSubMainDeclareSubReset_SubDeclareSubOK_SubGlobalgs_searchforAsStringSubMainDimi_details,l_showlegendAsIntegerDimmap_name,v_quarter,v_scopeAsIntegerDimSym_variableAsObjectSetStyleSymbol(35,RED,36)DialogWidth165Height190Title图层控制,ControlStaticTextTitle输入地图名称Position5,10ControlEditTextValue中国Intomap_nameID1Position60,8width90ControlGroupBoxTitle地图细节Position5,30Width70Height40ControlRadioGroupTitle列表2;列表3;列表4Value4Intov_quarterID4Position5,90width65Height35ControlMultiListBoxTitle街道;高速公路;城镇;乡村;河流Value3Intov_scopeID5Position95,90width65height35ControlPopupMenuTitle城镇;乡村;全省;ID6Position5,140,ControlCheckBoxTitleInclude&LegendIntol_showlegendID7Position95,140ControlButtonTitle&ResetPosition10,165Callingreset_subControlOKButtonPosition65,165CallingOK_SubControlCancelButtonPosition120,165EndSubSubReset_SubEndSubSubOK_SubENdSub,工具条使用,1.工具条的类型PushButtons按钮：这种叫做触发式按钮。当用户按下ToolButtons按钮后，按钮立即复位，并调用相应的处理程序。ToggleButtons按钮：这种按钮叫做开关式按钮。当用户单击ToggleButtons按钮时，这种按钮会在按下与没按下之间切换。ToolButton按钮：这种称为工具按钮。当用户单击这种按钮时，它处于活动状态，直到用户单击了另外的按钮。,工具条使用,2工具条的操作（1）创建工具条CreateButtonPadCreateButtonPad标识符As按钮类型PushButton|ToolButton|ToggleButtonTitletitle_stringWidthwPosition(x,y)Unitsunit_nameToolbarPosition(row,column)Show|HideFixed|Float,工具条使用,PushButtonHelpMsg提示信息Calling过程名称Icon图标IDToolButtonHelpMsg提示信息Calling过程名称Icon图标IDDrawMode点击模式（clickanddrag）ToggleButtonHelpMsg提示信息Calling过程名称Icon图标ID,工具条使用,CreateButtonPadUtilsAsPushButtonHelpMsgChoosethisbuttontodisplayquerydialogCallingbutton_sub_procIconMI_ICON_ZOOM_QUESTIONToolButtonHelpMsgUsethistooltodrawanewrouteCallingtool_sub_procIconMI_ICON_CROSSHAIRDrawModeDM_CUSTOM_LINEToggleButtonHelpMsgTurnproximitycheckingon/offCallingtoggle_prox_checkIconMI_ICON_RULERTitleUtilitiesWidth3Show,MapInfo表操作,1.创建新表CreateTable表(column字段数据类型,.)File保存位置TypeNATIVE|TypeDBFCharSetchar_set|TypeAccessDatabase数据库文件格式CreateTable四川_人口(地区名称Char(30),人口数float)File四川_人口TypeNATIVE,MapInfo表操作,2打开表OpenTable“d:四川地图四川_省面层.tab”3.关闭表语法：CloseTable表Interactive4.删除表语法：DropTable表名,MapInfo表操作,5.查询表Select表达式列表From表1，表2,.Where表达式条件Into结果表GroupBy字段OrderBy字段select*from四川_地区面层where面积10000into查询结果1,MapInfo表操作,6.修改表数据(1)Insert语句InsertInto表(字段)Values(字段表达式)或Select字段From表(2)Update表Set字段名=表达式,where7.修改表结构AlterTable表(Add字段1类型1，字段2类型2,.Modify字段1类型1，字段2类型2,.)AlterTable四川_地区面层Add(人口Float,GDP1998Float),MapInfo表操作,读取和查询表的数据(1)使用Fetch语句定位到表的某一行(2)表列变量的存取,格式如表名.列名opentableD:jian四川地图四川_地区面层.tabInteractiveDimareaAsFloatDimnameAsStringFetchFirstFrom四川_地区面层Area=四川_地区面层.面积name=四川_地区面层.名称Notename+的面积是：+Area+平方公里,MapInfo表操作,Fetch的用法FetchFirstFetchLastFetchNextFetchPrev,MapInfo表操作,结合SQL查询SQL查询表Browse*from四川_省面层浏览图层属性表select*from四川_地区面层where面积20000Selection表MapInfo当前查询结果保存在表Selection中，可以当普通表一样操作Selection表.,MapInfo表操作,opentableD:jian四川地图四川_地区面层.tabInteractiveMapFrom四川_地区面层DimareaAsFloatDimnameAsStringselect*from四川_地区面层where面积20000Dimi,nAsIntegern=SelectionInfo(SEL_INFO_NROWS)FetchFirstFromselectionFori=1tonArea=selection.面积name=selection.名称Notename+的面积是：+Area+平方公里FetchNEXTFromselectionNEXT,MapInfo图形对象,对象变量ObjectDimA,BAsObject对象从查询中获取DimAAsObjectselect*from四川_地区面层where名称=成都市A=selection.obj,MapInfo图形对象,获取对象类型和属性ObjectInfo(obj,参数)参数OBJ_INFO_TYPE返回对象类别OBJ_INFO_PEN返回对象属性OBJ_INFO_BRUSHOBJ_INFO_TEXTFONT返回值OBJ_TYPE_ARCOBJ_TYPE_ELLIPSEOBJ_TYPE_LINEOBJ_TYPE