【導讀】以班級為單位進行處理的。院校的教材管理在學生規(guī)模日益增大、教材日益多樣化、學生個人之間教材差異越來越大的現實面前已呈現出無法應對的局面。性，而且現有的條件、管理理念和技術水平已使之成為可能。領書、查詢教材資料及其庫存情況。使教材信息管理工作系統(tǒng)化、規(guī)范化、自動化，從而達到提高教材管理效率的目的。

　　

【正文】 書名：電子商務 書店：化天書店 經手人：王立 入書時間：）系統(tǒng)顯示缺少入書時間信息，無法查詢。當輸入異常數據時（書名：電子商務 書店：化天書店 經手人：王立 入書時間： 20201522）系統(tǒng)會彈出有錯 誤信息。 以上所有的模塊測試過程都要求系統(tǒng)能在用戶輸入出錯時給出正確的相應并不影響到數據的安全與完整性。 通過測試系統(tǒng) 基本達到設計要求， 系統(tǒng) 功能完整，用戶界面良好，錯誤處理正確，且能正確提示錯誤種類 。 但是在測試中也發(fā)現 系統(tǒng) 的一些不足與缺陷，比如 系統(tǒng) 在用戶第一次登陸時，也就是用戶剛拿到 系統(tǒng) 時，必須用預先設定好的 用戶名 登陸系統(tǒng)才能進行添 加 ，刪除，修改等 操作，等等一些缺陷，需要在軟件進一步修改和維護時予以糾正。 總的來說，軟件通過測試，基本上達到需求 分析 階段所提出的要求 。 綏化學院 2020 屆本科生畢業(yè)論文 32 總 結 經過三個月的學習，設計和編程，基本完成課題設計的任務，本次課題設計任務是開發(fā)教材管理系統(tǒng)，結合傳統(tǒng)教材管理的模式，初步實現了教材的訂購、查詢、數據庫管理等一些基本的管理系統(tǒng)功能，這些功能對于一般客戶完全能夠滿足他們的需要。 我對開發(fā)環(huán)境 Visual Basic 并不是很熟悉，在以前的學習中也只是涉及到簡單的程序設計，一開始做的還是有點力 不從心，但在導師的耐心指導下，通過自己的努力學習和探索，我已經使自己可以使用 Visual Basic SQL查詢語言和 ACCESS開發(fā)數據庫應用程序。通過開發(fā)這個系統(tǒng)，我掌握了教材管理系統(tǒng)開發(fā)的基本過程，了解了教材管理的基本知識，掌握了 SQL查詢語言，鞏固了我對 Visual Basic 學習，而在這次畢業(yè)設計的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方法，以及與同學間相互幫助精神。 但是，由于實際條件和時間限制，還有自己平時的學習不夠，系統(tǒng)在功能方面還不完善，有的僅 僅是最簡單最基本的功能實現，而且由于我們知識面的局限性，對于具體的 MIS 管理系統(tǒng)方面的知識還有很大的欠缺，可能在設計數據庫存在著不合理的地方，以至于影響到整個系統(tǒng)的功能以及性能。 盡管系統(tǒng)有種種的不如意的地方，但是從課題開發(fā)開始到結束這一過程中，從查閱資料到撰寫論文，從建庫到建表，再到編寫程序，從功能分析到界面設計，每一步都充滿了我和同學辛勤勞動，每一次探索的成功都讓我們欣喜，讓我們得到無比的鼓舞。 總之，通過這次畢業(yè)設計使我學到了很多書本上沒有的知識，讓我了解到只有將理論和實際相結合才能將學到的知識消化為 自己的，同時也讓我認識到了我自身的不足。畢業(yè)設計留給我的經驗對我以后的工作學習都是受益匪淺，它給我留下的教訓也足以讓我在今后的學習工作中引以為戒。 綏化學院 2020 屆本科生畢業(yè)論文 33 致 謝 在論文即將完成之際，回顧在緊張的工作中進行畢業(yè)設計的生活，感到受益匪淺，在此向所有關心和幫助過我的老師同學致以最真誠的感謝。 首先，我需要感謝我的導師馬春華老師，馬春華耐心解答我遇到的各種問題，熱情的為我出謀劃策，嚴格督促我畢業(yè)設計的進展，在系統(tǒng)設計階段，馬老師多次幫我檢查系統(tǒng)，給我指出錯誤，并為我提出更好的設想，在撰寫論文階段，幾次審閱我 的論文，并提出了許多寶貴意見，所以，如果沒有馬老師的指導，我就不能較好的完成課題設計的任務。 再者，我還要十分感謝我的同學，沒有他們的幫助我的畢業(yè)設計也不會較順利的完成。 綏化學院 2020 屆本科生畢業(yè)論文 34 參考文獻 [1] 滕佳東 著 .《信息管理系統(tǒng)》 (第 2版 ).大連： 東北財經大學出版社 ， [2] 駱 麗等譯 .《 金版 Visual 》 .北京：電子工業(yè)出版社， [3] 劉炳文等 .《 Visual Base 程序設計 》 — 數據庫篇 .北京：人民郵電出版社， . [4] 宋偉 . 吳建國等編著 .《中文 Visual 編程基礎》 .北京，清華大學出版社， [5] 王珊 陳紅著《數據庫系統(tǒng)原理教程》 .北京：清華大學出版社， [6] 王珊 .陳紅 .文繼榮著 .《數據庫與數據庫管理系統(tǒng)》 .北京：電子工業(yè)出版社， 1995 [7] 鄭人杰 主編 .《中國計算機軟件專業(yè)技術水平考試指定用書 軟件工程》（初級） .北京：清華大學出版， [8] 林立軍 .程斌 .翁迪恩編著 .《 Visual Basic 數據庫開發(fā)指南 》 (第 2 版 ).西安 :電子科技大學 出版社 . [9] 徐仁佐等編著 .《 軟件工程 》 .武漢：華中科技大學出版社 . [10] Leszek 《需求分析與系統(tǒng)設計》 .金芝 譯 .機械工業(yè)出版社 ,2020年出版． [11] 丁寶康 編著 《數據庫原理》 .經濟科學出版社 . [12] 崔巍主編：《 數據窗口程序設計》， 清華大學出版社 , 出版， 綏化學院 2020 屆本科生畢業(yè)論文 35 附 錄 訂書查詢代碼 Private Sub cmdSave_Click() Dim 訂購查詢 As Variant If ModifyOrder = False Then MsgBox 對不起，你無權對你所做的修改作出保存！ amp。 vbCrLf amp。 請與管理員聯系！ , vbOKOnly + vbCritical + vbMsgBoxHelpButton, 無權修改！ , amp。 \, 訂購查詢 Exit Sub End If Dim a As Variant a = MsgBox(確定要將網格中所修改的數據保存到數據庫嗎？ , vbYesNo + vbQuestion, 保存嗎？ ) If a vbYes Then Exit Sub End If (1).Text = 正在保存?? Dim rst As Dim strWhere As String Dim strsql As String Dim strDat As String Dim strToday As String Dim getString As String blnNoRecordset = False blnClick = True Set rst = New strsql = Select * from Query 綏化學院 2020 屆本科生畢業(yè)論文 36 strWhere = Where 1=1 strWhere = strWhere amp。GetWhereString(cboYear, 年級 ) strWhere = strWhere amp。GetWhereString(cboPart, 系部 ) strWhere = strWhere amp。 GetWhereString(cboProfession, 專業(yè) ) If = vbChecked And Len() And 請輸入或選擇 And Trim() Then Select Case Case 早于 strDat = CDateType(CStr(CDate() 1)) getString = and 定書日期 between 1/1/2020 and amp。 strDat Case 等于 getString = and 訂 書 日 期 between amp。 CDateType(CStr(CDate())) amp。 and amp。 CDateType(CStr(CDate())) Case 晚于 strDat = CDateType(CStr(CDate() + 1)) getString = and 訂書 日期 between amp。 strDat amp。 And amp。 CDateType(CStr(Date)) End Select End If 庫存查詢代碼 Private Sub cmdquery_Click() Dim rst As Dim strWhere As String Dim strsql As String blnNoRecordset = False blnClick = True 綏化學院 2020 屆本科生畢業(yè)論文 37 Set rst = New strsql = Select ISBN,書名 ,主編 ,出版社 ,版本 ,價格 ,實存數量 ,可取數量 from sxxb strWhere = Where 1=1 strWhere = strWhere amp。 GetWhereString(cboBookName, 書名 ) strWhere = strWhere amp。 GetWhereString(cboPublish, 出版社 ) strWhere = strWhere amp。 GetWhereString(cboAuthor, 主編 ) strWhere = strWhere amp。 GetWhereString(cboEdition, 版本 ) 39。 39。 strsql amp。 strWhere strsql amp。 strWhere, nDb, adOpenStatic, adLockOptimistic If = 0 Then blnNoRecordset = True End If Set printRs = rst showdata rst If blnNoRecordset Or Not blnClick Then = False Else = True End If End Sub