【正文】 amp。 39。 amp。 amp。 39。 amp。 amp。 = 39。 amp。 Chr(35) amp。% + + %39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Else = select * from rkb where amp。,0)) End If End If End Sub Private Sub Command2_Click() = 0 Unload Me End Sub 交通運輸學(xué)院課程設(shè)計 37 Private Sub Command3_Click() Dim Counter As Integer Dim workarea(100) As String Counter = 0 = For Counter = LBound(workarea) To UBound(workarea) If = 1 And = 0 Then If = Like Then = select * from rkb where amp。,39。,39。,39。,39。 ,39。 Text6 amp。 Text5 amp。 Text4 amp。 Text3 amp。) End If select * from books where 書籍名稱 =39。, 復(fù) 本 數(shù) =39。 and 是否驗收 = 39。 Text13 amp。 Text11 amp。 amp。 amp。 39。 39。 39。 Text4 amp。 amp。 amp。 amp。 amp。 amp。039。039。039。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。039。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 If 0 Then If Trim(txtPassword) = (密碼 ).Value Then 交通運輸學(xué)院課程設(shè)計 29 (2).Text = 當(dāng)前系統(tǒng)用戶： amp。從理論到實踐，三周的時間，不進(jìn)溫習(xí)鞏固了以前的舊知識，也在不斷地摸索和探求中體會到了自學(xué)能力培養(yǎng)的重要性，自學(xué)的魅力是無窮的。以前，我并沒有太注意這些。 設(shè)計開始，不斷鼓勵自己，給自我以 心理暗示， just do it，也就如此，認(rèn)識到了自己以前的事業(yè)太狹小了，我們周圍還有好多我們可以利用的資源，書籍、網(wǎng)站。這個過程中所學(xué)到的 知識和所堅持下來的毅力，我將一生受用，我嘗到了自己動手，自己的事自己做的甜頭，真的很好，值得一生品味，一直自己也情不自禁地說了“ VB真是強大，以后再慢慢研究，編個益智游戲”。 點擊【 借閱管理 】 — 【 超期提醒 】 ，出現(xiàn)界面 如下： 交通運輸學(xué)院課程設(shè)計 24 圖 35 單擊【每日到期】，則出現(xiàn)以下： 圖 36 交通運輸學(xué)院課程設(shè)計 25 【參考文獻(xiàn)】 Basic程序設(shè)計教程 作 者：劉瑞新 等主編 出 版 社：電子工業(yè)出版社 出版時間： 20218 isual BASIC+Access數(shù)據(jù)庫項目開發(fā)實踐（附 CDROM光盤一張） 作 者： 周國民 編著 出 版 社： 中國鐵道出版社 出版時間： 202111 B數(shù)據(jù)庫程序設(shè)計實驗指導(dǎo) 作 者： 劉白林 主編 出 版 社： 西安交通大學(xué)出版社 出版時間： 202131 isual Basic+Access 數(shù)據(jù)庫開發(fā)與實例（含光盤） 作 者： 劉文濤 編著 出 版 社： 清華大學(xué)出版社 出版時間： 202171 Access數(shù)據(jù)庫教程 作 者： 劉文濤 編著 出 版 社： 清華大學(xué)出版社 出版時間： 202171 VB數(shù)據(jù)庫項目設(shè)計模塊化教程 作 者：劉玉山 劉寶山 編著 出 版 社： 機械工業(yè)出版社 出版時間： 20218 交通運輸學(xué)院課程設(shè)計 26 設(shè)計體會 三周的課程設(shè)計，到今天接近尾聲了 。 圖書丟失管理 圖書丟 失管理主要對圖書館丟失的圖書進(jìn)行管理，通過輸入讀者編號和書籍的條形碼，檢索讀者丟失的圖書。 按下面圖 單擊【庫存管理】 — 【圖書驗收入庫】 將出現(xiàn)檢索訂單界面： 交通運輸學(xué)院課程設(shè)計 10 圖 11 圖 12 如果該 訂單號不能從訂單表中提取未被驗收的數(shù)據(jù) ， 即 出現(xiàn) 下面界面： 圖 13 如果該訂單號已被驗收入庫，出現(xiàn)下面提示： 交通運輸學(xué)院課程設(shè)計 11 圖 14 如果輸入的訂單號（ 202107180004），能從訂單表中提取未被驗收的數(shù)據(jù)，則出現(xiàn)下面界面： 圖 15 點擊保存，出現(xiàn)下面界面： 交通運輸學(xué)院課程設(shè)計 12 圖 16 點擊是，出現(xiàn)如下界面： 圖 17 點擊【庫存管理】 — 【入庫查詢】，出現(xiàn) 界面 如下： 交通運輸學(xué)院課程設(shè)計 13 圖 18 該界面提供了通過單一的“訂單號”、“訂購人”、“書籍名稱”、“作者”、“出版社”對書目的查找或“訂購日期”的查找，同時也滿足它們之間的組合查找 ， 選中方法前的 復(fù)選框（如果不選中，系統(tǒng)將自動提示），填好信 息 后，單擊【查詢】，可顯示查詢信息，結(jié)果如下圖： 交通運輸學(xué)院課程設(shè)計 14 圖 19 選擇組合查找時，下面為正在查找的界面： 圖 20 讀者借書管理 在讀者借書管理中，通過讀者編號和圖書條形碼確定讀者所借閱的圖書信息。 如果輸入名稱錯誤 （ 如下圖這樣） ，點擊登陸，系統(tǒng)將會提示。可以實現(xiàn)對圖書的驗收入庫、入庫查詢，對 照輸入邊框上的提示信息，依次輸入，就可以實現(xiàn)相應(yīng)的功能。 為了更完善 地利用 圖書館管理系統(tǒng) ，方便查詢各種信息，設(shè)置了一個主頁面，通過單擊相應(yīng)的選項能夠?qū)崿F(xiàn)各種功能。 六、設(shè)計成果 經(jīng)調(diào)試成功的源程序和 EXE 文件，設(shè)計報告。 交通運輸學(xué)院課程設(shè)計 2 （ 4）根據(jù)查詢條件打印符合查詢條件的數(shù)據(jù)，并且能夠打印書目分類信息。此外，還可以維護(hù)圖書類別信息。 （ 2）辦理圖書借閱與歸還的速度過慢。交通運輸學(xué)院課程設(shè)計 1 《圖書館管理系統(tǒng)》課程設(shè)計任務(wù)書 一、設(shè)計目的 1．學(xué)習(xí)和鞏固 VB程序設(shè)計的方法（面向過程的程序設(shè)計方法和面向?qū)ο蟮某绦蛟O(shè)計方法），充分體會 VB在程序設(shè)計方面的強大功能和獨特之處； 2．了解用 VB開發(fā)項目的一般過程，培養(yǎng)運用 VB解決實際問題的工作能力。 （ 3）查詢、統(tǒng)計困難。 （ 2）管理訂購新書信息，驗收訂 購的新書信息，查詢并檢索庫存圖書信息。 （ 5）維護(hù)系統(tǒng)數(shù)據(jù)，如添加操作員、修改操作員、更改操作員口令等。 設(shè)計報告包括：課題簡介、功能要求、設(shè)計思路、各功能模塊（或子程序）描述、各功能的實現(xiàn)方法、重點難點設(shè)計方法、軟件運行方法、設(shè)計小結(jié)等。 設(shè)計實現(xiàn)用戶登錄窗口，需要在數(shù)據(jù)庫中建立一個用戶表，在里面保存用戶名稱和密碼，然后才能與用戶在窗口輸入的信息進(jìn)行校驗。 實現(xiàn)了 讀者借書管理、讀者還書管理、圖書丟失管理、超期提醒各種必要功能。 交通運輸學(xué)院課程設(shè)計 5 圖 2 圖 3 如果輸入密碼錯誤， 系 統(tǒng)將提示 如下圖： 圖 4 當(dāng)名稱和密碼都正確時，系統(tǒng)出現(xiàn)主界面： 交通運輸學(xué)院課程設(shè)計 6 圖 5 新書訂購 新書訂購 在添加訂單信息時，圖書訂單號根據(jù)當(dāng)前系統(tǒng)日期和 4 位數(shù)字編碼自動生成，在觸發(fā) [添加 ]按鈕的 Click 事件后，首先到數(shù)據(jù)庫中的 Newtb 數(shù)據(jù)表中檢索訂單號與當(dāng)前系統(tǒng)格式化后的日期（ yyyymmdd）字符串相同的記錄，如果有記錄，那么移到最后一條，這時“訂單號”為當(dāng)前系統(tǒng)日期和 4位數(shù)字編碼加 1 的組合；如果無記錄，那么“訂單號”為當(dāng)前系統(tǒng) 日期和“ 0001”的組合， 單擊主界面【訂購新書】，出現(xiàn)如下新書訂購界面： 交通運輸學(xué)院課程設(shè)計 7 圖 6 該界面提供添加新書功能，如果正確輸入各信息，如下： 圖 7 點擊保存，出現(xiàn)以下界面： 交通運輸學(xué)院課程設(shè)計 8 圖 8 通過以上方法生成的訂單號有一定的規(guī)律，并能夠看出圖書訂購的日期 ， 如果 在 輸入信息不全或者輸入信息有誤 時 ， 點擊保存， 將出現(xiàn)以下界面： 圖 9 此時若點擊刪除，出現(xiàn)以下界面： 交通運輸學(xué)院課程設(shè)計 9 圖 10 庫存管理 庫存管理主要完成將采購進(jìn)來的圖書進(jìn)行驗收入庫，只有經(jīng)過驗收的圖書才能正式入庫。當(dāng)用戶輸入讀者編號和借閱圖書的條形碼時，通過文本框 TextBox 的 LostFocus 事件下的語句檢索讀者信息和其借閱圖書的信息；通過 AddNew 方法保存借閱信息 ，讀者借書管理界面，如下： 交通運輸學(xué)院課程設(shè)計 15 圖 21 如下圖，輸入讀者編號，姓名，借閱圖書條碼號。如果圖書確認(rèn)丟失，那么使用 AddNew 方法保存丟書記錄，同時更新讀者借書信息和庫存信息。 回想這三周的學(xué)習(xí)與設(shè)計，有苦有甜，苦的是，之前學(xué)過的關(guān)于 VB 和數(shù)據(jù)庫的知識都忘得差不多了，感覺學(xué)的東西很少，很零散，不知該怎么練到一起，做課程設(shè)計，是不是太難為我們了。 在這些艱辛的日子里，我大量查閱了相關(guān)的資料和網(wǎng)張，在課程設(shè)計過程中，我懂得了很多人生的哲理，懂得怎樣去制定計劃，怎樣去實現(xiàn)這個計劃，并掌握了在執(zhí)行過程中怎樣去克服心理上的不良情緒，經(jīng)過自己的琢磨，還查閱了很多的書籍，才做到了心中有數(shù)，才了解 VB 程序設(shè)計的真正用途，培養(yǎng)自學(xué)能力，養(yǎng)成編程的好習(xí)慣，課程是主要培養(yǎng)學(xué)生綜合運用所學(xué)知識、發(fā) 現(xiàn)、提出、分析和解決實際問題和鍛煉實踐能力的重要環(huán)節(jié)，也是對學(xué)生實際工作能力的具體訓(xùn)練和考察過程，一段時間的實踐后，確實掌握了不少知識。都給我們提供了很好的資料，就等著我們?nèi)ゲ檎液屠?，從這次圖書館管理系統(tǒng)設(shè)計中我也收獲了很多，了解了圖書管理員的一些工作，也讓我進(jìn)一步對 VB 及其數(shù)據(jù)庫有了深一步的了解，學(xué)到了太多太多，受益匪淺。通過這次課程設(shè)計之后，我認(rèn)為一定把以前學(xué)到的知識重新整理，認(rèn)真回顧下，這才會對以后的學(xué)習(xí)起到舉足輕重的作用。 最后，從這次課程設(shè)計中，本人對 VB和 Access 數(shù)據(jù)庫有了更深入的理解和領(lǐng)悟，同時也看到了不起眼的紅蜻蜓抓圖精靈作用不可小覷，我更堅定地認(rèn)識到 VB 在以后學(xué)習(xí)中的重要性，這將是我受益終生。 (名稱 ).Value Unload Me Else MsgBox 密碼不正確！ , vbExclamation + vbOKOnly End If Else MsgBox 無此用戶或者密碼不正確！ , vbExclamation End If End Sub frmmain 源代碼 Private Sub mnucqtx_Click() 1 End Sub Private Sub mnudown_Click() 1 End Sub Private Sub mnuedit_Click() 1 End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnufind_Click() Unload frmupdate = 1 (0) = open_i = 1 End Sub frmaddnew 源代碼 Dim rs1 As New Private Sub bo1_Click() = = = select * from lbtb where 書籍類別 =39。 If 0 Then 交通運輸學(xué)院課程設(shè)計 30 = (0) = (2) End If End Sub Private Sub Combo1_KeyDown(K