【導讀】院校的教材管理在學生規(guī)模日益增大、教材日益多樣化、學生個人之間教材差異越來。越大的現(xiàn)實面前已呈現(xiàn)出無法應對的局面。因此，建立一套與選課相配套的教材管理模式和管理系。教材資料及其庫存情況。使教材信息管理工作系統(tǒng)化、規(guī)范化、自動化，從而達到提高教材管理效

　　

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