2.3 软件总体构架
根据系统的要求，软件总体构架框图如图5所示。
3功能实现
3.1 数据的存储和处理
用Access建立数据库的E－R图如图6所示。
Delphi提供了ADO控件来实现ADO功能。我们使用TADOConnection建立与Access数据库的连接，通过在运行期间指定SQL语句，命令TADOQuery控件增加、删除、查询和修改数据库。其中，项目管理表中包括项目信息和钻进参数信息。
在钻进轨迹设计模块、预测模块和控制参数计算模块中，通过读取数据库中的钻进参数信息，采用曲率半径法、自然参数法等方法进行计算，得到的数据通过指定SQL语句存入数据库中，或通过USB接口输出。
3.2 通信模块
安装USB100模块专用驱动程序后，PC机上将新增一个虚拟通讯端口COM3。驱动程序的作用实际上是将USB端口模拟成虚拟串口。
MSComm控件用来连接USB100，它屏蔽了大部分串口通信的底层运行过程和许多繁琐的数据处理过程，具有两种处理方式：一是事件驱动方式，由MSComm控件的OnComm事件捕获并处理通信错误及事件；二是查询方式，通过检查CommEvent属性的值来判断事件和错误。MSComm控件主要属性如下：
(1) CommPort设置并返回通信端口号。 例如：MSComm.CommPort：= 1 ；
(2) Setting设置并返回波特率、奇偶校验、数据位和停止位参数。 例如：MSComm.Setting：= ‘19200 ，N ，8 ，1’；
(3) PortOpen设置并返回通信端口状态，True/False可以打开/关闭串口。例如：MSComm.PortOpen：=True 。
由USB端口模拟成的虚拟串口通信速率为8Mbps， PC上设定该串口的速率不会对传输速率有影响，这是与实际串口的区别。
3.3 轨迹图形显示模块
图形的显示模块主要包括坐标系的转换，地貌信息的显示，地下原有管线的显示，钻进设计轨迹的显示，实际轨迹的随钻显示，以及放大、测量距离和倾角等功能。
3.3.1 显示功能
对于各信息的显示，根据实际需要，我们采取平面图和剖面图两个视图同时显示的方式。图形显示我们采用TImage组件，分为绘制图层和显示图层。其中绘制图层是不可见的，又分为地貌信息图层、地下原有管线图层，设计轨迹图层、实际轨迹图层等。读取数据库中的数据后，通过坐标转换，在不同的绘制图层上用TImage组件的Canvas属性绘制信息图，然后根据用户要求，在显示图层上复制所需显示的绘制图层。这样，可方便地根据用户要求在图板上显示钻进过程的不同时期所需要的信息。
例如，我们可通过复制地下原有管线图层到设计轨迹图层，然后在此基础上读取数据库数据绘制设计轨迹，通过图形显示，用户可以很方便地知道设计的合理性和可靠程度。如果不满意，可重新设计，刷新数据库，并通过上述过程重新绘制轨迹，直到满意为止。
3.3.2 局部放大功能
通过局部放大，用户可清晰地在图中比较实际轨迹和设计轨迹。通过修改参数还可以改变放大区域大小和放大倍数。
其核心是利用TCanvas的CopyRect方法实现图像的放大。CopyRect方法的功能是将源画布上的一个指定矩形区域（源矩形）内的象素拷贝到目的画布上的一个指定矩形区域（目的矩形）中。由CopyMode属性确定拷贝的模式。在直接拷贝模式（cmSrcCopy）下，当源矩形与目的矩形面积相等时，图像不变；当源矩形面积小于目的矩形时，图像便被拉伸、放大（在目的矩形中扩展）。源矩形和目的矩形大小之比，决定了图像的放大倍数。
3.3.3 测量功能
在图像上测量起始点单击鼠标右键，并拖拉到测量终点，可通过相应鼠标事件，在绘制测量线段的同时获得测量起始点和终点的画布坐标。在图形显示功能实现中，数据库中的数据通过坐标转换由实际测量坐标变为画布上的坐标，在此通过逆转换即可得到需测量两点间的实际距离和倾角值。
3.4 报表输出和打印功能
我们采用Delphi提供的快速创建报表的工具QuickReport实现报表的输出和打印。QuickReport是QuSoft公司提供的一个控件包，利用它能够快速生成报表并实现报表的打印功能，使用简单、方便。
4部分实现结果
软件主界面如图7所示。系统通过串口通信获取由导向设备测得的实际轨迹的空间位置（深度、倾角和方位角）信息，转换为三维坐标，并实现实际钻进轨迹与设计轨迹的坐标统一，以方便与设计轨迹相比较。若实际轨迹与设计轨迹误差在规定范围内，继续钻进；若超出范围，则进行轨迹调控设计，及时采取纠偏措施。图8为轨迹调控设计后的图形。
5 结束语
系统能根据地貌信息和施工要求设计水平定向钻进钻孔轨迹，并在实现整个施工过程中轨迹实时监测的同时，对钻进给予一定的预测和控制，大大提高了施工的精度和可靠性。软件采用面向对象的开放式系统结构，易于扩充，大大方便了系统在使用过程中的完善和发展。整个系统在Windows XP 环境下运行，人机界面友好，操作方便，易学易用。
参考文献：
[1] 叶建良，蒋国盛，非开挖铺设地下管线施工技术与实践，中国地质大学出版社，2000
[2] 蒋国盛，张家铭等，定（导）向钻进的轨迹设计，地质与勘探，2000，36（2）：13-15
[3] Steve Teixeira，Xavier Pacheco，Delphi5开发人员指南，机械工业出版社，，2000，7
[4] 张大年，廖智勇，刘剑锋等，Borland Delphi数据库应用开发技术与实例，清华大学出版社，2002，1
基于JAVA开源技术的电子商务实验模拟系统设计与实现
基于.NET Remoting技术构建分布式数据库查询