摘  要： 利用Visual Basic 6.0程序，設計開發了基于Access 2003數據庫的輔助電極管理信息系統，以減少工作量，提高管理效率，實現鍛棒和輔助電極日常管理的系統化、信息化和高效化。同時，通過查詢功能，實時掌握鍛棒和輔助電極庫存信息，可以為合理安排生產進度提供依據。
關鍵詞： 數據庫；輔助電極；管理信息系統；Visual Basic 6.0

    輔助電極是真空自耗電弧爐熔煉必不可少的輔助設備之一，其外形為圓柱體，在熔煉中主要作為導電介質起連接電極桿和自耗電極的作用。隨著我廠真空自耗電弧爐生產規模的逐漸擴大，與之配套使用的輔助電極以及用于制備輔助電極的鍛棒數量和類型明顯增多，其日常管理的工作量也相應增加。傳統的文件管理模式重復性高、工作量大，似乎已經不能適應現有的管理需求。
管理信息系統（Management Information System）是一個由人、計算機及其他外圍設備等組成的能進行信息的收集、傳遞、存儲、更新、維護和使用的集成化的人機系統，能夠為企業的高層決策、中層控制、基層運作提供依據。數據庫（Database）是按照數據結構來組織、存儲和管理數據的倉庫，是管理信息系統的核心組成部分。在數據管理方面，與傳統的文件管理模式相比，數據庫具有無重復、效率高、安全性高、管理方便、輔助決策等顯著優勢，因此，利用先進的計算機軟件技術和數據庫技術，開發一套與鍛棒和輔助電極日常管理相適應的管理信息系統，以滿足其日常管理需要，是很有意義的。
1 系統功能
    根據需求分析，本系統應具有以下功能：
?。?）密碼保護功能。
?。?）系統預警功能：鍛棒庫存、輔助電極長度、自耗電極預留長度、消耗長度等預警功能。
?。?）庫存同步更新：將輔助電極庫存信息表與輔助電極制備信息表、輔助電極使用信息表、輔助電極修復信息表相關聯，操作員在更新輔助電極制備管理、使用管理和修復管理相關信息的同時，系統將自動更新輔助電極庫存信息表中的數據，如初始長度、當前長度、初始重量、當前重量、當前位置等重要數據。當輔助電極當前長度≤設定值時，系統將自動將其信息從輔助電極庫存信息表中刪除。鍛棒庫存管理與之類似。
?。?）密碼設置功能。
?。?）報表打印功能。
?。?）數據備份功能。
　（7）數據導入、導出功能。
2 系統設計
2.1 系統結構
　本系統包括鍛棒管理、輔助電極管理、系統管理3個模塊，系統結構如圖1所示。

