【導讀】隨著計算機廣泛地應用在科學技術領域的各個方面，并逐漸進入家庭，成為人們生活和工作中重要的工具。隨著社會信息量的與日俱增，作為信息存儲的

　　

【正文】 If Trim() = Then MsgBox 請選擇讀者種類 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者姓名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 讀者信息 where 讀者編號 =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è)設計論文 第 17 頁 Else MsgBox 讀者編號重復！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub 查詢讀者 版塊代碼 Dim rs_findreader As New Dim sql As String If = vbChecked Then sql = 讀者編號 =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è)設計論文 第 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(確定要刪除嗎？ , 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è)設計論文 第 19 頁 第六 章 設計體會 通過這次畢業(yè)設計 ，我更加深入的了解了 vb和 Access 的強大功能，并且對 vb語言的運用也有了很大的進步。這次系統(tǒng)開發(fā)能夠順利的完成是與開始很好的做需求分析分不開的，這使我認識到，要想很好的完成系統(tǒng)開發(fā)，做好需求分析是非常關鍵的。 目前本系統(tǒng)的絕大部分主要功能已經完成。整個軟件也已進行了初步的軟件測試，并已把已知存在的錯誤全部修 正。由于 時間比較緊張，所以該系統(tǒng)的設計還有一些不 完善的地方，比如庫中借書后剩下圖書的數(shù)量 等問題，而且在軟件的拓展性方面可能還有一些想的不是很全面的地方，這些都需要進一步的完善。 在設計中我遇到了不少問題，往往一個小小的錯誤使我花很多的時間和精力去尋找和修正。在老師的輔導下，今天終于完成了此設計，非常的興奮。通過在畢業(yè)設計中我更深入了解了 vb的命令、函數(shù)、屬性、事件等特性。但我覺的不足的方面還是很多，希望在將來的日子里能更進一步的完善它。 畢業(yè)設計論文 第 20 頁 第七 章 感謝 在這次畢業(yè)設計中，我要感謝我的指導教師 張靜老師 ，感謝他在我畢業(yè)設計期間給予我的幫助、支持和鼓勵 。老師以他 嚴謹?shù)闹螌W態(tài)度、淵博的知識、深刻的洞察力和對問題的系統(tǒng)的研究方法，給了我很大的啟迪和幫助 。在畢業(yè)設計期間，我周圍的同學們也給予了我很大的幫助和支持，感謝他們。 最后，再次感謝幫助我的知道 老師和同學們。 參考文獻 1.《 Visual Basic 程序設計教程》 電子工業(yè)出版社 李樹東 2.《 數(shù)據庫編程設計》 人民郵電出版社 駱娟 3.《 ACCESS數(shù)據庫原理及應用》 科學出版社 林青