人、机、料、法、环生产管理，对于方法管理内容，你是这样做吗?

本文介绍人、机、料、法、环管理中的方法管理。

这里的法泛指软性内容的管理，如法律法规，操作手册，公司组织，工艺流程等等一些指导性文件的管理。

如果一个企业忽略了对于法的管理，那么就不会长久存在下去，也会出现各种各样的安全问题，法是一种规范，是一种保护机制，没有法的规范，任何生产过程都将是一种冒险行为。

所以，法是一个企业的神经系统，和指挥控制系统，要十分重视。

下图为“法"项目的基本内容。

有法律法规、规章制度、操作规程、工艺流程、隐患排查、巡检管理6个部分组成。

前4项基本就是文本或图片的一些数据集合。

操作界面如下图所示：

可以实现新建法律制度和操作规程文本，左侧树形结构进行检索，单击后自动在右侧显示出来，进行修改添加等操作。

功能很简单，重点是工作当中提供进行翻阅浏览。

这部分的操作还是，很简单的，只要把本公司成形的制度文本添加进来就可以了。

便于平时需要的时候查看。

代码：

Private Sub ShowText()
'双击显示文本内容
On Error Resume Next
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Dim xSheetName As String
Dim xBoot As Object
Set xBoot = Me.TreeView1.SelectedItem.Parent
If Not xBoot Is Nothing Then
    xSheetName = Me.TreeView1.SelectedItem.Key
    Dim fs As Object, ts As Object
    Set fs = CreateObject("Scripting.Filesystemobject")
    Set ts = fs.opentextfile(xSheetName, 1, False)
    If Not ts.atendofstream Then
        Me.TextBox2.Text = Me.TreeView1.SelectedItem.Text
        Me.TextBox1.Text = ts.readall()
    End If
    ts.Close
    Set fs = Nothing
End If
Set xBoot = Nothing
End Sub

后面3项，还是有一些复杂，所以制作起来需要考虑很多实际应用层面的流程问题。

期待更新。

欢迎关注\收藏

--END--