!!!!各位达人，本人在用VBA在AO上进行二次开发，现在急求教如何实现规划道路查询???

<P ><FONT size=3><B><FONT face="Times New Roman">1</FONT></B><B>，背景</B>：××市规划国土资源管理局是市政府主管城市规划管理和国土资源管理的职能部门，在城市规划、土地管理过程中涉及大量的图形，同时在规划国土审批过程中要产生大量的空间信息，这些空间信息既是规划国土资源管理的结果，也是下阶段工作的重要参考和决策依据。</FONT></P>
<H2 ><FONT size=3>本系统是用数据库对各种数据进行有效地集成管理，在<FONT face="Times New Roman">AO</FONT>中用<FONT face="Times New Roman">VBA</FONT>编程，实现各种信息的显示、叠加、查询、统计、分析等功能，能方便地和其他<FONT face="Times New Roman">GIS</FONT>系统进行数据交换。<p></p></FONT></H2>
<H2 ><FONT size=3><FONT face="Times New Roman">2</FONT>规划道路查询，该功能的要求：<p></p></FONT></H2>
<P ><p><FONT face="Times New Roman" size=3> </FONT></p></P>
<P >规划道路查询是通过在规划道路图上选取某条道路，将道路的路名、长度和宽度等信息列出，为用户参考、分析和决策提供基础道路信息。可查询多条道路，也可删除某条道路的查询结果。<p></p></P>
<P>选择规划道路查询菜单，系统自动将规划道路图层调入，用户可以用鼠标在图上任意选取一条道路即可调出规划道路信息窗体。</P>
<P>查询结果包括道路的路名、长度、宽度、半径、面积、起点坐标和终点坐标。点击窗体右上方的<v:shapetype> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></v:shapetype><v:shape><v:imagedata></v:imagedata></v:shape>按钮可继续进行规划道路查询并将查询结果添加进来，此外还会在黄色文本框中显示出添加进的几条道路的总长和总面积。点击窗体右上方。</P>
<P >的<v:shapetype><FONT face="Times New Roman"> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></FONT></v:shapetype><v:shape><v:imagedata></v:imagedata></v:shape>按钮可删除某条不需要的记录。<p></p></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P ><B>在<FONT face="Times New Roman">AO</FONT></B><B>＋<FONT face="Times New Roman">VBA</FONT></B><B>下面如何实现该功能？？？请教各位达人？小弟不胜感激！！！<p></p></B></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P> </P><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" />

你说的功能在帮助里都有的，不过需要你自己集合起来，工作也不少滴，这里你还是具体问点问题好些，那么多代码，很少有热心淫帮你全写

<P>支持2楼</P>

谢谢高人指点哟，希望各位达人多多指点和帮助，^_^！！！

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />