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

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

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

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

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

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