【正文】 checkAddNew = False = True = True = 添加 (amp。A) Then = 確定 SetTextEmpty 39。To check operator ID If = 修改 Then = 確定 = False = False Else With objRs .Fields(0).Value = Trim() .Fields(1).Value = Trim() .Fields(2).Value = Trim() .Fields(3).Value = Trim() 計算機學院軟件工程課程設計 29 .Update End With = 修改 = True = True = True End If End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRefresh_Click() RefreshOperator 39。To executer refresh once End With checkAddNew = False 39。 39。This function is set all text to empty = = = = = End Sub Sub RefreshOperator() 39。Reference function to make objcon break if connection is open Load frmAdmin Case vipReg CheckConnect 39。Reference function to make objcon break if connection is open Load frmBookQuery End Sub Private Sub mnuBookRegist_Click() CheckConnect 39。Static intLogTimes to save user login times Static intLogTimes As Integer intLogTimes = intLogTimes + 1 39。 Trim() amp。本系統(tǒng) 決定采用一個數據庫，在其下創(chuàng)建 5個數據表，其結構分別如下： （ tBook），其字段列表如表 41 所示。 ： 根據用戶的輸入顯示相應的對話框 。 ： 操作結果顯示 。 計算機學院軟件工程課程設計 8 圖 書 管 理 系 統(tǒng)學生管理圖書管理借閱管理歸還管理管理措施借閱查詢正常歸還登記超期處罰設置押金設置丟失賠償設置超期或丟失處理借閱登記圖書信息查詢圖書信息登記學生信息查詢學生信息管理 圖 圖書管理系統(tǒng)功能模塊圖 系統(tǒng)的流程圖 依據軟件工程的基本原理，綜合以上分析給出系統(tǒng)流程圖如圖 所示。 第三 章 系統(tǒng) 總體設計 新的業(yè)務流程 根據需求分析的得到的現行業(yè)務處理流程，在用戶反復研究后，首先確定目標系統(tǒng)的業(yè)務流程，其處理流程如圖 。要實現這一點，就要求系統(tǒng)應該盡量使用用戶熟悉的術語和中文信息的界面；針對用戶可能出現的使用問題，要提供足夠的在線幫助，縮短用戶對系統(tǒng)熟悉的過程。在系統(tǒng)設計和開發(fā)過程中，要充分考慮系統(tǒng)當前和將來可能承受的工作量，使系統(tǒng)的處理能力和響應時間能夠滿足學校對信息處理的需求。 學 生3 . 1合 法 性檢 查3 . 2借 閱 圖書學 生圖 書學 生 借 閱 請 求借 閱 結 果借 閱 條 件學 生 信 息圖 書 信 息圖 書 信 息 (1) 計算機學院軟件工程課程設計 4 學 生4 . 1合 法 性檢 查4 . 2歸 還 圖書學 生圖 書學 生 歸 還 圖 書歸 還 結 果符 合 管 理 條 件學 生 信 息圖 書 借 閱 信 息圖 書 信 息不 符 管 理 條 件4 . 3罰 款 o r賠 償提 示 懲 罰 信 息 (2) 圖 進一步細化 數據流圖 有了系統(tǒng)的數據流圖后，還有相當多的數據信息如圖書、借閱、歸還等信息需要進一步描述，這就是需要定義數據字典，才能把現有的系統(tǒng)描述清楚。 根據以上調查分析，可以給出其現行業(yè)務流程圖如圖 所示。隨著科學技術的不斷提高，這種 傳統(tǒng)的手工管理方法必然被以計算機為基礎的信息管理方法所取代。另外，隨著圖書資料數量的增加，其工作量也將大大增加，這必將增加圖書資料管理者的工作量和勞動強度，這將給圖書資料信息的查找、更新和維護都帶來了很多困難。 ，上到書架以備學生借閱。 管 理員學 生 信 息1學 生管 理D 1學 生 信 息圖 書 信 息2圖 書管 理D 2圖 書 信 息 登 記圖 書 信 息 登 記圖 書 信 息學 生 借 閱圖 書3借 閱 管理借 閱 信 息借 閱 登 記D 34歸 還 管理學 生 信 息歸 還 圖 書歸 還 登 記D 4學 生借 閱 結 果歸 還 圖 書歸 還 結 果 圖 圖書管理系統(tǒng)數據流圖（頂層 DFD 圖） 對頂層 DFD 圖中的一個加工“學生管理”進行展開， 如圖 。 ，歸還的登記功能：系統(tǒng)的主要功能之一，供本校學生借閱圖書、歸還圖書，并進行登記。通過軟件的修補、替換完成系統(tǒng)的升級和更新?lián)Q代。另一方面，在系統(tǒng)設計和開發(fā)的過程中，應在考慮成本的基礎上盡量采用當前主流并先進且有良好發(fā)展前途的產品。 ：即對所有圖書的借閱情況，或學生的基本情況和借閱情況進行查詢。 計算機學院軟件工程課程設計 11 開 始管 理 員 登 陸是 否 合 法借 閱 圖 書N o結 束管 理 員 注 銷選 擇歸 還 圖 書 退 出查 詢 信 息學 生 信 息表 操 作圖 書 信 息表 操 作選 擇增 加 修 改刪 除退 出確 認更 新N oY e s選 擇 查詢 方 式書 名 書 號 作 者 出 版 社輸 入 所 需 記 錄 要 求查 找 記 錄顯 示 記 錄繼 續(xù)Y e sN o讀 入 書 號 讀 入 書 號超 期已 借 出N o讀 入 學 號確 認更 新 數 據 庫Y e s繼 續(xù)Y e sY e sY e sN oY e s罰 款更 新 數 據 庫繼 續(xù)Y e sN oN o 圖 程序流程 圖 程序輸入輸出描述 主模塊 ： 操作系統(tǒng)傳遞至的各種消息以及用戶的輸入數據 。 歸還管理模塊 ：圖書編 號 。下面給出概念結構設計得 ER 圖如圖 所示。 表 45 管理員 信息表的結構 序 字段名稱 字 類 位 屬 備計算機學院軟件工程課程設計 20 號 段說明 型 數 性 注 1 cOperatorID 管理員編號 文本 5 必須非空 2 cOperatorName 管理員姓名 文本 10 必須非空 3 cOperatorPassword 密碼 文本 6 必須非空 4 cOperatorAddTime 管理員加入時間 時間日期 10 必須非空 計算機學院軟件工程課程設計 21 第五 章 編碼實現 程序編碼 登陸界面如圖 所示。 password error 計算機學院軟件工程課程設計 22 Else Check_Password = 2 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 frmVipQuery End Sub Private Sub mnuVipRegist_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmReadRegist Case readQuery CheckConnect 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。A) = False = True = True checkAddNew = False Exit Sub End If checkAddNew = True .AddNew 計算機學院軟件工程課程設計 28 .Fields(0).Value = Trim() .Fields(1).Value = Trim() .F