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

　　

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