【正文】 d Sub Private Sub dgdOp_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If checkAddNew = True Then Exit Sub = True End Sub Private Sub Form_Activate() FormMiddle frmAdmin 39。There will reference a founction to set empty = False = True = True = True = 添加 = True 39。 If .RecordCount 0 Then MsgBox This operator has been exist ! = .Filter = cOperatorID39。This function is to Refresh text = (0).Value = (1).Value = (2).Value = (3).Value 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 frmBookReg End Sub Private Sub mnuBorrowQuery_Click() CheckConnect 39。Save login times If intLogTimes MaxLogTimes Then 39。 39。 表 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 所示。 程序接口描述 外部接口 按 Windows 應(yīng)用軟件用戶界面的規(guī)范來設(shè)計，使用以對話框為主的用戶界面，便于用戶使用。 圖書管理模塊 ： 用戶口令 。 計算機(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è) 計語言書寫的程序。 管 理 員 用 戶 驗 證圖 書 登 記借 閱 或 歸還 圖 書登 錄合 法 用 戶登 記 后 的圖 書管 理 員退 出 登 錄 圖 圖書管理系統(tǒng)的業(yè)務(wù)流程 針對新的業(yè)務(wù)流程，現(xiàn)具體描述其功能如下： ：系統(tǒng)對用戶合法性進(jìn)行檢查。 系統(tǒng)的標(biāo)準(zhǔn)性 系統(tǒng)在設(shè)計開發(fā)使用過程中都要涉及到很多計算機(jī)硬件、軟件。 系統(tǒng)的開放性和系統(tǒng)的可擴(kuò)充性 圖書管理系統(tǒng)在開發(fā)過程中，應(yīng)該充分考慮以后的可擴(kuò)充性。圖 列出了系統(tǒng)的主要數(shù)據(jù)字典。 新 圖 書新 圖 書新 圖 書 新 圖 書新 圖 書分 類 、 編 號學(xué) 生 借 閱學(xué) 生 歸還 圖 書歸 還 后 的 圖 書 圖 現(xiàn)行圖書管理業(yè)務(wù)流程圖 數(shù)據(jù)描述 (數(shù)據(jù)流圖 +數(shù)據(jù)字典 ) 經(jīng)過詳細(xì)的調(diào)查，我們已經(jīng)清楚了解了現(xiàn)行的業(yè)務(wù)流程，接下來給出系統(tǒng)的邏輯模型。 圖書管理作為計算機(jī)應(yīng)用的一個分支，有著手工管理無法比擬的優(yōu)點，如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這種方式存在著許多缺點，如效率低、保密性差且較為繁瑣。 開發(fā)環(huán)境 開發(fā)環(huán)境的選擇會影響到數(shù)據(jù)庫的設(shè)計，所以在這里給出圖書管理系統(tǒng)開發(fā)與運行環(huán)境的選擇如下： 開發(fā)環(huán)境： Windows 2020 開發(fā)工具： Visual Basic 數(shù)據(jù)庫管理系統(tǒng)： SQL Server 2020 數(shù)據(jù)庫服務(wù)器： SQL Server 2020 桌面引擎 第二章 系統(tǒng)需求分析 任務(wù)概述 經(jīng)過對我校詳細(xì)調(diào)查，并多次與負(fù)責(zé)圖書管理的老師進(jìn)行研討后，加深了對現(xiàn)行圖書管理業(yè)務(wù)的深刻了解，與此同時，將整個圖書管理的業(yè)務(wù)流程抽象描述如下： ，分門別類地進(jìn)行歸并并匯總，加以編號。 圖 書 管理 系 統(tǒng)圖書管理員圖書管理員圖 書 借 閱 信 息 圖 書 歸 還 信 息 圖 圖書管理系統(tǒng)的基本系統(tǒng)模型 根據(jù)基本系統(tǒng)模型，對其逐步細(xì)化，得到描述邏輯系統(tǒng)細(xì)化后的數(shù)據(jù)流圖，如圖 所示。 ：當(dāng)圖書資料發(fā)生變化，如圖書丟失或有錯誤信息輸入時，則應(yīng)能夠及時對數(shù)據(jù)進(jìn)行修改和補(bǔ)充。而要實現(xiàn)這一點，應(yīng)通過系統(tǒng)的開放性來完成，既系統(tǒng)應(yīng)是一個開放系統(tǒng)，只要符合一定的規(guī)范，可以簡單的加入和減少系統(tǒng)的模塊，配置系統(tǒng)的硬件。這一方面通過系統(tǒng)的開放性和可擴(kuò)充性，不斷改善系統(tǒng)的功能完成。 ：對學(xué)生已歸還的圖書進(jìn)行歸還登記。 開 始管 理 員 登 陸是 否 合 法顯 示 主 界 面選 擇 操 作學(xué) 生 管 理 圖 書 管 理 借 閱 管 理 歸 還 管 理管 理 措 施設(shè) 置Y e sN o結(jié) 束管 理 員 注 銷 圖 主程序流程圖 根據(jù)以上主程序的流程圖，我們可以得出下面的關(guān)于各個模塊的程序流程圖，如圖 所示。 ：學(xué)生 信息、相關(guān)借書信息 。根據(jù)該階段所建立的概念模型，已經(jīng)得出滿足系統(tǒng)設(shè)計要求的幾個關(guān)系描述，該階段的主要工作 就是把前一階段的成果轉(zhuǎn)化為具體的數(shù)據(jù)庫。 表 44 學(xué)生信息 表的結(jié)構(gòu) 序號 字段名稱 字段說明 類型 位數(shù) 屬性 備注 計算機(jī)學(xué)院軟件工程課程設(shè)計 19 1 cVipID 學(xué)生編號 文本 6 必須非空 2 cVipName 學(xué)生姓名 文本 10 必須非空 4 cVipSex 學(xué)生性別 文本 1 可為空 5 vipAddTime 學(xué)生入學(xué)時間 時間日期 必須非空 6 vipEndTime 學(xué)生畢業(yè)時間 時間日期 必須非空 （ tOperators），其字段列表如表 45 所示。This Operator not exist Else If Trim((cOperatorPassword).Value) Then Check_Password = 1 39。 CurrentOpname (1).Visible = True (2).Visible = True Else (1).Text = 操作員： amp。Reference function to make objcon break if connection is open Unload Me Load frmLogin End Sub Private Sub mnuVipQuery_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmBookQuery Case readReg CheckConnect 39。t change datagrid untill you add data finish = False If = 添加 Then 計算機(jī)學(xué)院軟件工程課程設(shè)計 27 = 確定 SetTextEmpty 39。To executer refresh once checkAddNew = False = True = True = 添加 (amp。 txtOpName amp。Reference function to get data Set = objRs = True End If End Sub Private Sub txtOpAddTime_KeyPress(KeyAscii As Integer) 39。 Trim() amp。A) = False = True = True End If End If End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() If Empty_Check = True Then Exit Sub 39。 39。 39。Exectue refresh in order to list data when form 計算機(jī)學(xué)院軟件工程課程設(shè)計 33 load ColNamechange 39。 39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tvip GetData StrSql 39。 Trim() amp。 = True