【導讀】當今時代是飛速發(fā)展的信息時代。在各行各業(yè)中離不開信息處理，這正是計。算機網(wǎng)被廣泛應(yīng)用于管理信息系統(tǒng)的外部環(huán)境。計算機的最大好處在于利用它能。使用計算機進行信息處理，不僅提高了工作效率，而且大大的。提高了其安全性。尤其對復雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。蘇州技師學院圖書館，是新建成的圖書館。圖書館人員結(jié)構(gòu)復雜，人員數(shù)量。有限，涉及方面很廣，如果還使用手工操作處理圖書借閱問題，工作將非常繁瑣，需要大量的人力、物力和財力，極大的浪費了資源，對于圖書館管理人員來說，而這些項目在過去靠手工操作，需要手工記錄這些事情，管理系統(tǒng)軟軟件。我認為建立一個圖書館管理系統(tǒng)，使圖書管理工作規(guī)范化、系統(tǒng)化、程序化，的查詢和修改圖書情況。

　　

【正文】 ption = lblInfo(1).Caption = lblInfo(2).Caption = End Sub Sub queryReader() Dim conn As New Dim cmd As New Dim rs As New Dim sql As String Dim dbPath As String Dim connStr As String Dim i As Integer Dim j As Integer dbPath = + \ connStr = Provider=。Data Source= amp。 dbPath 39。使用 Connection 對象 與具體的數(shù)據(jù)庫文件相連接 connStr If = Then MsgBox 查詢條件不能為空，請重新輸入查詢條件??！ , vbExclamation, 錯誤提示 Exit Sub End If sql = select * from readers where [id]= amp。 39。執(zhí)行 SQL 語句，建立打開記錄集 sql, conn, adOpenKeyset, adLockOptimistic If = 0 Then lblInfo(0).Caption = lblInfo(1).Caption = lblInfo(2).Caption = MsgBox 沒有查找滿足條件的數(shù)據(jù)！ , vbExclamation, 提示 Else lblInfo(0).Caption = (name) lblInfo(1).Caption = (age) 34 lblInfo(2).Caption = (class) End If End Sub 借閱圖書 界面 (1)借閱圖書 界面的作用： 該窗口用于向數(shù)據(jù)庫中圖書借閱記錄，包括讀者編號及其所借閱圖書的編號，并同時自動將借閱日期和應(yīng)歸還日期保存到數(shù)據(jù)庫中。 (2)借閱圖書 界面實現(xiàn)代碼： Dim conn As New Dim cmd As New Dim rs As New Dim sql As String Private Sub Command1_Click() If = Then MsgBox 請輸入讀者編號！！ , 0 + 48, 信息提示 Else 39。設(shè)置具體的 SQL 語句 sql = SELECT * FROM readers where id= amp。 = sql 39。執(zhí)行 SQL 語句，建立打開記錄集 cmd, , adOpenKeyset If = 0 Then MsgBox 該讀者不存在！！ Else = False End If End If End Sub 35 Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 39。窗體居中顯示 = ( ) \ 2 = ( ) \ 2 = 39。使用 Connection 對象與具體的數(shù)據(jù)庫文件相連接 Provider=。Data Source= amp。 amp。 \ 39。每個 Command 必須與一個 Connection 對象連接 Set = conn 39。設(shè)置命令的類型是使用 SQL 語句 = adCmdText End Sub Private Sub Form_Unload(Cancel As Integer) End Sub 歸還圖書 界面 (1)歸還圖書 界面作用 :向窗口中輸入被借閱的圖書編號并確認歸還，即可將圖書借閱信息數(shù)據(jù)表中圖書的借閱記錄標記為已歸還。 (2)歸還圖書 界面實現(xiàn)代碼： Dim conn As New Dim cmd As New Dim rs As New Dim sql As String Private Sub cmdOk_Click() sql = SELECT * FROM lendBook where bookid=39。 amp。 txtBookid amp。 39。 AND hasreturned=false = sql cmd, , adOpenDynamic, adLockOptimistic 36 hasreturned, True MsgBox 圖書已歸還！！ End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 39。窗體居中顯 示 = ( ) \ 2 = ( ) \ 2 39。使用 Connection 對象與具體的數(shù)據(jù)庫文件相連接 Provider=。Data Source= amp。 amp。 \ 39。每個 Command 必須與一個 Connection 對象連接 Set = conn 39。設(shè)置命令的類型是使用 SQL 語句 = adCmdText End Sub 借閱查詢界面 (1)借閱查詢界面作用： 可以通過輸入讀者的編號來查詢該讀者的圖書借閱信息。查詢的時候可以選擇查詢該讀者未歸還的圖書記錄，也可以查詢該讀者已歸還的圖書記錄。 37 (2)借閱查詢界面實現(xiàn)代碼： Private Sub cmdQuery_Click() queryLendInfo End Sub Sub queryLendInfo() Dim conn As New Dim cmd As New Dim rs As New Dim sql As String Dim dbPath As String Dim connStr As String Dim i As Integer Dim j As Integer dbPath = + \ connStr = Provider=。Data Source= amp。 dbPath 39。使用 Connection 對象與具體的數(shù)據(jù)庫文件相連接 connStr If = Then MsgBox 查詢條件不能為空，請重新輸入查詢條件！！ , vbExclamation, 錯誤提示 Exit Sub End If If optQuery(0).Value = True Then sql = SELECT ,lendtime,duetime _ amp。 from lendbook,book where = amp。 Trim() _ amp。 AND = _ amp。 AND =false ElseIf optQuery(1).Value = True Then sql = SELECT ,lendtime,duetime _ amp。 from lendbook,book where = amp。 _ amp。 AND = _ amp。 AND =true End If 39。執(zhí)行 SQL 語句，建立打開記錄集 sql, conn, adOpenKeyset, adLockOptimistic If = 0 Then MsgBox 沒有查找滿足條件的數(shù)據(jù)！ , vbExclamation, 提示 Else = + 1 = 5 39。Print 39。設(shè)定行高 38 For i = 0 To 1 (i) = 280 Next i 39。設(shè)定列的屬性 = 0 For i = 0 To 1 = i 39。指定當前列為第 i 列 (i) = 4 39。每列內(nèi)容居中顯示 Select Case i Case 0 (i) = 620 39。設(shè)定列寬 = 序號 Case 1 (i) = 1000 39。設(shè)定列寬 = 圖書編號 Case 2 (i) = 2600 39。設(shè)定列寬 = 書名 Case 3 (i) = 1100 39。設(shè)定列寬 = 借出日期 Case 4 (i) = 1100 39。設(shè)定列寬 = 到期日期 End Select Next i 39。 i = 1 While (Not ) = i For j = 0 To 1 = j 39。設(shè)置當前為列為第 j 列 = 4 39。每列內(nèi)容居中顯示 Select Case j Case 0 = amp。 i Case 1 = (bookid) Case 2 = (bookname) Case 3 = (lendtime) Case 4 = (duetime) 39 End Select Next j i = i + 1 Wend End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() txtKey = End Sub 40 第五章 軟件測試分析報告 軟件信息 及運行環(huán)境 測試計劃和要點 軟件測試的本質(zhì)是針對要測試的內(nèi)容確定一組測試用例。在討論之前，我先把要測試各個模塊的計劃和要點列出： 主模塊測試要點 數(shù)據(jù)庫連接情況：正常情況，數(shù)據(jù)庫文件缺少，外部系統(tǒng)異常； 系統(tǒng)設(shè)置獲?。赫Ｇ闆r，外部系統(tǒng)異常； 軟件名稱： 圖書館管理系統(tǒng) 語言類型： 簡體中文 授權(quán)類型： 免費軟件 /測試版 Windows 98/NT/Me/2021/XP cpu： Intel Pentium 以上 內(nèi)存：64M 硬盤或以上： 100M 空閑空間 硬件環(huán)境：服務(wù)器： PII266 64M 2G 以上 客戶機： PII133 16M 網(wǎng)卡等 網(wǎng)絡(luò)帶寬： 10M 以上 服務(wù)器端： NT6 以上， IIS60 以上 客戶端： 以上 軟件大小： MB （建議空間： 10MB 以上，不包括數(shù)據(jù)庫） 指導老師： 華康 軟件作者： 顧俊生 班主任： 華康 開發(fā)日期： 2021 年 3 月 2021 年 6 月 運行環(huán)境境 41 對用戶輸入的響應(yīng)：合法輸入，能夠正常調(diào)用子模塊； 非法輸入，系統(tǒng)能否辨別，并作出響應(yīng) (提出警告 )； 子模塊的異常狀況，系統(tǒng)能否及時做出響應(yīng)。 借閱模塊測試要點 模塊正常運行流程 ； 用戶輸入數(shù)據(jù)檢查，包括數(shù)據(jù)合理性檢查，以及合法性檢查 ； 數(shù)據(jù)庫操作 ； 數(shù)據(jù)庫連接異常時的響應(yīng)情況 。 圖書查詢模塊測試要點 數(shù)據(jù)庫連接正常 ； 數(shù)據(jù)庫數(shù)據(jù)正常 ； 輸入的書號合理合法 ； 輸入的書號不合理 ； 輸入的書號不合法 ； 數(shù)據(jù)庫數(shù)據(jù)異常 ； 數(shù)據(jù)庫連接異常 。 圖書歸還模塊測試要點 模塊正常工作流程 ； 對輸入的查驗，包括輸入值的合法性與合理性檢驗 ； 數(shù)據(jù)庫連接異常能否做出適當處理 ； 數(shù)據(jù)庫數(shù)據(jù)異常時能否判斷并給予適當處理 。 測試結(jié)論 測試目標完成 ，測試已經(jīng)通過 ，可以進入下一階段項目目標。 測試結(jié)果及發(fā)現(xiàn)把本項測試中實際得到的動態(tài)輸出（包括內(nèi)部生成數(shù)據(jù)輸出）結(jié)果同對于動態(tài)輸出的