CAD在工程实践中的二次开发

1、摘 要为了解决困扰工程地质界的隧道地质编录绘图难题，探索实现隧洞设计及施工地质展示图绘图自动化和计算机化的可能途径，本文以田坝岭隧道施工地质为范例，说明铁路隧道地质编录自动成图系统概念和实施要点，通过对AutoCAD平台的二次开发最终实现自动成图的目的。通过本设计过程，使学生掌握计算机辅助设计的基本技能，并具备AutoCAD二次开发的初步技能，提高其应用计算机解决实际问题的能力水平，预期达到以下要求：熟练掌握AutoCAD平台Axtivex 开发技术；初步具备利用关系型数据库管理工程数据的能力。本设计可以实现现加入窗体模块块编程，每确认一个个窗体模块即可可实现一项模模块功能。使使工作量由软件件

2、从已编写的的数据库文件中提取取数据自动生生成图形。用用铁路隧道地地质编录自动动成图系统绘绘制隧道展示示图比手工快快几十倍甚至至更多。关键词：地质展展示图 数据据库 二次开开发 AbstracctIn ordeer to solvee the troubble DeeZhiJiie tunnnel eengineeeringg geollogicaal reccord ddrawinng prooblem, expllore aand reealizee tunnnel inn the desiggn andd consstructtion oof geoologiccal diisplayy

3、figuure drrawingg autoomatioon andd compputeriized ppossibble appproacch, baased oon thee tunnnel coonstruuctionn geollogicaal fieeld daam as an exxamplee, expplain railwway tuunnel geoloogicall recoord too be aautomaatic mmappinng sysstem cconceppt andd the key ppointss, reaalizedd throough tto the

4、e secoond deeveloppment AutoCCAD pllatforrm eveentuallly reealizee the purpoose off autoomaticc mappping.Throughh the desiggn proocess, makee the studeents mmasterr the basicc skillls off compputer aidedd desiign, aand wiith AuutoCADD secoondaryy deveelopmeent prrelimiinary skillls, immprovee its ap

5、pliicatioon commputerr soluution actuaal prooblem abiliity leevel, expeccted tto reaach thhe folllowinng reqquiremments: mastter AuutoCADD plattform devellopmennt tecchnoloogy Axxtivexx; Iniitiallly havve usee of rrelatiional databbase mmanageement enginneerinng datta abiility.This deesign can rreal

6、izze to join form modulle proogrammming, each confiirmed a forrm moddule ccan bee reallized a moddule ffunctiion. MMake wwork ffrom aalreaddy wriitten by sooftwarre dattabasee filee extrract ddata aautomaaticallly geeneratte graaphicss. Usee raillway ttunnell geollogicaal reccord tto be autommatic m

7、appiing syystem draw tunneel shoow thaan a ffew tiimes ffast ffiguree by eeven mmore.Key worrd ：Geeologiical ddisplaay figgure databbase Seconnd devvelopmment目 录TOC o 3-3 h z t 标题 1,1,标题 2,2,参考文献之后,1 HYPERLINK l _Tooc32599667733 第 1 章章 绪 论 PAGEREF _Toc325966773 h 1 HYPERLINK l _Toc325966774 1.1 开发的的

8、意义、背景景 PAGEREF _Toc325966774 h 1 HYPERLINK l _Toc325966775 1.2 本设计计解决的问题题 PAGEREF _Toc325966775 h 1 HYPERLINK l _Toc325966776 1.3 采用的的方法和步骤骤 PAGEREF _Toc325966776 h 2 HYPERLINK l _Toc325966777 1.3.1 方方法 PAGEREF _Toc325966777 h 2 HYPERLINK l _Toc325966778 1.3.2 步步骤 PAGEREF _Toc325966778 h 2 HYPERLINK

9、 l _Toc325966779 1.4 预期成成果 PAGEREF _Toc325966779 h 3 HYPERLINK l _Toc325966780 第 2 章 数数据库结构设设计 PAGEREF _Toc325966780 h 4 HYPERLINK l _Toc325966781 2.1 数据库库中的表 PAGEREF _Toc325966781 h 4 HYPERLINK l _Toc325966782 2.2 数据库库中表的关联联图 PAGEREF _Toc325966782 h 7 HYPERLINK l _Toc325966783 第 3 章 程程序结构 PAGEREF _

10、Toc325966783 h 9 HYPERLINK l _Toc325966784 3.1 模块 PAGEREF _Toc325966784 h 9 HYPERLINK l _Toc325966785 3.1.1 CCaidann 模块 PAGEREF _Toc325966785 h 9 HYPERLINK l _Toc325966786 3.1.22 Caiddanxiaanshi 模块 PAGEREF _Toc325966786 h 9 HYPERLINK l _Toc325966787 3.1.3 CCommASSS 模块 PAGEREF _Toc325966787 h 10 HYPE

