圖書館管理系統的設計與實現論文-資料下載頁

【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 0 是 2 ReaderName 讀者姓名 文本 20 是 3 ReaderSex 讀者性別 文本 2 是 4 ReaderType 讀者類別 文本 10 是 6 IDCardNo 身份證號 文本 20 是 7 ReaderWorkplace 工作單位 文本 30 是 8 ReaderEmail Email 文本 30 是 9 ReaderPhone 聯系電話 文本 25 是 10 ReaderEnrolDate 辦證日期 日期 /時間 12 是 11 ValidDate 有效期 日期 /時間 短日期 是 12 Other 備注 備注 20 是 借書 登記表（ Borrowinfo），其字段列表如表 ： 表 圖書借書登記表的結構 序號 字段名稱 字段說明 類型 位數 必填字段 1 ReaderNO 讀者編號 文本 20 是 2 ReaderName 讀者姓名 文本 20 是 3 ReaderType 讀者類別 文本 10 是 4 BookNO 圖書編號 文本 20 是 5 BookName 圖書名稱 文本 25 是 6 BookTypename 圖書類別 文本 10 是 7 BookAuthor 圖書作者 文本 30 是 8 BookPress 出版社 文本 25 是 9 BorrowDate 借出日期 日期 /時間 12 是 10 ReturnDate 應還日期 日期 /時間 短日期 是 圖書館管理系統的設計與實現 24 5. 圖書還書登記表（ ReturnInfo），其字段列表如表 所示： 表 序號 字段名稱 字段說明 類型 位數 必填字段 1 ReaderNO 讀者編號 文本 20 是 2 ReaderName 讀者姓名 文本 20 是 3 ReaderType 讀者類別 文本 10 是 4 BookNO 圖書編號 文本 25 是 5 BookName 圖書名稱 文本 25 是 6 BookOriginalname 圖書原名 文本 35 是 7 BookType 圖書類別 文本 20 是 8 BookAuthor 圖書作者 文本 25 是 9 BookPress 出版社 文本 25 是 10 BorrowDate 借出日期 日期 /時間 短日期 是 11 ReturnDate 應還日期 日期 /時間 短日期 是 12 RtnInfact 實還日期 日期 /時間 12 是 13 RtnLateFine 付罰金 文本 10 是 14 RetnOther 備注 備注 20 是 圖書館管理系統的設計與實現 25 第 五 章 系統的實現 數據庫中的數據被用戶利用的方式可以通過數據管理系統提供的操作功能來使用，也可通過應用程序操作數據庫。應用程序是利用數據管理，為解決某個具體的管理或數據處理的任務而編制的一系列命令的有序集合。在系統的后臺數據庫已經設計完成后，現在就可以對系統分析階段設計的功能模塊通過編碼設計成一個應用程序，最終來完成對數據庫中數據的管理和應用的目的。 系統功能模塊的實現 登陸界面 圖 圖書館管理員，經過輸入正確的用戶名 、 密碼。進入 系統， 進行管理操作。 執行代碼如下： Private Sub loginOK_Click() Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒有輸入用戶名稱，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else sql = select * from user_Info where id=39。 amp。 amp。 39。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 沒有這個用戶，重新輸入！ , vbOKOnly + vbExclamation, 警告 Else 圖書館管理系統的設計與實現 26 If Trim((1)) = Trim() Then Username = Trim() Unload Me Else MsgBox 密碼錯誤，重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If Else Unload Me End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then MsgBox 錯誤輸入已達 3 次，系統退出！ , vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End If End Sub 主界面 圖 界面 圖書館管理員輸入正確信息，進入系統主界面，實現以下功能模塊的管理：系統管圖書館管理系統的設計與實現 27 理 、 圖書管理 、 期刊管理 、 讀者管理 、 借書管理 、 還書管理 、 每日盤點。從而使各模塊發揮其信息添加 、 刪除 、 修改 、 查詢的功能。 執行代碼如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case bjsz Case kcsz Case xxgl Case cjgl Case jcgl Case xxcx Case tc Unload Me End Select End Sub 系統管理模塊 圖 系統管理模塊主要包括系統用戶的添加和系統退出。添加用戶是對系統操作管理用戶的的管理，當圖書館因為某種原因需要增加人員，就要 通 過該功能，輸入新的用戶ID、 用戶密碼，密碼確認來添加用戶，這樣既便于管理，又增強了系統的安全性。 執行代碼如下： 圖書館管理系統的設計與實現 28 Private Sub modifySure_Click() Dim rs As New Dim rs2 As New Dim sql As String Dim sql2 As String sql = select * from user_Info where id=39。 amp。 amp。 39。and Pwd=39。 amp。 amp。 39。 Set rs = TransactSQL(sql) If = True Then MsgBox 用戶密碼不匹配，無權更改！ , vbOKOnly + vbExclamation, 警告 Else If Then MsgBox 兩次輸入密碼不同！ , vbOKOnly Else 39。sql2 = update user_Info set pwd = 39。 amp。 amp。 39。where id = 39。 amp。 amp。 39。 sql2 = select * from user_Info where id=39。 amp。 amp。 39。 Set rs2 = TransactSQL(sql) (1) = MsgBox 密碼修改成功！ , vbOKOnly, 修改密碼 End If End If End Sub 圖書管理模塊 圖 圖書館管理系統的設計與實現 29 管理人員通過此模塊來管理各類圖書，包括圖書品種的添加、修改、刪除等。在進行圖書的添加時，彈出新的窗口進行圖書信息的錄入，在保存的時候要進行書籍編號是否重復的檢驗，如果添加的書籍編號重復要對 管理人員 進行提示，只有在不重復的情況下才能夠進行圖書的添加。在進行圖書的刪除操作時，要首先彈出提示窗口讓 管理人員 是否刪除，只有在 管理人員 確認后才能夠進行圖書的刪除。在進行圖書的修改時，要能夠根據 管理人員 選定的書進行修改，即列出所有 管理人員 選定書的信息，在這個基礎上進行圖書信息的修改。 執行代碼如下： Private Sub bookInfoGrid_Click() Dim i As Integer 39。首先獲得選定的行號 i = 39。將選定行的內容在文本框中顯示 = (i, 0) End Sub Private Sub modifybook_Click() Dim rs As New Dim sql As String sql = select * from books where bookNO =39。 amp。 amp。 39。 If Trim() = Then MsgBox 請輸入或在列表中選定要修改的圖書編號！ , vbOKOnly Else Set rs = TransactSQL(sql) If = True Then MsgBox 沒有該編號的圖書信息！ , vbOKOnly Else ModifyBkFlag1 = ModifyBkFlag2 = True End If End If End Sub Private Sub delbook_Click() Dim resMsg As String Dim rs As New Dim sql As String Dim sql2 As String sql = select bookno from books where bookno = 39。 amp。 amp。 39。 圖書館管理系統的設計與實現 30 sql2 = delete from books where bookno = 39。 amp。 amp。 39。 If Trim() = Then MsgBox 請選擇或輸入要刪除的圖書的編號！ , vbOKOnly Else Set rs = TransactSQL(sql) If = True Then MsgBox 沒有該編號的圖書信息！ , vbOKOnly Else resMsg = MsgBox(真的要刪除該編號的圖書信息嗎 vbOKCancel, 警告 ) If resMsg = vbOK Then TransactSQL (sql2) MsgBox 該編號的圖書信息已經刪除！ , vbOKOnly Call bookList_update End If End Sub Private Sub Form_Load() With bookInfoGrid .TextMatrix(0, 0) = 圖書編號 .TextMatrix(0, 1) = ISBN 號 .TextMatrix(0, 2) = 索書號 .TextMatrix(0, 3) = 圖書名稱 .TextMatrix(0, 4) = 原文名稱 .TextMatrix(0, 5) = 原作 .TextMatrix(0, 6) = 譯者 .TextMatrix(0, 7) = 出版社 .TextMatrix(0, 8) = 圖書類別 .TextMatrix(0, 9) = 出版日期 .TextMatrix(0, 10) = 圖書語種 .TextMatrix(0, 11) = 圖書頁碼 .TextMatrix(0, 12) = 圖書價格 .TextMatrix(0, 13) = 登記日期 .TextMatrix(0, 14) = 備注 .ColWidth(3) = 1500 .ColWidth(4) = 1800 .ColWidth(7) = 1500 .ColWidth(9) = 1200 .ColWidth(13) = 1200 .ColWidth(14) = 202