设计开发
长输管道管材检测OA系统研制
张杰英
(西安石油大学电子工程学院陕西西安710065)
数事教术点果
摘要：根据长输管道管材检测要求及企业管理需求建立长输管道管材检测办公自动化管理系航。建立Acess数据库、服务器端和客户端服务的连接，并采用CreateOleObject方法调用数据流实现对O伍ce文档进行存能和控制。最终实现办公自动化管理系统对管材检测施工流程的优化。
关键调：长输管道施工管理系统C/S模式数据流
中图分类号：TP3 1引言
文献标识码：A
文章编号：1007-9416(2014)05-0166-01
ProviderName属性为DataSetProvider1，用来连接远端数据模块上
长输管道作为油气运输的主要方式，但在管道的制造、铺设及运行的各个阶段都可能出现漏。如何快速准确的掌握管材质量，提高管材检验效率，成为了长输管道管材管理自动化研究的热点。本文结合管材的检验和施工流程，建立了长输管道管材检测和施工管理系统。提供了可追查的文件审批流平台，有效缩短管材检测信
息处理，提高了人员的办公效率。 2系统设计及实现
2.1模型及功能设计
长输管道管材检测OA系统，以管道施工单位的检测和管理流程为框架，利用信息化手段来优化管理流程，提供高效的流程运行模式。根据上述目标，可建立长输管道管材检测OA系统模型。
(1)系统管理：包括用户管理、单位基本内容和密码修改。为了明确岗位职责，防止越权处理文件，系统中还包含了用户权限设置功能。
(2报告系统：包括焊材检验报告、现场口检验报告及工艺保定报告等。用于各种检测项目的管理和审批。
(3)重要业务：包括合同查询、当前任务浏览和采购计划查询。实现资料全面共享，消除信息孤岛。
(4)会议记录：包括文字会议、提交系统和审核会议。提高企业各级之间的信息交流，为上级部门做好准确的生产决策，协调好各个部门之间的工作。
(5)文件系统：包括合同、采购计划、请假条及焊工上岗考试，文件系统根据企业材料采购计划、工程合同流程和内部员工考核详细情况。
2.2系航实现过程
(1)Acoess数据库服务器设计。将检验报告文档中的各检验项目添加批注标签，制成Word模板，存放在C，temp目录下。根据批注标签名称建立OA.mdb数据库相应的表和字段名。
(2)服务器侧设计。服务器端由远程数据模块和处理服务器业务的服务单元组成。具体步骤如下：
①启动delphi7.0，建立一个工程项目。添加RemoteData Module数据模块，在此模块中添加ADOConnection1组件，设置 Provider属性连接数据库Microsoft.Jet.OLED4.0，选择数据源Data Source=E：V服务器侧OA.mdb，设置用户登录数据库的用户名和密码。
②在RemoteDataModule数据模块中添加ADODataSet组件，其用来连接数据库中相应的报告表，添加TDataSetProvider组件，其用来连接客户端与服务器端的数据集。
(3)客户程序设计。本系统使用远程数据库TSocketConnection 组件，在客户端与远程应用程序服务器间建立并维持连接，该组件在使用前需启动ScktSrvr.exe应用程序。具体步骤如下：
①新建工程，在窗体上添加TSocketConnection组件，运行服务器端程序，设置ServerName属性。添加TClientDataSet组件，设置 name属性，设置RemoteServer属性为SocketConnectionl，设置
的数据库组件。
②添加TDataSource组件，设置name属性为DataSourcel，设 DataSet属性为ClientDataSet1.用于连接数据控制组件和数据集组件
(4)Delphi实现Word文档在数据库中的存取.现有四种方法可实现Delphi访间和控制Word文档。本系统采用，CreateOleOb-ject方法创建并调用文档，此方法直接使用office所提供的VBA语言对Word文档的操作进行编程，能灵活的控制Word文档。
//创建焊材检验报告
TDataRecord.CreateWeldingReport var
//定义内存流
FTMemoryStream,
//模板先装载成流，然后以二进制流的形式提交到数据库并保存
F;TMemoryStream.Create,(FMData.Clientconstruct. FieldByName('报告模板')asTBlobField).SaveToStream(F)
F.SaveToFile('c:temp.doc'),//打开已有文件作为模板
GFileName;='c,temp.doc',
WordDoc. ConnectTo(WordApp.Documents.Item(Index),//根据需要生成word文件
FMData.ClientDataSet1.Open
worddoc.Comments.Item(1).Scope.Text:=FMData. ClientDataSet1.FieldByName('报告编号").AsString；
//批注标签处播人，然后制除批注，保存word
n;=worddoc.Comments.Count for i.=n down to 1 dc
worddoc.Comments.Item(i).Delete;
worddoc.SaveAs2000, end,
3结语
本文结合长输管道管材的检验和施工流程，建立了长输管道管材检测办公管理系统。对Ofice文档的存储及控制技术进行了研究和探讨。此办公自动化管理系统，技术上利用数据流实现了对Ofice 文档的存储及控制，实现了Delphi与Office文档的融合，在实际中，
提供了数字化办公环境，提高了企业的效率和竞争力。参考文献
[1]冯琦.张明智,窦彦辉,基中兴.油气管道风险管理技术现状及对策[J].油气储运,2004,07:6365+70.
[2]刘秀.De]phi与Word之问的融合技术[J].激海大学学报(自然科学版),2004,01:25-27.
[3]梁水,李方超,赛奎春.De]phi开发技术大全[M].北京：人民邮电出版社，2007
作者简介：张杰美(1988一),女，硕士研究生,从事OA系统开发等方面的研究。 166
务方数据