11、RLINK l _Toc325966788 3.1.4 DDZSub 模块 PAGEREF _Toc325966788 h 10 HYPERLINK l _Toc325966789 3.2 窗体 PAGEREF _Toc325966789 h 10 HYPERLINK l _Toc325966790 3.2.1 工工程管理窗体体 PAGEREF _Toc325966790 h 10 HYPERLINK l _Toc325966791 3.2.2 工工程数据管理理窗体 PAGEREF _Toc325966791 h 11 HYPERLINK l _Toc325966792 3.2.3 平平面数据

12、管理理 PAGEREF _Toc325966792 h 12 HYPERLINK l _Toc325966793 3.2.4 岩岩性表的管理理 PAGEREF _Toc325966793 h 13 HYPERLINK l _Toc325966794 3.2.5 编编录出图 PAGEREF _Toc325966794 h 13 HYPERLINK l _Toc325966795 3.2.6 打打印 PAGEREF _Toc325966795 h 14 HYPERLINK l _Toc325966796 第 4 章 重重点算法 PAGEREF _Toc325966796 h 15 HYPERLIN

13、K l _Toc325966797 4.1 平面线线路方位角的的计算 PAGEREF _Toc325966797 h 15 HYPERLINK l _Toc325966798 4.1.1 任任意里程的方方位角计算 PAGEREF _Toc325966798 h 15 HYPERLINK l _Toc325966799 4.1.2 线线路走向计算算 PAGEREF _Toc325966799 h 16 HYPERLINK l _Toc325966800 第 5 章 主主要应用技术术 PAGEREF _Toc325966800 h 19 HYPERLINK l _Toc325966801 5.1

14、ADOO技术简介 PAGEREF _Toc325966801 h 19 HYPERLINK l _Toc3259668002 5.1.11 Connnectioon 连接对对象 PAGEREF _Toc325966802 h 19 HYPERLINK l _Toc325966803 5.1.2 RRecorddset对象象 PAGEREF _Toc325966803 h 20 HYPERLINK l _Toc325966804 5.2 AuttoCAD VBA 简简介 PAGEREF _Toc325966804 h 23 HYPERLINK l _Toc32599668055 5.2.11 什

15、么是 AAutoCAAD VBAA PAGEREF _Toc325966805 h 23 HYPERLINK l _Toc325966806 5.2.2 用用 VBA 管理器组织织工程 PAGEREF _Toc325966806 h 24 HYPERLINK l _Toc325966807 5.2.3 处处理宏 PAGEREF _Toc325966807 h 25 HYPERLINK l _Toc3259668808 5.2.44 VBA IDE 编编辑工程 PAGEREF _Toc325966808 h 26 HYPERLINK l _Toc325966809 第 6 章 工工程实例 PAG

16、EREF _Toc325966809 h 28 HYPERLINK l _Toc325966810 6.1 工程名名称的录入 PAGEREF _Toc325966810 h 28 HYPERLINK l _Toc325966811 6.2 岩性表表设置 PAGEREF _Toc325966811 h 29 HYPERLINK l _Toc325966812 6.3 平面数数据录入 PAGEREF _Toc325966812 h 29 HYPERLINK l _Toc325966813 6.4 工程地地质数据录入入 PAGEREF _Toc325966813 h 31 HYPERLINK l _

17、Toc325966814 6.5 编录出出图 PAGEREF _Toc325966814 h 37 HYPERLINK l _Toc325966815 第 7 章 结结 论 PAGEREF _Toc325966815 h 39 HYPERLINK l _Toc325966816 7.1 最终成成果 PAGEREF _Toc325966816 h 39 HYPERLINK l _Toc325966817 7.2 总结 PAGEREF _Toc325966817 h 39 HYPERLINK l _Toc325966818 7.3 展望 PAGEREF _Toc325966818 h 39 HYP

18、ERLINK l _Toc325966819 参考文献 PAGEREF _Toc325966819 h 400 HYPERLINK l _Toc325966820 致 谢 PAGEREF _Toc325966820 h 41 HYPERLINK l _Toc325966821 附录A 外文资资料翻译 PAGEREF _Toc325966821 h 42 HYPERLINK l _Toc325966822 附录B 代 码码 PAGEREF _Toc325966822 h 56石家庄铁道大学毕业设计 PAGE 72绪 论 开发的意义、背背景为了解决困扰工工程地质界的的隧道地质编录绘图难题，探探索实

19、现隧洞洞设计及施工地地质展示图绘绘图自动化和和计算机化的的可能途径，本本文以田坝岭岭隧道施工地地质为范例，提提出了铁路隧隧道地质编录录自动成图系系统概念和实实施要点，实实现了通过对AuutoCADD平台的二次次开发最终实实现自动成图图的目的。 本设计解决的的问题通过对AutooCAD平台台的二次开发发，完成“铁路隧道地地质编录自动动成图系统”开发。解决的的问题包括：（1）线路平面面数据管理模模块设计、实实现先在数据库里建建立平面数据据曲线的参数数表把平面数数据管理起来来，然后在VBA中设计计窗体和模块块。用窗体代代码把数据管管理起来，模模块代码负责责显示工具栏栏菜单和下拉拉菜单。在CommAS

