[基础科学]基于ACCESS2003的林地保护利用规划小班号细班号自动顺号模块使用方法.docVIP

基于ACCESS 2003的林地保护利用规划 小班号细班号自动顺号模块使用说明 在ARCMAP9.3中增加四个辅助字段： 将林保细班矢量图层另存为SHAPE文件进行备份； 打开林保细班矢量图层属性表，增加以下四个字段： 字段名 字段类型 自动小班号 Short Integer 自动细班号 Short Integer X Double Y Double 为多边形中心点X、Y坐标赋值： 选中X列，按右键，在右键菜单中选择Calculate Geometry： 在Calculate Geometry对话框Property项选择X Coordinate of Centroid： 按OK按钮后就可将多边形中心点的X坐标值赋值给X字段。 Y字段的赋值与X字段类似，唯一不同的是在在Calculate Geometry对话框Property项选择Y Coordinate of Centroid。 在ACCESS2003中运行自动顺号模块： 关闭ARCMAP9.3，打开ACCESS 2003； 打开林保矢量数据库： 在左侧选择“查询”，然后点击窗口上方的新建，进入新建查询窗口： 选择“设计视图”： “显示表”对话框选择关闭： 在查询窗口左上角点击“SQL”，进入SQL视图 清空窗口中的代码，将以下代码粘贴进窗口： SELECT Int([XIANG]) AS 乡镇代码, Int([CUN]) AS 村代码, Int([LIN_BAN]) AS 内业小班, Max(Y) AS Y最大值, Min(X) AS X最小值 FROM 细班面 GROUP BY Int([XIANG]), Int([CUN]), Int([LIN_BAN]) ORDER BY Int([XIANG]), Int([CUN]), Int([LIN_BAN]), Max(Y) DESC; 保存新建的查询，命名为“查询小班号”： 在左侧选择“模块”，然后点击窗口上方的新建，进入新建模块窗口： 清空窗口中的代码，将以下代码粘贴至代码窗口： Option Compare Database Option Explicit Sub updateData() Dim cnn As ADODB.Connection Set cnn = CurrentProject.Connection Dim strSQL As String 更新小班号 Dim intXZ As Integer Dim intOldXZ As Integer intOldXZ = 0 Dim intC As Integer Dim intOldC As Integer intOldC = 0 Dim intXB As Integer Dim intXB0 As Integer intXB0 = 0 Dim intNewXB As Integer intNewXB = 1 Dim rsDL As ADODB.Recordset strSQL = SELECT 乡镇代码, 村代码, 内业小班 strSQL = strSQL + FROM 查询小班号 strSQL = strSQL + ORDER BY 乡镇代码, 村代码, int(Y最大值/100) DESC, X最小值 Set rsDL = New ADODB.Recordset rsDL.Open strSQL, cnn, adOpenForwardOnly, adLockBatchOptimistic Do While Not rsDL.EOF If IsNull(rsDL.Fields.Item(0).Value) Or IsNull(rsDL.Fields.Item(1).Value) Or rsDL.Fields.Item(0).Value = 0 Or rsDL.Fields.Item(1).Value = 0 Then MsgBox 林保乡镇代码XIANG或村代码（CUN）存在空值或0值，请修改后重新顺号！, vbInformation, 出错提示 rsDL.Close Set rsDL = Nothing cnn.Close Set cnn = Nothing Exit Sub End If intXZ = rsDL.Fields.Item(0).Value