机务段安全质量信息管理系统的开发研究

2010-06-20陈晓敏上海铁路局上海机务段

上海铁道增刊 2010年1期

陈晓敏上海铁路局上海机务段

随着铁路的跨越式发展和第六次大面积提速调图，铁路所面临的安全质量形势越来越严峻。为了确保列车安全畅通，提供质量优良的机车，就必须持之以恒地加强对日常安全质量工作的卡控力度，使列车的安全正点率、机车质量的可靠性得到持续改进。作为机务部门的职能科室,为强化现场作业质量的检查督导力度，督促职工严格执行“两纪”，往往需要对职工现场作业进行不定期检查，将发现的安全质量隐患及时反馈给作业人员，督促其尽快纠正，规范作业以达保证机车质量之目的，这样就对职能部门反馈信息的准确性和时效性提出了更高的要求。为强化现场安全质量控制和提高作业现场的检查督导力度，迫切需要一个规范化管理平台,以实现全段安全质量数据信息的准确、快捷传递和共享。为此，我们进行了机务段安全质量信息管理系统的开发研究。

1 系统应用背景

过去，我们考查现场作业制度的落实情况时，通常是通过段职能部门对现场检查发现问题后整理、汇总、上报、发文等多层环节，才能反馈到责任人，这样一方面造成时间上的延迟，另一方面无法及时准确完成信息的传递，不利于现场作业人员及时规范作业、提高工作效率。如果能开发出安全质量信息管理平台，利用这个平台帮助职工提高工作效率，准确及时地将发现的问题反馈出去，可以减少职工麻痹大意、违规作业的现象。

随着科技进步，信息网络技术的不断发展，在现有资源条件下，如何利用既有资源设计开发出满足现场安全质量管理的“安全质量信息管理系统”，适应生产现场的需要，实现对现场安全质量检查、落实、验证、考核信息的闭环管理，确保将安全、质量方面存在的问题反馈到责任人，实现问题信息的有序可控管理，是摆在我们面前的一个新课题。

2 系统设计架构

根据现场情况，在工作站和服务器之间，对现场检查出的安全质量方面问题进行管理。该系统操作简易，实用性强，提高了对安全质量问题的控制力度以及现场作业人员的工作质量和效率，实现了企业内部对安全质量信息的实时性管理。其系统架构如图1所示。

图1 系统架构

3 系统设计环境条件

为了确定系统开发环境条件，多次和系统使用相关部门进行沟通，了解安全、质量方面问题信息的管理需求，比较分析当前已用技术（如：ASP、ASP.NET等），结合我段实际情况，确定技术线路，提出对安全、质量问题信息管理系统的构想，确定基本的开发环境。

⑴ 开发环境：基于ASP版本的服务器端脚本环境。

⑵ 开发语言：VBScript、JavaScript等脚本语言。

⑶ 数据库：选用 Access 2003。

选用ASP开发工具有以下优势：通过ASP我们可以结合HTML网页、ASP指令和ActiveX元件建立动态、交互且高效的浏览端和服务端可以互动的应用程序。服务端可以实时处理浏览器端的请求（Request）,然后将处理结果响应给浏览器端，所有程序都将在服务端执行，这样可减轻客户端浏览器的负担，大大提高交互速度。

4 系统功能设计

在多次与系统使用相关部门沟通，征询系统使用部门人员的建议和意见后，为了将系统进行关联分割，确定逻辑关联，根据前期工作确定此次开发系统的设计思路和设计流程，将系统功能主要划分为信息录入、信息查询和信息维护三个功能模块。

⑴信息录入。主要完成各车间部门对现场检查发现的安全质量隐患信息的汇总发布。包括安全质量信息发布录入、整改情况录入、验证情况录入。

⑵信息查询。主要是对已发布的安全质量问题信息类别、整改情况、验证情况进行统计查询。可以细分为：按部门查询、按时间查询、按问题类别查询以及组合查询。

⑶信息维护。主要完成一些系统基本数据的管理维护工作。可以细分为：权限设置、密码更改。

5 系统功能实现

分管安全、质量工作的职能部门通过日常对职工现场作业检查督导，将检查发现的违规信息在登录路内局域网段主页中的“安全质量信息管理系统”后将信息录入到数据库。各车间部门每天定时登录段主页后获取本部门在安全质量方面存在的问题信息，及时进行整改并将整改情况反馈给职能部门，职能部门在看到反馈信息后对其进行验证，验证通过后该问题信息跳转到数据库，验证信息不通过则由职能部门定责并交劳资部门进行考核，这样安全生产责任制的落实、考核和责任追究形成了闭环管理。

5.1 数据库的建立

根据用户的实际情况，主要建立wtk（问题信息库）和admin（用户）两个数据库，用来满足用户数据存储和访问的需要。

5.2 ASP语言程序模块

为了实现安全质量信息的录入、查询，使用ASP提供的内建对象所提供的方法和属性实现对建立的数据库的访问、写入和读取功能。

实现数据库访问的代码：

set conn=server.CreateObject("adodb.connection")

sql="Driver={Microsoft Access Driver(*.mdb)};

DBQ="&server.mappath("../db/MyData.mdb")

conn.open(sql)

实现数据库写入的代码：

dim rs

set rs=server.CreateObject("adodb.recordset")

strsql="select*from wtk"

rs.Open strsql,conn,1,3

rs.addnew

rs("数据库字段名")=request("控件名")

rs.update

实现数据库读取的代码：

dim rs

set rs=server.CreateObject("adodb.recordset")

strsql="select*from wtk where bm='"&m&"'and lb1='安全类'order by date desc"rs.Open strsql,conn,1,3 dim x

x=0

<%do while not rs.eof%>

<%x=x+1%>

<%=rs("数据库字段名")%>

<%rs.movenext

Loop

5.3 ASP语言的功能特点

它是一套微软开发的服务端脚本环境，也是一个开放的、不需要编译的WEB应用环境，ASP内含于ⅡS 3.0和4.0之中，通过ASP我们可以结合HTML网页、ASP指令和Actice X元件建立动态、交互且高效的WEB服务器应用程序，有了ASP就不必担心客户的浏览器是否能运行你所编写的代码，因为所有的程序都将在服务器端执行，包括所有嵌在普通HTML的脚本程序。当程序执行完毕后，服务器仅将执行的结果返回给客户浏览端，这样减轻了客户端浏览器的负担，大大提高了交互的速度。ASP具备以下一些特点：

⑴使用VBScript、Jscript等简单易懂的脚本语言，结合HTML代码即可快速完成网站应用程序。

⑵无须 compile编译、容易编写，可在服务端直接执行。

⑶使用普通的文本编辑器，如Windows的记事本，即可直接进行编辑设计。

⑷与浏览端无关（Browser Independence），用户端只需使用HTML码的浏览器，即可浏览Actice Server Pages所设计的网页内容。Actice Server Pages所使用的脚本语言（VBScript、Jscript）均在WEB服务器端执行，用户端的浏览器不需要能够执行这些脚本语言。

(5)ASP的源程序，不会被传到客户浏览器端，因而可以避免所写源程序被他人剽窃，也提高了程序的安全性。