2.2 數據庫設計
　本系統采用Access 2003數據庫。Access數據庫具有界面友好、易于操作、面向對象、存儲方式簡單、環境集成等優點，并可處理多種數據信息。在Access 2003中建立名為“輔助電極管理信息系統數據庫.mdb”的數據庫。本數據庫共有8張數據表，分別為：鍛棒入庫登記表、鍛棒消耗登記表、鍛棒庫存信息表、輔助電極制備信息表、輔助電極庫存信息表、輔助電極使用信息表、輔助電極修復信息表、系統登錄用戶名密碼表，分別用于存儲不同的信息。
　本系統的數據庫訪問技術采用Microsoft公司的ADO技術。ADO（ActiveX Data Objects）是Microsoft公司近階段開發的一組數據訪問對象，可使用戶通過OLE DB Provider訪問數據庫服務器中的數據。ADO技術允許開發人員通過設置相關控件屬性或編寫代碼進行數據連接，而無需關心數據庫實現過程[1]，是對當前Microsoft所支持的數據庫進行操作的最簡單、最有效的方法。
2.3 窗體設計
　本系統共有系統登錄、系統主窗體、鍛棒管理、輔助電極制備管理、輔助電極庫存管理、輔助電極使用管理、輔助電極修復管理、密碼設置、數據備份等9個窗體，各個窗體的設計過程基本類似。系統主窗體采用MDI窗體（多文檔界面）形式，除系統登錄窗體之外的其他窗體均為MDI主窗體的子窗體（MDIChild）。主窗體包含用戶在系統中所能進行的所有操作。操作員輸入正確的用戶名和密碼后，系統將自動加載并顯示主窗體。
　輔助電極使用管理窗體包括使用日期、輔助電極編號、熔煉錠號、牌號、電極組焊方式、爐號、取用人、檢查人、熔前長度、預留長度、熔后長度、消耗長度、備注等13個字段。另外，還特別添加了一個“系統提示”文本框，將其Enable屬性設置為False（禁止手動輸入），用于特殊情況下自動顯示系統提示信息。
輔助電極使用管理窗體除具有對輔助電極使用記錄進行添加、刪除、修改、查詢等4種基本操作外，根據日常管理需求，還增加了以下功能：
?。?）對文本框中輸入的數據設置了一些限制條件，當輸入完成，點擊相應的命令按鈕后，系統將自動檢測數據輸入是否完整、數據類型是否匹配，否則會給出提示信息。
?。?）文本框輸入完成并按下回車鍵后，光標將自動切換到下一個Enable屬性為True（允許手動輸入）的文本框，以減少鼠標和鍵盤之間的反復切換，提高輸入效率。
?。?）操作員輸入“輔助電極編號”和“熔煉錠號”后，按下回車鍵，如果數據表中有相應編號和熔煉錠號的輔助電極使用記錄，則在相應文本框中自動顯示該輔助電極使用記錄；如果沒有，則將光標自動切換到“牌號”文本框，允許操作員添加新記錄。
　（4）當預留長度＞0時，系統自動計算熔后長度和消耗長度，即熔后長度=熔前長度，消耗長度=0。
?。?）當預留長度=0時，允許手動輸入熔后長度，消耗長度=熔前長度-熔后長度。輸入熔后長度后，系統將自動計算消耗長度，并將結果顯示在相應的文本框中。
?。?）當預留長度=0時，為提醒管理員核實錄入的熔后長度和消耗長度與實際數值是否相符，在“系統提示”欄自動顯示“請核實熔后長度！”。
　（7）當預留長度≥設定值時，在“系統提示”欄自動顯示“自耗電極預留太多！”。
?。?）當消耗長度≥設定值時，在“系統提示”欄自動顯示“自耗電極消耗太多！”。
　（9）如前文所述，在輔助電極使用管理窗體輸入輔助電極當前位置和當前長度后，系統將實時更新輔助　電極庫存信息表中的當前位置和當前長度（當前長度=熔后長度）。當熔后長度≤設定值時，在“系統提示”欄自動顯示“長度已達報廢要求！”，并自動將該輔助電極信息從輔助電極庫存信息表中刪除。
2.4 代碼設計
　代碼是程序的核心，只有添加正確、完備的代碼，程序才能正常、合理運行。本系統的編程語言為Visual Basic 6.0。輔助電極使用管理窗體中向輔助電極使用信息表中添加記錄的關鍵代碼如下：
Private Sub Command1_Click（）
   Dim adocon As New ADODB.Connection
   Dim adors As New ADODB.Recordset
   ……
   c=MsgBox（"確實要添加該記錄嗎？"，vbOKCancel+vbInformation，"系統提示"）
   If c=vbOK Then
        adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source="& App.Path & "\輔助電極管理信息系統數據庫.mdb；Persist Security Info=False" ′連接數據庫′
        adors.Open "select * from輔助電極使用信息表 where 輔助電極編號=′" & Text1.Text & "′and 熔煉錠號=′" & Text2.Text & "′"， adocon， adOpenKeyset， adLockOptimistic′打開數據表并查詢′
        If adors.RecordCount > 0 Then
             MsgBox "該輔助電極使用記錄已存在！"， vbCritical， "系統提示"
             ……
        Else
             adors.AddNew   ′添加新記錄′
             ……
             MsgBox "記錄添加成功！"， vbInformation + vbOKOnly， "系統提示"
             adors.Update       
             ……
        End If
   Else
……
   End If
   adors.Close
   adocon.Close
   Adodc1.RecordSource = "select * from 輔助電極使用信息表"
   Adodc1.Refresh
End Sub
   將Visual Basic 6.0程序和Access 2003數據庫相結合，設計開發了輔助電極管理信息系統，以減少鍛棒和輔助電極日常管理的工作量，提高管理效率，實現鍛棒和輔助電極日常管理的系統化、信息化和高效化。同時，通過查詢功能，可以實時掌握鍛棒和輔助電極的庫存信息，為合理安排生產進度提供依據。今后還將通過相關技術手段，不斷完善系統功能，增強系統的實用性和靈活性，充分發揮管理信息系統在數據管理方面的獨特優勢，使之更好地為生產管理服務。此外，通過該系統的開發，積累了相關經驗，也為今后同類型管理信息系統的開發打下了良好的技術基礎。
參考文獻
[1] 于海鵬，米捷.黨員管理信息系統的開發[J].中國科技信息，2008（2）：94.
[2] 周黎，錢瑛，周陽花.程序設計基礎——Visual Basic4教程（第2版）[M].北京：人民郵電出版社，2011.