【正文】 = select * from newtb where 是否驗(yàn)收 =39。 temp amp。,39。 Text13 amp。,39。 Text12 amp。,39。 Text11 amp。,39。 Text10 amp。,39。 Text9 amp。 ,39。, amp。 Text7 amp。,39。 Text6 amp。,39。 DT2 amp。,39。 Text5 amp。,39。 Text4 amp。,39。 Text3 amp。,39。 Text2 amp。,39。 DT1 amp。,39。 Text1 amp。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號(hào)已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。 amp。 If 0 Then MsgBox 此條碼號(hào)已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號(hào) =39。 amp。 order by 訂單號(hào) End If 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 31 End If End If End Sub Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 輸入的信息不能為空 !, vbCritical ElseIf IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox 輸入的信息類型不正確！ , vbInformation Else = select * from newtb where 條碼號(hào) =39。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗(yàn)收 =39。 temp amp。,39。 Text13 amp。,39。 Text12 amp。,39。 Text11 amp。,39。 Text10 amp。,39。 Text9 amp。 ,39。, amp。 Text7 amp。,39。 Text6 amp。,39。 DT2 amp。,39。 Text5 amp。,39。 Text4 amp。,39。 Text3 amp。,39。 Text2 amp。,39。 DT1 amp。,39。 Text1 amp。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號(hào)已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。 amp。 If 0 Then MsgBox 此條碼號(hào)已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號(hào) =39。 amp。 If 0 Then 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 30 = (0) = (2) End If End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Command11_Click() If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 輸入的信息不能為空 !, vbCritical ElseIf IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox 輸入的信息類型不正確！ , vbInformation Else = select * from newtb where 條 碼 號(hào) =39。 Trim() amp。 (名稱 ).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。 + Trim(Combo) + 39。 最后，從這次課程設(shè)計(jì)中，本人對(duì) VB和 Access 數(shù)據(jù)庫有了更深入的理解和領(lǐng)悟，同時(shí)也看到了不起眼的紅蜻蜓抓圖精靈作用不可小覷，我更堅(jiān)定地認(rèn)識(shí)到 VB 在以后學(xué)習(xí)中的重要性，這將是我受益終生。也由于 出于對(duì)知識(shí)的渴望，出于對(duì)未知的求知，我完成了這次課程設(shè)計(jì)，不過這只是成長道理上的一個(gè)小插曲，以后，更多的會(huì)來的，任重而道遠(yuǎn)，“書山有路勤為徑，學(xué)海無涯苦作舟”。通過這次課程設(shè)計(jì)之后，我認(rèn)為一定把以前學(xué)到的知識(shí)重新整理，認(rèn)真回顧下，這才會(huì)對(duì)以后的學(xué)習(xí)起到舉足輕重的作用。在設(shè)計(jì)的過程中，難免會(huì)遇到各種各樣的問題，我都會(huì)努力去克服這些困難，同時(shí)在設(shè)計(jì)的過程中發(fā)現(xiàn)了自己的不足之處，對(duì)以前所學(xué)過的知識(shí)理解得不夠 深刻，掌握的不夠牢固，在做設(shè)計(jì)的時(shí)候才發(fā)現(xiàn)自己的知識(shí)太凌亂，不夠系統(tǒng)，而且對(duì)很多知識(shí)點(diǎn)都是一知半解，沒有系統(tǒng)仔細(xì)地去挖掘，導(dǎo)致在做設(shè)計(jì)的時(shí)候出現(xiàn)了好多平時(shí)容易出現(xiàn)的小錯(cuò)誤，一個(gè)很小的錯(cuò)誤，也許會(huì)導(dǎo)致整個(gè)程序運(yùn)行不出來。都給我們提供了很好的資料，就等著我們?nèi)ゲ檎液屠茫瑥倪@次圖書館管理系統(tǒng)設(shè)計(jì)中我也收獲了很多，了解了圖書管理員的一些工作，也讓我進(jìn)一步對(duì) VB 及其數(shù)據(jù)庫有了深一步的了解，學(xué)到了太多太多，受益匪淺。一切的一切，都凝結(jié)了我這個(gè)勞動(dòng)人民的心血。 在這些艱辛的日子里，我大量查閱了相關(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í)。于是，就這樣，我堅(jiān)持下來了，或者在機(jī)房，或者在寢室，或者背著笨重的筆記本找個(gè)舒適的地方，一天天，下來了，過去了，雖然天確實(shí)很熱，總汗流浹背的，交大的學(xué)生真的很苦，沒有空調(diào)，沒有風(fēng)扇，只是這么干熱著，也真的很佩服自己，一直也想著，把設(shè)計(jì)做完了，得好好犒賞下自己，可當(dāng)真正快完的時(shí)候，更多的是感激，感激同學(xué)的幫助，感激大家的鼓勵(lì)，我才堅(jiān)持下來了，真的，“要功夫深，鐵杵磨成針”，深深地體會(huì)到了這句話的內(nèi)涵。 回想這三周的學(xué)習(xí)與設(shè)計(jì)，有苦有甜，苦的是，之前學(xué)過的關(guān)于 VB 和數(shù)據(jù)庫的知識(shí)都忘得差不多了，感覺學(xué)的東西很少，很零散，不知該怎么練到一起，做課程設(shè)計(jì)，是不是太難為我們了。為了解決這個(gè)問題，系統(tǒng)設(shè)計(jì)了一個(gè)超期提醒功能，即在選擇日期的同時(shí)，能夠顯示出所選日期、時(shí)間范圍內(nèi)所有借書超期和到期未還圖書信息。如果圖書確認(rèn)丟失，那么使用 AddNew 方法保存丟書記錄，同時(shí)更新讀者借書信息和庫存信息。 點(diǎn)擊【 借閱管理 】 — 【 讀者還書管理 】讀者還書管理界面出現(xiàn)，如輸入信息 不 完整，出現(xiàn)下面界面： 圖 25 輸入正確信息后，再點(diǎn)擊歸還圖書，則成功歸還圖書。當(dāng)用戶輸入讀者編號(hào)和借閱圖書的條形碼時(shí)，通過文本框 TextBox 的 LostFocus 事件下的語句檢索讀者信息和其借閱圖書的信息；通過 AddNew 方法保存借閱信息 ，讀者借書管理界面，如下： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 15 圖 21 如下圖，輸入讀者編號(hào)，姓名，借閱圖書條碼號(hào)。另外，為了區(qū)分驗(yàn)收和未驗(yàn)收的圖書，應(yīng)將驗(yàn)收過的圖書信息標(biāo)記為“驗(yà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 新書訂購 新書訂購 在添加訂單信息時(shí)，圖書訂單號(hào)根據(jù)當(dāng)前系統(tǒng)日期和 4 位數(shù)字編碼自動(dòng)生成，在觸發(fā) [添加 ]按鈕的 Click 事件后，首先到數(shù)據(jù)庫中的 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”的組合， 單擊主界面【訂購新書】，出現(xiàn)如下新書訂購界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 7 圖 6 該界面提供添加新書功能，如果正確輸入各信息，如下： 圖 7 點(diǎn)擊保存，出現(xiàn)以下界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 8 圖 8 通過以上方法生成的訂單號(hào)有一定的規(guī)律，并能夠看出圖書訂購的日期 ， 如果 在 輸入信息不全或者輸入信息有誤 時(shí) ， 點(diǎn)擊保存， 將出現(xiàn)以下界面： 圖 9 此時(shí)若點(diǎn)擊刪除，出現(xiàn)以下界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 9 圖 10 庫存管理 庫存管理主要完成將采購進(jìn)來的圖書進(jìn)行驗(yàn)收入庫，只有經(jīng)過驗(yàn)收的圖書才能正式入庫。 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 4 操作方法（流程）介紹 啟動(dòng) 單擊 或者 【 運(yùn)行 】 — 【 啟動(dòng) 】 或者 F5，將運(yùn)行圖書館管理系統(tǒng)，出現(xiàn)如下界面： 圖 1 用戶登錄 啟動(dòng)界面過后就是用戶登錄界面， 該界面提供了對(duì)名稱和密碼的核對(duì)功能 。 實(shí)現(xiàn)了 讀者借書管理、讀者還書管理、圖書丟失管理、超期提醒各種必要功能。 在庫存管理中。 設(shè)計(jì)實(shí)現(xiàn)用戶登錄窗口，需要在數(shù)據(jù)庫中建立一個(gè)用戶表，在里面保存用戶名稱和密碼，然后才能與用戶在窗口輸入的信息進(jìn)行校驗(yàn)。 根據(jù)系統(tǒng)所要實(shí)現(xiàn)的功能