20、SS模块中编编写公共过程程用来调用数数据库、执行行SQL语言言的代码；在在窗体里编写写可以执行添添加、删除和和更改，可以以显示起点和和终点的坐标标里程且可以以更改数据的的代码。（2）地质编录录数据管理模模块设计、实实现为了使平面线路路与其相应的的地质情况连连接起来我们们需要把设计计、施工时的的地质信息录录入到数据库库表中，为此此需要设计两两个表和一个个窗体来实现现本功能。这这两个表与nname和xxianluu表通过E_ID建立主主键关系使得得工程名称、线线路特征、地地质情况连接接起来。而窗窗体任然是对对表进行修改改的一个工具具。在数据库里建立立shejii和shiggong两个个表，这两个个

21、表管理设计计和施工的地地质信息。在在AutoCCAD操作系系统中建立窗窗体和模块，地地质编录数据据管理模块是是要把施工和和设计时隧道道各个断面的的地质情况记记录到表中，并并且可以通过过窗体对其进进行操作。同同样应用了CCommASSS模块中编编写公共过程程调用数据库库、执行SQQL语言的代代码；窗体里里编写可以执执行添加、删删除和更改数数据的代码。（3）填充图例例管理模块设设计、实现填充管理模块用用来实现管理理岩石特性的的功能。为此此我们搜集了了一个比较齐齐全的岩性库库，然后在数数据库里建立立表yanxxing，用用CommAASS模块中中GetWoorkPatth过程调用用岩性库中我我们使用

22、的岩岩性添加到yyanxinng表中。具具体操作：在数据库里建立立yanxiing表，这这个表管理岩岩石特性的信信息。在AuutoCADD操作系统中中建立窗体和和模块，填充充图例管理模模块是要把隧隧道的地质岩岩性管理到yyanxinng表中，并且可以通过过窗体对其进进行操作。同同样我们在这这里应用了CCommASSS模块中编编写公共过程程调用数据库库、执行SQQL语言的代代码；窗体里里编写可以执执行添加、删删除和更改填填充比例的代代码。（4）自动绘图图模块设计、实实现自动绘图要实现现输入任意一一段里程后计计算机自动绘绘制展示图的的功能。为此此我们需要设设计一个窗体体，而且此模模块需要在DDZS

23、ub里里编写绘制图图框、字体、调调用展示图投投影岩性的代代码。具体操操作：在AutoCAAD操作系统统中建立窗体体和模块，自自动绘图管理理模块是要把把隧道的投影影图绘制出来来，并且可以以通过窗体对对其进行操作作。在CommASSS模块中编编写公共过程程调用数据库库、执行SQQL语言的代代码；DZSSub模块里里编写字体、编写字体边边框线、展示图图框框定位、展示图文字字定位、调用数据库库表里的字段段记录信息等等。窗体里编编写可以输入入任意起始里里程、终止里里程以及是否否绘制展示图图及填充物的的代码。（5）控制模块块设计、实现现控制模块主要是是通过对全局局的调整实现现以上几个模模块的链接，通通过调

24、试使程程序运用更加加的方便。 采用的方法和和步骤方法铁路隧道地质编编录自动成图图系统开发就就是在可视开开发工具提供供的图形用户户界面上，通通过操作界面面元素，诸如如菜单、按钮钮、对话框、编编辑框、单选选框、复选框框、列表框和和滚动条等，由由可视开发工工具自动生成成的 HYPERLINK /view/7886.htm 应用软件。步骤软件开发流程一一般分为以下下六步：（1）相关系统统分析和应用用需求的初步步了解需求，然然后用WORRD列出要开开发的系统的的大功能模块块，每个大功功能模块有哪哪些小功能模模块，对于有有些需求比较较明确相关的的界面时，在在这一步里面面可以初步定定义好少量的的界面。（2）

25、系统分析析深入了解和和分析需求，根根据自己的经经验和需求用用WORD或或相关的工具具再做出一份份文档系统的的功能需求文文档。这次的的文档会清楚楚例用系统大大致的大功能能模块，大功功能模块有哪哪些小功能模模块，并且还还例出相关的的界面和界面面功能。（3）系统统分析和用户户再次确认需需求。（4）系统分析析根据确认的的需求文档所所例用的界面面和功能需求求，用迭代的的方式对每个个界面或功能能做系统的概概要设计。（5）系统分析析把写好的概概要设计文档档，根据所例例出的功能一一个一个的编编写。（6）测试试编写好的系系统。使用该该程序，一个个一个的确认认每个功能。 预期成果通过本设计过程程，使学生掌掌握计算

