【導(dǎo)讀】1. 問題與不足...

　　

【正文】 、 “ 編號 ” 、 “ 作者 ” ，然后輸入相應(yīng)的查詢內(nèi)容，這時將對數(shù)據(jù)庫中 “ 書籍信息表 ” 中的 “ 圖書編號 ” 、 “ 書名 ” 、 “ 作者 ” 各項(xiàng)進(jìn)行匹配，如果匹配成功，那么所有符合查詢條件的書籍信息都將出現(xiàn)在如圖 查詢書籍信息窗體中的文本框中；如果所輸入的書籍名稱與數(shù)據(jù)庫中的 “ 書籍信息表 ” 中的 “ 圖書編號 ” 、 “ 書名 ” 、 “ 作者 ” 各項(xiàng)匹配不成功，系統(tǒng)將出示提示框 “ 查詢不到該圖書信息 ” ，注意，在使用多項(xiàng)條件查詢時，在所選復(fù)選框中有一項(xiàng)沒有和數(shù)據(jù)庫 24 中 “ 書籍信息表 ” 中對應(yīng)項(xiàng)匹配失敗，系統(tǒng)都將出示提示框 “ 查詢不到該圖書信息 ” 。 程序代碼如下： Option Explicit Dim panduan As String Private Sub Command1_Click() Dim rs_findbook As New Dim conn 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 = 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。 25 Else sql = sql amp。 and 出版社 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If provider=。 data source= amp。 amp。 \ If Trim(sql) = Then MsgBox 請選擇查詢方式 !, vbOKOnly + vbExclamation Exit Sub End If sql = select * from 書籍信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False If = 0 Then MsgBox 查詢不到該圖書信息 !, vbOKOnly + vbExclamation Else Set = rs_findbook End If End Sub Private Sub Command2_Click() Unload Me End Sub 如果用戶對所查詢到的圖書滿意，決定借閱該書，那么在如圖 查詢書籍信息窗體中顯示圖書信息的文本框中該書位置單擊鼠標(biāo)左鍵，選定該書，然后單擊 “ 借這本書 ” 按鈕，這時將與數(shù)據(jù)庫中的 “ 書籍信息表 ” 中的 “ 是否被借出 ” 項(xiàng)進(jìn)行核對，如果所借圖書相對應(yīng)的 “ 是否被借出 ” 項(xiàng)為 “ 是 ” ，那么系統(tǒng)將出示提示框 “ 此書以被借出 ” ；如果所借圖書相對應(yīng)的 “ 是否被借出 ” 項(xiàng)為 “ 否 ” ，那么將會打開借書窗體，如圖 所示。 26 圖 借書窗體 實(shí)現(xiàn) 程序代碼如 下： Private Sub Command3_Click() If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書 !, vbOKOnly + vbExclamation Exit Sub End If If panduan = 是 Then MsgBox 此書已被借出 !, vbOKOnly + vbExclamation Exit Sub End If Unload Me End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = (0).CellValue() panduan = (7).CellValue() End Sub 27 Private Sub Form_Load() Dim rs_find As New Dim conn As New Dim sql As String sql = select * from 圖書類別 provider=。 data source= amp。 amp。 \ sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (0) Loop = 0 End If End Sub 用戶需要選擇正確的“讀者編號”和“讀者姓名” ， 然后單擊“確定”按鈕，系統(tǒng)將出示提示框“借閱成功”， 數(shù)據(jù)庫中的“書籍信 息：表”中的“是否被借出”項(xiàng)將被改寫為“是”；如果用戶不想借閱此書，那么單擊“取消”按鈕，將退出借書窗體。 28 第五章 結(jié)果與討論 由于時間的關(guān)系本文初步的完成了圖書館管理信息系統(tǒng)中的主窗體創(chuàng)建、用戶管理模塊的創(chuàng)建、添加讀者類別窗體的創(chuàng)建和查詢書籍信息窗體的創(chuàng)建。實(shí)現(xiàn)了對借閱信息的管理 、 書籍信息的管理 、 讀者信息的管理 、 系統(tǒng)管理。本 畢業(yè)設(shè)計(jì)論文對系統(tǒng)的 需求分析 、模型分析、設(shè)計(jì)和實(shí)現(xiàn) 作了較詳細(xì)地?cái)⑹?，表?了面向?qū)ο蟮乃枷朐谙到y(tǒng)開發(fā)中的優(yōu)越性。也正因此使該原型系統(tǒng)在可擴(kuò)展性、可移植性、代碼重用性、系統(tǒng)維護(hù)上有明顯 的優(yōu)勢。 工作成果 針對各圖書館信息管理的特點(diǎn)，開發(fā)了圖書館管理信息系統(tǒng)，具備了圖書館管理中所需要的各種基本功能： ； ； ； 問題與不足 本文中所開發(fā)的圖書館管理信息系統(tǒng)還有很多不足之處： ； ，無法保證完全滿足用戶各方面的要求； 。 學(xué)習(xí)心得 ，通過各種資料的閱讀，更深一步的 了解了圖書館管理信息系統(tǒng) 、 數(shù)據(jù)庫系統(tǒng)的的概念， 它 們的發(fā)展史、技術(shù)要點(diǎn)和設(shè)計(jì)思路。為今后開發(fā)和設(shè)計(jì)信息系統(tǒng)和數(shù)據(jù)庫系統(tǒng)打下了深厚的基礎(chǔ)。 ，對編程工具 Visual Basic 從一無所知到較熟練的應(yīng)用，不僅新學(xué)會了一種功能強(qiáng)大的編程語言，而且提高了獨(dú)立自學(xué)的能力。在學(xué)習(xí)過程中，遇到了許多的問題，經(jīng)過努力，我終于沖破了這些難點(diǎn)。由于每個軟件的自身設(shè)計(jì)思路是不一樣的，在各種功能的實(shí)現(xiàn)上多存在著差異，這使我走了許多的彎路。但同時使我了解了一種新的思路，使我獲益匪淺。 ，我還 學(xué)到了很多其他方面的道理。關(guān)于學(xué)習(xí)與實(shí)踐：學(xué)到的知識是有限的，面對的實(shí)踐應(yīng)用是多種多樣的，所學(xué)很可能無法滿足所用，必須在實(shí)踐中、在應(yīng)用中不斷學(xué)習(xí)不斷提高，這次完成畢業(yè)設(shè)計(jì)的過程中我學(xué)到了許多從前聞所未聞的知識和技能。關(guān)于理論與實(shí)用：作為一個 計(jì)算機(jī)專業(yè)的 畢業(yè)生，畢業(yè)設(shè)計(jì)是一次重要的實(shí)踐機(jī)會，完成的必須是一件實(shí)用的作品 。 總之，這次設(shè)計(jì)是我受益 匪 淺。對我以后的工作、學(xué)習(xí)打下了堅(jiān)實(shí)的基礎(chǔ)。尤其是軟 29 件的設(shè)計(jì)過程和思路的開拓益處更多。 30 參考文獻(xiàn) [1] 劉韜 ， 駱娟 . Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .北京： 人民郵電出版社 ， 2020 [2] 盧湘江 ， 李向榮 . MySQL 高級配置和管理 . 北京： 清華大學(xué)出版社 ， 2020 [3] 章立民 . SQL Server 2020 完全實(shí)戰(zhàn) . 北京： 中國鐵道出版社 ， 2020 [4] 秦增富 . 大學(xué)圖書館建設(shè) . 北京： 中國機(jī)械出版社 ， 2020 [5] 閃四清 . 數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用教程 .北京： 清華大學(xué)出版社 ， 2020 [6] 阮家棟 ， 施美雅 . 數(shù)據(jù)庫技術(shù) . 北京： 科學(xué)出版社， 2020 [7] 鄭學(xué)堅(jiān)，周斌．微型計(jì)算機(jī)應(yīng)用及原理．北京：清華大學(xué)出版社， 2020 [8] 閃 四清．完全掌握 SQL Server2020[M]．北京：人民郵電出版社， 2020 [9] 閃四清．?dāng)?shù)據(jù)庫系統(tǒng)原理與應(yīng)用教程 [M]．北京：清華大學(xué)出版社， 2020 [10] John Chirillo,Scott Blaul. Storage Security Protecting SANs,NAS,and DAS. [11] Ferland J A, Fleurent C. SAPHIR: A decision support system for course scheduling[J]. Interfaces, 2020, 24 (2) [12] Pawlak, Z. Rough Sets. International Journal of Information and Computer Science[M]． 2020, 11 [13] Fabien ,Ross and Markus G. Kuhn. Information Hiding— A Survey. 2020. 31 致 謝 通過最后這學(xué)期的畢業(yè)設(shè)計(jì)，使我對所學(xué)知識有了更深一步 的 理解 與掌握 ，理論與實(shí)踐 也能更好地結(jié)合在一起 ， 這一過程中我遇到了很多困難， 但這更使我覺 得 其中的樂趣和那種戰(zhàn)勝困難后的成就感。在即將離校之際，能有這次實(shí)踐的機(jī)會，深感難得，同時感到學(xué)無止境，在今后的學(xué)習(xí)和工作中，我會不斷的充實(shí)自己。 在此，由衷感謝我的 指導(dǎo)教師 —— 劉心聲老師 ，他 在知識積累、課題設(shè)計(jì)和完成論文等各方面的悉心指導(dǎo)和給予我的大力幫助 ，才使我順利完成了這此畢業(yè)設(shè)計(jì)與論文的撰寫工作， 在此深表感謝 ! 感謝 黑河電大 的領(lǐng)導(dǎo)和老師多年來在學(xué)習(xí)與生活中給予我的關(guān)懷和教導(dǎo)。 由于本人的能力有限，設(shè)計(jì)論文中一定存在許多問題和不足 ，望各位老師和同學(xué)能夠給予批評和指正，我將不勝感激！