【正文】 己的事了，只要 多一份堅(jiān)持，多一份努力，再大的困難又怎么樣，有了解決困難，直面挫折的勇氣，沒(méi)有什么可怕的了。于是，就這樣，我堅(jiān)持下來(lái)了，或者在機(jī)房，或者在寢室，或者背著笨重的筆記本找個(gè)舒適的地方，一天天，下來(lái)了，過(guò)去了，雖然天確實(shí)很熱，總汗流浹背的，交大的學(xué)生真的很苦，沒(méi)有空調(diào)，沒(méi)有風(fēng)扇，只是這么干熱著，也真的很佩服自己，一直也想著，把設(shè)計(jì)做完了，得好好犒賞下自己，可當(dāng)真正快完的時(shí)候，更多的是感激，感激同學(xué)的幫助，感激大家的鼓勵(lì)，我才堅(jiān)持下來(lái)了，真的，“要功夫深，鐵杵磨成針”，深深地體會(huì)到了這句話的內(nèi)涵。這個(gè)過(guò)程中所學(xué)到的 知識(shí)和所堅(jiān)持下來(lái)的毅力，我將一生受用，我嘗到了自己動(dòng)手，自己的事自己做的甜頭，真的很好，值得一生品味，一直自己也情不自禁地說(shuō)了“ VB真是強(qiáng)大，以后再慢慢研究，編個(gè)益智游戲”。 在這些艱辛的日子里，我大量查閱了相關(guān)的資料和網(wǎng)張，在課程設(shè)計(jì)過(guò)程中，我懂得了很多人生的哲理，懂得怎樣去制定計(jì)劃，怎樣去實(shí)現(xiàn)這個(gè)計(jì)劃，并掌握了在執(zhí)行過(guò)程中怎樣去克服心理上的不良情緒，經(jīng)過(guò)自己的琢磨，還查閱了很多的書(shū)籍，才做到了心中有數(shù)，才了解 VB 程序設(shè)計(jì)的真正用途，培養(yǎng)自學(xué)能力，養(yǎng)成編程的好習(xí)慣，課程是主要培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí)、發(fā) 現(xiàn)、提出、分析和解決實(shí)際問(wèn)題和鍛煉實(shí)踐能力的重要環(huán)節(jié)，也是對(duì)學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過(guò)程，一段時(shí)間的實(shí)踐后，確實(shí)掌握了不少知識(shí)。 在不斷地是在借書(shū)，看書(shū)，上圖書(shū)館查閱資料，動(dòng)手編輯中，我學(xué)會(huì)了運(yùn)用 VB 解決實(shí)際工作的能力，圖書(shū)館管理系統(tǒng)設(shè)計(jì)了很多數(shù)據(jù)庫(kù)、數(shù)組控件、循環(huán)等很多方面的內(nèi)容，符合設(shè)計(jì)的基本要求，實(shí)現(xiàn)了鐵路運(yùn)輸設(shè)備的查詢功能，可以方便的查詢數(shù)據(jù)，實(shí)現(xiàn)了從系統(tǒng)中編輯數(shù)據(jù)記錄，包括保存、刪除、清除等，實(shí)現(xiàn)了生成報(bào)表的功能。一切的一切，都凝結(jié)了我這個(gè)勞動(dòng)人民的心血。 設(shè)計(jì)開(kāi)始，不斷鼓勵(lì)自己，給自我以 心理暗示， just do it，也就如此，認(rèn)識(shí)到了自己以前的事業(yè)太狹小了，我們周圍還有好多我們可以利用的資源，書(shū)籍、網(wǎng)站。都給我們提供了很好的資料，就等著我們?nèi)ゲ檎液屠?，從這次圖書(shū)館管理系統(tǒng)設(shè)計(jì)中我也收獲了很多，了解了圖書(shū)管理員的一些工作，也讓我進(jìn)一步對(duì) VB 及其數(shù)據(jù)庫(kù)有了深一步的了解，學(xué)到了太多太多，受益匪淺。 圖書(shū)館管理系統(tǒng)這一課程設(shè)計(jì)的完成，有效的加強(qiáng)了我的基礎(chǔ)知識(shí)。在設(shè)計(jì)的過(guò)程中，難免會(huì)遇到各種各樣的問(wèn)題，我都會(huì)努力去克服這些困難，同時(shí)在設(shè)計(jì)的過(guò)程中發(fā)現(xiàn)了自己的不足之處，對(duì)以前所學(xué)過(guò)的知識(shí)理解得不夠 深刻，掌握的不夠牢固，在做設(shè)計(jì)的時(shí)候才發(fā)現(xiàn)自己的知識(shí)太凌亂，不夠系統(tǒng)，而且對(duì)很多知識(shí)點(diǎn)都是一知半解，沒(méi)有系統(tǒng)仔細(xì)地去挖掘，導(dǎo)致在做設(shè)計(jì)的時(shí)候出現(xiàn)了好多平時(shí)容易出現(xiàn)的小錯(cuò)誤，一個(gè)很小的錯(cuò)誤，也許會(huì)導(dǎo)致整個(gè)程序運(yùn)行不出來(lái)。以前，我并沒(méi)有太注意這些。通過(guò)這次課程設(shè)計(jì)之后，我認(rèn)為一定把以前學(xué)到的知識(shí)重新整理，認(rèn)真回顧下，這才會(huì)對(duì)以后的學(xué)習(xí)起到舉足輕重的作用。 從此次課程設(shè)計(jì)中，給我留下最深印象的就是如果自己有了興趣，就趕緊著手去做，交通運(yùn)輸學(xué)院課程設(shè)計(jì) 27 這種心境卻是是難能可貴的，也許，我這么做了，以后走更少的彎路，尋找更多的捷徑。也由于 出于對(duì)知識(shí)的渴望，出于對(duì)未知的求知，我完成了這次課程設(shè)計(jì)，不過(guò)這只是成長(zhǎng)道理上的一個(gè)小插曲，以后，更多的會(huì)來(lái)的，任重而道遠(yuǎn)，“書(shū)山有路勤為徑，學(xué)海無(wú)涯苦作舟”。從理論到實(shí)踐，三周的時(shí)間，不進(jìn)溫習(xí)鞏固了以前的舊知識(shí)，也在不斷地摸索和探求中體會(huì)到了自學(xué)能力培養(yǎng)的重要性，自學(xué)的魅力是無(wú)窮的。 最后，從這次課程設(shè)計(jì)中，本人對(duì) VB和 Access 數(shù)據(jù)庫(kù)有了更深入的理解和領(lǐng)悟，同時(shí)也看到了不起眼的紅蜻蜓抓圖精靈作用不可小覷，我更堅(jiān)定地認(rèn)識(shí)到 VB 在以后學(xué)習(xí)中的重要性，這將是我受益終生。 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 28 附件（程序源代碼） main_Startup 源代碼 Private Sub Timer1_Timer() Unload Me End Sub frmLogin 源代碼 Option Explicit Dim rs As New Private Sub Combo_Click() = End Sub Private Sub Combo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Load() = Dim rec Dim i As Integer select * from usertb, n, adOpenKeyset, adLockOptimistic rec = ReDim Asc(rec 1) For i = 1 To rec (名稱 ) Asc(i 1) = Val((密碼 )) If Then Exit For Next End Sub Private Sub labExit_Click() End End Sub Private Sub labLogin_Click() = select * from usertb where 名稱 =39。 + Trim(Combo) + 39。 If 0 Then If Trim(txtPassword) = (密碼 ).Value Then 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 29 (2).Text = 當(dāng)前系統(tǒng)用戶： amp。 (名稱 ).Value Unload Me Else MsgBox 密碼不正確！ , vbExclamation + vbOKOnly End If Else MsgBox 無(wú)此用戶或者密碼不正確！ , 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 書(shū)籍類別 =39。 amp。 Trim() amp。 39。 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。 amp。 amp。 39。 If 0 Then MsgBox 此條碼號(hào)已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號(hào) =39。 amp。 amp。 39。, 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。 Text1 amp。 39。,39。 amp。 DT1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 DT2 amp。 39。,39。 amp。 Text6 amp。 39。,39。 amp。 Text7 amp。 39。, amp。 amp。 ,39。 amp。 Text9 amp。 39。,39。 amp。 Text10 amp。 39。,39。 amp。 Text11 amp。 39。,39。 amp。 Text12 amp。 39。,39。 amp。 Text13 amp。 39。,39。 amp。 temp amp。 39。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗(yàn)收 =39。039。 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。 amp。 amp。 39。 If 0 Then MsgBox 此條碼號(hào)已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號(hào) =39。 amp。 amp。 39。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號(hào)已存在！ , vbInformation Else Dim sql, temp As String