26、机辅辅助设计的基基本技能，并并具备AuttoCAD二二次开发的初初步技能，提提高其应用计计算机解决实实际问题的能能力水平，预预期达到以下下要求：（1）熟练掌握握AutoCCAD平台AAxtiveex 开发技技术；利用AutoCCAD平台AAxtiveex开发技术术，在AuttoCAD里里实现了添加加工具栏“地质编录”菜单项，在在菜单项编写写下拉菜单记记录数据最终终实现自动绘绘制展示图的的目的。（2）初步具备备利用关系型型数据库管理理工程数据的的能力数据库里表建立立联系图约束束数据的变化化，使数据库库中的表成为为一个不可分分离的整体执执行任务。数据库结构设计计为了使工作简单单化，我们现现将平面线

27、路路所测数据、沿沿线围岩级别别及地质情况况描述录入数据库，这样样将具体情况况数据化，然然后将数据从从数据库中调用用并在AuttoCAD中中应用VBAA绘制地质情情况展示图。 数据库中的表表本设计所解决的的问题是使隧隧道中绘制复复杂展示图的的工作简便，为此我我们在SQLL数据库中建建立一个数据据库将线路的的信息分类记记录到表格中中。下面是本本程序解决问问题时需要在在数据库中所所建立的几个个表及其内容容的具体介绍绍。本工程所建立的的数据库中有有7个表组成成，表名分别别为Namee、shejji、shiigong、wweiyannfenjii、xiannlu、yaanxingg、YT。以以下是几个表

28、表的主要信息息（1）Namee表主要记录录了工程的名名称、工程的的里程信息。并详细记录了字段名称、类型、定义、主键名称等。其中，E_ID表示工程的地址，不同的工程用不同的E_ID来区分；ENAME表示工程名称，不同工程名称用不同的E_ID表示；EPNAME表示工程打印名称；EFX表示是否反向；LC表示工程包含的里程，详细信息见表2-1 。表2-1 NName（工工程名称）表表包括的字段段及内容字段数据类型定义备注E_IDInt工程地址主键ENAMEnvarchaar(50)工程名称EPNAMEnvarchaar(50)工程打印名称EFXbit反向LCnvarchaar(15)工程里程（2）Sh

29、ejji表主要记记录了平面线线路沿线的地地质水文情况况，E_IDD表示某个工工程对应的水水文地质情况况；GWIDD表示不同水水文地质的分分界标识；GGWQZ表示示工程水文地地质里程的前前缀（DK）；GWM表示示工程水文地地质的描述信信息；GWLLC不同工程程水文地质情情况分界的里里程，详细信息见见表2-2。表2-2 ssheji（地地质描述）表表包括的字段段及内容字段数据类型定义备注E_IDint工程地址GWIDint工程水文地质地地址续表2-2主键续表2-2GWQZnvarchaar(10)工程水文地质前前缀GWMdecimall(18, 0)工程水文地质描描述GWLCnvarchaar(2

30、000)工程水文地质里里程（3）Shiggong表主主要记录了沿沿线施工时的的地质情况，E_IID表示不同同的工程地址址；DM_IID表示施工工时的隧道断断面划分地址址；DMDCC表示施工时时隧道断面的的地层岩性特特征；DMSSW表示施工工时隧道断面面的水文情况况；DMGCC表示隧道断断面工程地质质特征；DMMCZ隧道断断面施工时隧隧道初期支护护的概述；DDMLC表示示施工隧道断断面的里程；DMC施工工时隧道断面面的围岩级别别；DMQZZ表示施工时时隧道断面的的里程前缀（DDK），详细信息见表表2-3。表2-3 sshigonng（线路里里程上的地质质情况）表包包括的字段及及内容字段数据类型定

31、义备注E_IDInt工程地址DM_IDInt线路里程地址主键DMDCnvarchaar(100)地层岩性特征DMSWnvarchaar(1000)水文地质特征DMGCnvarchaar(1000)工程地质特征DMCZnvarchaar(1000)初期支护概述DMLCdecimall(18, 0)线路里程DMCnvarchaar(20)施工围岩级别DMQZnvarchaar(10)线路里程前缀（4）Weiyyanfennji表主要要记录了在设设计线路时各各个工程上的的地质变化、围围岩级别变化化的分界里程程。其中，EE_ID表示示某个工程里里围岩级别的的变化情况；WCC表示示某工程的围围岩级别变化

32、化情况；WCCID表示围围岩级别变化化处的地址；WCLC表表示围岩级别别变化处的里里程；WCQQZ围岩级别别里程前缀（DDK），详细信息见见表2-4。表2-4 wweiyannfenjii（围岩分级级）表包括的的字段及内容容字段数据类型定义备注E_IDInt工程地址WCCsmallinnt围岩级别WCIDInt围岩分级地址主键WCQZnvarchaar(10)围岩级别前缀WCLCdecimall(18, 0)围岩级别里程（5）Xiannlu表主要要记录了平面面线路中曲线线的特征值，E_ID表表示某工程对对应的平面线线路的曲线特特征；JD_ID表示本本工程里线路路走向变化的的点（交点）信信息；X

