人、機、料、法、環之工藝管理，流程和參數教你這樣來做

生産管理當中的工藝管理是整個生産過程的主要過程，也是實作整個設計目的重要途徑。

工藝管理得越好，那麼最終成形的産品就越接近于設計目的，這就是說，工藝和工藝過程偏差就要做到合理規範。

工藝管理首頁如下圖所示

首頁隻有檢視功能，左側為工藝圖檢視區，右側選擇不同工藝圖。

主要還是通過頂部按鈕進入各分頁進行管理。

本文中主要對工藝方面的兩點來進行考慮，一個是工藝流程圖的整理，另一個是工藝參數的統計。

上圖為工藝流程圖管理頁，通過對應表進行登記， 為以後在工作當中做一個資料總結，以備及時查閱。

實際上這部分内容主要是設計方面來制作，而我們要做的主要還是進行資料錄入登記和核對。

上圖為工藝參數管理頁，通過對工藝參數統計可以更加精确地看到整個生産過程中哪些重要的名額資訊。

核對現場資料，可以很明确地看到，哪些資料是正确的，哪些需要進一點修改。

Private Sub AddFrameObject(xListObj As Object, xFrameObj As Object, xArr)
'設定資訊對象
On Error Resume Next
Dim lObj As Object, tObj As Object, ic As Long
ic = xListObj.ColumnHeaders.Count
If ic < 1 Then Exit Sub
ReDim xArr(1 To ic)
Dim ir As Integer
For ir = 1 To ic
    Set lObj = xFrameObj.Controls.Add("Forms.Label.1", "L" & ir)
        With lObj
            .Left = 20
            .Height = 25
            .Top = ir * .Height
            .Width = 50
            .BackStyle = 0
            .Caption = xListObj.ColumnHeaders(ir).Text
        End With
        Select Case ir
                Case 6
                        Set tObj = xFrameObj.Controls.Add("Forms.ComboBox.1", lObj.Caption)
                                tObj.Style = 2
                Case Else
                        Set tObj = xFrameObj.Controls.Add("Forms.TextBox.1", lObj.Caption)
        End Select
        With tObj
            .Top = lObj.Top
            .Left = lObj.Left + lObj.Width + 10
            .Width = 180
            .Height = lObj.Height - 2
            .BorderStyle = 1
            .BorderColor = RGB(215, 215, 255)
            .ForeColor = RGB(2, 2, 235)
            .Tag = lObj.Caption
            .Value = ""
            .Enabled = True
            Select Case ir
                    Case 1
                        .Enabled = False
                        .Value = p.Range("A" & p.Rows.Count).End(xlUp).Row
                    Case 6
                        .List = GetRowList(xUnit, "I")
                    Case 8, 10
                        .Value = VBA.Date
                    Case ic
                        .Value = "-"
                    Case Else
            End Select
        End With
        Set xArr(ir) = tObj
        setfonthome lObj
        setfonthome tObj
Next ir
Set lObj = Nothing
Set tObj = Nothing
End Sub           

之後還有工藝卡管理，工藝報警，工藝變更等一些，更加動态化的管理内容。

歡迎關注、收藏

---END---