基于Skyline的煤矿安全管理三维信息系统.pdf

《基于Skyline的煤矿安全管理三维信息系统.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第4期矿山测量NO．42014年8月MINESURVEYINGAug．2014doi：10．3969／j．issn．1001—358X．2014．04．11基于Skyline的煤矿安全管理三维信息系统姜华，田忠星(I．山东省煤炭工业局安全生产调度指挥信息中心，山东济南25003I)(2．山东科技大学测绘科学与工程学院，山东青岛266000)摘要：文中以Skyline和SQLsei'ver数据库技术为基础，应用C样编程语言，研制了煤矿安全管理三维信息系统。该系统由用户登录、空间定位、属性查询、空间漫游、隐患管理等7个模块组成，实现了煤矿井下三维表达、安全信息的及时查询和管理。实践证

2、明，它是煤矿安全生产和防灾救灾的不可或缺的信息平台。关键词：skyline；煤矿安全；数字矿山中图分类号：P208文献标识码：B文章编号：1001—358X(2014)04—0027—03SkylineTerrasuite系列软件是利用航空影像、卫解决三维空间应用的决策方案。与同类别软件比星数据、数字高程模型和其它的2D或3D信息源，包较，Skyline系列软件在三维数据处理技术、虚拟现实括GIS数据集等创建的一个三维交互式环境。它能效果、系统二次开发等方面有着明显的优势，是“数够允许用户快速地融合数据、更新数据库，并且有效字城市”和“数字矿山”等虚拟现实项目建设过程中地支持大型

3、数据库和实时信息流通讯技术。最佳的三维GIS平台软件之一[2]。本文以skyline和sql数据库技术为基础，应用1．2SQLserver数据库c#编程语言建立了基于skyline的煤矿安全管理三SQLserver数据库是美国Microsoft公司推出的维信息系统，实现了煤矿井下信息的及时查询和管一种可扩展、高性能的关系型数据库系统，为分布式理。实践证明，它是煤矿安全生产和防灾救灾的不客户机／服务器计算所设计，实现了与WindowsNT的可或缺的信息平台。．有机结合，提供了基于事务的企业级信息管理系统方案。1开发基础其主要特点如下：1．1SkylineTerrasuite系列软件

4、(1)高性能设计，可充分利用WindowsNT的优SkylineTerrasuite系列软件，可以利用卫星数势。据、航空影像、数字高程模型和其它的2D或3D信息(2)系统管理先进，支持Windows图形化管理工源，创建一个三维交互式环境，允许用户快速有效地具，支持本地和远程的系统管理和配置。融合数据、更新数据库、支持实时信息流通讯，能够(3)事务处理功能强劲，采用多种方法保证数据实时地向用户展现3D地理空间影像。的完整性。Terrasuite是独立于硬件之外的一套多平台、多(4)支持对称多处理器结构、存储过程、ODBC，功能的软件系统，由TerraBullder，TerraExP

5、lorePro，并具有自主的SQL语言。SQLServer以其内置的数TerraGate三个主要产品组成，分别负责建立三维地据复制功能、强大的管理工具、与Internet的紧密集理信息数据库、创建三维场景及网络发布三维地理成和开放的系统结构为广大的用户、开发人员和系信息。TerraExPlorerPro向用户开放了TerraExPlorer统集成商提供了一个出众的数据库平台。API，并提供TerraDeveloper二次开发包，以便用户定2系统设计制自己的应用程序。Skyline软件内嵌多种空间分析模块(距离量测、面积量算、剖面分析、等高线生根据用户需求和系统的目标和任务，采用模

6、块成、视域分析)，用户根据需要，可以轻松方便地实现化、开放式的设计思路进行系统的设计。确保系统三维空间分析；Skyline系列软件还可以为用户提供技术先进、运行可靠和实用性强。27第4期矿I山测量2014年8月openfnameForInputAs#1Sheets(”原始数据1”)．ActivateDoWhileNotEOF(1)循环至文件尾Application．Run”复制成果表”i=i+1Application．Run”填写成果表”Input#1，ID，XI，YI，ZI读人一行数据Application．Run”设置行高”并将其赋予某变量Application．Displa

7、yAlerts=FalseSheets(”原始数据”)．ActivateSheets(”原始数据1”)．DeleteSheets(”原始数据”)．Cells(i，1)=IDApplication．DisplayAlerts=TrueSheets(”原始数据”)．Cells(i，2)=XISheets(”断面测量成果表”)．ActivateSheets(”原始数据”)．Cells(i，3)=YIRange(”A1”)．SelectSheets(”原始数据”)．Cells(i，4)=