（地质工程专业论文）剪切、压缩波数据处理软件的开发.pdf

剪切、压缩波数据处理软件的开发 剪切、压缩波数据处理软件的开发 摘要 本文详细介绍了“剪切、压缩波速数据处理软件的丌发”，主要包括软件的总体 设计，软件结构，数掘组织，软件功能等内容。 该软件主要实现了以下几个方面的功能： l 、剪切、压缩波数据库管理功能：因为厂家原有的波数据文件为单个文件，较为分 散，管理起来很困难，本软件可以将一个工程不同孔、不同的深度的波数据合并 进入一个数据库，用户可以将原始数据读入进数据库，同时将工程相关的信息输 入到数据库罩，包括工程名称、档案号、项目负责人、各孔地层等。 2 、波形处理分析功能：软件可以丌单波形和多波形窗口，将波形准确无误地显示出 来，可以将波形任意放大、缩小，前后左右自由移动，可以将剪切波反相叠加以 便于对波形初至时问的观察。软件可以将用户确定的波初至时间存入数据库中， 多波形处理可以按用户要求将同一个孔不同深度波形依次向下排列，用户通过对 不同深度同一个通道的波形进行对比分析以确定波初至时间。软件对这部分提供 了打印功能，用户可以将同一孔不同深度各个通道的波形和确定的波初至时间打 印出来。 3 、波速计算功能：剪切、压缩波测试方法分为单孔法和跨孔法。本软件提供了这两 种测试方法的波速计算方法，并将波初至时间曲线、波速曲线画出来，计算起来 相当直观，并且可以调用地层数据，以实现分层计算的功能。 现软件已应用于1 0 余个工程中，使用效果良好。 本软件利用v b 6 0 丌发完成，运行的操作环境为w i n d o w s 9 8 、w i n d o w s 2 0 0 0 。 关键词：剪切、压缩波，数据库，v b 剪切、压缩波数据处理软件的开发 p r o g r a m m i n g o fs h a v e c o m p r e s sw a v ed a t ap r o c e s s i n gs o f t w a r e a b s t r a c t t h i st h e s i si sa b o u tt h e “s h a v e c o m p r e s sw a v ed a t ap r o c e s s i n gs o f t w a r e ”，i n c l u d i n g t h eo v e r a l l d e s i g n 、s o f t w a r es t r u c t u r e 、d a t ao r g a n i z a t i o n ，s o f t w a r e sf u n c t i o n s e t c t h es o f t w a r eh a sa c h i e v e dm a i n l yt h ef o l l o w i n gf u n c t i o n s ： 1 、w a v ed a t a b a s em a n a g e m e n t ：t h ew a v ed a t af i l ea p p l i e db yt h em a n u f a c t u r e ra r e s e p a r a t e d ，t h a ti sd i f f i c u l tt om a n a g e t h es o f t w a r ec a nm a k et h ev a r i o u sd e p t hw a v e d a t ao fat e s th o l eu n i t e dad a t a b a s e ，t h eu s e r sc a ni n p u tt h eo r i g i n a ld a t at ot h ed a t a b a s e ， w r i t ei nt h ei n f o r m a t i o na b o u tt h ep r o je c ta tt h es a m et i m e ，w h i c hc o n s i s t so ft h ep r o je c t n a m e 、t h er e c o r dn u m b e r 、t h em a na tt h ew h e e lo ft h ep r o je c t 、t h es t r a t u me t c 2 、w a v ed a t ad e a l i n g ：t h es o f t w a r ec a no p e nt h ew i n d o w so fas i n g l ew a v ef i g u r e a n dm u l t i t u d ew a v ef i g u r e ，s h o w i n gt h ew a v ef i g u r ea c c u r a t e l y t h ew a v ef i g u r e sc a nb e m a g n i f i e do rr e d u c e da tw i l l ，s u p e r p o s e di nt h eo p p o s i t i o nf o ru s e r st oo b s e r v et h ef i r s t c o m i n gt i m eo f t h ew a v ea c c u r a t e l y t h ef i r s tt i m eo fw a v ec o n f i r m e db yt h eu s e rc a nb e s a v e d t h em u l t i t u d ew a v ed a t ad e a l i n gm o d u l ec a na r r a n g ed i f f e r i n gd e p t hw a v ef i g u r e s i nt u r n ，t h eu s e rc a nm a k es u r et h ef i r s tc o m i n gt i m eo fd i f f e r e n td e p t hw a v ef i g u r e so ft h e s a m ec h a n n e li nt h ew a y t h eu s e rc a np r i n tt h ev a r i e dd e p t hw a v ef i g u r e sa n dt h ef i r s t c o m i n gt i m eo fo n e t e s th o l e 3 、w a v es p e e dc a l c u l a t i n g ：t h ew a v et e s t i n gw a yi n c l u d e st h es i n g l eh o l et e s t i n ga n d m u l t i p l i e dh o l e st e s t i n g t h es o f t w a r es u p p l yt h ec a l c u l a t i n gm e t h o d eo ft h et w ot e s t i n gw a y s ，s h o w i n g t h ef i r s tc o m i n gt i m ea n dw a v es p e e dc u r v ea u t o m a t i c l y , t h a ti sv e r yv i s u a l t h ew a v es p e e do f s e p a r a t e dl a y e r sc a nb ec a l c u l a t e db yt r a n s f e r r i n gt h el a y e r sd a t a t h es o f t w a r eh a sb e e na p p l i e di nm o r et h a n10p r o j e c t sn o w ，t h eu s a g er e s u l ti sg o o d t h es o f t w a r ei sf i n i s h e di nv b 6 0 ，t h eo p e r a t i n gs y s t e mw i n d o w s9 8o rw i n d o w s2 0 0 0i sn e c e s s a r yt or u n k e y w o r d s h a v e c o m p r e s sw a v e ，d a t a b a s e ，v b 鲍切、肤缩波数据处理软件的开发 1 1 引言 第一章概述 随着黄河三角洲地区高层建筑和大型工程的嗣益增多，工程物探在岩工程勘察中的 应用也越来越来普遍，其中剪切波速的测试已经显得越来越重要。我公司2 0 0 0 年引进了 剪切波速测试仪，出于厂家在该领域工程实践很少，其提供的处理软件功能很不完善，不 能够将不同深度的波速曲线排列起来，以便于对波形初至时间进行跟踪判断，也不能自动 计算波速( 只能手算) 、不能将波速数据和地层情况合在一起，打印出符合工程要求的分 析结果报告。 为了提高处理剪切、压缩波数据的效率，使王程技术入员可以更准确地判断初至波时 闻、计算波速，同时为以后工程物探数据处理开发打下基础，很有必要进行这方面的软件 丌发，这样一束不但可以解决生产实际需要，还可以积累在开发工程物探数据处理软件方 面的经验。歹| 发软件应该可以使技术人员更容易、准确地处理分析剪切、压缩波形，结果 报告明了详细，审核人员能够更容易审核处理分析结果。 基于上蕊的分析，作者从二零零零年九月起用了将近十二个月的时i 日j ，编写了上万行 程序代码，丌发完成了剪切、压缩波数据处理软件。 1 2 软件的主要功能及软件开发的意义 该软件主要实现了以下几个方面的功能： l 、剪切、压缩波速数据库管理功能：因为厂家原有酶波数据文件为单个文件，较为分散， 管理起来很困难，本软件可以将一个工程不同孔、不同深度的波数据合并进入一个数据库， 用户可以将原始数据读入数据库，同时将工程相关的信息输a , n 数据库擘，包括工程名称、 档案号、项目负责人、各孔地层等。这样一来，不但满足了单位电子存档要求，也便于进 行波形分析处理。 2 、波形处理分析功能：软件可以丌单波形和多波形窗口，将波形准确无误地显示出来， 可以将波形任意放入、缩，j 、，莳后左右臼出移动，i 巧以将捆反方囱敲击的波叠施以便于对 翦切、k 缩波数据处理软件的开发 波形的观察。软件可以将用户确定的波初至时间存入数据库中，多波形处理可以按用户要 求将同一个孔不同深度波形依次向下排列，用户通过对不闻深度同一个通道的波形进行对 比分析以确定波初至时问，便于分层。软件对该部分提供了打印功能，用户可以将同- ：e 不同深度各个通道的波形和确定的波初至时闯打印密来。 3 、波速计算功能：剪切、压缩波测试方法分为单孔法和跨孔法。本软件提供了这两种测试 方法的波速计算方法，并将波拐至时闻曲线、波速曲线画出来，计算起来相当直观，并且 可以调用地层数据，以实现分层计算波遴的功能。 1 3 软件开发执行规范 l 、岩工程勘察规藏g b 5 0 0 2 1 9 4 2 、工程设计计算机软件丌发及文档编制规范s h t 3 9 0 1 9 4 鲫切、胜缩波数据处理软件的开发 2 1 用户需求分析 第二章软件的总体设计 该软件以剪切波速测试人员和技术人员为使用对象，根据作者的调研和实际测试分析 经验，软件应满足下面需求： l 、波速数掘库管理要求 以前波速文件都是以深度作为文件名存档，不包括工程名称、孔距、测试方法等基本数 据，管理起来很困难，特别是随着公司要求将原始测试数据进行电子存档就显得更困 难了。所以能不能将同一个工程不同孔的波速数据做成一个数据库，便于查询、存档、 分析处理就显得很有意义了。 2 、波形处理要求 原厂家d o s 软件只能对单个深度波形进行处理，打印仅能将单个波形打印出来。而我 l f i n n 道，同一一个孔不同深度的波形是可以进行追踪分析的，如果能将同一个孔小同深 度波形同时显示出来，无疑降低了技术人员的波形分析难度。 3 、波速计算功能 原d o s 软件是没有波速计算这项功能的，只能靠手工计算，而手工计算比较繁杂而且 容易出错，所以波速计算这部分如果能让程序来完成，其对工程技术人员的帮助是不 言而喻的。 2 2 软件的开发环境 2 2 1 操作系统的选择 目前我困绝大多数微机上使用的操作系统都是w i n d o w s ，考虑到软件的实用性， 作者采用w i n d o w s 作为软件丌发及运行的操作系统。 2 2 2 软件开发语言的选择 m i c r o s o f tv i s u a lb a s i c 提供了开发m i c o r o s o f tw i n d o w s 应用程序最迅速、最简 鲫切、压缩波数据处理软件的开发 捷的方法，不论是m i c o r o s o f tw i n d o w s 应用程序的资深专业丌发人员还是初学者，v i s u a b a s i c 都为他们提供了整套工其，以方便开发应用程序。 从个人：丌发使用或小组使用的小工具，大型企业应用系统，甚至通过i n t e r n e t 的遍 及全球分奄式应用程序，都可在v i s u a lb a s i c 提供的工其中各取所需。v i s u a lb a s i c 主 要有以下些优点。博1 数据访问特性允许对包括m i c r o s o f ts q ls e r v e r 和其它企业数据库在内的大部分数 搌库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 0 有了a c t iv e x 技术就可使用其他应用程序提供的功能，例如m i c r o s o f tw o r d 字处理 器，m i c r o s o f te x c e l 电子数据表及其它w i n d o w s 应用程序。甚至可直接使用v b p 或 v b e 创建的应用程序和对象。 j n t e r n e t 功能强大，很容易在应用程序内通过i n t e r n e t 或i n t r a n e t 访问文档和应 用程序，或者创建i n t e r n e t 服务器应用程序。 邑完成的应用程序是使用v i s u a lb a s i c 虚拟机的真弧e x e 文传，可以惠瞧发匆。 基于上述原因，作者选择了v i s u a lb a s i c 6 0 作为软件歼发的工具。 2 3 软件的总体结构设计 由于波速测试是幽一个个工程项目构成的，所以本软件的丌发也以工程项目为基础。 本软 牛从整体上分为三部分： 第部分为波速数据库管理模块： 对每一个新的项嚣，软件都要求用户新建一个数据瘁，软件提供了和厂家所测原始数 据的接口，用户可以方便地对原始数州j 生行增删和归类，包括输入或修改各孔测试的 基本数据和各孔地层情况。项目和项目之间数据是相互独立的。 第二部分为波形处理分析模块： 该部分包括提供单个波形和多个波形的分析处理，确定波的初至时问，可打印输出结 果 第部分为波速计算部分 浚部分包括尊孔法两种波速计算方法、跨孔法计算方法，可调用各孔地层数据，提供 翦切、压缩波数据处理软件的开发 分层计算功能。绘制时距曲线和波速曲线，打印输出结果。 2 3 1 总框图 软件的设计总框图见图2 1 ： 图2 1 软件总体结构 2 3 2 菜单结构设计 软件等界l 面如图2 2 所示。 数据库管理模块、单波形处理模块、多深度波形处理模块、波速计算模块菜单分别见 弗、j e 缩激数船处软件* 齄 西至矿基奉熬据哩) 数据处理 披逮计簋蛙) 帮助 2 2 软件主菜单界面 目r 豸疆而退回哩) 图2 3 数据库管理菜单界面 鲥”、h * # n g # # & 立件嬗) 踱形分析帮助 图2 4 单深度波形分析菜单界面 镀形处理( j 逞出世) 谈速计篮 l ，姹啸l + a 一矗朋_ _ 强b 嬲i 噬| 】_ 日出强兰薹矗_ l 存盘 吣 打叩 打印颈览 蚓25 多深度波形分析菜单界面 目n i 再瓦r 数据处理 i 图26 波速训算菜单界面 鲍切、压缩波数据处理软件的开发 2 4 软件运行的软硬件环境 软件环境：w in d o w s 9 8 或w i n d o w s 2 0 0 0 操作系统 硬件环境：可以运行w i n d o w s 9 8 或w i n d o w s 2 0 0 0 的微机，分辨率在8 0 0 * 6 0 0 以上的显示器， 打印机。 s 翦切、压缩波数据处理软件的开发 第三章软件的数据组织与数学模型 本软件中绝大多数数据都是利用m i c r o s o f ta c c e s s 中所使用的m d b 数据库文件加以 管理的，作者之所以选择这种数据管理形式，主要是基于以下几点原因： m d b 数据库文件灵活易用。利用它可以简化数据库操作，使软件操作数据更加灵活。 m d b 形式的数据库生成的文件少，易于管理。以f o x p r o 为例，数据库每建立一个表 都要生成一个d b f 文件，如果使用了较多的表就会使磁盘文件变得杂乱无章，难于管 理。而以m d b 方式建立的数据库中无论有多少个表，最终只形成一个m d b 文件，简 洁明了，便于磁盘管理和磁盘资料的备份。 m d b 数据库文件可以用a c c e s s 打开，极大地方便了软件的开发与维护。 3 1 软件的数据组织 3 1 1 数据库的数据组织 每次当用户开始一个新的项目，软件都会自动为其创建一个m d b 数据库。与该项目有 关的所有数据都将被储存到这个数据库中。 用户将工程信息输入，软件自动生成一个表，表名为“工程信息”，表结构见表3 1 。 表3 1工程信息数据结构表 字段名数据类型 工程名称可变长字符型( 新建t 程 ，用户即可新建卟项目，此时软件用户界面见图41 所示 广_ l 三堡! 墨f 而五面r 一 r 。 i 三兰堂至：声f 一 厍石习 已有工程 蕊毛翮，!蒂蜀 图4 1新建t 程输入界而 图中【一程目录，用广一以通过点取已有的目录，也可以写入新目录，_ t 程档案号必锨 耍填，该r 程档案号程序将自动作为数据库文什名，用户点取“确定”后，软件将自动为 1 j 户创建1 个新目录和数掘库戚进入已有的同录和数拥侔。 鲆i 纬* * n 目# * * m 4 1 2 工程基本信息 通过点取 基本数据j _ 1 ：程信息j ，用户即可输入或查看该工程的基本信息此时软川p 界面见图4 2 。 罔42i l 程信息输入界面 按“遐i i j ”键，软件提醒是古存盘，按“确定”后软件自动将j = 程信息存入数据库 4 1 3 波数据入库 4l3i 波原始数据加入数据库功能的实现 竣模块主要实现将分散的原始测试数掘文件转换成数据库文件，要求输入每个测试文 仆的孔号、深度、别号以及饵个测试孔的基奉信息，程序将依掘用户输入的信息将柑例n 0 扎q 的数州文件台并进入i 张表h 创建数掘库流程见h43 。 蔸切、压缩波数据处理软件的开发 n 创建该数据库子程序如下： p u b l i cs u bc r e a t e _ d a t a ( ) 创立数据库 d i mn a m ea ss t r i n g d i mn a m e 2a ss t r i n g d i mm y i n d e xa si n d e x 图4 3创建波数据库流程 d i mn e w d a t a b a s ea sd a m b a s e d i mn e w t a b l ea st a b l e d e f d i mf i l ee x i ta sb o o l e a n d i mi fc e h a oa sb o o l e a n d i mk o n g h a ob i a oa sn e wc o l l e c t i o n d i ms h u j un a m e a sn e wc o l l e c t i o n d i mq d a t a ( ) a sd o u b l e o ne r r g o t oe n ds u b f i l e n a m el = p a t h n a m e + ”+ e n g e e r n u m b e r + ”m d b ” i fd i r ( f i l e n a m e1 ) 。t h e n f i l ee x i t = t r u e e l s e f il e e x i t = f a l s e e n dl f g r i d l 。c o i = l d a t an a m e2 ” o l dn a m e = 。 f o ri = g r i d1 f i x e d r o w st og r i d1 r o w s g r i d1 f i x e d r o w s 1 8 y 翦切、压缩波数据处理软件的开发 g r i d l r o w = i g r i d l c o i = l d a t a n a m e = g r i d1 t e x t i fo l d n a m e d a t a n a m et h e n k o n g h a o _ _ b i a o a d dd a t a _ n a m e o l d n a m e 2 d a t a n a m e e i s e e n dl f n e x t i i ff i l e e x i t = f a l s et h e n m s g = ”岩中工程” t i t l e = ”数据库不存在，需要创建吗? ” x = m s g b o x ( t i t l e ，1 + 2 ，m s g ) l f x = 6 t h e n s e td e f a u l t w o r k s p a c e d b e n g i n e w o r k s p a e e s ( 0 ) s e tn e w d a t a b a s e = d e f a u l t w o r k s p a c e c r e a t e d a t a b a s e ( f i l e n a m ei ，d b l a n g g e n e r a l ) e l s e e x i t s u b e n di f ”创建表 g r i d l c o l = 1 d a t a n a m e = o l d n a m e = ” d a t a l d a t a b a s e n a m e = f i l e n a m e l d a t a l r e c o r d s e t t y p e = 0 创建基本数据表 s e tn e w t a b l e = n e w d a t a b a s e c r e a t e t a b l e d e f ( ”b a s e _ d a t a ”) s e tn e w f i e l d = n e w t a b l e c r e a t e f i e i d ( i 孑l 号”，d b t e x t ，1 0 ) n e w t a b l e f i e l d s 。a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”方法”，d b t e x t ，10 ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”孔距离”，d b d o u b l e ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”方向角l ”，d b d o u b l e ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”方向角2 ”，d b d o u b l e ) n e w t a b l e f i e l d s 。a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”方位角l “，d b d o u b l e ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e 。c r e a t e f i e l d ( ”方位角2 ”，d b d o u b l e ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”倾角1 l i d b d o u b l e ) n e w t a b l e f i e l d s 。a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”倾角2 ”，d b d o u b l e ) 一1 9 蓟切、压缩波数据处理软件的开发 n e w t a b l e f i e l d s a p p e n dn e w f i e i d n e w d a t a b a s e t a b l e d e f s a p p e n dn e w t a b l e d a t a l r e c o r d s o u r c e = ”b a s ed a t a ” d a t a l r e f l e s h f o ri = lt og r i d 2 r o w s g r i d 2 f i x e d r o w s g r i d 2 r o w = i d a t a1 r e c o r d s e t a d d n e w d a t a l r e c o r d s e t u p d a t e d a t a1 r e c o r d s e t m o v e l a s t f o rk = lt bg r i d 2 r o w s g r i d 2 f i x e d r o w s ”d a t a l r e c o r d s e t f i e l d s c o u n ts t e p3 f o rm k = 0t o8 d a t a l r e c o r d s e t e d i t g r i d 2 c o l = m k + l i fg r i d 2 t e x t ”t h e n d a t a l r e c o r d s e t f i e l d s ( i n k ) v a l u e = g r i d 2 t e x t d a t a l r e c o r d s e t u p d a t e e n di f n e x t m k n e x t k n e x ti f o ri = lt ok o n g h a o b i a o c o u n t d ow h i l es h u i un a m e c o u n t 0 s h u j un a m e r e m o v e1 l o o p f o rm i = g r i d1 f i x e d r o w st og r i d1 r o w s g r i d1 f i x e d r o w s g r i d l r o w = m i g r i d l c o l = 1 d a t an a m e = g r i d1 t e x t i fk o n g h a o _ b i a o i t e m ( i ) 2d a t a n a m et h e n f o ri = 2t o4 g r i d l c o l = i d a t an a m e = d a t an a m e + ”& ”+ g r i d l t e x t n e x ti s h u i un a m e a d dd a t an a m e e n di f n e x t m i b i a o n a m e = k o n g h a o b i a o 1 t e m ( i ) s e tn e w t a b l e = n e w d a t a b a s e c r e a t e t a b l e d e f ( b i a o _ n a m e ) 创建字段 f o rj = lt os h u ju n a m e c o u n t ”修改 f i l e n a m e = b r e a k t e x l ( s h u j u _ n a m e i t e m ( j ) ，”& ”，2 ，i ) + ”- ”+ b r e a k t e x l ( s h u j u n a m e i t e m ( j ) ，”& ”，4 ，1 ) f o rk = lt o3 2 0 翦切、缩波数据处理软件的开发 f i l e n a m ei = f i l e n a m e4 - i i 1 1 4 - f o r m a t s ( k ) s e tn e w f i e i d2n e w t a b l e c r e a t e f i e l d ( f i l e n a m ei ，d b t e x t ，5 0 ) n e w t a b l e f i e l d s a p p e n dn e w f i e i d n e x t k n e x t j n e w d a t a b a s e 。t a b l e d e f s ，a p p e n dn e w ! a b l e m a x i = s h u j u _ n a m e c o u n t + 3 r e d i mq d a t a ( m a x _ i ，3 ，514 ) a sd o u b l e r e d i mq b a s e 2 ( m a x _ i ，3 ，3 ) a ss t r i n g f o rj = lt os h u j u n a m e c o u n t f i l e n a m e 2 = b r e a k _ t e x l ( s h u j u n a m e i t e m ( j ) ，”& ”，5 ，1 ) o p e n f i l e lf i l e n a m e 2 q b a s e 2 ( j ，l ，1 ) = v a l ( b r e a k _ t e x ( q b a s e ( 3 ) ，”，”，1 ，1 ) ) q b a s e 2 ( j ，2 ，1 ) = v a l ( b r e a k _ t e x ( q b a s e ( 3 ) ，”，”，2 ，1 ) ) q b a s e 2 0 ，3 ，1 ) = v a l ( b r e a k _ t e x ( q b a s e ( 3 ) ，”，”，3 ，1 ) ) q b a s e 2 ( j ，1 ，2 ) = v a l ( b r e a k _ t e x ( q b a s e ( 3 ) ，”，”，5 ，1 ) ) q b a s e 2 ( j ，2 ，2 ) = v a l ( b r e a k _ t e x ( q b a s e ( 3 ) ，”，”，7 ，1 ) ) q b a s e 2 ( j ，3 ，2 ) = v a l ( b r e a k _ t e x ( q b a s e ( 3 ) ，”，”，9 ，1 ) ) f o rm k = lt o2 q d a t a ( j ，1 ，m k ) = q b a s e 2 ( j ，l ，m k ) q d a t a ( j ，2 ，m k ) = q b a s e 2 ( j ，2 ，m k ) q d a t a ( j ，3 ，m k ) = q b a s e 2 ( j ，3 ，m k ) n e x t m k f o r m k = 3t o5 】4 q d a t a ( j ，1 ，m k ) = q d a t a l ( i n k - 2 ) q d a t a ( j ，2 ，m k ) = q d a t a 2 ( m k - 2 ) q d a t a ( j ，3 ，m k ) = q d a t a 3 ( m k 一2 ) n e x t m k n e x t k n e x t j d a t a1 r e c o r d s o u r c e2b i a o n a m e d a t a1 r e f r e s h ”加入基本数据 f o r j = lt d5 1 4 d a t a l r e c o r d s e t a d d n e w d a t a l r e c o r d s e t u p d a t e d a t a l r e c o r d s e t m o v e l a s t f o rk = 0t os h u j u _ n a m e c o u n t l k k = k + 3 f o r m k = 0 t o2 d a t al ，r e c o r d s e t e d i t d a t a i r e c o r d s e t f i e l d s ( k k + m k ) v a l u e = q d a t a ( k - i - 1 ，m k + l ，j ) d a t a l r e c o r d s e t u p d a t e n e x tm k 2 i 剪切、压缩波数据处理软件的开发 n e x t k n e x t i d a t a l d a t a b a s e c l o s e n e x ti 添加深度之数据库 s e tn e w t a b l e2 n e w d a t a b a s e c r e a t e t a b l e d e f ( b i a o _ n a m e + “d e p t h ”1 ”创建字段 s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”测点号”，d b t e x l ，10 ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d s e tn e w f i e l d = n e w t a b l e c r e a t e f i e l d ( ”深度”，d b d o u b l e ) n e w t a b l e f i e l d s a p p e n dn e w f i e l d n e w d a t a b a s e t a b l e d e f s a p p e n dn e w t a b l e d a t a l r e c o r d s o u r c e = b i a on a l t l e + “d e p t h ” d a t a l r e f r e s h i fc e h a o = f a l s e f o rj2lt os h u j u _ n a m e c o u n t i f i 1t h e n i f b r e a k _ t e x i ( s h u j u _ n a m e i t e m ( j ) ，”& ”，2 ，1 ) = b r e a k _ t e x l ( s h u j u _ n a m e 1 t e m ( j 1 ) ， ”& ”，2 ，1 ) t h e n i fc e h a o = t r u e e i s e i fc e h a o = f a l s e e n di f e n di f i fi fc e h a o = f a l s et h e n d a t a i r e c o r d s e t 。a d d n e w d a t a l r e c o r d s e t u p o a t e d a t a l 。r e c o r d s e t m o v e l a s t f o r m k = 0 t ol d a t a l r e c o r d s e t e d i t i f m k = 0 t h e n d a t a l r e c o r d s e t f i e l d s ( m k ) v a l u e = b r e a k _ t e x l ( s h u j u _ n a m e i t e m ( j ) ，“& ”，2 ，1 ) e l s e d a t a l r e c o r d s e t f i e l d s ( m k ) v a l u e = b r e a k _ t e x i ( s h u j u n a m e i t e m ( j ) ，”& ”，3 ，1 ) e n di f d a t a l r e c o r d s e t u p d a t e n e x t m k e n di f n e x ti d a t a1 d a t a b a s e c l o s e “”创建字段 e l s e s e tn e w d a t a b a s e = d be n g i n e w o r k s p a c e s ( 0 ) o p e n d a t a b a s e ( nl e n a m el ，f a l s e ) “寻找是否有重复表 2 2 剪切、压缩波数据处理软件的开发 d a t a1 d a t a b a s e n a m e = f i l e n a m el d a t a l r e c o r d s e t t y p e = 0 s e tt d = n e w d a t a b a s e t a b l e d e f s ”将已有表覆盖 调查是否有基本数据表 d i mi fb a s ee x i ta sb o o l e a n i fb a s ee x i t = f a l s e f o ri = 0t ot d c o u n t 1 i ft d ( i ) n a m e2 ”b a s e d a t a ”t h e n i fb a s ee x i t = t r u e e x i t f o r e n di f n e x t i i f i fb a s ee x i t = t m et h e n d i mk o n g _ h a oa sn e wc o l l e c t i o n d a t a i r e c o r d s o u r c e = ”b a s ed a t a ” d a t a1 r e f r e s h d a t a l r e c o r d s e t m o v e f i r s t d ow h i i en o td a t a l r e c o r d s e t e o f k o n g _ h a o a d dd a t a l r e c o r d s e t f i e l d s ( 0 ) v a l u e d a t a l r e c o r d s e t m o v e n e x t l o o p d i mi fk o n ge x i ta sb o o l e a n i f _ k o n g _ e x i t = f a l s e f o ri = lt og r i d 2 r o w s g r i d 2 f i x e d r o w s g r i d 2 r o w = i g r i d 2 c o l = l i f - k o n g _ e x i t = f a l s e f o ri = lt ok o n g _ h a o c o u n t i fl t r i m $ ( r t r i m $ ( g r i d 2 t e x t ) ) = k