33、表示示平面线路交交点的横向坐坐标值；Y表表示平面线路路交点的纵向向坐标值；RR表示缓和曲曲线中圆曲线线半径；loo表示曲线上上的缓和曲线线长，详细信息见见表2-5。表2-5 xxianluu(平面数据据管理)表包包括的字段及及内容字段数据类型定义备注E_IDInt工程地址JD_IDInt交点地址主键XReal交点的X坐标YReal交点的Y坐标RReal曲线半径lofloat缓和曲线长（6）Yanxxing表主主要描述了不不同地段的岩岩性特征，YYX_ID表表示岩性变化化点的地址，通通过岩性地址址与YT表建建立某种联系系是的不同隧隧道断面的岩岩性描述可以以调用此表里里的信息；YYXMC储存存了对

34、不同岩岩性情况的描描述；YXTTCT表示岩岩性的表示方方法；YXTTCBL表示示岩性的比例例值，详细信息见见表2-6。表2-6 yyanxinng（岩性描描述）表包括括的字段及内内容字段数据类型定义备注YX_IDInt岩性地址主键YXMCnvarchaar(30)岩性描述YXTCTnvarchaar(20)岩性的表示方法法YXTCBLfloat岩性比例（7）YT表主主要记录各个个地段的岩性性特征及其分分界点，YXX_ID表示示岩性变化点点的地址，通通过岩性地址址与YT表建建立某种联系系是的不同隧隧道断面的岩岩性描述可以以调用此表里里的信息；YYTID岩性性特征的分界界地址；YTTQX表示岩岩性

35、特征岩石石的倾向；YYTQJ表示示岩性特征岩岩石的倾角；DM_IDD隧道断面地地址，详细信息见见表2-7。表2-7 YYT（岩性特特征）表包括括的字段及内内容字段数据类型定义备注YX_IDInt岩性地址主键YTIDInt岩性特征地址YTQXdecimall(18, 0)f岩性特征倾向YTQJdecimall(18, 0)岩性特征倾角DM_IDInt隧道断面地址 数据库中表的的关联图上一节介绍了数数据库中建立立的表及其内内容，具体这这几个表之间间有什么样的的关系，我们们是如何利用用它们发挥作作用的呢？(1)表xiaanlu里面面将E_IDD、JD_IID设为主键键且E_IDD为自动标识识列，表n

36、amme中E_IID设为主键键，两个表通通过字段E_ID建立约约束关系，其其中xiannlu是主键键表，namee是外键表。强强制外键约束束、强制与复复制，标识名名称是xiaanlu_nname_ppk。只有当当xianllu表里的内内容清空后nname表里里的工程才可可以删除。(2)表sheeji里面将将GWID设设为主键并与与name表表通过字段EE_ID建立立约束关系，其其中，sheeji是主键键表，namme是外键表表，强制外键键约束、强制制与复制，标标识名称是ssheji_name_pk。只有有shejii表里的内容容清空后naame表才可可以被删除，否否则无法对nname表进进行某

37、些操作作。(3)表Shiigong里里面将DM_ID设置为为主键并与nname表通通过字段E_ID建立约约束关系，其其中shiggong是主主键表，naame是外键键表，强制外外键约束、强强制与复制、标标识名称是sshigonng_namme_pk。只只有shiggong表里里的内容清空空后namee表才可以被被删除，否则则无法对naame表进行行某些操作。(4)表weiiyanfeenji里面面将WCIDD设置为主键键并与namme表通过字字段E_IDD建立约束关关系，其中wweiyannfenjii是主键表，nname是外外键表，强制制外键约束、强强制与复制、标标识名称是wweiyannf

38、enjii_namee_pk。只只有weiyyanfennji表里的的内容清空后后name表表才可以被删删除，否则无无法对namme表进行某某些操作。(5)表YT里里面将YX_ID设置为为主键并与yyanxinng表通过字字段YX_IID建立约束束关系，其中中是YT主键表，yaanxingg是外键表，强强制外键约束束、强制与复复制、标识名名称是YT_yanxiing_pkk。只有表YYT里的内容容清空后yaanxingg表才可以被被删除，否则则无法对yaanxingg表进行某些些操作。(6)表YT里里面将YTID设置置为主键并与与shigoong表通过过字段DM_ID建建立约束关系系，其中YT

39、T是主键表，sshigonng是外键表表，强制外键键约束、强制制与复制、标标识名称是YYT_shigoong_pkk。只有YTT表里的内容容清空后shhigongg表才可以被被删除，否则则无法对shhigongg表进行某些些操作。总的来说就是，表表YT约束sshigonng、yannxing表表，而表shhigongg、shejji、weiiyanfeenji、xxianluu分别通过不不同的主键约约束表namme。图2-1主要描述述了表格之间间的关系。图2-1 数据据库表的关联联图程序结构在AutoCAAD中新建工工程，根据实实现功能的需需要在新建工工程里建立四四个模块、六六个窗体。四四个模

