【導(dǎo)讀】{ "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 聯(lián)系電話 文本 25 是 10 ReaderEnrolDate 辦證日期 日期 /時(shí)間 12 是 11 ValidDate 有效期 日期 /時(shí)間 短日期 是 12 Other 備注 備注 20 是 借書 登記表（ Borrowinfo），其字段列表如表 ： 表 圖書借書登記表的結(jié)構(gòu) 序號 字段名稱 字段說明 類型 位數(shù) 必填字段 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 借出日期 日期 /時(shí)間 12 是 10 ReturnDate 應(yīng)還日期 日期 /時(shí)間 短日期 是 圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 24 5. 圖書還書登記表（ ReturnInfo），其字段列表如表 所示： 表 序號 字段名稱 字段說明 類型 位數(shù) 必填字段 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 借出日期 日期 /時(shí)間 短日期 是 11 ReturnDate 應(yīng)還日期 日期 /時(shí)間 短日期 是 12 RtnInfact 實(shí)還日期 日期 /時(shí)間 12 是 13 RtnLateFine 付罰金 文本 10 是 14 RetnOther 備注 備注 20 是 圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 25 第 五 章 系統(tǒng)的實(shí)現(xiàn) 數(shù)據(jù)庫中的數(shù)據(jù)被用戶利用的方式可以通過數(shù)據(jù)管理系統(tǒng)提供的操作功能來使用，也可通過應(yīng)用程序操作數(shù)據(jù)庫。應(yīng)用程序是利用數(shù)據(jù)管理，為解決某個具體的管理或數(shù)據(jù)處理的任務(wù)而編制的一系列命令的有序集合。在系統(tǒng)的后臺數(shù)據(jù)庫已經(jīng)設(shè)計(jì)完成后，現(xiàn)在就可以對系統(tǒng)分析階段設(shè)計(jì)的功能模塊通過編碼設(shè)計(jì)成一個應(yīng)用程序，最終來完成對數(shù)據(jù)庫中數(shù)據(jù)的管理和應(yīng)用的目的。 系統(tǒng)功能模塊的實(shí)現(xiàn) 登陸界面 圖 圖書館管理員，經(jīng)過輸入正確的用戶名 、 密碼。進(jìn)入 系統(tǒng)， 進(jìn)行管理操作。 執(zhí)行代碼如下： 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 圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 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 錯誤輸入已達(dá) 3 次，系統(tǒng)退出！ , vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End If End Sub 主界面 圖 界面 圖書館管理員輸入正確信息，進(jìn)入系統(tǒng)主界面，實(shí)現(xiàn)以下功能模塊的管理：系統(tǒng)管圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 27 理 、 圖書管理 、 期刊管理 、 讀者管理 、 借書管理 、 還書管理 、 每日盤點(diǎn)。從而使各模塊發(fā)揮其信息添加 、 刪除 、 修改 、 查詢的功能。 執(zhí)行代碼如下： 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 系統(tǒng)管理模塊 圖 系統(tǒng)管理模塊主要包括系統(tǒng)用戶的添加和系統(tǒng)退出。添加用戶是對系統(tǒng)操作管理用戶的的管理，當(dāng)圖書館因?yàn)槟撤N原因需要增加人員，就要 通 過該功能，輸入新的用戶ID、 用戶密碼，密碼確認(rèn)來添加用戶，這樣既便于管理，又增強(qiáng)了系統(tǒng)的安全性。 執(zhí)行代碼如下： 圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 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 用戶密碼不匹配，無權(quán)更改！ , 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 圖書管理模塊 圖 圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 29 管理人員通過此模塊來管理各類圖書，包括圖書品種的添加、修改、刪除等。在進(jìn)行圖書的添加時(shí)，彈出新的窗口進(jìn)行圖書信息的錄入，在保存的時(shí)候要進(jìn)行書籍編號是否重復(fù)的檢驗(yàn)，如果添加的書籍編號重復(fù)要對 管理人員 進(jìn)行提示，只有在不重復(fù)的情況下才能夠進(jìn)行圖書的添加。在進(jìn)行圖書的刪除操作時(shí)，要首先彈出提示窗口讓 管理人員 是否刪除，只有在 管理人員 確認(rèn)后才能夠進(jìn)行圖書的刪除。在進(jìn)行圖書的修改時(shí)，要能夠根據(jù) 管理人員 選定的書進(jìn)行修改，即列出所有 管理人員 選定書的信息，在這個基礎(chǔ)上進(jìn)行圖書信息的修改。 執(zhí)行代碼如下： Private Sub bookInfoGrid_Click() Dim i As Integer 39。首先獲得選定的行號 i = 39。將選定行的內(nèi)容在文本框中顯示 = (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。 圖書館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 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 該編號的圖書信息已經(jīng)刪除！ , 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) = 圖書價(jià)格 .TextMatrix(0, 13) = 登記日期 .TextMatrix(0, 14) = 備注 .ColWidth(3) = 1500 .ColWidth(4) = 1800 .ColWidth(7) = 1500 .ColWidth(9) = 1200 .ColWidth(13) = 1200 .ColWidth(14) = 202