圖書管理系統(tǒng)設(shè)計(jì)說(shuō)明書(編輯修改稿)
2025-06-18 22:32 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 zz = = 作者 =39。 + zz + 39。 If Then MsgBox 沒(méi)有您所查的相關(guān)信息 End If = End Sub Private Sub Command4_Click() Dim tslx As String tslx = = 圖書類型 =39。 + tslx + 39。 If Then MsgBox 沒(méi)有您所查的相關(guān)信息 End If End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 14 Private Sub Command9_Click() Dim cbs As String cbs = = 出版社 =39。 + cbs + 39。 If Then MsgBox 沒(méi)有您所查的 相關(guān)信息 End If = End Sub 將光標(biāo)移動(dòng)至第一個(gè)，移動(dòng)至下一個(gè)，移動(dòng)至上一個(gè)，移動(dòng)至最后一個(gè)由以下代碼實(shí)現(xiàn)： Private Sub Command5_Click() End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub 菜單項(xiàng)中的各個(gè)功能的轉(zhuǎn)換由以下代碼實(shí)現(xiàn)： Private Sub mnudzxx_Click() End Sub Private Sub mnujshs_Click() End Sub Private Sub mnutc_Click() End End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 15 Private Sub mnutsxxgl_Click() End Sub Private Sub mnuxdzzc_Click() End Sub Private Sub mnudzxxcx_Click() End Sub 圖書信息管理界面 在本界面實(shí)現(xiàn)的功能有三個(gè)，即圖書信息錄入功能，圖書信息修改功能，圖書信息刪除功能。 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 16 圖書信息錄入時(shí)要求每個(gè)框體必須輸入相應(yīng)信息，否則將提示輸入。其中圖書編號(hào)須是數(shù)字形式，購(gòu)買日期須是日期形式。如果輸入圖書編號(hào)已存在，則提示該編號(hào)的書已存在。錄入成功之后框體將清空。 錄入功能實(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 = Combo1 Then MsgBox 請(qǐng)選擇圖書類型 Exit Sub End If If = Then MsgBox 請(qǐng)輸入作者 Exit Sub End If If = Then MsgBox 請(qǐng)輸入出版社 Exit Sub End If If = Then MsgBox 請(qǐng)按年 /月 /日輸入購(gòu)買日期 Exit Sub End If If = Then MsgBox 請(qǐng)輸入新舊備注 Exit Sub End If If Then = 圖書編號(hào) =39。 + + 39。 If = False Then MsgBox 該編號(hào)的書已經(jīng)存在 Exit Sub End If End If (圖書編號(hào) ) = 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 17 (圖書名稱 ) = (圖書類型 ) = (作者 ) = (出版社 ) = (購(gòu)買日期 ) = (備注 ) = (可借 ) = 是 MsgBox 圖書信息錄入成功 = = = = = = 修改和刪除功能設(shè)計(jì)思路是在框體中不必輸入全部信息，根據(jù)提供信息進(jìn)行組合搜索，通過(guò)移動(dòng)光標(biāo)選擇后再進(jìn)行修改和刪除。 搜索部分的代碼如下： Private Sub Command2_Click() Dim tsbh As String Dim tsmc As String Dim tslx As String Dim zz As String Dim cbs As String Dim gmrq As String Dim bz As String tsbh = tsmc = tslx = zz = cbs = gmrq = bz = If tsmc Then a = 圖書名稱 =39。 + tsmc + 39。 + and Else a = End If If tsbh Then 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 18 b = 圖書編號(hào) = + tsbh + and Else b = End If If zz Then c = 作者 =39。 + zz + 39。 + and Else c = End If If cbs Then d = 出版社 =39。 + cbs + 39。 + and Else d = End If If gmrq Then e = 購(gòu)買日期 = + gmrq + and Else e = End If If bz Then f = 備注 =39。 + bz + 39。 + and Else f = End If If tslx Then g = 圖書類型 =39。 + tslx + 39。 + 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 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 19 If = True Then MsgBox 沒(méi)有要修改或刪除的紀(jì)錄 Exit Sub End If MsgBox 請(qǐng)選擇要修改或刪除的紀(jì)錄 End Sub 修改部分：圖書編號(hào)不可修改以外其他所有信息均可修改，但必須將所有信息重新填入否則將有提示輸入完整信息。借出中的圖書不能進(jìn)行修改。修改成功后將框體清空。 實(shí)現(xiàn)代碼如下： Private Sub Command4_Click() Dim y If = Then MsgBox 請(qǐng)輸入圖書名稱 Exit Sub End If If = Combo Then MsgBox 請(qǐng)選擇圖書類型 Exit Sub End If If = Then MsgBox 請(qǐng)輸入作者 Exit Sub End If If = Then MsgBox 請(qǐng)輸入出版社 Exit Sub End If If = Then MsgBox 請(qǐng)按年 /月 /日輸入購(gòu)買日期 Exit Sub End If If = Then MsgBox 請(qǐng)輸入新舊備注 Exit Sub End If If (可借 ) = 否 Then MsgBox 借出中，不能修改 Exit
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1