圖書管理系統(tǒng)設(shè)計(jì)-資料下載頁
2024-12-15 17:15本頁面
【導(dǎo)讀】隨著計(jì)算機(jī)廣泛地應(yīng)用在科學(xué)技術(shù)領(lǐng)域的各個(gè)方面，并逐漸進(jìn)入家庭，成為人們生活和工作中重要的工具。隨著社會(huì)信息量的與日俱增，作為信息存儲(chǔ)的
【正文】 If Trim() = Then MsgBox 請(qǐng)選擇讀者種類 , 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。 amp。 39。 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 頁 Else MsgBox 讀者編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub 查詢讀者 版塊代碼 Dim rs_findreader As New Dim sql As String If = vbChecked Then sql = 讀者編號(hào) =39。 amp。 Trim( amp。 ) amp。 39。 End If If = vbChecked Then If Trim(sql) = Then sql = 讀者姓名 =39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 讀者姓名 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 讀者類別 =39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 讀者類別 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If If = vbUnchecked And = vbUnchecked And = vbUnchecked Then sql = select * from 讀者信息 Else sql = select * from 讀者信息 where amp。 sql End If 39。sql = select * from 讀者信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findreader 畢業(yè)設(shè)計(jì)論文 第 18 頁 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 頁 第六 章 設(shè)計(jì)體會(huì) 通過這次畢業(yè)設(shè)計(jì) ，我更加深入的了解了 vb和 Access 的強(qiáng)大功能，并且對(duì) vb語言的運(yùn)用也有了很大的進(jìn)步。這次系統(tǒng)開發(fā)能夠順利的完成是與開始很好的做需求分析分不開的，這使我認(rèn)識(shí)到，要想很好的完成系統(tǒng)開發(fā)，做好需求分析是非常關(guān)鍵的。 目前本系統(tǒng)的絕大部分主要功能已經(jīng)完成。整個(gè)軟件也已進(jìn)行了初步的軟件測(cè)試，并已把已知存在的錯(cuò)誤全部修 正。由于 時(shí)間比較緊張，所以該系統(tǒng)的設(shè)計(jì)還有一些不 完善的地方，比如庫中借書后剩下圖書的數(shù)量 等問題，而且在軟件的拓展性方面可能還有一些想的不是很全面的地方，這些都需要進(jìn)一步的完善。 在設(shè)計(jì)中我遇到了不少問題，往往一個(gè)小小的錯(cuò)誤使我花很多的時(shí)間和精力去尋找和修正。在老師的輔導(dǎo)下，今天終于完成了此設(shè)計(jì)，非常的興奮。通過在畢業(yè)設(shè)計(jì)中我更深入了解了 vb的命令、函數(shù)、屬性、事件等特性。但我覺的不足的方面還是很多，希望在將來的日子里能更進(jìn)一步的完善它。 畢業(yè)設(shè)計(jì)論文 第 20 頁 第七 章 感謝 在這次畢業(yè)設(shè)計(jì)中，我要感謝我的指導(dǎo)教師 張靜老師 ，感謝他在我畢業(yè)設(shè)計(jì)期間給予我的幫助、支持和鼓勵(lì) 。老師以他 嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、淵博的知識(shí)、深刻的洞察力和對(duì)問題的系統(tǒng)的研究方法，給了我很大的啟迪和幫助 。在畢業(yè)設(shè)計(jì)期間，我周圍的同學(xué)們也給予了我很大的幫助和支持，感謝他們。 最后，再次感謝幫助我的知道 老師和同學(xué)們。 參考文獻(xiàn) 1.《 Visual Basic 程序設(shè)計(jì)教程》 電子工業(yè)出版社 李樹東 2.《 數(shù)據(jù)庫編程設(shè)計(jì)》 人民郵電出版社 駱娟 3.《 ACCESS數(shù)據(jù)庫原理及應(yīng)用》 科學(xué)出版社 林青
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1