某中學圖書館信息管理系統的設計與實現(編輯修改稿)

　

【文章內容簡介】 可以滿足要求了 。而開發這樣一個小型的信息管理系統在一般的計算機上就可以進行，所需耗費的資源和費用并不高，對運行環境的要求也不高， 加之現在計算機的管理成本在不斷降低， 這對于一般的中學而言在經濟上 是 完全可以承受 的 。 技術可行性分析 本系統只是一個小型圖書館信息 管理 系統，在技術 的 實現上，我們采用 Microshoft Access 來開發本系統的數據庫，它是現在世界上最為流行的數據庫管理系統，可 以滿足各種信息管理的需要，包括從最簡單的地址列表到復雜的財務報表管理系統。而開發環境則選擇 Visual Basic ， VB 語言作為 一種可視化的編程語言，不僅提供了完善的 指令控制語句、類與對象的支持及豐富的數據類型 ，還 提供了比較豐富的數據訪問技術 ,如ADO、 ODBC 、 DAO 和 RDO 等 。這給我們開發高性能系統提供了保障，以能開發出滿足客戶要求的系統，并保證了代碼的模塊化要求，而代碼模塊化的提高非常有利于以后對新系統的修改和擴展。本系統完全可以在一般的個人計算機上進行開發 和運行 ， 而當今發展日趨完善的 網絡為系統 服務器 /客戶端 (S/C)的結構提供了硬件 上的支持。 運行可行性分析 本系統是一個小型的圖書館信息 管理 系統，所要耗費的資源很少，而運行環境要求也不高，在一般的電腦上就可以運行，且操作簡單，對人員素質要求不高。 5 開發工具的選擇 開發數據庫信息管理系統需要選擇兩種工具：前臺開發語言和后臺數據庫。選擇系統開發工具時要考慮到客戶的需求、系統功能和性能要求以及開發人員的習慣等因素。在 前面的數據庫設計 中，已經使用 Access 來設計數據庫，即選擇 Access 作為后臺數據庫。而前臺開發語言，我們 選擇 Visual Basic，與其他開發工具相比， Visual Basic 具有某中學 圖書館信息 管理 系統的設計與實現 12 簡單易學、靈活方便和易于擴充等特點。由此，我們選擇 Visual Basic 作為前臺開發工具， Access 作為后臺數據庫。 6 系統的運行環境 硬件環境： CPU 的主頻在 500MHz 以上，內存在 256MB 以上。 軟件環境：操作系統為 Windows 2021(SP4),Windows 2021 或 Windows XP。調試環境為 ，后臺數據庫采用 Access。 7 系統模塊功能 的實現 和窗體的設計 由于借閱 信息管理模塊在整個 管理 系統中的作用十分重要，而且是圖書館工作人員使用最為頻繁的功能模塊，所以在運行本系統時，其系統主界面的下方就添加了借閱信息管理模塊的部分，以便于工作人員的使用。因此，當運行本系統時，首先會彈出如 圖 9所示的主界面。 圖 9 系統運行主界面 創建借閱信息管理窗體模塊 鑒于借閱信息管理模塊在整個系統中的重要地位，所以首先著重介紹這一 窗體模塊。 窗體模塊的功能 廣西師范學院 2021屆本科畢業 論文 13 借閱信息管理模塊 主 要完成借閱管理的功能，包括借書、續借和還書。圖書館工作人員可以根據使用的需要，通過單擊 Tab 標簽頁中分別進入不同的操作。 在“ 正常 借書”標簽頁下，工作人員通過輸入讀者編號以及圖書編號，系統便會對這些信息進行確認，如果確認成功，工作人員只要單擊“借出該圖書”按鈕，便可完成借書的操作 。同樣在“續借圖書”標簽頁下，工作人員通過輸入讀者編號，系統便會列出該讀者所有已借的圖書信息，工作人員選擇其中讀者要續借的圖書后，在“借書日期改為”的日期選擇框中選擇要修改的日期，最后單擊“確定”按鈕就可以完成對該圖書的續借工作了。而在“還書”的標簽頁下，工作人員只要輸入圖書編號，系統會自動對該書的信息進行確認，確認 成功后，單擊“歸還圖書”按鈕就可以完成還書的操作了。 窗體界面的設計及相關代碼的編寫 其實，該窗體的運行界面就是系統的主界面，設計界面如 圖 9所示。這一界面顯示的是“正常借書”的標簽頁。 首先定義項目級變量，保存數據庫的連接和減少重復的變量定義。代碼如下： Public g_ws As Worksplace ’ 保存 Workspace Public g_db As Database ’ 保存數據庫的連接 Public g_rs As Recordset ’ 保存結果集 Public g_strSql As String ’ 保存查詢語句 其次是響應窗體加載事件，初始化控件和連接數據庫。代碼如下： Private Sub Form_Load() ’ 打開主窗口的同時進行數據庫的連接 = Date = Date Set g_ws = (0) Set g_db = ( +_ \圖書館信息 管理 系統 .mdb) End Sub 在進行“正常借書 ” 時，輸入讀者編碼后按下鍵盤上的回車鍵，系統會通過查詢數據庫來對輸入的讀者編號進行有效性的確認。通過確認的用戶便會在下面的 DataGrid 控件某中學 圖書館信息 管理 系統的設計與實現 14 中顯示該讀者已借閱圖書的信息。響應這一事件的代碼如下： Private Sub txtReaderID_KeyPress(KeyAscii As Integer) ’ 判斷用戶按下回車鍵并且是否輸入讀者編號 If KeyAscii = 13 And Then ’ 根 據輸入的讀者編號，查找讀者姓名 g_strSql = select * from readerInfo where 讀者編號 =39。_ amp。 amp。 39。 ’ 進行數據庫的查詢 Set g_rs = (g_strSql) ’判斷是否找到 If Not Then = g_rs!讀者姓名 InitDataGrid(False) ’ 初始化 DataGrid 控件信息 Else MsgBox 沒有該讀者信息！ ,vbOkOnly, 提示 = End If Set g_rs = Nothing ElseIf KeyAscii = 13 And = Then MsgBox 請先輸入讀者編號 ,vbOkOnly, 提示 End If End Sub 其中 InitDataGrid()函數主要是為了進行 DataGrid 控件的顯示，因為在“正常借書”和“續借”中都 有 DataGrid 控件顯示的問題，因此要用函數中的參數來區分是正常借書頁面還是續借頁面，以分別進行相關的操作。由前面的功能分析可知，這里所要顯示的字段包含 4個表的內容，因此要用到 SQL 語句。其主要代碼如下： Public Function InitDataGrid(blnRenew As Boolean) Dim strDataSource As String 廣西師范學院 2021屆本科畢業 論文 15 Dim intCount As Integer Dim strReaderID As String If blnRenew = False Then strReaderID = ’ 正常借書頁面 Else strReaderID = End If ’ 用 SQL 相關語句查詢數據庫中的表 strDataSource = select , ,_ , amp。 ,_ , ,_ , , amp。 _ , ,_ from readerInfo,_ bookInfo,lentInfo,bookType _ amp。 where =_ and =_ and amp。 =39。_ amp。 strReaderID amp。 39。 and =_ and is null ’ 連接 Access 數據庫 = Provider=。_ Data Source= amp。 amp。 \圖書館信息 管理 系統 .mdb。_ Persist Security Info=False = adUseClient = adCmdText ’ 將臨時數據控件中的屬性值賦給和數據表格相連的 ADO 數據控件 = strDataSource 某中學 圖書館信息 管理 系統的設計與實現 16 ’刷新數據表格 ’如果是正常借書，則進行如下操作 If blnRenew = False Then Set = Adodc1 ’ 顯示一共借了多少本書 = 所借圖書 :_ + CStr() ’顯示還能借多少本書 g_strSql = select * from basicSet Set g_rs = (g_strSql) intCount = g_rs!借出冊數 = CStr(intCount) Else Set = Adodc1 End If End Function 在確認讀者已借閱的圖書信息后，就可以輸入要借圖書的編碼，然后按下回車鍵，系統 同樣 會對輸入的圖書編碼進行有效性的 確認，看該書是否已經借出。響應這一事件的代碼 如下： Private Sub txtBookID_KeyPress(KeyAscii As Integer) ’ 判斷用戶按下回車鍵并且是否輸入讀者編號和圖書編號 If KeyAscii = 13 And And _ Then g_strSql = select , ,_ , , _ amp。 , _ 廣西師范學院 2021屆本科畢業 論文 17 from bookInfo,bookType where 圖書編號 =39。 _ amp。 amp。 39。 amp。 and _ = Set g_rs = (g_strSql) ’ 判斷是否找到了該圖書的信息 If Not Then = g_rs!圖書名稱 = g_rs!圖書價格 = g_rs!圖書類別 = g_rs!出版社 = g_rs!圖書頁碼 ’判斷該圖書是否已經借出去 If g_rs!是否借出 = True Then MsgBox 該書已經借出 ,請選擇其它圖書 !, _ vbOKOnly, 提示 = False Else = True End If ’ 否則清空記錄 Else MsgBox 沒有該書信息 !, vbOKOnly, 提示 = = = = = End If 某中學 圖書館信息 管理 系統的設計與實現 18 Set g_rs = Nothing ’否則提示輸入讀者編 號和圖書編號 ??（代碼略） End If End Sub 如果讀者所要借的圖書還在書庫當中，且讀者還沒借滿，則可以響應按鈕“借出該圖書”的單擊事件了， 并更新數據庫。 其代碼如下： Private Sub cmdLendBook_Click() If Then If 0 Then 39。判斷是否已經借滿 Set g_rs = (lentInfo, dbOpenTable) With g_rs .AddNew .Fields(讀者編號 ) = .Fields(圖書編號 ) = .Fiel