人、机、料、法、环管理，对机管理方法，你是这样做吗?

生产管理对人的管理，都已经完成，下一步，完成对机的管理操作。

机是包括动设备和静设备的管理，是所有生产资料中，相对重要的对象。

设备管理分了8个子项，设备信息、设备维护、配件管理、运行情况、报废管理、检测检定、变更管理和故障管理。

大的项目就这几类，其中设备运行过程中有巡检过程，等等就整合到子项目里来制作。

本文主要介绍设备信息管理，如下图所示：

设备信息，也就是设备台账的一些记录管理，相对简单，把所有台账登记完成就基本不动了，除非进行变更和报废有一些变化，这部分重点是进行信息整理。

设备信息做了几个功能，添加信息、修改、删除、查询和统计，如上图所示。

全部在一个操作页面里完成，减少了窗体切换，也增加了操作便捷性。

代码：

Private Sub ChangeInfo()

'修改信息

On Error Resume Next

If CheckTextIsNull Then Exit Sub '检测是否有空值

Dim xID

xID = xTextinfo(1)

If VBA.Len(VBA.Trim(xID)) = 0 Then Exit Sub

Dim R As Range, i As Integer, ic As Integer, ir As Long, j As Long

ir = xSheet.Cells(xSheet.Rows.Count, 1).End(xlUp).Row

ic = xSheet.Cells(1, xSheet.Columns.Count).End(xlToLeft).Column

If ir <= 1 Then Exit Sub

If ic <= 1 Then Exit Sub

Set R = xSheet.Range("A2:A" & ir).Find(xID, LookIn:=xlValues, lookat:=xlWhole)

If Not R Is Nothing Then

'修改信息

For i = 1 To ic

xSheet.Cells(R.Row, i).Value = xTextinfo(i).Value

Next i

For i = 1 To Me.ListView1.ListItems.Count

If Me.ListView1.ListItems(i).Text = xID Then

For j = 1 To ic

Me.ListView1.ListItems(i).SubItems(j) = xTextinfo(j + 1).Value

Next j

Exit For

End If

Next i

MsgBox "修改成功！", vbInformation, "提示"

End If

Set R = Nothing

End Sub

设备管理在生产过程中是一个特别重要的项目，要想连续正常生产，必须对设备运行状况进行改善，保证可用状态，所以，这也是生产管理中的一个重点。

欢迎关注、收藏

---END---