【正文】 ields(2).Value = Trim() .Fields(3).Value = Trim() .Fields(4).Value = Trim() .Update MsgBox Operator add success !, vbInformation + vbOKOnly .Filter = cOperatorID39。 39。CheckInputNum 39。 39。Reference function to check if your database is empty CheckConnect 39。 GetData StrSql 39。s data will delete are you sure to continue ?, vbYesNo + vbInformation) = vbYes Then StrSql = delete from tVip where cVipID=39。Reference fuction to change columns name to chinese End If End If CheckConnect 39。 Trim() amp。t delete this vip !, vbInformation + vbOKOnly CheckConnect 39。 amp。39。 圖 學生信息登記 界面 代碼 如下： Private Sub cmdAdd_Click() = False = False = True If = 添加 (amp。Reference function to check if your database is null = False If (0).Value Then Exit Sub 39。 = True 39。 Trim() amp。 計算機學院軟件工程課程設計 26 圖 操作員管理界面 代碼如下： Option Explicit Sub SetTextEmpty() 39。Reference function to make objcon break if connection is open Load frmReadRegist End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case operatorReg CheckConnect 39。Reference function to make objcon break if connection is open End Sub Private Sub mnuAbout_Click() End Sub Private Sub mnuBookQuery_Click() CheckConnect 39。Here can save a operator grade for expand End If End If Exit Function ER2: MsgBox Check_Password = 255 End If End Function Private Sub cmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() Dim intCheck As Integer 39。 amp?；谝陨蠑?shù)據(jù)庫的邏輯設計，考慮程序設計的簡易性，同時考慮題目的時間，該系統(tǒng)的數(shù)據(jù)庫采用 Microsoft SQL Server 2020。 管理措施設置模塊 ： 用戶的輸入 。 計算機學院軟件工程課程設計 12 學生管理模塊 ： 與 學生管理 操作子對話框有關(guān)的用戶輸入及系統(tǒng)消息 。 系統(tǒng)功能模塊圖 依據(jù)需求分析階段得到的數(shù)據(jù)流圖，采用軟件工程中軟件設計的概念和原理，與用戶成分協(xié)商后，在保證系統(tǒng)基本功能要求的前提下，結(jié)合系統(tǒng)新的業(yè)務流程確定系統(tǒng)必須具備的所有功能，由此給出圖書管理系統(tǒng)的系統(tǒng)功能模塊圖如圖 所示。在進 行統(tǒng)計分析時，根據(jù)所需數(shù)據(jù)量的不同而從秒級到分鐘級 ,原則是保證操作人員不會因為速度問題而影響工作效率。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機交互界面。 性能需求 為了保證系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效的運行，圖書管理系統(tǒng)應該滿足以下的性能需求： 系統(tǒng)處理的準確性和及時性 系統(tǒng)處理的準確性和及時性是系統(tǒng)的必要性能。 管 理員2 . 1編 號2 . 2分 類建 擋圖 書 信 息 登 記D 2圖 書 編 號圖 書 信 息圖 書 基 本 信 息學 生 借 閱圖 書3借 閱管 理借 閱 信 息借 閱 登 記D 34歸 還管 理歸 還 圖 書歸 還 登 記D 4學 生借 閱 結(jié) 果歸 還 圖 書歸 還 結(jié) 果 圖 “圖書管理”展開 對第 1 層 DFD 圖中的加工 進一步進行展開， 如圖 。 計算機學院軟件工程課程設計 2 ，應及時歸還圖書，并在本人的借閱登記表上注明還書日期和時間。這樣的管理機制已經(jīng)不能適應時代的發(fā)展，其管理方法將浪費許多人力和物力。 經(jīng)過詳細的調(diào)查，目前我國各類高等學校中有相當一部分單位圖書資料管理還停留在人工管理的基礎上。 ，則在其本人的借閱登記表上進行登記，記錄相關(guān)借閱信息與借閱日期。 計算機學院軟件工程課程設計 3 2圖 書管 理D 2圖 書 信 息 登 記圖 書 信 息 登 記學 生 借 閱圖 書3借 閱 管理借 閱 信 息借 閱 登 記D 34歸 還 管理歸 還 圖 書歸 還 登 記D 4學 生借 閱 結(jié) 果歸 還 圖 書歸 還 結(jié) 果管 理員圖 書 信 息學 生 信 息1 . 1新 學 生錄 入學 生 信 息學 生 信 息學 生 信 息1 . 2學 生 查詢1 . 3畢 業(yè) 學生 清 空學 生 信 息更 新 學 生 信 息D 1 圖 細化后 數(shù)據(jù)流圖 對頂層 DFD 圖中的一個加工“圖書管理”進行展開， 如圖 。 、刪除和修改功能：系統(tǒng)主要功能 之一，建立學生信息，并對其進行維護。 系統(tǒng)的易用性和易維護性 圖書管理系統(tǒng)是直接面對使用人員的，而使用人員往往對計算機并不時非常熟悉。 系統(tǒng)的響應速度 計算機學院軟件工程課程設計 7 圖書管理系統(tǒng)系統(tǒng)在日常處理中的響應速度為秒級，達到實時要求，以及時反饋信息。 ：定義系統(tǒng)規(guī)定的借閱圖書超期時間、超期處罰辦法和丟失賠償辦法。 ： 用戶界面顯示 。 ：相關(guān) 學生 信息 。 學 生學 生 學 號學 生 姓 名性 別入 校 時 間畢 業(yè) 時 間 ① 圖 書圖 書 名 稱圖 書 編 號圖 書 出 版 社圖 書 編 號圖 書 作 者圖 書 I S B N 號圖 書 數(shù) 量 圖 書 類 別 ② 管 理 員編 號姓 名 密 碼加 入 時 間 ③ (1) 分 ER 圖 計算機學院軟件工程課程設計 14 M1MN管 理 員學 生 管 理學 生借 閱歸 還圖 書NN圖 書 管 理1N (2) 總 ER 圖 圖 概念結(jié)構(gòu)設計 ER 圖 實體：圖書（圖書編號，書名，作者，出版社，定價，圖書類別，圖書 ISBN 號，圖書數(shù)量） 學 生（學生學號，學生姓名，性別，入校時間，畢業(yè)時間） 管理員（編號，名字，密碼，加入時間） 聯(lián)系：學生管理（圖書管理員，學生姓名，學生密碼） 圖書管理（圖書管理員，借閱號，歸還號） 查詢（圖書編號，借閱證號，圖書管理員，學生） 數(shù)據(jù)庫的物理設計 依據(jù)數(shù)據(jù)庫的原理，并結(jié)合以上 ER 圖，經(jīng)過轉(zhuǎn)化，即可進行數(shù)據(jù)庫的物理設計。 圖 登陸界面 程序代碼如下： Function Check_Password(ByVal UserName As String, ByVal UserPassword As String) As Integer On Error GoTo ER2: If ConnectToServer = True Then Set objRs = New Recordset StrSql = select cOperatorPassword from tOperators where cOperatorName=39。password ok CurrentOpname = Trim() CurrentOppassword = (cOperatorPassword).Value 39。Design popup menu End If 計算機學院軟件工程課程設計 24 End Sub Private Sub MDIForm_Unload(Cancel As Integer) CheckConnect 39。Reference function to make objcon break if connection is open 計算機學院軟件工程課程設計 25 Load frmVipReg End Sub Private Sub munReadRegist_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmReadQuery End Select End Sub 操作員管理界面如圖 所示。 amp。39。s data will delete continue ?, vbYesNo + vbInformation) = vbYes Then End If End If End Sub Private Sub cmdModify_Click() If Empty_Check = True Then Exit Sub 39。Reference function to check input If Not (KeyAscii = vbKey0 And KeyAscii = vbKey9 _ Or KeyAscii = vbKeyBack _ Or KeyAscii = Asc()) Then KeyAscii = 0 End If End Sub Private Sub txtOpID_KeyPress(KeyAscii As Integer) If Not (KeyAscii = vbKey0 And KeyAscii = vbKey9 _ Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub 計算機學院軟件工程課程設計 30 學生登記界面如圖 所示。 If .RecordCount 0 Then MsgBox This vip has been exist ! = .Filter = cVipID39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tBorrow where cVipID =39。Reference function to get data If 0 Then MsgBox He borrowed books you don39。 amp。To break objrs if i