modulel.bas

运行程序前请先把"地图"文件夹中的地图集和图层拷到mapX4.0的maps文件夹中 刚开始的登录界面里 用户名和密码都为空,直接点击 "确认" 即可

Attribute VB_Name = "Module1"
Public infoTool As Integer  '声明属性查询工具
Public Newlyr As MapXLib.Layer '定义一个新的图层用来分析缓冲区
Public ftrfac As New MapXLib.FeatureFactory '用FeatureFactory对象方法得到一个缓冲区
Public Celiangorbuffer As Integer  '说明是否测量面积＝1还是求缓冲区分析＝2
Public rv As RowValue
Public rvs As RowValues
Public infostr As String  '用来修改属性数据的指导
'修改属性数据
Public pnt As New Point, pnts As New Points
Public ftr As Feature, ftrs As Features
Public ftr1 As MapXLib.Feature
Public lyr, lyr1 As Layer
Public flds As MapXLib.Fields
Public fld As MapXLib.Field
Public ds As MapXLib.Dataset
Public fieldstr, valuestr As String
'Public a(1 To 7), b(1 To 7) As String
Private Sub Main()
 log.Show
End Sub