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

　　

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