圖書借閱管理系統論文-資料下載頁

　　

【正文】 首先進行館藏圖書的查詢（具體界面的設置見圖53）： 圖54然后單擊命令按鈕“借這本書”，若這本書已被借出，則彈出如下的對話框： 圖55否則進入到“借書”界面：圖56流程圖如下：選擇查詢條件借書顯示書籍信息選擇讀者信息此書已借出確定借書再借否？是否否退出有關代碼如下：a、館藏圖書查詢表單的有關代碼：Option ExplicitDim panduan As StringPrivate Sub Command1_Click()Dim rs_findbook As New Dim sql As StringIf = vbChecked Then sql = 書名=39。 amp。 Trim( amp。 ) amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 類別=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書名=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 作者=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 作者=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 出版社=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 出版社=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 書籍編號=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書籍編號=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf Trim(sql) = Then MsgBox 請選擇查詢方式！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 書籍信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findbook39。End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書！, vbOKOnly + vbExclamation Exit SubEnd IfIf panduan = 是 Then MsgBox 此書已被借出！, vbOKOnly + vbExclamation Exit SubEnd IfEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)book_num = (0).CellValue()panduan = (7).CellValue()End SubPrivate Sub Form_Load()Dim rs_find As New Dim sql As Stringsql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimisticIf Not Then Do While Not (0) Loop = 0End IfEnd Sub b、借書表單的有關代碼：Private Sub Command1_Click()Dim rs_borrowbook As New Dim sql As Stringsql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticleibie = (3)shumu = (8)sql = select * from 讀者類別 where 種類名稱=39。 amp。 leibie amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticqixian = (2)maxnum = (1)If shumu = maxnum Then MsgBox 該讀者借書數額已滿！, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 借閱信息 sql, conn, adOpenKeyset, adLockPessimistic(1) = (2) = (3) = (4) = (5) = Date(6) = DateAdd(Ww, qixian, Date)sql = select * from 書籍信息 where 書籍編號=39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(7) = 是sql = select * from 讀者信息 where 讀者編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(8) = (8) + 1MsgBox 本書借閱成功！, vbOKOnly + vbExclamationUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rs_borrow As New Dim rs_reader As New Dim sql As Stringsql = select * from 書籍信息 where 書籍編號=39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic = (0) = (1) = (2) = (3) = (4) = (5) = (6)sql = select * from 讀者信息 sql, conn, adOpenKeyset, adLockPessimisticIf Not Then Do While Not (1) (0) LoopElse MsgBox 請先登記讀者！, vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub限于篇幅，其它模塊的代碼舉例從略。第六章 實施概況：系統開發環境包括硬件平臺和軟件平臺兩種。硬件平臺是指開發與運行所需要的硬件環境，主要包括計算機機型及硬件配置。由于本系統是一個小型的MIS管理系統，因此對計算機硬件的要求不高，比較經濟，只要配備有PII300處理器（或以上）、64M內存（或以上）、20G硬盤（或以上）的普通微機即可順利運行。軟件平臺是指系統開發與運行的軟件環境。本系統在開發時選用了穩定性較強的Windows XP中文專業版和Visual ，同時選用了Access數據庫，由于這些軟件產品都是Microsoft公司的產品，因此彼此之間的兼容性較好，開發出的應用系統穩定性較高。Visual Basic ，可以快速完成系統的開發，內部集成的數據庫訪問通道，使得可以輕松方便的對數據庫管理。數據庫采用MICROSOFT ACCESS，由于我們的系統要求，采用它完全可以適合我們的工作需求，并且它所支持的數據類型十分豐富，維護簡便，費用比較低，人員素質要求不是很高，容易升級。本系統在單機上運行。：在開發本系統時，為了使系統能夠穩定運行，對本系統進行了有針對性的全面測試，采取的方式是：菜單項測試：為了保證每一項下拉菜單能夠正確實現系統設計的功能，我對每一個菜單項反復進行了增加、刪除、修改等操作，從而保證了菜單級功能的正確實現。數據跟蹤：完成菜單項測試后，我又對系統內的每一個數據進行了跟蹤。綜合測試：在以上測試的基礎上對系統功能進行了整體的測試，依次來檢驗系統功能是否符合系統設計的要求。 系統運行與維護：系統的運行：初始數據的輸入本系統的輸入采用鼠標和鍵盤相結合的輸入方法。怎樣進入系統A、將本系統所在的文件夾拷貝到硬盤，然后執行其中的圖書管理系統的程序文件即可，應注意要將全部文件的屬性變以存檔，消除只讀屬性。B、在隨后出現的登錄界面上輸入正確的用戶名和密碼即可怎樣使用本系統：點擊鼠標左鍵即可進行相應功能的選擇。系統的維護：本系統是個較復雜的人機系統，由于系統外部環境與內部因素的變化，不斷影響系統的運行，同時需要系統不斷地適應這些變化，不斷地完善系統，以提高系統運行的效率與服務水平，這就需要自始至終進行系統的維護工作。系統的維護主要包括四個方面：（1）程序的維護：指的是修改部分或全部程序，這種維護往往是在條件發生變化或原系統的效率低的情況下進行的。（2）數據文件的維護：指的是按照用戶的要求對數據文件進行不定期的修改。（3）代碼的維護：隨著系統的發展和變化，可能會出現舊代碼不能適應新要求的問題，因此，有必要變更代碼，予以維護。（4）硬件的維護：指的是對系統所使用的設備進行維護。本系統的日常維護由圖書館的專人來負責，如果出現一些不能解決的問題，則由開發者來負責。：本次開發的圖書管理系統采用了并行轉換方式，以保證平衡可靠的過度。即一方面使用本系統來進行工作，另一方面又繼續沿用老的方式—手工方式，這種狀況持續了半個月的時間，在這期間發現了一些程序中存在的漏洞和錯誤，用戶也提出一些修改意見，經過程序的進一步完善后，正式投入了使用，中止了以前老的手工的操作方式。結束語在本系統的開發過程中，由于本人是初次開發軟件，在知識、經驗方面都存在著不足。另外，在整個開發的過程中，時間也比較倉促。因此，該系統必然會存在一些缺陷和不足。因為對圖書管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。在系統功能上，未能實現常用的超期或損壞圖書罰款功功能，還有圖書的冊數問題沒有考慮。雖然網絡在圖書管理系統中的應用已經很普遍，但在開發過程由于硬件的限制，未能實現網絡功能，在大多數圖書管理系統單機版中，數據庫是用普通的單機版數據庫，那么在以后的系統更新過程中會造成不必要的損失。盡管該圖書管理系統存在著很多不足，但其功能全面、易于日后程序更新、數據庫管理容易、界面友好、操作方便、效率高、安全性好等優點是圖書管理系統所必需的。相信該圖書管理系統將是一套圖書館管理員必不可少的管理軟件，在本次畢業設計中，我從指導老師身上學到了很多東西。他認真負責的工作態度，嚴謹的治學精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學習都有一種巨大的幫助，在此感謝他耐心的輔導。另外，在系統開發過程中還有同組的同學也給了我不少幫助，這里同時表示感謝。 【參考文獻】《Visual Basic 6使用指南》 田金蘭等 電子工業出版社 2002年出版《Visual Basic 6數據庫訪問技術》Jeffrey 機械工業出版社 2003年出版《軟件開發技術》 潘錦平 西安電子科技大學出版社1999年出版《數據庫系統概論》 王珊、薩師宣 高等教育出版社 2001年出版42