【正文】 Sub clear() = : = : = : = : = : = : = : = : = : = : = : = End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text3_LostFocus() If Not IsNumeric() Then Exit Sub Else MsgBox 書籍名稱不能為數(shù)字 , vbInformation = End If End Sub Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 交通運輸學(xué)院課程設(shè)計 35 End Sub Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub frmupdate 源代碼 Dim rs1 As New Dim rs2 As New Private Sub bo1_Click() = select * from lbtb where 書籍類別 =39。 order by 訂單號 If 0 Then = Val((訂單號 )) + 1 Else = temp1 + 0001 End If = select * from newtb where 是否驗收 =39。 order by 訂單號 If 0 Then = Val((訂單號 )) + 1 Else = temp1 + 0001 End If = select * from newtb where 是否驗收 =39。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗收 =39。,39。,39。,39。,39。,39。 ,39。 Text7 amp。 Text6 amp。 DT2 amp。 Text5 amp。 Text4 amp。 Text3 amp。 Text2 amp。 DT1 amp。 Text1 amp。 amp。 amp。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗收 =39。,39。,39。,39。,39。,39。 ,39。 Text7 amp。 Text6 amp。 DT2 amp。 Text5 amp。 Text4 amp。 Text3 amp。 Text2 amp。 DT1 amp。 Text1 amp。 amp。 amp。 Trim() amp。 + Trim(Combo) + 39。也由于 出于對知識的渴望，出于對未知的求知，我完成了這次課程設(shè)計，不過這只是成長道理上的一個小插曲，以后，更多的會來的，任重而道遠，“書山有路勤為徑，學(xué)海無涯苦作舟”。在設(shè)計的過程中，難免會遇到各種各樣的問題，我都會努力去克服這些困難，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學(xué)過的知識理解得不夠 深刻，掌握的不夠牢固，在做設(shè)計的時候才發(fā)現(xiàn)自己的知識太凌亂，不夠系統(tǒng)，而且對很多知識點都是一知半解，沒有系統(tǒng)仔細地去挖掘，導(dǎo)致在做設(shè)計的時候出現(xiàn)了好多平時容易出現(xiàn)的小錯誤，一個很小的錯誤，也許會導(dǎo)致整個程序運行不出來。一切的一切，都凝結(jié)了我這個勞動人民的心血。于是，就這樣，我堅持下來了，或者在機房，或者在寢室，或者背著笨重的筆記本找個舒適的地方，一天天，下來了，過去了，雖然天確實很熱，總汗流浹背的，交大的學(xué)生真的很苦，沒有空調(diào)，沒有風扇，只是這么干熱著，也真的很佩服自己，一直也想著，把設(shè)計做完了，得好好犒賞下自己，可當真正快完的時候，更多的是感激，感激同學(xué)的幫助，感激大家的鼓勵，我才堅持下來了，真的，“要功夫深，鐵杵磨成針”，深深地體會到了這句話的內(nèi)涵。為了解決這個問題，系統(tǒng)設(shè)計了一個超期提醒功能，即在選擇日期的同時，能夠顯示出所選日期、時間范圍內(nèi)所有借書超期和到期未還圖書信息。 點擊【 借閱管理 】 — 【 讀者還書管理 】讀者還書管理界面出現(xiàn)，如輸入信息 不 完整，出現(xiàn)下面界面： 圖 25 輸入正確信息后，再點擊歸還圖書，則成功歸還圖書。另外，為了區(qū)分驗收和未驗收的圖書，應(yīng)將驗收過的圖書信息標記為“驗收”。 交通運輸學(xué)院課程設(shè)計 4 操作方法（流程）介紹 啟動 單擊 或者 【 運行 】 — 【 啟動 】 或者 F5，將運行圖書館管理系統(tǒng)，出現(xiàn)如下界面： 圖 1 用戶登錄 啟動界面過后就是用戶登錄界面， 該界面提供了對名稱和密碼的核對功能 。 在庫存管理中。 根據(jù)系統(tǒng)所要實現(xiàn)的功能設(shè)計 各個界面，利用 ADO 接口實現(xiàn) VB 與 Access 的連接，利用 mand、 connection、 recordset 實現(xiàn)對數(shù)據(jù)庫的操作，如果能夠直接顯示數(shù)據(jù)就算成功。 五、設(shè)計時間 2021~2021 學(xué)年第二學(xué)期：第 1921周 共計 3周。如果有超期的圖書，還提供了超期提醒的功能，從而實現(xiàn)對讀者借閱圖書的相關(guān)事項進行管理的功能。設(shè)計的系統(tǒng)基本功能包括： （ 1）維護圖書館管理中的基礎(chǔ)信息，如書商、出版社、印刷廠的相關(guān)信息。 四、設(shè)計要求 在各大省市圖書館和各大高校的圖書館當中，都普遍存在著這樣幾個共有的問題： （ 1） 圖書館管理員的工作內(nèi)容重復(fù)、工作效率低、工作量大。 二、設(shè)計課題 圖書館管理系統(tǒng) 三、設(shè)計任務(wù) 本系統(tǒng)包括對書商和出版社等在內(nèi)的基礎(chǔ)數(shù)據(jù)管理、新書訂購管理、圖書借閱管理、圖書歸還管理、讀者續(xù)借圖書管理、圖書丟失管理、統(tǒng)計打印和系統(tǒng)管理等幾部分，通過將海量資源和信息管理系統(tǒng)進行有機的結(jié)合，可以讓讀者隨時隨地 地獲取知識。 為了解決以上問題，我們從讀者和圖書館的角度出發(fā)，本著以讀者借書、還書快捷方便和圖書館管理員管理圖書方便的原則，開發(fā)了圖書館管理系統(tǒng)。 （ 3）對讀者信息進行管理，同時還能夠管理讀者借書、還書、圖書續(xù)借等。 （ 5）維護系統(tǒng)數(shù)據(jù)，如添加操作員、修改操作員、更改操作員口令等。 讀者 丟失 讀者賠書 讀者還書 是 否 圖書館 圖書查詢 讀者借書 庫存圖書 圖書入庫 開票 /付款 圖書分類統(tǒng)計 供應(yīng)商 圖書館管理系統(tǒng)業(yè)務(wù)流程圖 交通運輸學(xué)院課程設(shè)計 3 程序功能簡介 根據(jù)前面的功能分析 ， 應(yīng)用 Visual Basic 與 Access 數(shù)據(jù)庫相關(guān)知識和軟件的操作方法，設(shè)計實現(xiàn)一個圖書館管理系統(tǒng)， 實現(xiàn) 基礎(chǔ)數(shù)據(jù)維護、新書訂購管理、圖書借閱管理、統(tǒng)計打印、系統(tǒng)維護 5大功能。 可以從新書訂購窗體中編輯數(shù)據(jù)記錄，包括添加、保存、清除、刪除、退出 ，可以實現(xiàn)數(shù)據(jù)的各種編輯功能。 實現(xiàn)了生成報表功能，該項功能的目的是為了使用戶能夠更直觀地、形象地了解該系統(tǒng)的主要信息、通過生成報表的形式，了解系統(tǒng)信息。驗收新書的設(shè)計思路是：通過在驗收新書檢索窗體中輸入購進 新書的訂單號，從訂單表中提取未被驗收的數(shù)據(jù)，如果檢索到此訂單，那么該訂單的圖書信息將顯示在驗收入庫窗體中，數(shù)據(jù)驗證后，單擊該窗體上的 [保存 ]按鈕，將購進的新書信息保存到入庫信息表中，同時查詢庫存表中是否存在這種圖書，如果存在，那么更新該圖書的庫存數(shù)量；否則，將購進的新書信息保存到庫存表中。 圖 22 系統(tǒng)自動與數(shù)據(jù)庫連接，出現(xiàn)下面界面： 交通運輸學(xué)院課程設(shè)計 16 圖 23 點 擊借出當前圖書，出現(xiàn)下面界面： 圖 24 讀者還書管理 在讀者還書管理窗體中，通過輸入讀者編號和書籍的條碼號，利用文本框的交通運輸學(xué)院課程設(shè)計 17 LostFocus 事件下的語句在借書表（ dzjstb）中檢索該讀者借閱的圖書信息，如果檢索到數(shù)據(jù)，那么將其顯示在窗體上，然后通過 AddNew 方法保存還書記錄；通過 Update 方法更新借書信息和庫存圖書信息。 點擊【 借閱管理 】 — 【 圖書丟失管理 】，讀者編號和書籍的條形碼，出現(xiàn)下面界面 ： 交通運輸學(xué)院課程設(shè)計 18 圖 26 點擊丟失，出現(xiàn)下面界面： 交通運輸學(xué)院課程設(shè)計 19 圖 27 點擊確定，出現(xiàn)下面界面： 圖 28 點 確定，出現(xiàn)界面如下： 交通運輸學(xué)院課程設(shè)計 20 圖 29 丟失圖書查詢：輸入讀者編號，點擊查詢，出現(xiàn) 交通運輸學(xué)院課程設(shè)計 21 圖 30 圖書驗收報表 圖書館管理系統(tǒng)中的報表主要使用了 VB 中的數(shù)據(jù)環(huán)境設(shè)計器 Data Environment 和數(shù)據(jù)報表設(shè)計器 Data Report， 在圖書驗收報表打印的過程中，首先在圖書驗收報表窗體中根據(jù)訂購日期統(tǒng)計并查詢指定日期范圍內(nèi)的圖書驗收信息，單擊 [打印 ]按鈕，即可打印查詢、統(tǒng)計后的圖書驗收信息， 如下操作： 交通運輸學(xué)院課程設(shè)計 22 圖 31 出現(xiàn) 圖書驗收報表如下： 圖 32 選擇訂購日期，點擊查詢，出現(xiàn)如下界面： 交通運輸學(xué)院課程設(shè)計 23 圖 33 點擊打印，則 生成報表： 圖 34 超期提醒 最后，相關(guān)經(jīng)驗在開發(fā)圖書館管理系統(tǒng)的過程中，可能遇到這樣一個問題：如果在借完圖書之后，忘記了還書日期，那么就有可能造成所借 圖書超期。因此一時有些膽怯，懷疑自己是否能夠順利完成這個任務(wù)，確實很像退縮，幾次打退堂鼓，但最后，也因為看到如此多同學(xué)在一絲不茍地為課程設(shè)計奉獻自己，我才認識我，自己也該好好做下自己的事了，只要 多一份堅持，多一份努力，再大的困難又怎么樣，有了解決困難，直面挫折的勇氣，沒有什么可怕的了。 在不斷地是在借書，看書，上圖書館查閱資料，動