开发范例-小白.doc

开发范例-小白.txt人和人的心最近又最远，真诚是中间的通道。试金可以用火，试女人可以用金，试男人可以用女人-往往都经不起那么一试。昨天现学现卖，帮小慧写了Mapbasic 的一些小程序 主要功能：面积计算，条件查询。 虽然第一次写GIS的二次开发程序，不过感觉上手真的很快。也就是用了1个半小时，就把大概的知识点过了一遍，接着就开始对着Mapbasic开始敲键盘。 不过毕竟没有基础，写出来的程序很丑陋（不会basic语言，所以很多东西写得特别长）在此把代码贴出，希望路过的朋友，可以看看。nclude mapbasic.defInclude menu.defdeclare Sub 道路declare Sub 高薪产业区declare Sub 工业发展用地declare Sub 教育科研用地declare Sub 居住用地declare Sub 绿地declare Sub 行政办公用地declare Sub 文化娱乐用地declare Sub 面积Declare Sub duihuaDeclare Sub Main Declare Sub tiaojianDim mianji as Float Dim i as Integer Dim mianji1 as floatDim zongmianji1 as floatDim jilushu as Integer Sub Main Create Menu 条件查询 as 请输入条件 Calling tiaojian Alter Menu Bar Add 条件查询 Create Menu 统计查询 as 面积 Calling duihua Alter Menu Bar Add 统计查询 Create Menu 分类查询 as 道路 Calling 道路, 高薪产业区 Calling 高薪产业区, 工业发展用地 Calling 工业发展用地, 教育科研用地 Calling 教育科研用地, 居住用地 Calling 居住用地, 绿地 Calling 绿地, 行政办公用地 Calling 行政办公用地, 文化娱乐用地 Calling 文化娱乐用地 Alter Menu Bar Add 分类查询 End Sub Sub tiaojian Dim yongdileixing as String Dim xiao,da as Integer Dialog Title 条件查询 Control StaticText Into yongdileixing Control StaticText Title 查询的用地类型 Control EditText Into yongdileixing Control StaticText Title 面积的最小值 Control EditText Into xiao Control StaticText Title 面积的最大值 Control EditText Into da Control OkButton Title 确定 Control CancelButton Title 取消 Open Table c:shix + yongdileixing If yongdileixing = 教育科研用地 Then Fetch First From 教育科研用地 Do While Not EOT(教育科研用地) mianji = Area(教育科研用地.obj,sq km) If CommandInfo (CMD_INFO_DLG_OK) Then If mianji=xiao and mianji=xiao and mianji=xiao and mianji=xiao and mianji=xiao and mianji=xiao and mianji=xiao and mianji=xiao and mianji=da Then i = i + 1 Print 绿地id: + i + 面积： + Str$(mianji) End If Else Print 没有您要搜索的对象名称 End If Fetch Next From 绿地LoopEnd IfEnd Sub Sub duihua Dim search As String Dialog Title 面积查询 Control StaticText Title 输入您要查询的用地类型 Control EditText Into search Control OKButton Title 确定 Control CancelButton Title 取消 Open Table C:shix + search If search = 教育科研用地 Then Dim i,counter as Integer Fetch First From 教育科研用地 Do While Not EOT(教育科研用地) mianji1 = Area(教育科研用地.obj,sq km) i = i + 1 If CommandInfo (CMD_INFO_DLG_OK) Then print 教育科研用地id + i +: + Str$(mianji1)Else 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,sq 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 = 居住用地 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 Fetch Next From 居住用地Loop print 居住用地总面积为： + Str$(zongmianji1) End IfIf 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 +:+ Str$(mianji1)Else print 没有您要搜索的对象名称End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 行政办公用地Loop print 行政办公用地总面积为： + Str$(zongmianji1) End IfIf search = 文化娱乐用地 Then Dim d as Integer Fetch First From 文化娱乐用地 Do While Not EOT(文化娱乐用地) mianji1 = 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) End 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 = zongmianji1 + mianji1 Fetch Next From 绿地Loop print 绿地总面积为： + Str$(zongmianji1) End IfIf 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 zongmianji1 = zongmianji1 + mianji1 Fetch Next From 道路Loop print 道路总面积为： + Str$(zongmianji1) End If End SubSub 道路Open Table C:shix道路 Add Map Layer 道路End Sub Sub 高薪产业区Open Table C:shix高薪产业区 Add Map Layer 高薪产业区Map From 高薪产业区End Sub Sub 工业发展用地Open Table C:shix工业发展用地 Add Map Layer 工业发展用地Map From 工业发展用地End Sub Sub 教育科研用地Open Table C:shix教育科研用地 Add Map Layer 教育科研用地Map From 教育科研用地End SubSub 居住用地Open Table C:shix居住用地 Add Map La