玖叶教程网

工艺生产当中的开停车，是一个生产过程当中最重要的一环。很多事故也是在这个环节发生，所以，开停车过程作为一个重点，来进行管理。

同时，开停车也是企业安全标准化中的一个必要项目。

上述为工艺管理入口，可以看到有一个运行管理，进入后如下图所示。

运行管理中也分了几个小的模块，开停车记录管理，开停车方案管理，开车前条件确认，停车参数记录和开车能耗计算等。

本文中有开车方案和开车前条件确认两部分。

上图为开车方案，可以进行方案文本编辑，记录的添加、修改、删除、查询、统计等操作。

下图为开车前条件确认操作。

由于，开车条件并不一定，所以此管理可进行同一开车编号，多次添加，也就是每次开车进行的条件确认并不相同。

所有记录管理将有一个有效表格来进行输出，整体结果将可以实现打印存档，也是为实际工作应用做一个方便的过程。

代码

下述代码对于文件操作有用，最好收藏备用。

新建文件

Private Sub AddFile(xFileName As String)
On Error Resume Next
'新建文件
Dim fs As Object, ts As Object
Set fs = CreateObject("Scripting.Filesystemobject")
Set ts = fs.opentextfile(xFileName, 2, False)
ts.Close
Set fs = Nothing
End Sub

保存文件

Private Sub SaveFile(xFileName As String, xobj As Object)
On Error Resume Next
'保存文件
Dim fs As Object, ts As Object
Set fs = CreateObject("Scripting.Filesystemobject")
Set ts = fs.opentextfile(xFileName, 2, True)
ts.write xobj.Value
ts.Close
Set fs = Nothing
End Sub

下面是工具栏对象代码，可以根据不同按钮执行不同代码。

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Index
    Case 1
        SaveFile pTextObj(4).Value, Me.TextBox1
    Case 2
        Me.TextBox1.Copy
    Case 3
        Me.TextBox1.Paste
    Case 4
        If Me.CanUndo Then
            Me.UndoAction
        End If
    Case 5
        If Me.CanRedo Then
            Me.RedoAction
        End If
    Case 6
        SendKeys "{del}"
    Case 7
        '另存为
        With Application.FileDialog(msoFileDialogSaveAs)
            If .Show = -1 Then
                .Filters.Clear
                .Filters.Add "Txt文本文件", "*.txt"
                SaveFile .SelectedItems(1), Me.TextBox1
            End If
        End With
    Case 8
        '重命名
        Dim xFileName As String
        Dim n As Integer, en As Integer
        en = VBA.InStrRev(pTextObj(4).Value, "\") + 1
        n = VBA.InStrRev(pTextObj(4).Value, ".txt")
        xFileName = VBA.Mid(pTextObj(4).Value, en, n - en)
        xFileName = VBA.Trim(InputBox("输入新文件名...", "重命名", xFileName))
        If VBA.Len(xFileName) <> 0 Then
            Name pTextObj(4).Value As ThisWorkbook.Path & Url & xFileName & xx
            pTextObj(4).Value = ThisWorkbook.Path & Url & xFileName & xx
        End If
End Select
End Sub

工艺管理，实际上还有很多要制作的内容，将不断更新，以完善使用。

欢迎关注、收藏

---END---