【導讀】供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理倉庫中的各。文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學技術(shù)的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。大大減少來自銀行貸款的利息和風險。上海共享網(wǎng)上海共享網(wǎng)。取相應措施，調(diào)整庫存結(jié)構(gòu),縮短儲備周期，加速資金周轉(zhuǎn)，最大限度地降低庫存占用，計算機在管理中的應用開始于1954年，當時美國首先用計算機處理工資單。而現(xiàn)在，美國在財務會計上90%的工作由。算的占8%；用于生產(chǎn)過程控制的占12%。須根據(jù)企業(yè)的具體情況制定相應的方案。的需要按月、季度、年度進行統(tǒng)計分析，產(chǎn)生相應報表。理，使得資金使用合理，物資設備的儲備最佳。上海一個完整的企業(yè)物資供應管理系統(tǒng)

　　

【正文】 se Case 1 倉庫庫存管理系統(tǒng) 第 ２８ 頁 共 34 頁 = (0).DataField amp。 _ 39。39。 = sale_id =39。 amp。 amp。 39。 Case 2 Case Else = ().DataField amp。 _ like 39。* amp。 amp。 *39。 = sale_id =39。 amp。 amp。 39。 End Select Case 1 Case 2 Unload Me End Select End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) = sale_id =39。 amp。 amp。 39。 End Sub Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If CmdDep(0).Enabled = True Then = Product_Status((1).Text) End If End Sub Private Sub Form_Load() intNumWindows = OpenWindow(intNumWindows) = 7305 = 7845 倉庫庫存管理系統(tǒng) 第 ２９ 頁 共 34 頁 Call SetFormStu(Me, frmMain) Set rsSaHB = Set rsSalDB = Set cmSaHB = New = = adCmdText = sale_id =39。 amp。 amp。 39。 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If CmdDep(2).Enabled = False Then MsgBox 請先退出編輯狀態(tài)后再退出該程序 !, , 提示 Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) intNumWindows = Closewindow(intNumWindows) Set rsSaHB = Nothing Set rsSalDB = Nothing Set cmSaHB = Nothing End Sub 倉庫庫存管理系統(tǒng) 第 ３０ 頁 共 34 頁 其它入庫單查詢源代碼： Option Explicit Private rsOtHB As Private rsOrdDB As Private cmOtHB As Private strMaxNum As String Private Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As String Select Case Index Case 0 = 7 vbModal Select Case Case 1 倉庫庫存管理系統(tǒng) 第 ３１ 頁 共 34 頁 = (0).DataField amp。 _ 39。39。 = order_id =39。 amp。 amp。 39。 Case 2 Case Else = ().DataField amp。 _ like 39。* amp。 amp。 *39。 = order_id =39。 amp。 amp。 39。 End Select Case 1 Case 2 Unload Me End Select End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) = order_id =39。 amp。 amp。 39。 End Sub Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If CmdDep(0).Enabled = True Then = Product_Status((1).Text) End If End Sub Private Sub Form_Load() intNumWindows = OpenWindow(intNumWindows) = 7305 = 7845 倉庫庫存管理系統(tǒng) 第 ３２ 頁 共 34 頁 Call SetFormStu(Me, frmMain) Set rsOtHB = Set rsOrdDB = Set cmOtHB = New = = adCmdText = order_id =39。 amp。 amp。 39。 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If CmdDep(2).Enabled = False Then MsgBox 請先退出編輯狀態(tài)后再退出該程序 !, , 提示 Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) intNumWindows = Closewindow(intNumWindows) Set rsOtHB = Nothing Set rsOrdDB = Nothing Set cmOtHB = Nothing End Sub 倉庫庫存管理系統(tǒng) 第 ３３ 頁 共 34 頁 結(jié)束語及致謝 經(jīng)過兩個月的工作， 依托 visual basic 語言 基于微軟的 access 2021 數(shù) 據(jù)庫 創(chuàng)建的 倉庫庫存管理 系統(tǒng) 開發(fā)的設計已經(jīng)完成。本次設計主要涉及了的 visual basic 語言相關(guān)知識及 倉庫管理 的諸多 知識 。設計中涉及的許多問題，更是對以前所學的知識的鞏固及在過去的三年中沒有接觸到的知識的了解和初步的掌握，這次設計對我們將來的工作有很大的幫助。 在設計中，我們積極的查詢相關(guān)資料，細心的鉆研，小組成員互相合作，協(xié)調(diào)一致的完成了 本次倉庫庫存 管理系統(tǒng)的設計，同時讓我們明白了在設計中考慮問題應該全面，以及需要互相合作的精神。在設計中既鍛煉了我的動手能力，又學會了如何在現(xiàn)有的資料以及互聯(lián)網(wǎng)中查找自 己所需要的內(nèi)容。 在本次設計中，主要是 VB的編程工作。其中涉及了 VB 的對話框、判斷語句、選擇語句、條件語句、位置的確定、圖層的設置、線形的選擇、文本的設置、對話框的連接、技術(shù)標準的選取等等諸多方面的問題。與此同時，也熟練的掌握了 倉庫庫存 管理系統(tǒng) 的知識 。 在設計中，指導 教師 魏建新老師 給予 了我們莫大的幫助和支持，不僅幫我們收集資料，而且對于我們的設計中出現(xiàn)的問題，給與了我們寶貴的指導意見。經(jīng)過老師們的耐心指導幫助才使得我們的設計得以順利的完成。在此我們向魏建新老師表示衷心的感謝。 由于本人初次參加設計，因此設計 中可能存在一些疏漏，不足之處懇請各位老師予以指正。 倉庫庫存管理系統(tǒng) 第 ３４ 頁 共 34 頁 參考文獻 [1] 漢清計算機工作室 ,《 Visual Basic 數(shù)據(jù)庫開發(fā)實例 》 ,機械工業(yè)出版社 [2] 何旭洪 ,《 Visual Basic 數(shù)據(jù)庫開發(fā)實例導航》 ,人民郵電出版社 2021 [3] 孫健鵬 ,《 VB數(shù)據(jù)庫開發(fā)實例解析》 ,機械工業(yè)出版社 [4] 王漢新 ,《 Visual Basic程序設計》 ,科學出版社 2021 [5] 陳惟斌 ,《 Visual Basic 》 ,清華大學出版 社 [6] 張春葆 ,《 VB數(shù)據(jù)庫系統(tǒng)設計與開發(fā)》 ,清華大學出版社 [7] Buczek,《 Access 2021數(shù)據(jù)庫開發(fā)即時應用》 ,人民郵電出版社 2021 [8] 李曉黎 ,張巍 ,《 Visual Basic + SQL Server 數(shù)據(jù)庫應用系統(tǒng)開發(fā)與實例》 ,人民郵電出版社