人、機、料、法、環生産管理，對于方法管理内容，你是這樣做嗎？

本文介紹人、機、料、法、環管理中的方法管理。

這裡的法泛指軟性内容的管理，如法律法規，操作手冊，公司組織，工藝流程等等一些指導性檔案的管理。

如果一個企業忽略了對于法的管理，那麼就不會長久存在下去，也會出現各種各樣的安全問題，法是一種規範，是一種保護機制，沒有法的規範，任何生産過程都将是一種冒險行為。

是以，法是一個企業的神經系統，和指揮控制系統，要十分重視。

下圖為“法"項目的基本内容。

有法律法規、規章制度、操作規程、工藝流程、隐患排查、巡檢管理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--