输油生产数据管理系统的开发与应用.docVIP

输油生产数据管理系统的开发与应用.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
输油生产数据管理系统的开发与应用.doc

输油生产数据管理系统的开发与应用   【摘要】针对长输管线上输油生产数据管理的特点,简要阐述了输油生产数据管理系统开发的内容、意义以及应用效果。输油生产数据管理系统已经在鲁宁输油管线的输油生产数据管理工作上试应用。   【关键词】长输管道;输油生产;数据管理   长输管道具有距离长、管理难度大的特点,特别是早期建设的部分原油输送管道,受限于当时的技术水平,自动化管理水平普遍较低。中石化所辖邹城输油处长输管线投产以来,一直使用电话汇报、手工记录的方式记录各站库生产数据,出错率高而且多个输油站同时汇报使调度人员应接不暇,造成数据处理的迟缓和混乱,在一定程度上影响管理水平和经济效益的提高。随着管道公司现代化水平全面提高,电话汇报的管理方式已经处于落后水平,而借助公司内部局域网可以方便地进行生产数据的管理,同时利用计算机对相关数据进行分析处理,可以极大提高工作效率。同时提高数据汇报的准确性,对于石油企业保证安全生产有重要意义。   1.数据管理系统的开发内容   输油生产数据管理系统主要设计了泵站输油生产报表的数据提取保存功、数据报表的局域网传输、服务器端的数据库的保存与查询功能,包括数据采集、存储、传输、统计汇总、查询、报表打印及图形输出等。将计算机技术和现代通讯技术有机的结合在一起,实现了长输管线生产管理信息的最优化处理。其中主要的研究重点是局域网内数据的无差错稳定传输;单一服务器端对多个客户端的局域网通信技术;数据的提取及保存;数据库的保存和查询。其目标是对现有管道输油的汇报方式进行更新,提高数据汇报系统的可靠性,提高工作效率,保证输油安全生产。   1.1 系统软件的开发   输油生产数据管理系统的设计开发主要有数据报表、服务器端程序、客户端程序等内容。   (1)数据报表的制作   邹城输油处有12个输油泵站,其中临邑首站和其他11个中间泵站的数据报表不同,因此要同时制作适合临邑输油站的数据报表、适用于中间泵站和末站的数据报表和适用于处调度的汇总报表。利用EXCEL表格处理软件制作的数据报表实现简单,并且利用VBA宏功能,能实现复杂的表格制作,生成符合要求的数据报表。   (2)系统程序的设计   程序的制作分为临邑站客户端程序,中间站客户端程序和处调度服务器端程序。使用VB语言编程实现简单,而且利用VB开发环境中的Active控件实现例如EXCEL报表操作、内部局域网数据传输,设计程序的相关功能模块,包括数据报表的传输,数据报表汇总,数据报表保存分析,软件状态的保存以及其他设置功能等功能极为方便。   1.2 数据通信的实现方法   由于各站调度室的电脑只能连接单位内网,因此系统软件利用VB程序中自带的WINSOCK控件实现处调度与输油泵站调度的上下级网络联系,利用处调度电脑的固定内网IP地址,通过固定多个通信端口来实现多个泵站调度同时对处调度的通信。数据传输的代码如下。   Private Sub chudiaodu_DataArrival (ByVal bytesTotal As Long)   Dim WskChat As String   filename = App.Path amp; \temp.xls   chudiaodu.GetData WskChat   GetFileNum = FreeFile   LenFile = FileLen(filename)   Open filename For Binary As #GetFileNum   OnSend = True   querenhuibao.Enabled = False   Call SendFile(chudiaodu,GetFile-Num,SplitFile)   End Sub   1.3 数据提取的实现方法   由于报表模板均为EXCEL制作,因此可以方便的利用VBA进行数据提取功能的实现。将数据报表模板设计好后,固定数据的存储位置即可利用VBA进行数据的提取工作。数据提取的代码如下。   Workbooks.Open (ExcelPath.filename)   Sheets(“上报报表”).Select   jinzhanyali.Text = Range(B amp; loc).Text   …………   diwen.Text = Range(AJ amp; loc).Text   MsgBox “报表提取成功!”, vb-OKOnly, “提示”   Windows(ExcelPath.FileTitle).Close (False)   2.数据管理系统的整体测试   在系统软件编写调试完成后我们进行了相关的测试使用,由于系统实现了泵站生产报表数

文档评论(0)

sis_lxf + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档