【正文】 測(cè)試環(huán)境 53第二節(jié) 測(cè)試方法 53第三節(jié) 測(cè)試項(xiàng)目 54第四節(jié) 測(cè)試結(jié)果分析 56第六章 總結(jié) 57參考文獻(xiàn) 58附錄 59第一章 概述隨著時(shí)代的進(jìn)步，社會(huì)生產(chǎn)力高速發(fā)展，新技術(shù)層出不窮信息量急劇膨脹，整個(gè)人類(lèi)社會(huì)已成為信息化的社會(huì)人們對(duì)信息和數(shù)據(jù)的利用和處理已經(jīng)進(jìn)入自動(dòng)化、網(wǎng)絡(luò)化和社會(huì)化的階段。如在查找情報(bào)資料、處理銀行帳目、倉(cāng)庫(kù)管理、科研生產(chǎn)等方面，無(wú)不需要利用大量的信息資源。信息在不同的領(lǐng)域里有著不同的概念，在管理科學(xué)領(lǐng)域中，通常認(rèn)為信息是經(jīng)過(guò)加工處理后的一種數(shù)據(jù)形式，是一種有次序的符號(hào)排列，它是系統(tǒng)傳輸和處理的對(duì)象。制定工作計(jì)劃，研究投資策略，都離不開(kāi)對(duì)信息的充分利用。隨著倉(cāng)庫(kù)管理信息系統(tǒng)在企業(yè)中的廣泛應(yīng)用，該系統(tǒng)對(duì)企業(yè)的影響也會(huì)越來(lái)越大，它對(duì)企業(yè)倉(cāng)庫(kù)管理方面的貢獻(xiàn)是無(wú)可替代的。在這種環(huán)境下，傳統(tǒng)的手工倉(cāng)庫(kù)管理已經(jīng)遠(yuǎn)遠(yuǎn)落后于企業(yè)的信息化管理，正在逐漸成為企業(yè)高速發(fā)展的后腿。而使用倉(cāng)庫(kù)管理系統(tǒng)軟件來(lái)管理公司的貨物調(diào)配工作，無(wú)疑是現(xiàn)代企業(yè)高速發(fā)展的強(qiáng)有力翅膀，加速企業(yè)的騰飛。對(duì)于大中型企業(yè)來(lái)說(shuō)，利用計(jì)算機(jī)支持企業(yè)高效率完成倉(cāng)庫(kù)管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動(dòng)企業(yè)倉(cāng)庫(kù)管理走向科學(xué)化、規(guī)范化的必要條件；而倉(cāng)庫(kù)管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，庫(kù)存盤(pán)點(diǎn)、報(bào)表的統(tǒng)計(jì)查詢(xún)的工作量很大，一般不允許出錯(cuò)，如果實(shí)行手工操作，每月倉(cāng)庫(kù)庫(kù)存須手工填制大量的表格，這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力。要完成一個(gè)倉(cāng)庫(kù)管理系統(tǒng)，我們還要對(duì)倉(cāng)庫(kù)管理的日常操作步驟，這是我們進(jìn)行系統(tǒng)開(kāi)發(fā)的一個(gè)先決條件。優(yōu)化邏輯設(shè)計(jì)與物理設(shè)計(jì)，使系統(tǒng)運(yùn)行效率高反映速度快。能連續(xù)準(zhǔn)確的處理業(yè)務(wù)，有較強(qiáng)的容錯(cuò)能力。用戶容易理解和使用該系統(tǒng)。系統(tǒng)應(yīng)易于修改、易于擴(kuò)充、易于維護(hù)，能夠適應(yīng)業(yè)務(wù)不斷發(fā)展變化的需要。目標(biāo)系統(tǒng)功能齊全，能夠完全滿足業(yè)務(wù)需求。保證系統(tǒng)的物理安全、數(shù)據(jù)存儲(chǔ)和存取的安全 與保密、數(shù)據(jù)傳輸?shù)陌踩c保密，做好使用人員的授權(quán)管理。其中在用戶登錄時(shí)，需要經(jīng)過(guò)密碼身份驗(yàn)證才能進(jìn)入，并根據(jù)不同的用戶身份，分配不同的使用權(quán)限，進(jìn)入到各自的操作界面。在這里我們可以查看相關(guān)的基本信息，以方便管理員進(jìn)行相應(yīng)的操作。功能結(jié)構(gòu)圖如下：倉(cāng)庫(kù)管理新增票據(jù)票據(jù)管理查詢(xún)管理新增入庫(kù)單新增出庫(kù)單入庫(kù)單管理出庫(kù)單管理月盤(pán)點(diǎn)單據(jù)查詢(xún)庫(kù)存查詢(xún) 圖33倉(cāng)庫(kù)管理模塊功能結(jié)構(gòu)圖4．報(bào)表統(tǒng)計(jì)管理功能在本模塊的設(shè)計(jì)中，我們要事項(xiàng)報(bào)表打印和貨物的統(tǒng)計(jì)功能，這兩個(gè)功能也是本系統(tǒng)需要實(shí)現(xiàn)的重要功能，其中報(bào)表打印功能中還包括了入庫(kù)單的打印，出庫(kù)單的打印以及月盤(pán)點(diǎn)的打印。功能結(jié)構(gòu)圖如下：系統(tǒng)管理修改密碼數(shù)據(jù)清除用戶管理切換用戶查看日志 圖35 系統(tǒng)管理功能模塊結(jié)構(gòu)圖第二節(jié) 系統(tǒng)開(kāi)發(fā)環(huán)境簡(jiǎn)介選擇微軟平臺(tái)作為主導(dǎo)，一方面考慮目前微軟的飛速發(fā)展，越來(lái)越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時(shí)，將微軟平臺(tái)作為首選方案；另一方面從技術(shù)角度來(lái)講，微軟平臺(tái)上的應(yīng)用無(wú)論是在開(kāi)發(fā)上，還是在軟件的部署上都非常容易，而且性能優(yōu)越。規(guī)范設(shè)計(jì)法中比較著名的有新奧爾良（New Orleans）方法。數(shù)據(jù)庫(kù)的需求分析是整個(gè)設(shè)計(jì)過(guò)程的基礎(chǔ)，必須首先準(zhǔn)確了解與分析用戶需求（包括數(shù)據(jù)與處理）。概念數(shù)據(jù)模型獨(dú)立于具體的DBMS，是面向現(xiàn)實(shí)世界的數(shù)據(jù)模型，是準(zhǔn)確表達(dá)現(xiàn)實(shí)世界數(shù)據(jù)間關(guān)系的重要環(huán)節(jié)。數(shù)據(jù)庫(kù)的物理設(shè)計(jì)將根據(jù)邏輯模式、DBMS及所用計(jì)算機(jī)系統(tǒng)平臺(tái)設(shè)計(jì)數(shù)據(jù)庫(kù)的內(nèi)模式，即文件結(jié)構(gòu)、各種存取 路徑、存儲(chǔ)空間的分配、記錄的存儲(chǔ)格式等。ER數(shù)據(jù)模型是常用的概念設(shè)計(jì)表示模型。具體實(shí)體屬性ER圖如下：公司信息實(shí)體的ER圖如下：電話號(hào)碼公司名稱(chēng)公司信息實(shí)體所在城市公司地址業(yè)務(wù)綜述電子郵件所在國(guó)家所在省份郵政編碼 圖36 公司信息實(shí)體ER圖職員信息實(shí)體的ER圖如下：備注編號(hào)職員信息實(shí)體郵政編碼姓名通訊地址手機(jī)性別頭銜電話號(hào)碼 圖37 職員信息實(shí)體ER圖貨物信息實(shí)體的ER圖如下：貨物編號(hào)貨物備注貨物信息實(shí)體貨物名稱(chēng)計(jì)量單位最高限量貨物規(guī)格貨物類(lèi)別最低限量 圖38 貨物信息實(shí)體ER圖倉(cāng)庫(kù)信息實(shí)體的ER圖如下：倉(cāng)庫(kù)編號(hào)貨物信息實(shí)體備注保管員倉(cāng)庫(kù)地點(diǎn)倉(cāng)庫(kù)名稱(chēng) 圖39 倉(cāng)庫(kù)信息實(shí)體ER圖 供應(yīng)商信息實(shí)體的ER圖如下：編號(hào)供應(yīng)商信息實(shí)體郵政編碼供應(yīng)商名稱(chēng)城市省份聯(lián)系人姓名聯(lián)系人職稱(chēng)地址 圖310 供應(yīng)商信息實(shí)體ER圖 客戶信息實(shí)體的ER圖如下：編號(hào)郵開(kāi)戶銀行注客戶信息實(shí)體客戶名稱(chēng)郵政編碼注傳真號(hào)碼聯(lián)系人通訊地址電話號(hào)碼手機(jī) 圖311 客戶信息實(shí)體ER圖 入庫(kù)單信息實(shí)體的ER圖如下：定單狀況其它金額供應(yīng)商金額存放倉(cāng)庫(kù)編號(hào)入庫(kù)單信息實(shí)體入庫(kù)數(shù)量貨物名稱(chēng)計(jì)量單位入庫(kù)時(shí)間入庫(kù)單價(jià)貨物規(guī)格經(jīng)辦人貨物類(lèi)別 圖312 入庫(kù)單信息實(shí)體ER圖 出庫(kù)單信息實(shí)體的ER圖如下：定單狀況其它金額客戶金額存放倉(cāng)庫(kù)編號(hào)出庫(kù)單信息實(shí)體出庫(kù)數(shù)量貨物名稱(chēng)計(jì)量單位出庫(kù)時(shí)間出庫(kù)單價(jià)貨物規(guī)格經(jīng)辦人貨物類(lèi)別 圖313 出庫(kù)單信息實(shí)體ER圖２.　系統(tǒng)數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)從理論上講，設(shè)計(jì)邏輯結(jié)構(gòu)應(yīng)該選者最適合與相應(yīng)概念結(jié)構(gòu)的數(shù)據(jù)模型，然后對(duì)支持這種數(shù)據(jù)模型的各種DBMS進(jìn)行比較，從中選出最合適的DBMS。關(guān)系模型的邏輯結(jié)構(gòu)是一組關(guān)系模式的集合。下面是根據(jù)系統(tǒng)的ER圖得出的幾個(gè)關(guān)系模式：公司信息（公司名稱(chēng)，公司地址，所在國(guó)家，所在省份，所在城市，郵政編碼，電話號(hào)碼，電子郵件，業(yè)務(wù)綜述）職員信息（編號(hào)，姓名，性別，頭銜，電話號(hào)碼，手機(jī)，通訊地址，郵政編碼。一般字符的查詢(xún)使用 SQL 語(yǔ)句 “SELECT * FROM jiating where 姓名=39。因此使用SS定義STRING型變量用SS= amp。 連接中間字符使用SELECT * FROM MANG where 日期 Between + ss + And + ss2 + 索檢記錄。所以首先建立臨時(shí)數(shù)據(jù)表 用INSERT INTO QUERY SELECT* FROM QUERY where , my, adOpenKeyset, adLockOptimistic將要打印的記錄存放其中，再使用DataReport時(shí)，我通過(guò)DataEnvironment連接了一個(gè)臨時(shí)數(shù)據(jù)表，該數(shù)據(jù)表中的數(shù)據(jù)根據(jù)查詢(xún)條件的不同而變化，然后用Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)Unload DataReport2Unload DataEnvironment1End Sub刷新報(bào)表即可。 + ss4 + 39。 + ss5 + 39。系統(tǒng)完整源代碼見(jiàn)附件，首先是進(jìn)入登陸界面圖41 用戶登陸界面。初始化數(shù)據(jù)連接 = DataPath 39。ToDo: 創(chuàng)建測(cè)試密碼是否正確 On Error Resume Next 39。查找用戶名 fit = 用戶名=39。 fit 39。找到該用戶，但密碼錯(cuò)誤 On Error GoTo enter Dim OldPas As String OldPas = (用戶密碼).Value If OldPas = Thenenter: success = True 39。用戶名 UserPas = 39。權(quán)限 Else success = False End If End If 39。主界面圖如下：圖42 倉(cāng)庫(kù)系統(tǒng)主界面圖第三節(jié)　出入庫(kù)管理模塊設(shè)計(jì)這個(gè)是倉(cāng)庫(kù)管理系統(tǒng)的主要功能模塊，在這個(gè)界面里，我們要實(shí)現(xiàn)出（入）庫(kù)單增加，修改，刪除以及打印等管理功能。如果是已退出入庫(kù)單則直接刪除 If (12).Text = 已退出 Then If MsgBox(您確信要?jiǎng)h除該入庫(kù)退出單嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub = select * from 入庫(kù)單 where 編號(hào)= + Str(code) SaveInit ResumeInit Exit Sub End If = select 庫(kù)存數(shù)量 from 庫(kù)存狀況 where 貨物編號(hào)= + Str(code1) + and 倉(cāng)庫(kù)編號(hào)= + Str(code2) 39。庫(kù)存不足 If num2 num1 Then If MsgBox(庫(kù)存不足,庫(kù)存量為 + Str(num2) + ,需求量為 + Str(num1) + , + 要忽略它并強(qiáng)制刪除嗎?, vbQuestion Or vbYesNo) = vbNo Then Exit Sub End If 39。如果庫(kù)存為零清空 End If 39。寫(xiě)入系統(tǒng)日志 (刪除入庫(kù)單) End Sub　圖44 出庫(kù)單管理圖具體代碼如下：Private SQL As StringPrivate startcol As IntegerPrivate endcol As IntegerPrivate col, row As IntegerPrivate rowheight As IntegerPrivate colwidth(14) As LongPrivate order(14) As BooleanOption ExplicitPrivate Sub SaveInit() startcol = endcol = col = row = rowheight = Dim i As Integer For i = 0 To 1 colwidth(i) = (i).width Next End SubPrivate Sub ResumeInit() = startcol = endcol col, row = rowheight Dim i As Integer For i = 0 To 1 (i).width = colwidth(i) Next (0).Locked = True (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True (6).Locked = True (7).Locked = True (8).Locked = True (9).Locked = True (10).Locked = True (11).Locked = True (12).Locked = True End SubPrivate Sub initdatagrid1() (0).width = 500 (1).width = 1000 (2).width = 1000 (3).width = 1000 (4).width = 1000 (5).width = 1000 (6).width = 800 (7).width = 800 (8).width = 800 (9).width = 800 (10).width = 800 (11).width = 800 (12).width = 800 (13).width = 800 (14).width = 800 (0).Locked = True (1).Locked = True