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