【正文】 進(jìn)行檢索；提供統(tǒng)計(jì)分析功能。提供舊書(shū)銷(xiāo)毀功能，對(duì)于淘汰、損壞、丟失的書(shū)目可及時(shí)對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改。數(shù)據(jù)輸出部分：主要是各種統(tǒng)計(jì)查詢，包括：根據(jù)圖書(shū)信息查閱圖書(shū)及其借閱信息、統(tǒng)計(jì)輸出圖書(shū)類(lèi)型比例等。功能分析之后，再根據(jù)各個(gè)崗位、各個(gè)用戶對(duì)數(shù)據(jù)和使用權(quán)限的不同要求作出局部 ER 圖，然后再把各個(gè)局部 ER 圖綜合起來(lái)形成統(tǒng)一的整體ER 圖。圖書(shū)管理系統(tǒng)使用的是 SQL Server2021的數(shù)據(jù)管理系統(tǒng)和以 Visual 。 然后根據(jù)系統(tǒng)功能分 析設(shè)計(jì)出需要的數(shù)據(jù)庫(kù)，繪制系統(tǒng)數(shù)據(jù)流圖與總結(jié)數(shù)據(jù)字典、設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)。 圖書(shū)流通：包括圖書(shū)借閱、續(xù)借、圖書(shū)返還，圖書(shū)書(shū)目的查詢 系統(tǒng)用戶管理：包括系統(tǒng)用戶數(shù)據(jù)的錄入、修改與刪除 讀者數(shù)據(jù)管理：包括讀者類(lèi)別管理，讀者個(gè)人數(shù)據(jù)的錄入、修改和刪除。 錄入功能：為普通管理員提供相應(yīng)的錄入功能，為高級(jí)管理員提供對(duì)所有信息的錄入功能。 維護(hù)功能：為普通管理員提供查詢及相應(yīng)的修改，刪除功能，為高級(jí)管理提 供對(duì)所有信息的修改刪除功能。 退出功能：各個(gè)功能模塊和主窗體都設(shè)有關(guān)閉命令按鈕，可方便地退出各模 塊或系統(tǒng)。 流程邏輯如圖所示： 輸 入 用 戶 名 和 密 碼數(shù) 據(jù) 庫(kù) 是 否 打開(kāi)連 接 失 敗 返 回用 戶 名 和 密 碼是 否 正 確重 新 輸 入 密 碼輸 入 次 數(shù) 是 否超 過(guò) 5 次關(guān) 閉 數(shù) 據(jù) 庫(kù) 返 回登 陸 成 功進(jìn) 入 主 界 面NYNYYN 圖 41用戶登錄流程邏輯 用戶添加模塊 :此程序用于添加新的用戶，用戶通過(guò)向數(shù)據(jù)庫(kù)內(nèi)輸入必要的信息來(lái)注冊(cè)成為新的用戶，才通過(guò)一系列的驗(yàn)證之后，即注冊(cè)成為真正的用戶。 :查詢新用戶的用戶名是否存在，若存在則停止添加返還數(shù)據(jù)庫(kù)；若用戶不存在，則進(jìn)行添加，并進(jìn)行注冊(cè)，注冊(cè)成功后返回。 ： 5 輸 入 用 戶 信 息判 斷 數(shù) 據(jù) 庫(kù) 是 否 打 開(kāi) 提 示 連 接 失 敗 返 回查 詢 數(shù) 據(jù) 庫(kù) 中 是 否 有 該用 戶提 示 已 經(jīng) 存 在 該 用戶關(guān) 閉 數(shù) 據(jù) 庫(kù) 并 返 回向 數(shù) 據(jù) 庫(kù) 中 添 加 新用 戶提 示 注 冊(cè) 成 功返 回NYNY 圖 42用戶添加模塊流程邏輯 書(shū)籍查詢模塊 ：此程序用于實(shí)現(xiàn)用戶對(duì)想要借閱的查詢功能。 ：對(duì)進(jìn)行想要查詢的書(shū)籍進(jìn)行搜索 ：輸入圖書(shū)的詳細(xì)信息，包括圖書(shū)名稱(chēng)，書(shū)籍 ID，圖書(shū)作者，出版社，單價(jià)等信息。 ： 6 輸 入 圖 書(shū) 信 息判 斷 數(shù) 據(jù) 庫(kù) 是否 打 開(kāi)連 接 失 敗 返 回查 詢 是 否 有 該書(shū)關(guān) 閉 數(shù) 據(jù) 庫(kù) 返 回顯 示 該 書(shū) 的 信 息關(guān) 閉 數(shù) 據(jù) 庫(kù)返 回NYNY 圖 43圖書(shū)查詢模塊流程 圖書(shū)借閱模塊 ：此程序用于圖書(shū)的借閱，用戶通過(guò)登錄自己的借閱 ID 后，對(duì)需要借閱的圖書(shū)進(jìn)行借閱操作，如果符合借閱的要求，則可進(jìn)行借閱。 ：首先驗(yàn)證借閱者輸入的借閱 ID 是否存在，若存在進(jìn)行下一步；若不存在則返回。 ID 進(jìn)行搜索，若此書(shū)不存在，則提示此書(shū)不存在；若此書(shū)存在則進(jìn)行下一步操作。 ：輸入借閱證的 ID,圖書(shū) ID ：若借閱證 ID 正確且圖書(shū) ID 正確且符合借閱要求，則輸出提示借閱成功界面；若存在借閱 ID 或圖書(shū) ID 或不符合借閱要求等問(wèn)題，則輸出提示沒(méi)有借閱成功原因的界面。 ：實(shí)現(xiàn)對(duì)圖書(shū)的書(shū)籍歸還功能。 對(duì)想要?dú)w還的圖書(shū) ID 進(jìn)行搜索，若此書(shū)不存在，則提示此書(shū)不存在；若此書(shū)存在則進(jìn)行下一步操作。 ：輸入借閱證 ID 和圖書(shū) ID ：若借閱證 ID 和圖書(shū) ID 正確，則輸出提示圖書(shū)歸還成功界面；若借閱證 ID 或圖書(shū) ID 不正確，則輸出提示沒(méi)有成功原因的界面。 。 :對(duì)數(shù)據(jù)庫(kù)查詢是否已存在此書(shū) :輸入新書(shū)的書(shū)籍 ID，書(shū)名等信息。 9 輸 入 書(shū) 籍 信 息數(shù) 據(jù) 庫(kù) 是 否 打開(kāi)關(guān) 閉 數(shù) 據(jù) 庫(kù) 返 回是 否 已 經(jīng) 存 在該 書(shū)將 該 書(shū) 的 數(shù) 量 加 1 提 示 添 加 書(shū) 籍 成 功 關(guān) 閉 數(shù) 據(jù) 庫(kù) 返 回將 該 書(shū) 信 息 存 入 數(shù)據(jù) 庫(kù)是 否 是 第 一 條記 錄提 示 添 加 第 一 本 書(shū)籍提 示 添 加 書(shū) 籍 成 功 關(guān) 閉 數(shù) 據(jù) 庫(kù) 返 回關(guān) 閉 數(shù) 據(jù) 庫(kù)返 回NYYNNY 圖 46新書(shū)入庫(kù)模塊 10 第五章 編碼與測(cè)試 各 功能模塊的實(shí)現(xiàn) （ 1）用戶登錄窗體 圖 51 用戶登錄窗體 用戶登錄代碼： Const MaxLogTimes As Integer = 3 Private Sub cmdcancel_Click() If MsgBox(是否真的退出系統(tǒng)登錄？ , vbYesNo, 登錄驗(yàn)證 ) = vbYes Then Unload Me End If End Sub Private Sub cmdok_Click() Static intLogTimes As Integer intLogTimes = intLogTimes + 1 If intLogTimes MaxLogTimes Then MsgBox 超過(guò)登錄次數(shù)！ , vbCritical, 登錄驗(yàn)證 Else With .Open If .RecordCount 0 Then .MoveFirst .Find 編號(hào) = amp。 If .EOF Then MsgBox Trim(txtLog(0)) amp。保存 Private Sub cmdSave_Click() Dim objcopy As New Recordset If Trim(txtNum) = Then MsgBox 不能為空！ , vbCritical, 系統(tǒng)用戶管理 = 0 = Len(txtNum) ElseIf Len(Trim(txtPwd)) 6 Then 12 MsgBox 用戶口令須為 6位字符串！ , vbCritical, 系統(tǒng)用戶管理 = 0 = Len(txtPwd) ElseIf Not txtAuth Like [0,1] Then MsgBox 用戶權(quán)限必須為 0或 1, vbCritical, 系統(tǒng)用戶管理 txtAuth = Else Set objcopy = 39。 Trim(txtNum) amp。 Trim(txtNum) amp。保存記錄 MsgBox 數(shù)據(jù)保存成功！ , vbInformation, 系統(tǒng)用戶管理 = True = True isAdding = False: = True End If End With End If End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub （ 3）讀者數(shù)據(jù)管理窗體界面 13 圖 53 讀者數(shù)據(jù)管理窗體 讀者數(shù)據(jù)管理窗體代碼 TRUNCATE TABLE 讀者類(lèi)別 With If .State = adStateClosed Then .Open .AddNew .Fields(編號(hào) ) = 0 .Fields(名稱(chēng) ) = 特殊 .Fields(借書(shū)量 ) = Val(txtSp(1)) .Fields(借書(shū)期 ) = Val(txtSp(2)) .Fields(有效期 ) = Val(txtSp(3)) .Update .AddNew .Fields(編號(hào) ) = 1 .Fields(名稱(chēng) ) = 館員 .Fields(借書(shū)量 ) = Val(txtL(1)) .Fields(借書(shū)期 ) = Val(txtL(2)) .Fields(有效期 ) = Val(txtL(3)) .Update .AddNew .Update .AddNew .Fields(編號(hào) ) = 2 .Fields(名稱(chēng) ) = 教師 .Fields(借書(shū)量 ) = Val(txtT(1)) .Fields(借書(shū)期 ) = Val(txtT(2)) .Fields(有效期 ) = Val(txtT(3)) .Update 14 .AddNew .Fields(編號(hào) ) = 3 .Fields(名稱(chēng) ) = 學(xué)生 .Fields(借書(shū)量 ) = Val(txtS(1)) .Fields(借書(shū)期 ) = Val(txtS(2)) .Fields(有效期 ) = Val(txtS(3)) .Update End With End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub Private Sub SSTab1_DblClick() End Sub （ 4）圖書(shū)征訂管理窗體 圖 54 圖書(shū)征訂管理窗體 圖書(shū)征訂管理代碼 = Len(txtPubDate) ElseIf Trim(txtAuthor) = Then MsgBox 作者不能為空！ , vbCritical, 圖書(shū)征訂管理 = 0 = Len(txtAuthor) ElseIf Val(txtNum) = Then MsgBox 正的數(shù)量無(wú)效！ , vbCritical, 圖書(shū)征訂管理 15 = 0 = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！ , vbCritical, 圖書(shū)征訂管理 = 0 = Len(txtDate) Else 39。選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End Sub Private Sub cmdAddOne_Click(Index As Integer)39。 vbCr amp。 vbCr amp。刷新新書(shū)或調(diào)出庫(kù)室條碼列表 Private Sub cmdRefresh_Click(Index As Integer) 16 Select Case Index Case 0 39。刷新庫(kù)室條碼列表 With If .State = adStateClosed Then .Open .Requery End With AddListOut End Select End Sub Public Sub AddListNew() lstPre(0).Clear With If .State = adStateClosed Then .Open If .RecordCount 0 Then .MoveFirst While Not .EOF lstPre(0).AddItem .Fields(條碼 ) .MoveNext Wend Else lstPre(0).AddItem 當(dāng)前無(wú)待分配新書(shū) End If End With End Sub 測(cè)試 借閱卡管理測(cè)試 進(jìn)度安排測(cè)試辦理借閱證信息，檢查個(gè)人賬號(hào)、讀者可自行修改密碼。測(cè)試借閱卡掛失功能，包括讀者信息等 。 添加信息 在頁(yè)面實(shí)現(xiàn)對(duì)信息的添加并能提交到數(shù)據(jù)庫(kù)。 刪除信息 在頁(yè)面選定要?jiǎng)h除的信息，頁(yè)面刷新不在顯示此信息，但數(shù)據(jù)庫(kù)內(nèi)仍保留此信息。對(duì)讀者