圖書管理系統(tǒng)設(shè)計(jì)說明書(參考版)
2025-05-17 22:32本頁面
【正文】 最大的快樂莫過于發(fā)現(xiàn)問題，然后不斷的進(jìn)行思考，查找各種資料，問同學(xué)找老師，想方設(shè)法將其解決，并發(fā)現(xiàn)各種解決方法的局限性。 If = True Then MsgBox 你所需的借書記錄不存在 Exit Sub Else (可借 ) = 是 If (Date (應(yīng)還日期 ).Value) = 0 Then MsgBox 還書成功 Else (借還狀態(tài) ) = 已還 (欠款數(shù)目 ) = (Date (應(yīng)還日期 ).Value) (超期天數(shù) ) = (Date (應(yīng)還日期 ).Value) MsgBox 請(qǐng)及時(shí)還清超期欠款 End If End If End Sub 以下代碼用以實(shí)現(xiàn)各窗體之間的轉(zhuǎn)換： Private Sub mnutc_Click() End End Sub Private Sub mnutscx_Click() End Sub Private Sub mnutsxxgl_Click() End Sub Private Sub mnuxtgl_Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 32 End Sub Private Sub mnuxdzzc_Click() End Sub 通過這兩個(gè)星期的課設(shè)，使我對(duì) VB語言和 Access有了更深入、更全面的了解，使我的 VB語言水平有了很大程度的提高。 + and + 讀者編號(hào) =39。 If = True Then 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 31 MsgBox 該讀者沒有注冊(cè) = Exit Sub End If Else MsgBox 請(qǐng)輸入讀者編號(hào) Exit Sub End If = 圖書編號(hào) =39。 If = True Then MsgBox 該編號(hào)的書不存在 = Exit Sub End If Else MsgBox 請(qǐng)輸入圖書編號(hào) Exit Sub End If If dzbh Then = 讀者編號(hào) =39。 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 = 圖書編號(hào) =39。jieshuriqi = Date 39。 + dzbh + 39。jieshuriqi = Date 39。 + dzbh + 39。 + dzbh + 39。 + tsbh + 39。有超期欠款的讀者需要還清欠款后方能繼續(xù)借閱。學(xué)生可借 1 本（不可以借閱期刊），期限為 7 天。 If = True Then = Exit Sub End If If = True Then MsgBox 該讀者沒有注冊(cè) = Exit Sub Else If (借還狀態(tài) ) = 借 Then MsgBox 仍有圖書未歸還，不能注銷 Exit Sub Else If (欠款數(shù)目 ) 0 Then MsgBox 尚有超期欠款未還，不能注銷 Exit Sub Else = End If End If End If Else MsgBox 請(qǐng)輸入讀者編號(hào) Exit Sub End If 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 27 借書還書模塊 借書還書界面 在本窗體實(shí)現(xiàn)的功能有圖書借閱功能和還書功能。 = 讀者編號(hào) =39。 實(shí)現(xiàn)代碼如下： Private Sub Command3_Click() Dim dzbh As String dzbh = If dzbh Then = 讀者編號(hào) =39。 + dzbh + 39。 + dzbh + 39。只需輸入讀者編號(hào)便可進(jìn)行相應(yīng)操作 讀者信息查詢功能：對(duì)已注冊(cè)讀者的基本信息和借書信息進(jìn)行查詢，如果讀者未注冊(cè)則進(jìn)行提示。 If = False Then MsgBox 讀者編號(hào)不可用，請(qǐng)重新輸入 Exit Sub End If End If (讀者編號(hào) ) = (姓名 ) = (性別 ) = If = True Then (職稱 ) = (備注 ) = 1 Else (職稱 ) = (備注 ) = 2 End If MsgBox 新讀者注冊(cè)成功 = = End Sub 以下為取消的代碼。 功能實(shí)現(xiàn)代碼如下 Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入讀者編號(hào) Exit Sub End If If = Then MsgBox 請(qǐng)輸入姓名 Exit Sub End If If = False And = False Then MsgBox 請(qǐng)選擇讀者類型 Exit Sub End If If = Combo1 Then MsgBox 請(qǐng)選擇性別 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 23 Exit Sub End If If Then = 讀者編號(hào) =39。(圖書編號(hào) ) = (圖書名稱 ) = (圖書類型 ) = (作者 ) = (出版社 ) = (購買日期 ) = (備注 ) = (可借 ) = 是 MsgBox 圖書信息修改成功 = = = = = = End Sub 刪除部分：?jiǎn)螕魟h除按鈕后將提示是否刪除，單擊否后，將直接退出修改。修改成功后將框體清空。 + and Else g = End If s1 = a + b + c + d + e + f + g If (Len(s1) 4) 0 Then MsgBox 請(qǐng)輸入必要搜索信息 Exit Sub Else = Left(s1, Len(s1) 4) End If 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 19 If = True Then MsgBox 沒有要修改或刪除的紀(jì)錄 Exit Sub End If MsgBox 請(qǐng)選擇要修改或刪除的紀(jì)錄 End Sub 修改部分：圖書編號(hào)不可修改以外其他所有信息均可修改，但必須將所有信息重新填入否則將有提示輸入完整信息。 + and Else f = End If If tslx Then g = 圖書類型 =39。 + and Else d = End If If gmrq Then e = 購買日期 = + gmrq + and Else e = End If If bz Then f = 備注 =39。 + and Else c = End If If cbs Then d = 出版社 =39。 + and Els
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1