圖書管理系統設計說明書-資料下載頁

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

　　

【正文】 a Dim qiankuanshumu As Currency Dim y Dim a y = 0 a = 0 tsbh = 沈陽理工大學課程設計專用紙 28 dzbh = If tsbh Then = 圖書編號 =39。 + tsbh + 39。 If = True Then MsgBox 該編號的書不存在 = Exit Sub End If Else MsgBox 請輸入圖書編號 Exit Sub End If If dzbh Then = 讀者編號 =39。 + dzbh + 39。 If = True Then MsgBox 該讀者沒有注冊 = Exit Sub End If Else MsgBox 請輸入讀者編號 Exit Sub End If If (職稱 ) = 教師 Then = 讀者編號 =39。 + dzbh + 39。 While Not a = a + (欠款數目 ).Value y = y + 1 Wend If a 0 Then MsgBox 您有超期欠款未付，不能借書 Exit Sub End If If y = 10 Then MsgBox 您已經借滿，不能再借 Else If y = 0 And y 10 Or = True Then 沈陽理工大學課程設計專用紙 29 If (可借 ) = 是 Then (可借 ) = 否 39。jieshuriqi = Date 39。yinghuanriqi = jieshuriqi + 90 (圖書編號 ) = tsbh (讀者編號 ) = dzbh (借還狀態 ) = 借 (借書日期 ) = Date (應還日期 ) = Date + 90 (超期天數 ) = 0 (欠款數目 ) = qiankuanshumu MsgBox 借書成功 Else MsgBox 該書已被借出 End If End If End If ElseIf (職稱 ) = 學生 Then = 讀者編號 =39。 + dzbh + 39。 While Not a = a + (欠款數目 ).Value y = y + 1 Wend If a 0 Then MsgBox 您有超期欠款未付，不能借書 Exit Sub End If If y = 1 Then MsgBox 您已經借滿，不能再借 Else If (圖書類型 ) = 期刊 Then MsgBox 該類型的書您不能借 Else If (可借 ) = 是 Or = True Then (可借 ) = 否 39。jieshuriqi = Date 39。yinghuanriqi = jieshuriqi + 7 沈陽理工大學課程設計專用紙 30 (圖書編號 ) = tsbh (讀者編號 ) = dzbh (借還狀態 ) = 借 (借書日期 ) = Date (應還日期 ) = Date + 7 (超期天數 ) = 0 (欠款數目 ) = qiankuanshumu MsgBox 借書成功 Else MsgBox 該書已被借出 End If End If End If End If End Sub 還書功能 ：讀者需要輸入讀者編號和所還圖書編號，如果超期還書則會提示有超期欠款。 Private Sub Command2_Click() Dim tsbh Dim dzbh Dim jieshuriqi As Data Dim yinghuanriqi As Data Dim qiankuanshumu As Currency Dim y y = 0 tsbh = dzbh = If tsbh Then = 圖書編號 =39。 + tsbh + 39。 If = True Then MsgBox 該編號的書不存在 = Exit Sub End If Else MsgBox 請輸入圖書編號 Exit Sub End If If dzbh Then = 讀者編號 =39。 + dzbh + 39。 If = True Then 沈陽理工大學課程設計專用紙 31 MsgBox 該讀者沒有注冊 = Exit Sub End If Else MsgBox 請輸入讀者編號 Exit Sub End If = 圖書編號 =39。 + tsbh + 39。 + and + 讀者編號 =39。 + dzbh + 39。 If = True Then MsgBox 你所需的借書記錄不存在 Exit Sub Else (可借 ) = 是 If (Date (應還日期 ).Value) = 0 Then MsgBox 還書成功 Else (借還狀態 ) = 已還 (欠款數目 ) = (Date (應還日期 ).Value) (超期天數 ) = (Date (應還日期 ).Value) MsgBox 請及時還清超期欠款 End If End If End Sub 以下代碼用以實現各窗體之間的轉換： Private Sub mnutc_Click() End End Sub Private Sub mnutscx_Click() End Sub Private Sub mnutsxxgl_Click() End Sub Private Sub mnuxtgl_Click() 沈陽理工大學課程設計專用紙 32 End Sub Private Sub mnuxdzzc_Click() End Sub 通過這兩個星期的課設，使我對 VB語言和 Access有了更深入、更全面的了解，使我的 VB語言水平有了很大程度的提高。 通過課設我還發現 VB語言和 Access是一門非常實用的學科，像我的題目 圖書管理系統 ，是與實際生活緊密相關的，在以后的工作當中都有可能會用的到。 最大的快樂莫過于發現問題，然后不斷的進行思考，查找各種資料，問同學找老師，想方設法將其解決，并發現各種解決方法的局限性。 沈陽理工大學課程設計專用紙 33 《管理信息系統》黃梯云主編 高等教育出版社 《 Visual Basic 應用編程 150 例》王興晶等主編 電子工業出版社 《 visual basic+access 數據庫開發與實例》劉文濤編編著 清華大學出版社 《 初級編程教程》呂偉臣 主編 北京大學出版社 《 vb 信息系統設計與開發實例》黃明主編 機械工業出版社