【正文】 管 理D 1學(xué) 生 信 息圖 書 信 息2圖 書管 理D 2圖 書 信 息 登 記圖 書 信 息 登 記圖 書 信 息學(xué) 生 借 閱圖 書3借 閱 管理借 閱 信 息借 閱 登 記D 34歸 還 管理學(xué) 生 信 息歸 還 圖 書歸 還 登 記D 4學(xué) 生借 閱 結(jié) 果歸 還 圖 書歸 還 結(jié) 果 圖 圖書管理系統(tǒng)數(shù)據(jù)流圖（頂層 DFD 圖） 對頂層 DFD 圖中的一個加工“學(xué)生管理”進(jìn)行展開， 如圖 。圖 列出了系統(tǒng)的主要數(shù)據(jù)字典。 ，歸還的登記功能：系統(tǒng)的主要功能之一，供本校學(xué)生借閱圖書、歸還圖書，并進(jìn)行登記。 系統(tǒng)的開放性和系統(tǒng)的可擴(kuò)充性 圖書管理系統(tǒng)在開發(fā)過程中，應(yīng)該充分考慮以后的可擴(kuò)充性。通過軟件的修補(bǔ)、替換完成系統(tǒng)的升級和更新?lián)Q代。 系統(tǒng)的標(biāo)準(zhǔn)性 系統(tǒng)在設(shè)計開發(fā)使用過程中都要涉及到很多計算機(jī)硬件、軟件。另一方面，在系統(tǒng)設(shè)計和開發(fā)的過程中，應(yīng)在考慮成本的基礎(chǔ)上盡量采用當(dāng)前主流并先進(jìn)且有良好發(fā)展前途的產(chǎn)品。 管 理 員 用 戶 驗 證圖 書 登 記借 閱 或 歸還 圖 書登 錄合 法 用 戶登 記 后 的圖 書管 理 員退 出 登 錄 圖 圖書管理系統(tǒng)的業(yè)務(wù)流程 針對新的業(yè)務(wù)流程，現(xiàn)具體描述其功能如下： ：系統(tǒng)對用戶合法性進(jìn)行檢查。 ：即對所有圖書的借閱情況，或?qū)W生的基本情況和借閱情況進(jìn)行查詢。 計算機(jī)學(xué)院軟件工程課程設(shè)計 9 管 理 員登 錄用 戶 校 驗合 法 用 戶圖 書 管 理 程 序圖 書 管 理 系 統(tǒng) 主文 件新 圖 書 信 息圖 書 信 息 表讀 入 學(xué)生 信 息借 閱圖 書歸 還圖 書押 金 、 超 期時 限 、 丟 失罰 款 設(shè) 定借 閱圖 書成 功報 告應(yīng) 歸 還圖 書 丟失歸 還圖 書超 期相 應(yīng) 處 理 措 施管 理 信 息 設(shè) 定退 出管 理 員 圖 系統(tǒng)流程 圖 計算機(jī)學(xué)院軟件工程課程設(shè)計 10 第四章 詳細(xì)設(shè)計 程序流程圖 依據(jù)軟件工程的基本原理，詳細(xì)設(shè)計階段的根本任務(wù)是確定應(yīng)該怎樣具體實現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個階段的設(shè)計工作，應(yīng)該得出對目標(biāo)系統(tǒng)的精確描述，從而在系統(tǒng)實現(xiàn)階段可以把這個描述直接翻譯成用某種程序設(shè) 計語言書寫的程序。 計算機(jī)學(xué)院軟件工程課程設(shè)計 11 開 始管 理 員 登 陸是 否 合 法借 閱 圖 書N o結(jié) 束管 理 員 注 銷選 擇歸 還 圖 書 退 出查 詢 信 息學(xué) 生 信 息表 操 作圖 書 信 息表 操 作選 擇增 加 修 改刪 除退 出確 認(rèn)更 新N oY e s選 擇 查詢 方 式書 名 書 號 作 者 出 版 社輸 入 所 需 記 錄 要 求查 找 記 錄顯 示 記 錄繼 續(xù)Y e sN o讀 入 書 號 讀 入 書 號超 期已 借 出N o讀 入 學(xué) 號確 認(rèn)更 新 數(shù) 據(jù) 庫Y e s繼 續(xù)Y e sY e sY e sN oY e s罰 款更 新 數(shù) 據(jù) 庫繼 續(xù)Y e sN oN o 圖 程序流程 圖 程序輸入輸出描述 主模塊 ： 操作系統(tǒng)傳遞至的各種消息以及用戶的輸入數(shù)據(jù) 。 圖書管理模塊 ： 用戶口令 。 歸還管理模塊 ：圖書編 號 。 程序接口描述 外部接口 按 Windows 應(yīng)用軟件用戶界面的規(guī)范來設(shè)計，使用以對話框為主的用戶界面，便于用戶使用。下面給出概念結(jié)構(gòu)設(shè)計得 ER 圖如圖 所示。 表 41 圖書信息表的結(jié)構(gòu) 序號 字段名稱 字段說明 類型 位數(shù) 屬性 備注 1 cBooksID 圖 文 7 必 計算機(jī)學(xué)院軟件工程課程設(shè)計 15 書編號 本 須非空 2 cBooksName 圖書名稱 文本 20 必須非空 3 cBooksISBN 圖書ISBN號 文本 15 可為空 4 cBooksAuthor 圖書作者 文本 10 可為空 5 cBooksPublisher 圖書出版社 文本 20 可為空 6 cBooksType 圖書類型 文本 16 可為空 7 smBooksPrice 圖書貨幣 可為 計算機(jī)學(xué)院軟件工程課程設(shè)計 16 價格 空 8 iBooksStoreQuan 圖書庫存量 整數(shù) 可為空 9 iBooksLeftQuant 圖書副本數(shù)量 整數(shù) 可為空 10 iBooksTotalQuan 圖書總數(shù) 整數(shù) 可為空 （ tBorrow），其字段列表如表 42 所示。 表 45 管理員 信息表的結(jié)構(gòu) 序 字段名稱 字 類 位 屬 備計算機(jī)學(xué)院軟件工程課程設(shè)計 20 號 段說明 型 數(shù) 性 注 1 cOperatorID 管理員編號 文本 5 必須非空 2 cOperatorName 管理員姓名 文本 10 必須非空 3 cOperatorPassword 密碼 文本 6 必須非空 4 cOperatorAddTime 管理員加入時間 時間日期 10 必須非空 計算機(jī)學(xué)院軟件工程課程設(shè)計 21 第五 章 編碼實現(xiàn) 程序編碼 登陸界面如圖 所示。 39。 password error 計算機(jī)學(xué)院軟件工程課程設(shè)計 22 Else Check_Password = 2 39。Save login times If intLogTimes MaxLogTimes Then 39。 CurrentOpname (1).Visible = False (2).Visible = False End If End Sub Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuOperation 39。Reference function to make objcon break if connection is open Load frmBookReg End Sub Private Sub mnuBorrowQuery_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmVipQuery End Sub Private Sub mnuVipRegist_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmVipReg Case vipQuery CheckConnect 39。Reference function to make objcon break if connection is open Load frmReadRegist Case readQuery CheckConnect 39。This function is to Refresh text = (0).Value = (1).Value = (2).Value = (3).Value 39。 reference settextempty founction to set empty = False = False = False Else If Trim() = Then MsgBox Operator name must not null ,please input operator name !, vbInformation + vbOKOnly Exit Sub ElseIf Trim() = Then MsgBox Operator ID must not null ,please input operator ID !, vbInformation + vbOKOnly Exit Sub ElseIf Trim() = Then MsgBox Operator password must not null ,please input operator password !, vbInformation + vbOKOnly Exit Sub Else With objRs checkAddNew = True .Filter = cOperatorID=39。 If .RecordCount 0 Then MsgBox This operator has been exist ! = .Filter = cOperatorID39。A) = False = True = True checkAddNew = False Exit Sub End If checkAddNew = True .AddNew 計算機(jī)學(xué)院軟件工程課程設(shè)計 28 .Fields(0).Value = Trim() .Fields(1).Value = Trim() .Fields(2).Value = Trim() .Fields(3).Value = Trim() .Fields(4).Value = Trim() .Update MsgBox Operator add success !, vbInformation + vbOKOnly .Filter = cOperatorID39。There will reference a founction to set empty = False = True = True = True