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

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

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