开发范例-小白-

1、昨天现学现卖,帮小慧写了Mapbasic 的一些小程序主要功能:面积计算,条件查询。虽然第一次写GIS的二次开发程序,不过感觉上手真的很快。也就是用了1个半小时,就把大概的知识点过了一遍,接着就开始对着Mapbasic开始敲键盘。不过毕竟没有基础,写出来的程序很丑陋(不会basic语言,所以很多东西写得特别长在此把代码贴出,希望路过的朋友,可以看看。nclude "mapbasic.def"Include "menu.def"declare Sub 道路declare Sub 高薪产业区declare Sub 工业发展用地declare Sub 教育科研

2、用地declare Sub 居住用地declare Sub 绿地declare Sub 行政办公用地declare Sub 文化娱乐用地declare Sub 面积Declare Sub duihuaDeclare Sub MainDeclare Sub tiaojianDim mianji as FloatDim i as IntegerDim mianji1 as floatDim zongmianji1 as floatDim jilushu as IntegerSub MainCreate Menu "条件查询" as "请输入条件" Calli

3、ng tiaojianAlter Menu Bar Add "条件查询"Create Menu "统计查询" as "面积" Calling duihuaAlter Menu Bar Add "统计查询"Create Menu "分类查询" as "道路" Calling 道路,"高薪产业区" Calling 高薪产业区,"工业发展用地" Calling 工业发展用地,"教育科研用地" Calling 教育科研用地,

4、"居住用地" Calling 居住用地,"绿地" Calling 绿地,"行政办公用地" Calling 行政办公用地,"文化娱乐用地" Calling 文化娱乐用地Alter Menu Bar Add "分类查询"End SubSub tiaojianDim yongdileixing as StringDim xiao,da as IntegerDialogTitle "条件查询"Control StaticTextInto yongdileixingControl St

5、aticTextTitle "查询的用地类型"Control EditTextInto yongdileixingControl StaticTextTitle "面积的最小值"Control EditTextInto xiaoControl StaticTextTitle "面积的最大值"Control EditTextInto daControl OkButtonTitle "确定"Control CancelButtonTitle "取消"Open Table "c:shix&q

6、uot; + yongdileixingIf yongdileixing = "教育科研用地" ThenFetch First From 教育科研用地Do While Not EOT(教育科研用地mianji = Area(教育科研用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "教育科研用地id:" + i + "面积:" + Str$(mianjiE

7、nd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 教育科研用地LoopEnd IfIf yongdileixing = "居住用地" ThenFetch First From 居住用地Do While Not EOT(居住用地mianji = Area(居住用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "居住用地

8、id:" + i + "面积:" + Str$(mianjiEnd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 居住用地LoopEnd IfIf yongdileixing = "道路" ThenFetch First From 道路Do While Not EOT(道路mianji = Area(道路.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji&

9、lt;=da Theni = i + 1Print "道路id:" + i + "面积:" + Str$(mianjiEnd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 道路LoopEnd IfIf yongdileixing = "高薪产业区" ThenFetch First From 高薪产业区Do While Not EOT(高薪产业区mianji = Area(高薪产业区.obj,"sq km"If CommandInfo (CMD_IN

10、FO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "高薪产业区id:" + i + "面积:" + Str$(mianjiEnd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 高薪产业区LoopEnd IfIf yongdileixing = "文化娱乐用地" ThenFetch First From 文化娱乐用地Do While Not EOT(文化娱乐用地mianji = A

11、rea(文化娱乐用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "文化娱乐用地id:" + i + "面积:" + Str$(mianjiEnd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 文化娱乐用地LoopEnd IfIf yongdileixing = "行政办公用地" Then

12、Fetch First From 行政办公用地Do While Not EOT(行政办公用地mianji = Area(行政办公用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "行政办公用地id:" + i + "面积:" + Str$(mianjiEnd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 行政

13、办公用地LoopEnd IfIf yongdileixing = "工业发展用地" ThenFetch First From 工业发展用地Do While Not EOT(工业发展用地mianji = Area(工业发展用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "工业发展用地id:" + i + "面积:" + Str$(mianjiEnd IfE

14、lsePrint "没有您要搜索的对象名称"End IfFetch Next From 工业发展用地LoopEnd IfIf yongdileixing = "绿地" ThenFetch First From 绿地Do While Not EOT(绿地mianji = Area(绿地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "绿地id:" + i +

15、"面积:" + Str$(mianjiEnd IfElsePrint "没有您要搜索的对象名称"End IfFetch Next From 绿地LoopEnd IfEnd SubSub duihuaDim search As StringDialogTitle "面积查询"Control StaticTextTitle "输入您要查询的用地类型"Control EditTextInto searchControl OKButtonTitle "确定"Control CancelButtonTit

16、le "取消"Open Table "C:shix" + searchIf search = "教育科研用地" ThenDim i,counter as IntegerFetch First From 教育科研用地Do While Not EOT(教育科研用地mianji1 = Area(教育科研用地.obj,"sq km"i = i + 1If CommandInfo (CMD_INFO_DLG_OK Thenprint "教育科研用地id" + i +":" + Str$

17、(mianji1Else print "没有您要搜索的对象名称" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 教育科研用地 Loop print "教育科研用地总面积为：" + Str$(zongmianji1 End If If search = "高薪产业区" Then Dim a as Integer Fetch First From 高薪产业区 Do While Not EOT(高薪产业区 mianji1 = Area(高薪产业区.obj,"s

18、q km" a = a + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "高薪产业区 id" + a + ":"+Str$(mianji1 Else print "没有您要搜索的对象名称" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 高薪产业区 Loop print "高薪产业区总面积为：" + Str$(zongmianji1 End If If search = "居住用地

19、" Then Dim b as Integer Fetch First From 居住用地 Do While Not EOT(居住用地 mianji1 = Area(居住用地.obj,"sq km" b = b + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "居住用地 id" +b+ ":" + Str$(mianji1 Else print "没有您要搜索的对象名称" End If zongmianji1 = zongmianji1 + mianji1 F

20、etch Next From 居住用地 Loop print "居住用地总面积为：" + Str$(zongmianji1 End If If search = "行政办公用地" Then Dim c as Integer Fetch First From 行政办公用地 Do While Not EOT(行政办公用地 mianji1 = Area(行政办公用地.obj,"sq km" c = c + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "行政办公用地 id"+c

21、 +":"+ Str$(mianji1 Else print "没有您要搜索的对象名称" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 行政办公用地 Loop print "行政办公用地总面积为：" + Str$(zongmianji1 End If If search = "文化娱乐用地" Then Dim d as Integer Fetch First From 文化娱乐用地 Do While Not EOT(文化娱乐用地 mianji1

22、 = Area(文化娱乐用地.obj,"sq km" d = d + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "文化娱乐用地 id" +d+":"+ Str$(mianji1 Else print "没有您要搜索的对象名称" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 文化娱乐用地 Loop print "文化娱乐用地总面积为：" + Str$(zongmianji1 En

23、d If If search = "绿地" Then Dim r as Integer Fetch First From 绿地 Do While Not EOT(绿地 mianji1 = Area(绿地.obj,"sq km" r = r + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "绿地 id" +r+":"+ Str$(mianji1 Else print "没有您要搜索的对象名称" End If zongmianji1 = zongmian

24、ji1 + mianji1 Fetch Next From 绿地 Loop print "绿地总面积为：" + Str$(zongmianji1 End If If search = "道路" Then Dim v as Integer Fetch First From 道路 Do While Not EOT(道路 v = v + 1 mianji1 = Area(道路.obj,"sq km" If CommandInfo (CMD_INFO_DLG_OK Then print "道路 id" +v+":" +Str$(mianji1 Else print "没有您要搜索的对象名称" End If