圖書管理系統(tǒng)3—計算機畢業(yè)設計-文庫吧在線文庫

　　

【正文】 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 圖書信息表的結構 序號 字段名稱 字段說明 類型 位數(shù) 屬性 備注 1 cBooksID 圖 文 7 必 計算機學院軟件工程課程設計 15 書編號 本 須非空 2 cBooksName 圖書名稱 文本 20 必須非空 3 cBooksISBN 圖書ISBN號 文本 15 可為空 4 cBooksAuthor 圖書作者 文本 10 可為空 5 cBooksPublisher 圖書出版社 文本 20 可為空 6 cBooksType 圖書類型 文本 16 可為空 7 smBooksPrice 圖書貨幣 可為 計算機學院軟件工程課程設計 16 價格 空 8 iBooksStoreQuan 圖書庫存量 整數(shù) 可為空 9 iBooksLeftQuant 圖書副本數(shù)量 整數(shù) 可為空 10 iBooksTotalQuan 圖書總數(shù) 整數(shù) 可為空 （ tBorrow），其字段列表如表 42 所示。 程序接口描述 外部接口 按 Windows 應用軟件用戶界面的規(guī)范來設計，使用以對話框為主的用戶界面，便于用戶使用。 圖書管理模塊 ： 用戶口令 。 計算機學院軟件工程課程設計 9 管 理 員登 錄用 戶 校 驗合 法 用 戶圖 書 管 理 程 序圖 書 管 理 系 統(tǒng) 主文 件新 圖 書 信 息圖 書 信 息 表讀 入 學生 信 息借 閱圖 書歸 還圖 書押 金 、 超 期時 限 、 丟 失罰 款 設 定借 閱圖 書成 功報 告應 歸 還圖 書 丟失歸 還圖 書超 期相 應 處 理 措 施管 理 信 息 設 定退 出管 理 員 圖 系統(tǒng)流程 圖 計算機學院軟件工程課程設計 10 第四章 詳細設計 程序流程圖 依據軟件工程的基本原理，詳細設計階段的根本任務是確定應該怎樣具體實現(xiàn)所要求的系統(tǒng)，也就是說，經過這個階段的設計工作，應該得出對目標系統(tǒng)的精確描述，從而在系統(tǒng)實現(xiàn)階段可以把這個描述直接翻譯成用某種程序設 計語言書寫的程序。 管 理 員 用 戶 驗 證圖 書 登 記借 閱 或 歸還 圖 書登 錄合 法 用 戶登 記 后 的圖 書管 理 員退 出 登 錄 圖 圖書管理系統(tǒng)的業(yè)務流程 針對新的業(yè)務流程，現(xiàn)具體描述其功能如下： ：系統(tǒng)對用戶合法性進行檢查。 系統(tǒng)的標準性 系統(tǒng)在設計開發(fā)使用過程中都要涉及到很多計算機硬件、軟件。 系統(tǒng)的開放性和系統(tǒng)的可擴充性 圖書管理系統(tǒng)在開發(fā)過程中，應該充分考慮以后的可擴充性。圖 列出了系統(tǒng)的主要數(shù)據字典。 新 圖 書新 圖 書新 圖 書 新 圖 書新 圖 書分 類 、 編 號學 生 借 閱學 生 歸還 圖 書歸 還 后 的 圖 書 圖 現(xiàn)行圖書管理業(yè)務流程圖 數(shù)據描述 (數(shù)據流圖 +數(shù)據字典 ) 經過詳細的調查，我們已經清楚了解了現(xiàn)行的業(yè)務流程，接下來給出系統(tǒng)的邏輯模型。 圖書管理作為計算機應用的一個分支，有著手工管理無法比擬的優(yōu)點，如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這種方式存在著許多缺點，如效率低、保密性差且較為繁瑣。 開發(fā)環(huán)境 開發(fā)環(huán)境的選擇會影響到數(shù)據庫的設計，所以在這里給出圖書管理系統(tǒng)開發(fā)與運行環(huán)境的選擇如下： 開發(fā)環(huán)境： Windows 2020 開發(fā)工具： Visual Basic 數(shù)據庫管理系統(tǒng)： SQL Server 2020 數(shù)據庫服務器： SQL Server 2020 桌面引擎 第二章 系統(tǒng)需求分析 任務概述 經過對我校詳細調查，并多次與負責圖書管理的老師進行研討后，加深了對現(xiàn)行圖書管理業(yè)務的深刻了解，與此同時，將整個圖書管理的業(yè)務流程抽象描述如下： ，分門別類地進行歸并并匯總，加以編號。 圖 書 管理 系 統(tǒng)圖書管理員圖書管理員圖 書 借 閱 信 息 圖 書 歸 還 信 息 圖 圖書管理系統(tǒng)的基本系統(tǒng)模型 根據基本系統(tǒng)模型，對其逐步細化，得到描述邏輯系統(tǒng)細化后的數(shù)據流圖，如圖 所示。 ：當圖書資料發(fā)生變化，如圖書丟失或有錯誤信息輸入時，則應能夠及時對數(shù)據進行修改和補充。而要實現(xiàn)這一點，應通過系統(tǒng)的開放性來完成，既系統(tǒng)應是一個開放系統(tǒng)，只要符合一定的規(guī)范，可以簡單的加入和減少系統(tǒng)的模塊，配置系統(tǒng)的硬件。這一方面通過系統(tǒng)的開放性和可擴充性，不斷改善系統(tǒng)的功能完成。 ：對學生已歸還的圖書進行歸還登記。 開 始管 理 員 登 陸是 否 合 法顯 示 主 界 面選 擇 操 作學 生 管 理 圖 書 管 理 借 閱 管 理 歸 還 管 理管 理 措 施設 置Y e sN o結 束管 理 員 注 銷 圖 主程序流程圖 根據以上主程序的流程圖，我們可以得出下面的關于各個模塊的程序流程圖，如圖 所示。 ：學生 信息、相關借書信息 。根據該階段所建立的概念模型，已經得出滿足系統(tǒng)設計要求的幾個關系描述，該階段的主要工作 就是把前一階段的成果轉化為具體的數(shù)據庫。 表 44 學生信息 表的結構 序號 字段名稱 字段說明 類型 位數(shù) 屬性 備注 計算機學院軟件工程課程設計 19 1 cVipID 學生編號 文本 6 必須非空 2 cVipName 學生姓名 文本 10 必須非空 4 cVipSex 學生性別 文本 1 可為空 5 vipAddTime 學生入學時間 時間日期 必須非空 6 vipEndTime 學生畢業(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 計算機學院軟件工程課程設計 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 計算機學院軟件工程課程設計 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