圖書(shū)管理系統(tǒng)設(shè)計(jì)(參考版)
2024-12-19 17:15本頁(yè)面
【正文】 最后，再次感謝幫助我的知道 老師和同學(xué)們。老師以他 嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、淵博的知識(shí)、深刻的洞察力和對(duì)問(wèn)題的系統(tǒng)的研究方法，給了我很大的啟迪和幫助 。但我覺(jué)的不足的方面還是很多，希望在將來(lái)的日子里能更進(jìn)一步的完善它。在老師的輔導(dǎo)下，今天終于完成了此設(shè)計(jì)，非常的興奮。由于 時(shí)間比較緊張，所以該系統(tǒng)的設(shè)計(jì)還有一些不 完善的地方，比如庫(kù)中借書(shū)后剩下圖書(shū)的數(shù)量 等問(wèn)題，而且在軟件的拓展性方面可能還有一些想的不是很全面的地方，這些都需要進(jìn)一步的完善。 目前本系統(tǒng)的絕大部分主要功能已經(jīng)完成。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findreader 畢業(yè)設(shè)計(jì)論文 第 18 頁(yè) End Sub 修改 /刪除讀者信息 版塊代碼 Dim answer As String On Error GoTo cmdmodify = False = False = True = True = True cmdmodify: If 0 Then MsgBox End If End Sub 刪除部分 Dim answer As String On Error GoTo delerror answer = MsgBox(確定要?jiǎng)h除嗎？ , vbYesNo, ) If answer = vbYes Then = True MsgBox 成功刪除！ , vbOKOnly + vbExclamation, = False Else Exit Sub End If delerror: If 0 Then MsgBox End If End Sub 畢業(yè)設(shè)計(jì)論文 第 19 頁(yè) 第六 章 設(shè)計(jì)體會(huì) 通過(guò)這次畢業(yè)設(shè)計(jì) ，我更加深入的了解了 vb和 Access 的強(qiáng)大功能，并且對(duì) vb語(yǔ)言的運(yùn)用也有了很大的進(jìn)步。 sql End If 39。 39。 Trim( amp。 and 讀者類(lèi)別 =39。 39。 Trim( amp。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 讀者類(lèi)別 =39。 ) amp。 amp。 Else sql = sql amp。 ) amp。 amp。 39。 Trim( amp。 sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = CDate() (9) = MsgBox 添加讀者信息成功！ , vbOKOnly, Text1 = Text2 = Text3 = Text4 = Text5 = Text6 = = = = 畢業(yè)設(shè)計(jì)論文 第 17 頁(yè) Else MsgBox 讀者編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub 查詢(xún)讀者 版塊代碼 Dim rs_findreader As New Dim sql As String If = vbChecked Then sql = 讀者編號(hào) =39。 amp。 sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 (8) = MsgBox 添加書(shū)籍信息成功！ , vbOKOnly, Text1 = Text2 = = Text3 = Text4 = Text5 = Text6 = = Else MsgBox 圖書(shū)編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub 添加讀者信息版塊 代碼 Private Sub Command1_Click() Dim sql As String 畢業(yè)設(shè)計(jì)論文 第 16 頁(yè) If Trim() = Then MsgBox 請(qǐng)選擇讀者種類(lèi) , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者姓名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者編號(hào)不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 讀者信息 where 讀者編號(hào) =39。 amp。 用于標(biāo)記連接對(duì)象 Public conn As New 用于打開(kāi)數(shù)據(jù)庫(kù) sql, conn, adOpenKeyset, adLockPessimistic 版塊代碼實(shí)現(xiàn) 添加圖書(shū)信息版塊 代碼 Private Sub Command1_Click() Dim rs_addbook As New Dim sql As String If Trim() = Then MsgBox 請(qǐng)選擇圖書(shū)種類(lèi) , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 圖書(shū)編號(hào)不能為空 , vbOKOnly + vbExclamation,
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1