安全生产管理，最主要的就是对工艺指标进行管理，使各种设备运行在指标范围之内。

这样，生产过程才能保证安全，产品质量才能达到稳定。

所以，工艺指标的管理就显得尤为重要。

管理主页

指标管理当中，首先要对所有工艺指标进行统计建表，这里也做了指标登记功能。

管理主页当中有四项：工艺指标登记、指标查询、工艺状态、工艺指标数据管理。

数据表

工艺指标数据表格，的建立是管理的首项任务，必须要做到认真仔细，不出差错。

一旦有错误，就会影响产品质量。

就会出现差之毫厘，失之千里的结果。

数据表格如下：

运行状态查询

运行状态页面，下了一些功夫来编辑，主要是三个状态。

正常运行、超高限、超低限

一般在运行过程当中，生产指标会出现偏离状态。

通常地有相应的工艺偏离措施，这里没有做应急处理过程管理。

以后在另外的一个工艺生产应急管理方案里再做，这里先说说工艺指标状态提示。

这个很直观地看到哪些指标已经出现偏离状态，然后就启动偏离纠正方案，进行处理。

代码

这里主要介绍一下运行状态代码

以分页来显示不同的状态表格，不同的分页里有不同的表格显示结果。

有三个分页，这样一来，就有三套几乎相同的代码。

为了减少代码量，用了一个函数调用解决代码量增加的问题。

分页单击事件：

Private Sub MultiPage1_Click(ByVal index As Long)
Dim st()
st = Array("运行正常", "超高限", "超低限")'定义查询值
   Call view1(st(index), index)'调用显示查询结果数据 函数
End Sub

查询函数：

Function view1(st, indexs)
    Dim w As Worksheet, s As Worksheet
    Set w = ThisWorkbook.Worksheets("工艺指标管理")
    w.Activate
    Dim iRow As Integer, iCol As Integer
    iRow = w.Range("A65535").End(xlUp).Row
    iCol = w.Range("A1").End(xlToRight).Column
    Dim Rcells As Range
    'Set Rcells = w.UsedRange
    Set Rcells = w.Range("I2:I" & iRow)
    Dim values As String
    values = st
    If VBA.Len(values) = 0 Then Exit Function
    Dim Lname As String
    Lname = "ListView" & indexs + 1
    Me.Controls.Item(Lname).ListItems.Clear
    
    Dim lisObj As Object
    Dim x As Range, xr As Range
    For Each x In Rcells
        Set xr = x.Find(values, lookat:=False)
        If Not xr Is Nothing Then
          '  Set lisObj = Me.ListView1.ListItems.Add
            Set lisObj = Me.Controls.Item(Lname).ListItems.Add
            With lisObj
                .Text = w.Cells(x.Row, 1).Value
                For i = 1 To iCol - 1
                     .SubItems(i) = w.Cells(x.Row, i + 1).Value
                Next
            End With
        End If
    Next x
    Set xr = Nothing
    Set Rcells = Nothing
    Set w = Nothing
End Function

指标录入

建立指标数据的操作，就是个录入工作，没有什么特别介绍的内容。

认真仔细完成这一步就行了。

某人比较粗枝大叶，不太适合做这项工作，比如，写篇文章的人。

查询

这个也很好理解，有些工厂里，工艺指标达上百个，甚至更多。

不可能一眼看过去就找到，那么就需要一眼看过去的功能。

查询可以做到这一点，输入设备设施或工艺位号就可以看到相应记录，很方便。

结尾

喜欢这篇文章请关注：江觅易见

单击下面：了解更多