PowerBuilder中利用OLE技术实现与Excel的通信

１３９南ＩＩ＝科技２００８ｔ５￣１期　网络纵横　Ｐｏｗｅ　ｒＢ　ｕ　ｉ　ｌ　ｄ　ｅ　ｒ中利用Ｏ　Ｌ　Ｅ技术实现与Ｅ　ｘｃｅ　ｌ的通信　靳小红　杨运峰　（河南省新乡广播电税大学１　摘要文章阐述了如何使用ｏＬＥ技术实现ＰｏｗｅｒＢｕｉｌｄｅｒ９　０应用程序与Ｅｘｃ　ｅ】２００３的通信，通过实例说明怎样把存储在数据库中的　数据信息传递￣／ｊＥｘｃｅｌ电子表格中　关键词ＯＬＥ自动化Ｅｘｃｅｌ２００３　ＰｏｗｅｒＢｕｉｌｄｅｒ９　０　ＰｏｗｅｒＢｕｉｌｄｅｒＯ．０（以下简称ＰＢ９．０）是Ｓｙｂａｓｅ公二Ｊ推出的面向对象　属性没鼍浯法格式为：ＯＬＥ变量名．ｆ服务器限定浏】属性名。　数据库应用开发工具。ＰＢ９．１）除ｒ能够设计传统的高性能、基于客户　机，胃艮务器（ＣｌｉｅｎｆｆＳｅｒ￣。ｅｒ，体系结构的应用系统外，也能够方便地构　造和实现分布式系统。ＰＢ９．０以其功能强大、使用方便的数据窗口对　象而著称，利用数据窗口对象可以方便地制作各种打印报表。　Ｅｘｃｅｌ是微软公司Ｏｆｆｉｃｅ）／、公系列工具中一个出色的电子表格工具。如　果能把ＰＢ９．０ｎ崩程序读取的数据动态制作成一张电子表格，那么生　成的电子表格报表就会随着数据库中信息的改变而改变，并通过　Ｅｘｃｅｌ对报表进行编辑和打印。　１　ＯＬＥ自动化　ＯＬＥ自动化是应用于不浏应用程序之】　进行通信的一个标准。　ＯＬＥＩ￣动化的工作方式是：通过０ＬＥ服务器应用程序ＩＳ］ＯＬＥ客户机应　用程序提供可供其调用的０ＬＥ自动化对象类型，ＯＬＥ客户机通过引用　这些对象实现对０ＬＥ月艮务器的调用，然后通过没置对象的属性和使用　对象的方法操纵０ＬＥ月艮务器应用程序，完成两者之恻的通汛。　２实现方法　实现ＯＬＥＩ￣１动化的几个步骤可以在一个事件脚本中完成。　２　１建立一个与Ｅｘｃｅｌ通信的Ｏｂｊｅｃｔ　ＯＬＥＯｂｊｅｃｔ　Ｅｘｃｅｌ＿ｓｅｒｖｅｒ　Ｅｘｃｅｌ＿ｓｅｒｖｅｒ＝ＣＲＥＡＴＥ　ＯＬＥＯ￣ｅｃｔ　２．２与服务器应用程序连接　ＰＢ９．０提供的函数ｃｏｎｎｅｃｔＴｏＮｅｗＯｂｊｅｃｔ用来在一个ＯＬＥＯｂｊｅｃｔ对　象与ＯＬＥ月陉务器建立连接，连接一个对象ｔｇ￣，ｔ启动了响应服务器，该　函数语法格式为：ｏｌｅｏｂｊｅｃｔ．ｃｏｎｎｅｅｔＴｏＮｅｗＯｂｊｅｃｔ（ｃｌａｓｓｎａｍｅ）　。　（１）参数：　ｏｌｅｏｂｊｅｃｔ：ＯＬＥＯ￣ｅｃｔ对象变量名，新的ＯＬＥＳ￣Ｉ＂象将连接到该变　量上。　Ｃｌａｓｓｎａｍｅ：ｓｔｒｉｎｇ类型，其值是ＯＬＥ类名，它指名了０ＬＥ服务器　应用程序以及该服务器能够通过ＯＬＥ操作的对象类型。　（２）返　值：　Ｉｎｔｅｇｅｒ。函数执行成功时返１０１ｏ，发生错误时返回下述值之一：　一１无效调用。　一２未找到指定的类。　一３不能创建对象。　一４不能连接到对象。　一９其他错误　（３）用法：　根据使用０ＬＥ服务器的对象类型，利用ＣｏｎｎｅｃｔＴｏＮｅｗＯｂｊｅｃｔ（　）　函数建立连接，根据返回参数判断０ＬＥ月陉务器连接是否成功，对于　ｏｆｉｆｃｅ２（Ｘ）３套件中的应用程序提供如下儿种常用的服务器标　：　“Ｗｏｒｄ　Ａｐｐｌｉｃａｔｉｏｎ’’　“Ｗｏｒｄ．Ｄｏｃｕｍｅｎｔ’’　“Ｅｘｃｅｌ　Ａｐｐｌｉｃａｔｉｏｎ’’　“Ｅｘｃｅ１．Ｗｏｒｋｓｈｅｅｔ’’　“ＰｏｗｅｒＰｏｉｎｔ．Ａｐｐｌｉｃａｔｉｏｎ”　例如调用ＣｏｎｎｅｃｔＴｏＮｅｗＯｂｊｅｃｔ（）函数创建新的Ｅｘｃｅｌ对象并连接　到该对象上代码为：　Ｅｘｃｅｌ—ｓｅｒｖｅｒ　ｃｏｎｎｅｃｔＴｏＮｅｗＯｂｉｅｃｔ　（“ｅｘｃｅ１．ａｐｐｌｉｃａｔｉｏｎ”）　２．３使用服务器应用程序的属性和函数操纵这个对象　ＯＬＥＯ￣ｅｃｔ对象和ＯＬＥ服务器建立连接后，就可以没置属性并调　用由ｏＬＥ服务器支持的函数。　例如：Ｅｘｃｅｌ＿ｓｅｒｖｅｒ．ＡｃｔｉｖｅＳｈｅｅｔ．Ｃｅｌｌｓ（ｉ，ｊ）．ｖａｌｕｅ＝２４　调用服务器的函数语法格式为：ＯＬＥ变量名、ｆ服务器限定测）函　数名（（参数】）。　例如：Ｅｘｃｅｌ＿ｓｅｒｖｅｒ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ（“ｄ：＼ｐｂｅｘｃｅ１．ｘｌｓ”）　２．４关闭与ＯＬＥ对象的连接并清除变量　当应用程序中的ＯＬＥ对象已经结束时，必须关闭ＯＬＥ对象与服务　器应用程序的连接，并且释放ＯＬＥ对象所占的ｆ勺存空间。所用函数为　ＤｉｓｃｏｎｎｅｃｔＯｂｊｅｃｆ），语法格式为：ｏｌｅｏｂｊｅｃｔ．Ｄｉｓｃｏｎｎｅｃｔ０　ｅｃｔ（）　。　（１）参数　ｏｌｅｏｂｊｅｃｔ：ＯＬＥＯ￣ｅｃｔ对象变量名。　（２）返回值　Ｉｎｔｅｇｅｒ。函数执行成功时返回０，发生错误时返回下述值之一：　一１无效渊用　一９其他错炭。　３编程实例　３　１界面设计　实例界面如图ｌ所示，其主要控件见表１　，　图１实倒界面　袁１实例主要控件　３．２主要事件　（１）应用的０ｐｅｎ事件代码”　ｓｑｌｃａ　ｄｂｍｓ＝“ｏｄｂｃ”　臌据源名称为ｓｔｕｄｅｎｔ　ｓｑｌｃａ．ｄｂｐａｒｍ＝”ｃｏｎｎｅｃｔｓｔｒｉｎｇ＝＇ｄｓｎ＝ｓｔｕｄｅｎｔ；ｕｉｄ＝ｄｂａ；ｐｗｄ＝ｓｑｌ…　ｃｏｎｎｅｃｔ；　惟接数据库　ｏｐｅｎ（ｗ　ｓｔｕ），，主窗口名称为ｗ＿ｓｔｎ　（２）主窗Ｅｌ　ｗ．＿ｓｔｕ的ｏｐｅｎ事件代码　ｄｗ１．ｓｅｔｔｒａｎｓｏｂｊｅｃｔ（ｓｑｌｃａ）　ｄｗ＿１．ｒｅｔｒｉｅｖｅ０　（３腔件ｃｂ—ｃｌｏｓｅ的ｃｌｉｃｋｅｄ事件代码　Ｃｌｏｓｅ（ｐａｒｅｎｔ）　（４）控件ｃｂ＿ｅｘｃｅｌ的ｃｌｉｃｋｅｄ事件代码　ｏｌｅｏｂｊｅｃｔ　ｅｘｃｅｌ　ｓｅｒｖｅｒ　ｉｎｔｅｇｅｒ　ｅｘｃｅｌｏｋ，］］ｃｏｌｎｕｍ，ｌｌｒｏｗｎｕｍ　ｓｔｒｉｎｇ　ｌｓｃｏｌｎａｍｅ，ｌｓｖａｌｕｅ　ｉｎｔｅｇｅｒ　ｉ，Ｊ，ｋ　ｅｘｃｅｌｓｅｒｖｅｒ＝ｃｒｅａｔｅ　ｏｌｅｏｂｊｅｃｔ　ｉｉ越　Ｅｘｃｅｌ　ｉｆ　ｅｘｃｅｌｓｅｒｖｅｒ　ｃ０ｎｎｅｃｔｔ０ｎｅｗ０ｂｊｅｃｔ（“ｅｘｃｅ１．ａｐｐｌｉｃａｔｉｏｎ　）＜＞（）ｔｈｅｎ　ｍｅｓｓａｇｅｂｏｘ（“ｏｌｅ错误“，“ＯＬＥ无法连接“）　ｒｅｎｔｒｌｌ　ｅｎｄｉｆ　／／得到数据窗口数据的列数　ｌｌｃｏｌｎｕｍ＝ｌｏｎｇ（ｄｗ——１　ｏｂｊｅｃｔ　ｄａｔａｗｉｎｄｏｗ．ｃｏｌｕｍｎ．ｃｏｕｎｔ）　，／得到数据窗口数据的行数　维普资讯 http://www.cqvip.com １；ｏ９　肉拓科技２００　技术创新　Ｙ＝ｂＯ＋ｂｌｘＩ＋ｂ２　ｘ：　另外，对于回归模型，还需要进行显著性检验。检验时，需要计　用最小二乘法来求上式中的待定系数ｂ。，ｂ．，　。若记　算以下两个平方和，然后查盼布表。　ａ＝Ｚ（ｙｆ—ｂｏ—ｂｌＸｎ—ｂｚＸｉ２）　２　ｔ＝ｌ　回归平方和：Ｓ　＝∑６　，残差平方和：　，　一Ｓ　ｊ＝ｔ　贝ｌ使得Ｑ达到最小，ｂｏ，ｂ　，ｂ　必须满足下列方程：　式中　＝∑（　一　）　０ａ　ｎ　ｉ＝１　一０ｂｏ　２　Ｚ（ｙ　一ｂｏ－ｂ￣ｘｉ】－ｂ２ｔ２）＝Ｏ　ｊ＝ｌ　．．　ｂ　ｔ　定义　二　（ｉ＝ｌ，２；ｍ＝２）式中，ｌ”为正规方程系数　ａＱ　＾　一２　Ｚ（ｙ，一　一６ｌ　，ｌ－ｂ２　２）Ｘｉｌ；ｏ　矩阵的逆矩阵的第ｉ个主对角元。汁算出　，给定检验水平　，查盼　１　ｉ＝１　布表得到临界值　。如果　＞　，则对应的参数对抗压强度的影响是　　Ｘｉｌ－ｂ２ｘ／２　＝ｏ　显著的。否则该参数对抗压强度的影响是不显著的。　＝　砉ｃ根据岩石力学实验和测井解释的结果，岩石抗压强度Ｅｌ＂与地层　ｆ￣＿－ｔ化简整理，则ｂ　，ｂ　，ｂ。必须满足下列方程的解。　深度ｈ、声波时差△ｋ的基本数据见表ｌ，通过回归计算，最终得到岩　Ｉ　ｉｌｌｂ｜＋Ｌ２ｂ　ｉｌ　ｙ　石抗压强度Ｅｌ＂　的计算公式为：　ｌ２１ｂ１＋ｌ控ｂ２＝ｌ　仃　：－０．Ｉ６７８—１６３０９０７　＿００２　，＋ＯＩ３８９８×１Ｏ　＾　∞３　ｂｏ－－ｙ－ｂ｜ｘ｜～ｂ２ｘ　通过检测可知（见表１），模型误差最大范围也只达到１．５．０４％。　式中．　３结论与建议　一　Ｙ＝二∑Ｙ　（１）由于地层的复杂性及其非均质性，在选取不同深度地层的　测井资料时，对所取的资料点应依据实际情况取舍；为避免误差较　１　ｎ　（．『＝　＇２）　大，应尽量多取些资料点，选取正确的对比资料点是建立正确模型的　，　前提。　（２）岩石抗压强度与地层深度、声波时差及孔隙度等参数有比　ｌ　＝∑（　一　）（　一　）　较密切的关系。建立计算岩石抗压强度的回归模型时，应尽量建立岩　石抗压强度与多个影响参数之间的多元回归模型。　ｌ　＝∑（　）（），　～　）　（　＝ｌ，２）　（３）本回归建立的岩石抗压模型，其计算值与真实测量值之问　的误差较小。针对南海流花油田的岩石抗压强度的预测，其精确度较　高，理论与方法具有借鉴作用。　上述方程的前两个方程为二阶正规方程。正规方程的系数矩阵　为：　ＬＬ：　，驭：：＝（　）２ｘｚ＝Ｉ乏，“：　　，／１　２Ｉ　参考文献　（１】王德新，吕从容．油井中后期出砂预测及防砂对策Ⅱ】、石油钻采　工艺。１９９７，１９（３）：８１—８４　未知参数与常数项分别记为：　（２】王渊，李兆敏，王德兴等岩石抗压强度回归模型的建立【Ｉ】．断　Ｂ＝（　，ｂ２）　，Ｌ　＝／ｌｙ　ｌ２　）　块油气田。２００５，１２（２）：１７—２（）　【３】万仁溥现代完井－Ｔ－－；￣［Ｍ】．北京：石油工业出版社，１９９６．３９～４８　于是正规方程为ＬＢ＝Ｌ￣　【４Ｊ章成广，李雏彦。樊小意等．用全波列测井资料预测地层破裂压　由此可以得到回归系数Ｂ＝Ｌ～Ｌ　力的应用研究【Ｉ】．工程地球物理学报。２００４，１（２）　１２０～１２４　于是汁算ｂ　、　得出　【５】楼一珊，金业权编著、岩石力学与石油工程【Ｍ１．北京：石油工　（６。，ｂ　）　＝Ｌ　Ｌｙ即：（　，ｂ２）＝（Ｌ　Ｌｙ）　业出版社．２００６　１０２～１０３　作者简介付在国（１９８３－），长江大学石油工程学院助教（学士），　其中　一∑＿』　主要从事油气储运工程教学与研究工作。　ｊ＝ｌ　（收稿日期：２００７・１１・Ｏ１）　（接１３９页）Ｉ１＿ｒｏｗｎｕｍ＝ｄｗ－１．ｒｏｗｃｏｕｎｔＯ＋１　／／断￣－ＯＬＥ连矮　ｅｘｃｅＬｓｅｒｖｅｒ　ｗｏｒｋｂｏｏｋｓ．ａｄｄ　ｅｘｃｅｌ　ｓｅｒｖｅｒ，ｄｉ￣ｏｎｎｅｃｔｏｂｊｅｃｔＯ　ｆ０ｒ　ｉ＝ｌ　ｔｏ　ＩＩｃｏｌｎｕｍ　—ｄｅｓｔｒｏｙ　ｅｘｃｅｌ—ｓｅｒｖｅｒ／／清除变量ｅｘｃｅｌ—ｓｅｒｖｅｒ　俯到标题头的名字　本实例通过ＯＬＥ自动化，实现了ＰＢ９、０应用程序与Ｅｘｃｅｌ２００３的服　Ｉｓ＿ｃｏｌｎａｍｅ＝ｄｗ—ｌ、ｄｅｓｃｒｉｂｅ（＇＃＇＋ｓｔｒｉｎｇ（ｉ）＋＂．ｎａｍｅ”）＋．．＿ｔ　Ｉｓｖａｌｕｅ＝ｄｗ务器的通信。用同样的方法可以实现ＰＢ９．０与Ｗｏｒｄ、ＰｏｗｅｒＰｏｉｎｔ的通　—＿１．ｄｅｓｃｒｉｂｅ（Ｉｓ＿ｃｏｌｎａｍｅ＋”．ｔｅｘｔ”）　，，把标题写入电子表格的第一行　信。在实际应用中，可以对本实例的相应代码进行移植，即可应用到　ｅｘｃｅＩ　ｓｅｒｖｅｒ．ａｃｔｉｖｅｓｈｅｅｔ．ｃｅｌｌｓ（１，ｉ）．ｖａｌｕｅ＝ｌｓ＿ｖａｌｕｅ　其他的系统中。运用ｏＬＥ技术，在开发新的应用程序时可以“借用”　ｎｅｘｔ　现成的应用程序的部分或全部功能，从而大大减轻开发的工作量，缩　胂　数据窗口中所有记录写入电子表格相应的单元格中　短开发周期，使开发工作事半功倍。　ｆ０ｒｉ＝－２　ｔｏ　ＩＩｒｏｗｎｕｍ　＿ｆｏｒｊ＝ｌ　ｔｏＩＩ＿ｃｏｌｅｎｍ　ｄｗ—ｌｌｓｃｒｏｌｌｔｏｒｏｗ（ｉ—ｌ】　参考文献　ｄｗ【１】李超ＰｏｗｅｒＢｕｉｌｄｅｒ８．ｏ编程基础【Ｍ　Ｊ＿北京：清华大学出版社。　—１．ｓｅｔｃｏｌｕｍｎ（ｊ）　ｌｓｖａｌｕｅ＝ｄｗ２０（）３，２０３－３０１　＿＿１．ｇｅｔｔｅｘｔＯ　ｅｘｃｅｌ—ｓｅｒｖｅｒ．ａｃｔｉｖｅｓｈｃｅｔ．ｃｅｌｌｓ（ｉ，ｊ），ｖａｌｕｅ＝Ｉｓ—ｖａｌｕｅ　（２】郑阿奇．ＰｏｗｅｒＢｕｉｌｄｅｒ￣用教程【Ｍ】北京：电子工业出版社，　ｎｅｘｔ　２０（）４．１６３—１６９　ｎｅｘｔ　（３】孙直权，张涛，邵亮等ＰｏｗｅｒＢｕｉｌｄｅｒ８．０进阶篇（ｎ　．北京：清华　ｅｘｃｅｌ＿ｓｅｒｖｅｒ．ａｐｐｌｉｃａｔｉｏｎ　ｖｉｓｉｂｌｅ＝ｔｒｕｅ　大学出版社，２００２。２３４—２５６　／／保存新建的文件　作者简介靳小红（１９７３一），女，新乡广播电视大学讲师，主要从　ｅｘｃｅｌ—ｓｅｒｖｅｒ．ａｃｔｉｖｅｗｏｒｋｂｏｏｋ．ｓａｖｅａｓ（”ｄ：、ｐｂｅｘｃｅｌ　ｘｌｓ”）　事计算杌程序设计研究。　（收稿日期：２（）（）７・０９・２９）