【正文】 在將來得工作中做出更大成績。這就像是精心栽培得果實(shí)成熟時(shí)心中得感受。第六章 總結(jié)在軟件的編寫過程中，我充分體會了軟件編程工作者的辛苦，因?yàn)槊恳粋€(gè)細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會全盤皆輸，而且往往很多的時(shí)候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯(cuò)誤的過程中，面臨著否認(rèn)自己的過程，是對意志品質(zhì)的考驗(yàn)。由于自己分析設(shè)計(jì)和程序設(shè)計(jì)的經(jīng)驗(yàn)不足，該系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)過程中，還有許多沒有完善的地方，比如數(shù)據(jù)冗余、文檔組織不合理、幫助文檔沒有編寫，用戶界面設(shè)計(jì)不夠美觀，異常出錯(cuò)處理比較差等多方面問題，這些都有待進(jìn)一步完善和提高。增加時(shí)輸入錯(cuò)誤字段系統(tǒng)提示輸入錯(cuò)誤，并重新輸入。6系統(tǒng)初始化進(jìn)行初始化操作初始化后數(shù)據(jù)為原是數(shù)據(jù)，且初始化后系統(tǒng)可正常運(yùn)行。4數(shù)據(jù)備份備份現(xiàn)有數(shù)據(jù)庫數(shù)據(jù)庫可以按照制定路徑備份并保存。操作順利，新添加用戶可以登錄。實(shí)際上測試情況有無窮多個(gè)，人們不僅要測試所有合法的輸入，而且還要對那些不合法但是可能的輸入進(jìn)行測試。 “黑盒”法著眼于程序外部結(jié)構(gòu)、不考慮內(nèi)部邏輯結(jié)構(gòu)、針對軟件界面和軟件功能進(jìn)行測試。在測試時(shí)，把程序看作一個(gè)不能打開的黑盆子，在完全不考慮程序內(nèi)部結(jié)構(gòu)和內(nèi)部特性的情況下，測試者在程序接口進(jìn)行測試，它只檢查程序功能是否按照需求規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)鋸而產(chǎn)生正確的輸出信息，并且保持外部信息（如數(shù)據(jù)庫或文件）的完整性。黑盒測試又稱功能測試、數(shù)據(jù)驅(qū)動測試或基于規(guī)格的測試，也可被稱為用戶測試，主要用于快速應(yīng)用開發(fā)（RAD）環(huán)境。兩種測試方法從不同的角度出發(fā)，反映了軟件的不同側(cè)面，也適用于不同的開發(fā)環(huán)境。測試所在硬件環(huán)境：中央處理器 奔騰4處理器內(nèi)存：128M硬盤：40G 轉(zhuǎn)速7200轉(zhuǎn)/分光驅(qū)：CDROM 52X顯示器： 彩色 真彩32 分辨率 1024768標(biāo)準(zhǔn)鍵盤、標(biāo)準(zhǔn)光電鼠標(biāo)打印機(jī)：HP LaserJet 5100 PCL6測試所在軟件環(huán)境：Windows XP Professional SP2Microsoft office 2003第二節(jié) 測試方法測試是一個(gè)為了尋找錯(cuò)誤而運(yùn)行程序的過程，一個(gè)好的測試用例是只可能找到迄今為止尚未發(fā)現(xiàn)錯(cuò)誤的用例，一個(gè)成功的測試是揭示了迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測試。包括了用戶名，操作時(shí)間和操作內(nèi)容。更新出庫單 = select * from 出庫單 where 編號= + Str(code) SaveInit ResumeInit MsgBox 出庫單刪除成功! 39。沒有記錄開始創(chuàng)建 = select * from 庫存狀況 39。如果已有記錄則更新 If 0 Then If num2 num1 0 Then 39。庫存不足 If num2 num1 Then If MsgBox(庫存超額,庫存最大剩余限量為 + Str(num2) + ,入庫量為 + Str(num1) + , + 要忽略它并強(qiáng)制刪除嗎?, vbQuestion Or vbYesNo) = vbNo Then Exit Sub End If 39。如果是已退出出庫單則直接刪除 If (12).Text = 已退出 Then If MsgBox(您確信要刪除該出庫退出單嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub = select * from 出庫單 where 編號= + Str(code) SaveInit ResumeInit Exit Sub End If = select () as 剩余量 from 庫存狀況,貨物信息 where = and 貨物編號= + Str(code1) + and 倉庫編號= + Str(code2) 39。更新入庫單 = select * from 入庫單 where 編號= + Str(code) SaveInit ResumeInit MsgBox 入庫單刪除成功! 39。更新庫存狀況 If num2 num1 0 Then (庫存數(shù)量).Value = num2 num1 Else 39。當(dāng)前庫存數(shù)量num2 num2 = (庫存數(shù)量).Value 39。具體功能界面如下：圖43 入庫單管理圖具體代碼如下：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 = TrueEnd 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 (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 = 270End SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) On Error Resume Next = (貨物名稱).ValueEnd SubPrivate Sub B新增入庫單_Click() vbModal SaveInit ResumeInit End SubPrivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Dim caption As String caption = (ColIndex).caption If caption = 經(jīng)辦人 Then caption = 姓名 If caption = 金額 Then Exit Sub If caption = 備注 Then caption = If caption = 編號 Then caption = If caption = 供應(yīng)商 Then caption = 供應(yīng)商名稱 If caption = 存放倉庫 Then caption = 倉庫名稱 = SQL + order by + caption order(ColIndex) = True order(ColIndex) If order(ColIndex) = True Then = + ASC Else = + DESC End If SaveInit ResumeInit End SubPrivate Sub Form_Load() = DataConnectString SQL = Set = Adodc1 initdatagrid1 End SubPrivate Sub 打印入庫單_Click() On Error GoTo quit Dim p As New 新增入庫單 = (0).Value vbModal Unload pEnd SubPrivate Sub 刪除入庫單_Click() On Error GoTo quit If (12).Text = 已退出 Then GoTo conIf MsgBox(建議用[退出入庫單],而不要直接刪除,?, vbYesNo Or vbQuestion) = vbNo Then Exit Subcon: On Error Resume Next Dim code, code1, code2 As Long code = (0).Text = select 貨物編號,入庫數(shù)量,倉庫編號 from 入庫單 where 編號= + Str(code) Dim num1, num2 As Long code1 = (貨物編號).Value num1 = (入庫數(shù)量).Value code2 = (倉庫編號).Value 39。如果登陸失敗 If success = False Then MsgBox 密碼錯(cuò)誤，再試一次！, vbExclamation, 登錄 = 0 = Len() Exit Sub Else OK = True End If End Sub目的是USER表沒有該用戶，將無法使用本程序然后進(jìn)入主界面，如下圖所示：第二節(jié) 主界面設(shè)計(jì)這個(gè)是倉庫管理系統(tǒng)的主界面，用戶的一切管理使用操作都在主界面下進(jìn)行，在主界面菜單欄有基本信息，倉庫管理，報(bào)表統(tǒng)計(jì)和系統(tǒng)管理這幾個(gè)模塊組成。密碼 Purview = (用戶權(quán)限).Value 39。以下三個(gè)變量保存以備后用 UserName = 39。找不到該用戶 If Then success = False MsgBox 該用戶不存在!, vbCritical Exit Sub Else 39。 fit = fit + + 39。檢查正確密碼 Dim success As Boolean success = False Dim fit As String 39。數(shù)據(jù)源為user表單