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