40、块名称称分别为：CCaidann、Caiddanxiaanshi、CCommASSS、DZSSub。窗体体名称分别为为：工程管理理、工程数据据管理、平面面数据管理、编编录出图、岩岩性表管理、打打印。模块通过caidaan模块添加加菜单项及子子菜单项，CCaidannxiansshi项通过过show显显示各个子菜菜单对应的窗窗体。CommmASS项项调用数据库库、工作目录录及执行SQQL语句，DDZSub项项包含了本次次设计的主要要计算部分。它它主要包括：图框的绘制制、字体大小小及位置的设设置、里程在在那条曲线的的判断、方位位角的计算、断断面投影的计计算等。Caidan 模块模块功能说明：本模块

41、属于于通用命令，主主要功能是创创建工具栏菜菜单，以及下下拉菜单项。本模块只有一个个Inimeenu过程，在在该过程里实实现了创建新新菜单“隧道地质编编录”项的目的，且且在“隧道地质编编录”里添加了工工程管理、数数据编录、平平面数据管理理设置、岩性性表设置、编编录出图、图图表打印几个个菜单项。在模块里根据要要实现的功能能编写代码，实实现创建新菜菜单及下拉菜菜单的目的。Caidann模块代码见见附表3-11。Caidanxxianshhi 模块模块功能说明：本模块主要要功能是显示示下拉菜单项项窗体，并实实现其相应操操作的功能函函数。本模块有两个不不同的过程，一一个是用frrm.Shoow函数实现现

42、工程管理、数数据编录、平平面数据管理理设置、岩性性表设置、编编录出图几个个菜单项窗体体的显示功能能。另一个同同样也使用了了frm.SShow函数数实现图表打打印窗体的显显示，但在本本模块里设置置了打印字体体及图纸的选选择，显示窗体的的代码详见附表表3-2。CommASSS 模块模块功能说明：本模块主要要功能是通用用辅助，总调调用模块用来来实现连续调调用其它几个个模块。本模块共包括110个过程，其中在函 数 SetWorkPath里设置工作目录；在函数GetWorkPath里获得工作目录；在函数 GetDBName里获得数据库表名称；在函数GetTKSize里获取边框尺寸，本过程设置图框选项包括

43、A0、A1、A2、A3、A4图框尺寸；在函数DBOpen里设置数据库表所在的位置打开本地数据库；函数ExecuteSQL在本过程里执行SQL查询，例如select、update、delete、insert语句；函数MakeLCStr本过程主要是规范里程书写格式，是里程书写规范化；函数MakeWCStr里实现了围岩分级由数字转化为希腊数字的功能；在函数MakeOldFWJ里方位角的度数表示，模块具体的代码见附表3-3。DZSub 模模块本模块包含了图图框的绘制、字字体的大小及及定位、图框框布局的设计计、方位角的的计算等程序序的编写。这里应用了CoommASSS模块中编写写公共过程调调用数据库、执

44、执行SQL语语言的代码；DZSubb模块里编写写字体DraawOneTText过程程，编写字体体边框线DrrawLinneTextt过程，展示示图图框定位位DrawOOneZHSSK过程，展展示图文字定定位DrawwOneZHHSTextt过程，调用用数据库表里里的字段GeetJLDMMID、GetJLWWCID、GetJLLWCID_BW、GetJLLGWID_BW、GetJLLDMID_BW的记录录，编写计算算方位角的函函数利用geetXLzxx、getZXXzx、getQXXzx、GFfwjj、调用函数数。窗体里编编写可以任意意起始里程、终终止里程，以以及是否绘制制展示图及填填充物的代码

45、码，本模块详详细代码见附附表3-4窗体本设计共有7个个窗体其中一一个窗体是被被工程管理这这个窗体添加加工程时调用用的，下面介介绍几个窗体体的作用。工程管理窗体工程管理窗体的的作用是实现现对工程的操操作，在本窗窗体里我们可可以用inssert语句句在数据库nname表里里添加新的工工程，用deelete语语句删除namee表里不用的的工程，还可可以对原有工程名名称用upddate语句句进行修改。窗窗体按钮布局局如图3-11所示。图3-1 工程程管理工程数据管理窗窗体本窗体主要实现现了工程项目目施工和设计计时层面特征征、基本特征征的数据录入入，使工程的的信息完整化化。设计时窗窗体按钮布局局如图3-

46、22所示，施工工时窗体按钮钮布局如图33-3所示。图3-2 工程程数据管理-设计本窗体同样需要要初始化事件件Initaalize，同同时窗体的添添加、删除、更更新、退出等等单击事件CClick与与工程管理模模式相同这里里不再赘述。唯唯一需要说明明的是选择框框的实现，它它需要在窗体体初始化时就就调用否则在在文本框里将将不能同步显显示围岩级别别。下面代码码是围岩级别别的定义。图3-2 工程程数据管理-设计平面数据管理本窗体主要实现现了工程与平平面线路的对对应关系，而而且还实现了了起点和终点点坐标里程的的更改曲线特特征的添加、删删除和更改。窗窗体设置及按按钮布局如图图3-3所示示。图3-3 平面面数

