畢業(yè)設(shè)計(jì)-倉(cāng)庫(kù)庫(kù)存管理設(shè)計(jì)-資料下載頁(yè)
2025-01-17 00:06本頁(yè)面
【正文】 Case 1 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ２８ 頁(yè) 共 34 頁(yè) = (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 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ２９ 頁(yè) 共 34 頁(yè) 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 請(qǐng)先退出編輯狀態(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 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ３０ 頁(yè) 共 34 頁(yè) 其它入庫(kù)單查詢(xún)?cè)创a： 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 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ３１ 頁(yè) 共 34 頁(yè) = (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 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ３２ 頁(yè) 共 34 頁(yè) 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 請(qǐng)先退出編輯狀態(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 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ３３ 頁(yè) 共 34 頁(yè) 結(jié)束語(yǔ)及致謝 經(jīng)過(guò)兩個(gè)月的工作， 依托 visual basic 語(yǔ)言 基于微軟的 access 2022 數(shù)據(jù)庫(kù) 創(chuàng)建的 倉(cāng)庫(kù)庫(kù)存管理 系統(tǒng) 開(kāi)發(fā)的設(shè)計(jì)已經(jīng)完成。本次設(shè)計(jì)主要涉及了的 visual basic 語(yǔ)言相關(guān)知識(shí)及 倉(cāng)庫(kù)管理 的諸多 知識(shí) 。設(shè)計(jì)中涉及的許多問(wèn)題，更是對(duì)以前所學(xué)的知識(shí)的鞏固及在過(guò)去的三年中沒(méi)有接觸到的知識(shí)的了解和初步的掌握，這次設(shè)計(jì)對(duì)我們將來(lái)的工作有很大的幫助。 在設(shè)計(jì)中，我們積極的查詢(xún)相關(guān) 資料，細(xì)心的鉆研，小組成員互相合作，協(xié)調(diào)一致的完成了 本次倉(cāng)庫(kù)庫(kù)存 管理系統(tǒng)的設(shè)計(jì)，同時(shí)讓我們明白了在設(shè)計(jì)中考慮問(wèn)題應(yīng)該全面，以及需要互相合作的精神。在設(shè)計(jì)中既鍛煉了我的動(dòng)手能力，又學(xué)會(huì)了如何在現(xiàn)有的資料以及互聯(lián)網(wǎng)中查找自己所需要的內(nèi)容。 在本次設(shè)計(jì)中，主要是 VB的編程工作。其中涉及了 VB的對(duì)話框、判斷語(yǔ)句、選擇語(yǔ)句、條件語(yǔ)句、位置的確定、圖層的設(shè)置、線形的選擇、文本的設(shè)置、對(duì)話框的連接、技術(shù)標(biāo)準(zhǔn)的選取等等諸多方面的問(wèn)題。與此同時(shí)，也熟練的掌握了 倉(cāng)庫(kù)庫(kù)存 管理系統(tǒng) 的知識(shí) 。 在設(shè)計(jì)中，指導(dǎo) 教師 魏建新老師 給予 了我們莫 大的幫助和支持，不僅幫我們收集資料，而且對(duì)于我們的設(shè)計(jì)中出現(xiàn)的問(wèn)題，給與了我們寶貴的指導(dǎo)意見(jiàn)。經(jīng)過(guò)老師們的耐心指導(dǎo)幫助才使得我們的設(shè)計(jì)得以順利的完成。在此我們向魏建新老師表示衷心的感謝。 由于本人初次參加設(shè)計(jì)，因此設(shè)計(jì)中可能存在一些疏漏，不足之處懇請(qǐng)各位老師予以指正。 倉(cāng)庫(kù)庫(kù)存管理系統(tǒng) 第 ３４ 頁(yè) 共 34 頁(yè) 參考文獻(xiàn) [1] 漢清計(jì)算機(jī)工作室 ,《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例 》 ,機(jī)械工業(yè)出版社 [2] 何旭洪 ,《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例導(dǎo)航》 ,人民郵電出版社 2022 [3] 孫健鵬 ,《 VB 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析》 ,機(jī)械工業(yè)出版社 [4] 王漢新 ,《 Visual Basic 程序設(shè)計(jì)》 ,科學(xué)出版社 2022 [5] 陳惟斌 ,《 Visual Basic 開(kāi)發(fā)指南》 ,清華大學(xué)出版社 [6] 張春葆 ,《 VB 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)》 ,清華大學(xué)出版社 [7] Buczek,《 Access 2022 數(shù)據(jù)庫(kù)開(kāi)發(fā)即時(shí)應(yīng)用》 ,人民郵電出版社 2022 [8] 李曉黎 ,張巍 ,《 Visual Basic + SQL Server 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)與實(shí)例》 ,人民郵 電出版社
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1