本文介绍人、机、料、法、环管理中的方法管理。
这里的法泛指软性内容的管理，如法律法规，操作手册，公司组织，工艺流程等等一些指导性文件的管理。
如果一个企业忽略了对于法的管理，那么就不会长久存在下去，也会出现各种各样的安全问题，法是一种规范，是一种保护机制，没有法的规范，任何生产过程都将是一种冒险行为。
所以，法是一个企业的神经系统，和指挥控制系统，要十分重视。
下图为“法"项目的基本内容。
有法律法规、规章制度、操作规程、工艺流程、隐患排查、巡检管理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--
,
