开发范例-小白.docVIP

开发范例-小白 主要功能：面积计算，条件查询。 虽然第一次写GIS的二次开发程序，不过感觉上手真的很快。也就是用了1个半小时，就把大概的知识点过了一遍，接着就开始对着Mapbasic开始敲键盘。 不过毕竟没有基础，写出来的程序很丑陋（不会basic语言，所以很多东西写得特别长） 在此把代码贴出，希望路过的朋友，可以看看。 nclude mapbasic.def Include menu.def declare Sub 道路 declare Sub 高薪产业区 declare Sub 工业发展用地 declare Sub 教育科研用地 declare Sub 居住用地 declare Sub 绿地 declare Sub 行政办公用地 declare Sub 文化娱乐用地 declare Sub 面积 Declare Sub duihua Declare Sub Main Declare Sub tiaojian Dim mianji as Float Dim i as Integer Dim mianji1 as float Dim zongmianji1 as float Dim 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=da Then i = i + 1 Print 教育科研用地id: + i + 面积： + Str$(mianji) End If Else Print 没有您要有哪些信誉好的足球投注网站的对象名称 End If Fetch Next From 教育科研用地 Loop End If If yongdileixing = 居住用地 Then Fetch First From 居住用地 Do While Not EOT(居住用地) mianji = Area(居住用地.obj,sq km) If CommandInfo (CMD_INFO_DLG_OK) Then