47、据管理里里岩性表的管理本窗体的功能是是把沿线地质质岩性类型添添加到岩性表表，使数据库库数据完整方方便绘图时调调用数据库，窗窗体设置及按按钮布局如图图3-4所示示。图3-4 岩性性表管理编录出图通过上面工程的的建立数据的的录入我们就就可以通过编编录出图窗体体来实现调用用模块及数据据库绘制图形形的目的。窗窗体布置及按按钮布局如图图3-5所示示。图3-5 编录录出图打印本窗体实现图形形的打印，窗窗体设置及按按钮布局如图图3-6所示示。 图 3-6打印印重点算法为了实现展示图图图例填充角角度的计算，首首先应该计算算任意一点的的方位角，然然后根据方位位角确定线路路走向，最后后根据线路走走向确定与沿沿线隧

48、道断面面的投影角度度，最终实现现正确的展示示图图例填充充角度。 平面线路方位位角的计算计算任意里程的的方位角需要要的参数有：lo、R、XX、Y、起点点里程，将参参数代入以下下公式计算任任意里程的方方位角。任意里程的方位位角计算参数计算圆曲线在ZHXY坐标下下的切线角 （44-1）缓和曲线在ZHHXY坐标下下的切线角 （4-22）内移参数 （44-2）增值参数 （44-3）主点定位参数缓和曲线的切线线长 （4-44）缓和曲线的曲线线长 （4-5）缓和曲线的外失失距 （4-66）计算主点里程ZH点里程： （4-77）HY点里程： （4-88）YH点里程： （4-9）HZ点里程： （4-110）QZ

49、点里程： （44-11）线路走向计算计算两点间距和和方位角已知起点坐标（qqx,qy）、终终点坐标(zzx,zy),求直线的的方位角 （44-12） （44-13） （4-14）1）如果dx 0,ddy 00 ，则方位位角a在第一一象限；2）如果dx 0,ddy 00 ，则方位位角a在第二二象限；3）如果dx 00 ，则方位位角a在第三三象限；4）如果dx 0,ddy 00 ，则方位位角a在第四四象限；5）如果dx 00 ，则方位位角a在第三三象限； （4-115） （44-16）判断线路走向：若a0 ,说明左转转，否则右转转， 如果aa0则则转角取a-360的正正值，否则取取a。参数计算1、

50、圆曲线在ZZHXY坐标下下的切线角 （4-177）2、缓和曲线在在ZHXY坐标下下的切线角 （44-18）3、内移参数 （4-199）4、增值参数 （4-200）5、缓和曲线的的切线长 （44-21）6、缓和曲线的的曲线长 （4-222）7、缓直点坐标标和里程 （4-223） （4-224） （4-255） （44-26）1）如果且，则则所求里程点点在直线上，2）如果 且 ，则所求里里程点在缓和和曲线上 （4-27） （4-228）a0时，曲线线走向=a11+；a0时，曲曲线走向=aa2+；a0时时，曲线走向向=a2-。5）如果或者，则则里程不在工工程范围6）如果，则所所求里程在直直线上，线路

51、路走向=a11规范方位角方位角必须定位位在（-3660,3600）之间，如如果超出此范范围则需要修修正： （44-33） （4-334）主要应用技术 ADO技术简简介ADO是一种为为基于Intternett并且以数据据为中心的应应用程序而提提供的数据访访问接口，这这种应用程序序接口和应用用程序使用的的语言无关。通通过ADO，应应用程序可以以方便地存取取、查询、操操作数据库中中的数据。ADO提供了几几个独立的子子对象，利用用这些子对象象，就可以实实现对数据库库的访问，在在这几个对象象中，Connnectiion、Coommandd和RecoordSett对象是整个个ADO的核核心 。Connec

52、ttion 连连接对象 Connecttion对象象用于建立和和管理应用程程序与数据源源的连接，也也可以用它来来执行一个命命令。想要读读取数据库中中的数据，第第一步就是要要与数据库取取得连接，最最常用的连接接方式是利用用连接字符串串进行直接连连接。 1、建立连接对对象 在进行连接之前前，必须要先先声明一个对对象来作为AASP程序和和数据库之间间的连接媒介介，声明的方方法如下：Set对象变量量名称=Seerver.CreatteObjeect(“ADODBB.Connnectioon”)2、连接数据源源 Connecttion对象象中有一个方方法：OPEEN，专门用用来打开Coonnecttio

53、n对象象与数据库之之间的通道，实实现数据源与与ASP程序序的真正连通通。（1）OPENN方法使用格格式如下：对对象变量.OOPEN连接接字符串 其中，连接字符符串是说明欲欲连接数据库库的类型及数数据库的名称称。连接字符符串有两种不不同格式的描描述方法。（2）对于ACCCESS类类型的数据库库的连接字符符串格式 Drivver=MMicrossoft AAccesss Drivver (*mdb); DBQQ=指向.MMDB文件的的物理路径; UID=; PWDD=密码（3）对于SQQL Serrver类型型的数据库的的连接字符串串格式 Drivver=SSQL Seerver; Dattaba

