【導讀】對于物料及完工的產品進行入庫集中管理，在確保企。業(yè)正常生產的同時，降低了庫存成本，提高了生產效率。了解生產設置的情況。庫存信息，便于產品的營銷調配?？梢酝瓿捎脩魴嘞薜脑O置和校驗，及其他常用信息的設置。具，使用ADO控件連接數據庫，開發(fā)出產品。

　　

【正文】 If Then = LoadPicture() str = Open ( amp。 \) For Output As 1 Print 1, str Close 1 = Else = End If End Select 徐州建筑職業(yè)技術學院畢業(yè)設計說明書 32 7 系統(tǒng)測試 經過一段時間的討論和上機的不斷調試 已經 完成了企業(yè)生產管理系統(tǒng)的設計，并對系統(tǒng)各模塊進行了模塊的測試，以下 列舉 了 幾個典 型的模塊進行 了 測 試 ： （ 1）測試產品信息設置模塊 完成對產品信息的增加 增加產品信息前窗體，如圖 71所示： 圖 71 增加產品信息前窗體 增加產品信息成功后窗體，如圖 72所示： 圖 72 增加產品信息成功后窗體 徐州建筑職業(yè)技術學院畢業(yè)設計說明書 33 （ 2）測試生產領料模塊 完成對生產領料的查詢 查詢生產領料前窗體，如圖 73所示： 圖 73 查詢生產領料前窗體 查詢生產領料成功后窗體，如圖 74所示： 圖 74 查詢生產領料成功后窗體 其他模塊 測試結果，同上述測試方式相同，參考上述方式。 徐州建筑職業(yè)技術學院畢業(yè)設計 說明書 34 8 運行維護 系統(tǒng)運行維護 在本系 統(tǒng)的開發(fā)過程中 ，由于本人是初次開發(fā)軟件，在知識、經驗方面存在著不足 ，整個開發(fā)的過程中，時間比較倉促。 這個系統(tǒng)還有不盡人意的地方， 對于龐大的信息量，需要有生產管理系統(tǒng)來提高企業(yè)管理工作的效率 。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理，科學統(tǒng)計，方便了查詢 等。但是在老師的檢測過程中，還是出現了很多的不足之處。 該系統(tǒng)目前在使用和維護時應注意以下幾點： （ 1） 保持操作的正確性。尤其要注意的是，某些操作的先后順序問題，如果操作錯誤，可能造成一些數據的丟失。 （ 2） 定期清理數據庫中的無效數據。這樣可以提高系統(tǒng)的運行速度 ，也會降低由于無效數據引起的數據計算錯誤。 系統(tǒng)的改進與提高 雖然本系統(tǒng)涉及到生產管理的幾方面 ， 包括從原材料 到產品管理的全過程，便是如果要作為一個完整的企業(yè)級生產管理系統(tǒng)，仍有許多方面應該需要改進， 以下是提出的建議： （ 1） 增加銷售管理。對于分銷商的進出貨進行管理，可以隨時得到每個經銷商的出入貨信息。 （ 2） 增加數據統(tǒng)計功能。例如，某個月的 生產情況查詢出來后，可以以某種圖形的方式顯 示 出來，也可以分析數個月的生產記錄，得到生產率的時間狀態(tài)圖等。 （ 3） 增加定期操作數據庫功能。比如，定期的數據庫備份，定 期的數據維護和修復。因為對生產管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。 （ 4） 雖然網絡在生產管理系統(tǒng)中的應用不是很多，但是未來的發(fā)展方向，在本次開發(fā)過程由于硬件的限制，未能實現網絡功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數據損失。 （ 5） 程序的不完善。 （ 6） 整體系統(tǒng)不完善功能不強。 （ 7） 系統(tǒng)設計和編碼的不斷復審發(fā)現了錯誤與缺陷，系統(tǒng)還存在不少問題和不完善的地方。 這些都是要在 今后的工作中需要重要努力改進和完善的。我們將繼續(xù)努力改善和提高，但是肯定還有不足之處 ， 懇請多 指正。 徐州建筑職業(yè)技術學院畢業(yè)設計說明書 35 9 關鍵技術 數據庫與 VB的連接，本系統(tǒng)的數據鏈接采用的是 ADO方法： （ 1） 打開 SQL Server 2021，打開企業(yè)管理器，打開 Microsoft SQL Server，打開 SQL Server組，打開 SQL Server注冊。 （ 2） 選中數據庫右擊，在“所有任務”中，選擇“附加數據庫”，附加本系統(tǒng)所用的數據庫。 （ 3） 在數據庫名中選擇本系統(tǒng)的數據庫，點擊“確定”按鈕即完成數據鏈接。 在 VB中，用 ADODC鏈接數據庫，用 Data Grid或 DATA將庫中的數據在界面中顯示出來，本系統(tǒng)采用 Data Grid。 （ 1） 在界面上右擊 Ado控制，在彈出的快捷菜單中選擇屬性； （ 2） 在屬性對話框中，在“屬性”這一標簽中，選中單選框“ Microsoft OLEDB Provider for SQL Server”，并在下拉文本框中選擇已經配置好的數據源名信息，再在“ RecordSoure”標簽中，在 Command Text（ SQL）文本框中輸入查詢語句，如： select * from tb_SCGL_wlrk order by wlrk_rkid。同時，將桌面的 Data Grid控件選中，在屬性框中， 將它的 Datasoure設為 Adodc1。 我們可以設置 Data Grid控件的外觀：選中該控件，右擊， 在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這 時，表格中出現了表的字段； 然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調整。 徐州建筑職業(yè)技術學院畢業(yè)設計說明書 36 10 結束語 經過這一段時間的設計和開發(fā)，在本小組成員的共同努力下企業(yè)生產管理系統(tǒng)基本開發(fā)完畢。其功能基本符合客戶需求， 本系統(tǒng) 主要 實現 的 功能 模塊 包括： （ 1）基礎信息管理模塊； （ 2）計劃信息管理模塊； （ 3）生產設備管理 模塊； （ 4）產品庫存管理模塊； （ 5）輔助功能模塊； （ 6）系統(tǒng)維護模塊。 本系統(tǒng)采用 Visual Basic 應用程序開發(fā)工具， 是 目前最為廣泛的 ， 易學易用的面向對象的開發(fā)工具。 Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性 。 使用 Microsoft公司的 SQL Server作為后臺，設計數據庫，使用 ADO控件連接數據庫，開發(fā)出了本系統(tǒng) 。 但是由于畢業(yè)設計時間以及水平有限， 所以該系統(tǒng)還有許多不盡如人意的地方，比如功能較少等多方面問題， 報表打印方面還存在問題， 這些都有待進一步改善，也希望老師們能夠多多指教 ， 好讓我能夠不斷進步。 系統(tǒng)在開發(fā)過程中難免存在著一定的錯誤。在本系統(tǒng)調試的初期，我們小組遭遇到來自軟件及我們本身的許許多多的問題，最終在 陸祥翠 老師指導和小組人員的努力 下 ， 經過一段時間的討論和上機的不斷調試系統(tǒng)的大 多數 問題 能解決了，系統(tǒng)也進一步完善了。 盡管本管理系統(tǒng)存在著很多不足，但其功能 相對 全面、易于日后程序更新、數據庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是 本管理系統(tǒng)所必需的。通過開發(fā)這個系統(tǒng)， 我學會了如何進行小組式的開發(fā)一個綜合系統(tǒng) ，了解了基本知識 ， 鞏固了我對 Visual Basic 的學習，但在這次畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方法，以及與同學們之間相互幫助的精神。 畢業(yè)設計說明書 37 致 謝 徐州建筑職業(yè)技術學院畢業(yè)設計說明書 38 附 錄 系統(tǒng)模塊： Public PublicStr As String Public sql As String Public Tb As String 39。存儲表名 Public Sign As Boolean 39。標識 Public Function n() As 39。定義函數 Set n = New Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_SCGL PublicStr = Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_SCGL End Function 39。定義設置 Toolbar 控件上按鈕狀態(tài)的函數 Public Function tlbState(tlb As Toolbar, state As Boolean) With tlb If state = True Then .Buttons(1).Enabled = False .Buttons(2).Enabled = False .Buttons(3).Enabled = False .Buttons(6).Enabled = False .Buttons(4).Enabled = True .Buttons(5).Enabled = True Else .Buttons(1).Enabled = True .Buttons(2).Enabled = True .Buttons(3).Enabled = True .Buttons(6).Enabled = True .Buttons(4).Enabled = False 徐州建筑職業(yè)技術學院畢業(yè)設計說明書 39 .Buttons(5).Enabled = False End If End With End Function Public Function ESQL(ByVal sql As String) As Dim n As Dim rs As Set n = New Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_SCGL Set rs = New Trim(sql), n, adOpenKeyset, adLockOptimistic Set ESQL = rs End Function Public Function MyPath(expression As String, delimiter As String) As String 39。取出文件夾后剩下的路徑 Dim vstr As Variant Dim str(10) As String Dim i As Integer For i = 0 To UBound(Split(expression, delimiter)) vstr = Split(expression, delimiter) MyPath = vstr(0) Next i End Function徐州建筑職業(yè)技術學院畢業(yè)設計說明書 40 參考文獻 [1] 劉昊 ,張建軍 .Visual Basic .煤炭工業(yè)出版社 ,2021 [2] 薩師煊 ,王珊 .數據庫系統(tǒng)概論 .高等教育出版社 ,2021 [3] 鄭榮貴 ,黃平 .谷會東 . .中科多媒體電子出版 ,2021 [4] 伍俊良 .VB6控件應用實例教程 .北京希望電子出版社 ,2021 [5] 盧國俊 .VB6數據庫開發(fā) .電子工業(yè)出版社 ,2021 [6] 邊萌 .VB編程起步 .機械工業(yè)出版社 ,2021 [7] 伍俊良 . .中國水利水電出版社 ,2021 [8] 丁寶康 .數據庫原理 .經濟科學出版社 ,2021 [9] 陸麗娜 .軟件工程 .經濟科學出版社 ,2021 [10] 周之英 .現代軟件工程 .科學出版社 , [11] 唐任仲 .工程應用軟件開發(fā)技術 .化學工業(yè)出版社 , [12] 李懷明 .Visual Basic 中文版 參考詳解 .清華大學出版社 , [13] 李善茂 .Visual Basic 高級編程技巧 .電子工業(yè)出版社 , [14] 譚浩強 .Visual Basic 中文版 提高與應用 .電子工業(yè)出版社 , [15] 衛(wèi)振林 ,趙增敏 .Visual Basic程序設 .機械工業(yè)出版社 , [16] 蔡翠平 .Visual Basic程序設計 .北方交通大學出版社 , [17] 本書編寫委員會 .程序設計 Visual ,