【正文】 在 這一 刻我們是最高興的。 在后期調(diào)試階段也是很廢時的。所以我們無論做任何事情都要細心和耐心。唉！難怪我經(jīng)常聽到說，編程實在是太麻煩了，看到頭都大了，看到就心煩了。后來我才發(fā)現(xiàn)有一個數(shù)據(jù)與數(shù)據(jù)庫的數(shù)據(jù)不同。這一點我是深有體會的。 一開始，我以為三天就可以把課程設(shè)計搞好，誰知道我們搞了差不多一個星期。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用 Windows 內(nèi)部的廣泛應(yīng)用程序接口（ SPI）函數(shù)，以用動態(tài)鏈接庫（ DLL）、對象的鏈接與世隔嵌入（ OLE）、開放式數(shù)據(jù)連接（ ODBC）等技術(shù)，可以高效、快速地開發(fā) Windows 環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng) 該訂單管理信息系統(tǒng)的完成首先經(jīng)過了對訂單流程的調(diào)查和分析，確定出了訂單管理信息系統(tǒng)對于傳統(tǒng)的訂單流程所要改正的缺點，并且吸收了手寫式訂單的長處，還開發(fā)出了計算機處理訂單的新方法；通過對系統(tǒng)功能的分析來決定系統(tǒng)的組成模塊進而進行系統(tǒng)設(shè)計，并根據(jù)系統(tǒng)的實現(xiàn)條件來確定所利用的程序設(shè)計語言和后臺數(shù)據(jù)庫的處理方式，最后經(jīng)過多次調(diào)試使該系統(tǒng)得以成功運行。 VB 是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。 圖 查詢信息顯示 訂單管理系統(tǒng)程序運行結(jié)束 。 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書（論 文） 17 圖 查詢所需要的記錄顯示在另一個窗體中。 如果庫存中沒有足夠的數(shù)量提供給訂單，那么將彈出對話框“庫存數(shù)量不夠”，那么訂單信息就不能添加成功；如果訂單信息的文本框沒有填完整，那么將彈出對話框“ **不能為空”，那么訂單信息不能添加成功。 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書（論 文） 16 圖 進 入主頁面以前先要進行用戶的登錄，非合法用戶不能進入主頁面對系統(tǒng)進行管理，登錄頁面如圖 所示。 測試內(nèi)部數(shù)據(jù)結(jié)構(gòu)的有效性，等等。 對所有的邏輯判 定，取“真”與取“假”的兩種情況都能至少測一遍。因此白盒測試又稱為結(jié)構(gòu)測試或邏輯驅(qū)動測試。這種方法是把測試對象看做一個打開的盒子，它允許測試人員利用程序內(nèi)部的邏輯結(jié)構(gòu)及有關(guān)信息，設(shè)計或選擇測試用例，對程序所有邏輯路徑進行測試。因此黑盒測試又叫功能測試或數(shù)據(jù)驅(qū)動測試。 軟件的黑盒測試意味著測試要在軟件的接口處進行。 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書（論 文） 15 系統(tǒng)運行與測試 黑盒測試：已知產(chǎn)品的功能設(shè)計規(guī)格，可以進行測試證明每個實現(xiàn)了的功能是否符合要求。 有了數(shù)據(jù)庫和表之后，如果想讓 VB 應(yīng)用程序訪問數(shù)據(jù)庫，還需進行數(shù)據(jù)源的配置。 商品與訂單之間存在聯(lián)系“訂貨”，為一對一；一種商品只能對應(yīng)一個訂單，并且一個訂單只能對應(yīng)一種商品。 ER 模型是概念設(shè)計的有力工具。 數(shù)據(jù)庫設(shè)計一般經(jīng)過需求分析與數(shù)據(jù)分析、概念設(shè)計、邏輯設(shè)計和物理設(shè)計等多個步驟，下面將詳細介紹概念設(shè)計 、 結(jié)構(gòu)設(shè)計。 數(shù)據(jù)庫是數(shù)據(jù)庫應(yīng)用程序的核心，數(shù)據(jù)庫設(shè)計或稱數(shù)據(jù)模型是建立一個應(yīng)用程序很重要的一步。 Set mrc = ExecuteSQL(txtsql, msgtext) 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書（論 文） 12 ‘將符合條件的信息顯示在表格中 With myflexgrid .Rows = 1 .CellAlignment = 4 .TextMatrix(0, 0) = 款號 .TextMatrix(0, 1) = 商品名稱 .TextMatrix(0, 2) = 計量單位 .TextMatrix(0, 3) = 商品類別 .TextMatrix(0, 4) = 商品數(shù)量 .TextMatrix(0, 5) = 商品單價 .TextMatrix(0, 6) = 所在倉庫 .TextMatrix(0, 7) = 入庫時間 .TextMatrix(0, 8) = 生產(chǎn)廠家 .TextMatrix(0, 9) = 備注信息 .FixedRows = 0 ‘設(shè)定表格中每列的寬度 For i = 0 To 9 .ColAlignment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 0 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 2020 .ColWidth(1) = 1000 .ColWidth(2) = 3000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 2020 .ColWidth(7) = 2020 .ColWidth(8) = 2020 .ColWidth(9) = 4000 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書（論 文） 13 .Row = 0 ‘從數(shù)據(jù)庫中調(diào)取所要查詢的記錄信息 Do While Not .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows 1, 0) = (0) .TextMatrix(.Rows 1, 1) = (1) .TextMatrix(.Rows 1, 2) = (2) .TextMatrix(.Rows 1, 3) = (3) .TextMatrix(.Rows 1, 4) = (4) .TextMatrix(.Rows 1, 5) = (5) .TextMatrix(.Rows 1, 6) = (6) .TextMatrix(.Rows 1, 7) = (7) .TextMatrix(.Rows 1, 8) = (8) .TextMatrix(.Rows 1, 9) = (9) Loop End With End If （其他兩種查詢方式和上述相同） ‘判斷是否設(shè)置查詢方式 If Trim(txtsql) = Then MsgBox 請設(shè)置查詢條件！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If End Sub 單擊按鈕“重新查詢”，將清空輸入框，可以重新查詢，代碼如下： Private Sub cmdagain_Click() ‘關(guān)閉該窗體 Unload frmproducthuinquire ‘重新顯示該窗體 End Sub 取消按鈕的代碼如下： 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書（論 文） 14 Private Sub cmdexit_Click() Unload Me End Sub 數(shù)據(jù) 庫 訪問 技術(shù) 系統(tǒng)采用的數(shù)據(jù)庫 類型 是 Access 2020 數(shù)據(jù)庫 ， Access 2020 是 Microsoft Access 2020 的一個組件，是最常見的本地數(shù)據(jù)庫 管理系統(tǒng)之