54、see=数据库名名称; seerver=服务器名称称; UIDD=用户名; PWD=密码3、关闭连接 当不再需要使用用连接对象时时，需要用CCLOSE方方法来关闭连连接以释放系系统资源。（1）关闭连接接对象的命令令格式为：连接对象变量名名.Closse 或 Set 连接对象变变量名=Noothingg关闭对象并非将将它从内存中中删除，以后后仍可以更改改它的属性设设置并且再次次打开。（2）若要将对对象从内存中中完全删除，可可将对象变量量设置为Noothingg。4、执行SQLL查询 通过Conneectionn对象的Exxecutee方法执行SSQL命令。根根据SQL命命令执行后是是否返回记录录

55、集，Exeecute方方法的使用格格式可分以下下两种方式。（1）执行SQQL命令后，不不返回记录集集在执行像Inssert、DDeletee、Updaate等命令令时，操作结结果不会返回回记录集，它它只是对数据据库完成一种种操作，可以以使用下列格格式的命令：连接对象名名.Execcute “SQL命令令” n ，N：是一一个可选项变变量名。用于于保存命令执执行后受影响响的记录的条条数,如删除除的记录数。 （2）执行SQQL查询命令令，返回查询询得到的记录录集 用Executte方法对数数据表进行查查询得到的结结果通常是一一个二维表形形式的数据集集合，为了更更好地应用查查询结果，经经常把查询结结

56、果存储在一一个记录集对对象中。格式式如下：Set 记录录集对象变量量名称=连接接对象变量名名.Execcute “SQL命令令” 例如：Set Rs = Cn.Exxecutee “SELECCT * FROMM 注册用用户”查询表“注册用用户”中所有字段段所有记录，以以此建立名为为 rs 的的RecorrdSet对对象的实例。以以后就可以应应用Rs对象象的各种方法法进行操作，非非常方便。Recordsset对象 Recordsset对象是是一个记录的的集合，它用用于保存通过过查询所获得得的记录结果果。RecoordSett对象包含多多条记录，每每个记录包含含多个字段，在在任何时刻，只只有一条

57、记录录是当前记录录。通过使用用Recorrdset 对象可以对对记录进行各各种操作，如如增删记录、更更新记录、在在表中移动指指针等。1、创建Reccordseet 对象 第一种方法前面面介绍过的通通过连接对象象的Execcute()方法返回的的查询结果自自动创建ReecordSSet，这种种方法创建的的记录集对象象可以直接使使用，而不用用先创建对象象实例。实现现的语法分别别如下：Set 对象象变量名 = 连接对象象变量名.EExecutte(“SQL命令令”)如：Set RS = Cn.Execuute(“Selecct * FFrom 注册用户”) 执行查询，产产生记录集另一种方法是先先用S

58、eveer对象的CCreateeObjecct方法创建建记录集对象象实例。Set 对象象变量名 = Servver.CrreateOObjectt(“ADODBB.RecoordSett”)2、利用ReccordSeet对象的OOpen方法法读取数据 RecordSSet对象建建立完成后，其其中还没有任任何可供使用用的记录数据据，可以通过过RecorrdSet对对象中的Oppen方法获获取真正的记记录数据，OOpen方法法用来向数据据源提出一个个操作请求并并执行具体的的操作。Oppen方法的的使用格式如如下：记录对对象变量名OOpen、数数据来源、连连接对象、指指针类型、锁锁定方式、数数据源类

59、型。3、显示记录集集中的数据 记录集创建好后后，可以通过过它的属性、方方法和集合完完成对记录集集中数据的显显示。（1）记录集中中的属性 记录集对象中有有许多属性，它它们对遍历记记录集是有用用处的。AbbsoluttePosiition：用来设置或或读取当前记记录在记录集集中的位置顺顺序号。BOF：用来测测试并返回记记录指针是否否到达记录集集的头部。是是为Truee不是为Faalse。EOF：用来测测试并返回记记录指针是否否到达记录集集的尾部。是是为Truee不是为Faalse。RecordCCount：返回一个记记录集中的记记录总数。AbsoluttePagee：用来设置置或返回当前前记录所在

60、的的页号。PageCouunt：返回回当前记录集集所包含总页页数。PageSizze：设置每每页所包含的的记录个数。 （2）记录集中中的方法 记录集有一些方方法是用来在在记录之间移移动记录指针针的。移动当当前指针的方方法有5种，除除了Movee方法有两个个参数外，其其余的四个不不含参数，使使用很方便。但但要注意，当当指针类型参参数设置为aadOpennForwaardOnlly时，光标标向前移动的的方法是不可可用的。五个个方法分别是是：MoveFirrst：移动到第一一条记录；MoveLasst：移动到到最后一条记记录；MoveNexxt：移动到下一一条记录；MovePreeviouss：移动